TEST_NAM_VARC0_SURF Subroutine

  1. test_nam_var_surf.F90
  2. TEST_NAM_VARC0_SURF

subroutine TEST_NAM_VARC0_SURF(KLUOUT, HNAME, HVAR, HVALUE1, HVALUE2, HVALUE3, HVALUE4, HVALUE5, HVALUE6, HVALUE7, HVALUE8, HVALUE9, HVALUE10)

Uses

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: KLUOUT
character(len=*), intent(in) :: HNAME
character(len=*), intent(in) :: HVAR
character(len=*), intent(in), optional :: HVALUE1
character(len=*), intent(in), optional :: HVALUE2
character(len=*), intent(in), optional :: HVALUE3
character(len=*), intent(in), optional :: HVALUE4
character(len=*), intent(in), optional :: HVALUE5
character(len=*), intent(in), optional :: HVALUE6
character(len=*), intent(in), optional :: HVALUE7
character(len=*), intent(in), optional :: HVALUE8
character(len=*), intent(in), optional :: HVALUE9
character(len=*), intent(in), optional :: HVALUE10

Contents

Source Code

TEST_NAM_VARC0_SURF

Source Code

      SUBROUTINE TEST_NAM_VARC0_SURF(KLUOUT,HNAME,HVAR,       &
                                       HVALUE1,HVALUE2,HVALUE3, &
                                       HVALUE4,HVALUE5,HVALUE6, &
                                       HVALUE7,HVALUE8,HVALUE9, &
                                       HVALUE10  )  
!
INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
 CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
 CHARACTER(LEN=*) ,INTENT(IN)           ::HVAR     ! variable to test

 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE1  ! first possible value
 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE2  ! second possible value
 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE3  ! third possible value
 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE4  ! fourth possible value
 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE5  ! fiveth possible value
 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE6  ! sixth possible value
 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE7  ! seventh possible value
 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE8  ! eightth possible value
 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE9  ! nineth possible value
 CHARACTER(LEN=*) ,INTENT(IN), OPTIONAL ::HVALUE10 ! tenth possible value
!
END SUBROUTINE TEST_NAM_VARC0_SURF