exten2.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\postel3d\exten2.f
00002 !
00020                         CHARACTER*7 FUNCTION EXTEN2
00021 !                       ***************************
00022 !
00023      &(N,IPID)
00024 !
00025       IMPLICIT NONE
00026       INTEGER LNG,LU
00027       COMMON/INFO/LNG,LU
00028 !
00029       INTEGER, INTENT(IN) :: IPID,N
00030 !
00031 !-----------------------------------------------------------------------
00032 !
00033       IF(N.GT.0) THEN
00034 !
00035         EXTEN2='000-000'
00036 !
00037         IF(N.LT.10) THEN
00038           WRITE(EXTEN2(03:03),'(I1)') N
00039         ELSEIF(N.LT.100) THEN
00040           WRITE(EXTEN2(02:03),'(I2)') N
00041         ELSE
00042           WRITE(EXTEN2(01:03),'(I3)') N
00043         ENDIF
00044 !
00045         IF(IPID.LT.10) THEN
00046           WRITE(EXTEN2(07:07),'(I1)') IPID
00047         ELSEIF(IPID.LT.100) THEN
00048           WRITE(EXTEN2(06:07),'(I2)') IPID
00049         ELSE
00050           WRITE(EXTEN2(05:07),'(I3)') IPID
00051         ENDIF
00052 !
00053       ELSE
00054 !
00055         EXTEN2='       '
00056 !
00057       ENDIF
00058 !
00059 !-----------------------------------------------------------------------
00060 !
00061       RETURN
00062       END FUNCTION
00063 !

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