codekingpro/portable-devtools

1      SUBROUTINE TESTSUB(
2     &    INPUT1, INPUT2,                                 !Input
3     &    OUTPUT1, OUTPUT2)                               !Output
4
5      IMPLICIT NONE
6      INTEGER, INTENT(IN) :: INPUT1, INPUT2
7      INTEGER, INTENT(OUT) :: OUTPUT1, OUTPUT2
8
9      OUTPUT1 = INPUT1 + INPUT2
10      OUTPUT2 = INPUT1 * INPUT2
11
12      RETURN
13      END SUBROUTINE TESTSUB
14
15      SUBROUTINE TESTSUB2(OUTPUT)
16      IMPLICIT NONE
17      INTEGER, PARAMETER :: N = 10 ! Array dimension
18      REAL, INTENT(OUT) :: OUTPUT(N)
19      INTEGER :: I
20
21      DO I = 1, N
22         OUTPUT(I) = I * 2.0
23      END DO
24
25      RETURN
26      END
27