F77/F90 Syntax
Example 8-112
include `s3l/s3l-f.h' include `s3l/s3l_errno-f.h' subroutine S3L_grade_up(A, grade, ier) S3L_grade_down(A, grade, ier) S3L_grade_up_detailed(A, grade, axis, ier) S3L_grade_down_detailed(A, grade, axis, ier) integer*8 A integer*8 grade integer*8 axis integer*4 ier |
where <type> is real*4 or real*8 for both C/C++ and F77/F90.
- © 2010, Oracle Corporation and/or its affiliates