JSOC/proj/vfisv/apps/inv_init.f90 - view

Return to inv_init.f90 CVS log

Up to [Development] / JSOC / proj / vfisv / apps

File: [Development] / JSOC / proj / vfisv / apps / inv_init.f90 (download)
Revision: 1.5, Tue Apr 10 21:16:54 2012 UTC (11 years, 1 month ago) by keiji
Branch: MAIN
CVS Tags: Ver_LATEST, Ver_9-5, Ver_9-41, Ver_9-4, Ver_9-3, Ver_9-2, Ver_9-1, Ver_9-0, Ver_8-8, Ver_8-7, Ver_8-6, Ver_8-5, Ver_8-4, Ver_8-3, Ver_8-2, Ver_8-12, Ver_8-11, Ver_8-10, Ver_8-1, Ver_8-0, Ver_7-1, Ver_7-0, Ver_6-4, Ver_6-3, Ver_6-2, HEAD
Changes since 1.4: +2 -3 lines

*** empty log message ***

SUBROUTINE INV_INIT (NUM_ITERATIONS, SVD_TOLERANCE, CHI2_STOP, POLARIZATION_THRESHOLD, &
     INTENSITY_THRESHOLD)
  !
  ! J M Borrero
  ! Dec 14, 2009
  ! HAO-NCAR for HMI-Stanford
  !
  USE CONS_PARAM
  USE INV_PARAM
  IMPLICIT NONE
  REAL(DP), INTENT(IN), OPTIONAL :: SVD_TOLERANCE, CHI2_STOP, POLARIZATION_THRESHOLD
  REAL(DP), INTENT(IN), OPTIONAL :: INTENSITY_THRESHOLD
  INTEGER,  INTENT(IN)           :: NUM_ITERATIONS
  !
  ITER=NUM_ITERATIONS
  SVDTOL = SVD_TOLERANCE
  GOODFIT = CHI2_STOP
  TREPOL =  POLARIZATION_THRESHOLD
  TREIC = INTENSITY_THRESHOLD
  !
END SUBROUTINE INV_INIT
!CVSVERSIONINFO "$Id: inv_init.f90,v 1.5 2012/04/10 22:16:54 keiji Exp $"

Karen Tian