From cf143badad8c7a64d1011437fdf276a1251ca233 Mon Sep 17 00:00:00 2001
From: capdevil <>
Date: Fri, 15 Mar 2013 16:11:08 +0000
Subject: [PATCH] minor
---
Changlog | 1 +
doc/modeslib_doc.tex | 3 ++-
examples/classic/receivers.dat | 2 +-
examples/classic/sources.dat | 2 +-
nms/global_main.f90 | 1 +
5 files changed, 6 insertions(+), 3 deletions(-)
diff --git a/Changlog b/Changlog
index cf7d693..4706930 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 21eb2bc..45f3fd6 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 33711d2..5fbdd8e 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 f325091..c5441df 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 283ae8f..bc378d6 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
--
GitLab