3 |
! From cray.F, version 1.1.1.1, 2004/05/19 12:53:05 |
! From cray.F, version 1.1.1.1, 2004/05/19 12:53:05 |
4 |
|
|
5 |
! This subroutine should not exist in a Fortran 95 program. If the |
! This subroutine should not exist in a Fortran 95 program. If the |
6 |
! actual arguments are of rank 1 then replace each call to this |
! actual arguments 2 and 4 are of rank 1 then replace each call to |
7 |
! subroutine by the simple statement in this subroutine. |
! this subroutine by the simple statement in this subroutine. |
8 |
|
|
9 |
IMPLICIT NONE |
IMPLICIT NONE |
10 |
|
|