exten1.f

Go to the documentation of this file.

!                       ***************************
                        CHARACTER(LEN=3) FUNCTION exten1
!                       ***************************
!
     &(n)
!
!**********************************************************************
!
      USE declarations_special
      IMPLICIT NONE
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
      INTEGER, INTENT(IN) :: N
!
!+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
!
!
!-----------------------------------------------------------------------
!
      IF(n.GT.0) THEN
!
        exten1='000'
!
        IF(n.LT.10) THEN
          WRITE(exten1(03:03),'(I1)') n
        ELSEIF(n.LT.100) THEN
          WRITE(exten1(02:03),'(I2)') n
        ELSE
          WRITE(exten1(01:03),'(I3)') n
        ENDIF
!
      ELSE
!
        exten1='   '
!
      ENDIF
!
!
      RETURN
      END FUNCTION