ESTEL:ESTEL-3D subroutine template

This is a subroutine template for ESTEL-3D.

This template is also available as a [[Media:M_ESTEL3D_TEMPLATE.f90 | download]] within the module template.

Please, read the formatting guidelines first.

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('sub') !---

! ACTUAL CODE HERE

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