08/04/10 00:47:43
>>240
1.
PROGRAM f90
IMPLICIT NONE....
EXTERNAL f77noName....
....
CALL f77noName...
...
2.
PROGRAM f90
IMPLICIT NONE
INTERFACE
SUBROUTINE f77... 云々
END INTERFACE
MODULE unko
CONTAINS
subroutine f77(....)
.....
end
END MODULE unko
PROGRAM homosexual
USE unko
IMPLICIT NONE
CALL f77(....)
END