"LAMPLITE" has a reformulation of the standared LAMP interface.

The LAMP calculation is all done in FORTRAN.
There are two FORTRAN subroutines which are called.

 subroutine InitializeLAMP(nstep0,uship0,icntrl0,ierr0)
 - reads the LAMP input file named "lamp.in" and sets up the LAMP 
   calculation, and returns certain LAMP parameters which may be useful
   for setting up the simulation/visualization
  integer nstep0 - number of time steps it the simulation (I use this for
             allocating motion data arrays
  real uship0 - nominal steady forward speed of the ship (I use this for
             setting up view tracking
  integer icntrl0 - a flag for whether LAMP's crane  & cargo model is enabled:
           = -10   - no crane and cargo model
           =   1   - crane and cargo model active, using internally specified
                     control
           =   2   - crane and cargo model active, using externally specified
                     slew, luff, and cable extension rates
  integer ierr0 - LAMP setup success flag
           = 0     - LAMP setup succeeded
           = 1     - LAMP setup succeeded


 subroutine AdvanceLAMP(istep0,time0,motion0,
     *   slew_rate0,luff_rate0,extn_rate0,motion1,npgt0,xpgt0)
 advances the LAMP calculation from time step istep0-1 to istep0 - it should
 only be called when a new time step needs to be computed.
  integer istep0  - LAMP time step index, starts with 1, ends with NSTEP
  real time0   - time value (returned)
  real motion0(6) - ship motion vector - as in motion files previously 
      specified (returned)
  real slew_rate0, luff_rate0 extn_rate0 - commanded slew, luff, and cable
     extension rates for the crane model - normalized by maximum rate 
     as -1.0 to 1.0  (used if icntrl0=2) - the value passed into AdvanceLAMP
     can come from some interactive control in the simulator.   The actual
     instantaneous rate for each quantitty (LAMP's crane model has
     limits accleration and boom angles/cable length is returned.
  real motion1(6) - motion vector of cargo (WRT attachment point)
  integer npgt0   - number of points in boom/cable geometry list
  real xpgt0(4,npgt0) - points (x,y,z,draw) in boom/cable geometry list