Calling UCVM With Fortran - Revision history

Davidgil: Undo revision 16775 by Davidgil (talk)

2016-06-22T23:46:55Z

Undo revision 16775 by Davidgil (talk)

Show changes

Davidgil: /* Example Code */

2016-06-22T23:46:02Z

Example Code

Show changes

Davidgil: /* Calling UCVM With Fortran */

2013-09-10T15:45:57Z

Calling UCVM With Fortran

← Older revision		Revision as of 15:45, 10 September 2013
Line 9:		Line 9:
	As an example, suppose we have a Fortran file, example.f, that calls UCVM. We have compiled UCVM with CVM-S and CVM-H. The code to compile example.f would be as follows:		As an example, suppose we have a Fortran file, example.f, that calls UCVM. We have compiled UCVM with CVM-S and CVM-H. The code to compile example.f would be as follows:

	gfortran example.f -o ./example -L./ucvm-12.2.0/inst/lib -L./cvms/lib -L./cvmh-11.9.1/inst/lib -L./proj-4.7.0/inst/lib -L./euclid3-1.3/libsrc -lucvm -lcvms -lvxapi -lgeo -lproj -letree -fno-underscoring		gfortran example.f -o ./example -L./ucvm-13.9.0/inst/lib -L./cvms/lib -L./cvmh-11.9.1/inst/lib -L./proj-4.8.0/inst/lib -L./euclid3-1.3/libsrc -lucvm -lcvms -lvxapi -lgeo -lproj -letree -fno-underscoring

	The basic structure of how to call UCVM within Fortran is outlined in the example below.		The basic structure of how to call UCVM within Fortran is outlined in the example below.

Davidgil: /* Example Code */

2013-07-02T06:01:43Z

Example Code

← Older revision		Revision as of 06:01, 2 July 2013
Line 19:		Line 19:

	c UCVM Configuration Location		c UCVM Configuration Location
	CHARACTER(LEN=32) ucvmconf		CHARACTER(LEN=80) ucvmconf
	c Model Name		c Model Name
	CHARACTER(LEN=4) model		CHARACTER(LEN=4) model

Davidgil: /* Example Code */

2013-07-02T05:59:33Z

Example Code

← Older revision		Revision as of 05:59, 2 July 2013
Line 75:		Line 75:

	c Where is our configuration file?		c Where is our configuration file?
	ucvmconf = "/home/scec-01/davidgil/ucvm.conf"		ucvmconf = "/home/scec-01/davidgil/ucvm.conf" // CHAR(0)

	c What model are we querying?		c What model are we querying?

Davidgil: /* Calling UCVM From Fortran */

2013-06-20T22:51:34Z

Calling UCVM From Fortran

← Older revision		Revision as of 22:51, 20 June 2013
Line 1:		Line 1:
	== Calling UCVM ~~From~~ Fortran==		== Calling UCVM With Fortran==

	Calling		Calling UCVM using Fortran is a relatively trivial procedure. In order to do so, you must install [http://scec.usc.edu/scecpedia/UCVM_User_Guide UCVM] as per the guide, including the etree and Proj.4 libraries. It is also necessary to download and install any community velocity models that you will be calling. UCVM requires those velocity models to be added to a configuration file so that they can be referenced within the application.

			Once that initial set up is done, compiling and linking with gfortran is easy. You must include the UCVM library, the Proj.4 library, the e-tree library, as well as any velocity model libraries that you have compiled into UCVM. For CVM-H, please note that there are actually two libraries required: lvxapi and lgeo.

			Because the default convention for calling C programs from Fortran automatically appends an underscore to the end of the function name, you must turn that off via a flag called "fno-underscoring". This will make the Fortran compiler try and find foo() instead of foo_().

			As an example, suppose we have a Fortran file, example.f, that calls UCVM. We have compiled UCVM with CVM-S and CVM-H. The code to compile example.f would be as follows:

			gfortran example.f -o ./example -L./ucvm-12.2.0/inst/lib -L./cvms/lib -L./cvmh-11.9.1/inst/lib -L./proj-4.7.0/inst/lib -L./euclid3-1.3/libsrc -lucvm -lcvms -lvxapi -lgeo -lproj -letree -fno-underscoring

			The basic structure of how to call UCVM within Fortran is outlined in the example below.

	== Example Code ==		== Example Code ==

Davidgil: /* Calling UCVM */

2013-06-20T22:39:59Z

Calling UCVM

← Older revision		Revision as of 22:39, 20 June 2013
Line 1:		Line 1:
	== Calling UCVM ==		== Calling UCVM From Fortran==

			Calling

	== Example Code ==		== Example Code ==

Davidgil: /* Example Code */

2013-06-20T22:39:28Z

Example Code

← Older revision		Revision as of 22:39, 20 June 2013
Line 60:		Line 60:
	point(i)%coord(2) = 34		point(i)%coord(2) = 34
	point(i)%coord(3) = (i - 1) * 1000		point(i)%coord(3) = (i - 1) * 1000
	10 continue		10 continue

	c Where is our configuration file?		c Where is our configuration file?

Davidgil: /* Example Code */

2013-06-20T22:39:18Z

Example Code

← Older revision		Revision as of 22:39, 20 June 2013
Line 60:		Line 60:
	point(i)%coord(2) = 34		point(i)%coord(2) = 34
	point(i)%coord(3) = (i - 1) * 1000		point(i)%coord(3) = (i - 1) * 1000
	10 continue		10 continue

	c Where is our configuration file?		c Where is our configuration file?

Davidgil: /* Example Code */

2013-06-20T22:39:05Z

Example Code

← Older revision		Revision as of 22:39, 20 June 2013
Line 59:		Line 59:
	point(i)%coord(1) = -118		point(i)%coord(1) = -118
	point(i)%coord(2) = 34		point(i)%coord(2) = 34
	10 point(i)%coord(3) = (i - 1) * 1000		point(i)%coord(3) = (i - 1) * 1000
			10 continue

	c Where is our configuration file?		c Where is our configuration file?