include file: TYPOCALL 31
*IF DEF,OCEAN                                                              TYPOCALL.2      
*CALL TYPOCFLW                                                             TYPOCALL.3      
*CALL TYPOCONE                                                             TYPOCALL.4      
*CALL TYPOCFLD                                                             TYPOCALL.5      
*CALL TYPOCFIL                                                             TYPOCALL.6      
*CALL TYPOCMEA                                                             TYPOCALL.7      
*CALL TYPOCAC                                                              TYPOCALL.8      
*CALL TYPOCBIO                                                             NT080993.22     
*ENDIF                                                                     TYPOCALL.9