exten1.f

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

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