!
!    ProTeX sample FORTRAN source: Style 2
!

!-------------------------------------------------------------------------
!         NASA/GSFC, Data Assimilation Office, Code 910.3, GEOS/DAS      !
!-------------------------------------------------------------------------
!BOP
!
! !ROUTINE:  
! 
! !DESCRIPTION: 
!
! !INTERFACE:
!
! !INPUT PARAMETERS: 
!
! !OUTPUT PARAMETERS:
!
! !BUGS:  
!
! !SEE ALSO: 
!
! !FILES USED:  
!
! !REVISION HISTORY: 
!
!
!EOP
!-------------------------------------------------------------------------

      include 'stdio.h'
 
      write(stderr,*) 'I have NOT been written yet.'

      return
      end