codekingpro/portable-devtools

1      subroutine gh2848( &
2        ! first 2 parameters
3        par1, par2,&
4        ! last 2 parameters
5        par3, par4)
6
7        integer, intent(in)  :: par1, par2
8        integer, intent(out) :: par3, par4
9
10        par3 = par1
11        par4 = par2
12
13      end subroutine gh2848
14