1 subroutine f1 (n
, *, i
)
3 if (i
.ne
. 42) call abort ()
8 entry e2 (n
, i
, *, *, *)
9 if (i
.ne
. 46) call abort ()
13 if ((i
.ne
. 48) .or
. (n
.ne
. 61)) call abort ()
29 call e2 (1, 46, *40, *20, *20)
32 call e2 (2, 46, *20, *50, *20)
35 call e2 (3, 46, *20, *20, *60)
38 call e2 (4, 46, *20, *20, *20)