Changeset 36 for trunk/examples/fermi_fortran/fermi_example.f

Timestamp:

Aug 11, 2005 11:15:45 AM (19 years ago)

Author:

dkearney

Message:

added multiple plots on same graph to example
added <about> tags for labels in tool.xml

File:

• trunk/examples/fermi_fortran/fermi_example.f (modified) (3 diffs)

trunk/examples/fermi_fortran/fermi_example.f

@@ -8 +8 @@
             
             CHARACTER*100 inFile, outFile
-            character*100 T_path, Ef_path, outPath
+            character*100 T_path, Ef_path, outPath, outPath2,outPath3
             character*40 xy
             integer handle
@@ -50 +50 @@
  15         continue
 
+            outPath = "output.curve(f13).about.group"
+            call rp_lib_put_str(handle,outPath,"group1",1)
             outPath = "output.curve(f13).xaxis.label"
             call rp_lib_put_str(handle,outPath,"f13 x label",1)
@@ -57 +59 @@
             outPath = "output.curve(f13).component.xy"
 
+            outPath2 = "output.curve(f14).about.group"
+            call rp_lib_put_str(handle,outPath2,"group1",1)
+            outPath2 = "output.curve(f14).component.xy"
+
+            outPath3 = "output.curve(f15).about.group"
+            call rp_lib_put_str(handle,outPath3,"group1",1)
+            outPath3 = "output.curve(f15).component.xy"
+
             do 16,E = Emin,Emax,dE
                 f = -1.0/(1.0+exp((E-Ef)/kT))
                 write(xy,'(E20.12,F13.9,A)')f,E,char(10)
                 call rp_lib_put_str(handle,outPath,xy,1)
+                f = -4.0/(1.0+exp((E-Ef)/kT))
+                write(xy,'(E20.12,F13.9,A)')f,E,char(10)
+                call rp_lib_put_str(handle,outPath2,xy,1)
+                f = 1.0/(1.0+exp((E-Ef)/kT))
+                write(xy,'(E20.12,F13.9,A)')f,E,char(10)
+                call rp_lib_put_str(handle,outPath3,xy,1)
  16         continue