extens.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\special\extens.f
00002 !
00039                      CHARACTER(LEN=11) FUNCTION EXTENS
00040 !                    ****************************************
00041 !
00042      &(N,I)
00043 !
00044 !***********************************************************************
00045 ! BIEF   V6P3                                   21/08/2010
00046 !***********************************************************************
00047 !
00048 !
00049 !
00050 !
00051 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00052 !| N              |-->| TOTAL NUMBER OF PROCESSORS
00053 !| I              |-->| RANK OF THE PROCESSOR
00054 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00055 !
00056 !     USE BIEF
00057 !
00058       IMPLICIT NONE
00059       INTEGER LNG,LU
00060       COMMON/INFO/LNG,LU
00061 !
00062       INTEGER, INTENT(IN) :: I,N
00063 !
00064 !-----------------------------------------------------------------------
00065 !
00066       IF(N.GT.0) THEN
00067 !
00068         EXTENS='00000-00000'
00069 !
00070         IF(N.LT.10) THEN
00071           WRITE(EXTENS(05:05),'(I1)') N
00072         ELSEIF(N.LT.100) THEN
00073           WRITE(EXTENS(04:05),'(I2)') N
00074         ELSEIF(N.LT.1000) THEN
00075           WRITE(EXTENS(03:05),'(I3)') N
00076         ELSEIF(N.LT.10000) THEN
00077           WRITE(EXTENS(02:05),'(I4)') N
00078         ELSE
00079           WRITE(EXTENS(01:05),'(I5)') N
00080         ENDIF
00081 !
00082         IF(I.LT.10) THEN
00083           WRITE(EXTENS(11:11),'(I1)') I
00084         ELSEIF(I.LT.100) THEN
00085           WRITE(EXTENS(10:11),'(I2)') I
00086         ELSEIF(I.LT.1000) THEN
00087           WRITE(EXTENS(09:11),'(I3)') I
00088         ELSEIF(I.LT.10000) THEN
00089           WRITE(EXTENS(08:11),'(I4)') I
00090         ELSE
00091           WRITE(EXTENS(07:11),'(I5)') I
00092         ENDIF
00093 !
00094       ELSE
00095 !
00096         EXTENS='           '
00097 !
00098       ENDIF
00099 !
00100 !-----------------------------------------------------------------------
00101 !
00102       RETURN
00103       END FUNCTION EXTENS

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0