ESTEL:ESTEL-3D subroutine template

subroutine sub( arg1,   &                arg2,    &                longarg3 ) !--- ! Function: Does stuff !--- implicit none !--- ! Arguments

double precision, intent(in) :: arg1    ! I am argument #1 integer       , intent(in) :: arg2     ! I am argument #2 character                   :: longarg3 ! I am argument #3 !--- ! Local declarations

integer :: i, j !--- if (debug) call proc_begin('sub1') !---

! ACTUAL CODE HERE

!--- if (debug) call proc_end('output_data_tecplot_ascii') !--- return end subroutine sub