DEFINITION MODULE FirstCoeffP;

  (*******************************************************************

    Module  FirstCoeffP      (Version 1.0)

              Copyright (c) 1993 by Heike Lischke and Swiss
              Federal Institute of Technology Zźrich ETHZ

     References to equations, figures and tables in the comments
     refer to:              
              
        !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!      
              Lischke, H., Loeffler, T.J., Fischlin, A.:
              Calculating temperature dependence over long time periods:
              Derivation of methods. Ecol. Modelling, in press.
              
              PLEASE cite this paper when you use these algorithms!
        !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!        Purpose (*.  purpose  .*)
              
      Remarks (*.  remarks.  .*)
              
      Programming

          o Design
              H. Lischke         8/26/93

          o Implementation
              H. Lischke         8/26/93

              
          Swiss Federal Institute of Technology Zurich ETHZ
          CH-8952 Schlieren/Zurich
          Switzerland

          Last revision of definition:  8/26/93  HL
  *******************************************************************)

TYPE coeffArray=ARRAY[0..4],[-1..3] OF REAL;

 
(*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&*)
(*&&  Coefficients xi of matrix eq. A.3.8                   *)
(*     needed in equation A.3.12                            *)
(*&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&*)
PROCEDURE CalculateCoefficients( muT,sT,muAmpl,sAmpl,gr, 
                   k1,k2,fi, di,dip1,alpha :REAL;
                   VAR coeff: coeffArray); 
 END FirstCoeffP.
       