diff --git a/Changlog b/Changlog index cf7d693d0d09870b773338176379973a317ac0e8..470693095135917bed149ee1ce0bfcbc0423b4df 100644 --- a/Changlog +++ b/Changlog @@ -71,3 +71,4 @@ now working on version 0.4 15/03/13 tagging rel=0=6 before merging with modlib_layer 15/03/13 merging and doc upgrade done 15/03/13 qq modifs pour gfortran +15/03/13**********************tagging rel-1-0 before release diff --git a/doc/modeslib_doc.tex b/doc/modeslib_doc.tex index 21eb2bc0cdcddd03b1a0359de2d37f27e5a3fe72..45f3fd65d046b45c5048da4dbdfb3997845d28a2 100644 --- a/doc/modeslib_doc.tex +++ b/doc/modeslib_doc.tex @@ -427,7 +427,8 @@ coordinate (see Dahlen and Tromp, p603)? \item line 21 and 23: eigenmode catalog prefix output of minosy for spheroidal and toroidal modes respectively. \item line 26: most users will use a moment tensor source: put F. - If you need a vector source force, put T. In the last case + If you need a vector source force, put T (somehow, I'm not + completely sure that the sign of the result will be correct). In the last case the Mrr, Mtt and Mpp of the sources.dat file will be used for the Fr,Ft,Fp component of the vector force. \item line 28: output channel 1: displacement, 2: velocity 3: diff --git a/examples/classic/receivers.dat b/examples/classic/receivers.dat index 33711d22c2a46bffc8c8731c3e86957de03bf96b..5fbdd8e1b7d31460ae26740b610da77fbbc9e675 100644 --- a/examples/classic/receivers.dat +++ b/examples/classic/receivers.dat @@ -1,5 +1,5 @@ #number of receivers" - 1 + 11 #name (4 characters), latitude, longitude in degrees 109C 32.889 -117.105 _AAK 42.639 74.494 diff --git a/examples/classic/sources.dat b/examples/classic/sources.dat index f32509119704f907e6475901724e776de0d3d547..c5441df39cbcf1fa0256038fb6b068c4c0ca06fc 100644 --- a/examples/classic/sources.dat +++ b/examples/classic/sources.dat @@ -3,4 +3,4 @@ # stacking them (.true.) or not (.false.): .false. #n name Mrr, Mtt, Mpp, Mrt, Mrp, Mtp, dep, lat, phi hdurat delay(s) -01 M012601A 1.04e+19 -0.43e+19 -0.61e+19 2.98e+19 -2.40e+19 0.43e+19 10.00 03.30 095.94 000.00 000.00 +01 M012601A 1.04e+19 -0.43e+19 -0.61e+19 2.98e+19 -2.40e+19 0.43e+19 10.00 03.30 095.94 000.00 000.00 diff --git a/nms/global_main.f90 b/nms/global_main.f90 index 283ae8fcf655e96253c3c54233fdcf5c6a119c52..bc378d6f97baf8fb171c4dcc8855c040c7a4b779 100644 --- a/nms/global_main.f90 +++ b/nms/global_main.f90 @@ -537,6 +537,7 @@ contains subroutine load_station_response() implicit none character(len=12) :: name,ctmp + character(len=8) :: ctmp8 integer :: NBZmax,NBPmax complex*16 :: bid real :: a,b