00001 00002 00003 interface 00004 00005 subroutine controlPointTimingStamp() 00006 end subroutine 00007 00008 subroutine gotoNextPhase() 00009 end subroutine 00010 00011 00012 subroutine setFrameworkAdvancePhaseF(value) 00013 integer*4 value 00014 end subroutine 00015 00016 00017 integer function controlPoint(lb, ub) 00018 integer*4 :: lb 00019 integer*4 :: ub 00020 end function 00021 00022 00023 00024 end interface 00025
1.5.5