exten2.f

Go to the documentation of this file.

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