get_opt.F

Go to the documentation of this file.

      FUNCTION get_opt(CLOPT,CLARG,LLMPOFF)
#ifdef SFX_MPI
      USE mpl_arg_mod
#endif
!
!     CRAY function
!
!     The get_opt utility breaks up options in command lines for easy parsing
!     by shell procedures and checks for legal options.
!     CLOPT is a string of recognized option letters.
!     CLARG is the option-argument.
!
!     Author : Vijay Saravane *METEO-FRANCE*
!
      USE parkind1, ONLY : jpim
      IMPLICIT NONE
      INTEGER(KIND=JPIM) :: GET_OPT
      CHARACTER(LEN=*) :: CLOPT,CLARG
      CHARACTER(LEN=LEN(CLARG)) :: COPT
      CHARACTER(LEN=1) :: COPT1
      LOGICAL :: LLMPOFF
      INTEGER(KIND=JPIM) :: IARG, NBARGS
      DATA iarg /1/
      SAVE iarg
!
!-----------------------------------------------
!
#ifdef T3D
      nbargs=ipxfargc()
#else
      IF (llmpoff) THEN
        nbargs=command_argument_count()
      ELSE
#ifdef SFX_MPI
        nbargs=mpl_iargc()
#endif
      ENDIF
#endif
! si on a lu tous les arguments on sort ...
      IF (iarg.GT.nbargs) THEN
         get_opt = 0
         RETURN
      ENDIF
! sinon on prend l'option en cours ...
#ifdef T3D
      CALL pxfgetarg(iarg,copt,ilen,ierr)
#else
      IF (llmpoff) THEN
        CALL getarg(iarg,copt)
      ELSE
#ifdef SFX_MPI
        CALL mpl_getarg(iarg,copt)
#endif
      ENDIF
#endif
      copt1=copt(2:2)
! si c'est pas une bonne option on sort ...
      IF (index(clopt,copt1).EQ.0) THEN
         get_opt = 0
         RETURN
      ENDIF
! sinon on prend l'argument de l'option
! cet argument est utilise dans getvarg
      IF (len_trim(copt).GE.3) THEN  ! l argument est colle a l'option
         clarg=copt(3:len_trim(copt))
         iarg=iarg+1
      ELSE                           ! l argument est separe par un blanc
#ifdef T3D
         CALL pxfgetarg(iarg+1,clarg,ilen,ierr)
#else
         IF (llmpoff) THEN
           CALL getarg(iarg+1,clarg)
         ELSE
#ifdef SFX_MPI
           CALL mpl_getarg(iarg+1,clarg)
#endif
         ENDIF
#endif
         iarg=iarg+2
      ENDIF
!
! et on retourne la valeur du caractere de l'option
      get_opt = iachar(copt1)
!
      RETURN
      ENDFUNCTION get_opt
!
!
#ifdef SV2
      SUBROUTINE getarg(IARG, CLARG)
      USE parkind1, ONLY : jpim
      IMPLICIT NONE
      INTEGER(KIND=JPIM), INTENT(IN) :: IARG
      CHARACTER(LEN=*), INTENT(OUT) :: CLARG
      INTEGER(KIND=JPIM) :: ILEN, IERR
      CALL pxfgetarg(iarg,clarg,ilen,ierr)
      ENDSUBROUTINE getarg
#endif