| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | KLUOUT | |||
| character(len=*), | intent(in) | :: | HNAME | |||
| logical, | intent(in) | :: | OVAR | |||
| logical, | intent(in), | optional | :: | OVALUE | 
      SUBROUTINE TEST_NAM_VARL0_SURF(KLUOUT,HNAME,OVAR,OVALUE)
!
INTEGER,          INTENT(IN)           ::KLUOUT   ! output listing logical unit
 CHARACTER(LEN=*) ,INTENT(IN)           ::HNAME    ! name of the variable to test
LOGICAL          ,INTENT(IN)           ::OVAR     ! variable to test
LOGICAL          ,INTENT(IN), OPTIONAL ::OVALUE   ! possible value
!
END SUBROUTINE TEST_NAM_VARL0_SURF