!======================================================================
!BOP
! !IROUTINE: subroutinename 
!
! !INTERFACE: 
  SUBROUTINE subroutinename(inputvar1, resultvar1)
!
! !USES:
    USE module1,     ONLY: subroutine
    USE module2,     ONLY: variable
!
    IMPLICIT NONE
!
! !INPUT PARAMETERS:
    LOGICAL, INTENT(in)  :: inputvar1  ! input for calculations
!
! !OUTPUT PARAMETERS:
    REAL,    INTENT(out) :: resultvar1 ! result
!
! !DESCRIPTION:
!
! This is a sample subroutine illustrating the use of ProTex. 
! ProTex is the convention for documentation in PRISM.
!
! !REMARKS:
! Contact: Peter van Velthoven, KNMI
!
! !SEE ALSO:
! E. Guilyardi, R. Budich, G. Brasseur and G. Komen, eds.:
! Prism System Specification Handbook, Version 1.0 (2003).
!
! !REVISION HISTORY:
!
! 04.02.16 P. van Velthoven: Made first version of this example.
!
! !TO DO: 
! Use this structure in all TM5 subroutines.
!
! !FILES USED:
!     The file meteo.hdf on input is opened, read from and closed
!
! !SYSTEM ROUTINES:
    INTEGER, EXTERNAL    :: lnblnk
!
! !DEFINED PARAMETERS:
    INTEGER, PARAMETER   :: TWO=2      ! the number 2
!
! !LOCAL VARIABLES:
    INTEGER              :: internal_variable      ! what it is
    REAL                 :: real_internal_variable ! what it is
!
!EOP
!----------------------------------------------------------------------
! $Id: subroutine.f90,v 1.0 2004/02/15 19:31:12 velthove Exp $
! $Author: velthove $
!----------------------------------------------------------------------
! The above lines specify the cvs-version
  END SUBROUTINE subroutinename