Modules Interface Declaration Example

Consider the following module containing procedure interfaces:

    MODULE my_interfaces
     INTERFACE
      SUBROUTINE sub1(A,B,C)
       ... ! etc
      END SUBROUTINE sub1
      SUBROUTINE sub2(time,dist)
       ... ! etc
      END SUBROUTINE sub2
     END INTERFACE
    END MODULE my_interfaces

    PROGRAM use_of_module
     USE my_interfaces
     CALL sub1((/1.0,3.14,0.57/),2,'Yobot')
     CALL sub2(t,d)
    END PROGRAM use_of_module
    SUBROUTINE sub1(A,B,C)
      ...
    END SUBROUTINE sub1
    SUBROUTINE sub2(time,dist)
      ...
    END SUBROUTINE sub2

The module containing the interfaces is used in the main program.

For more information, click here