Changeset 770


Ignore:
Timestamp:
Oct 2, 2012 9:31:13 AM (9 years ago)
Author:
vondreele
Message:

defin e variables in fellipse.for

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/fellipse.for

    r261 r770  
    7070      PARAMETER (NPAR=5)
    7171C
    72       REAL*4 A(NMAX,NPAR), B(NMAX)
     72      INTEGER*4 NMAX,KRANK
     73      REAL*4 A(NMAX,NPAR), B(NMAX),TAU, RNORM
    7374      REAL*8 X(NMAX), Y(NMAX)
    7475C
     
    106107C     SOLVE LEAST SQUARES PROBLEM USING ALGORITHM HFTI.
    107108C
     109      INTEGER*4 MDA,M,N,MDB,NB,KRANK,H
     110      REAL*4 A,B,TAU,RNORM,G
    108111      DIMENSION A(MDA,N),B(MDB,NB),H(N),G(N),RNORM(NB)
    109112      INTEGER IP(N)
     
    266269C
    267270      SUBROUTINE H12 (MODE,LPIVOT,L1,M,U,IUE,UP,C,ICE,ICV,NCV)
     271      INTEGER*4 MODE,LPIVOT,L1,M,IUE,ICE,ICV,NCV
     272      REAL*4 U,UP,C,X,Y
    268273      DIMENSION U(IUE,M),C(*)
    269274      DOUBLE PRECISION SM,B
     
    322327C     C.L.LAWSON & R.J.HANSON, JET PROPULSION LABORATORY, 1973 JUNE 7
    323328C     TO APPEAR IN 'SOLVING LEAST SQUARES PROBLEMS', PRENTICE-HALL, 1974
     329      REAL X,Y
    324330      DIFF = X-Y
    325331      RETURN
Note: See TracChangeset for help on using the changeset viewer.