TEST_NAM_VARN0_SURF Subroutine

  1. test_nam_var_surf.F90
  2. TEST_NAM_VARN0_SURF

subroutine TEST_NAM_VARN0_SURF(KLUOUT, HNAME, KVAR, KVALUE1, KVALUE2, KVALUE3, KVALUE4, KVALUE5, KVALUE6, KVALUE7, KVALUE8, KVALUE9, KVALUE10)

Uses

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: KLUOUT
character(len=*), intent(in) :: HNAME
integer, intent(in) :: KVAR
integer, intent(in), optional :: KVALUE1
integer, intent(in), optional :: KVALUE2
integer, intent(in), optional :: KVALUE3
integer, intent(in), optional :: KVALUE4
integer, intent(in), optional :: KVALUE5
integer, intent(in), optional :: KVALUE6
integer, intent(in), optional :: KVALUE7
integer, intent(in), optional :: KVALUE8
integer, intent(in), optional :: KVALUE9
integer, intent(in), optional :: KVALUE10

Contents

Source Code

TEST_NAM_VARN0_SURF

Source Code

      SUBROUTINE TEST_NAM_VARN0_SURF(KLUOUT,HNAME,KVAR,       &
                                       KVALUE1,KVALUE2,KVALUE3, &
                                       KVALUE4,KVALUE5,KVALUE6, &
                                       KVALUE7,KVALUE8,KVALUE9, &
                                       KVALUE10  )  
!
INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
 CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
INTEGER          ,INTENT(IN)           ::KVAR     ! variable to test

INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE1  ! first possible value
INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE2  ! second possible value
INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE3  ! third possible value
INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE4  ! fourth possible value
INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE5  ! fiveth possible value
INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE6  ! sixth possible value
INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE7  ! seventh possible value
INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE8  ! eightth possible value
INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE9  ! nineth possible value
INTEGER          ,INTENT(IN), OPTIONAL ::KVALUE10 ! 10th possible value
!
END SUBROUTINE TEST_NAM_VARN0_SURF