extens.f

Go to the documentation of this file.

!                   ****************************************
                    CHARACTER(LEN=11) FUNCTION extens
!                   ****************************************
!
     &(n,i)
!
!***********************************************************************
! BIEF   V6P3                                   21/08/2010
!***********************************************************************
!
!brief    GIVES THE EXTENSION FOR NAMING FILES IN PARALLEL
!+
!
!history  J-M HERVOUET (LNHE)
!+        11/07/2008
!+        V5P9
!+
!
!history  J-M HERVOUET (LNHE)
!+        22/11/2012
!+        V6P3
!+   USE BIEF removed, IIPID and IPID changed into I.
!
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!| N              |-->| TOTAL NUMBER OF PROCESSORS
!| I              |-->| RANK OF THE PROCESSOR
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
!
!     USE BIEF
!
      USE declarations_special
      IMPLICIT NONE
!
      INTEGER, INTENT(IN) :: i,n
!
!-----------------------------------------------------------------------
!
      IF(n.GT.0) THEN
!
        extens='00000-00000'
!
        IF(n.LT.10) THEN
          WRITE(extens(05:05),'(I1)') n
        ELSEIF(n.LT.100) THEN
          WRITE(extens(04:05),'(I2)') n
        ELSEIF(n.LT.1000) THEN
          WRITE(extens(03:05),'(I3)') n
        ELSEIF(n.LT.10000) THEN
          WRITE(extens(02:05),'(I4)') n
        ELSE
          WRITE(extens(01:05),'(I5)') n
        ENDIF
!
        IF(i.LT.10) THEN
          WRITE(extens(11:11),'(I1)') i
        ELSEIF(i.LT.100) THEN
          WRITE(extens(10:11),'(I2)') i
        ELSEIF(i.LT.1000) THEN
          WRITE(extens(09:11),'(I3)') i
        ELSEIF(i.LT.10000) THEN
          WRITE(extens(08:11),'(I4)') i
        ELSE
          WRITE(extens(07:11),'(I5)') i
        ENDIF
!
      ELSE
!
        extens='           '
!
      ENDIF
!
!-----------------------------------------------------------------------
!
      RETURN
      END FUNCTION extens