Changeset 978 for trunk/fsource/mcsasubs/DOLLASE.FOR

Timestamp:

Jul 2, 2013 11:00:46 AM (12 years ago)

Author:

vondreele

Message:

make MC/SA fortran stuff all REAL*8
add glFreeType.py - doesn't work correctly yet
implement glFreeType font in OpenGl? labels
add new menu items for RBs
MCSA anneal in a test mode no random start for fixed T0

File:

• trunk/fsource/mcsasubs/DOLLASE.FOR (modified) (2 diffs)

trunk/fsource/mcsasubs/DOLLASE.FOR ¶

@@ -9 +9 @@
 !CALLING ARGUMENTS:
 
-      REAL*4        CA                  !Cos(alpha)**2
-      REAL*4        RAT                 !PO ellipsoid axis ratio
-      REAL*4        CORR                !March-Dollase function
+      REAL*8        CA                  !Cos(alpha)**2
+      REAL*8        RAT                 !PO ellipsoid axis ratio
+      REAL*8        CORR                !March-Dollase function
 
 !INCLUDE STATEMENTS:
@@ -17 +17 @@
 !LOCAL VARIABLES:
 
-      REAL*4        SA                  !Sin(alpha)**2
-      REAL*4        A                   !Intermediate value
+      REAL*8        SA                  !Sin(alpha)**2
+      REAL*8        A                   !Intermediate value
 
 !SUBROUTINES CALLED: