TEXT(Extended Boussinesq  Option 
    79 start of ....extbouss
BUOYOPT=GRND4;CASE4=T
GRAVACC=BUOYA
IF(IBUOYB.EQ.0) THEN
 MESG(Set ibuoyb for this option, please
 READVDU(IBUOYB,INT,0)
 IBUOYB
ENDIF
IF(IBUOYC.EQ.0) THEN
 MESG(Set ibuoyc for this option, please
 READVDU(ibuoyc,int,0)
 IBUOYC
ENDIF
 
ENDIF
#BUOY
    79 end of ....extbouss