Avoiding gather and scatter when calling Fortran 77 code from Fortran 90 code

• US 6,647,546 B1
• Filed: 05/03/2000
• Issued: 11/11/2003
• Est. Priority Date: 05/03/2000
• Status: Active Grant

• Current Assignee: Oracle America, Inc. (Oracle Corporation)
• Original Assignee: Sun Microsystems Incorporated (Oracle Corporation)
• Inventors: Hinker, Paul J., Boucher, Michael
• Primary Examiner(s): Chaki, Kakali
• Assistant Examiner(s): Nahar, Qamrun
• Application Number:
  US09/563,429
• Time in Patent Office: 1,287 Days
• Field of Search: 717/137, 717/151, 717/152, 709/310, 709/313, 703/23, 703/26, 703/27
• US Class Current: 717/137
• CPC Class Codes: G06F 8/51 Source to source
• CPC Class Codes: G06F 9/541 via adapters, e.g. between incompatible applications

Abstract

In accordance with methods and systems consistent with the present invention, a system that automatically generates Fortran 90 interfaces to Fortran 77 code is provided. These interfaces provide for the use of optional parameters and, because they are written in Fortran 90, also allow for parameter checking. These interfaces are automatically generated to allow a programmer to reap the benefits of Fortran 90 calling without having to rewrite the Fortran 77 underlying code. When generating the interfaces, the method performs an optimization that saves a significant amount of processing time as well as a significant amount of memory. This optimization involves generating the interfaces in such a way as to prevent the compiler from performing a gather and a scatter.

Claims

1. A method performed in a data processing system by a subprogram written in a first programming language, the method comprising:

receiving a parameter in a form suitable for the first programming language;

converting the parameter to a form suitable for a second programming language that is different from the first programming language, where the form suitable for the second programming language prevents a compiler from generating code to gather the parameter when the subprogram is compiled by the compiler; and

invoking another subprogram written in the second programming language and passing the parameter in the form suitable for the second programming language.

2. The method of claim 1, wherein the first programming language is Fortran 90 and wherein the second programming language is Fortran 77.

3. The method of claim 1, wherein the parameter is indicative of an array.

4. The method of claim 3, wherein invoking another subprogram further comprises passing a length of the array and a stride of the array to the subprogram.

5. The method of claim 4, wherein the parameter in the form suitable for the first programming language is indicative of a dope vector of the array.

6. The method of claim 1 wherein the form suitable for the second programming language prevents the compiler from generating code to scatter the parameter.

7. A method performed in a data processing system containing a program written in a first programming language to perform the method, the method comprising:

expressing a parameter written in a form suitable for the first programming language in a form suitable for a second programming language that is different from the first programming language, where the form suitable for the second programming language prevents a compiler during compilation from generating code to gather the parameter; and

invoking code written in the second programming language using the parameter in the form suitable to the second programming language.

8. The method of claim 7, wherein the parameter is indicative of an array.

9. The method of claim 8, wherein invoking code written in the second programming language further comprises invoking the code using a length of the array and a stride of the array in a form suitable to the second programming language.

10. The method of claim 9, wherein the parameter written in the form suitable for the first programming language is indicative of a dope vector of the array.

11. The method of claim 7 wherein the first programming language is a Fortran 90 programming language and wherein the second programming language is a Fortran 77 programming language.

12. The method of claim 7 wherein the form suitable for the second programming language prevents the compiler from generating code to scatter the parameter.

13. A computer-readable medium containing instructions for controlling a data processing system containing a subprogram written in a first programming language to perform a method, the method comprising:

receiving a parameter in a form suitable for the first programming language;

converting the parameter to a form suitable for a second programming language that is different from the first programming language, where the form suitable for the second programming language prevents a compiler from generating code to gather the parameter when the subprogram is compiled by the compiler; and

invoking another subprogram written in the second programming language and passing the parameter in the form suitable for the second programming language.

14. The computer-readable medium of claim 13, wherein the first programming language is Fortran 90 and wherein the second programming language is Fortran 77.

15. The computer-readable medium of claim 13, wherein the parameter is indicative of an array.

16. The computer-readable medium of claim 15, wherein invoking another subprogram further comprises passing a length of the array and a stride of the array to the subprogram.

17. The computer-readable medium of claim 16, wherein the parameter in the form suitable for the first programming language is indicative of a dope vector of the array.

18. The computer-readable medium of claim 13 wherein the form suitable for the second programming language prevents the compiler from generating code to scatter the parameter.

19. A computer-readable medium containing instructions for controlling a data processing system containing a program written in a first programming language to perform a method, the method comprising:

expressing a parameter written in a form suitable for the first programming language in a form suitable for a second programming language that is different from the first programming language, where the form suitable for the second programming language prevents a compiler during compilation from generating code to gather the parameter; and

invoking code written in the second programming language using the parameter in the form suitable to the second programming language.

20. The computer-readable medium of claim 19, wherein the parameter is indicative of an array.

21. The computer-readable medium of claim 20, wherein invoking code written in the second programming language further comprises invoking the code using a length of the array and a stride of the array in a form suitable to the second programming language.

22. The computer-readable medium of claim 21, wherein the parameter written in the form suitable for the first programming language is indicative of a dope vector of the array.

23. The computer-readable medium of claim 19 wherein the first programming language is a Fortran 90 programming language and wherein the second programming language is a Fortran 77 programming language.

24. The computer-readable medium of claim 19 wherein the form suitable for the second programming language prevents the compiler from generating code to scatter the parameter.