[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: thermal expansion

• Subject: Re: thermal expansion
• From: "Paul D. Boyle" <[email protected]>
• Date: Mon, 25 Mar 2002 15:06:04 GMT

Kristin wrote:
> Thanks Paul - I can handle that attempt:
> I am sending it through the list in case someone else is interested.

[snip]

> C
> C
> C     ALPHA.FOR   11.90
> C
> C
> C     MINERALOGICAL INSTITUTE            DEPARTMENT OF CRYSTALLOGRAPHY
> C     UNIVERSITY OF KIEL                 JESSEN,KUEPPERS
> C     GERMANY                            (1989)
> C
> C #################################################################

Thanks.  The code didn't compile on my Linux box using either g77 or
f2c/gcc combination.  The problem, however is easily fixed.  One just
needs to declare the variable 'TEXT' as CHARACTER*4.  A simple patch is
supplied below.


--- alpha_orig.f	Mon Mar 25 09:33:38 2002
+++ alpha.f	Mon Mar 25 09:57:07 2002
@@ -88,6 +88,7 @@
      5          ,VA(3),VN(3),DW(3),DZ(3,3),DVA(3)
      6          ,DVN(3),SW(3),SZ(3,3),SVA(3),SVN(3),TITL(20)
       REAL LSG
+      CHARACTER*4 TEXT
       READ(51,87)TITL
       WRITE(53,86)TITL
       READ(51,89)NT   ,I2T  ,NR   ,IPOL ,ICRYS,IFIT

This patch got the code to compile, but at the present time I have no
need (or data for that matter) to test the correctness of the program.
I leave that to others.

Paul

__
Paul D. Boyle			    |	[email protected]
Director, X-ray Structural Facility |	phone: (919) 515-7362
Department of Chemistry - Box 8204  |	FAX:   (919) 515-5079
North Carolina State University     | 
Raleigh, NC, 27695-8204
http://laue.chem.ncsu.edu/web/xray.welcome.html

Reply to: [list | sender only]

• Prev by Date: Re: thermal expansion
• Next by Date: Application has been accepted
• Prev by thread: Re: thermal expansion
• Next by thread: Summer School on Electron Crystallography and Tomography
• Index(es):
  • Date
  • Thread