TEST_NAM_VARX0_SURF Subroutine

  1. test_nam_var_surf.F90
  2. TEST_NAM_VARX0_SURF

subroutine TEST_NAM_VARX0_SURF(KLUOUT, HNAME, PVAR, PVALUE1, PVALUE2, PVALUE3, PVALUE4, PVALUE5, PVALUE6, PVALUE7, PVALUE8, PVALUE9, PVALUE10)

Uses

Arguments

Type IntentOptional AttributesName
integer, intent(in) :: KLUOUT
character(len=*), intent(in) :: HNAME
real, intent(in) :: PVAR
real, intent(in), optional :: PVALUE1
real, intent(in), optional :: PVALUE2
real, intent(in), optional :: PVALUE3
real, intent(in), optional :: PVALUE4
real, intent(in), optional :: PVALUE5
real, intent(in), optional :: PVALUE6
real, intent(in), optional :: PVALUE7
real, intent(in), optional :: PVALUE8
real, intent(in), optional :: PVALUE9
real, intent(in), optional :: PVALUE10

Contents

Source Code

TEST_NAM_VARX0_SURF

Source Code

      SUBROUTINE TEST_NAM_VARX0_SURF(KLUOUT,HNAME,PVAR,       &
                                     PVALUE1,PVALUE2,PVALUE3, &
                                     PVALUE4,PVALUE5,PVALUE6, &
                                     PVALUE7,PVALUE8,PVALUE9, &
                                     PVALUE10  )  
!
INTEGER,          INTENT(IN)          ::KLUOUT   ! output listing logical unit
 CHARACTER(LEN=*) ,INTENT(IN)          ::HNAME    ! name of the variable to test
REAL             ,INTENT(IN)          ::PVAR     ! variable to test

REAL             ,INTENT(IN), OPTIONAL ::PVALUE1  ! first possible value
REAL             ,INTENT(IN), OPTIONAL ::PVALUE2  ! second possible value
REAL             ,INTENT(IN), OPTIONAL ::PVALUE3  ! third possible value
REAL             ,INTENT(IN), OPTIONAL ::PVALUE4  ! fourth possible value
REAL             ,INTENT(IN), OPTIONAL ::PVALUE5  ! fiveth possible value
REAL             ,INTENT(IN), OPTIONAL ::PVALUE6  ! sixth possible value
REAL             ,INTENT(IN), OPTIONAL ::PVALUE7  ! seventh possible value
REAL             ,INTENT(IN), OPTIONAL ::PVALUE8  ! eightth possible value
REAL             ,INTENT(IN), OPTIONAL ::PVALUE9  ! nineth possible value
REAL             ,INTENT(IN), OPTIONAL ::PVALUE10 ! 10th possible value
!
END SUBROUTINE TEST_NAM_VARX0_SURF