[cig-commits] r19001 - in seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER: . in_data_files src/check_mesh_quality_CUBIT_Abaqus src/decompose_mesh_SCOTCH src/generate_databases src/meshfem3D src/shared src/specfem3D
danielpeter at geodynamics.org
danielpeter at geodynamics.org
Mon Oct 3 17:04:34 PDT 2011
Author: danielpeter
Date: 2011-10-03 17:04:33 -0700 (Mon, 03 Oct 2011)
New Revision: 19001
Removed:
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/Makefile
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/bin/
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.h
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.log
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.status
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/CMTSOLUTION
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/Par_file
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/STATIONS
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/obj/
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/output
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/check_mesh_quality_CUBIT_Abaqus/Makefile
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/check_mesh_quality_CUBIT_Abaqus/constants.h
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/Makefile
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/decompose_mesh_scotch.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/part_decompose_mesh_scotch.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/scotch_5.1.10b/
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/scotch_5.1.11/
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/Makefile
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/create_regions_mesh_ext_par.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/external_model.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/generate_databases_par.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/tomography.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/Makefile
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/constants.h
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/createregmesh.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/precision.h
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/readparfile.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/shared/constants.h
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/shared/precision.h
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile.in.cpy
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile~
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_add_sources_cuda.cu~
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_forces_elastic_cuda.cu~
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_kernels_cuda.cu~
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_stacey_elastic_cuda.cu~
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/constants.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/image_pnm_gif_par.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/mesh_constants_cuda.h~
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/noise_tomography_cuda.cu~
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/pml_par.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/pml_par_acoustic.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/prepare_mesh_constants_cuda.cu~
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_acoustic.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_elastic.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_movie.mod
seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_poroelastic.mod
Log:
cleans up compilation files
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/Makefile
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/Makefile 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/Makefile 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,177 +0,0 @@
-#=====================================================================
-#
-# S p e c f e m 3 D V e r s i o n 2 . 0
-# ---------------------------------------
-#
-# Main authors: Dimitri Komatitsch and Jeroen Tromp
-# Princeton University, USA and University of Pau / CNRS / INRIA
-# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-# April 2011
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-#
-#=====================================================================
-#
-# United States Government Sponsorship Acknowledged.
-#
-
-# Makefile. Generated from Makefile.in by configure.
-
-FC = mpif90
-FCFLAGS = #-g -O2
-MPIFC = mpif90
-MPILIBS =
-FLAGS_CHECK =
-FLAGS_NO_CHECK =
-FCFLAGS_f90 =
-
-FCCOMPILE_CHECK = ${FC} ${FCFLAGS} $(FLAGS_CHECK)
-FCCOMPILE_NO_CHECK = ${FC} ${FCFLAGS} $(FLAGS_NO_CHECK)
-MPIFCCOMPILE_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_CHECK)
-MPIFCCOMPILE_NO_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_NO_CHECK)
-FCLINK = $(MPIFCCOMPILE_NO_CHECK)
-#FCLINK = $(FCCOMPILE_NO_CHECK)
-
-CC = gcc
-CFLAGS = -g -O2 $(CPPFLAGS)
-CPPFLAGS = -I/usr/include/scotch $(COND_MPI_CPPFLAGS)
-COND_MPI_CPPFLAGS = -DWITH_MPI
-#COND_MPI_CPPFLAGS =
-
-AR = ar
-ARFLAGS = cru
-RANLIB = ranlib
-
-##.PHONY: clean default all backup bak generate_databases specfem3D meshfem3D
-
-####
-#### targets
-####
-
-# default targets for the pure Fortran version
-DEFAULT = \
- xdecompose_mesh_SCOTCH \
- meshfem3D \
- generate_databases \
- specfem3D \
- $(EMPTY_MACRO)
-
-# combine_vol_data \
-# combine_surf_data \
-# convolve_source_timefunction \
-# smooth_vol_data \
-
-default: $(DEFAULT)
-
-all: default
-
-required: bin lib obj
-
-backup:
- cp -rp src in_data_files Makefile go_generate_databases* go_mesher* go_solver* mymachines bak
-
-bak: backup
-
-mesh : meshfem3D
-gen : generate_databases
-spec : specfem3D
-dec : decompose_mesh_SCOTCH
-
-generate_databases: xgenerate_databases
-specfem3D: xspecfem3D
-meshfem3D: xmeshfem3D
-decompose_mesh_SCOTCH: xdecompose_mesh_SCOTCH
-convolve_source_timefunction: xconvolve_source_timefunction
-create_movie_shakemap_AVS_DX_GMT: xcreate_movie_shakemap_AVS_DX_GMT
-combine_vol_data: xcombine_vol_data
-combine_surf_data: xcombine_surf_data
-smooth_vol_data: xsmooth_vol_data
-check_mesh_quality_CUBIT_Abaqus: xcheck_mesh_quality_CUBIT_Abaqus
-
-bin:
- mkdir -p bin
-
-lib:
- mkdir -p lib
-
-obj:
- mkdir -p obj
-
-reqmesh:
- (cd obj; mkdir -p mesh)
-
-reqspec:
- (cd obj; mkdir -p spec)
-
-reqdec:
- (cd obj; mkdir -p dec)
-
-reqgen :
- (cd obj; mkdir -p gen)
-
-reqche :
- (cd obj; mkdir -p che)
-
-xmeshfem3D: required reqmesh
- (cd src/meshfem3D; make)
-
-xspecfem3D: required reqspec
- (cd src/specfem3D; make specfem3D)
-
-xgenerate_databases: required reqgen
- (cd src/generate_databases ; make generate_databases)
-
-xdecompose_mesh_SCOTCH: required reqdec
- (cd src/decompose_mesh_SCOTCH ; make)
-
-xcreate_movie_shakemap_AVS_DX_GMT: required
- (cd src/specfem3D ; make xcreate_movie_shakemap_AVS_DX_GMT)
-
-xcombine_vol_data: required
- (cd src/specfem3D ; make xcombine_vol_data)
-
-xcombine_surf_data: required
- (cd src/specfem3D ; make xcombine_surf_data)
-
-xconvolve_source_timefunction: required
- (cd src/specfem3D ; make xconvolve_source_timefunction)
-
-xsmooth_vol_data: required
- (cd src/specfem3D ; make xsmooth_vol_data)
-
-xcheck_mesh_quality_CUBIT_Abaqus: required reqche
- (cd src/check_mesh_quality_CUBIT_Abaqus ; make)
-
-
-clean: required
- (rm -rf bin lib obj src/meshfem3D/*.mod src/generate_databases/*.mod src/specfem3D/*.mod)
-
-
-help:
- @echo "usage: make [executable]"
- @echo ""
- @echo "supported executables:"
- @echo " xgenerate_databases"
- @echo " xspecfem3D"
- @echo " xmeshfem3D"
- @echo " xdecompose_mesh_SCOTCH"
- @echo " xconvolve_source_timefunction"
- @echo " xcreate_movie_shakemap_AVS_DX_GMT"
- @echo " xcombine_vol_data"
- @echo " xcombine_surf_data"
- @echo " xsmooth_vol_data"
- @echo " xcheck_mesh_quality_CUBIT_Abaqus"
- @echo ""
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.h
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.h 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.h 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,56 +0,0 @@
-/* config.h. Generated from config.h.in by configure. */
-/* config.h.in. Generated from configure.ac by autoheader. */
-
-/* Define to dummy `main' function (if any) required to link to the Fortran
- libraries. */
-/* #undef FC_DUMMY_MAIN */
-
-/* Define if F77 and FC dummy `main' functions are identical. */
-/* #undef FC_DUMMY_MAIN_EQ_F77 */
-
-/* Define to a macro mangling the given C identifier (in lower and upper
- case), which must not contain underscores, for linking with Fortran. */
-#define FC_FUNC(name,NAME) name ## _
-
-/* As FC_FUNC, but for C identifiers containing underscores. */
-#define FC_FUNC_(name,NAME) name ## _
-
-/* Define to alternate name for `main' routine that is called from a `main' in
- the Fortran libraries. */
-/* #undef FC_MAIN */
-
-/* Define if you have POSIX threads libraries and header files. */
-/* #undef HAVE_PTHREAD */
-
-/* defined if Scotch is installed */
-#define HAVE_SCOTCH 1
-
-/* Define to the address where bug reports for this package should be sent. */
-#define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-
-/* Define to the full name of this package. */
-#define PACKAGE_NAME "Specfem 3D"
-
-/* Define to the full name and version of this package. */
-#define PACKAGE_STRING "Specfem 3D 2.0.1"
-
-/* Define to the one symbol short name of this package. */
-#define PACKAGE_TARNAME "Specfem3D"
-
-/* Define to the home page for this package. */
-#define PACKAGE_URL ""
-
-/* Define to the version of this package. */
-#define PACKAGE_VERSION "2.0.1"
-
-/* Define to necessary symbol if this constant uses a non-standard name on
- your system. */
-/* #undef PTHREAD_CREATE_JOINABLE */
-
-/* Define to 1 if `lex' declares `yytext' as a `char *' by default, not a
- `char[]'. */
-/* #undef YYTEXT_POINTER */
-
-/* Uncomment and define to select optimized file i/o for regional simulations */
-/* map fails when output files are > 4GB, which is often the case for GPU simulations */
-// #define USE_MAP_FUNCTION
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.log
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.log 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.log 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,9430 +0,0 @@
-This file contains any messages produced by compilers while
-running configure, to aid debugging if configure makes a mistake.
-
-It was created by Specfem 3D test_conf 2.0.1, which was
-generated by GNU Autoconf 2.65. Invocation command line was
-
- $ ./test_conf MPIFC=mpif90 FC=mpif90 CUDA_LIB=-L/usr/local/cuda/lib64/ MPI_INC=-I/usr/include/mpich2/ --with-cuda CUDA_INC=-I/usr/local/cuda/include
-
-## --------- ##
-## Platform. ##
-## --------- ##
-
-hostname = beverly
-uname -m = x86_64
-uname -r = 2.6.32-32-generic
-uname -s = Linux
-uname -v = #62-Ubuntu SMP Wed Apr 20 21:52:38 UTC 2011
-
-/usr/bin/uname -p = unknown
-/bin/uname -X = unknown
-
-/bin/arch = unknown
-/usr/bin/arch -k = unknown
-/usr/convex/getsysinfo = unknown
-/usr/bin/hostinfo = unknown
-/bin/machine = unknown
-/usr/bin/oslevel = unknown
-/bin/universe = unknown
-
-PATH: /home/riethmann/bin
-PATH: /usr/local/sbin
-PATH: /usr/local/bin
-PATH: /usr/sbin
-PATH: /usr/bin
-PATH: /sbin
-PATH: /bin
-PATH: /usr/games
-PATH: /opt/jdk1.7.0/bin
-PATH: /home/riethmann/bin
-PATH: /usr/local/cuda/bin
-PATH: /opt/apache-maven-3.0.3/bin
-PATH: /opt/jdk1.7.0/bin
-
-
-## ----------- ##
-## Core tests. ##
-## ----------- ##
-
-test_conf:2769: checking for Fortran compiler version
-test_conf:2778: mpif90 --version >&5
-GNU Fortran (Ubuntu 4.4.3-4ubuntu5) 4.4.3
-Copyright (C) 2010 Free Software Foundation, Inc.
-
-GNU Fortran comes with NO WARRANTY, to the extent permitted by law.
-You may redistribute copies of GNU Fortran
-under the terms of the GNU General Public License.
-For more information about these matters, see the file named COPYING
-
-test_conf:2789: $? = 0
-test_conf:2778: mpif90 -v >&5
-Using built-in specs.
-Target: x86_64-linux-gnu
-Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.4.3-4ubuntu5' --with-bugurl=file:///usr/share/doc/gcc-4.4/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --enable-multiarch --enable-linker-build-id --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.4 --program-suffix=-4.4 --enable-nls --enable-clocale=gnu --enable-libstdcxx-debug --enable-plugin --enable-objc-gc --disable-werror --with-arch-32=i486 --with-tune=generic --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu
-Thread model: posix
-gcc version 4.4.3 (Ubuntu 4.4.3-4ubuntu5)
-test_conf:2789: $? = 0
-test_conf:2778: mpif90 -V >&5
-gfortran: '-V' option must have argument
-test_conf:2789: $? = 1
-test_conf:2778: mpif90 -qversion >&5
-gfortran: unrecognized option '-qversion'
-gfortran: no input files
-test_conf:2789: $? = 1
-test_conf:2804: checking whether the Fortran compiler works
-test_conf:2826: mpif90 conftest.f >&5
-test_conf:2830: $? = 0
-test_conf:2879: result: yes
-test_conf:2882: checking for Fortran compiler default output file name
-test_conf:2884: result: a.out
-test_conf:2890: checking for suffix of executables
-test_conf:2897: mpif90 -o conftest conftest.f >&5
-test_conf:2901: $? = 0
-test_conf:2923: result:
-test_conf:2939: checking whether we are cross compiling
-test_conf:2947: mpif90 -o conftest conftest.f >&5
-test_conf:2951: $? = 0
-test_conf:2958: ./conftest
-test_conf:2962: $? = 0
-test_conf:2977: result: no
-test_conf:2982: checking for suffix of object files
-test_conf:2998: mpif90 -c conftest.f >&5
-test_conf:3002: $? = 0
-test_conf:3023: result: o
-test_conf:3031: checking whether we are using the GNU Fortran compiler
-test_conf:3044: mpif90 -c conftest.F >&5
-test_conf:3044: $? = 0
-test_conf:3053: result: yes
-test_conf:3059: checking whether mpif90 accepts -g
-test_conf:3070: mpif90 -c -g conftest.f >&5
-test_conf:3070: $? = 0
-test_conf:3078: result: yes
-test_conf:3110: running /bin/bash flags.guess
-test_conf:3121: checking how to get verbose linking output from mpif90
-test_conf:3131: mpif90 -c -g -O2 conftest.f >&5
-test_conf:3131: $? = 0
-test_conf:3149: mpif90 -o conftest -g -O2 -v conftest.f
-Using built-in specs.
-Target: x86_64-linux-gnu
-Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.4.3-4ubuntu5' --with-bugurl=file:///usr/share/doc/gcc-4.4/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --enable-multiarch --enable-linker-build-id --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.4 --program-suffix=-4.4 --enable-nls --enable-clocale=gnu --enable-libstdcxx-debug --enable-plugin --enable-objc-gc --disable-werror --with-arch-32=i486 --with-tune=generic --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu
-Thread model: posix
-gcc version 4.4.3 (Ubuntu 4.4.3-4ubuntu5)
- /usr/lib/gcc/x86_64-linux-gnu/4.4.3/f951 conftest.f -ffixed-form -I/usr/lib/openmpi/include -I/usr/lib/openmpi/lib -quiet -dumpbase conftest.f -mtune=generic -auxbase conftest -g -O2 -version -fintrinsic-modules-path /usr/lib/gcc/x86_64-linux-gnu/4.4.3/finclude -o /tmp/cc1vvL5n.s
-GNU Fortran (Ubuntu 4.4.3-4ubuntu5) version 4.4.3 (x86_64-linux-gnu)
- compiled by GNU C version 4.4.3, GMP version 4.3.2, MPFR version 2.4.2-p1.
-GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
-GNU Fortran (Ubuntu 4.4.3-4ubuntu5) version 4.4.3 (x86_64-linux-gnu)
- compiled by GNU C version 4.4.3, GMP version 4.3.2, MPFR version 2.4.2-p1.
-GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
- as -V -Qy -o /tmp/ccYL46qx.o /tmp/cc1vvL5n.s
-GNU assembler version 2.20.1 (x86_64-linux-gnu) using BFD version (GNU Binutils for Ubuntu) 2.20.1-system.20100303
- /usr/lib/gcc/x86_64-linux-gnu/4.4.3/collect2 --build-id --eh-frame-hdr -m elf_x86_64 --hash-style=both -dynamic-linker /lib64/ld-linux-x86-64.so.2 -o conftest -z relro /usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib/crt1.o /usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib/crti.o /usr/lib/gcc/x86_64-linux-gnu/4.4.3/crtbegin.o -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu /tmp/ccYL46qx.o -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl --export-dynamic -lnsl -lutil -lgfortranbegin -lgfortran -lm -ldl -lgfortran -lm -lgcc_s -lgcc -lpthread -lc -lgcc_s -lgcc /usr/lib/gcc/x86_64-linux-gnu/4.4.3/crtend.o /usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib/crtn.o
-test_conf:3214: result: -v
-test_conf:3216: checking for Fortran libraries of mpif90
-test_conf:3239: mpif90 -o conftest -g -O2 -v conftest.f
-Using built-in specs.
-Target: x86_64-linux-gnu
-Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.4.3-4ubuntu5' --with-bugurl=file:///usr/share/doc/gcc-4.4/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --enable-multiarch --enable-linker-build-id --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.4 --program-suffix=-4.4 --enable-nls --enable-clocale=gnu --enable-libstdcxx-debug --enable-plugin --enable-objc-gc --disable-werror --with-arch-32=i486 --with-tune=generic --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu
-Thread model: posix
-gcc version 4.4.3 (Ubuntu 4.4.3-4ubuntu5)
- /usr/lib/gcc/x86_64-linux-gnu/4.4.3/f951 conftest.f -ffixed-form -I/usr/lib/openmpi/include -I/usr/lib/openmpi/lib -quiet -dumpbase conftest.f -mtune=generic -auxbase conftest -g -O2 -version -fintrinsic-modules-path /usr/lib/gcc/x86_64-linux-gnu/4.4.3/finclude -o /tmp/ccBjpT4k.s
-GNU Fortran (Ubuntu 4.4.3-4ubuntu5) version 4.4.3 (x86_64-linux-gnu)
- compiled by GNU C version 4.4.3, GMP version 4.3.2, MPFR version 2.4.2-p1.
-GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
-GNU Fortran (Ubuntu 4.4.3-4ubuntu5) version 4.4.3 (x86_64-linux-gnu)
- compiled by GNU C version 4.4.3, GMP version 4.3.2, MPFR version 2.4.2-p1.
-GGC heuristics: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
- as -V -Qy -o /tmp/cc3PTXyu.o /tmp/ccBjpT4k.s
-GNU assembler version 2.20.1 (x86_64-linux-gnu) using BFD version (GNU Binutils for Ubuntu) 2.20.1-system.20100303
- /usr/lib/gcc/x86_64-linux-gnu/4.4.3/collect2 --build-id --eh-frame-hdr -m elf_x86_64 --hash-style=both -dynamic-linker /lib64/ld-linux-x86-64.so.2 -o conftest -z relro /usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib/crt1.o /usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib/crti.o /usr/lib/gcc/x86_64-linux-gnu/4.4.3/crtbegin.o -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu /tmp/cc3PTXyu.o -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl --export-dynamic -lnsl -lutil -lgfortranbegin -lgfortran -lm -ldl -lgfortran -lm -lgcc_s -lgcc -lpthread -lc -lgcc_s -lgcc /usr/lib/gcc/x86_64-linux-gnu/4.4.3/crtend.o /usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib/crtn.o
-test_conf:3413: result: -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl -lnsl -lutil -lgfortranbegin -lgfortran -lm -lpthread
-test_conf:3472: checking for gcc
-test_conf:3488: found /usr/bin/gcc
-test_conf:3499: result: gcc
-test_conf:3728: checking for C compiler version
-test_conf:3737: gcc --version >&5
-gcc (Ubuntu 4.4.3-4ubuntu5) 4.4.3
-Copyright (C) 2009 Free Software Foundation, Inc.
-This is free software; see the source for copying conditions. There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
-test_conf:3748: $? = 0
-test_conf:3737: gcc -v >&5
-Using built-in specs.
-Target: x86_64-linux-gnu
-Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.4.3-4ubuntu5' --with-bugurl=file:///usr/share/doc/gcc-4.4/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --enable-multiarch --enable-linker-build-id --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.4 --program-suffix=-4.4 --enable-nls --enable-clocale=gnu --enable-libstdcxx-debug --enable-plugin --enable-objc-gc --disable-werror --with-arch-32=i486 --with-tune=generic --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu
-Thread model: posix
-gcc version 4.4.3 (Ubuntu 4.4.3-4ubuntu5)
-test_conf:3748: $? = 0
-test_conf:3737: gcc -V >&5
-gcc: '-V' option must have argument
-test_conf:3748: $? = 1
-test_conf:3737: gcc -qversion >&5
-gcc: unrecognized option '-qversion'
-gcc: no input files
-test_conf:3748: $? = 1
-test_conf:3752: checking whether we are using the GNU C compiler
-test_conf:3779: gcc -c conftest.c >&5
-test_conf:3779: $? = 0
-test_conf:3788: result: yes
-test_conf:3797: checking whether gcc accepts -g
-test_conf:3825: gcc -c -g conftest.c >&5
-test_conf:3825: $? = 0
-test_conf:3882: result: yes
-test_conf:3899: checking for gcc option to accept ISO C89
-test_conf:3971: gcc -c -g -O2 conftest.c >&5
-test_conf:3971: $? = 0
-test_conf:3984: result: none needed
-test_conf:4010: checking for dummy main to link with Fortran libraries
-test_conf:4044: gcc -o conftest -g -O2 conftest.c -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl -lnsl -lutil -lgfortranbegin -lgfortran -lm -lpthread >&5
-test_conf:4044: $? = 0
-test_conf:4089: result: none
-test_conf:4122: checking for Fortran name-mangling scheme
-test_conf:4135: mpif90 -c -g -O2 conftest.f >&5
-test_conf:4135: $? = 0
-test_conf:4176: gcc -o conftest -g -O2 conftest.c cfortran_test.o -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl -lnsl -lutil -lgfortranbegin -lgfortran -lm -lpthread >&5
-/tmp/ccHX1XiK.o: In function `main':
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:28: undefined reference to `foobar'
-collect2: ld returned 1 exit status
-test_conf:4176: $? = 1
-test_conf: failed program was:
-| /* confdefs.h */
-| #define PACKAGE_NAME "Specfem 3D"
-| #define PACKAGE_TARNAME "Specfem3D"
-| #define PACKAGE_VERSION "2.0.1"
-| #define PACKAGE_STRING "Specfem 3D 2.0.1"
-| #define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-| #define PACKAGE_URL ""
-| /* end confdefs.h. */
-|
-| /* Override any GCC internal prototype to avoid an error.
-| Use char because int might match the return type of a GCC
-| builtin and then its argument prototype would still apply. */
-| #ifdef __cplusplus
-| extern "C"
-| #endif
-| char foobar ();
-| #ifdef FC_DUMMY_MAIN
-| #ifndef FC_DUMMY_MAIN_EQ_F77
-| # ifdef __cplusplus
-| extern "C"
-| # endif
-| int FC_DUMMY_MAIN() { return 1; }
-| #endif
-| #endif
-| int
-| main ()
-| {
-| return foobar ();
-| ;
-| return 0;
-| }
-test_conf:4176: gcc -o conftest -g -O2 conftest.c cfortran_test.o -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl -lnsl -lutil -lgfortranbegin -lgfortran -lm -lpthread >&5
-test_conf:4176: $? = 0
-test_conf:4234: gcc -o conftest -g -O2 conftest.c cfortran_test.o -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl -lnsl -lutil -lgfortranbegin -lgfortran -lm -lpthread >&5
-test_conf:4234: $? = 0
-test_conf:4276: result: lower case, underscore, no extra underscore
-test_conf:4351: checking for Fortran flag to compile .f90 files
-test_conf:4367: mpif90 -c -g -O2 conftest.f90 >&5
-test_conf:4367: $? = 0
-test_conf:4376: result: none
-test_conf:4401: checking for Fortran flag needed to allow free-form source
-test_conf:4420: mpif90 -c -g -O2 conftest.f90 >&5
-test_conf:4420: $? = 0
-test_conf:4429: result: none
-test_conf:4494: checking for gcc
-test_conf:4521: result: gcc
-test_conf:4750: checking for C compiler version
-test_conf:4759: gcc --version >&5
-gcc (Ubuntu 4.4.3-4ubuntu5) 4.4.3
-Copyright (C) 2009 Free Software Foundation, Inc.
-This is free software; see the source for copying conditions. There is NO
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
-test_conf:4770: $? = 0
-test_conf:4759: gcc -v >&5
-Using built-in specs.
-Target: x86_64-linux-gnu
-Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.4.3-4ubuntu5' --with-bugurl=file:///usr/share/doc/gcc-4.4/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --enable-multiarch --enable-linker-build-id --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --with-gxx-include-dir=/usr/include/c++/4.4 --program-suffix=-4.4 --enable-nls --enable-clocale=gnu --enable-libstdcxx-debug --enable-plugin --enable-objc-gc --disable-werror --with-arch-32=i486 --with-tune=generic --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu
-Thread model: posix
-gcc version 4.4.3 (Ubuntu 4.4.3-4ubuntu5)
-test_conf:4770: $? = 0
-test_conf:4759: gcc -V >&5
-gcc: '-V' option must have argument
-test_conf:4770: $? = 1
-test_conf:4759: gcc -qversion >&5
-gcc: unrecognized option '-qversion'
-gcc: no input files
-test_conf:4770: $? = 1
-test_conf:4774: checking whether we are using the GNU C compiler
-test_conf:4810: result: yes
-test_conf:4819: checking whether gcc accepts -g
-test_conf:4904: result: yes
-test_conf:4921: checking for gcc option to accept ISO C89
-test_conf:5006: result: none needed
-test_conf:5037: checking how to run the C preprocessor
-test_conf:5068: gcc -E conftest.c
-test_conf:5068: $? = 0
-test_conf:5082: gcc -E conftest.c
-conftest.c:11:28: error: ac_nonexistent.h: No such file or directory
-test_conf:5082: $? = 1
-test_conf: failed program was:
-| /* confdefs.h */
-| #define PACKAGE_NAME "Specfem 3D"
-| #define PACKAGE_TARNAME "Specfem3D"
-| #define PACKAGE_VERSION "2.0.1"
-| #define PACKAGE_STRING "Specfem 3D 2.0.1"
-| #define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-| #define PACKAGE_URL ""
-| #define FC_FUNC(name,NAME) name ## _
-| #define FC_FUNC_(name,NAME) name ## _
-| /* end confdefs.h. */
-| #include <ac_nonexistent.h>
-test_conf:5107: result: gcc -E
-test_conf:5127: gcc -E conftest.c
-test_conf:5127: $? = 0
-test_conf:5141: gcc -E conftest.c
-conftest.c:11:28: error: ac_nonexistent.h: No such file or directory
-test_conf:5141: $? = 1
-test_conf: failed program was:
-| /* confdefs.h */
-| #define PACKAGE_NAME "Specfem 3D"
-| #define PACKAGE_TARNAME "Specfem3D"
-| #define PACKAGE_VERSION "2.0.1"
-| #define PACKAGE_STRING "Specfem 3D 2.0.1"
-| #define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-| #define PACKAGE_URL ""
-| #define FC_FUNC(name,NAME) name ## _
-| #define FC_FUNC_(name,NAME) name ## _
-| /* end confdefs.h. */
-| #include <ac_nonexistent.h>
-test_conf:5170: checking for grep that handles long lines and -e
-test_conf:5228: result: /bin/grep
-test_conf:5233: checking for egrep
-test_conf:5295: result: /bin/grep -E
-test_conf:5300: checking for ANSI C header files
-test_conf:5328: gcc -c -g -O2 conftest.c >&5
-test_conf:5328: $? = 0
-test_conf:5401: gcc -o conftest -g -O2 conftest.c >&5
-test_conf:5401: $? = 0
-test_conf:5401: ./conftest
-test_conf:5401: $? = 0
-test_conf:5412: result: yes
-test_conf:5425: checking for sys/types.h
-test_conf:5425: gcc -c -g -O2 conftest.c >&5
-test_conf:5425: $? = 0
-test_conf:5425: result: yes
-test_conf:5425: checking for sys/stat.h
-test_conf:5425: gcc -c -g -O2 conftest.c >&5
-test_conf:5425: $? = 0
-test_conf:5425: result: yes
-test_conf:5425: checking for stdlib.h
-test_conf:5425: gcc -c -g -O2 conftest.c >&5
-test_conf:5425: $? = 0
-test_conf:5425: result: yes
-test_conf:5425: checking for string.h
-test_conf:5425: gcc -c -g -O2 conftest.c >&5
-test_conf:5425: $? = 0
-test_conf:5425: result: yes
-test_conf:5425: checking for memory.h
-test_conf:5425: gcc -c -g -O2 conftest.c >&5
-test_conf:5425: $? = 0
-test_conf:5425: result: yes
-test_conf:5425: checking for strings.h
-test_conf:5425: gcc -c -g -O2 conftest.c >&5
-test_conf:5425: $? = 0
-test_conf:5425: result: yes
-test_conf:5425: checking for inttypes.h
-test_conf:5425: gcc -c -g -O2 conftest.c >&5
-test_conf:5425: $? = 0
-test_conf:5425: result: yes
-test_conf:5425: checking for stdint.h
-test_conf:5425: gcc -c -g -O2 conftest.c >&5
-test_conf:5425: $? = 0
-test_conf:5425: result: yes
-test_conf:5425: checking for unistd.h
-test_conf:5425: gcc -c -g -O2 conftest.c >&5
-test_conf:5425: $? = 0
-test_conf:5425: result: yes
-test_conf:5438: checking emmintrin.h usability
-test_conf:5438: gcc -c -g -O2 conftest.c >&5
-test_conf:5438: $? = 0
-test_conf:5438: result: yes
-test_conf:5438: checking emmintrin.h presence
-test_conf:5438: gcc -E conftest.c
-test_conf:5438: $? = 0
-test_conf:5438: result: yes
-test_conf:5438: checking for emmintrin.h
-test_conf:5438: result: yes
-test_conf:5446: checking xmmintrin.h usability
-test_conf:5446: gcc -c -g -O2 conftest.c >&5
-test_conf:5446: $? = 0
-test_conf:5446: result: yes
-test_conf:5446: checking xmmintrin.h presence
-test_conf:5446: gcc -E conftest.c
-test_conf:5446: $? = 0
-test_conf:5446: result: yes
-test_conf:5446: checking for xmmintrin.h
-test_conf:5446: result: yes
-test_conf:5517: checking for scotchfarchinit in -lscotch
-test_conf:5529: mpif90 -o conftest -g -O2 -L/usr/lib conftest.f90 -lscotch -lscotcherr >&5
-/usr/bin/ld: cannot find -lscotch
-collect2: ld returned 1 exit status
-test_conf:5529: $? = 1
-test_conf: failed program was:
-| program main
-| call scotchfarchinit
-| end
-test_conf:5538: result: no
-test_conf:5558: checking whether Scotch is usable
-test_conf:5574: result: no, using bundled scotch instead
-test_conf:5580: checking for flex
-test_conf:5596: found /usr/bin/flex
-test_conf:5607: result: flex
-test_conf:5644: flex conftest.l
-test_conf:5648: $? = 0
-test_conf:5650: checking lex output file root
-test_conf:5664: result: lex.yy
-test_conf:5669: checking lex library
-test_conf:5682: mpif90 -o conftest -g -O2 conftest.f90 >&5
-Warning: conftest.f90:2: Illegal preprocessor directive
-Warning: conftest.f90:4: Illegal preprocessor directive
-Warning: conftest.f90:8: Illegal preprocessor directive
-Warning: conftest.f90:9: Illegal preprocessor directive
-Warning: conftest.f90:10: Illegal preprocessor directive
-Warning: conftest.f90:11: Illegal preprocessor directive
-Warning: conftest.f90:12: Illegal preprocessor directive
-Warning: conftest.f90:13: Illegal preprocessor directive
-Warning: conftest.f90:14: Illegal preprocessor directive
-Warning: conftest.f90:19: Illegal preprocessor directive
-Warning: conftest.f90:20: Illegal preprocessor directive
-Warning: conftest.f90:21: Illegal preprocessor directive
-Warning: conftest.f90:22: Illegal preprocessor directive
-Warning: conftest.f90:28: Illegal preprocessor directive
-Warning: conftest.f90:29: Illegal preprocessor directive
-Warning: conftest.f90:33: Illegal preprocessor directive
-Warning: conftest.f90:38: Illegal preprocessor directive
-Warning: conftest.f90:39: Illegal preprocessor directive
-Warning: conftest.f90:40: Illegal preprocessor directive
-Warning: conftest.f90:42: Illegal preprocessor directive
-Warning: conftest.f90:49: Illegal preprocessor directive
-Warning: conftest.f90:58: Illegal preprocessor directive
-Warning: conftest.f90:59: Illegal preprocessor directive
-Warning: conftest.f90:60: Illegal preprocessor directive
-Warning: conftest.f90:61: Illegal preprocessor directive
-Warning: conftest.f90:62: Illegal preprocessor directive
-Warning: conftest.f90:63: Illegal preprocessor directive
-Warning: conftest.f90:64: Illegal preprocessor directive
-Warning: conftest.f90:65: Illegal preprocessor directive
-Warning: conftest.f90:66: Illegal preprocessor directive
-Warning: conftest.f90:67: Illegal preprocessor directive
-Warning: conftest.f90:68: Illegal preprocessor directive
-Warning: conftest.f90:69: Illegal preprocessor directive
-Warning: conftest.f90:70: Illegal preprocessor directive
-Warning: conftest.f90:71: Illegal preprocessor directive
-Warning: conftest.f90:72: Illegal preprocessor directive
-Warning: conftest.f90:73: Illegal preprocessor directive
-Warning: conftest.f90:74: Illegal preprocessor directive
-Warning: conftest.f90:75: Illegal preprocessor directive
-Warning: conftest.f90:76: Illegal preprocessor directive
-Warning: conftest.f90:77: Illegal preprocessor directive
-Warning: conftest.f90:78: Illegal preprocessor directive
-Warning: conftest.f90:79: Illegal preprocessor directive
-Warning: conftest.f90:80: Illegal preprocessor directive
-Warning: conftest.f90:81: Illegal preprocessor directive
-Warning: conftest.f90:82: Illegal preprocessor directive
-Warning: conftest.f90:83: Illegal preprocessor directive
-Warning: conftest.f90:84: Illegal preprocessor directive
-Warning: conftest.f90:86: Illegal preprocessor directive
-Warning: conftest.f90:88: Illegal preprocessor directive
-Warning: conftest.f90:90: Illegal preprocessor directive
-Warning: conftest.f90:93: Illegal preprocessor directive
-Warning: conftest.f90:95: Illegal preprocessor directive
-Warning: conftest.f90:98: Illegal preprocessor directive
-Warning: conftest.f90:100: Illegal preprocessor directive
-Warning: conftest.f90:102: Illegal preprocessor directive
-Warning: conftest.f90:103: Illegal preprocessor directive
-Warning: conftest.f90:105: Illegal preprocessor directive
-Warning: conftest.f90:106: Illegal preprocessor directive
-Warning: conftest.f90:107: Illegal preprocessor directive
-Warning: conftest.f90:108: Illegal preprocessor directive
-Warning: conftest.f90:109: Illegal preprocessor directive
-Warning: conftest.f90:112: Illegal preprocessor directive
-Warning: conftest.f90:119: Illegal preprocessor directive
-Warning: conftest.f90:125: Illegal preprocessor directive
-Warning: conftest.f90:131: Illegal preprocessor directive
-Warning: conftest.f90:132: Illegal preprocessor directive
-Warning: conftest.f90:135: Illegal preprocessor directive
-Warning: conftest.f90:138: Illegal preprocessor directive
-Warning: conftest.f90:140: Illegal preprocessor directive
-Warning: conftest.f90:143: Illegal preprocessor directive
-Warning: conftest.f90:144: Illegal preprocessor directive
-Warning: conftest.f90:149: Illegal preprocessor directive
-Warning: conftest.f90:150: Illegal preprocessor directive
-Warning: conftest.f90:151: Illegal preprocessor directive
-Warning: conftest.f90:152: Illegal preprocessor directive
-Warning: conftest.f90:153: Illegal preprocessor directive
-Warning: conftest.f90:157: Illegal preprocessor directive
-Warning: conftest.f90:159: Illegal preprocessor directive
-Warning: conftest.f90:160: Illegal preprocessor directive
-Warning: conftest.f90:162: Illegal preprocessor directive
-Warning: conftest.f90:168: Illegal preprocessor directive
-Warning: conftest.f90:169: Illegal preprocessor directive
-Warning: conftest.f90:170: Illegal preprocessor directive
-Warning: conftest.f90:175: Illegal preprocessor directive
-Warning: conftest.f90:188: Illegal preprocessor directive
-Warning: conftest.f90:190: Illegal preprocessor directive
-Warning: conftest.f90:191: Illegal preprocessor directive
-Warning: conftest.f90:193: Illegal preprocessor directive
-Warning: conftest.f90:195: Illegal preprocessor directive
-Warning: conftest.f90:196: Illegal preprocessor directive
-Warning: conftest.f90:243: Illegal preprocessor directive
-Warning: conftest.f90:244: Illegal preprocessor directive
-Warning: conftest.f90:255: Illegal preprocessor directive
-Warning: conftest.f90:258: Illegal preprocessor directive
-Warning: conftest.f90:271: Illegal preprocessor directive
-Warning: conftest.f90:278: Illegal preprocessor directive
-Warning: conftest.f90:307: Illegal preprocessor directive
-Warning: conftest.f90:317: Illegal preprocessor directive
-Warning: conftest.f90:319: Illegal preprocessor directive
-Warning: conftest.f90:329: Illegal preprocessor directive
-Warning: conftest.f90:339: Illegal preprocessor directive
-Warning: conftest.f90:354: Illegal preprocessor directive
-Warning: conftest.f90:364: Illegal preprocessor directive
-Warning: conftest.f90:372: Illegal preprocessor directive
-Warning: conftest.f90:373: Illegal preprocessor directive
-Warning: conftest.f90:461: Illegal preprocessor directive
-Warning: conftest.f90:471: Illegal preprocessor directive
-Warning: conftest.f90:472: Illegal preprocessor directive
-Warning: conftest.f90:473: Illegal preprocessor directive
-Warning: conftest.f90:475: Illegal preprocessor directive
-Warning: conftest.f90:476: Illegal preprocessor directive
-Warning: conftest.f90:478: Illegal preprocessor directive
-Warning: conftest.f90:480: Illegal preprocessor directive
-Warning: conftest.f90:485: Illegal preprocessor directive
-Warning: conftest.f90:486: Illegal preprocessor directive
-Warning: conftest.f90:488: Illegal preprocessor directive
-Warning: conftest.f90:489: Illegal preprocessor directive
-Warning: conftest.f90:490: Illegal preprocessor directive
-Warning: conftest.f90:527: Illegal preprocessor directive
-Warning: conftest.f90:528: Illegal preprocessor directive
-Warning: conftest.f90:530: Illegal preprocessor directive
-Warning: conftest.f90:532: Illegal preprocessor directive
-Warning: conftest.f90:533: Illegal preprocessor directive
-Warning: conftest.f90:537: Illegal preprocessor directive
-Warning: conftest.f90:539: Illegal preprocessor directive
-Warning: conftest.f90:541: Illegal preprocessor directive
-Warning: conftest.f90:543: Illegal preprocessor directive
-Warning: conftest.f90:545: Illegal preprocessor directive
-Warning: conftest.f90:547: Illegal preprocessor directive
-Warning: conftest.f90:549: Illegal preprocessor directive
-Warning: conftest.f90:551: Illegal preprocessor directive
-Warning: conftest.f90:553: Illegal preprocessor directive
-Warning: conftest.f90:556: Illegal preprocessor directive
-Warning: conftest.f90:557: Illegal preprocessor directive
-Warning: conftest.f90:559: Illegal preprocessor directive
-Warning: conftest.f90:560: Illegal preprocessor directive
-Warning: conftest.f90:561: Illegal preprocessor directive
-Warning: conftest.f90:562: Illegal preprocessor directive
-Warning: conftest.f90:563: Illegal preprocessor directive
-Warning: conftest.f90:566: Illegal preprocessor directive
-Warning: conftest.f90:570: Illegal preprocessor directive
-Warning: conftest.f90:571: Illegal preprocessor directive
-Warning: conftest.f90:576: Illegal preprocessor directive
-Warning: conftest.f90:577: Illegal preprocessor directive
-Warning: conftest.f90:607: Illegal preprocessor directive
-Warning: conftest.f90:613: Illegal preprocessor directive
-Warning: conftest.f90:614: Illegal preprocessor directive
-Warning: conftest.f90:615: Illegal preprocessor directive
-Warning: conftest.f90:618: Illegal preprocessor directive
-Warning: conftest.f90:619: Illegal preprocessor directive
-Warning: conftest.f90:620: Illegal preprocessor directive
-Warning: conftest.f90:623: Illegal preprocessor directive
-Warning: conftest.f90:624: Illegal preprocessor directive
-Warning: conftest.f90:625: Illegal preprocessor directive
-Warning: conftest.f90:632: Illegal preprocessor directive
-Warning: conftest.f90:633: Illegal preprocessor directive
-Warning: conftest.f90:637: Illegal preprocessor directive
-Warning: conftest.f90:638: Illegal preprocessor directive
-Warning: conftest.f90:643: Illegal preprocessor directive
-Warning: conftest.f90:644: Illegal preprocessor directive
-Warning: conftest.f90:645: Illegal preprocessor directive
-Warning: conftest.f90:648: Illegal preprocessor directive
-Warning: conftest.f90:649: Illegal preprocessor directive
-Warning: conftest.f90:650: Illegal preprocessor directive
-Warning: conftest.f90:652: Illegal preprocessor directive
-Warning: conftest.f90:663: Illegal preprocessor directive
-Warning: conftest.f90:665: Illegal preprocessor directive
-Warning: conftest.f90:671: Illegal preprocessor directive
-Warning: conftest.f90:673: Illegal preprocessor directive
-Warning: conftest.f90:765: Illegal preprocessor directive
-Warning: conftest.f90:770: Illegal preprocessor directive
-Warning: conftest.f90:775: Illegal preprocessor directive
-Warning: conftest.f90:780: Illegal preprocessor directive
-Warning: conftest.f90:785: Illegal preprocessor directive
-Warning: conftest.f90:790: Illegal preprocessor directive
-Warning: conftest.f90:795: Illegal preprocessor directive
-Warning: conftest.f90:800: Illegal preprocessor directive
-Warning: conftest.f90:803: Illegal preprocessor directive
-Warning: conftest.f90:1135: Illegal preprocessor directive
-Warning: conftest.f90:1136: Illegal preprocessor directive
-Warning: conftest.f90:1138: Illegal preprocessor directive
-Warning: conftest.f90:1140: Illegal preprocessor directive
-Warning: conftest.f90:1187: Illegal preprocessor directive
-Warning: conftest.f90:1189: Illegal preprocessor directive
-Warning: conftest.f90:1191: Illegal preprocessor directive
-Warning: conftest.f90:1207: Illegal preprocessor directive
-Warning: conftest.f90:1319: Illegal preprocessor directive
-Warning: conftest.f90:1321: Illegal preprocessor directive
-Warning: conftest.f90:1562: Illegal preprocessor directive
-Warning: conftest.f90:1563: Illegal preprocessor directive
-Warning: conftest.f90:1564: Illegal preprocessor directive
-Warning: conftest.f90:1574: Illegal preprocessor directive
-Warning: conftest.f90:1575: Illegal preprocessor directive
-Warning: conftest.f90:1688: Illegal preprocessor directive
-Warning: conftest.f90:1691: Illegal preprocessor directive
-Warning: conftest.f90:1694: Illegal preprocessor directive
-Warning: conftest.f90:1731: Illegal preprocessor directive
-Warning: conftest.f90:1738: Illegal preprocessor directive
-Warning: conftest.f90:1740: Illegal preprocessor directive
-Warning: conftest.f90:1749: Illegal preprocessor directive
-Warning: conftest.f90:1773: Illegal preprocessor directive
-Warning: conftest.f90:1775: Illegal preprocessor directive
-Warning: conftest.f90:1778: Illegal preprocessor directive
-Warning: conftest.f90:1780: Illegal preprocessor directive
-conftest.f90:6.1:
-
-/* A lexical scanner generated by flex */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:16.1:
-
-/* First, we deal with platform-specific or compiler-specific issues. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:18.1:
-
-/* begin standard C headers. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:24.1:
-
-/* end standard C headers. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:26.1:
-
-/* flex integer type definitions */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:31.1:
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:35.1:
-
-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
- 1
-Error: Invalid character in name at (1)
-conftest.f90:36.2:
-
- * if you want the limit (max/min) macros for int types.
- 1
-Error: Invalid character in name at (1)
-conftest.f90:37.2:
-
- */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:43:
-
-typedef int8_t flex_int8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:44:
-
-typedef uint8_t flex_uint8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:45:
-
-typedef int16_t flex_int16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:46:
-
-typedef uint16_t flex_uint16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:47:
-
-typedef int32_t flex_int32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:48:
-
-typedef uint32_t flex_uint32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:50:
-
-typedef signed char flex_int8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:51:
-
-typedef short int flex_int16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:52:
-
-typedef int flex_int32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:53:
-
-typedef unsigned char flex_uint8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:54:
-
-typedef unsigned short int flex_uint16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:55:
-
-typedef unsigned int flex_uint32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:57.1:
-
-/* Limits of integral types. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:92.1:
-
-/* The "const" storage-class-modifier is valid. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:97.1:
-
-/* C99 requires __STDC__ to be defined as 1. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:111.1:
-
-/* Returned upon end-of-file. */
- 1
-Error: Invalid character in name at (1)
-Fatal Error: Error count reached limit of 25.
-test_conf:5682: $? = 1
-test_conf: failed program was:
-|
-| #line 3 "lex.yy.c"
-|
-| #define YY_INT_ALIGNED short int
-|
-| /* A lexical scanner generated by flex */
-|
-| #define FLEX_SCANNER
-| #define YY_FLEX_MAJOR_VERSION 2
-| #define YY_FLEX_MINOR_VERSION 5
-| #define YY_FLEX_SUBMINOR_VERSION 35
-| #if YY_FLEX_SUBMINOR_VERSION > 0
-| #define FLEX_BETA
-| #endif
-|
-| /* First, we deal with platform-specific or compiler-specific issues. */
-|
-| /* begin standard C headers. */
-| #include <stdio.h>
-| #include <string.h>
-| #include <errno.h>
-| #include <stdlib.h>
-|
-| /* end standard C headers. */
-|
-| /* flex integer type definitions */
-|
-| #ifndef FLEXINT_H
-| #define FLEXINT_H
-|
-| /* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-|
-| #if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
-|
-| /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
-| * if you want the limit (max/min) macros for int types.
-| */
-| #ifndef __STDC_LIMIT_MACROS
-| #define __STDC_LIMIT_MACROS 1
-| #endif
-|
-| #include <inttypes.h>
-| typedef int8_t flex_int8_t;
-| typedef uint8_t flex_uint8_t;
-| typedef int16_t flex_int16_t;
-| typedef uint16_t flex_uint16_t;
-| typedef int32_t flex_int32_t;
-| typedef uint32_t flex_uint32_t;
-| #else
-| typedef signed char flex_int8_t;
-| typedef short int flex_int16_t;
-| typedef int flex_int32_t;
-| typedef unsigned char flex_uint8_t;
-| typedef unsigned short int flex_uint16_t;
-| typedef unsigned int flex_uint32_t;
-|
-| /* Limits of integral types. */
-| #ifndef INT8_MIN
-| #define INT8_MIN (-128)
-| #endif
-| #ifndef INT16_MIN
-| #define INT16_MIN (-32767-1)
-| #endif
-| #ifndef INT32_MIN
-| #define INT32_MIN (-2147483647-1)
-| #endif
-| #ifndef INT8_MAX
-| #define INT8_MAX (127)
-| #endif
-| #ifndef INT16_MAX
-| #define INT16_MAX (32767)
-| #endif
-| #ifndef INT32_MAX
-| #define INT32_MAX (2147483647)
-| #endif
-| #ifndef UINT8_MAX
-| #define UINT8_MAX (255U)
-| #endif
-| #ifndef UINT16_MAX
-| #define UINT16_MAX (65535U)
-| #endif
-| #ifndef UINT32_MAX
-| #define UINT32_MAX (4294967295U)
-| #endif
-|
-| #endif /* ! C99 */
-|
-| #endif /* ! FLEXINT_H */
-|
-| #ifdef __cplusplus
-|
-| /* The "const" storage-class-modifier is valid. */
-| #define YY_USE_CONST
-|
-| #else /* ! __cplusplus */
-|
-| /* C99 requires __STDC__ to be defined as 1. */
-| #if defined (__STDC__)
-|
-| #define YY_USE_CONST
-|
-| #endif /* defined (__STDC__) */
-| #endif /* ! __cplusplus */
-|
-| #ifdef YY_USE_CONST
-| #define yyconst const
-| #else
-| #define yyconst
-| #endif
-|
-| /* Returned upon end-of-file. */
-| #define YY_NULL 0
-|
-| /* Promotes a possibly negative, possibly signed char to an unsigned
-| * integer for use as an array index. If the signed char is negative,
-| * we want to instead treat it as an 8-bit unsigned char, hence the
-| * double cast.
-| */
-| #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-|
-| /* Enter a start condition. This macro really ought to take a parameter,
-| * but we do it the disgusting crufty way forced on us by the ()-less
-| * definition of BEGIN.
-| */
-| #define BEGIN (yy_start) = 1 + 2 *
-|
-| /* Translate the current start state into a value that can be later handed
-| * to BEGIN to return to the state. The YYSTATE alias is for lex
-| * compatibility.
-| */
-| #define YY_START (((yy_start) - 1) / 2)
-| #define YYSTATE YY_START
-|
-| /* Action number for EOF rule of a given start state. */
-| #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-|
-| /* Special action meaning "start processing a new file". */
-| #define YY_NEW_FILE yyrestart(yyin )
-|
-| #define YY_END_OF_BUFFER_CHAR 0
-|
-| /* Size of default input buffer. */
-| #ifndef YY_BUF_SIZE
-| #ifdef __ia64__
-| /* On IA-64, the buffer size is 16k, not 8k.
-| * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
-| * Ditto for the __ia64__ case accordingly.
-| */
-| #define YY_BUF_SIZE 32768
-| #else
-| #define YY_BUF_SIZE 16384
-| #endif /* __ia64__ */
-| #endif
-|
-| /* The state buf must be large enough to hold one state per character in the main buffer.
-| */
-| #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
-|
-| #ifndef YY_TYPEDEF_YY_BUFFER_STATE
-| #define YY_TYPEDEF_YY_BUFFER_STATE
-| typedef struct yy_buffer_state *YY_BUFFER_STATE;
-| #endif
-|
-| extern int yyleng;
-|
-| extern FILE *yyin, *yyout;
-|
-| #define EOB_ACT_CONTINUE_SCAN 0
-| #define EOB_ACT_END_OF_FILE 1
-| #define EOB_ACT_LAST_MATCH 2
-|
-| #define YY_LESS_LINENO(n)
-|
-| /* Return all but the first "n" matched characters back to the input stream. */
-| #define yyless(n) \
-| do \
-| { \
-| /* Undo effects of setting up yytext. */ \
-| int yyless_macro_arg = (n); \
-| YY_LESS_LINENO(yyless_macro_arg);\
-| *yy_cp = (yy_hold_char); \
-| YY_RESTORE_YY_MORE_OFFSET \
-| (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
-| YY_DO_BEFORE_ACTION; /* set up yytext again */ \
-| } \
-| while ( 0 )
-|
-| #define unput(c) yyunput( c, (yytext_ptr) )
-|
-| #ifndef YY_TYPEDEF_YY_SIZE_T
-| #define YY_TYPEDEF_YY_SIZE_T
-| typedef size_t yy_size_t;
-| #endif
-|
-| #ifndef YY_STRUCT_YY_BUFFER_STATE
-| #define YY_STRUCT_YY_BUFFER_STATE
-| struct yy_buffer_state
-| {
-| FILE *yy_input_file;
-|
-| char *yy_ch_buf; /* input buffer */
-| char *yy_buf_pos; /* current position in input buffer */
-|
-| /* Size of input buffer in bytes, not including room for EOB
-| * characters.
-| */
-| yy_size_t yy_buf_size;
-|
-| /* Number of characters read into yy_ch_buf, not including EOB
-| * characters.
-| */
-| int yy_n_chars;
-|
-| /* Whether we "own" the buffer - i.e., we know we created it,
-| * and can realloc() it to grow it, and should free() it to
-| * delete it.
-| */
-| int yy_is_our_buffer;
-|
-| /* Whether this is an "interactive" input source; if so, and
-| * if we're using stdio for input, then we want to use getc()
-| * instead of fread(), to make sure we stop fetching input after
-| * each newline.
-| */
-| int yy_is_interactive;
-|
-| /* Whether we're considered to be at the beginning of a line.
-| * If so, '^' rules will be active on the next match, otherwise
-| * not.
-| */
-| int yy_at_bol;
-|
-| int yy_bs_lineno; /**< The line count. */
-| int yy_bs_column; /**< The column count. */
-|
-| /* Whether to try to fill the input buffer when we reach the
-| * end of it.
-| */
-| int yy_fill_buffer;
-|
-| int yy_buffer_status;
-|
-| #define YY_BUFFER_NEW 0
-| #define YY_BUFFER_NORMAL 1
-| /* When an EOF's been seen but there's still some text to process
-| * then we mark the buffer as YY_EOF_PENDING, to indicate that we
-| * shouldn't try reading from the input source any more. We might
-| * still have a bunch of tokens to match, though, because of
-| * possible backing-up.
-| *
-| * When we actually see the EOF, we change the status to "new"
-| * (via yyrestart()), so that the user can continue scanning by
-| * just pointing yyin at a new input file.
-| */
-| #define YY_BUFFER_EOF_PENDING 2
-|
-| };
-| #endif /* !YY_STRUCT_YY_BUFFER_STATE */
-|
-| /* Stack of input buffers. */
-| static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-| static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-| static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
-|
-| /* We provide macros for accessing buffer states in case in the
-| * future we want to put the buffer states in a more general
-| * "scanner state".
-| *
-| * Returns the top of the stack, or NULL.
-| */
-| #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
-| ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
-| : NULL)
-|
-| /* Same as previous macro, but useful when we know that the buffer stack is not
-| * NULL or when we need an lvalue. For internal use only.
-| */
-| #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-|
-| /* yy_hold_char holds the character lost when yytext is formed. */
-| static char yy_hold_char;
-| static int yy_n_chars; /* number of characters read into yy_ch_buf */
-| int yyleng;
-|
-| /* Points to current character in buffer. */
-| static char *yy_c_buf_p = (char *) 0;
-| static int yy_init = 0; /* whether we need to initialize */
-| static int yy_start = 0; /* start state number */
-|
-| /* Flag which is used to allow yywrap()'s to do buffer switches
-| * instead of setting up a fresh yyin. A bit of a hack ...
-| */
-| static int yy_did_buffer_switch_on_eof;
-|
-| void yyrestart (FILE *input_file );
-| void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer );
-| YY_BUFFER_STATE yy_create_buffer (FILE *file,int size );
-| void yy_delete_buffer (YY_BUFFER_STATE b );
-| void yy_flush_buffer (YY_BUFFER_STATE b );
-| void yypush_buffer_state (YY_BUFFER_STATE new_buffer );
-| void yypop_buffer_state (void );
-|
-| static void yyensure_buffer_stack (void );
-| static void yy_load_buffer_state (void );
-| static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file );
-|
-| #define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
-|
-| YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size );
-| YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str );
-| YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len );
-|
-| void *yyalloc (yy_size_t );
-| void *yyrealloc (void *,yy_size_t );
-| void yyfree (void * );
-|
-| #define yy_new_buffer yy_create_buffer
-|
-| #define yy_set_interactive(is_interactive) \
-| { \
-| if ( ! YY_CURRENT_BUFFER ){ \
-| yyensure_buffer_stack (); \
-| YY_CURRENT_BUFFER_LVALUE = \
-| yy_create_buffer(yyin,YY_BUF_SIZE ); \
-| } \
-| YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
-| }
-|
-| #define yy_set_bol(at_bol) \
-| { \
-| if ( ! YY_CURRENT_BUFFER ){\
-| yyensure_buffer_stack (); \
-| YY_CURRENT_BUFFER_LVALUE = \
-| yy_create_buffer(yyin,YY_BUF_SIZE ); \
-| } \
-| YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
-| }
-|
-| #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
-|
-| /* Begin user sect3 */
-|
-| typedef unsigned char YY_CHAR;
-|
-| FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
-|
-| typedef int yy_state_type;
-|
-| extern int yylineno;
-|
-| int yylineno = 1;
-|
-| extern char *yytext;
-| #define yytext_ptr yytext
-|
-| static yy_state_type yy_get_previous_state (void );
-| static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
-| static int yy_get_next_buffer (void );
-| static void yy_fatal_error (yyconst char msg[] );
-|
-| /* Done after the current pattern has been matched and before the
-| * corresponding action - sets up yytext.
-| */
-| #define YY_DO_BEFORE_ACTION \
-| (yytext_ptr) = yy_bp; \
-| (yytext_ptr) -= (yy_more_len); \
-| yyleng = (size_t) (yy_cp - (yytext_ptr)); \
-| (yy_hold_char) = *yy_cp; \
-| *yy_cp = '\0'; \
-| (yy_c_buf_p) = yy_cp;
-|
-| #define YY_NUM_RULES 8
-| #define YY_END_OF_BUFFER 9
-| /* This struct is not used in this scanner,
-| but its presence is necessary. */
-| struct yy_trans_info
-| {
-| flex_int32_t yy_verify;
-| flex_int32_t yy_nxt;
-| };
-| static yyconst flex_int16_t yy_acclist[23] =
-| { 0,
-| 9, 7, 8, 8, 1, 7, 8, 2, 7, 8,
-| 3, 7, 8, 4, 7, 8, 5, 7, 8, 6,
-| 7, 8
-| } ;
-|
-| static yyconst flex_int16_t yy_accept[14] =
-| { 0,
-| 1, 1, 1, 2, 4, 5, 8, 11, 14, 17,
-| 20, 23, 23
-| } ;
-|
-| static yyconst flex_int32_t yy_ec[256] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 3, 4, 5, 6,
-|
-| 7, 8, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-|
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1
-| } ;
-|
-| static yyconst flex_int32_t yy_meta[9] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1
-| } ;
-|
-| static yyconst flex_int16_t yy_base[13] =
-| { 0,
-| 0, 0, 9, 10, 10, 10, 10, 10, 10, 10,
-| 10, 10
-| } ;
-|
-| static yyconst flex_int16_t yy_def[13] =
-| { 0,
-| 12, 1, 12, 12, 12, 12, 12, 12, 12, 12,
-| 12, 0
-| } ;
-|
-| static yyconst flex_int16_t yy_nxt[19] =
-| { 0,
-| 4, 5, 6, 7, 8, 9, 10, 11, 12, 3,
-| 12, 12, 12, 12, 12, 12, 12, 12
-| } ;
-|
-| static yyconst flex_int16_t yy_chk[19] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1, 3, 12,
-| 12, 12, 12, 12, 12, 12, 12, 12
-| } ;
-|
-| extern int yy_flex_debug;
-| int yy_flex_debug = 0;
-|
-| static yy_state_type *yy_state_buf=0, *yy_state_ptr=0;
-| static char *yy_full_match;
-| static int yy_lp;
-| #define REJECT \
-| { \
-| *yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ \
-| yy_cp = (yy_full_match); /* restore poss. backed-over text */ \
-| ++(yy_lp); \
-| goto find_rule; \
-| }
-|
-| static int yy_more_flag = 0;
-| static int yy_more_len = 0;
-| #define yymore() ((yy_more_flag) = 1)
-| #define YY_MORE_ADJ (yy_more_len)
-| #define YY_RESTORE_YY_MORE_OFFSET
-| char *yytext;
-| #line 1 "conftest.l"
-| #line 477 "lex.yy.c"
-|
-| #define INITIAL 0
-|
-| #ifndef YY_NO_UNISTD_H
-| /* Special case for "unistd.h", since it is non-ANSI. We include it way
-| * down here because we want the user's section 1 to have been scanned first.
-| * The user has a chance to override it with an option.
-| */
-| #include <unistd.h>
-| #endif
-|
-| #ifndef YY_EXTRA_TYPE
-| #define YY_EXTRA_TYPE void *
-| #endif
-|
-| static int yy_init_globals (void );
-|
-| /* Accessor methods to globals.
-| These are made visible to non-reentrant scanners for convenience. */
-|
-| int yylex_destroy (void );
-|
-| int yyget_debug (void );
-|
-| void yyset_debug (int debug_flag );
-|
-| YY_EXTRA_TYPE yyget_extra (void );
-|
-| void yyset_extra (YY_EXTRA_TYPE user_defined );
-|
-| FILE *yyget_in (void );
-|
-| void yyset_in (FILE * in_str );
-|
-| FILE *yyget_out (void );
-|
-| void yyset_out (FILE * out_str );
-|
-| int yyget_leng (void );
-|
-| char *yyget_text (void );
-|
-| int yyget_lineno (void );
-|
-| void yyset_lineno (int line_number );
-|
-| /* Macros after this point can all be overridden by user definitions in
-| * section 1.
-| */
-|
-| #ifndef YY_SKIP_YYWRAP
-| #ifdef __cplusplus
-| extern "C" int yywrap (void );
-| #else
-| extern int yywrap (void );
-| #endif
-| #endif
-|
-| static void yyunput (int c,char *buf_ptr );
-|
-| #ifndef yytext_ptr
-| static void yy_flex_strncpy (char *,yyconst char *,int );
-| #endif
-|
-| #ifdef YY_NEED_STRLEN
-| static int yy_flex_strlen (yyconst char * );
-| #endif
-|
-| #ifndef YY_NO_INPUT
-|
-| #ifdef __cplusplus
-| static int yyinput (void );
-| #else
-| static int input (void );
-| #endif
-|
-| #endif
-|
-| /* Amount of stuff to slurp up with each read. */
-| #ifndef YY_READ_BUF_SIZE
-| #ifdef __ia64__
-| /* On IA-64, the buffer size is 16k, not 8k */
-| #define YY_READ_BUF_SIZE 16384
-| #else
-| #define YY_READ_BUF_SIZE 8192
-| #endif /* __ia64__ */
-| #endif
-|
-| /* Copy whatever the last rule matched to the standard output. */
-| #ifndef ECHO
-| /* This used to be an fputs(), but since the string might contain NUL's,
-| * we now use fwrite().
-| */
-| #define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0)
-| #endif
-|
-| /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
-| * is returned in "result".
-| */
-| #ifndef YY_INPUT
-| #define YY_INPUT(buf,result,max_size) \
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
-| { \
-| int c = '*'; \
-| size_t n; \
-| for ( n = 0; n < max_size && \
-| (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
-| buf[n] = (char) c; \
-| if ( c == '\n' ) \
-| buf[n++] = (char) c; \
-| if ( c == EOF && ferror( yyin ) ) \
-| YY_FATAL_ERROR( "input in flex scanner failed" ); \
-| result = n; \
-| } \
-| else \
-| { \
-| errno=0; \
-| while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
-| { \
-| if( errno != EINTR) \
-| { \
-| YY_FATAL_ERROR( "input in flex scanner failed" ); \
-| break; \
-| } \
-| errno=0; \
-| clearerr(yyin); \
-| } \
-| }\
-| \
-|
-| #endif
-|
-| /* No semi-colon after return; correct usage is to write "yyterminate();" -
-| * we don't want an extra ';' after the "return" because that will cause
-| * some compilers to complain about unreachable statements.
-| */
-| #ifndef yyterminate
-| #define yyterminate() return YY_NULL
-| #endif
-|
-| /* Number of entries by which start-condition stack grows. */
-| #ifndef YY_START_STACK_INCR
-| #define YY_START_STACK_INCR 25
-| #endif
-|
-| /* Report a fatal error. */
-| #ifndef YY_FATAL_ERROR
-| #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-| #endif
-|
-| /* end tables serialization structures and prototypes */
-|
-| /* Default declaration of generated scanner - a define so the user can
-| * easily add parameters.
-| */
-| #ifndef YY_DECL
-| #define YY_DECL_IS_OURS 1
-|
-| extern int yylex (void);
-|
-| #define YY_DECL int yylex (void)
-| #endif /* !YY_DECL */
-|
-| /* Code executed at the beginning of each rule, after yytext and yyleng
-| * have been set up.
-| */
-| #ifndef YY_USER_ACTION
-| #define YY_USER_ACTION
-| #endif
-|
-| /* Code executed at the end of each rule. */
-| #ifndef YY_BREAK
-| #define YY_BREAK break;
-| #endif
-|
-| #define YY_RULE_SETUP \
-| YY_USER_ACTION
-|
-| /** The main scanner function which does all the work.
-| */
-| YY_DECL
-| {
-| register yy_state_type yy_current_state;
-| register char *yy_cp, *yy_bp;
-| register int yy_act;
-|
-| #line 1 "conftest.l"
-|
-| #line 666 "lex.yy.c"
-|
-| if ( !(yy_init) )
-| {
-| (yy_init) = 1;
-|
-| #ifdef YY_USER_INIT
-| YY_USER_INIT;
-| #endif
-|
-| /* Create the reject buffer large enough to save one state per allowed character. */
-| if ( ! (yy_state_buf) )
-| (yy_state_buf) = (yy_state_type *)yyalloc(YY_STATE_BUF_SIZE );
-| if ( ! (yy_state_buf) )
-| YY_FATAL_ERROR( "out of dynamic memory in yylex()" );
-|
-| if ( ! (yy_start) )
-| (yy_start) = 1; /* first start state */
-|
-| if ( ! yyin )
-| yyin = stdin;
-|
-| if ( ! yyout )
-| yyout = stdout;
-|
-| if ( ! YY_CURRENT_BUFFER ) {
-| yyensure_buffer_stack ();
-| YY_CURRENT_BUFFER_LVALUE =
-| yy_create_buffer(yyin,YY_BUF_SIZE );
-| }
-|
-| yy_load_buffer_state( );
-| }
-|
-| while ( 1 ) /* loops until end-of-file is reached */
-| {
-| (yy_more_len) = 0;
-| if ( (yy_more_flag) )
-| {
-| (yy_more_len) = (yy_c_buf_p) - (yytext_ptr);
-| (yy_more_flag) = 0;
-| }
-| yy_cp = (yy_c_buf_p);
-|
-| /* Support of yytext. */
-| *yy_cp = (yy_hold_char);
-|
-| /* yy_bp points to the position in yy_ch_buf of the start of
-| * the current run.
-| */
-| yy_bp = yy_cp;
-|
-| yy_current_state = (yy_start);
-|
-| (yy_state_ptr) = (yy_state_buf);
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| yy_match:
-| do
-| {
-| register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| *(yy_state_ptr)++ = yy_current_state;
-| ++yy_cp;
-| }
-| while ( yy_base[yy_current_state] != 10 );
-|
-| yy_find_action:
-| yy_current_state = *--(yy_state_ptr);
-| (yy_lp) = yy_accept[yy_current_state];
-| find_rule: /* we branch to this label when backing up */
-| for ( ; ; ) /* until we find what rule we matched */
-| {
-| if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] )
-| {
-| yy_act = yy_acclist[(yy_lp)];
-| {
-| (yy_full_match) = yy_cp;
-| break;
-| }
-| }
-| --yy_cp;
-| yy_current_state = *--(yy_state_ptr);
-| (yy_lp) = yy_accept[yy_current_state];
-| }
-|
-| YY_DO_BEFORE_ACTION;
-|
-| do_action: /* This label is used only to access EOF actions. */
-|
-| switch ( yy_act )
-| { /* beginning of action switch */
-| case 1:
-| YY_RULE_SETUP
-| #line 2 "conftest.l"
-| { ECHO; }
-| YY_BREAK
-| case 2:
-| YY_RULE_SETUP
-| #line 3 "conftest.l"
-| { REJECT; }
-| YY_BREAK
-| case 3:
-| YY_RULE_SETUP
-| #line 4 "conftest.l"
-| { yymore (); }
-| YY_BREAK
-| case 4:
-| YY_RULE_SETUP
-| #line 5 "conftest.l"
-| { yyless (1); }
-| YY_BREAK
-| case 5:
-| YY_RULE_SETUP
-| #line 6 "conftest.l"
-| { yyless (input () != 0); }
-| YY_BREAK
-| case 6:
-| YY_RULE_SETUP
-| #line 7 "conftest.l"
-| { unput (yytext[0]); }
-| YY_BREAK
-| case 7:
-| YY_RULE_SETUP
-| #line 8 "conftest.l"
-| { BEGIN INITIAL; }
-| YY_BREAK
-| case 8:
-| YY_RULE_SETUP
-| #line 9 "conftest.l"
-| ECHO;
-| YY_BREAK
-| #line 804 "lex.yy.c"
-| case YY_STATE_EOF(INITIAL):
-| yyterminate();
-|
-| case YY_END_OF_BUFFER:
-| {
-| /* Amount of text matched not including the EOB char. */
-| int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
-|
-| /* Undo the effects of YY_DO_BEFORE_ACTION. */
-| *yy_cp = (yy_hold_char);
-| YY_RESTORE_YY_MORE_OFFSET
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
-| {
-| /* We're scanning a new file or input source. It's
-| * possible that this happened because the user
-| * just pointed yyin at a new source and called
-| * yylex(). If so, then we have to assure
-| * consistency between YY_CURRENT_BUFFER and our
-| * globals. Here is the right place to do so, because
-| * this is the first action (other than possibly a
-| * back-up) that will match for the new input source.
-| */
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-| YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
-| YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
-| }
-|
-| /* Note that here we test for yy_c_buf_p "<=" to the position
-| * of the first EOB in the buffer, since yy_c_buf_p will
-| * already have been incremented past the NUL character
-| * (since all states make transitions on EOB to the
-| * end-of-buffer state). Contrast this with the test
-| * in input().
-| */
-| if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-| { /* This was really a NUL. */
-| yy_state_type yy_next_state;
-|
-| (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| /* Okay, we're now positioned to make the NUL
-| * transition. We couldn't have
-| * yy_get_previous_state() go ahead and do it
-| * for us because it doesn't know how to deal
-| * with the possibility of jamming (and we don't
-| * want to build jamming into it because then it
-| * will run more slowly).
-| */
-|
-| yy_next_state = yy_try_NUL_trans( yy_current_state );
-|
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-|
-| if ( yy_next_state )
-| {
-| /* Consume the NUL. */
-| yy_cp = ++(yy_c_buf_p);
-| yy_current_state = yy_next_state;
-| goto yy_match;
-| }
-|
-| else
-| {
-| yy_cp = (yy_c_buf_p);
-| goto yy_find_action;
-| }
-| }
-|
-| else switch ( yy_get_next_buffer( ) )
-| {
-| case EOB_ACT_END_OF_FILE:
-| {
-| (yy_did_buffer_switch_on_eof) = 0;
-|
-| if ( yywrap( ) )
-| {
-| /* Note: because we've taken care in
-| * yy_get_next_buffer() to have set up
-| * yytext, we can now set up
-| * yy_c_buf_p so that if some total
-| * hoser (like flex itself) wants to
-| * call the scanner after we return the
-| * YY_NULL, it'll still work - another
-| * YY_NULL will get returned.
-| */
-| (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
-|
-| yy_act = YY_STATE_EOF(YY_START);
-| goto do_action;
-| }
-|
-| else
-| {
-| if ( ! (yy_did_buffer_switch_on_eof) )
-| YY_NEW_FILE;
-| }
-| break;
-| }
-|
-| case EOB_ACT_CONTINUE_SCAN:
-| (yy_c_buf_p) =
-| (yytext_ptr) + yy_amount_of_matched_text;
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| yy_cp = (yy_c_buf_p);
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-| goto yy_match;
-|
-| case EOB_ACT_LAST_MATCH:
-| (yy_c_buf_p) =
-| &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| yy_cp = (yy_c_buf_p);
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-| goto yy_find_action;
-| }
-| break;
-| }
-|
-| default:
-| YY_FATAL_ERROR(
-| "fatal flex scanner internal error--no action found" );
-| } /* end of action switch */
-| } /* end of scanning one token */
-| } /* end of yylex */
-|
-| /* yy_get_next_buffer - try to read in a new buffer
-| *
-| * Returns a code representing an action:
-| * EOB_ACT_LAST_MATCH -
-| * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
-| * EOB_ACT_END_OF_FILE - end of file
-| */
-| static int yy_get_next_buffer (void)
-| {
-| register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
-| register char *source = (yytext_ptr);
-| register int number_to_move, i;
-| int ret_val;
-|
-| if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
-| YY_FATAL_ERROR(
-| "fatal flex scanner internal error--end of buffer missed" );
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
-| { /* Don't try to fill the buffer, so this is an EOF. */
-| if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
-| {
-| /* We matched a single character, the EOB, so
-| * treat this as a final EOF.
-| */
-| return EOB_ACT_END_OF_FILE;
-| }
-|
-| else
-| {
-| /* We matched some text prior to the EOB, first
-| * process it.
-| */
-| return EOB_ACT_LAST_MATCH;
-| }
-| }
-|
-| /* Try to read more data. */
-|
-| /* First move last chars to start of buffer. */
-| number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
-|
-| for ( i = 0; i < number_to_move; ++i )
-| *(dest++) = *(source++);
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
-| /* don't do the read, it's not guaranteed to return an EOF,
-| * just force an EOF
-| */
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
-|
-| else
-| {
-| int num_to_read =
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
-|
-| while ( num_to_read <= 0 )
-| { /* Not enough room in the buffer - grow it. */
-|
-| YY_FATAL_ERROR(
-| "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
-|
-| }
-|
-| if ( num_to_read > YY_READ_BUF_SIZE )
-| num_to_read = YY_READ_BUF_SIZE;
-|
-| /* Read in more data. */
-| YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
-| (yy_n_chars), (size_t) num_to_read );
-|
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| if ( (yy_n_chars) == 0 )
-| {
-| if ( number_to_move == YY_MORE_ADJ )
-| {
-| ret_val = EOB_ACT_END_OF_FILE;
-| yyrestart(yyin );
-| }
-|
-| else
-| {
-| ret_val = EOB_ACT_LAST_MATCH;
-| YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
-| YY_BUFFER_EOF_PENDING;
-| }
-| }
-|
-| else
-| ret_val = EOB_ACT_CONTINUE_SCAN;
-|
-| if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
-| /* Extend the array by 50%, plus the number we really need. */
-| yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
-| if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
-| }
-|
-| (yy_n_chars) += number_to_move;
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
-|
-| (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
-|
-| return ret_val;
-| }
-|
-| /* yy_get_previous_state - get the state just before the EOB char was reached */
-|
-| static yy_state_type yy_get_previous_state (void)
-| {
-| register yy_state_type yy_current_state;
-| register char *yy_cp;
-|
-| yy_current_state = (yy_start);
-|
-| (yy_state_ptr) = (yy_state_buf);
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
-| {
-| register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| *(yy_state_ptr)++ = yy_current_state;
-| }
-|
-| return yy_current_state;
-| }
-|
-| /* yy_try_NUL_trans - try to make a transition on the NUL character
-| *
-| * synopsis
-| * next_state = yy_try_NUL_trans( current_state );
-| */
-| static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
-| {
-| register int yy_is_jam;
-|
-| register YY_CHAR yy_c = 1;
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| yy_is_jam = (yy_current_state == 12);
-| if ( ! yy_is_jam )
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| return yy_is_jam ? 0 : yy_current_state;
-| }
-|
-| static void yyunput (int c, register char * yy_bp )
-| {
-| register char *yy_cp;
-|
-| yy_cp = (yy_c_buf_p);
-|
-| /* undo effects of setting up yytext */
-| *yy_cp = (yy_hold_char);
-|
-| if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-| { /* need to shift things up to make room */
-| /* +2 for EOB chars. */
-| register int number_to_move = (yy_n_chars) + 2;
-| register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
-| register char *source =
-| &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
-|
-| while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-| *--dest = *--source;
-|
-| yy_cp += (int) (dest - source);
-| yy_bp += (int) (dest - source);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
-|
-| if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-| YY_FATAL_ERROR( "flex scanner push-back overflow" );
-| }
-|
-| *--yy_cp = (char) c;
-|
-| (yytext_ptr) = yy_bp;
-| (yy_hold_char) = *yy_cp;
-| (yy_c_buf_p) = yy_cp;
-| }
-|
-| #ifndef YY_NO_INPUT
-| #ifdef __cplusplus
-| static int yyinput (void)
-| #else
-| static int input (void)
-| #endif
-|
-| {
-| int c;
-|
-| *(yy_c_buf_p) = (yy_hold_char);
-|
-| if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
-| {
-| /* yy_c_buf_p now points to the character we want to return.
-| * If this occurs *before* the EOB characters, then it's a
-| * valid NUL; if not, then we've hit the end of the buffer.
-| */
-| if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-| /* This was really a NUL. */
-| *(yy_c_buf_p) = '\0';
-|
-| else
-| { /* need more input */
-| int offset = (yy_c_buf_p) - (yytext_ptr);
-| ++(yy_c_buf_p);
-|
-| switch ( yy_get_next_buffer( ) )
-| {
-| case EOB_ACT_LAST_MATCH:
-| /* This happens because yy_g_n_b()
-| * sees that we've accumulated a
-| * token and flags that we need to
-| * try matching the token before
-| * proceeding. But for input(),
-| * there's no matching to consider.
-| * So convert the EOB_ACT_LAST_MATCH
-| * to EOB_ACT_END_OF_FILE.
-| */
-|
-| /* Reset buffer status. */
-| yyrestart(yyin );
-|
-| /*FALLTHROUGH*/
-|
-| case EOB_ACT_END_OF_FILE:
-| {
-| if ( yywrap( ) )
-| return EOF;
-|
-| if ( ! (yy_did_buffer_switch_on_eof) )
-| YY_NEW_FILE;
-| #ifdef __cplusplus
-| return yyinput();
-| #else
-| return input();
-| #endif
-| }
-|
-| case EOB_ACT_CONTINUE_SCAN:
-| (yy_c_buf_p) = (yytext_ptr) + offset;
-| break;
-| }
-| }
-| }
-|
-| c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
-| *(yy_c_buf_p) = '\0'; /* preserve yytext */
-| (yy_hold_char) = *++(yy_c_buf_p);
-|
-| return c;
-| }
-| #endif /* ifndef YY_NO_INPUT */
-|
-| /** Immediately switch to a different input stream.
-| * @param input_file A readable stream.
-| *
-| * @note This function does not reset the start condition to @c INITIAL .
-| */
-| void yyrestart (FILE * input_file )
-| {
-|
-| if ( ! YY_CURRENT_BUFFER ){
-| yyensure_buffer_stack ();
-| YY_CURRENT_BUFFER_LVALUE =
-| yy_create_buffer(yyin,YY_BUF_SIZE );
-| }
-|
-| yy_init_buffer(YY_CURRENT_BUFFER,input_file );
-| yy_load_buffer_state( );
-| }
-|
-| /** Switch to a different input buffer.
-| * @param new_buffer The new input buffer.
-| *
-| */
-| void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer )
-| {
-|
-| /* TODO. We should be able to replace this entire function body
-| * with
-| * yypop_buffer_state();
-| * yypush_buffer_state(new_buffer);
-| */
-| yyensure_buffer_stack ();
-| if ( YY_CURRENT_BUFFER == new_buffer )
-| return;
-|
-| if ( YY_CURRENT_BUFFER )
-| {
-| /* Flush out information for old buffer. */
-| *(yy_c_buf_p) = (yy_hold_char);
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| YY_CURRENT_BUFFER_LVALUE = new_buffer;
-| yy_load_buffer_state( );
-|
-| /* We don't actually know whether we did this switch during
-| * EOF (yywrap()) processing, but the only time this flag
-| * is looked at is after yywrap() is called, so it's safe
-| * to go ahead and always set it.
-| */
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-|
-| static void yy_load_buffer_state (void)
-| {
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-| (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
-| yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
-| (yy_hold_char) = *(yy_c_buf_p);
-| }
-|
-| /** Allocate and initialize an input buffer state.
-| * @param file A readable stream.
-| * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
-| *
-| * @return the allocated buffer state.
-| */
-| YY_BUFFER_STATE yy_create_buffer (FILE * file, int size )
-| {
-| YY_BUFFER_STATE b;
-|
-| b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
-| if ( ! b )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-|
-| b->yy_buf_size = size;
-|
-| /* yy_ch_buf has to be 2 characters longer than the size given because
-| * we need to put in 2 end-of-buffer characters.
-| */
-| b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 );
-| if ( ! b->yy_ch_buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-|
-| b->yy_is_our_buffer = 1;
-|
-| yy_init_buffer(b,file );
-|
-| return b;
-| }
-|
-| /** Destroy the buffer.
-| * @param b a buffer created with yy_create_buffer()
-| *
-| */
-| void yy_delete_buffer (YY_BUFFER_STATE b )
-| {
-|
-| if ( ! b )
-| return;
-|
-| if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
-| YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
-|
-| if ( b->yy_is_our_buffer )
-| yyfree((void *) b->yy_ch_buf );
-|
-| yyfree((void *) b );
-| }
-|
-| #ifndef __cplusplus
-| extern int isatty (int );
-| #endif /* __cplusplus */
-|
-| /* Initializes or reinitializes a buffer.
-| * This function is sometimes called more than once on the same buffer,
-| * such as during a yyrestart() or at EOF.
-| */
-| static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file )
-|
-| {
-| int oerrno = errno;
-|
-| yy_flush_buffer(b );
-|
-| b->yy_input_file = file;
-| b->yy_fill_buffer = 1;
-|
-| /* If b is the current buffer, then yy_init_buffer was _probably_
-| * called from yyrestart() or through yy_get_next_buffer.
-| * In that case, we don't want to reset the lineno or column.
-| */
-| if (b != YY_CURRENT_BUFFER){
-| b->yy_bs_lineno = 1;
-| b->yy_bs_column = 0;
-| }
-|
-| b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-|
-| errno = oerrno;
-| }
-|
-| /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
-| * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
-| *
-| */
-| void yy_flush_buffer (YY_BUFFER_STATE b )
-| {
-| if ( ! b )
-| return;
-|
-| b->yy_n_chars = 0;
-|
-| /* We always need two end-of-buffer characters. The first causes
-| * a transition to the end-of-buffer state. The second causes
-| * a jam in that state.
-| */
-| b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
-| b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-|
-| b->yy_buf_pos = &b->yy_ch_buf[0];
-|
-| b->yy_at_bol = 1;
-| b->yy_buffer_status = YY_BUFFER_NEW;
-|
-| if ( b == YY_CURRENT_BUFFER )
-| yy_load_buffer_state( );
-| }
-|
-| /** Pushes the new state onto the stack. The new state becomes
-| * the current state. This function will allocate the stack
-| * if necessary.
-| * @param new_buffer The new state.
-| *
-| */
-| void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
-| {
-| if (new_buffer == NULL)
-| return;
-|
-| yyensure_buffer_stack();
-|
-| /* This block is copied from yy_switch_to_buffer. */
-| if ( YY_CURRENT_BUFFER )
-| {
-| /* Flush out information for old buffer. */
-| *(yy_c_buf_p) = (yy_hold_char);
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| /* Only push if top exists. Otherwise, replace top. */
-| if (YY_CURRENT_BUFFER)
-| (yy_buffer_stack_top)++;
-| YY_CURRENT_BUFFER_LVALUE = new_buffer;
-|
-| /* copied from yy_switch_to_buffer. */
-| yy_load_buffer_state( );
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-|
-| /** Removes and deletes the top of the stack, if present.
-| * The next element becomes the new top.
-| *
-| */
-| void yypop_buffer_state (void)
-| {
-| if (!YY_CURRENT_BUFFER)
-| return;
-|
-| yy_delete_buffer(YY_CURRENT_BUFFER );
-| YY_CURRENT_BUFFER_LVALUE = NULL;
-| if ((yy_buffer_stack_top) > 0)
-| --(yy_buffer_stack_top);
-|
-| if (YY_CURRENT_BUFFER) {
-| yy_load_buffer_state( );
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-| }
-|
-| /* Allocates the stack if it does not exist.
-| * Guarantees space for at least one push.
-| */
-| static void yyensure_buffer_stack (void)
-| {
-| int num_to_alloc;
-|
-| if (!(yy_buffer_stack)) {
-|
-| /* First allocation is just for 2 elements, since we don't know if this
-| * scanner will even need a stack. We use 2 instead of 1 to avoid an
-| * immediate realloc on the next call.
-| */
-| num_to_alloc = 1;
-| (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
-| (num_to_alloc * sizeof(struct yy_buffer_state*)
-| );
-| if ( ! (yy_buffer_stack) )
-| YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-|
-| memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-|
-| (yy_buffer_stack_max) = num_to_alloc;
-| (yy_buffer_stack_top) = 0;
-| return;
-| }
-|
-| if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-|
-| /* Increase the buffer to prepare for a possible push. */
-| int grow_size = 8 /* arbitrary grow size */;
-|
-| num_to_alloc = (yy_buffer_stack_max) + grow_size;
-| (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
-| ((yy_buffer_stack),
-| num_to_alloc * sizeof(struct yy_buffer_state*)
-| );
-| if ( ! (yy_buffer_stack) )
-| YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-|
-| /* zero only the new slots.*/
-| memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
-| (yy_buffer_stack_max) = num_to_alloc;
-| }
-| }
-|
-| /** Setup the input buffer state to scan directly from a user-specified character buffer.
-| * @param base the character buffer
-| * @param size the size in bytes of the character buffer
-| *
-| * @return the newly allocated buffer state object.
-| */
-| YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size )
-| {
-| YY_BUFFER_STATE b;
-|
-| if ( size < 2 ||
-| base[size-2] != YY_END_OF_BUFFER_CHAR ||
-| base[size-1] != YY_END_OF_BUFFER_CHAR )
-| /* They forgot to leave room for the EOB's. */
-| return 0;
-|
-| b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
-| if ( ! b )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
-|
-| b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
-| b->yy_buf_pos = b->yy_ch_buf = base;
-| b->yy_is_our_buffer = 0;
-| b->yy_input_file = 0;
-| b->yy_n_chars = b->yy_buf_size;
-| b->yy_is_interactive = 0;
-| b->yy_at_bol = 1;
-| b->yy_fill_buffer = 0;
-| b->yy_buffer_status = YY_BUFFER_NEW;
-|
-| yy_switch_to_buffer(b );
-|
-| return b;
-| }
-|
-| /** Setup the input buffer state to scan a string. The next call to yylex() will
-| * scan from a @e copy of @a str.
-| * @param yystr a NUL-terminated string to scan
-| *
-| * @return the newly allocated buffer state object.
-| * @note If you want to scan bytes that may contain NUL values, then use
-| * yy_scan_bytes() instead.
-| */
-| YY_BUFFER_STATE yy_scan_string (yyconst char * yystr )
-| {
-|
-| return yy_scan_bytes(yystr,strlen(yystr) );
-| }
-|
-| /** Setup the input buffer state to scan the given bytes. The next call to yylex() will
-| * scan from a @e copy of @a bytes.
-| * @param yybytes the byte buffer to scan
-| * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
-| *
-| * @return the newly allocated buffer state object.
-| */
-| YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len )
-| {
-| YY_BUFFER_STATE b;
-| char *buf;
-| yy_size_t n;
-| int i;
-|
-| /* Get memory for full buffer, including space for trailing EOB's. */
-| n = _yybytes_len + 2;
-| buf = (char *) yyalloc(n );
-| if ( ! buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
-|
-| for ( i = 0; i < _yybytes_len; ++i )
-| buf[i] = yybytes[i];
-|
-| buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
-|
-| b = yy_scan_buffer(buf,n );
-| if ( ! b )
-| YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
-|
-| /* It's okay to grow etc. this buffer, and we should throw it
-| * away when we're done.
-| */
-| b->yy_is_our_buffer = 1;
-|
-| return b;
-| }
-|
-| #ifndef YY_EXIT_FAILURE
-| #define YY_EXIT_FAILURE 2
-| #endif
-|
-| static void yy_fatal_error (yyconst char* msg )
-| {
-| (void) fprintf( stderr, "%s\n", msg );
-| exit( YY_EXIT_FAILURE );
-| }
-|
-| /* Redefine yyless() so it works in section 3 code. */
-|
-| #undef yyless
-| #define yyless(n) \
-| do \
-| { \
-| /* Undo effects of setting up yytext. */ \
-| int yyless_macro_arg = (n); \
-| YY_LESS_LINENO(yyless_macro_arg);\
-| yytext[yyleng] = (yy_hold_char); \
-| (yy_c_buf_p) = yytext + yyless_macro_arg; \
-| (yy_hold_char) = *(yy_c_buf_p); \
-| *(yy_c_buf_p) = '\0'; \
-| yyleng = yyless_macro_arg; \
-| } \
-| while ( 0 )
-|
-| /* Accessor methods (get/set functions) to struct members. */
-|
-| /** Get the current line number.
-| *
-| */
-| int yyget_lineno (void)
-| {
-|
-| return yylineno;
-| }
-|
-| /** Get the input stream.
-| *
-| */
-| FILE *yyget_in (void)
-| {
-| return yyin;
-| }
-|
-| /** Get the output stream.
-| *
-| */
-| FILE *yyget_out (void)
-| {
-| return yyout;
-| }
-|
-| /** Get the length of the current token.
-| *
-| */
-| int yyget_leng (void)
-| {
-| return yyleng;
-| }
-|
-| /** Get the current token.
-| *
-| */
-|
-| char *yyget_text (void)
-| {
-| return yytext;
-| }
-|
-| /** Set the current line number.
-| * @param line_number
-| *
-| */
-| void yyset_lineno (int line_number )
-| {
-|
-| yylineno = line_number;
-| }
-|
-| /** Set the input stream. This does not discard the current
-| * input buffer.
-| * @param in_str A readable stream.
-| *
-| * @see yy_switch_to_buffer
-| */
-| void yyset_in (FILE * in_str )
-| {
-| yyin = in_str ;
-| }
-|
-| void yyset_out (FILE * out_str )
-| {
-| yyout = out_str ;
-| }
-|
-| int yyget_debug (void)
-| {
-| return yy_flex_debug;
-| }
-|
-| void yyset_debug (int bdebug )
-| {
-| yy_flex_debug = bdebug ;
-| }
-|
-| static int yy_init_globals (void)
-| {
-| /* Initialization is the same as for the non-reentrant scanner.
-| * This function is called from yylex_destroy(), so don't allocate here.
-| */
-|
-| (yy_buffer_stack) = 0;
-| (yy_buffer_stack_top) = 0;
-| (yy_buffer_stack_max) = 0;
-| (yy_c_buf_p) = (char *) 0;
-| (yy_init) = 0;
-| (yy_start) = 0;
-|
-| (yy_state_buf) = 0;
-| (yy_state_ptr) = 0;
-| (yy_full_match) = 0;
-| (yy_lp) = 0;
-|
-| /* Defined in main.c */
-| #ifdef YY_STDINIT
-| yyin = stdin;
-| yyout = stdout;
-| #else
-| yyin = (FILE *) 0;
-| yyout = (FILE *) 0;
-| #endif
-|
-| /* For future reference: Set errno on error, since we are called by
-| * yylex_init()
-| */
-| return 0;
-| }
-|
-| /* yylex_destroy is for both reentrant and non-reentrant scanners. */
-| int yylex_destroy (void)
-| {
-|
-| /* Pop the buffer stack, destroying each element. */
-| while(YY_CURRENT_BUFFER){
-| yy_delete_buffer(YY_CURRENT_BUFFER );
-| YY_CURRENT_BUFFER_LVALUE = NULL;
-| yypop_buffer_state();
-| }
-|
-| /* Destroy the stack itself. */
-| yyfree((yy_buffer_stack) );
-| (yy_buffer_stack) = NULL;
-|
-| yyfree ( (yy_state_buf) );
-| (yy_state_buf) = NULL;
-|
-| /* Reset the globals. This is important in a non-reentrant scanner so the next time
-| * yylex() is called, initialization will occur. */
-| yy_init_globals( );
-|
-| return 0;
-| }
-|
-| /*
-| * Internal utility routines.
-| */
-|
-| #ifndef yytext_ptr
-| static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-| {
-| register int i;
-| for ( i = 0; i < n; ++i )
-| s1[i] = s2[i];
-| }
-| #endif
-|
-| #ifdef YY_NEED_STRLEN
-| static int yy_flex_strlen (yyconst char * s )
-| {
-| register int n;
-| for ( n = 0; s[n]; ++n )
-| ;
-|
-| return n;
-| }
-| #endif
-|
-| void *yyalloc (yy_size_t size )
-| {
-| return (void *) malloc( size );
-| }
-|
-| void *yyrealloc (void * ptr, yy_size_t size )
-| {
-| /* The cast to (char *) in the following accommodates both
-| * implementations that use char* generic pointers, and those
-| * that use void* generic pointers. It works with the latter
-| * because both ANSI C and C++ allow castless assignment from
-| * any pointer type to void*, and deal with argument conversions
-| * as though doing an assignment.
-| */
-| return (void *) realloc( (char *) ptr, size );
-| }
-|
-| void yyfree (void * ptr )
-| {
-| free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
-| }
-|
-| #define YYTABLES_NAME "yytables"
-|
-| #line 9 "conftest.l"
-|
-|
-| #ifdef YYTEXT_POINTER
-| extern char *yytext;
-| #endif
-| int
-| main (void)
-| {
-| return ! yylex () + ! yywrap ();
-| }
-test_conf:5682: mpif90 -o conftest -g -O2 conftest.f90 -lfl >&5
-Warning: conftest.f90:2: Illegal preprocessor directive
-Warning: conftest.f90:4: Illegal preprocessor directive
-Warning: conftest.f90:8: Illegal preprocessor directive
-Warning: conftest.f90:9: Illegal preprocessor directive
-Warning: conftest.f90:10: Illegal preprocessor directive
-Warning: conftest.f90:11: Illegal preprocessor directive
-Warning: conftest.f90:12: Illegal preprocessor directive
-Warning: conftest.f90:13: Illegal preprocessor directive
-Warning: conftest.f90:14: Illegal preprocessor directive
-Warning: conftest.f90:19: Illegal preprocessor directive
-Warning: conftest.f90:20: Illegal preprocessor directive
-Warning: conftest.f90:21: Illegal preprocessor directive
-Warning: conftest.f90:22: Illegal preprocessor directive
-Warning: conftest.f90:28: Illegal preprocessor directive
-Warning: conftest.f90:29: Illegal preprocessor directive
-Warning: conftest.f90:33: Illegal preprocessor directive
-Warning: conftest.f90:38: Illegal preprocessor directive
-Warning: conftest.f90:39: Illegal preprocessor directive
-Warning: conftest.f90:40: Illegal preprocessor directive
-Warning: conftest.f90:42: Illegal preprocessor directive
-Warning: conftest.f90:49: Illegal preprocessor directive
-Warning: conftest.f90:58: Illegal preprocessor directive
-Warning: conftest.f90:59: Illegal preprocessor directive
-Warning: conftest.f90:60: Illegal preprocessor directive
-Warning: conftest.f90:61: Illegal preprocessor directive
-Warning: conftest.f90:62: Illegal preprocessor directive
-Warning: conftest.f90:63: Illegal preprocessor directive
-Warning: conftest.f90:64: Illegal preprocessor directive
-Warning: conftest.f90:65: Illegal preprocessor directive
-Warning: conftest.f90:66: Illegal preprocessor directive
-Warning: conftest.f90:67: Illegal preprocessor directive
-Warning: conftest.f90:68: Illegal preprocessor directive
-Warning: conftest.f90:69: Illegal preprocessor directive
-Warning: conftest.f90:70: Illegal preprocessor directive
-Warning: conftest.f90:71: Illegal preprocessor directive
-Warning: conftest.f90:72: Illegal preprocessor directive
-Warning: conftest.f90:73: Illegal preprocessor directive
-Warning: conftest.f90:74: Illegal preprocessor directive
-Warning: conftest.f90:75: Illegal preprocessor directive
-Warning: conftest.f90:76: Illegal preprocessor directive
-Warning: conftest.f90:77: Illegal preprocessor directive
-Warning: conftest.f90:78: Illegal preprocessor directive
-Warning: conftest.f90:79: Illegal preprocessor directive
-Warning: conftest.f90:80: Illegal preprocessor directive
-Warning: conftest.f90:81: Illegal preprocessor directive
-Warning: conftest.f90:82: Illegal preprocessor directive
-Warning: conftest.f90:83: Illegal preprocessor directive
-Warning: conftest.f90:84: Illegal preprocessor directive
-Warning: conftest.f90:86: Illegal preprocessor directive
-Warning: conftest.f90:88: Illegal preprocessor directive
-Warning: conftest.f90:90: Illegal preprocessor directive
-Warning: conftest.f90:93: Illegal preprocessor directive
-Warning: conftest.f90:95: Illegal preprocessor directive
-Warning: conftest.f90:98: Illegal preprocessor directive
-Warning: conftest.f90:100: Illegal preprocessor directive
-Warning: conftest.f90:102: Illegal preprocessor directive
-Warning: conftest.f90:103: Illegal preprocessor directive
-Warning: conftest.f90:105: Illegal preprocessor directive
-Warning: conftest.f90:106: Illegal preprocessor directive
-Warning: conftest.f90:107: Illegal preprocessor directive
-Warning: conftest.f90:108: Illegal preprocessor directive
-Warning: conftest.f90:109: Illegal preprocessor directive
-Warning: conftest.f90:112: Illegal preprocessor directive
-Warning: conftest.f90:119: Illegal preprocessor directive
-Warning: conftest.f90:125: Illegal preprocessor directive
-Warning: conftest.f90:131: Illegal preprocessor directive
-Warning: conftest.f90:132: Illegal preprocessor directive
-Warning: conftest.f90:135: Illegal preprocessor directive
-Warning: conftest.f90:138: Illegal preprocessor directive
-Warning: conftest.f90:140: Illegal preprocessor directive
-Warning: conftest.f90:143: Illegal preprocessor directive
-Warning: conftest.f90:144: Illegal preprocessor directive
-Warning: conftest.f90:149: Illegal preprocessor directive
-Warning: conftest.f90:150: Illegal preprocessor directive
-Warning: conftest.f90:151: Illegal preprocessor directive
-Warning: conftest.f90:152: Illegal preprocessor directive
-Warning: conftest.f90:153: Illegal preprocessor directive
-Warning: conftest.f90:157: Illegal preprocessor directive
-Warning: conftest.f90:159: Illegal preprocessor directive
-Warning: conftest.f90:160: Illegal preprocessor directive
-Warning: conftest.f90:162: Illegal preprocessor directive
-Warning: conftest.f90:168: Illegal preprocessor directive
-Warning: conftest.f90:169: Illegal preprocessor directive
-Warning: conftest.f90:170: Illegal preprocessor directive
-Warning: conftest.f90:175: Illegal preprocessor directive
-Warning: conftest.f90:188: Illegal preprocessor directive
-Warning: conftest.f90:190: Illegal preprocessor directive
-Warning: conftest.f90:191: Illegal preprocessor directive
-Warning: conftest.f90:193: Illegal preprocessor directive
-Warning: conftest.f90:195: Illegal preprocessor directive
-Warning: conftest.f90:196: Illegal preprocessor directive
-Warning: conftest.f90:243: Illegal preprocessor directive
-Warning: conftest.f90:244: Illegal preprocessor directive
-Warning: conftest.f90:255: Illegal preprocessor directive
-Warning: conftest.f90:258: Illegal preprocessor directive
-Warning: conftest.f90:271: Illegal preprocessor directive
-Warning: conftest.f90:278: Illegal preprocessor directive
-Warning: conftest.f90:307: Illegal preprocessor directive
-Warning: conftest.f90:317: Illegal preprocessor directive
-Warning: conftest.f90:319: Illegal preprocessor directive
-Warning: conftest.f90:329: Illegal preprocessor directive
-Warning: conftest.f90:339: Illegal preprocessor directive
-Warning: conftest.f90:354: Illegal preprocessor directive
-Warning: conftest.f90:364: Illegal preprocessor directive
-Warning: conftest.f90:372: Illegal preprocessor directive
-Warning: conftest.f90:373: Illegal preprocessor directive
-Warning: conftest.f90:461: Illegal preprocessor directive
-Warning: conftest.f90:471: Illegal preprocessor directive
-Warning: conftest.f90:472: Illegal preprocessor directive
-Warning: conftest.f90:473: Illegal preprocessor directive
-Warning: conftest.f90:475: Illegal preprocessor directive
-Warning: conftest.f90:476: Illegal preprocessor directive
-Warning: conftest.f90:478: Illegal preprocessor directive
-Warning: conftest.f90:480: Illegal preprocessor directive
-Warning: conftest.f90:485: Illegal preprocessor directive
-Warning: conftest.f90:486: Illegal preprocessor directive
-Warning: conftest.f90:488: Illegal preprocessor directive
-Warning: conftest.f90:489: Illegal preprocessor directive
-Warning: conftest.f90:490: Illegal preprocessor directive
-Warning: conftest.f90:527: Illegal preprocessor directive
-Warning: conftest.f90:528: Illegal preprocessor directive
-Warning: conftest.f90:530: Illegal preprocessor directive
-Warning: conftest.f90:532: Illegal preprocessor directive
-Warning: conftest.f90:533: Illegal preprocessor directive
-Warning: conftest.f90:537: Illegal preprocessor directive
-Warning: conftest.f90:539: Illegal preprocessor directive
-Warning: conftest.f90:541: Illegal preprocessor directive
-Warning: conftest.f90:543: Illegal preprocessor directive
-Warning: conftest.f90:545: Illegal preprocessor directive
-Warning: conftest.f90:547: Illegal preprocessor directive
-Warning: conftest.f90:549: Illegal preprocessor directive
-Warning: conftest.f90:551: Illegal preprocessor directive
-Warning: conftest.f90:553: Illegal preprocessor directive
-Warning: conftest.f90:556: Illegal preprocessor directive
-Warning: conftest.f90:557: Illegal preprocessor directive
-Warning: conftest.f90:559: Illegal preprocessor directive
-Warning: conftest.f90:560: Illegal preprocessor directive
-Warning: conftest.f90:561: Illegal preprocessor directive
-Warning: conftest.f90:562: Illegal preprocessor directive
-Warning: conftest.f90:563: Illegal preprocessor directive
-Warning: conftest.f90:566: Illegal preprocessor directive
-Warning: conftest.f90:570: Illegal preprocessor directive
-Warning: conftest.f90:571: Illegal preprocessor directive
-Warning: conftest.f90:576: Illegal preprocessor directive
-Warning: conftest.f90:577: Illegal preprocessor directive
-Warning: conftest.f90:607: Illegal preprocessor directive
-Warning: conftest.f90:613: Illegal preprocessor directive
-Warning: conftest.f90:614: Illegal preprocessor directive
-Warning: conftest.f90:615: Illegal preprocessor directive
-Warning: conftest.f90:618: Illegal preprocessor directive
-Warning: conftest.f90:619: Illegal preprocessor directive
-Warning: conftest.f90:620: Illegal preprocessor directive
-Warning: conftest.f90:623: Illegal preprocessor directive
-Warning: conftest.f90:624: Illegal preprocessor directive
-Warning: conftest.f90:625: Illegal preprocessor directive
-Warning: conftest.f90:632: Illegal preprocessor directive
-Warning: conftest.f90:633: Illegal preprocessor directive
-Warning: conftest.f90:637: Illegal preprocessor directive
-Warning: conftest.f90:638: Illegal preprocessor directive
-Warning: conftest.f90:643: Illegal preprocessor directive
-Warning: conftest.f90:644: Illegal preprocessor directive
-Warning: conftest.f90:645: Illegal preprocessor directive
-Warning: conftest.f90:648: Illegal preprocessor directive
-Warning: conftest.f90:649: Illegal preprocessor directive
-Warning: conftest.f90:650: Illegal preprocessor directive
-Warning: conftest.f90:652: Illegal preprocessor directive
-Warning: conftest.f90:663: Illegal preprocessor directive
-Warning: conftest.f90:665: Illegal preprocessor directive
-Warning: conftest.f90:671: Illegal preprocessor directive
-Warning: conftest.f90:673: Illegal preprocessor directive
-Warning: conftest.f90:765: Illegal preprocessor directive
-Warning: conftest.f90:770: Illegal preprocessor directive
-Warning: conftest.f90:775: Illegal preprocessor directive
-Warning: conftest.f90:780: Illegal preprocessor directive
-Warning: conftest.f90:785: Illegal preprocessor directive
-Warning: conftest.f90:790: Illegal preprocessor directive
-Warning: conftest.f90:795: Illegal preprocessor directive
-Warning: conftest.f90:800: Illegal preprocessor directive
-Warning: conftest.f90:803: Illegal preprocessor directive
-Warning: conftest.f90:1135: Illegal preprocessor directive
-Warning: conftest.f90:1136: Illegal preprocessor directive
-Warning: conftest.f90:1138: Illegal preprocessor directive
-Warning: conftest.f90:1140: Illegal preprocessor directive
-Warning: conftest.f90:1187: Illegal preprocessor directive
-Warning: conftest.f90:1189: Illegal preprocessor directive
-Warning: conftest.f90:1191: Illegal preprocessor directive
-Warning: conftest.f90:1207: Illegal preprocessor directive
-Warning: conftest.f90:1319: Illegal preprocessor directive
-Warning: conftest.f90:1321: Illegal preprocessor directive
-Warning: conftest.f90:1562: Illegal preprocessor directive
-Warning: conftest.f90:1563: Illegal preprocessor directive
-Warning: conftest.f90:1564: Illegal preprocessor directive
-Warning: conftest.f90:1574: Illegal preprocessor directive
-Warning: conftest.f90:1575: Illegal preprocessor directive
-Warning: conftest.f90:1688: Illegal preprocessor directive
-Warning: conftest.f90:1691: Illegal preprocessor directive
-Warning: conftest.f90:1694: Illegal preprocessor directive
-Warning: conftest.f90:1731: Illegal preprocessor directive
-Warning: conftest.f90:1738: Illegal preprocessor directive
-Warning: conftest.f90:1740: Illegal preprocessor directive
-Warning: conftest.f90:1749: Illegal preprocessor directive
-Warning: conftest.f90:1773: Illegal preprocessor directive
-Warning: conftest.f90:1775: Illegal preprocessor directive
-Warning: conftest.f90:1778: Illegal preprocessor directive
-Warning: conftest.f90:1780: Illegal preprocessor directive
-conftest.f90:6.1:
-
-/* A lexical scanner generated by flex */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:16.1:
-
-/* First, we deal with platform-specific or compiler-specific issues. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:18.1:
-
-/* begin standard C headers. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:24.1:
-
-/* end standard C headers. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:26.1:
-
-/* flex integer type definitions */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:31.1:
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:35.1:
-
-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
- 1
-Error: Invalid character in name at (1)
-conftest.f90:36.2:
-
- * if you want the limit (max/min) macros for int types.
- 1
-Error: Invalid character in name at (1)
-conftest.f90:37.2:
-
- */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:43:
-
-typedef int8_t flex_int8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:44:
-
-typedef uint8_t flex_uint8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:45:
-
-typedef int16_t flex_int16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:46:
-
-typedef uint16_t flex_uint16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:47:
-
-typedef int32_t flex_int32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:48:
-
-typedef uint32_t flex_uint32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:50:
-
-typedef signed char flex_int8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:51:
-
-typedef short int flex_int16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:52:
-
-typedef int flex_int32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:53:
-
-typedef unsigned char flex_uint8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:54:
-
-typedef unsigned short int flex_uint16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:55:
-
-typedef unsigned int flex_uint32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:57.1:
-
-/* Limits of integral types. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:92.1:
-
-/* The "const" storage-class-modifier is valid. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:97.1:
-
-/* C99 requires __STDC__ to be defined as 1. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:111.1:
-
-/* Returned upon end-of-file. */
- 1
-Error: Invalid character in name at (1)
-Fatal Error: Error count reached limit of 25.
-test_conf:5682: $? = 1
-test_conf: failed program was:
-|
-| #line 3 "lex.yy.c"
-|
-| #define YY_INT_ALIGNED short int
-|
-| /* A lexical scanner generated by flex */
-|
-| #define FLEX_SCANNER
-| #define YY_FLEX_MAJOR_VERSION 2
-| #define YY_FLEX_MINOR_VERSION 5
-| #define YY_FLEX_SUBMINOR_VERSION 35
-| #if YY_FLEX_SUBMINOR_VERSION > 0
-| #define FLEX_BETA
-| #endif
-|
-| /* First, we deal with platform-specific or compiler-specific issues. */
-|
-| /* begin standard C headers. */
-| #include <stdio.h>
-| #include <string.h>
-| #include <errno.h>
-| #include <stdlib.h>
-|
-| /* end standard C headers. */
-|
-| /* flex integer type definitions */
-|
-| #ifndef FLEXINT_H
-| #define FLEXINT_H
-|
-| /* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-|
-| #if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
-|
-| /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
-| * if you want the limit (max/min) macros for int types.
-| */
-| #ifndef __STDC_LIMIT_MACROS
-| #define __STDC_LIMIT_MACROS 1
-| #endif
-|
-| #include <inttypes.h>
-| typedef int8_t flex_int8_t;
-| typedef uint8_t flex_uint8_t;
-| typedef int16_t flex_int16_t;
-| typedef uint16_t flex_uint16_t;
-| typedef int32_t flex_int32_t;
-| typedef uint32_t flex_uint32_t;
-| #else
-| typedef signed char flex_int8_t;
-| typedef short int flex_int16_t;
-| typedef int flex_int32_t;
-| typedef unsigned char flex_uint8_t;
-| typedef unsigned short int flex_uint16_t;
-| typedef unsigned int flex_uint32_t;
-|
-| /* Limits of integral types. */
-| #ifndef INT8_MIN
-| #define INT8_MIN (-128)
-| #endif
-| #ifndef INT16_MIN
-| #define INT16_MIN (-32767-1)
-| #endif
-| #ifndef INT32_MIN
-| #define INT32_MIN (-2147483647-1)
-| #endif
-| #ifndef INT8_MAX
-| #define INT8_MAX (127)
-| #endif
-| #ifndef INT16_MAX
-| #define INT16_MAX (32767)
-| #endif
-| #ifndef INT32_MAX
-| #define INT32_MAX (2147483647)
-| #endif
-| #ifndef UINT8_MAX
-| #define UINT8_MAX (255U)
-| #endif
-| #ifndef UINT16_MAX
-| #define UINT16_MAX (65535U)
-| #endif
-| #ifndef UINT32_MAX
-| #define UINT32_MAX (4294967295U)
-| #endif
-|
-| #endif /* ! C99 */
-|
-| #endif /* ! FLEXINT_H */
-|
-| #ifdef __cplusplus
-|
-| /* The "const" storage-class-modifier is valid. */
-| #define YY_USE_CONST
-|
-| #else /* ! __cplusplus */
-|
-| /* C99 requires __STDC__ to be defined as 1. */
-| #if defined (__STDC__)
-|
-| #define YY_USE_CONST
-|
-| #endif /* defined (__STDC__) */
-| #endif /* ! __cplusplus */
-|
-| #ifdef YY_USE_CONST
-| #define yyconst const
-| #else
-| #define yyconst
-| #endif
-|
-| /* Returned upon end-of-file. */
-| #define YY_NULL 0
-|
-| /* Promotes a possibly negative, possibly signed char to an unsigned
-| * integer for use as an array index. If the signed char is negative,
-| * we want to instead treat it as an 8-bit unsigned char, hence the
-| * double cast.
-| */
-| #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-|
-| /* Enter a start condition. This macro really ought to take a parameter,
-| * but we do it the disgusting crufty way forced on us by the ()-less
-| * definition of BEGIN.
-| */
-| #define BEGIN (yy_start) = 1 + 2 *
-|
-| /* Translate the current start state into a value that can be later handed
-| * to BEGIN to return to the state. The YYSTATE alias is for lex
-| * compatibility.
-| */
-| #define YY_START (((yy_start) - 1) / 2)
-| #define YYSTATE YY_START
-|
-| /* Action number for EOF rule of a given start state. */
-| #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-|
-| /* Special action meaning "start processing a new file". */
-| #define YY_NEW_FILE yyrestart(yyin )
-|
-| #define YY_END_OF_BUFFER_CHAR 0
-|
-| /* Size of default input buffer. */
-| #ifndef YY_BUF_SIZE
-| #ifdef __ia64__
-| /* On IA-64, the buffer size is 16k, not 8k.
-| * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
-| * Ditto for the __ia64__ case accordingly.
-| */
-| #define YY_BUF_SIZE 32768
-| #else
-| #define YY_BUF_SIZE 16384
-| #endif /* __ia64__ */
-| #endif
-|
-| /* The state buf must be large enough to hold one state per character in the main buffer.
-| */
-| #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
-|
-| #ifndef YY_TYPEDEF_YY_BUFFER_STATE
-| #define YY_TYPEDEF_YY_BUFFER_STATE
-| typedef struct yy_buffer_state *YY_BUFFER_STATE;
-| #endif
-|
-| extern int yyleng;
-|
-| extern FILE *yyin, *yyout;
-|
-| #define EOB_ACT_CONTINUE_SCAN 0
-| #define EOB_ACT_END_OF_FILE 1
-| #define EOB_ACT_LAST_MATCH 2
-|
-| #define YY_LESS_LINENO(n)
-|
-| /* Return all but the first "n" matched characters back to the input stream. */
-| #define yyless(n) \
-| do \
-| { \
-| /* Undo effects of setting up yytext. */ \
-| int yyless_macro_arg = (n); \
-| YY_LESS_LINENO(yyless_macro_arg);\
-| *yy_cp = (yy_hold_char); \
-| YY_RESTORE_YY_MORE_OFFSET \
-| (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
-| YY_DO_BEFORE_ACTION; /* set up yytext again */ \
-| } \
-| while ( 0 )
-|
-| #define unput(c) yyunput( c, (yytext_ptr) )
-|
-| #ifndef YY_TYPEDEF_YY_SIZE_T
-| #define YY_TYPEDEF_YY_SIZE_T
-| typedef size_t yy_size_t;
-| #endif
-|
-| #ifndef YY_STRUCT_YY_BUFFER_STATE
-| #define YY_STRUCT_YY_BUFFER_STATE
-| struct yy_buffer_state
-| {
-| FILE *yy_input_file;
-|
-| char *yy_ch_buf; /* input buffer */
-| char *yy_buf_pos; /* current position in input buffer */
-|
-| /* Size of input buffer in bytes, not including room for EOB
-| * characters.
-| */
-| yy_size_t yy_buf_size;
-|
-| /* Number of characters read into yy_ch_buf, not including EOB
-| * characters.
-| */
-| int yy_n_chars;
-|
-| /* Whether we "own" the buffer - i.e., we know we created it,
-| * and can realloc() it to grow it, and should free() it to
-| * delete it.
-| */
-| int yy_is_our_buffer;
-|
-| /* Whether this is an "interactive" input source; if so, and
-| * if we're using stdio for input, then we want to use getc()
-| * instead of fread(), to make sure we stop fetching input after
-| * each newline.
-| */
-| int yy_is_interactive;
-|
-| /* Whether we're considered to be at the beginning of a line.
-| * If so, '^' rules will be active on the next match, otherwise
-| * not.
-| */
-| int yy_at_bol;
-|
-| int yy_bs_lineno; /**< The line count. */
-| int yy_bs_column; /**< The column count. */
-|
-| /* Whether to try to fill the input buffer when we reach the
-| * end of it.
-| */
-| int yy_fill_buffer;
-|
-| int yy_buffer_status;
-|
-| #define YY_BUFFER_NEW 0
-| #define YY_BUFFER_NORMAL 1
-| /* When an EOF's been seen but there's still some text to process
-| * then we mark the buffer as YY_EOF_PENDING, to indicate that we
-| * shouldn't try reading from the input source any more. We might
-| * still have a bunch of tokens to match, though, because of
-| * possible backing-up.
-| *
-| * When we actually see the EOF, we change the status to "new"
-| * (via yyrestart()), so that the user can continue scanning by
-| * just pointing yyin at a new input file.
-| */
-| #define YY_BUFFER_EOF_PENDING 2
-|
-| };
-| #endif /* !YY_STRUCT_YY_BUFFER_STATE */
-|
-| /* Stack of input buffers. */
-| static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-| static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-| static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
-|
-| /* We provide macros for accessing buffer states in case in the
-| * future we want to put the buffer states in a more general
-| * "scanner state".
-| *
-| * Returns the top of the stack, or NULL.
-| */
-| #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
-| ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
-| : NULL)
-|
-| /* Same as previous macro, but useful when we know that the buffer stack is not
-| * NULL or when we need an lvalue. For internal use only.
-| */
-| #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-|
-| /* yy_hold_char holds the character lost when yytext is formed. */
-| static char yy_hold_char;
-| static int yy_n_chars; /* number of characters read into yy_ch_buf */
-| int yyleng;
-|
-| /* Points to current character in buffer. */
-| static char *yy_c_buf_p = (char *) 0;
-| static int yy_init = 0; /* whether we need to initialize */
-| static int yy_start = 0; /* start state number */
-|
-| /* Flag which is used to allow yywrap()'s to do buffer switches
-| * instead of setting up a fresh yyin. A bit of a hack ...
-| */
-| static int yy_did_buffer_switch_on_eof;
-|
-| void yyrestart (FILE *input_file );
-| void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer );
-| YY_BUFFER_STATE yy_create_buffer (FILE *file,int size );
-| void yy_delete_buffer (YY_BUFFER_STATE b );
-| void yy_flush_buffer (YY_BUFFER_STATE b );
-| void yypush_buffer_state (YY_BUFFER_STATE new_buffer );
-| void yypop_buffer_state (void );
-|
-| static void yyensure_buffer_stack (void );
-| static void yy_load_buffer_state (void );
-| static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file );
-|
-| #define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
-|
-| YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size );
-| YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str );
-| YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len );
-|
-| void *yyalloc (yy_size_t );
-| void *yyrealloc (void *,yy_size_t );
-| void yyfree (void * );
-|
-| #define yy_new_buffer yy_create_buffer
-|
-| #define yy_set_interactive(is_interactive) \
-| { \
-| if ( ! YY_CURRENT_BUFFER ){ \
-| yyensure_buffer_stack (); \
-| YY_CURRENT_BUFFER_LVALUE = \
-| yy_create_buffer(yyin,YY_BUF_SIZE ); \
-| } \
-| YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
-| }
-|
-| #define yy_set_bol(at_bol) \
-| { \
-| if ( ! YY_CURRENT_BUFFER ){\
-| yyensure_buffer_stack (); \
-| YY_CURRENT_BUFFER_LVALUE = \
-| yy_create_buffer(yyin,YY_BUF_SIZE ); \
-| } \
-| YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
-| }
-|
-| #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
-|
-| /* Begin user sect3 */
-|
-| typedef unsigned char YY_CHAR;
-|
-| FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
-|
-| typedef int yy_state_type;
-|
-| extern int yylineno;
-|
-| int yylineno = 1;
-|
-| extern char *yytext;
-| #define yytext_ptr yytext
-|
-| static yy_state_type yy_get_previous_state (void );
-| static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
-| static int yy_get_next_buffer (void );
-| static void yy_fatal_error (yyconst char msg[] );
-|
-| /* Done after the current pattern has been matched and before the
-| * corresponding action - sets up yytext.
-| */
-| #define YY_DO_BEFORE_ACTION \
-| (yytext_ptr) = yy_bp; \
-| (yytext_ptr) -= (yy_more_len); \
-| yyleng = (size_t) (yy_cp - (yytext_ptr)); \
-| (yy_hold_char) = *yy_cp; \
-| *yy_cp = '\0'; \
-| (yy_c_buf_p) = yy_cp;
-|
-| #define YY_NUM_RULES 8
-| #define YY_END_OF_BUFFER 9
-| /* This struct is not used in this scanner,
-| but its presence is necessary. */
-| struct yy_trans_info
-| {
-| flex_int32_t yy_verify;
-| flex_int32_t yy_nxt;
-| };
-| static yyconst flex_int16_t yy_acclist[23] =
-| { 0,
-| 9, 7, 8, 8, 1, 7, 8, 2, 7, 8,
-| 3, 7, 8, 4, 7, 8, 5, 7, 8, 6,
-| 7, 8
-| } ;
-|
-| static yyconst flex_int16_t yy_accept[14] =
-| { 0,
-| 1, 1, 1, 2, 4, 5, 8, 11, 14, 17,
-| 20, 23, 23
-| } ;
-|
-| static yyconst flex_int32_t yy_ec[256] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 3, 4, 5, 6,
-|
-| 7, 8, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-|
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1
-| } ;
-|
-| static yyconst flex_int32_t yy_meta[9] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1
-| } ;
-|
-| static yyconst flex_int16_t yy_base[13] =
-| { 0,
-| 0, 0, 9, 10, 10, 10, 10, 10, 10, 10,
-| 10, 10
-| } ;
-|
-| static yyconst flex_int16_t yy_def[13] =
-| { 0,
-| 12, 1, 12, 12, 12, 12, 12, 12, 12, 12,
-| 12, 0
-| } ;
-|
-| static yyconst flex_int16_t yy_nxt[19] =
-| { 0,
-| 4, 5, 6, 7, 8, 9, 10, 11, 12, 3,
-| 12, 12, 12, 12, 12, 12, 12, 12
-| } ;
-|
-| static yyconst flex_int16_t yy_chk[19] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1, 3, 12,
-| 12, 12, 12, 12, 12, 12, 12, 12
-| } ;
-|
-| extern int yy_flex_debug;
-| int yy_flex_debug = 0;
-|
-| static yy_state_type *yy_state_buf=0, *yy_state_ptr=0;
-| static char *yy_full_match;
-| static int yy_lp;
-| #define REJECT \
-| { \
-| *yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ \
-| yy_cp = (yy_full_match); /* restore poss. backed-over text */ \
-| ++(yy_lp); \
-| goto find_rule; \
-| }
-|
-| static int yy_more_flag = 0;
-| static int yy_more_len = 0;
-| #define yymore() ((yy_more_flag) = 1)
-| #define YY_MORE_ADJ (yy_more_len)
-| #define YY_RESTORE_YY_MORE_OFFSET
-| char *yytext;
-| #line 1 "conftest.l"
-| #line 477 "lex.yy.c"
-|
-| #define INITIAL 0
-|
-| #ifndef YY_NO_UNISTD_H
-| /* Special case for "unistd.h", since it is non-ANSI. We include it way
-| * down here because we want the user's section 1 to have been scanned first.
-| * The user has a chance to override it with an option.
-| */
-| #include <unistd.h>
-| #endif
-|
-| #ifndef YY_EXTRA_TYPE
-| #define YY_EXTRA_TYPE void *
-| #endif
-|
-| static int yy_init_globals (void );
-|
-| /* Accessor methods to globals.
-| These are made visible to non-reentrant scanners for convenience. */
-|
-| int yylex_destroy (void );
-|
-| int yyget_debug (void );
-|
-| void yyset_debug (int debug_flag );
-|
-| YY_EXTRA_TYPE yyget_extra (void );
-|
-| void yyset_extra (YY_EXTRA_TYPE user_defined );
-|
-| FILE *yyget_in (void );
-|
-| void yyset_in (FILE * in_str );
-|
-| FILE *yyget_out (void );
-|
-| void yyset_out (FILE * out_str );
-|
-| int yyget_leng (void );
-|
-| char *yyget_text (void );
-|
-| int yyget_lineno (void );
-|
-| void yyset_lineno (int line_number );
-|
-| /* Macros after this point can all be overridden by user definitions in
-| * section 1.
-| */
-|
-| #ifndef YY_SKIP_YYWRAP
-| #ifdef __cplusplus
-| extern "C" int yywrap (void );
-| #else
-| extern int yywrap (void );
-| #endif
-| #endif
-|
-| static void yyunput (int c,char *buf_ptr );
-|
-| #ifndef yytext_ptr
-| static void yy_flex_strncpy (char *,yyconst char *,int );
-| #endif
-|
-| #ifdef YY_NEED_STRLEN
-| static int yy_flex_strlen (yyconst char * );
-| #endif
-|
-| #ifndef YY_NO_INPUT
-|
-| #ifdef __cplusplus
-| static int yyinput (void );
-| #else
-| static int input (void );
-| #endif
-|
-| #endif
-|
-| /* Amount of stuff to slurp up with each read. */
-| #ifndef YY_READ_BUF_SIZE
-| #ifdef __ia64__
-| /* On IA-64, the buffer size is 16k, not 8k */
-| #define YY_READ_BUF_SIZE 16384
-| #else
-| #define YY_READ_BUF_SIZE 8192
-| #endif /* __ia64__ */
-| #endif
-|
-| /* Copy whatever the last rule matched to the standard output. */
-| #ifndef ECHO
-| /* This used to be an fputs(), but since the string might contain NUL's,
-| * we now use fwrite().
-| */
-| #define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0)
-| #endif
-|
-| /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
-| * is returned in "result".
-| */
-| #ifndef YY_INPUT
-| #define YY_INPUT(buf,result,max_size) \
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
-| { \
-| int c = '*'; \
-| size_t n; \
-| for ( n = 0; n < max_size && \
-| (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
-| buf[n] = (char) c; \
-| if ( c == '\n' ) \
-| buf[n++] = (char) c; \
-| if ( c == EOF && ferror( yyin ) ) \
-| YY_FATAL_ERROR( "input in flex scanner failed" ); \
-| result = n; \
-| } \
-| else \
-| { \
-| errno=0; \
-| while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
-| { \
-| if( errno != EINTR) \
-| { \
-| YY_FATAL_ERROR( "input in flex scanner failed" ); \
-| break; \
-| } \
-| errno=0; \
-| clearerr(yyin); \
-| } \
-| }\
-| \
-|
-| #endif
-|
-| /* No semi-colon after return; correct usage is to write "yyterminate();" -
-| * we don't want an extra ';' after the "return" because that will cause
-| * some compilers to complain about unreachable statements.
-| */
-| #ifndef yyterminate
-| #define yyterminate() return YY_NULL
-| #endif
-|
-| /* Number of entries by which start-condition stack grows. */
-| #ifndef YY_START_STACK_INCR
-| #define YY_START_STACK_INCR 25
-| #endif
-|
-| /* Report a fatal error. */
-| #ifndef YY_FATAL_ERROR
-| #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-| #endif
-|
-| /* end tables serialization structures and prototypes */
-|
-| /* Default declaration of generated scanner - a define so the user can
-| * easily add parameters.
-| */
-| #ifndef YY_DECL
-| #define YY_DECL_IS_OURS 1
-|
-| extern int yylex (void);
-|
-| #define YY_DECL int yylex (void)
-| #endif /* !YY_DECL */
-|
-| /* Code executed at the beginning of each rule, after yytext and yyleng
-| * have been set up.
-| */
-| #ifndef YY_USER_ACTION
-| #define YY_USER_ACTION
-| #endif
-|
-| /* Code executed at the end of each rule. */
-| #ifndef YY_BREAK
-| #define YY_BREAK break;
-| #endif
-|
-| #define YY_RULE_SETUP \
-| YY_USER_ACTION
-|
-| /** The main scanner function which does all the work.
-| */
-| YY_DECL
-| {
-| register yy_state_type yy_current_state;
-| register char *yy_cp, *yy_bp;
-| register int yy_act;
-|
-| #line 1 "conftest.l"
-|
-| #line 666 "lex.yy.c"
-|
-| if ( !(yy_init) )
-| {
-| (yy_init) = 1;
-|
-| #ifdef YY_USER_INIT
-| YY_USER_INIT;
-| #endif
-|
-| /* Create the reject buffer large enough to save one state per allowed character. */
-| if ( ! (yy_state_buf) )
-| (yy_state_buf) = (yy_state_type *)yyalloc(YY_STATE_BUF_SIZE );
-| if ( ! (yy_state_buf) )
-| YY_FATAL_ERROR( "out of dynamic memory in yylex()" );
-|
-| if ( ! (yy_start) )
-| (yy_start) = 1; /* first start state */
-|
-| if ( ! yyin )
-| yyin = stdin;
-|
-| if ( ! yyout )
-| yyout = stdout;
-|
-| if ( ! YY_CURRENT_BUFFER ) {
-| yyensure_buffer_stack ();
-| YY_CURRENT_BUFFER_LVALUE =
-| yy_create_buffer(yyin,YY_BUF_SIZE );
-| }
-|
-| yy_load_buffer_state( );
-| }
-|
-| while ( 1 ) /* loops until end-of-file is reached */
-| {
-| (yy_more_len) = 0;
-| if ( (yy_more_flag) )
-| {
-| (yy_more_len) = (yy_c_buf_p) - (yytext_ptr);
-| (yy_more_flag) = 0;
-| }
-| yy_cp = (yy_c_buf_p);
-|
-| /* Support of yytext. */
-| *yy_cp = (yy_hold_char);
-|
-| /* yy_bp points to the position in yy_ch_buf of the start of
-| * the current run.
-| */
-| yy_bp = yy_cp;
-|
-| yy_current_state = (yy_start);
-|
-| (yy_state_ptr) = (yy_state_buf);
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| yy_match:
-| do
-| {
-| register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| *(yy_state_ptr)++ = yy_current_state;
-| ++yy_cp;
-| }
-| while ( yy_base[yy_current_state] != 10 );
-|
-| yy_find_action:
-| yy_current_state = *--(yy_state_ptr);
-| (yy_lp) = yy_accept[yy_current_state];
-| find_rule: /* we branch to this label when backing up */
-| for ( ; ; ) /* until we find what rule we matched */
-| {
-| if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] )
-| {
-| yy_act = yy_acclist[(yy_lp)];
-| {
-| (yy_full_match) = yy_cp;
-| break;
-| }
-| }
-| --yy_cp;
-| yy_current_state = *--(yy_state_ptr);
-| (yy_lp) = yy_accept[yy_current_state];
-| }
-|
-| YY_DO_BEFORE_ACTION;
-|
-| do_action: /* This label is used only to access EOF actions. */
-|
-| switch ( yy_act )
-| { /* beginning of action switch */
-| case 1:
-| YY_RULE_SETUP
-| #line 2 "conftest.l"
-| { ECHO; }
-| YY_BREAK
-| case 2:
-| YY_RULE_SETUP
-| #line 3 "conftest.l"
-| { REJECT; }
-| YY_BREAK
-| case 3:
-| YY_RULE_SETUP
-| #line 4 "conftest.l"
-| { yymore (); }
-| YY_BREAK
-| case 4:
-| YY_RULE_SETUP
-| #line 5 "conftest.l"
-| { yyless (1); }
-| YY_BREAK
-| case 5:
-| YY_RULE_SETUP
-| #line 6 "conftest.l"
-| { yyless (input () != 0); }
-| YY_BREAK
-| case 6:
-| YY_RULE_SETUP
-| #line 7 "conftest.l"
-| { unput (yytext[0]); }
-| YY_BREAK
-| case 7:
-| YY_RULE_SETUP
-| #line 8 "conftest.l"
-| { BEGIN INITIAL; }
-| YY_BREAK
-| case 8:
-| YY_RULE_SETUP
-| #line 9 "conftest.l"
-| ECHO;
-| YY_BREAK
-| #line 804 "lex.yy.c"
-| case YY_STATE_EOF(INITIAL):
-| yyterminate();
-|
-| case YY_END_OF_BUFFER:
-| {
-| /* Amount of text matched not including the EOB char. */
-| int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
-|
-| /* Undo the effects of YY_DO_BEFORE_ACTION. */
-| *yy_cp = (yy_hold_char);
-| YY_RESTORE_YY_MORE_OFFSET
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
-| {
-| /* We're scanning a new file or input source. It's
-| * possible that this happened because the user
-| * just pointed yyin at a new source and called
-| * yylex(). If so, then we have to assure
-| * consistency between YY_CURRENT_BUFFER and our
-| * globals. Here is the right place to do so, because
-| * this is the first action (other than possibly a
-| * back-up) that will match for the new input source.
-| */
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-| YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
-| YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
-| }
-|
-| /* Note that here we test for yy_c_buf_p "<=" to the position
-| * of the first EOB in the buffer, since yy_c_buf_p will
-| * already have been incremented past the NUL character
-| * (since all states make transitions on EOB to the
-| * end-of-buffer state). Contrast this with the test
-| * in input().
-| */
-| if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-| { /* This was really a NUL. */
-| yy_state_type yy_next_state;
-|
-| (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| /* Okay, we're now positioned to make the NUL
-| * transition. We couldn't have
-| * yy_get_previous_state() go ahead and do it
-| * for us because it doesn't know how to deal
-| * with the possibility of jamming (and we don't
-| * want to build jamming into it because then it
-| * will run more slowly).
-| */
-|
-| yy_next_state = yy_try_NUL_trans( yy_current_state );
-|
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-|
-| if ( yy_next_state )
-| {
-| /* Consume the NUL. */
-| yy_cp = ++(yy_c_buf_p);
-| yy_current_state = yy_next_state;
-| goto yy_match;
-| }
-|
-| else
-| {
-| yy_cp = (yy_c_buf_p);
-| goto yy_find_action;
-| }
-| }
-|
-| else switch ( yy_get_next_buffer( ) )
-| {
-| case EOB_ACT_END_OF_FILE:
-| {
-| (yy_did_buffer_switch_on_eof) = 0;
-|
-| if ( yywrap( ) )
-| {
-| /* Note: because we've taken care in
-| * yy_get_next_buffer() to have set up
-| * yytext, we can now set up
-| * yy_c_buf_p so that if some total
-| * hoser (like flex itself) wants to
-| * call the scanner after we return the
-| * YY_NULL, it'll still work - another
-| * YY_NULL will get returned.
-| */
-| (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
-|
-| yy_act = YY_STATE_EOF(YY_START);
-| goto do_action;
-| }
-|
-| else
-| {
-| if ( ! (yy_did_buffer_switch_on_eof) )
-| YY_NEW_FILE;
-| }
-| break;
-| }
-|
-| case EOB_ACT_CONTINUE_SCAN:
-| (yy_c_buf_p) =
-| (yytext_ptr) + yy_amount_of_matched_text;
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| yy_cp = (yy_c_buf_p);
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-| goto yy_match;
-|
-| case EOB_ACT_LAST_MATCH:
-| (yy_c_buf_p) =
-| &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| yy_cp = (yy_c_buf_p);
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-| goto yy_find_action;
-| }
-| break;
-| }
-|
-| default:
-| YY_FATAL_ERROR(
-| "fatal flex scanner internal error--no action found" );
-| } /* end of action switch */
-| } /* end of scanning one token */
-| } /* end of yylex */
-|
-| /* yy_get_next_buffer - try to read in a new buffer
-| *
-| * Returns a code representing an action:
-| * EOB_ACT_LAST_MATCH -
-| * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
-| * EOB_ACT_END_OF_FILE - end of file
-| */
-| static int yy_get_next_buffer (void)
-| {
-| register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
-| register char *source = (yytext_ptr);
-| register int number_to_move, i;
-| int ret_val;
-|
-| if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
-| YY_FATAL_ERROR(
-| "fatal flex scanner internal error--end of buffer missed" );
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
-| { /* Don't try to fill the buffer, so this is an EOF. */
-| if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
-| {
-| /* We matched a single character, the EOB, so
-| * treat this as a final EOF.
-| */
-| return EOB_ACT_END_OF_FILE;
-| }
-|
-| else
-| {
-| /* We matched some text prior to the EOB, first
-| * process it.
-| */
-| return EOB_ACT_LAST_MATCH;
-| }
-| }
-|
-| /* Try to read more data. */
-|
-| /* First move last chars to start of buffer. */
-| number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
-|
-| for ( i = 0; i < number_to_move; ++i )
-| *(dest++) = *(source++);
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
-| /* don't do the read, it's not guaranteed to return an EOF,
-| * just force an EOF
-| */
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
-|
-| else
-| {
-| int num_to_read =
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
-|
-| while ( num_to_read <= 0 )
-| { /* Not enough room in the buffer - grow it. */
-|
-| YY_FATAL_ERROR(
-| "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
-|
-| }
-|
-| if ( num_to_read > YY_READ_BUF_SIZE )
-| num_to_read = YY_READ_BUF_SIZE;
-|
-| /* Read in more data. */
-| YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
-| (yy_n_chars), (size_t) num_to_read );
-|
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| if ( (yy_n_chars) == 0 )
-| {
-| if ( number_to_move == YY_MORE_ADJ )
-| {
-| ret_val = EOB_ACT_END_OF_FILE;
-| yyrestart(yyin );
-| }
-|
-| else
-| {
-| ret_val = EOB_ACT_LAST_MATCH;
-| YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
-| YY_BUFFER_EOF_PENDING;
-| }
-| }
-|
-| else
-| ret_val = EOB_ACT_CONTINUE_SCAN;
-|
-| if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
-| /* Extend the array by 50%, plus the number we really need. */
-| yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
-| if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
-| }
-|
-| (yy_n_chars) += number_to_move;
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
-|
-| (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
-|
-| return ret_val;
-| }
-|
-| /* yy_get_previous_state - get the state just before the EOB char was reached */
-|
-| static yy_state_type yy_get_previous_state (void)
-| {
-| register yy_state_type yy_current_state;
-| register char *yy_cp;
-|
-| yy_current_state = (yy_start);
-|
-| (yy_state_ptr) = (yy_state_buf);
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
-| {
-| register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| *(yy_state_ptr)++ = yy_current_state;
-| }
-|
-| return yy_current_state;
-| }
-|
-| /* yy_try_NUL_trans - try to make a transition on the NUL character
-| *
-| * synopsis
-| * next_state = yy_try_NUL_trans( current_state );
-| */
-| static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
-| {
-| register int yy_is_jam;
-|
-| register YY_CHAR yy_c = 1;
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| yy_is_jam = (yy_current_state == 12);
-| if ( ! yy_is_jam )
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| return yy_is_jam ? 0 : yy_current_state;
-| }
-|
-| static void yyunput (int c, register char * yy_bp )
-| {
-| register char *yy_cp;
-|
-| yy_cp = (yy_c_buf_p);
-|
-| /* undo effects of setting up yytext */
-| *yy_cp = (yy_hold_char);
-|
-| if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-| { /* need to shift things up to make room */
-| /* +2 for EOB chars. */
-| register int number_to_move = (yy_n_chars) + 2;
-| register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
-| register char *source =
-| &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
-|
-| while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-| *--dest = *--source;
-|
-| yy_cp += (int) (dest - source);
-| yy_bp += (int) (dest - source);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
-|
-| if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-| YY_FATAL_ERROR( "flex scanner push-back overflow" );
-| }
-|
-| *--yy_cp = (char) c;
-|
-| (yytext_ptr) = yy_bp;
-| (yy_hold_char) = *yy_cp;
-| (yy_c_buf_p) = yy_cp;
-| }
-|
-| #ifndef YY_NO_INPUT
-| #ifdef __cplusplus
-| static int yyinput (void)
-| #else
-| static int input (void)
-| #endif
-|
-| {
-| int c;
-|
-| *(yy_c_buf_p) = (yy_hold_char);
-|
-| if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
-| {
-| /* yy_c_buf_p now points to the character we want to return.
-| * If this occurs *before* the EOB characters, then it's a
-| * valid NUL; if not, then we've hit the end of the buffer.
-| */
-| if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-| /* This was really a NUL. */
-| *(yy_c_buf_p) = '\0';
-|
-| else
-| { /* need more input */
-| int offset = (yy_c_buf_p) - (yytext_ptr);
-| ++(yy_c_buf_p);
-|
-| switch ( yy_get_next_buffer( ) )
-| {
-| case EOB_ACT_LAST_MATCH:
-| /* This happens because yy_g_n_b()
-| * sees that we've accumulated a
-| * token and flags that we need to
-| * try matching the token before
-| * proceeding. But for input(),
-| * there's no matching to consider.
-| * So convert the EOB_ACT_LAST_MATCH
-| * to EOB_ACT_END_OF_FILE.
-| */
-|
-| /* Reset buffer status. */
-| yyrestart(yyin );
-|
-| /*FALLTHROUGH*/
-|
-| case EOB_ACT_END_OF_FILE:
-| {
-| if ( yywrap( ) )
-| return EOF;
-|
-| if ( ! (yy_did_buffer_switch_on_eof) )
-| YY_NEW_FILE;
-| #ifdef __cplusplus
-| return yyinput();
-| #else
-| return input();
-| #endif
-| }
-|
-| case EOB_ACT_CONTINUE_SCAN:
-| (yy_c_buf_p) = (yytext_ptr) + offset;
-| break;
-| }
-| }
-| }
-|
-| c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
-| *(yy_c_buf_p) = '\0'; /* preserve yytext */
-| (yy_hold_char) = *++(yy_c_buf_p);
-|
-| return c;
-| }
-| #endif /* ifndef YY_NO_INPUT */
-|
-| /** Immediately switch to a different input stream.
-| * @param input_file A readable stream.
-| *
-| * @note This function does not reset the start condition to @c INITIAL .
-| */
-| void yyrestart (FILE * input_file )
-| {
-|
-| if ( ! YY_CURRENT_BUFFER ){
-| yyensure_buffer_stack ();
-| YY_CURRENT_BUFFER_LVALUE =
-| yy_create_buffer(yyin,YY_BUF_SIZE );
-| }
-|
-| yy_init_buffer(YY_CURRENT_BUFFER,input_file );
-| yy_load_buffer_state( );
-| }
-|
-| /** Switch to a different input buffer.
-| * @param new_buffer The new input buffer.
-| *
-| */
-| void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer )
-| {
-|
-| /* TODO. We should be able to replace this entire function body
-| * with
-| * yypop_buffer_state();
-| * yypush_buffer_state(new_buffer);
-| */
-| yyensure_buffer_stack ();
-| if ( YY_CURRENT_BUFFER == new_buffer )
-| return;
-|
-| if ( YY_CURRENT_BUFFER )
-| {
-| /* Flush out information for old buffer. */
-| *(yy_c_buf_p) = (yy_hold_char);
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| YY_CURRENT_BUFFER_LVALUE = new_buffer;
-| yy_load_buffer_state( );
-|
-| /* We don't actually know whether we did this switch during
-| * EOF (yywrap()) processing, but the only time this flag
-| * is looked at is after yywrap() is called, so it's safe
-| * to go ahead and always set it.
-| */
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-|
-| static void yy_load_buffer_state (void)
-| {
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-| (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
-| yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
-| (yy_hold_char) = *(yy_c_buf_p);
-| }
-|
-| /** Allocate and initialize an input buffer state.
-| * @param file A readable stream.
-| * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
-| *
-| * @return the allocated buffer state.
-| */
-| YY_BUFFER_STATE yy_create_buffer (FILE * file, int size )
-| {
-| YY_BUFFER_STATE b;
-|
-| b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
-| if ( ! b )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-|
-| b->yy_buf_size = size;
-|
-| /* yy_ch_buf has to be 2 characters longer than the size given because
-| * we need to put in 2 end-of-buffer characters.
-| */
-| b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 );
-| if ( ! b->yy_ch_buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-|
-| b->yy_is_our_buffer = 1;
-|
-| yy_init_buffer(b,file );
-|
-| return b;
-| }
-|
-| /** Destroy the buffer.
-| * @param b a buffer created with yy_create_buffer()
-| *
-| */
-| void yy_delete_buffer (YY_BUFFER_STATE b )
-| {
-|
-| if ( ! b )
-| return;
-|
-| if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
-| YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
-|
-| if ( b->yy_is_our_buffer )
-| yyfree((void *) b->yy_ch_buf );
-|
-| yyfree((void *) b );
-| }
-|
-| #ifndef __cplusplus
-| extern int isatty (int );
-| #endif /* __cplusplus */
-|
-| /* Initializes or reinitializes a buffer.
-| * This function is sometimes called more than once on the same buffer,
-| * such as during a yyrestart() or at EOF.
-| */
-| static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file )
-|
-| {
-| int oerrno = errno;
-|
-| yy_flush_buffer(b );
-|
-| b->yy_input_file = file;
-| b->yy_fill_buffer = 1;
-|
-| /* If b is the current buffer, then yy_init_buffer was _probably_
-| * called from yyrestart() or through yy_get_next_buffer.
-| * In that case, we don't want to reset the lineno or column.
-| */
-| if (b != YY_CURRENT_BUFFER){
-| b->yy_bs_lineno = 1;
-| b->yy_bs_column = 0;
-| }
-|
-| b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-|
-| errno = oerrno;
-| }
-|
-| /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
-| * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
-| *
-| */
-| void yy_flush_buffer (YY_BUFFER_STATE b )
-| {
-| if ( ! b )
-| return;
-|
-| b->yy_n_chars = 0;
-|
-| /* We always need two end-of-buffer characters. The first causes
-| * a transition to the end-of-buffer state. The second causes
-| * a jam in that state.
-| */
-| b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
-| b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-|
-| b->yy_buf_pos = &b->yy_ch_buf[0];
-|
-| b->yy_at_bol = 1;
-| b->yy_buffer_status = YY_BUFFER_NEW;
-|
-| if ( b == YY_CURRENT_BUFFER )
-| yy_load_buffer_state( );
-| }
-|
-| /** Pushes the new state onto the stack. The new state becomes
-| * the current state. This function will allocate the stack
-| * if necessary.
-| * @param new_buffer The new state.
-| *
-| */
-| void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
-| {
-| if (new_buffer == NULL)
-| return;
-|
-| yyensure_buffer_stack();
-|
-| /* This block is copied from yy_switch_to_buffer. */
-| if ( YY_CURRENT_BUFFER )
-| {
-| /* Flush out information for old buffer. */
-| *(yy_c_buf_p) = (yy_hold_char);
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| /* Only push if top exists. Otherwise, replace top. */
-| if (YY_CURRENT_BUFFER)
-| (yy_buffer_stack_top)++;
-| YY_CURRENT_BUFFER_LVALUE = new_buffer;
-|
-| /* copied from yy_switch_to_buffer. */
-| yy_load_buffer_state( );
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-|
-| /** Removes and deletes the top of the stack, if present.
-| * The next element becomes the new top.
-| *
-| */
-| void yypop_buffer_state (void)
-| {
-| if (!YY_CURRENT_BUFFER)
-| return;
-|
-| yy_delete_buffer(YY_CURRENT_BUFFER );
-| YY_CURRENT_BUFFER_LVALUE = NULL;
-| if ((yy_buffer_stack_top) > 0)
-| --(yy_buffer_stack_top);
-|
-| if (YY_CURRENT_BUFFER) {
-| yy_load_buffer_state( );
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-| }
-|
-| /* Allocates the stack if it does not exist.
-| * Guarantees space for at least one push.
-| */
-| static void yyensure_buffer_stack (void)
-| {
-| int num_to_alloc;
-|
-| if (!(yy_buffer_stack)) {
-|
-| /* First allocation is just for 2 elements, since we don't know if this
-| * scanner will even need a stack. We use 2 instead of 1 to avoid an
-| * immediate realloc on the next call.
-| */
-| num_to_alloc = 1;
-| (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
-| (num_to_alloc * sizeof(struct yy_buffer_state*)
-| );
-| if ( ! (yy_buffer_stack) )
-| YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-|
-| memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-|
-| (yy_buffer_stack_max) = num_to_alloc;
-| (yy_buffer_stack_top) = 0;
-| return;
-| }
-|
-| if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-|
-| /* Increase the buffer to prepare for a possible push. */
-| int grow_size = 8 /* arbitrary grow size */;
-|
-| num_to_alloc = (yy_buffer_stack_max) + grow_size;
-| (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
-| ((yy_buffer_stack),
-| num_to_alloc * sizeof(struct yy_buffer_state*)
-| );
-| if ( ! (yy_buffer_stack) )
-| YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-|
-| /* zero only the new slots.*/
-| memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
-| (yy_buffer_stack_max) = num_to_alloc;
-| }
-| }
-|
-| /** Setup the input buffer state to scan directly from a user-specified character buffer.
-| * @param base the character buffer
-| * @param size the size in bytes of the character buffer
-| *
-| * @return the newly allocated buffer state object.
-| */
-| YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size )
-| {
-| YY_BUFFER_STATE b;
-|
-| if ( size < 2 ||
-| base[size-2] != YY_END_OF_BUFFER_CHAR ||
-| base[size-1] != YY_END_OF_BUFFER_CHAR )
-| /* They forgot to leave room for the EOB's. */
-| return 0;
-|
-| b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
-| if ( ! b )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
-|
-| b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
-| b->yy_buf_pos = b->yy_ch_buf = base;
-| b->yy_is_our_buffer = 0;
-| b->yy_input_file = 0;
-| b->yy_n_chars = b->yy_buf_size;
-| b->yy_is_interactive = 0;
-| b->yy_at_bol = 1;
-| b->yy_fill_buffer = 0;
-| b->yy_buffer_status = YY_BUFFER_NEW;
-|
-| yy_switch_to_buffer(b );
-|
-| return b;
-| }
-|
-| /** Setup the input buffer state to scan a string. The next call to yylex() will
-| * scan from a @e copy of @a str.
-| * @param yystr a NUL-terminated string to scan
-| *
-| * @return the newly allocated buffer state object.
-| * @note If you want to scan bytes that may contain NUL values, then use
-| * yy_scan_bytes() instead.
-| */
-| YY_BUFFER_STATE yy_scan_string (yyconst char * yystr )
-| {
-|
-| return yy_scan_bytes(yystr,strlen(yystr) );
-| }
-|
-| /** Setup the input buffer state to scan the given bytes. The next call to yylex() will
-| * scan from a @e copy of @a bytes.
-| * @param yybytes the byte buffer to scan
-| * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
-| *
-| * @return the newly allocated buffer state object.
-| */
-| YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len )
-| {
-| YY_BUFFER_STATE b;
-| char *buf;
-| yy_size_t n;
-| int i;
-|
-| /* Get memory for full buffer, including space for trailing EOB's. */
-| n = _yybytes_len + 2;
-| buf = (char *) yyalloc(n );
-| if ( ! buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
-|
-| for ( i = 0; i < _yybytes_len; ++i )
-| buf[i] = yybytes[i];
-|
-| buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
-|
-| b = yy_scan_buffer(buf,n );
-| if ( ! b )
-| YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
-|
-| /* It's okay to grow etc. this buffer, and we should throw it
-| * away when we're done.
-| */
-| b->yy_is_our_buffer = 1;
-|
-| return b;
-| }
-|
-| #ifndef YY_EXIT_FAILURE
-| #define YY_EXIT_FAILURE 2
-| #endif
-|
-| static void yy_fatal_error (yyconst char* msg )
-| {
-| (void) fprintf( stderr, "%s\n", msg );
-| exit( YY_EXIT_FAILURE );
-| }
-|
-| /* Redefine yyless() so it works in section 3 code. */
-|
-| #undef yyless
-| #define yyless(n) \
-| do \
-| { \
-| /* Undo effects of setting up yytext. */ \
-| int yyless_macro_arg = (n); \
-| YY_LESS_LINENO(yyless_macro_arg);\
-| yytext[yyleng] = (yy_hold_char); \
-| (yy_c_buf_p) = yytext + yyless_macro_arg; \
-| (yy_hold_char) = *(yy_c_buf_p); \
-| *(yy_c_buf_p) = '\0'; \
-| yyleng = yyless_macro_arg; \
-| } \
-| while ( 0 )
-|
-| /* Accessor methods (get/set functions) to struct members. */
-|
-| /** Get the current line number.
-| *
-| */
-| int yyget_lineno (void)
-| {
-|
-| return yylineno;
-| }
-|
-| /** Get the input stream.
-| *
-| */
-| FILE *yyget_in (void)
-| {
-| return yyin;
-| }
-|
-| /** Get the output stream.
-| *
-| */
-| FILE *yyget_out (void)
-| {
-| return yyout;
-| }
-|
-| /** Get the length of the current token.
-| *
-| */
-| int yyget_leng (void)
-| {
-| return yyleng;
-| }
-|
-| /** Get the current token.
-| *
-| */
-|
-| char *yyget_text (void)
-| {
-| return yytext;
-| }
-|
-| /** Set the current line number.
-| * @param line_number
-| *
-| */
-| void yyset_lineno (int line_number )
-| {
-|
-| yylineno = line_number;
-| }
-|
-| /** Set the input stream. This does not discard the current
-| * input buffer.
-| * @param in_str A readable stream.
-| *
-| * @see yy_switch_to_buffer
-| */
-| void yyset_in (FILE * in_str )
-| {
-| yyin = in_str ;
-| }
-|
-| void yyset_out (FILE * out_str )
-| {
-| yyout = out_str ;
-| }
-|
-| int yyget_debug (void)
-| {
-| return yy_flex_debug;
-| }
-|
-| void yyset_debug (int bdebug )
-| {
-| yy_flex_debug = bdebug ;
-| }
-|
-| static int yy_init_globals (void)
-| {
-| /* Initialization is the same as for the non-reentrant scanner.
-| * This function is called from yylex_destroy(), so don't allocate here.
-| */
-|
-| (yy_buffer_stack) = 0;
-| (yy_buffer_stack_top) = 0;
-| (yy_buffer_stack_max) = 0;
-| (yy_c_buf_p) = (char *) 0;
-| (yy_init) = 0;
-| (yy_start) = 0;
-|
-| (yy_state_buf) = 0;
-| (yy_state_ptr) = 0;
-| (yy_full_match) = 0;
-| (yy_lp) = 0;
-|
-| /* Defined in main.c */
-| #ifdef YY_STDINIT
-| yyin = stdin;
-| yyout = stdout;
-| #else
-| yyin = (FILE *) 0;
-| yyout = (FILE *) 0;
-| #endif
-|
-| /* For future reference: Set errno on error, since we are called by
-| * yylex_init()
-| */
-| return 0;
-| }
-|
-| /* yylex_destroy is for both reentrant and non-reentrant scanners. */
-| int yylex_destroy (void)
-| {
-|
-| /* Pop the buffer stack, destroying each element. */
-| while(YY_CURRENT_BUFFER){
-| yy_delete_buffer(YY_CURRENT_BUFFER );
-| YY_CURRENT_BUFFER_LVALUE = NULL;
-| yypop_buffer_state();
-| }
-|
-| /* Destroy the stack itself. */
-| yyfree((yy_buffer_stack) );
-| (yy_buffer_stack) = NULL;
-|
-| yyfree ( (yy_state_buf) );
-| (yy_state_buf) = NULL;
-|
-| /* Reset the globals. This is important in a non-reentrant scanner so the next time
-| * yylex() is called, initialization will occur. */
-| yy_init_globals( );
-|
-| return 0;
-| }
-|
-| /*
-| * Internal utility routines.
-| */
-|
-| #ifndef yytext_ptr
-| static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-| {
-| register int i;
-| for ( i = 0; i < n; ++i )
-| s1[i] = s2[i];
-| }
-| #endif
-|
-| #ifdef YY_NEED_STRLEN
-| static int yy_flex_strlen (yyconst char * s )
-| {
-| register int n;
-| for ( n = 0; s[n]; ++n )
-| ;
-|
-| return n;
-| }
-| #endif
-|
-| void *yyalloc (yy_size_t size )
-| {
-| return (void *) malloc( size );
-| }
-|
-| void *yyrealloc (void * ptr, yy_size_t size )
-| {
-| /* The cast to (char *) in the following accommodates both
-| * implementations that use char* generic pointers, and those
-| * that use void* generic pointers. It works with the latter
-| * because both ANSI C and C++ allow castless assignment from
-| * any pointer type to void*, and deal with argument conversions
-| * as though doing an assignment.
-| */
-| return (void *) realloc( (char *) ptr, size );
-| }
-|
-| void yyfree (void * ptr )
-| {
-| free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
-| }
-|
-| #define YYTABLES_NAME "yytables"
-|
-| #line 9 "conftest.l"
-|
-|
-| #ifdef YYTEXT_POINTER
-| extern char *yytext;
-| #endif
-| int
-| main (void)
-| {
-| return ! yylex () + ! yywrap ();
-| }
-test_conf:5682: mpif90 -o conftest -g -O2 conftest.f90 -ll >&5
-Warning: conftest.f90:2: Illegal preprocessor directive
-Warning: conftest.f90:4: Illegal preprocessor directive
-Warning: conftest.f90:8: Illegal preprocessor directive
-Warning: conftest.f90:9: Illegal preprocessor directive
-Warning: conftest.f90:10: Illegal preprocessor directive
-Warning: conftest.f90:11: Illegal preprocessor directive
-Warning: conftest.f90:12: Illegal preprocessor directive
-Warning: conftest.f90:13: Illegal preprocessor directive
-Warning: conftest.f90:14: Illegal preprocessor directive
-Warning: conftest.f90:19: Illegal preprocessor directive
-Warning: conftest.f90:20: Illegal preprocessor directive
-Warning: conftest.f90:21: Illegal preprocessor directive
-Warning: conftest.f90:22: Illegal preprocessor directive
-Warning: conftest.f90:28: Illegal preprocessor directive
-Warning: conftest.f90:29: Illegal preprocessor directive
-Warning: conftest.f90:33: Illegal preprocessor directive
-Warning: conftest.f90:38: Illegal preprocessor directive
-Warning: conftest.f90:39: Illegal preprocessor directive
-Warning: conftest.f90:40: Illegal preprocessor directive
-Warning: conftest.f90:42: Illegal preprocessor directive
-Warning: conftest.f90:49: Illegal preprocessor directive
-Warning: conftest.f90:58: Illegal preprocessor directive
-Warning: conftest.f90:59: Illegal preprocessor directive
-Warning: conftest.f90:60: Illegal preprocessor directive
-Warning: conftest.f90:61: Illegal preprocessor directive
-Warning: conftest.f90:62: Illegal preprocessor directive
-Warning: conftest.f90:63: Illegal preprocessor directive
-Warning: conftest.f90:64: Illegal preprocessor directive
-Warning: conftest.f90:65: Illegal preprocessor directive
-Warning: conftest.f90:66: Illegal preprocessor directive
-Warning: conftest.f90:67: Illegal preprocessor directive
-Warning: conftest.f90:68: Illegal preprocessor directive
-Warning: conftest.f90:69: Illegal preprocessor directive
-Warning: conftest.f90:70: Illegal preprocessor directive
-Warning: conftest.f90:71: Illegal preprocessor directive
-Warning: conftest.f90:72: Illegal preprocessor directive
-Warning: conftest.f90:73: Illegal preprocessor directive
-Warning: conftest.f90:74: Illegal preprocessor directive
-Warning: conftest.f90:75: Illegal preprocessor directive
-Warning: conftest.f90:76: Illegal preprocessor directive
-Warning: conftest.f90:77: Illegal preprocessor directive
-Warning: conftest.f90:78: Illegal preprocessor directive
-Warning: conftest.f90:79: Illegal preprocessor directive
-Warning: conftest.f90:80: Illegal preprocessor directive
-Warning: conftest.f90:81: Illegal preprocessor directive
-Warning: conftest.f90:82: Illegal preprocessor directive
-Warning: conftest.f90:83: Illegal preprocessor directive
-Warning: conftest.f90:84: Illegal preprocessor directive
-Warning: conftest.f90:86: Illegal preprocessor directive
-Warning: conftest.f90:88: Illegal preprocessor directive
-Warning: conftest.f90:90: Illegal preprocessor directive
-Warning: conftest.f90:93: Illegal preprocessor directive
-Warning: conftest.f90:95: Illegal preprocessor directive
-Warning: conftest.f90:98: Illegal preprocessor directive
-Warning: conftest.f90:100: Illegal preprocessor directive
-Warning: conftest.f90:102: Illegal preprocessor directive
-Warning: conftest.f90:103: Illegal preprocessor directive
-Warning: conftest.f90:105: Illegal preprocessor directive
-Warning: conftest.f90:106: Illegal preprocessor directive
-Warning: conftest.f90:107: Illegal preprocessor directive
-Warning: conftest.f90:108: Illegal preprocessor directive
-Warning: conftest.f90:109: Illegal preprocessor directive
-Warning: conftest.f90:112: Illegal preprocessor directive
-Warning: conftest.f90:119: Illegal preprocessor directive
-Warning: conftest.f90:125: Illegal preprocessor directive
-Warning: conftest.f90:131: Illegal preprocessor directive
-Warning: conftest.f90:132: Illegal preprocessor directive
-Warning: conftest.f90:135: Illegal preprocessor directive
-Warning: conftest.f90:138: Illegal preprocessor directive
-Warning: conftest.f90:140: Illegal preprocessor directive
-Warning: conftest.f90:143: Illegal preprocessor directive
-Warning: conftest.f90:144: Illegal preprocessor directive
-Warning: conftest.f90:149: Illegal preprocessor directive
-Warning: conftest.f90:150: Illegal preprocessor directive
-Warning: conftest.f90:151: Illegal preprocessor directive
-Warning: conftest.f90:152: Illegal preprocessor directive
-Warning: conftest.f90:153: Illegal preprocessor directive
-Warning: conftest.f90:157: Illegal preprocessor directive
-Warning: conftest.f90:159: Illegal preprocessor directive
-Warning: conftest.f90:160: Illegal preprocessor directive
-Warning: conftest.f90:162: Illegal preprocessor directive
-Warning: conftest.f90:168: Illegal preprocessor directive
-Warning: conftest.f90:169: Illegal preprocessor directive
-Warning: conftest.f90:170: Illegal preprocessor directive
-Warning: conftest.f90:175: Illegal preprocessor directive
-Warning: conftest.f90:188: Illegal preprocessor directive
-Warning: conftest.f90:190: Illegal preprocessor directive
-Warning: conftest.f90:191: Illegal preprocessor directive
-Warning: conftest.f90:193: Illegal preprocessor directive
-Warning: conftest.f90:195: Illegal preprocessor directive
-Warning: conftest.f90:196: Illegal preprocessor directive
-Warning: conftest.f90:243: Illegal preprocessor directive
-Warning: conftest.f90:244: Illegal preprocessor directive
-Warning: conftest.f90:255: Illegal preprocessor directive
-Warning: conftest.f90:258: Illegal preprocessor directive
-Warning: conftest.f90:271: Illegal preprocessor directive
-Warning: conftest.f90:278: Illegal preprocessor directive
-Warning: conftest.f90:307: Illegal preprocessor directive
-Warning: conftest.f90:317: Illegal preprocessor directive
-Warning: conftest.f90:319: Illegal preprocessor directive
-Warning: conftest.f90:329: Illegal preprocessor directive
-Warning: conftest.f90:339: Illegal preprocessor directive
-Warning: conftest.f90:354: Illegal preprocessor directive
-Warning: conftest.f90:364: Illegal preprocessor directive
-Warning: conftest.f90:372: Illegal preprocessor directive
-Warning: conftest.f90:373: Illegal preprocessor directive
-Warning: conftest.f90:461: Illegal preprocessor directive
-Warning: conftest.f90:471: Illegal preprocessor directive
-Warning: conftest.f90:472: Illegal preprocessor directive
-Warning: conftest.f90:473: Illegal preprocessor directive
-Warning: conftest.f90:475: Illegal preprocessor directive
-Warning: conftest.f90:476: Illegal preprocessor directive
-Warning: conftest.f90:478: Illegal preprocessor directive
-Warning: conftest.f90:480: Illegal preprocessor directive
-Warning: conftest.f90:485: Illegal preprocessor directive
-Warning: conftest.f90:486: Illegal preprocessor directive
-Warning: conftest.f90:488: Illegal preprocessor directive
-Warning: conftest.f90:489: Illegal preprocessor directive
-Warning: conftest.f90:490: Illegal preprocessor directive
-Warning: conftest.f90:527: Illegal preprocessor directive
-Warning: conftest.f90:528: Illegal preprocessor directive
-Warning: conftest.f90:530: Illegal preprocessor directive
-Warning: conftest.f90:532: Illegal preprocessor directive
-Warning: conftest.f90:533: Illegal preprocessor directive
-Warning: conftest.f90:537: Illegal preprocessor directive
-Warning: conftest.f90:539: Illegal preprocessor directive
-Warning: conftest.f90:541: Illegal preprocessor directive
-Warning: conftest.f90:543: Illegal preprocessor directive
-Warning: conftest.f90:545: Illegal preprocessor directive
-Warning: conftest.f90:547: Illegal preprocessor directive
-Warning: conftest.f90:549: Illegal preprocessor directive
-Warning: conftest.f90:551: Illegal preprocessor directive
-Warning: conftest.f90:553: Illegal preprocessor directive
-Warning: conftest.f90:556: Illegal preprocessor directive
-Warning: conftest.f90:557: Illegal preprocessor directive
-Warning: conftest.f90:559: Illegal preprocessor directive
-Warning: conftest.f90:560: Illegal preprocessor directive
-Warning: conftest.f90:561: Illegal preprocessor directive
-Warning: conftest.f90:562: Illegal preprocessor directive
-Warning: conftest.f90:563: Illegal preprocessor directive
-Warning: conftest.f90:566: Illegal preprocessor directive
-Warning: conftest.f90:570: Illegal preprocessor directive
-Warning: conftest.f90:571: Illegal preprocessor directive
-Warning: conftest.f90:576: Illegal preprocessor directive
-Warning: conftest.f90:577: Illegal preprocessor directive
-Warning: conftest.f90:607: Illegal preprocessor directive
-Warning: conftest.f90:613: Illegal preprocessor directive
-Warning: conftest.f90:614: Illegal preprocessor directive
-Warning: conftest.f90:615: Illegal preprocessor directive
-Warning: conftest.f90:618: Illegal preprocessor directive
-Warning: conftest.f90:619: Illegal preprocessor directive
-Warning: conftest.f90:620: Illegal preprocessor directive
-Warning: conftest.f90:623: Illegal preprocessor directive
-Warning: conftest.f90:624: Illegal preprocessor directive
-Warning: conftest.f90:625: Illegal preprocessor directive
-Warning: conftest.f90:632: Illegal preprocessor directive
-Warning: conftest.f90:633: Illegal preprocessor directive
-Warning: conftest.f90:637: Illegal preprocessor directive
-Warning: conftest.f90:638: Illegal preprocessor directive
-Warning: conftest.f90:643: Illegal preprocessor directive
-Warning: conftest.f90:644: Illegal preprocessor directive
-Warning: conftest.f90:645: Illegal preprocessor directive
-Warning: conftest.f90:648: Illegal preprocessor directive
-Warning: conftest.f90:649: Illegal preprocessor directive
-Warning: conftest.f90:650: Illegal preprocessor directive
-Warning: conftest.f90:652: Illegal preprocessor directive
-Warning: conftest.f90:663: Illegal preprocessor directive
-Warning: conftest.f90:665: Illegal preprocessor directive
-Warning: conftest.f90:671: Illegal preprocessor directive
-Warning: conftest.f90:673: Illegal preprocessor directive
-Warning: conftest.f90:765: Illegal preprocessor directive
-Warning: conftest.f90:770: Illegal preprocessor directive
-Warning: conftest.f90:775: Illegal preprocessor directive
-Warning: conftest.f90:780: Illegal preprocessor directive
-Warning: conftest.f90:785: Illegal preprocessor directive
-Warning: conftest.f90:790: Illegal preprocessor directive
-Warning: conftest.f90:795: Illegal preprocessor directive
-Warning: conftest.f90:800: Illegal preprocessor directive
-Warning: conftest.f90:803: Illegal preprocessor directive
-Warning: conftest.f90:1135: Illegal preprocessor directive
-Warning: conftest.f90:1136: Illegal preprocessor directive
-Warning: conftest.f90:1138: Illegal preprocessor directive
-Warning: conftest.f90:1140: Illegal preprocessor directive
-Warning: conftest.f90:1187: Illegal preprocessor directive
-Warning: conftest.f90:1189: Illegal preprocessor directive
-Warning: conftest.f90:1191: Illegal preprocessor directive
-Warning: conftest.f90:1207: Illegal preprocessor directive
-Warning: conftest.f90:1319: Illegal preprocessor directive
-Warning: conftest.f90:1321: Illegal preprocessor directive
-Warning: conftest.f90:1562: Illegal preprocessor directive
-Warning: conftest.f90:1563: Illegal preprocessor directive
-Warning: conftest.f90:1564: Illegal preprocessor directive
-Warning: conftest.f90:1574: Illegal preprocessor directive
-Warning: conftest.f90:1575: Illegal preprocessor directive
-Warning: conftest.f90:1688: Illegal preprocessor directive
-Warning: conftest.f90:1691: Illegal preprocessor directive
-Warning: conftest.f90:1694: Illegal preprocessor directive
-Warning: conftest.f90:1731: Illegal preprocessor directive
-Warning: conftest.f90:1738: Illegal preprocessor directive
-Warning: conftest.f90:1740: Illegal preprocessor directive
-Warning: conftest.f90:1749: Illegal preprocessor directive
-Warning: conftest.f90:1773: Illegal preprocessor directive
-Warning: conftest.f90:1775: Illegal preprocessor directive
-Warning: conftest.f90:1778: Illegal preprocessor directive
-Warning: conftest.f90:1780: Illegal preprocessor directive
-conftest.f90:6.1:
-
-/* A lexical scanner generated by flex */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:16.1:
-
-/* First, we deal with platform-specific or compiler-specific issues. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:18.1:
-
-/* begin standard C headers. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:24.1:
-
-/* end standard C headers. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:26.1:
-
-/* flex integer type definitions */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:31.1:
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:35.1:
-
-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
- 1
-Error: Invalid character in name at (1)
-conftest.f90:36.2:
-
- * if you want the limit (max/min) macros for int types.
- 1
-Error: Invalid character in name at (1)
-conftest.f90:37.2:
-
- */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:43:
-
-typedef int8_t flex_int8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:44:
-
-typedef uint8_t flex_uint8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:45:
-
-typedef int16_t flex_int16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:46:
-
-typedef uint16_t flex_uint16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:47:
-
-typedef int32_t flex_int32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:48:
-
-typedef uint32_t flex_uint32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:50:
-
-typedef signed char flex_int8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:51:
-
-typedef short int flex_int16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:52:
-
-typedef int flex_int32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:53:
-
-typedef unsigned char flex_uint8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:54:
-
-typedef unsigned short int flex_uint16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:55:
-
-typedef unsigned int flex_uint32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:57.1:
-
-/* Limits of integral types. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:92.1:
-
-/* The "const" storage-class-modifier is valid. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:97.1:
-
-/* C99 requires __STDC__ to be defined as 1. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:111.1:
-
-/* Returned upon end-of-file. */
- 1
-Error: Invalid character in name at (1)
-Fatal Error: Error count reached limit of 25.
-test_conf:5682: $? = 1
-test_conf: failed program was:
-|
-| #line 3 "lex.yy.c"
-|
-| #define YY_INT_ALIGNED short int
-|
-| /* A lexical scanner generated by flex */
-|
-| #define FLEX_SCANNER
-| #define YY_FLEX_MAJOR_VERSION 2
-| #define YY_FLEX_MINOR_VERSION 5
-| #define YY_FLEX_SUBMINOR_VERSION 35
-| #if YY_FLEX_SUBMINOR_VERSION > 0
-| #define FLEX_BETA
-| #endif
-|
-| /* First, we deal with platform-specific or compiler-specific issues. */
-|
-| /* begin standard C headers. */
-| #include <stdio.h>
-| #include <string.h>
-| #include <errno.h>
-| #include <stdlib.h>
-|
-| /* end standard C headers. */
-|
-| /* flex integer type definitions */
-|
-| #ifndef FLEXINT_H
-| #define FLEXINT_H
-|
-| /* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-|
-| #if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
-|
-| /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
-| * if you want the limit (max/min) macros for int types.
-| */
-| #ifndef __STDC_LIMIT_MACROS
-| #define __STDC_LIMIT_MACROS 1
-| #endif
-|
-| #include <inttypes.h>
-| typedef int8_t flex_int8_t;
-| typedef uint8_t flex_uint8_t;
-| typedef int16_t flex_int16_t;
-| typedef uint16_t flex_uint16_t;
-| typedef int32_t flex_int32_t;
-| typedef uint32_t flex_uint32_t;
-| #else
-| typedef signed char flex_int8_t;
-| typedef short int flex_int16_t;
-| typedef int flex_int32_t;
-| typedef unsigned char flex_uint8_t;
-| typedef unsigned short int flex_uint16_t;
-| typedef unsigned int flex_uint32_t;
-|
-| /* Limits of integral types. */
-| #ifndef INT8_MIN
-| #define INT8_MIN (-128)
-| #endif
-| #ifndef INT16_MIN
-| #define INT16_MIN (-32767-1)
-| #endif
-| #ifndef INT32_MIN
-| #define INT32_MIN (-2147483647-1)
-| #endif
-| #ifndef INT8_MAX
-| #define INT8_MAX (127)
-| #endif
-| #ifndef INT16_MAX
-| #define INT16_MAX (32767)
-| #endif
-| #ifndef INT32_MAX
-| #define INT32_MAX (2147483647)
-| #endif
-| #ifndef UINT8_MAX
-| #define UINT8_MAX (255U)
-| #endif
-| #ifndef UINT16_MAX
-| #define UINT16_MAX (65535U)
-| #endif
-| #ifndef UINT32_MAX
-| #define UINT32_MAX (4294967295U)
-| #endif
-|
-| #endif /* ! C99 */
-|
-| #endif /* ! FLEXINT_H */
-|
-| #ifdef __cplusplus
-|
-| /* The "const" storage-class-modifier is valid. */
-| #define YY_USE_CONST
-|
-| #else /* ! __cplusplus */
-|
-| /* C99 requires __STDC__ to be defined as 1. */
-| #if defined (__STDC__)
-|
-| #define YY_USE_CONST
-|
-| #endif /* defined (__STDC__) */
-| #endif /* ! __cplusplus */
-|
-| #ifdef YY_USE_CONST
-| #define yyconst const
-| #else
-| #define yyconst
-| #endif
-|
-| /* Returned upon end-of-file. */
-| #define YY_NULL 0
-|
-| /* Promotes a possibly negative, possibly signed char to an unsigned
-| * integer for use as an array index. If the signed char is negative,
-| * we want to instead treat it as an 8-bit unsigned char, hence the
-| * double cast.
-| */
-| #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-|
-| /* Enter a start condition. This macro really ought to take a parameter,
-| * but we do it the disgusting crufty way forced on us by the ()-less
-| * definition of BEGIN.
-| */
-| #define BEGIN (yy_start) = 1 + 2 *
-|
-| /* Translate the current start state into a value that can be later handed
-| * to BEGIN to return to the state. The YYSTATE alias is for lex
-| * compatibility.
-| */
-| #define YY_START (((yy_start) - 1) / 2)
-| #define YYSTATE YY_START
-|
-| /* Action number for EOF rule of a given start state. */
-| #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-|
-| /* Special action meaning "start processing a new file". */
-| #define YY_NEW_FILE yyrestart(yyin )
-|
-| #define YY_END_OF_BUFFER_CHAR 0
-|
-| /* Size of default input buffer. */
-| #ifndef YY_BUF_SIZE
-| #ifdef __ia64__
-| /* On IA-64, the buffer size is 16k, not 8k.
-| * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
-| * Ditto for the __ia64__ case accordingly.
-| */
-| #define YY_BUF_SIZE 32768
-| #else
-| #define YY_BUF_SIZE 16384
-| #endif /* __ia64__ */
-| #endif
-|
-| /* The state buf must be large enough to hold one state per character in the main buffer.
-| */
-| #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
-|
-| #ifndef YY_TYPEDEF_YY_BUFFER_STATE
-| #define YY_TYPEDEF_YY_BUFFER_STATE
-| typedef struct yy_buffer_state *YY_BUFFER_STATE;
-| #endif
-|
-| extern int yyleng;
-|
-| extern FILE *yyin, *yyout;
-|
-| #define EOB_ACT_CONTINUE_SCAN 0
-| #define EOB_ACT_END_OF_FILE 1
-| #define EOB_ACT_LAST_MATCH 2
-|
-| #define YY_LESS_LINENO(n)
-|
-| /* Return all but the first "n" matched characters back to the input stream. */
-| #define yyless(n) \
-| do \
-| { \
-| /* Undo effects of setting up yytext. */ \
-| int yyless_macro_arg = (n); \
-| YY_LESS_LINENO(yyless_macro_arg);\
-| *yy_cp = (yy_hold_char); \
-| YY_RESTORE_YY_MORE_OFFSET \
-| (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
-| YY_DO_BEFORE_ACTION; /* set up yytext again */ \
-| } \
-| while ( 0 )
-|
-| #define unput(c) yyunput( c, (yytext_ptr) )
-|
-| #ifndef YY_TYPEDEF_YY_SIZE_T
-| #define YY_TYPEDEF_YY_SIZE_T
-| typedef size_t yy_size_t;
-| #endif
-|
-| #ifndef YY_STRUCT_YY_BUFFER_STATE
-| #define YY_STRUCT_YY_BUFFER_STATE
-| struct yy_buffer_state
-| {
-| FILE *yy_input_file;
-|
-| char *yy_ch_buf; /* input buffer */
-| char *yy_buf_pos; /* current position in input buffer */
-|
-| /* Size of input buffer in bytes, not including room for EOB
-| * characters.
-| */
-| yy_size_t yy_buf_size;
-|
-| /* Number of characters read into yy_ch_buf, not including EOB
-| * characters.
-| */
-| int yy_n_chars;
-|
-| /* Whether we "own" the buffer - i.e., we know we created it,
-| * and can realloc() it to grow it, and should free() it to
-| * delete it.
-| */
-| int yy_is_our_buffer;
-|
-| /* Whether this is an "interactive" input source; if so, and
-| * if we're using stdio for input, then we want to use getc()
-| * instead of fread(), to make sure we stop fetching input after
-| * each newline.
-| */
-| int yy_is_interactive;
-|
-| /* Whether we're considered to be at the beginning of a line.
-| * If so, '^' rules will be active on the next match, otherwise
-| * not.
-| */
-| int yy_at_bol;
-|
-| int yy_bs_lineno; /**< The line count. */
-| int yy_bs_column; /**< The column count. */
-|
-| /* Whether to try to fill the input buffer when we reach the
-| * end of it.
-| */
-| int yy_fill_buffer;
-|
-| int yy_buffer_status;
-|
-| #define YY_BUFFER_NEW 0
-| #define YY_BUFFER_NORMAL 1
-| /* When an EOF's been seen but there's still some text to process
-| * then we mark the buffer as YY_EOF_PENDING, to indicate that we
-| * shouldn't try reading from the input source any more. We might
-| * still have a bunch of tokens to match, though, because of
-| * possible backing-up.
-| *
-| * When we actually see the EOF, we change the status to "new"
-| * (via yyrestart()), so that the user can continue scanning by
-| * just pointing yyin at a new input file.
-| */
-| #define YY_BUFFER_EOF_PENDING 2
-|
-| };
-| #endif /* !YY_STRUCT_YY_BUFFER_STATE */
-|
-| /* Stack of input buffers. */
-| static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-| static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-| static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
-|
-| /* We provide macros for accessing buffer states in case in the
-| * future we want to put the buffer states in a more general
-| * "scanner state".
-| *
-| * Returns the top of the stack, or NULL.
-| */
-| #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
-| ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
-| : NULL)
-|
-| /* Same as previous macro, but useful when we know that the buffer stack is not
-| * NULL or when we need an lvalue. For internal use only.
-| */
-| #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-|
-| /* yy_hold_char holds the character lost when yytext is formed. */
-| static char yy_hold_char;
-| static int yy_n_chars; /* number of characters read into yy_ch_buf */
-| int yyleng;
-|
-| /* Points to current character in buffer. */
-| static char *yy_c_buf_p = (char *) 0;
-| static int yy_init = 0; /* whether we need to initialize */
-| static int yy_start = 0; /* start state number */
-|
-| /* Flag which is used to allow yywrap()'s to do buffer switches
-| * instead of setting up a fresh yyin. A bit of a hack ...
-| */
-| static int yy_did_buffer_switch_on_eof;
-|
-| void yyrestart (FILE *input_file );
-| void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer );
-| YY_BUFFER_STATE yy_create_buffer (FILE *file,int size );
-| void yy_delete_buffer (YY_BUFFER_STATE b );
-| void yy_flush_buffer (YY_BUFFER_STATE b );
-| void yypush_buffer_state (YY_BUFFER_STATE new_buffer );
-| void yypop_buffer_state (void );
-|
-| static void yyensure_buffer_stack (void );
-| static void yy_load_buffer_state (void );
-| static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file );
-|
-| #define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
-|
-| YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size );
-| YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str );
-| YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len );
-|
-| void *yyalloc (yy_size_t );
-| void *yyrealloc (void *,yy_size_t );
-| void yyfree (void * );
-|
-| #define yy_new_buffer yy_create_buffer
-|
-| #define yy_set_interactive(is_interactive) \
-| { \
-| if ( ! YY_CURRENT_BUFFER ){ \
-| yyensure_buffer_stack (); \
-| YY_CURRENT_BUFFER_LVALUE = \
-| yy_create_buffer(yyin,YY_BUF_SIZE ); \
-| } \
-| YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
-| }
-|
-| #define yy_set_bol(at_bol) \
-| { \
-| if ( ! YY_CURRENT_BUFFER ){\
-| yyensure_buffer_stack (); \
-| YY_CURRENT_BUFFER_LVALUE = \
-| yy_create_buffer(yyin,YY_BUF_SIZE ); \
-| } \
-| YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
-| }
-|
-| #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
-|
-| /* Begin user sect3 */
-|
-| typedef unsigned char YY_CHAR;
-|
-| FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
-|
-| typedef int yy_state_type;
-|
-| extern int yylineno;
-|
-| int yylineno = 1;
-|
-| extern char *yytext;
-| #define yytext_ptr yytext
-|
-| static yy_state_type yy_get_previous_state (void );
-| static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
-| static int yy_get_next_buffer (void );
-| static void yy_fatal_error (yyconst char msg[] );
-|
-| /* Done after the current pattern has been matched and before the
-| * corresponding action - sets up yytext.
-| */
-| #define YY_DO_BEFORE_ACTION \
-| (yytext_ptr) = yy_bp; \
-| (yytext_ptr) -= (yy_more_len); \
-| yyleng = (size_t) (yy_cp - (yytext_ptr)); \
-| (yy_hold_char) = *yy_cp; \
-| *yy_cp = '\0'; \
-| (yy_c_buf_p) = yy_cp;
-|
-| #define YY_NUM_RULES 8
-| #define YY_END_OF_BUFFER 9
-| /* This struct is not used in this scanner,
-| but its presence is necessary. */
-| struct yy_trans_info
-| {
-| flex_int32_t yy_verify;
-| flex_int32_t yy_nxt;
-| };
-| static yyconst flex_int16_t yy_acclist[23] =
-| { 0,
-| 9, 7, 8, 8, 1, 7, 8, 2, 7, 8,
-| 3, 7, 8, 4, 7, 8, 5, 7, 8, 6,
-| 7, 8
-| } ;
-|
-| static yyconst flex_int16_t yy_accept[14] =
-| { 0,
-| 1, 1, 1, 2, 4, 5, 8, 11, 14, 17,
-| 20, 23, 23
-| } ;
-|
-| static yyconst flex_int32_t yy_ec[256] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 3, 4, 5, 6,
-|
-| 7, 8, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-|
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1
-| } ;
-|
-| static yyconst flex_int32_t yy_meta[9] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1
-| } ;
-|
-| static yyconst flex_int16_t yy_base[13] =
-| { 0,
-| 0, 0, 9, 10, 10, 10, 10, 10, 10, 10,
-| 10, 10
-| } ;
-|
-| static yyconst flex_int16_t yy_def[13] =
-| { 0,
-| 12, 1, 12, 12, 12, 12, 12, 12, 12, 12,
-| 12, 0
-| } ;
-|
-| static yyconst flex_int16_t yy_nxt[19] =
-| { 0,
-| 4, 5, 6, 7, 8, 9, 10, 11, 12, 3,
-| 12, 12, 12, 12, 12, 12, 12, 12
-| } ;
-|
-| static yyconst flex_int16_t yy_chk[19] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1, 3, 12,
-| 12, 12, 12, 12, 12, 12, 12, 12
-| } ;
-|
-| extern int yy_flex_debug;
-| int yy_flex_debug = 0;
-|
-| static yy_state_type *yy_state_buf=0, *yy_state_ptr=0;
-| static char *yy_full_match;
-| static int yy_lp;
-| #define REJECT \
-| { \
-| *yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ \
-| yy_cp = (yy_full_match); /* restore poss. backed-over text */ \
-| ++(yy_lp); \
-| goto find_rule; \
-| }
-|
-| static int yy_more_flag = 0;
-| static int yy_more_len = 0;
-| #define yymore() ((yy_more_flag) = 1)
-| #define YY_MORE_ADJ (yy_more_len)
-| #define YY_RESTORE_YY_MORE_OFFSET
-| char *yytext;
-| #line 1 "conftest.l"
-| #line 477 "lex.yy.c"
-|
-| #define INITIAL 0
-|
-| #ifndef YY_NO_UNISTD_H
-| /* Special case for "unistd.h", since it is non-ANSI. We include it way
-| * down here because we want the user's section 1 to have been scanned first.
-| * The user has a chance to override it with an option.
-| */
-| #include <unistd.h>
-| #endif
-|
-| #ifndef YY_EXTRA_TYPE
-| #define YY_EXTRA_TYPE void *
-| #endif
-|
-| static int yy_init_globals (void );
-|
-| /* Accessor methods to globals.
-| These are made visible to non-reentrant scanners for convenience. */
-|
-| int yylex_destroy (void );
-|
-| int yyget_debug (void );
-|
-| void yyset_debug (int debug_flag );
-|
-| YY_EXTRA_TYPE yyget_extra (void );
-|
-| void yyset_extra (YY_EXTRA_TYPE user_defined );
-|
-| FILE *yyget_in (void );
-|
-| void yyset_in (FILE * in_str );
-|
-| FILE *yyget_out (void );
-|
-| void yyset_out (FILE * out_str );
-|
-| int yyget_leng (void );
-|
-| char *yyget_text (void );
-|
-| int yyget_lineno (void );
-|
-| void yyset_lineno (int line_number );
-|
-| /* Macros after this point can all be overridden by user definitions in
-| * section 1.
-| */
-|
-| #ifndef YY_SKIP_YYWRAP
-| #ifdef __cplusplus
-| extern "C" int yywrap (void );
-| #else
-| extern int yywrap (void );
-| #endif
-| #endif
-|
-| static void yyunput (int c,char *buf_ptr );
-|
-| #ifndef yytext_ptr
-| static void yy_flex_strncpy (char *,yyconst char *,int );
-| #endif
-|
-| #ifdef YY_NEED_STRLEN
-| static int yy_flex_strlen (yyconst char * );
-| #endif
-|
-| #ifndef YY_NO_INPUT
-|
-| #ifdef __cplusplus
-| static int yyinput (void );
-| #else
-| static int input (void );
-| #endif
-|
-| #endif
-|
-| /* Amount of stuff to slurp up with each read. */
-| #ifndef YY_READ_BUF_SIZE
-| #ifdef __ia64__
-| /* On IA-64, the buffer size is 16k, not 8k */
-| #define YY_READ_BUF_SIZE 16384
-| #else
-| #define YY_READ_BUF_SIZE 8192
-| #endif /* __ia64__ */
-| #endif
-|
-| /* Copy whatever the last rule matched to the standard output. */
-| #ifndef ECHO
-| /* This used to be an fputs(), but since the string might contain NUL's,
-| * we now use fwrite().
-| */
-| #define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0)
-| #endif
-|
-| /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
-| * is returned in "result".
-| */
-| #ifndef YY_INPUT
-| #define YY_INPUT(buf,result,max_size) \
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
-| { \
-| int c = '*'; \
-| size_t n; \
-| for ( n = 0; n < max_size && \
-| (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
-| buf[n] = (char) c; \
-| if ( c == '\n' ) \
-| buf[n++] = (char) c; \
-| if ( c == EOF && ferror( yyin ) ) \
-| YY_FATAL_ERROR( "input in flex scanner failed" ); \
-| result = n; \
-| } \
-| else \
-| { \
-| errno=0; \
-| while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
-| { \
-| if( errno != EINTR) \
-| { \
-| YY_FATAL_ERROR( "input in flex scanner failed" ); \
-| break; \
-| } \
-| errno=0; \
-| clearerr(yyin); \
-| } \
-| }\
-| \
-|
-| #endif
-|
-| /* No semi-colon after return; correct usage is to write "yyterminate();" -
-| * we don't want an extra ';' after the "return" because that will cause
-| * some compilers to complain about unreachable statements.
-| */
-| #ifndef yyterminate
-| #define yyterminate() return YY_NULL
-| #endif
-|
-| /* Number of entries by which start-condition stack grows. */
-| #ifndef YY_START_STACK_INCR
-| #define YY_START_STACK_INCR 25
-| #endif
-|
-| /* Report a fatal error. */
-| #ifndef YY_FATAL_ERROR
-| #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-| #endif
-|
-| /* end tables serialization structures and prototypes */
-|
-| /* Default declaration of generated scanner - a define so the user can
-| * easily add parameters.
-| */
-| #ifndef YY_DECL
-| #define YY_DECL_IS_OURS 1
-|
-| extern int yylex (void);
-|
-| #define YY_DECL int yylex (void)
-| #endif /* !YY_DECL */
-|
-| /* Code executed at the beginning of each rule, after yytext and yyleng
-| * have been set up.
-| */
-| #ifndef YY_USER_ACTION
-| #define YY_USER_ACTION
-| #endif
-|
-| /* Code executed at the end of each rule. */
-| #ifndef YY_BREAK
-| #define YY_BREAK break;
-| #endif
-|
-| #define YY_RULE_SETUP \
-| YY_USER_ACTION
-|
-| /** The main scanner function which does all the work.
-| */
-| YY_DECL
-| {
-| register yy_state_type yy_current_state;
-| register char *yy_cp, *yy_bp;
-| register int yy_act;
-|
-| #line 1 "conftest.l"
-|
-| #line 666 "lex.yy.c"
-|
-| if ( !(yy_init) )
-| {
-| (yy_init) = 1;
-|
-| #ifdef YY_USER_INIT
-| YY_USER_INIT;
-| #endif
-|
-| /* Create the reject buffer large enough to save one state per allowed character. */
-| if ( ! (yy_state_buf) )
-| (yy_state_buf) = (yy_state_type *)yyalloc(YY_STATE_BUF_SIZE );
-| if ( ! (yy_state_buf) )
-| YY_FATAL_ERROR( "out of dynamic memory in yylex()" );
-|
-| if ( ! (yy_start) )
-| (yy_start) = 1; /* first start state */
-|
-| if ( ! yyin )
-| yyin = stdin;
-|
-| if ( ! yyout )
-| yyout = stdout;
-|
-| if ( ! YY_CURRENT_BUFFER ) {
-| yyensure_buffer_stack ();
-| YY_CURRENT_BUFFER_LVALUE =
-| yy_create_buffer(yyin,YY_BUF_SIZE );
-| }
-|
-| yy_load_buffer_state( );
-| }
-|
-| while ( 1 ) /* loops until end-of-file is reached */
-| {
-| (yy_more_len) = 0;
-| if ( (yy_more_flag) )
-| {
-| (yy_more_len) = (yy_c_buf_p) - (yytext_ptr);
-| (yy_more_flag) = 0;
-| }
-| yy_cp = (yy_c_buf_p);
-|
-| /* Support of yytext. */
-| *yy_cp = (yy_hold_char);
-|
-| /* yy_bp points to the position in yy_ch_buf of the start of
-| * the current run.
-| */
-| yy_bp = yy_cp;
-|
-| yy_current_state = (yy_start);
-|
-| (yy_state_ptr) = (yy_state_buf);
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| yy_match:
-| do
-| {
-| register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| *(yy_state_ptr)++ = yy_current_state;
-| ++yy_cp;
-| }
-| while ( yy_base[yy_current_state] != 10 );
-|
-| yy_find_action:
-| yy_current_state = *--(yy_state_ptr);
-| (yy_lp) = yy_accept[yy_current_state];
-| find_rule: /* we branch to this label when backing up */
-| for ( ; ; ) /* until we find what rule we matched */
-| {
-| if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] )
-| {
-| yy_act = yy_acclist[(yy_lp)];
-| {
-| (yy_full_match) = yy_cp;
-| break;
-| }
-| }
-| --yy_cp;
-| yy_current_state = *--(yy_state_ptr);
-| (yy_lp) = yy_accept[yy_current_state];
-| }
-|
-| YY_DO_BEFORE_ACTION;
-|
-| do_action: /* This label is used only to access EOF actions. */
-|
-| switch ( yy_act )
-| { /* beginning of action switch */
-| case 1:
-| YY_RULE_SETUP
-| #line 2 "conftest.l"
-| { ECHO; }
-| YY_BREAK
-| case 2:
-| YY_RULE_SETUP
-| #line 3 "conftest.l"
-| { REJECT; }
-| YY_BREAK
-| case 3:
-| YY_RULE_SETUP
-| #line 4 "conftest.l"
-| { yymore (); }
-| YY_BREAK
-| case 4:
-| YY_RULE_SETUP
-| #line 5 "conftest.l"
-| { yyless (1); }
-| YY_BREAK
-| case 5:
-| YY_RULE_SETUP
-| #line 6 "conftest.l"
-| { yyless (input () != 0); }
-| YY_BREAK
-| case 6:
-| YY_RULE_SETUP
-| #line 7 "conftest.l"
-| { unput (yytext[0]); }
-| YY_BREAK
-| case 7:
-| YY_RULE_SETUP
-| #line 8 "conftest.l"
-| { BEGIN INITIAL; }
-| YY_BREAK
-| case 8:
-| YY_RULE_SETUP
-| #line 9 "conftest.l"
-| ECHO;
-| YY_BREAK
-| #line 804 "lex.yy.c"
-| case YY_STATE_EOF(INITIAL):
-| yyterminate();
-|
-| case YY_END_OF_BUFFER:
-| {
-| /* Amount of text matched not including the EOB char. */
-| int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
-|
-| /* Undo the effects of YY_DO_BEFORE_ACTION. */
-| *yy_cp = (yy_hold_char);
-| YY_RESTORE_YY_MORE_OFFSET
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
-| {
-| /* We're scanning a new file or input source. It's
-| * possible that this happened because the user
-| * just pointed yyin at a new source and called
-| * yylex(). If so, then we have to assure
-| * consistency between YY_CURRENT_BUFFER and our
-| * globals. Here is the right place to do so, because
-| * this is the first action (other than possibly a
-| * back-up) that will match for the new input source.
-| */
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-| YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
-| YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
-| }
-|
-| /* Note that here we test for yy_c_buf_p "<=" to the position
-| * of the first EOB in the buffer, since yy_c_buf_p will
-| * already have been incremented past the NUL character
-| * (since all states make transitions on EOB to the
-| * end-of-buffer state). Contrast this with the test
-| * in input().
-| */
-| if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-| { /* This was really a NUL. */
-| yy_state_type yy_next_state;
-|
-| (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| /* Okay, we're now positioned to make the NUL
-| * transition. We couldn't have
-| * yy_get_previous_state() go ahead and do it
-| * for us because it doesn't know how to deal
-| * with the possibility of jamming (and we don't
-| * want to build jamming into it because then it
-| * will run more slowly).
-| */
-|
-| yy_next_state = yy_try_NUL_trans( yy_current_state );
-|
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-|
-| if ( yy_next_state )
-| {
-| /* Consume the NUL. */
-| yy_cp = ++(yy_c_buf_p);
-| yy_current_state = yy_next_state;
-| goto yy_match;
-| }
-|
-| else
-| {
-| yy_cp = (yy_c_buf_p);
-| goto yy_find_action;
-| }
-| }
-|
-| else switch ( yy_get_next_buffer( ) )
-| {
-| case EOB_ACT_END_OF_FILE:
-| {
-| (yy_did_buffer_switch_on_eof) = 0;
-|
-| if ( yywrap( ) )
-| {
-| /* Note: because we've taken care in
-| * yy_get_next_buffer() to have set up
-| * yytext, we can now set up
-| * yy_c_buf_p so that if some total
-| * hoser (like flex itself) wants to
-| * call the scanner after we return the
-| * YY_NULL, it'll still work - another
-| * YY_NULL will get returned.
-| */
-| (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
-|
-| yy_act = YY_STATE_EOF(YY_START);
-| goto do_action;
-| }
-|
-| else
-| {
-| if ( ! (yy_did_buffer_switch_on_eof) )
-| YY_NEW_FILE;
-| }
-| break;
-| }
-|
-| case EOB_ACT_CONTINUE_SCAN:
-| (yy_c_buf_p) =
-| (yytext_ptr) + yy_amount_of_matched_text;
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| yy_cp = (yy_c_buf_p);
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-| goto yy_match;
-|
-| case EOB_ACT_LAST_MATCH:
-| (yy_c_buf_p) =
-| &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| yy_cp = (yy_c_buf_p);
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-| goto yy_find_action;
-| }
-| break;
-| }
-|
-| default:
-| YY_FATAL_ERROR(
-| "fatal flex scanner internal error--no action found" );
-| } /* end of action switch */
-| } /* end of scanning one token */
-| } /* end of yylex */
-|
-| /* yy_get_next_buffer - try to read in a new buffer
-| *
-| * Returns a code representing an action:
-| * EOB_ACT_LAST_MATCH -
-| * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
-| * EOB_ACT_END_OF_FILE - end of file
-| */
-| static int yy_get_next_buffer (void)
-| {
-| register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
-| register char *source = (yytext_ptr);
-| register int number_to_move, i;
-| int ret_val;
-|
-| if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
-| YY_FATAL_ERROR(
-| "fatal flex scanner internal error--end of buffer missed" );
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
-| { /* Don't try to fill the buffer, so this is an EOF. */
-| if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
-| {
-| /* We matched a single character, the EOB, so
-| * treat this as a final EOF.
-| */
-| return EOB_ACT_END_OF_FILE;
-| }
-|
-| else
-| {
-| /* We matched some text prior to the EOB, first
-| * process it.
-| */
-| return EOB_ACT_LAST_MATCH;
-| }
-| }
-|
-| /* Try to read more data. */
-|
-| /* First move last chars to start of buffer. */
-| number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
-|
-| for ( i = 0; i < number_to_move; ++i )
-| *(dest++) = *(source++);
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
-| /* don't do the read, it's not guaranteed to return an EOF,
-| * just force an EOF
-| */
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
-|
-| else
-| {
-| int num_to_read =
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
-|
-| while ( num_to_read <= 0 )
-| { /* Not enough room in the buffer - grow it. */
-|
-| YY_FATAL_ERROR(
-| "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
-|
-| }
-|
-| if ( num_to_read > YY_READ_BUF_SIZE )
-| num_to_read = YY_READ_BUF_SIZE;
-|
-| /* Read in more data. */
-| YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
-| (yy_n_chars), (size_t) num_to_read );
-|
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| if ( (yy_n_chars) == 0 )
-| {
-| if ( number_to_move == YY_MORE_ADJ )
-| {
-| ret_val = EOB_ACT_END_OF_FILE;
-| yyrestart(yyin );
-| }
-|
-| else
-| {
-| ret_val = EOB_ACT_LAST_MATCH;
-| YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
-| YY_BUFFER_EOF_PENDING;
-| }
-| }
-|
-| else
-| ret_val = EOB_ACT_CONTINUE_SCAN;
-|
-| if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
-| /* Extend the array by 50%, plus the number we really need. */
-| yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
-| if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
-| }
-|
-| (yy_n_chars) += number_to_move;
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
-|
-| (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
-|
-| return ret_val;
-| }
-|
-| /* yy_get_previous_state - get the state just before the EOB char was reached */
-|
-| static yy_state_type yy_get_previous_state (void)
-| {
-| register yy_state_type yy_current_state;
-| register char *yy_cp;
-|
-| yy_current_state = (yy_start);
-|
-| (yy_state_ptr) = (yy_state_buf);
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
-| {
-| register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| *(yy_state_ptr)++ = yy_current_state;
-| }
-|
-| return yy_current_state;
-| }
-|
-| /* yy_try_NUL_trans - try to make a transition on the NUL character
-| *
-| * synopsis
-| * next_state = yy_try_NUL_trans( current_state );
-| */
-| static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
-| {
-| register int yy_is_jam;
-|
-| register YY_CHAR yy_c = 1;
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| yy_is_jam = (yy_current_state == 12);
-| if ( ! yy_is_jam )
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| return yy_is_jam ? 0 : yy_current_state;
-| }
-|
-| static void yyunput (int c, register char * yy_bp )
-| {
-| register char *yy_cp;
-|
-| yy_cp = (yy_c_buf_p);
-|
-| /* undo effects of setting up yytext */
-| *yy_cp = (yy_hold_char);
-|
-| if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-| { /* need to shift things up to make room */
-| /* +2 for EOB chars. */
-| register int number_to_move = (yy_n_chars) + 2;
-| register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
-| register char *source =
-| &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
-|
-| while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-| *--dest = *--source;
-|
-| yy_cp += (int) (dest - source);
-| yy_bp += (int) (dest - source);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
-|
-| if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-| YY_FATAL_ERROR( "flex scanner push-back overflow" );
-| }
-|
-| *--yy_cp = (char) c;
-|
-| (yytext_ptr) = yy_bp;
-| (yy_hold_char) = *yy_cp;
-| (yy_c_buf_p) = yy_cp;
-| }
-|
-| #ifndef YY_NO_INPUT
-| #ifdef __cplusplus
-| static int yyinput (void)
-| #else
-| static int input (void)
-| #endif
-|
-| {
-| int c;
-|
-| *(yy_c_buf_p) = (yy_hold_char);
-|
-| if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
-| {
-| /* yy_c_buf_p now points to the character we want to return.
-| * If this occurs *before* the EOB characters, then it's a
-| * valid NUL; if not, then we've hit the end of the buffer.
-| */
-| if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-| /* This was really a NUL. */
-| *(yy_c_buf_p) = '\0';
-|
-| else
-| { /* need more input */
-| int offset = (yy_c_buf_p) - (yytext_ptr);
-| ++(yy_c_buf_p);
-|
-| switch ( yy_get_next_buffer( ) )
-| {
-| case EOB_ACT_LAST_MATCH:
-| /* This happens because yy_g_n_b()
-| * sees that we've accumulated a
-| * token and flags that we need to
-| * try matching the token before
-| * proceeding. But for input(),
-| * there's no matching to consider.
-| * So convert the EOB_ACT_LAST_MATCH
-| * to EOB_ACT_END_OF_FILE.
-| */
-|
-| /* Reset buffer status. */
-| yyrestart(yyin );
-|
-| /*FALLTHROUGH*/
-|
-| case EOB_ACT_END_OF_FILE:
-| {
-| if ( yywrap( ) )
-| return EOF;
-|
-| if ( ! (yy_did_buffer_switch_on_eof) )
-| YY_NEW_FILE;
-| #ifdef __cplusplus
-| return yyinput();
-| #else
-| return input();
-| #endif
-| }
-|
-| case EOB_ACT_CONTINUE_SCAN:
-| (yy_c_buf_p) = (yytext_ptr) + offset;
-| break;
-| }
-| }
-| }
-|
-| c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
-| *(yy_c_buf_p) = '\0'; /* preserve yytext */
-| (yy_hold_char) = *++(yy_c_buf_p);
-|
-| return c;
-| }
-| #endif /* ifndef YY_NO_INPUT */
-|
-| /** Immediately switch to a different input stream.
-| * @param input_file A readable stream.
-| *
-| * @note This function does not reset the start condition to @c INITIAL .
-| */
-| void yyrestart (FILE * input_file )
-| {
-|
-| if ( ! YY_CURRENT_BUFFER ){
-| yyensure_buffer_stack ();
-| YY_CURRENT_BUFFER_LVALUE =
-| yy_create_buffer(yyin,YY_BUF_SIZE );
-| }
-|
-| yy_init_buffer(YY_CURRENT_BUFFER,input_file );
-| yy_load_buffer_state( );
-| }
-|
-| /** Switch to a different input buffer.
-| * @param new_buffer The new input buffer.
-| *
-| */
-| void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer )
-| {
-|
-| /* TODO. We should be able to replace this entire function body
-| * with
-| * yypop_buffer_state();
-| * yypush_buffer_state(new_buffer);
-| */
-| yyensure_buffer_stack ();
-| if ( YY_CURRENT_BUFFER == new_buffer )
-| return;
-|
-| if ( YY_CURRENT_BUFFER )
-| {
-| /* Flush out information for old buffer. */
-| *(yy_c_buf_p) = (yy_hold_char);
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| YY_CURRENT_BUFFER_LVALUE = new_buffer;
-| yy_load_buffer_state( );
-|
-| /* We don't actually know whether we did this switch during
-| * EOF (yywrap()) processing, but the only time this flag
-| * is looked at is after yywrap() is called, so it's safe
-| * to go ahead and always set it.
-| */
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-|
-| static void yy_load_buffer_state (void)
-| {
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-| (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
-| yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
-| (yy_hold_char) = *(yy_c_buf_p);
-| }
-|
-| /** Allocate and initialize an input buffer state.
-| * @param file A readable stream.
-| * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
-| *
-| * @return the allocated buffer state.
-| */
-| YY_BUFFER_STATE yy_create_buffer (FILE * file, int size )
-| {
-| YY_BUFFER_STATE b;
-|
-| b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
-| if ( ! b )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-|
-| b->yy_buf_size = size;
-|
-| /* yy_ch_buf has to be 2 characters longer than the size given because
-| * we need to put in 2 end-of-buffer characters.
-| */
-| b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 );
-| if ( ! b->yy_ch_buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-|
-| b->yy_is_our_buffer = 1;
-|
-| yy_init_buffer(b,file );
-|
-| return b;
-| }
-|
-| /** Destroy the buffer.
-| * @param b a buffer created with yy_create_buffer()
-| *
-| */
-| void yy_delete_buffer (YY_BUFFER_STATE b )
-| {
-|
-| if ( ! b )
-| return;
-|
-| if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
-| YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
-|
-| if ( b->yy_is_our_buffer )
-| yyfree((void *) b->yy_ch_buf );
-|
-| yyfree((void *) b );
-| }
-|
-| #ifndef __cplusplus
-| extern int isatty (int );
-| #endif /* __cplusplus */
-|
-| /* Initializes or reinitializes a buffer.
-| * This function is sometimes called more than once on the same buffer,
-| * such as during a yyrestart() or at EOF.
-| */
-| static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file )
-|
-| {
-| int oerrno = errno;
-|
-| yy_flush_buffer(b );
-|
-| b->yy_input_file = file;
-| b->yy_fill_buffer = 1;
-|
-| /* If b is the current buffer, then yy_init_buffer was _probably_
-| * called from yyrestart() or through yy_get_next_buffer.
-| * In that case, we don't want to reset the lineno or column.
-| */
-| if (b != YY_CURRENT_BUFFER){
-| b->yy_bs_lineno = 1;
-| b->yy_bs_column = 0;
-| }
-|
-| b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-|
-| errno = oerrno;
-| }
-|
-| /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
-| * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
-| *
-| */
-| void yy_flush_buffer (YY_BUFFER_STATE b )
-| {
-| if ( ! b )
-| return;
-|
-| b->yy_n_chars = 0;
-|
-| /* We always need two end-of-buffer characters. The first causes
-| * a transition to the end-of-buffer state. The second causes
-| * a jam in that state.
-| */
-| b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
-| b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-|
-| b->yy_buf_pos = &b->yy_ch_buf[0];
-|
-| b->yy_at_bol = 1;
-| b->yy_buffer_status = YY_BUFFER_NEW;
-|
-| if ( b == YY_CURRENT_BUFFER )
-| yy_load_buffer_state( );
-| }
-|
-| /** Pushes the new state onto the stack. The new state becomes
-| * the current state. This function will allocate the stack
-| * if necessary.
-| * @param new_buffer The new state.
-| *
-| */
-| void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
-| {
-| if (new_buffer == NULL)
-| return;
-|
-| yyensure_buffer_stack();
-|
-| /* This block is copied from yy_switch_to_buffer. */
-| if ( YY_CURRENT_BUFFER )
-| {
-| /* Flush out information for old buffer. */
-| *(yy_c_buf_p) = (yy_hold_char);
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| /* Only push if top exists. Otherwise, replace top. */
-| if (YY_CURRENT_BUFFER)
-| (yy_buffer_stack_top)++;
-| YY_CURRENT_BUFFER_LVALUE = new_buffer;
-|
-| /* copied from yy_switch_to_buffer. */
-| yy_load_buffer_state( );
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-|
-| /** Removes and deletes the top of the stack, if present.
-| * The next element becomes the new top.
-| *
-| */
-| void yypop_buffer_state (void)
-| {
-| if (!YY_CURRENT_BUFFER)
-| return;
-|
-| yy_delete_buffer(YY_CURRENT_BUFFER );
-| YY_CURRENT_BUFFER_LVALUE = NULL;
-| if ((yy_buffer_stack_top) > 0)
-| --(yy_buffer_stack_top);
-|
-| if (YY_CURRENT_BUFFER) {
-| yy_load_buffer_state( );
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-| }
-|
-| /* Allocates the stack if it does not exist.
-| * Guarantees space for at least one push.
-| */
-| static void yyensure_buffer_stack (void)
-| {
-| int num_to_alloc;
-|
-| if (!(yy_buffer_stack)) {
-|
-| /* First allocation is just for 2 elements, since we don't know if this
-| * scanner will even need a stack. We use 2 instead of 1 to avoid an
-| * immediate realloc on the next call.
-| */
-| num_to_alloc = 1;
-| (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
-| (num_to_alloc * sizeof(struct yy_buffer_state*)
-| );
-| if ( ! (yy_buffer_stack) )
-| YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-|
-| memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-|
-| (yy_buffer_stack_max) = num_to_alloc;
-| (yy_buffer_stack_top) = 0;
-| return;
-| }
-|
-| if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-|
-| /* Increase the buffer to prepare for a possible push. */
-| int grow_size = 8 /* arbitrary grow size */;
-|
-| num_to_alloc = (yy_buffer_stack_max) + grow_size;
-| (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
-| ((yy_buffer_stack),
-| num_to_alloc * sizeof(struct yy_buffer_state*)
-| );
-| if ( ! (yy_buffer_stack) )
-| YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-|
-| /* zero only the new slots.*/
-| memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
-| (yy_buffer_stack_max) = num_to_alloc;
-| }
-| }
-|
-| /** Setup the input buffer state to scan directly from a user-specified character buffer.
-| * @param base the character buffer
-| * @param size the size in bytes of the character buffer
-| *
-| * @return the newly allocated buffer state object.
-| */
-| YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size )
-| {
-| YY_BUFFER_STATE b;
-|
-| if ( size < 2 ||
-| base[size-2] != YY_END_OF_BUFFER_CHAR ||
-| base[size-1] != YY_END_OF_BUFFER_CHAR )
-| /* They forgot to leave room for the EOB's. */
-| return 0;
-|
-| b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
-| if ( ! b )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
-|
-| b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
-| b->yy_buf_pos = b->yy_ch_buf = base;
-| b->yy_is_our_buffer = 0;
-| b->yy_input_file = 0;
-| b->yy_n_chars = b->yy_buf_size;
-| b->yy_is_interactive = 0;
-| b->yy_at_bol = 1;
-| b->yy_fill_buffer = 0;
-| b->yy_buffer_status = YY_BUFFER_NEW;
-|
-| yy_switch_to_buffer(b );
-|
-| return b;
-| }
-|
-| /** Setup the input buffer state to scan a string. The next call to yylex() will
-| * scan from a @e copy of @a str.
-| * @param yystr a NUL-terminated string to scan
-| *
-| * @return the newly allocated buffer state object.
-| * @note If you want to scan bytes that may contain NUL values, then use
-| * yy_scan_bytes() instead.
-| */
-| YY_BUFFER_STATE yy_scan_string (yyconst char * yystr )
-| {
-|
-| return yy_scan_bytes(yystr,strlen(yystr) );
-| }
-|
-| /** Setup the input buffer state to scan the given bytes. The next call to yylex() will
-| * scan from a @e copy of @a bytes.
-| * @param yybytes the byte buffer to scan
-| * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
-| *
-| * @return the newly allocated buffer state object.
-| */
-| YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len )
-| {
-| YY_BUFFER_STATE b;
-| char *buf;
-| yy_size_t n;
-| int i;
-|
-| /* Get memory for full buffer, including space for trailing EOB's. */
-| n = _yybytes_len + 2;
-| buf = (char *) yyalloc(n );
-| if ( ! buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
-|
-| for ( i = 0; i < _yybytes_len; ++i )
-| buf[i] = yybytes[i];
-|
-| buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
-|
-| b = yy_scan_buffer(buf,n );
-| if ( ! b )
-| YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
-|
-| /* It's okay to grow etc. this buffer, and we should throw it
-| * away when we're done.
-| */
-| b->yy_is_our_buffer = 1;
-|
-| return b;
-| }
-|
-| #ifndef YY_EXIT_FAILURE
-| #define YY_EXIT_FAILURE 2
-| #endif
-|
-| static void yy_fatal_error (yyconst char* msg )
-| {
-| (void) fprintf( stderr, "%s\n", msg );
-| exit( YY_EXIT_FAILURE );
-| }
-|
-| /* Redefine yyless() so it works in section 3 code. */
-|
-| #undef yyless
-| #define yyless(n) \
-| do \
-| { \
-| /* Undo effects of setting up yytext. */ \
-| int yyless_macro_arg = (n); \
-| YY_LESS_LINENO(yyless_macro_arg);\
-| yytext[yyleng] = (yy_hold_char); \
-| (yy_c_buf_p) = yytext + yyless_macro_arg; \
-| (yy_hold_char) = *(yy_c_buf_p); \
-| *(yy_c_buf_p) = '\0'; \
-| yyleng = yyless_macro_arg; \
-| } \
-| while ( 0 )
-|
-| /* Accessor methods (get/set functions) to struct members. */
-|
-| /** Get the current line number.
-| *
-| */
-| int yyget_lineno (void)
-| {
-|
-| return yylineno;
-| }
-|
-| /** Get the input stream.
-| *
-| */
-| FILE *yyget_in (void)
-| {
-| return yyin;
-| }
-|
-| /** Get the output stream.
-| *
-| */
-| FILE *yyget_out (void)
-| {
-| return yyout;
-| }
-|
-| /** Get the length of the current token.
-| *
-| */
-| int yyget_leng (void)
-| {
-| return yyleng;
-| }
-|
-| /** Get the current token.
-| *
-| */
-|
-| char *yyget_text (void)
-| {
-| return yytext;
-| }
-|
-| /** Set the current line number.
-| * @param line_number
-| *
-| */
-| void yyset_lineno (int line_number )
-| {
-|
-| yylineno = line_number;
-| }
-|
-| /** Set the input stream. This does not discard the current
-| * input buffer.
-| * @param in_str A readable stream.
-| *
-| * @see yy_switch_to_buffer
-| */
-| void yyset_in (FILE * in_str )
-| {
-| yyin = in_str ;
-| }
-|
-| void yyset_out (FILE * out_str )
-| {
-| yyout = out_str ;
-| }
-|
-| int yyget_debug (void)
-| {
-| return yy_flex_debug;
-| }
-|
-| void yyset_debug (int bdebug )
-| {
-| yy_flex_debug = bdebug ;
-| }
-|
-| static int yy_init_globals (void)
-| {
-| /* Initialization is the same as for the non-reentrant scanner.
-| * This function is called from yylex_destroy(), so don't allocate here.
-| */
-|
-| (yy_buffer_stack) = 0;
-| (yy_buffer_stack_top) = 0;
-| (yy_buffer_stack_max) = 0;
-| (yy_c_buf_p) = (char *) 0;
-| (yy_init) = 0;
-| (yy_start) = 0;
-|
-| (yy_state_buf) = 0;
-| (yy_state_ptr) = 0;
-| (yy_full_match) = 0;
-| (yy_lp) = 0;
-|
-| /* Defined in main.c */
-| #ifdef YY_STDINIT
-| yyin = stdin;
-| yyout = stdout;
-| #else
-| yyin = (FILE *) 0;
-| yyout = (FILE *) 0;
-| #endif
-|
-| /* For future reference: Set errno on error, since we are called by
-| * yylex_init()
-| */
-| return 0;
-| }
-|
-| /* yylex_destroy is for both reentrant and non-reentrant scanners. */
-| int yylex_destroy (void)
-| {
-|
-| /* Pop the buffer stack, destroying each element. */
-| while(YY_CURRENT_BUFFER){
-| yy_delete_buffer(YY_CURRENT_BUFFER );
-| YY_CURRENT_BUFFER_LVALUE = NULL;
-| yypop_buffer_state();
-| }
-|
-| /* Destroy the stack itself. */
-| yyfree((yy_buffer_stack) );
-| (yy_buffer_stack) = NULL;
-|
-| yyfree ( (yy_state_buf) );
-| (yy_state_buf) = NULL;
-|
-| /* Reset the globals. This is important in a non-reentrant scanner so the next time
-| * yylex() is called, initialization will occur. */
-| yy_init_globals( );
-|
-| return 0;
-| }
-|
-| /*
-| * Internal utility routines.
-| */
-|
-| #ifndef yytext_ptr
-| static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-| {
-| register int i;
-| for ( i = 0; i < n; ++i )
-| s1[i] = s2[i];
-| }
-| #endif
-|
-| #ifdef YY_NEED_STRLEN
-| static int yy_flex_strlen (yyconst char * s )
-| {
-| register int n;
-| for ( n = 0; s[n]; ++n )
-| ;
-|
-| return n;
-| }
-| #endif
-|
-| void *yyalloc (yy_size_t size )
-| {
-| return (void *) malloc( size );
-| }
-|
-| void *yyrealloc (void * ptr, yy_size_t size )
-| {
-| /* The cast to (char *) in the following accommodates both
-| * implementations that use char* generic pointers, and those
-| * that use void* generic pointers. It works with the latter
-| * because both ANSI C and C++ allow castless assignment from
-| * any pointer type to void*, and deal with argument conversions
-| * as though doing an assignment.
-| */
-| return (void *) realloc( (char *) ptr, size );
-| }
-|
-| void yyfree (void * ptr )
-| {
-| free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
-| }
-|
-| #define YYTABLES_NAME "yytables"
-|
-| #line 9 "conftest.l"
-|
-|
-| #ifdef YYTEXT_POINTER
-| extern char *yytext;
-| #endif
-| int
-| main (void)
-| {
-| return ! yylex () + ! yywrap ();
-| }
-test_conf:5692: result: none needed
-test_conf:5698: checking whether yytext is a pointer
-test_conf:5713: mpif90 -o conftest -g -O2 conftest.f90 >&5
-Warning: conftest.f90:1: Illegal preprocessor directive
-Warning: conftest.f90:3: Illegal preprocessor directive
-Warning: conftest.f90:5: Illegal preprocessor directive
-Warning: conftest.f90:9: Illegal preprocessor directive
-Warning: conftest.f90:10: Illegal preprocessor directive
-Warning: conftest.f90:11: Illegal preprocessor directive
-Warning: conftest.f90:12: Illegal preprocessor directive
-Warning: conftest.f90:13: Illegal preprocessor directive
-Warning: conftest.f90:14: Illegal preprocessor directive
-Warning: conftest.f90:15: Illegal preprocessor directive
-Warning: conftest.f90:20: Illegal preprocessor directive
-Warning: conftest.f90:21: Illegal preprocessor directive
-Warning: conftest.f90:22: Illegal preprocessor directive
-Warning: conftest.f90:23: Illegal preprocessor directive
-Warning: conftest.f90:29: Illegal preprocessor directive
-Warning: conftest.f90:30: Illegal preprocessor directive
-Warning: conftest.f90:34: Illegal preprocessor directive
-Warning: conftest.f90:39: Illegal preprocessor directive
-Warning: conftest.f90:40: Illegal preprocessor directive
-Warning: conftest.f90:41: Illegal preprocessor directive
-Warning: conftest.f90:43: Illegal preprocessor directive
-Warning: conftest.f90:50: Illegal preprocessor directive
-Warning: conftest.f90:59: Illegal preprocessor directive
-Warning: conftest.f90:60: Illegal preprocessor directive
-Warning: conftest.f90:61: Illegal preprocessor directive
-Warning: conftest.f90:62: Illegal preprocessor directive
-Warning: conftest.f90:63: Illegal preprocessor directive
-Warning: conftest.f90:64: Illegal preprocessor directive
-Warning: conftest.f90:65: Illegal preprocessor directive
-Warning: conftest.f90:66: Illegal preprocessor directive
-Warning: conftest.f90:67: Illegal preprocessor directive
-Warning: conftest.f90:68: Illegal preprocessor directive
-Warning: conftest.f90:69: Illegal preprocessor directive
-Warning: conftest.f90:70: Illegal preprocessor directive
-Warning: conftest.f90:71: Illegal preprocessor directive
-Warning: conftest.f90:72: Illegal preprocessor directive
-Warning: conftest.f90:73: Illegal preprocessor directive
-Warning: conftest.f90:74: Illegal preprocessor directive
-Warning: conftest.f90:75: Illegal preprocessor directive
-Warning: conftest.f90:76: Illegal preprocessor directive
-Warning: conftest.f90:77: Illegal preprocessor directive
-Warning: conftest.f90:78: Illegal preprocessor directive
-Warning: conftest.f90:79: Illegal preprocessor directive
-Warning: conftest.f90:80: Illegal preprocessor directive
-Warning: conftest.f90:81: Illegal preprocessor directive
-Warning: conftest.f90:82: Illegal preprocessor directive
-Warning: conftest.f90:83: Illegal preprocessor directive
-Warning: conftest.f90:84: Illegal preprocessor directive
-Warning: conftest.f90:85: Illegal preprocessor directive
-Warning: conftest.f90:87: Illegal preprocessor directive
-Warning: conftest.f90:89: Illegal preprocessor directive
-Warning: conftest.f90:91: Illegal preprocessor directive
-Warning: conftest.f90:94: Illegal preprocessor directive
-Warning: conftest.f90:96: Illegal preprocessor directive
-Warning: conftest.f90:99: Illegal preprocessor directive
-Warning: conftest.f90:101: Illegal preprocessor directive
-Warning: conftest.f90:103: Illegal preprocessor directive
-Warning: conftest.f90:104: Illegal preprocessor directive
-Warning: conftest.f90:106: Illegal preprocessor directive
-Warning: conftest.f90:107: Illegal preprocessor directive
-Warning: conftest.f90:108: Illegal preprocessor directive
-Warning: conftest.f90:109: Illegal preprocessor directive
-Warning: conftest.f90:110: Illegal preprocessor directive
-Warning: conftest.f90:113: Illegal preprocessor directive
-Warning: conftest.f90:120: Illegal preprocessor directive
-Warning: conftest.f90:126: Illegal preprocessor directive
-Warning: conftest.f90:132: Illegal preprocessor directive
-Warning: conftest.f90:133: Illegal preprocessor directive
-Warning: conftest.f90:136: Illegal preprocessor directive
-Warning: conftest.f90:139: Illegal preprocessor directive
-Warning: conftest.f90:141: Illegal preprocessor directive
-Warning: conftest.f90:144: Illegal preprocessor directive
-Warning: conftest.f90:145: Illegal preprocessor directive
-Warning: conftest.f90:150: Illegal preprocessor directive
-Warning: conftest.f90:151: Illegal preprocessor directive
-Warning: conftest.f90:152: Illegal preprocessor directive
-Warning: conftest.f90:153: Illegal preprocessor directive
-Warning: conftest.f90:154: Illegal preprocessor directive
-Warning: conftest.f90:158: Illegal preprocessor directive
-Warning: conftest.f90:160: Illegal preprocessor directive
-Warning: conftest.f90:161: Illegal preprocessor directive
-Warning: conftest.f90:163: Illegal preprocessor directive
-Warning: conftest.f90:169: Illegal preprocessor directive
-Warning: conftest.f90:170: Illegal preprocessor directive
-Warning: conftest.f90:171: Illegal preprocessor directive
-Warning: conftest.f90:176: Illegal preprocessor directive
-Warning: conftest.f90:189: Illegal preprocessor directive
-Warning: conftest.f90:191: Illegal preprocessor directive
-Warning: conftest.f90:192: Illegal preprocessor directive
-Warning: conftest.f90:194: Illegal preprocessor directive
-Warning: conftest.f90:196: Illegal preprocessor directive
-Warning: conftest.f90:197: Illegal preprocessor directive
-Warning: conftest.f90:244: Illegal preprocessor directive
-Warning: conftest.f90:245: Illegal preprocessor directive
-Warning: conftest.f90:256: Illegal preprocessor directive
-Warning: conftest.f90:259: Illegal preprocessor directive
-Warning: conftest.f90:272: Illegal preprocessor directive
-Warning: conftest.f90:279: Illegal preprocessor directive
-Warning: conftest.f90:308: Illegal preprocessor directive
-Warning: conftest.f90:318: Illegal preprocessor directive
-Warning: conftest.f90:320: Illegal preprocessor directive
-Warning: conftest.f90:330: Illegal preprocessor directive
-Warning: conftest.f90:340: Illegal preprocessor directive
-Warning: conftest.f90:355: Illegal preprocessor directive
-Warning: conftest.f90:365: Illegal preprocessor directive
-Warning: conftest.f90:373: Illegal preprocessor directive
-Warning: conftest.f90:374: Illegal preprocessor directive
-Warning: conftest.f90:462: Illegal preprocessor directive
-Warning: conftest.f90:472: Illegal preprocessor directive
-Warning: conftest.f90:473: Illegal preprocessor directive
-Warning: conftest.f90:474: Illegal preprocessor directive
-Warning: conftest.f90:476: Illegal preprocessor directive
-Warning: conftest.f90:477: Illegal preprocessor directive
-Warning: conftest.f90:479: Illegal preprocessor directive
-Warning: conftest.f90:481: Illegal preprocessor directive
-Warning: conftest.f90:486: Illegal preprocessor directive
-Warning: conftest.f90:487: Illegal preprocessor directive
-Warning: conftest.f90:489: Illegal preprocessor directive
-Warning: conftest.f90:490: Illegal preprocessor directive
-Warning: conftest.f90:491: Illegal preprocessor directive
-Warning: conftest.f90:528: Illegal preprocessor directive
-Warning: conftest.f90:529: Illegal preprocessor directive
-Warning: conftest.f90:531: Illegal preprocessor directive
-Warning: conftest.f90:533: Illegal preprocessor directive
-Warning: conftest.f90:534: Illegal preprocessor directive
-Warning: conftest.f90:538: Illegal preprocessor directive
-Warning: conftest.f90:540: Illegal preprocessor directive
-Warning: conftest.f90:542: Illegal preprocessor directive
-Warning: conftest.f90:544: Illegal preprocessor directive
-Warning: conftest.f90:546: Illegal preprocessor directive
-Warning: conftest.f90:548: Illegal preprocessor directive
-Warning: conftest.f90:550: Illegal preprocessor directive
-Warning: conftest.f90:552: Illegal preprocessor directive
-Warning: conftest.f90:554: Illegal preprocessor directive
-Warning: conftest.f90:557: Illegal preprocessor directive
-Warning: conftest.f90:558: Illegal preprocessor directive
-Warning: conftest.f90:560: Illegal preprocessor directive
-Warning: conftest.f90:561: Illegal preprocessor directive
-Warning: conftest.f90:562: Illegal preprocessor directive
-Warning: conftest.f90:563: Illegal preprocessor directive
-Warning: conftest.f90:564: Illegal preprocessor directive
-Warning: conftest.f90:567: Illegal preprocessor directive
-Warning: conftest.f90:571: Illegal preprocessor directive
-Warning: conftest.f90:572: Illegal preprocessor directive
-Warning: conftest.f90:577: Illegal preprocessor directive
-Warning: conftest.f90:578: Illegal preprocessor directive
-Warning: conftest.f90:608: Illegal preprocessor directive
-Warning: conftest.f90:614: Illegal preprocessor directive
-Warning: conftest.f90:615: Illegal preprocessor directive
-Warning: conftest.f90:616: Illegal preprocessor directive
-Warning: conftest.f90:619: Illegal preprocessor directive
-Warning: conftest.f90:620: Illegal preprocessor directive
-Warning: conftest.f90:621: Illegal preprocessor directive
-Warning: conftest.f90:624: Illegal preprocessor directive
-Warning: conftest.f90:625: Illegal preprocessor directive
-Warning: conftest.f90:626: Illegal preprocessor directive
-Warning: conftest.f90:633: Illegal preprocessor directive
-Warning: conftest.f90:634: Illegal preprocessor directive
-Warning: conftest.f90:638: Illegal preprocessor directive
-Warning: conftest.f90:639: Illegal preprocessor directive
-Warning: conftest.f90:644: Illegal preprocessor directive
-Warning: conftest.f90:645: Illegal preprocessor directive
-Warning: conftest.f90:646: Illegal preprocessor directive
-Warning: conftest.f90:649: Illegal preprocessor directive
-Warning: conftest.f90:650: Illegal preprocessor directive
-Warning: conftest.f90:651: Illegal preprocessor directive
-Warning: conftest.f90:653: Illegal preprocessor directive
-Warning: conftest.f90:664: Illegal preprocessor directive
-Warning: conftest.f90:666: Illegal preprocessor directive
-Warning: conftest.f90:672: Illegal preprocessor directive
-Warning: conftest.f90:674: Illegal preprocessor directive
-Warning: conftest.f90:766: Illegal preprocessor directive
-Warning: conftest.f90:771: Illegal preprocessor directive
-Warning: conftest.f90:776: Illegal preprocessor directive
-Warning: conftest.f90:781: Illegal preprocessor directive
-Warning: conftest.f90:786: Illegal preprocessor directive
-Warning: conftest.f90:791: Illegal preprocessor directive
-Warning: conftest.f90:796: Illegal preprocessor directive
-Warning: conftest.f90:801: Illegal preprocessor directive
-Warning: conftest.f90:804: Illegal preprocessor directive
-Warning: conftest.f90:1136: Illegal preprocessor directive
-Warning: conftest.f90:1137: Illegal preprocessor directive
-Warning: conftest.f90:1139: Illegal preprocessor directive
-Warning: conftest.f90:1141: Illegal preprocessor directive
-Warning: conftest.f90:1188: Illegal preprocessor directive
-Warning: conftest.f90:1190: Illegal preprocessor directive
-Warning: conftest.f90:1192: Illegal preprocessor directive
-Warning: conftest.f90:1208: Illegal preprocessor directive
-Warning: conftest.f90:1320: Illegal preprocessor directive
-Warning: conftest.f90:1322: Illegal preprocessor directive
-Warning: conftest.f90:1563: Illegal preprocessor directive
-Warning: conftest.f90:1564: Illegal preprocessor directive
-Warning: conftest.f90:1565: Illegal preprocessor directive
-Warning: conftest.f90:1575: Illegal preprocessor directive
-Warning: conftest.f90:1576: Illegal preprocessor directive
-Warning: conftest.f90:1689: Illegal preprocessor directive
-Warning: conftest.f90:1692: Illegal preprocessor directive
-Warning: conftest.f90:1695: Illegal preprocessor directive
-Warning: conftest.f90:1732: Illegal preprocessor directive
-Warning: conftest.f90:1739: Illegal preprocessor directive
-Warning: conftest.f90:1741: Illegal preprocessor directive
-Warning: conftest.f90:1750: Illegal preprocessor directive
-Warning: conftest.f90:1774: Illegal preprocessor directive
-Warning: conftest.f90:1776: Illegal preprocessor directive
-Warning: conftest.f90:1779: Illegal preprocessor directive
-Warning: conftest.f90:1781: Illegal preprocessor directive
-conftest.f90:7.1:
-
-/* A lexical scanner generated by flex */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:17.1:
-
-/* First, we deal with platform-specific or compiler-specific issues. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:19.1:
-
-/* begin standard C headers. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:25.1:
-
-/* end standard C headers. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:27.1:
-
-/* flex integer type definitions */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:32.1:
-
-/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:36.1:
-
-/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
- 1
-Error: Invalid character in name at (1)
-conftest.f90:37.2:
-
- * if you want the limit (max/min) macros for int types.
- 1
-Error: Invalid character in name at (1)
-conftest.f90:38.2:
-
- */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:44:
-
-typedef int8_t flex_int8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:45:
-
-typedef uint8_t flex_uint8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:46:
-
-typedef int16_t flex_int16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:47:
-
-typedef uint16_t flex_uint16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:48:
-
-typedef int32_t flex_int32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:49:
-
-typedef uint32_t flex_uint32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:51:
-
-typedef signed char flex_int8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:52:
-
-typedef short int flex_int16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:53:
-
-typedef int flex_int32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:54:
-
-typedef unsigned char flex_uint8_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:55:
-
-typedef unsigned short int flex_uint16_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:56:
-
-typedef unsigned int flex_uint32_t;
-1
-Error: Unclassifiable statement at (1)
-conftest.f90:58.1:
-
-/* Limits of integral types. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:93.1:
-
-/* The "const" storage-class-modifier is valid. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:98.1:
-
-/* C99 requires __STDC__ to be defined as 1. */
- 1
-Error: Invalid character in name at (1)
-conftest.f90:112.1:
-
-/* Returned upon end-of-file. */
- 1
-Error: Invalid character in name at (1)
-Fatal Error: Error count reached limit of 25.
-test_conf:5713: $? = 1
-test_conf: failed program was:
-| #define YYTEXT_POINTER 1
-|
-| #line 3 "lex.yy.c"
-|
-| #define YY_INT_ALIGNED short int
-|
-| /* A lexical scanner generated by flex */
-|
-| #define FLEX_SCANNER
-| #define YY_FLEX_MAJOR_VERSION 2
-| #define YY_FLEX_MINOR_VERSION 5
-| #define YY_FLEX_SUBMINOR_VERSION 35
-| #if YY_FLEX_SUBMINOR_VERSION > 0
-| #define FLEX_BETA
-| #endif
-|
-| /* First, we deal with platform-specific or compiler-specific issues. */
-|
-| /* begin standard C headers. */
-| #include <stdio.h>
-| #include <string.h>
-| #include <errno.h>
-| #include <stdlib.h>
-|
-| /* end standard C headers. */
-|
-| /* flex integer type definitions */
-|
-| #ifndef FLEXINT_H
-| #define FLEXINT_H
-|
-| /* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
-|
-| #if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
-|
-| /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
-| * if you want the limit (max/min) macros for int types.
-| */
-| #ifndef __STDC_LIMIT_MACROS
-| #define __STDC_LIMIT_MACROS 1
-| #endif
-|
-| #include <inttypes.h>
-| typedef int8_t flex_int8_t;
-| typedef uint8_t flex_uint8_t;
-| typedef int16_t flex_int16_t;
-| typedef uint16_t flex_uint16_t;
-| typedef int32_t flex_int32_t;
-| typedef uint32_t flex_uint32_t;
-| #else
-| typedef signed char flex_int8_t;
-| typedef short int flex_int16_t;
-| typedef int flex_int32_t;
-| typedef unsigned char flex_uint8_t;
-| typedef unsigned short int flex_uint16_t;
-| typedef unsigned int flex_uint32_t;
-|
-| /* Limits of integral types. */
-| #ifndef INT8_MIN
-| #define INT8_MIN (-128)
-| #endif
-| #ifndef INT16_MIN
-| #define INT16_MIN (-32767-1)
-| #endif
-| #ifndef INT32_MIN
-| #define INT32_MIN (-2147483647-1)
-| #endif
-| #ifndef INT8_MAX
-| #define INT8_MAX (127)
-| #endif
-| #ifndef INT16_MAX
-| #define INT16_MAX (32767)
-| #endif
-| #ifndef INT32_MAX
-| #define INT32_MAX (2147483647)
-| #endif
-| #ifndef UINT8_MAX
-| #define UINT8_MAX (255U)
-| #endif
-| #ifndef UINT16_MAX
-| #define UINT16_MAX (65535U)
-| #endif
-| #ifndef UINT32_MAX
-| #define UINT32_MAX (4294967295U)
-| #endif
-|
-| #endif /* ! C99 */
-|
-| #endif /* ! FLEXINT_H */
-|
-| #ifdef __cplusplus
-|
-| /* The "const" storage-class-modifier is valid. */
-| #define YY_USE_CONST
-|
-| #else /* ! __cplusplus */
-|
-| /* C99 requires __STDC__ to be defined as 1. */
-| #if defined (__STDC__)
-|
-| #define YY_USE_CONST
-|
-| #endif /* defined (__STDC__) */
-| #endif /* ! __cplusplus */
-|
-| #ifdef YY_USE_CONST
-| #define yyconst const
-| #else
-| #define yyconst
-| #endif
-|
-| /* Returned upon end-of-file. */
-| #define YY_NULL 0
-|
-| /* Promotes a possibly negative, possibly signed char to an unsigned
-| * integer for use as an array index. If the signed char is negative,
-| * we want to instead treat it as an 8-bit unsigned char, hence the
-| * double cast.
-| */
-| #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
-|
-| /* Enter a start condition. This macro really ought to take a parameter,
-| * but we do it the disgusting crufty way forced on us by the ()-less
-| * definition of BEGIN.
-| */
-| #define BEGIN (yy_start) = 1 + 2 *
-|
-| /* Translate the current start state into a value that can be later handed
-| * to BEGIN to return to the state. The YYSTATE alias is for lex
-| * compatibility.
-| */
-| #define YY_START (((yy_start) - 1) / 2)
-| #define YYSTATE YY_START
-|
-| /* Action number for EOF rule of a given start state. */
-| #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
-|
-| /* Special action meaning "start processing a new file". */
-| #define YY_NEW_FILE yyrestart(yyin )
-|
-| #define YY_END_OF_BUFFER_CHAR 0
-|
-| /* Size of default input buffer. */
-| #ifndef YY_BUF_SIZE
-| #ifdef __ia64__
-| /* On IA-64, the buffer size is 16k, not 8k.
-| * Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
-| * Ditto for the __ia64__ case accordingly.
-| */
-| #define YY_BUF_SIZE 32768
-| #else
-| #define YY_BUF_SIZE 16384
-| #endif /* __ia64__ */
-| #endif
-|
-| /* The state buf must be large enough to hold one state per character in the main buffer.
-| */
-| #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
-|
-| #ifndef YY_TYPEDEF_YY_BUFFER_STATE
-| #define YY_TYPEDEF_YY_BUFFER_STATE
-| typedef struct yy_buffer_state *YY_BUFFER_STATE;
-| #endif
-|
-| extern int yyleng;
-|
-| extern FILE *yyin, *yyout;
-|
-| #define EOB_ACT_CONTINUE_SCAN 0
-| #define EOB_ACT_END_OF_FILE 1
-| #define EOB_ACT_LAST_MATCH 2
-|
-| #define YY_LESS_LINENO(n)
-|
-| /* Return all but the first "n" matched characters back to the input stream. */
-| #define yyless(n) \
-| do \
-| { \
-| /* Undo effects of setting up yytext. */ \
-| int yyless_macro_arg = (n); \
-| YY_LESS_LINENO(yyless_macro_arg);\
-| *yy_cp = (yy_hold_char); \
-| YY_RESTORE_YY_MORE_OFFSET \
-| (yy_c_buf_p) = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
-| YY_DO_BEFORE_ACTION; /* set up yytext again */ \
-| } \
-| while ( 0 )
-|
-| #define unput(c) yyunput( c, (yytext_ptr) )
-|
-| #ifndef YY_TYPEDEF_YY_SIZE_T
-| #define YY_TYPEDEF_YY_SIZE_T
-| typedef size_t yy_size_t;
-| #endif
-|
-| #ifndef YY_STRUCT_YY_BUFFER_STATE
-| #define YY_STRUCT_YY_BUFFER_STATE
-| struct yy_buffer_state
-| {
-| FILE *yy_input_file;
-|
-| char *yy_ch_buf; /* input buffer */
-| char *yy_buf_pos; /* current position in input buffer */
-|
-| /* Size of input buffer in bytes, not including room for EOB
-| * characters.
-| */
-| yy_size_t yy_buf_size;
-|
-| /* Number of characters read into yy_ch_buf, not including EOB
-| * characters.
-| */
-| int yy_n_chars;
-|
-| /* Whether we "own" the buffer - i.e., we know we created it,
-| * and can realloc() it to grow it, and should free() it to
-| * delete it.
-| */
-| int yy_is_our_buffer;
-|
-| /* Whether this is an "interactive" input source; if so, and
-| * if we're using stdio for input, then we want to use getc()
-| * instead of fread(), to make sure we stop fetching input after
-| * each newline.
-| */
-| int yy_is_interactive;
-|
-| /* Whether we're considered to be at the beginning of a line.
-| * If so, '^' rules will be active on the next match, otherwise
-| * not.
-| */
-| int yy_at_bol;
-|
-| int yy_bs_lineno; /**< The line count. */
-| int yy_bs_column; /**< The column count. */
-|
-| /* Whether to try to fill the input buffer when we reach the
-| * end of it.
-| */
-| int yy_fill_buffer;
-|
-| int yy_buffer_status;
-|
-| #define YY_BUFFER_NEW 0
-| #define YY_BUFFER_NORMAL 1
-| /* When an EOF's been seen but there's still some text to process
-| * then we mark the buffer as YY_EOF_PENDING, to indicate that we
-| * shouldn't try reading from the input source any more. We might
-| * still have a bunch of tokens to match, though, because of
-| * possible backing-up.
-| *
-| * When we actually see the EOF, we change the status to "new"
-| * (via yyrestart()), so that the user can continue scanning by
-| * just pointing yyin at a new input file.
-| */
-| #define YY_BUFFER_EOF_PENDING 2
-|
-| };
-| #endif /* !YY_STRUCT_YY_BUFFER_STATE */
-|
-| /* Stack of input buffers. */
-| static size_t yy_buffer_stack_top = 0; /**< index of top of stack. */
-| static size_t yy_buffer_stack_max = 0; /**< capacity of stack. */
-| static YY_BUFFER_STATE * yy_buffer_stack = 0; /**< Stack as an array. */
-|
-| /* We provide macros for accessing buffer states in case in the
-| * future we want to put the buffer states in a more general
-| * "scanner state".
-| *
-| * Returns the top of the stack, or NULL.
-| */
-| #define YY_CURRENT_BUFFER ( (yy_buffer_stack) \
-| ? (yy_buffer_stack)[(yy_buffer_stack_top)] \
-| : NULL)
-|
-| /* Same as previous macro, but useful when we know that the buffer stack is not
-| * NULL or when we need an lvalue. For internal use only.
-| */
-| #define YY_CURRENT_BUFFER_LVALUE (yy_buffer_stack)[(yy_buffer_stack_top)]
-|
-| /* yy_hold_char holds the character lost when yytext is formed. */
-| static char yy_hold_char;
-| static int yy_n_chars; /* number of characters read into yy_ch_buf */
-| int yyleng;
-|
-| /* Points to current character in buffer. */
-| static char *yy_c_buf_p = (char *) 0;
-| static int yy_init = 0; /* whether we need to initialize */
-| static int yy_start = 0; /* start state number */
-|
-| /* Flag which is used to allow yywrap()'s to do buffer switches
-| * instead of setting up a fresh yyin. A bit of a hack ...
-| */
-| static int yy_did_buffer_switch_on_eof;
-|
-| void yyrestart (FILE *input_file );
-| void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer );
-| YY_BUFFER_STATE yy_create_buffer (FILE *file,int size );
-| void yy_delete_buffer (YY_BUFFER_STATE b );
-| void yy_flush_buffer (YY_BUFFER_STATE b );
-| void yypush_buffer_state (YY_BUFFER_STATE new_buffer );
-| void yypop_buffer_state (void );
-|
-| static void yyensure_buffer_stack (void );
-| static void yy_load_buffer_state (void );
-| static void yy_init_buffer (YY_BUFFER_STATE b,FILE *file );
-|
-| #define YY_FLUSH_BUFFER yy_flush_buffer(YY_CURRENT_BUFFER )
-|
-| YY_BUFFER_STATE yy_scan_buffer (char *base,yy_size_t size );
-| YY_BUFFER_STATE yy_scan_string (yyconst char *yy_str );
-| YY_BUFFER_STATE yy_scan_bytes (yyconst char *bytes,int len );
-|
-| void *yyalloc (yy_size_t );
-| void *yyrealloc (void *,yy_size_t );
-| void yyfree (void * );
-|
-| #define yy_new_buffer yy_create_buffer
-|
-| #define yy_set_interactive(is_interactive) \
-| { \
-| if ( ! YY_CURRENT_BUFFER ){ \
-| yyensure_buffer_stack (); \
-| YY_CURRENT_BUFFER_LVALUE = \
-| yy_create_buffer(yyin,YY_BUF_SIZE ); \
-| } \
-| YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
-| }
-|
-| #define yy_set_bol(at_bol) \
-| { \
-| if ( ! YY_CURRENT_BUFFER ){\
-| yyensure_buffer_stack (); \
-| YY_CURRENT_BUFFER_LVALUE = \
-| yy_create_buffer(yyin,YY_BUF_SIZE ); \
-| } \
-| YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
-| }
-|
-| #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
-|
-| /* Begin user sect3 */
-|
-| typedef unsigned char YY_CHAR;
-|
-| FILE *yyin = (FILE *) 0, *yyout = (FILE *) 0;
-|
-| typedef int yy_state_type;
-|
-| extern int yylineno;
-|
-| int yylineno = 1;
-|
-| extern char *yytext;
-| #define yytext_ptr yytext
-|
-| static yy_state_type yy_get_previous_state (void );
-| static yy_state_type yy_try_NUL_trans (yy_state_type current_state );
-| static int yy_get_next_buffer (void );
-| static void yy_fatal_error (yyconst char msg[] );
-|
-| /* Done after the current pattern has been matched and before the
-| * corresponding action - sets up yytext.
-| */
-| #define YY_DO_BEFORE_ACTION \
-| (yytext_ptr) = yy_bp; \
-| (yytext_ptr) -= (yy_more_len); \
-| yyleng = (size_t) (yy_cp - (yytext_ptr)); \
-| (yy_hold_char) = *yy_cp; \
-| *yy_cp = '\0'; \
-| (yy_c_buf_p) = yy_cp;
-|
-| #define YY_NUM_RULES 8
-| #define YY_END_OF_BUFFER 9
-| /* This struct is not used in this scanner,
-| but its presence is necessary. */
-| struct yy_trans_info
-| {
-| flex_int32_t yy_verify;
-| flex_int32_t yy_nxt;
-| };
-| static yyconst flex_int16_t yy_acclist[23] =
-| { 0,
-| 9, 7, 8, 8, 1, 7, 8, 2, 7, 8,
-| 3, 7, 8, 4, 7, 8, 5, 7, 8, 6,
-| 7, 8
-| } ;
-|
-| static yyconst flex_int16_t yy_accept[14] =
-| { 0,
-| 1, 1, 1, 2, 4, 5, 8, 11, 14, 17,
-| 20, 23, 23
-| } ;
-|
-| static yyconst flex_int32_t yy_ec[256] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 2,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 3, 4, 5, 6,
-|
-| 7, 8, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-|
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
-| 1, 1, 1, 1, 1
-| } ;
-|
-| static yyconst flex_int32_t yy_meta[9] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1
-| } ;
-|
-| static yyconst flex_int16_t yy_base[13] =
-| { 0,
-| 0, 0, 9, 10, 10, 10, 10, 10, 10, 10,
-| 10, 10
-| } ;
-|
-| static yyconst flex_int16_t yy_def[13] =
-| { 0,
-| 12, 1, 12, 12, 12, 12, 12, 12, 12, 12,
-| 12, 0
-| } ;
-|
-| static yyconst flex_int16_t yy_nxt[19] =
-| { 0,
-| 4, 5, 6, 7, 8, 9, 10, 11, 12, 3,
-| 12, 12, 12, 12, 12, 12, 12, 12
-| } ;
-|
-| static yyconst flex_int16_t yy_chk[19] =
-| { 0,
-| 1, 1, 1, 1, 1, 1, 1, 1, 3, 12,
-| 12, 12, 12, 12, 12, 12, 12, 12
-| } ;
-|
-| extern int yy_flex_debug;
-| int yy_flex_debug = 0;
-|
-| static yy_state_type *yy_state_buf=0, *yy_state_ptr=0;
-| static char *yy_full_match;
-| static int yy_lp;
-| #define REJECT \
-| { \
-| *yy_cp = (yy_hold_char); /* undo effects of setting up yytext */ \
-| yy_cp = (yy_full_match); /* restore poss. backed-over text */ \
-| ++(yy_lp); \
-| goto find_rule; \
-| }
-|
-| static int yy_more_flag = 0;
-| static int yy_more_len = 0;
-| #define yymore() ((yy_more_flag) = 1)
-| #define YY_MORE_ADJ (yy_more_len)
-| #define YY_RESTORE_YY_MORE_OFFSET
-| char *yytext;
-| #line 1 "conftest.l"
-| #line 477 "lex.yy.c"
-|
-| #define INITIAL 0
-|
-| #ifndef YY_NO_UNISTD_H
-| /* Special case for "unistd.h", since it is non-ANSI. We include it way
-| * down here because we want the user's section 1 to have been scanned first.
-| * The user has a chance to override it with an option.
-| */
-| #include <unistd.h>
-| #endif
-|
-| #ifndef YY_EXTRA_TYPE
-| #define YY_EXTRA_TYPE void *
-| #endif
-|
-| static int yy_init_globals (void );
-|
-| /* Accessor methods to globals.
-| These are made visible to non-reentrant scanners for convenience. */
-|
-| int yylex_destroy (void );
-|
-| int yyget_debug (void );
-|
-| void yyset_debug (int debug_flag );
-|
-| YY_EXTRA_TYPE yyget_extra (void );
-|
-| void yyset_extra (YY_EXTRA_TYPE user_defined );
-|
-| FILE *yyget_in (void );
-|
-| void yyset_in (FILE * in_str );
-|
-| FILE *yyget_out (void );
-|
-| void yyset_out (FILE * out_str );
-|
-| int yyget_leng (void );
-|
-| char *yyget_text (void );
-|
-| int yyget_lineno (void );
-|
-| void yyset_lineno (int line_number );
-|
-| /* Macros after this point can all be overridden by user definitions in
-| * section 1.
-| */
-|
-| #ifndef YY_SKIP_YYWRAP
-| #ifdef __cplusplus
-| extern "C" int yywrap (void );
-| #else
-| extern int yywrap (void );
-| #endif
-| #endif
-|
-| static void yyunput (int c,char *buf_ptr );
-|
-| #ifndef yytext_ptr
-| static void yy_flex_strncpy (char *,yyconst char *,int );
-| #endif
-|
-| #ifdef YY_NEED_STRLEN
-| static int yy_flex_strlen (yyconst char * );
-| #endif
-|
-| #ifndef YY_NO_INPUT
-|
-| #ifdef __cplusplus
-| static int yyinput (void );
-| #else
-| static int input (void );
-| #endif
-|
-| #endif
-|
-| /* Amount of stuff to slurp up with each read. */
-| #ifndef YY_READ_BUF_SIZE
-| #ifdef __ia64__
-| /* On IA-64, the buffer size is 16k, not 8k */
-| #define YY_READ_BUF_SIZE 16384
-| #else
-| #define YY_READ_BUF_SIZE 8192
-| #endif /* __ia64__ */
-| #endif
-|
-| /* Copy whatever the last rule matched to the standard output. */
-| #ifndef ECHO
-| /* This used to be an fputs(), but since the string might contain NUL's,
-| * we now use fwrite().
-| */
-| #define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0)
-| #endif
-|
-| /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
-| * is returned in "result".
-| */
-| #ifndef YY_INPUT
-| #define YY_INPUT(buf,result,max_size) \
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
-| { \
-| int c = '*'; \
-| size_t n; \
-| for ( n = 0; n < max_size && \
-| (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
-| buf[n] = (char) c; \
-| if ( c == '\n' ) \
-| buf[n++] = (char) c; \
-| if ( c == EOF && ferror( yyin ) ) \
-| YY_FATAL_ERROR( "input in flex scanner failed" ); \
-| result = n; \
-| } \
-| else \
-| { \
-| errno=0; \
-| while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
-| { \
-| if( errno != EINTR) \
-| { \
-| YY_FATAL_ERROR( "input in flex scanner failed" ); \
-| break; \
-| } \
-| errno=0; \
-| clearerr(yyin); \
-| } \
-| }\
-| \
-|
-| #endif
-|
-| /* No semi-colon after return; correct usage is to write "yyterminate();" -
-| * we don't want an extra ';' after the "return" because that will cause
-| * some compilers to complain about unreachable statements.
-| */
-| #ifndef yyterminate
-| #define yyterminate() return YY_NULL
-| #endif
-|
-| /* Number of entries by which start-condition stack grows. */
-| #ifndef YY_START_STACK_INCR
-| #define YY_START_STACK_INCR 25
-| #endif
-|
-| /* Report a fatal error. */
-| #ifndef YY_FATAL_ERROR
-| #define YY_FATAL_ERROR(msg) yy_fatal_error( msg )
-| #endif
-|
-| /* end tables serialization structures and prototypes */
-|
-| /* Default declaration of generated scanner - a define so the user can
-| * easily add parameters.
-| */
-| #ifndef YY_DECL
-| #define YY_DECL_IS_OURS 1
-|
-| extern int yylex (void);
-|
-| #define YY_DECL int yylex (void)
-| #endif /* !YY_DECL */
-|
-| /* Code executed at the beginning of each rule, after yytext and yyleng
-| * have been set up.
-| */
-| #ifndef YY_USER_ACTION
-| #define YY_USER_ACTION
-| #endif
-|
-| /* Code executed at the end of each rule. */
-| #ifndef YY_BREAK
-| #define YY_BREAK break;
-| #endif
-|
-| #define YY_RULE_SETUP \
-| YY_USER_ACTION
-|
-| /** The main scanner function which does all the work.
-| */
-| YY_DECL
-| {
-| register yy_state_type yy_current_state;
-| register char *yy_cp, *yy_bp;
-| register int yy_act;
-|
-| #line 1 "conftest.l"
-|
-| #line 666 "lex.yy.c"
-|
-| if ( !(yy_init) )
-| {
-| (yy_init) = 1;
-|
-| #ifdef YY_USER_INIT
-| YY_USER_INIT;
-| #endif
-|
-| /* Create the reject buffer large enough to save one state per allowed character. */
-| if ( ! (yy_state_buf) )
-| (yy_state_buf) = (yy_state_type *)yyalloc(YY_STATE_BUF_SIZE );
-| if ( ! (yy_state_buf) )
-| YY_FATAL_ERROR( "out of dynamic memory in yylex()" );
-|
-| if ( ! (yy_start) )
-| (yy_start) = 1; /* first start state */
-|
-| if ( ! yyin )
-| yyin = stdin;
-|
-| if ( ! yyout )
-| yyout = stdout;
-|
-| if ( ! YY_CURRENT_BUFFER ) {
-| yyensure_buffer_stack ();
-| YY_CURRENT_BUFFER_LVALUE =
-| yy_create_buffer(yyin,YY_BUF_SIZE );
-| }
-|
-| yy_load_buffer_state( );
-| }
-|
-| while ( 1 ) /* loops until end-of-file is reached */
-| {
-| (yy_more_len) = 0;
-| if ( (yy_more_flag) )
-| {
-| (yy_more_len) = (yy_c_buf_p) - (yytext_ptr);
-| (yy_more_flag) = 0;
-| }
-| yy_cp = (yy_c_buf_p);
-|
-| /* Support of yytext. */
-| *yy_cp = (yy_hold_char);
-|
-| /* yy_bp points to the position in yy_ch_buf of the start of
-| * the current run.
-| */
-| yy_bp = yy_cp;
-|
-| yy_current_state = (yy_start);
-|
-| (yy_state_ptr) = (yy_state_buf);
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| yy_match:
-| do
-| {
-| register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| *(yy_state_ptr)++ = yy_current_state;
-| ++yy_cp;
-| }
-| while ( yy_base[yy_current_state] != 10 );
-|
-| yy_find_action:
-| yy_current_state = *--(yy_state_ptr);
-| (yy_lp) = yy_accept[yy_current_state];
-| find_rule: /* we branch to this label when backing up */
-| for ( ; ; ) /* until we find what rule we matched */
-| {
-| if ( (yy_lp) && (yy_lp) < yy_accept[yy_current_state + 1] )
-| {
-| yy_act = yy_acclist[(yy_lp)];
-| {
-| (yy_full_match) = yy_cp;
-| break;
-| }
-| }
-| --yy_cp;
-| yy_current_state = *--(yy_state_ptr);
-| (yy_lp) = yy_accept[yy_current_state];
-| }
-|
-| YY_DO_BEFORE_ACTION;
-|
-| do_action: /* This label is used only to access EOF actions. */
-|
-| switch ( yy_act )
-| { /* beginning of action switch */
-| case 1:
-| YY_RULE_SETUP
-| #line 2 "conftest.l"
-| { ECHO; }
-| YY_BREAK
-| case 2:
-| YY_RULE_SETUP
-| #line 3 "conftest.l"
-| { REJECT; }
-| YY_BREAK
-| case 3:
-| YY_RULE_SETUP
-| #line 4 "conftest.l"
-| { yymore (); }
-| YY_BREAK
-| case 4:
-| YY_RULE_SETUP
-| #line 5 "conftest.l"
-| { yyless (1); }
-| YY_BREAK
-| case 5:
-| YY_RULE_SETUP
-| #line 6 "conftest.l"
-| { yyless (input () != 0); }
-| YY_BREAK
-| case 6:
-| YY_RULE_SETUP
-| #line 7 "conftest.l"
-| { unput (yytext[0]); }
-| YY_BREAK
-| case 7:
-| YY_RULE_SETUP
-| #line 8 "conftest.l"
-| { BEGIN INITIAL; }
-| YY_BREAK
-| case 8:
-| YY_RULE_SETUP
-| #line 9 "conftest.l"
-| ECHO;
-| YY_BREAK
-| #line 804 "lex.yy.c"
-| case YY_STATE_EOF(INITIAL):
-| yyterminate();
-|
-| case YY_END_OF_BUFFER:
-| {
-| /* Amount of text matched not including the EOB char. */
-| int yy_amount_of_matched_text = (int) (yy_cp - (yytext_ptr)) - 1;
-|
-| /* Undo the effects of YY_DO_BEFORE_ACTION. */
-| *yy_cp = (yy_hold_char);
-| YY_RESTORE_YY_MORE_OFFSET
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
-| {
-| /* We're scanning a new file or input source. It's
-| * possible that this happened because the user
-| * just pointed yyin at a new source and called
-| * yylex(). If so, then we have to assure
-| * consistency between YY_CURRENT_BUFFER and our
-| * globals. Here is the right place to do so, because
-| * this is the first action (other than possibly a
-| * back-up) that will match for the new input source.
-| */
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-| YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
-| YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
-| }
-|
-| /* Note that here we test for yy_c_buf_p "<=" to the position
-| * of the first EOB in the buffer, since yy_c_buf_p will
-| * already have been incremented past the NUL character
-| * (since all states make transitions on EOB to the
-| * end-of-buffer state). Contrast this with the test
-| * in input().
-| */
-| if ( (yy_c_buf_p) <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-| { /* This was really a NUL. */
-| yy_state_type yy_next_state;
-|
-| (yy_c_buf_p) = (yytext_ptr) + yy_amount_of_matched_text;
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| /* Okay, we're now positioned to make the NUL
-| * transition. We couldn't have
-| * yy_get_previous_state() go ahead and do it
-| * for us because it doesn't know how to deal
-| * with the possibility of jamming (and we don't
-| * want to build jamming into it because then it
-| * will run more slowly).
-| */
-|
-| yy_next_state = yy_try_NUL_trans( yy_current_state );
-|
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-|
-| if ( yy_next_state )
-| {
-| /* Consume the NUL. */
-| yy_cp = ++(yy_c_buf_p);
-| yy_current_state = yy_next_state;
-| goto yy_match;
-| }
-|
-| else
-| {
-| yy_cp = (yy_c_buf_p);
-| goto yy_find_action;
-| }
-| }
-|
-| else switch ( yy_get_next_buffer( ) )
-| {
-| case EOB_ACT_END_OF_FILE:
-| {
-| (yy_did_buffer_switch_on_eof) = 0;
-|
-| if ( yywrap( ) )
-| {
-| /* Note: because we've taken care in
-| * yy_get_next_buffer() to have set up
-| * yytext, we can now set up
-| * yy_c_buf_p so that if some total
-| * hoser (like flex itself) wants to
-| * call the scanner after we return the
-| * YY_NULL, it'll still work - another
-| * YY_NULL will get returned.
-| */
-| (yy_c_buf_p) = (yytext_ptr) + YY_MORE_ADJ;
-|
-| yy_act = YY_STATE_EOF(YY_START);
-| goto do_action;
-| }
-|
-| else
-| {
-| if ( ! (yy_did_buffer_switch_on_eof) )
-| YY_NEW_FILE;
-| }
-| break;
-| }
-|
-| case EOB_ACT_CONTINUE_SCAN:
-| (yy_c_buf_p) =
-| (yytext_ptr) + yy_amount_of_matched_text;
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| yy_cp = (yy_c_buf_p);
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-| goto yy_match;
-|
-| case EOB_ACT_LAST_MATCH:
-| (yy_c_buf_p) =
-| &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)];
-|
-| yy_current_state = yy_get_previous_state( );
-|
-| yy_cp = (yy_c_buf_p);
-| yy_bp = (yytext_ptr) + YY_MORE_ADJ;
-| goto yy_find_action;
-| }
-| break;
-| }
-|
-| default:
-| YY_FATAL_ERROR(
-| "fatal flex scanner internal error--no action found" );
-| } /* end of action switch */
-| } /* end of scanning one token */
-| } /* end of yylex */
-|
-| /* yy_get_next_buffer - try to read in a new buffer
-| *
-| * Returns a code representing an action:
-| * EOB_ACT_LAST_MATCH -
-| * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
-| * EOB_ACT_END_OF_FILE - end of file
-| */
-| static int yy_get_next_buffer (void)
-| {
-| register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
-| register char *source = (yytext_ptr);
-| register int number_to_move, i;
-| int ret_val;
-|
-| if ( (yy_c_buf_p) > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] )
-| YY_FATAL_ERROR(
-| "fatal flex scanner internal error--end of buffer missed" );
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
-| { /* Don't try to fill the buffer, so this is an EOF. */
-| if ( (yy_c_buf_p) - (yytext_ptr) - YY_MORE_ADJ == 1 )
-| {
-| /* We matched a single character, the EOB, so
-| * treat this as a final EOF.
-| */
-| return EOB_ACT_END_OF_FILE;
-| }
-|
-| else
-| {
-| /* We matched some text prior to the EOB, first
-| * process it.
-| */
-| return EOB_ACT_LAST_MATCH;
-| }
-| }
-|
-| /* Try to read more data. */
-|
-| /* First move last chars to start of buffer. */
-| number_to_move = (int) ((yy_c_buf_p) - (yytext_ptr)) - 1;
-|
-| for ( i = 0; i < number_to_move; ++i )
-| *(dest++) = *(source++);
-|
-| if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
-| /* don't do the read, it's not guaranteed to return an EOF,
-| * just force an EOF
-| */
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars) = 0;
-|
-| else
-| {
-| int num_to_read =
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
-|
-| while ( num_to_read <= 0 )
-| { /* Not enough room in the buffer - grow it. */
-|
-| YY_FATAL_ERROR(
-| "input buffer overflow, can't enlarge buffer because scanner uses REJECT" );
-|
-| }
-|
-| if ( num_to_read > YY_READ_BUF_SIZE )
-| num_to_read = YY_READ_BUF_SIZE;
-|
-| /* Read in more data. */
-| YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
-| (yy_n_chars), (size_t) num_to_read );
-|
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| if ( (yy_n_chars) == 0 )
-| {
-| if ( number_to_move == YY_MORE_ADJ )
-| {
-| ret_val = EOB_ACT_END_OF_FILE;
-| yyrestart(yyin );
-| }
-|
-| else
-| {
-| ret_val = EOB_ACT_LAST_MATCH;
-| YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
-| YY_BUFFER_EOF_PENDING;
-| }
-| }
-|
-| else
-| ret_val = EOB_ACT_CONTINUE_SCAN;
-|
-| if ((yy_size_t) ((yy_n_chars) + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
-| /* Extend the array by 50%, plus the number we really need. */
-| yy_size_t new_size = (yy_n_chars) + number_to_move + ((yy_n_chars) >> 1);
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size );
-| if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
-| }
-|
-| (yy_n_chars) += number_to_move;
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] = YY_END_OF_BUFFER_CHAR;
-| YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars) + 1] = YY_END_OF_BUFFER_CHAR;
-|
-| (yytext_ptr) = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
-|
-| return ret_val;
-| }
-|
-| /* yy_get_previous_state - get the state just before the EOB char was reached */
-|
-| static yy_state_type yy_get_previous_state (void)
-| {
-| register yy_state_type yy_current_state;
-| register char *yy_cp;
-|
-| yy_current_state = (yy_start);
-|
-| (yy_state_ptr) = (yy_state_buf);
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| for ( yy_cp = (yytext_ptr) + YY_MORE_ADJ; yy_cp < (yy_c_buf_p); ++yy_cp )
-| {
-| register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| *(yy_state_ptr)++ = yy_current_state;
-| }
-|
-| return yy_current_state;
-| }
-|
-| /* yy_try_NUL_trans - try to make a transition on the NUL character
-| *
-| * synopsis
-| * next_state = yy_try_NUL_trans( current_state );
-| */
-| static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state )
-| {
-| register int yy_is_jam;
-|
-| register YY_CHAR yy_c = 1;
-| while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
-| {
-| yy_current_state = (int) yy_def[yy_current_state];
-| if ( yy_current_state >= 13 )
-| yy_c = yy_meta[(unsigned int) yy_c];
-| }
-| yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
-| yy_is_jam = (yy_current_state == 12);
-| if ( ! yy_is_jam )
-| *(yy_state_ptr)++ = yy_current_state;
-|
-| return yy_is_jam ? 0 : yy_current_state;
-| }
-|
-| static void yyunput (int c, register char * yy_bp )
-| {
-| register char *yy_cp;
-|
-| yy_cp = (yy_c_buf_p);
-|
-| /* undo effects of setting up yytext */
-| *yy_cp = (yy_hold_char);
-|
-| if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-| { /* need to shift things up to make room */
-| /* +2 for EOB chars. */
-| register int number_to_move = (yy_n_chars) + 2;
-| register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
-| register char *source =
-| &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
-|
-| while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
-| *--dest = *--source;
-|
-| yy_cp += (int) (dest - source);
-| yy_bp += (int) (dest - source);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
-|
-| if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
-| YY_FATAL_ERROR( "flex scanner push-back overflow" );
-| }
-|
-| *--yy_cp = (char) c;
-|
-| (yytext_ptr) = yy_bp;
-| (yy_hold_char) = *yy_cp;
-| (yy_c_buf_p) = yy_cp;
-| }
-|
-| #ifndef YY_NO_INPUT
-| #ifdef __cplusplus
-| static int yyinput (void)
-| #else
-| static int input (void)
-| #endif
-|
-| {
-| int c;
-|
-| *(yy_c_buf_p) = (yy_hold_char);
-|
-| if ( *(yy_c_buf_p) == YY_END_OF_BUFFER_CHAR )
-| {
-| /* yy_c_buf_p now points to the character we want to return.
-| * If this occurs *before* the EOB characters, then it's a
-| * valid NUL; if not, then we've hit the end of the buffer.
-| */
-| if ( (yy_c_buf_p) < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[(yy_n_chars)] )
-| /* This was really a NUL. */
-| *(yy_c_buf_p) = '\0';
-|
-| else
-| { /* need more input */
-| int offset = (yy_c_buf_p) - (yytext_ptr);
-| ++(yy_c_buf_p);
-|
-| switch ( yy_get_next_buffer( ) )
-| {
-| case EOB_ACT_LAST_MATCH:
-| /* This happens because yy_g_n_b()
-| * sees that we've accumulated a
-| * token and flags that we need to
-| * try matching the token before
-| * proceeding. But for input(),
-| * there's no matching to consider.
-| * So convert the EOB_ACT_LAST_MATCH
-| * to EOB_ACT_END_OF_FILE.
-| */
-|
-| /* Reset buffer status. */
-| yyrestart(yyin );
-|
-| /*FALLTHROUGH*/
-|
-| case EOB_ACT_END_OF_FILE:
-| {
-| if ( yywrap( ) )
-| return EOF;
-|
-| if ( ! (yy_did_buffer_switch_on_eof) )
-| YY_NEW_FILE;
-| #ifdef __cplusplus
-| return yyinput();
-| #else
-| return input();
-| #endif
-| }
-|
-| case EOB_ACT_CONTINUE_SCAN:
-| (yy_c_buf_p) = (yytext_ptr) + offset;
-| break;
-| }
-| }
-| }
-|
-| c = *(unsigned char *) (yy_c_buf_p); /* cast for 8-bit char's */
-| *(yy_c_buf_p) = '\0'; /* preserve yytext */
-| (yy_hold_char) = *++(yy_c_buf_p);
-|
-| return c;
-| }
-| #endif /* ifndef YY_NO_INPUT */
-|
-| /** Immediately switch to a different input stream.
-| * @param input_file A readable stream.
-| *
-| * @note This function does not reset the start condition to @c INITIAL .
-| */
-| void yyrestart (FILE * input_file )
-| {
-|
-| if ( ! YY_CURRENT_BUFFER ){
-| yyensure_buffer_stack ();
-| YY_CURRENT_BUFFER_LVALUE =
-| yy_create_buffer(yyin,YY_BUF_SIZE );
-| }
-|
-| yy_init_buffer(YY_CURRENT_BUFFER,input_file );
-| yy_load_buffer_state( );
-| }
-|
-| /** Switch to a different input buffer.
-| * @param new_buffer The new input buffer.
-| *
-| */
-| void yy_switch_to_buffer (YY_BUFFER_STATE new_buffer )
-| {
-|
-| /* TODO. We should be able to replace this entire function body
-| * with
-| * yypop_buffer_state();
-| * yypush_buffer_state(new_buffer);
-| */
-| yyensure_buffer_stack ();
-| if ( YY_CURRENT_BUFFER == new_buffer )
-| return;
-|
-| if ( YY_CURRENT_BUFFER )
-| {
-| /* Flush out information for old buffer. */
-| *(yy_c_buf_p) = (yy_hold_char);
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| YY_CURRENT_BUFFER_LVALUE = new_buffer;
-| yy_load_buffer_state( );
-|
-| /* We don't actually know whether we did this switch during
-| * EOF (yywrap()) processing, but the only time this flag
-| * is looked at is after yywrap() is called, so it's safe
-| * to go ahead and always set it.
-| */
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-|
-| static void yy_load_buffer_state (void)
-| {
-| (yy_n_chars) = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
-| (yytext_ptr) = (yy_c_buf_p) = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
-| yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
-| (yy_hold_char) = *(yy_c_buf_p);
-| }
-|
-| /** Allocate and initialize an input buffer state.
-| * @param file A readable stream.
-| * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
-| *
-| * @return the allocated buffer state.
-| */
-| YY_BUFFER_STATE yy_create_buffer (FILE * file, int size )
-| {
-| YY_BUFFER_STATE b;
-|
-| b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
-| if ( ! b )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-|
-| b->yy_buf_size = size;
-|
-| /* yy_ch_buf has to be 2 characters longer than the size given because
-| * we need to put in 2 end-of-buffer characters.
-| */
-| b->yy_ch_buf = (char *) yyalloc(b->yy_buf_size + 2 );
-| if ( ! b->yy_ch_buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_create_buffer()" );
-|
-| b->yy_is_our_buffer = 1;
-|
-| yy_init_buffer(b,file );
-|
-| return b;
-| }
-|
-| /** Destroy the buffer.
-| * @param b a buffer created with yy_create_buffer()
-| *
-| */
-| void yy_delete_buffer (YY_BUFFER_STATE b )
-| {
-|
-| if ( ! b )
-| return;
-|
-| if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
-| YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
-|
-| if ( b->yy_is_our_buffer )
-| yyfree((void *) b->yy_ch_buf );
-|
-| yyfree((void *) b );
-| }
-|
-| #ifndef __cplusplus
-| extern int isatty (int );
-| #endif /* __cplusplus */
-|
-| /* Initializes or reinitializes a buffer.
-| * This function is sometimes called more than once on the same buffer,
-| * such as during a yyrestart() or at EOF.
-| */
-| static void yy_init_buffer (YY_BUFFER_STATE b, FILE * file )
-|
-| {
-| int oerrno = errno;
-|
-| yy_flush_buffer(b );
-|
-| b->yy_input_file = file;
-| b->yy_fill_buffer = 1;
-|
-| /* If b is the current buffer, then yy_init_buffer was _probably_
-| * called from yyrestart() or through yy_get_next_buffer.
-| * In that case, we don't want to reset the lineno or column.
-| */
-| if (b != YY_CURRENT_BUFFER){
-| b->yy_bs_lineno = 1;
-| b->yy_bs_column = 0;
-| }
-|
-| b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
-|
-| errno = oerrno;
-| }
-|
-| /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
-| * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
-| *
-| */
-| void yy_flush_buffer (YY_BUFFER_STATE b )
-| {
-| if ( ! b )
-| return;
-|
-| b->yy_n_chars = 0;
-|
-| /* We always need two end-of-buffer characters. The first causes
-| * a transition to the end-of-buffer state. The second causes
-| * a jam in that state.
-| */
-| b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
-| b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
-|
-| b->yy_buf_pos = &b->yy_ch_buf[0];
-|
-| b->yy_at_bol = 1;
-| b->yy_buffer_status = YY_BUFFER_NEW;
-|
-| if ( b == YY_CURRENT_BUFFER )
-| yy_load_buffer_state( );
-| }
-|
-| /** Pushes the new state onto the stack. The new state becomes
-| * the current state. This function will allocate the stack
-| * if necessary.
-| * @param new_buffer The new state.
-| *
-| */
-| void yypush_buffer_state (YY_BUFFER_STATE new_buffer )
-| {
-| if (new_buffer == NULL)
-| return;
-|
-| yyensure_buffer_stack();
-|
-| /* This block is copied from yy_switch_to_buffer. */
-| if ( YY_CURRENT_BUFFER )
-| {
-| /* Flush out information for old buffer. */
-| *(yy_c_buf_p) = (yy_hold_char);
-| YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = (yy_c_buf_p);
-| YY_CURRENT_BUFFER_LVALUE->yy_n_chars = (yy_n_chars);
-| }
-|
-| /* Only push if top exists. Otherwise, replace top. */
-| if (YY_CURRENT_BUFFER)
-| (yy_buffer_stack_top)++;
-| YY_CURRENT_BUFFER_LVALUE = new_buffer;
-|
-| /* copied from yy_switch_to_buffer. */
-| yy_load_buffer_state( );
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-|
-| /** Removes and deletes the top of the stack, if present.
-| * The next element becomes the new top.
-| *
-| */
-| void yypop_buffer_state (void)
-| {
-| if (!YY_CURRENT_BUFFER)
-| return;
-|
-| yy_delete_buffer(YY_CURRENT_BUFFER );
-| YY_CURRENT_BUFFER_LVALUE = NULL;
-| if ((yy_buffer_stack_top) > 0)
-| --(yy_buffer_stack_top);
-|
-| if (YY_CURRENT_BUFFER) {
-| yy_load_buffer_state( );
-| (yy_did_buffer_switch_on_eof) = 1;
-| }
-| }
-|
-| /* Allocates the stack if it does not exist.
-| * Guarantees space for at least one push.
-| */
-| static void yyensure_buffer_stack (void)
-| {
-| int num_to_alloc;
-|
-| if (!(yy_buffer_stack)) {
-|
-| /* First allocation is just for 2 elements, since we don't know if this
-| * scanner will even need a stack. We use 2 instead of 1 to avoid an
-| * immediate realloc on the next call.
-| */
-| num_to_alloc = 1;
-| (yy_buffer_stack) = (struct yy_buffer_state**)yyalloc
-| (num_to_alloc * sizeof(struct yy_buffer_state*)
-| );
-| if ( ! (yy_buffer_stack) )
-| YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-|
-| memset((yy_buffer_stack), 0, num_to_alloc * sizeof(struct yy_buffer_state*));
-|
-| (yy_buffer_stack_max) = num_to_alloc;
-| (yy_buffer_stack_top) = 0;
-| return;
-| }
-|
-| if ((yy_buffer_stack_top) >= ((yy_buffer_stack_max)) - 1){
-|
-| /* Increase the buffer to prepare for a possible push. */
-| int grow_size = 8 /* arbitrary grow size */;
-|
-| num_to_alloc = (yy_buffer_stack_max) + grow_size;
-| (yy_buffer_stack) = (struct yy_buffer_state**)yyrealloc
-| ((yy_buffer_stack),
-| num_to_alloc * sizeof(struct yy_buffer_state*)
-| );
-| if ( ! (yy_buffer_stack) )
-| YY_FATAL_ERROR( "out of dynamic memory in yyensure_buffer_stack()" );
-|
-| /* zero only the new slots.*/
-| memset((yy_buffer_stack) + (yy_buffer_stack_max), 0, grow_size * sizeof(struct yy_buffer_state*));
-| (yy_buffer_stack_max) = num_to_alloc;
-| }
-| }
-|
-| /** Setup the input buffer state to scan directly from a user-specified character buffer.
-| * @param base the character buffer
-| * @param size the size in bytes of the character buffer
-| *
-| * @return the newly allocated buffer state object.
-| */
-| YY_BUFFER_STATE yy_scan_buffer (char * base, yy_size_t size )
-| {
-| YY_BUFFER_STATE b;
-|
-| if ( size < 2 ||
-| base[size-2] != YY_END_OF_BUFFER_CHAR ||
-| base[size-1] != YY_END_OF_BUFFER_CHAR )
-| /* They forgot to leave room for the EOB's. */
-| return 0;
-|
-| b = (YY_BUFFER_STATE) yyalloc(sizeof( struct yy_buffer_state ) );
-| if ( ! b )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_scan_buffer()" );
-|
-| b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
-| b->yy_buf_pos = b->yy_ch_buf = base;
-| b->yy_is_our_buffer = 0;
-| b->yy_input_file = 0;
-| b->yy_n_chars = b->yy_buf_size;
-| b->yy_is_interactive = 0;
-| b->yy_at_bol = 1;
-| b->yy_fill_buffer = 0;
-| b->yy_buffer_status = YY_BUFFER_NEW;
-|
-| yy_switch_to_buffer(b );
-|
-| return b;
-| }
-|
-| /** Setup the input buffer state to scan a string. The next call to yylex() will
-| * scan from a @e copy of @a str.
-| * @param yystr a NUL-terminated string to scan
-| *
-| * @return the newly allocated buffer state object.
-| * @note If you want to scan bytes that may contain NUL values, then use
-| * yy_scan_bytes() instead.
-| */
-| YY_BUFFER_STATE yy_scan_string (yyconst char * yystr )
-| {
-|
-| return yy_scan_bytes(yystr,strlen(yystr) );
-| }
-|
-| /** Setup the input buffer state to scan the given bytes. The next call to yylex() will
-| * scan from a @e copy of @a bytes.
-| * @param yybytes the byte buffer to scan
-| * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
-| *
-| * @return the newly allocated buffer state object.
-| */
-| YY_BUFFER_STATE yy_scan_bytes (yyconst char * yybytes, int _yybytes_len )
-| {
-| YY_BUFFER_STATE b;
-| char *buf;
-| yy_size_t n;
-| int i;
-|
-| /* Get memory for full buffer, including space for trailing EOB's. */
-| n = _yybytes_len + 2;
-| buf = (char *) yyalloc(n );
-| if ( ! buf )
-| YY_FATAL_ERROR( "out of dynamic memory in yy_scan_bytes()" );
-|
-| for ( i = 0; i < _yybytes_len; ++i )
-| buf[i] = yybytes[i];
-|
-| buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
-|
-| b = yy_scan_buffer(buf,n );
-| if ( ! b )
-| YY_FATAL_ERROR( "bad buffer in yy_scan_bytes()" );
-|
-| /* It's okay to grow etc. this buffer, and we should throw it
-| * away when we're done.
-| */
-| b->yy_is_our_buffer = 1;
-|
-| return b;
-| }
-|
-| #ifndef YY_EXIT_FAILURE
-| #define YY_EXIT_FAILURE 2
-| #endif
-|
-| static void yy_fatal_error (yyconst char* msg )
-| {
-| (void) fprintf( stderr, "%s\n", msg );
-| exit( YY_EXIT_FAILURE );
-| }
-|
-| /* Redefine yyless() so it works in section 3 code. */
-|
-| #undef yyless
-| #define yyless(n) \
-| do \
-| { \
-| /* Undo effects of setting up yytext. */ \
-| int yyless_macro_arg = (n); \
-| YY_LESS_LINENO(yyless_macro_arg);\
-| yytext[yyleng] = (yy_hold_char); \
-| (yy_c_buf_p) = yytext + yyless_macro_arg; \
-| (yy_hold_char) = *(yy_c_buf_p); \
-| *(yy_c_buf_p) = '\0'; \
-| yyleng = yyless_macro_arg; \
-| } \
-| while ( 0 )
-|
-| /* Accessor methods (get/set functions) to struct members. */
-|
-| /** Get the current line number.
-| *
-| */
-| int yyget_lineno (void)
-| {
-|
-| return yylineno;
-| }
-|
-| /** Get the input stream.
-| *
-| */
-| FILE *yyget_in (void)
-| {
-| return yyin;
-| }
-|
-| /** Get the output stream.
-| *
-| */
-| FILE *yyget_out (void)
-| {
-| return yyout;
-| }
-|
-| /** Get the length of the current token.
-| *
-| */
-| int yyget_leng (void)
-| {
-| return yyleng;
-| }
-|
-| /** Get the current token.
-| *
-| */
-|
-| char *yyget_text (void)
-| {
-| return yytext;
-| }
-|
-| /** Set the current line number.
-| * @param line_number
-| *
-| */
-| void yyset_lineno (int line_number )
-| {
-|
-| yylineno = line_number;
-| }
-|
-| /** Set the input stream. This does not discard the current
-| * input buffer.
-| * @param in_str A readable stream.
-| *
-| * @see yy_switch_to_buffer
-| */
-| void yyset_in (FILE * in_str )
-| {
-| yyin = in_str ;
-| }
-|
-| void yyset_out (FILE * out_str )
-| {
-| yyout = out_str ;
-| }
-|
-| int yyget_debug (void)
-| {
-| return yy_flex_debug;
-| }
-|
-| void yyset_debug (int bdebug )
-| {
-| yy_flex_debug = bdebug ;
-| }
-|
-| static int yy_init_globals (void)
-| {
-| /* Initialization is the same as for the non-reentrant scanner.
-| * This function is called from yylex_destroy(), so don't allocate here.
-| */
-|
-| (yy_buffer_stack) = 0;
-| (yy_buffer_stack_top) = 0;
-| (yy_buffer_stack_max) = 0;
-| (yy_c_buf_p) = (char *) 0;
-| (yy_init) = 0;
-| (yy_start) = 0;
-|
-| (yy_state_buf) = 0;
-| (yy_state_ptr) = 0;
-| (yy_full_match) = 0;
-| (yy_lp) = 0;
-|
-| /* Defined in main.c */
-| #ifdef YY_STDINIT
-| yyin = stdin;
-| yyout = stdout;
-| #else
-| yyin = (FILE *) 0;
-| yyout = (FILE *) 0;
-| #endif
-|
-| /* For future reference: Set errno on error, since we are called by
-| * yylex_init()
-| */
-| return 0;
-| }
-|
-| /* yylex_destroy is for both reentrant and non-reentrant scanners. */
-| int yylex_destroy (void)
-| {
-|
-| /* Pop the buffer stack, destroying each element. */
-| while(YY_CURRENT_BUFFER){
-| yy_delete_buffer(YY_CURRENT_BUFFER );
-| YY_CURRENT_BUFFER_LVALUE = NULL;
-| yypop_buffer_state();
-| }
-|
-| /* Destroy the stack itself. */
-| yyfree((yy_buffer_stack) );
-| (yy_buffer_stack) = NULL;
-|
-| yyfree ( (yy_state_buf) );
-| (yy_state_buf) = NULL;
-|
-| /* Reset the globals. This is important in a non-reentrant scanner so the next time
-| * yylex() is called, initialization will occur. */
-| yy_init_globals( );
-|
-| return 0;
-| }
-|
-| /*
-| * Internal utility routines.
-| */
-|
-| #ifndef yytext_ptr
-| static void yy_flex_strncpy (char* s1, yyconst char * s2, int n )
-| {
-| register int i;
-| for ( i = 0; i < n; ++i )
-| s1[i] = s2[i];
-| }
-| #endif
-|
-| #ifdef YY_NEED_STRLEN
-| static int yy_flex_strlen (yyconst char * s )
-| {
-| register int n;
-| for ( n = 0; s[n]; ++n )
-| ;
-|
-| return n;
-| }
-| #endif
-|
-| void *yyalloc (yy_size_t size )
-| {
-| return (void *) malloc( size );
-| }
-|
-| void *yyrealloc (void * ptr, yy_size_t size )
-| {
-| /* The cast to (char *) in the following accommodates both
-| * implementations that use char* generic pointers, and those
-| * that use void* generic pointers. It works with the latter
-| * because both ANSI C and C++ allow castless assignment from
-| * any pointer type to void*, and deal with argument conversions
-| * as though doing an assignment.
-| */
-| return (void *) realloc( (char *) ptr, size );
-| }
-|
-| void yyfree (void * ptr )
-| {
-| free( (char *) ptr ); /* see yyrealloc() for (char *) cast */
-| }
-|
-| #define YYTABLES_NAME "yytables"
-|
-| #line 9 "conftest.l"
-|
-|
-| #ifdef YYTEXT_POINTER
-| extern char *yytext;
-| #endif
-| int
-| main (void)
-| {
-| return ! yylex () + ! yywrap ();
-| }
-test_conf:5721: result: no
-test_conf:5738: checking for bison
-test_conf:5754: found /usr/bin/bison
-test_conf:5765: result: bison -y
-test_conf:5807: checking build system type
-test_conf:5821: result: x86_64-unknown-linux-gnu
-test_conf:5841: checking host system type
-test_conf:5854: result: x86_64-unknown-linux-gnu
-test_conf:6047: checking for the pthreads library -lpthreads
-test_conf:6088: gcc -o conftest -g -O2 -I/usr/include/scotch conftest.c -lpthreads >&5
-/usr/bin/ld: cannot find -lpthreads
-collect2: ld returned 1 exit status
-test_conf:6088: $? = 1
-test_conf: failed program was:
-| /* confdefs.h */
-| #define PACKAGE_NAME "Specfem 3D"
-| #define PACKAGE_TARNAME "Specfem3D"
-| #define PACKAGE_VERSION "2.0.1"
-| #define PACKAGE_STRING "Specfem 3D 2.0.1"
-| #define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-| #define PACKAGE_URL ""
-| #define FC_FUNC(name,NAME) name ## _
-| #define FC_FUNC_(name,NAME) name ## _
-| #define STDC_HEADERS 1
-| #define HAVE_SYS_TYPES_H 1
-| #define HAVE_SYS_STAT_H 1
-| #define HAVE_STDLIB_H 1
-| #define HAVE_STRING_H 1
-| #define HAVE_MEMORY_H 1
-| #define HAVE_STRINGS_H 1
-| #define HAVE_INTTYPES_H 1
-| #define HAVE_STDINT_H 1
-| #define HAVE_UNISTD_H 1
-| #define HAVE_EMMINTRIN 1
-| #define HAVE_XMMINTRIN 1
-| #define HAVE_SCOTCH 1
-| /* end confdefs.h. */
-| #include <pthread.h>
-| #ifdef FC_DUMMY_MAIN
-| #ifndef FC_DUMMY_MAIN_EQ_F77
-| # ifdef __cplusplus
-| extern "C"
-| # endif
-| int FC_DUMMY_MAIN() { return 1; }
-| #endif
-| #endif
-| int
-| main ()
-| {
-| pthread_t th; pthread_join(th, 0);
-| pthread_attr_init(0); pthread_cleanup_push(0, 0);
-| pthread_create(0,0,0,0); pthread_cleanup_pop(0);
-| ;
-| return 0;
-| }
-test_conf:6097: result: no
-test_conf:5992: checking whether pthreads work without any flags
-test_conf:6088: gcc -o conftest -g -O2 -I/usr/include/scotch conftest.c >&5
-/tmp/ccczS4I6.o: In function `main':
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:36: undefined reference to `pthread_join'
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:37: undefined reference to `__pthread_register_cancel'
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:38: undefined reference to `pthread_create'
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:38: undefined reference to `__pthread_unregister_cancel'
-collect2: ld returned 1 exit status
-test_conf:6088: $? = 1
-test_conf: failed program was:
-| /* confdefs.h */
-| #define PACKAGE_NAME "Specfem 3D"
-| #define PACKAGE_TARNAME "Specfem3D"
-| #define PACKAGE_VERSION "2.0.1"
-| #define PACKAGE_STRING "Specfem 3D 2.0.1"
-| #define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-| #define PACKAGE_URL ""
-| #define FC_FUNC(name,NAME) name ## _
-| #define FC_FUNC_(name,NAME) name ## _
-| #define STDC_HEADERS 1
-| #define HAVE_SYS_TYPES_H 1
-| #define HAVE_SYS_STAT_H 1
-| #define HAVE_STDLIB_H 1
-| #define HAVE_STRING_H 1
-| #define HAVE_MEMORY_H 1
-| #define HAVE_STRINGS_H 1
-| #define HAVE_INTTYPES_H 1
-| #define HAVE_STDINT_H 1
-| #define HAVE_UNISTD_H 1
-| #define HAVE_EMMINTRIN 1
-| #define HAVE_XMMINTRIN 1
-| #define HAVE_SCOTCH 1
-| /* end confdefs.h. */
-| #include <pthread.h>
-| #ifdef FC_DUMMY_MAIN
-| #ifndef FC_DUMMY_MAIN_EQ_F77
-| # ifdef __cplusplus
-| extern "C"
-| # endif
-| int FC_DUMMY_MAIN() { return 1; }
-| #endif
-| #endif
-| int
-| main ()
-| {
-| pthread_t th; pthread_join(th, 0);
-| pthread_attr_init(0); pthread_cleanup_push(0, 0);
-| pthread_create(0,0,0,0); pthread_cleanup_pop(0);
-| ;
-| return 0;
-| }
-test_conf:6097: result: no
-test_conf:5997: checking whether pthreads work with -Kthread
-test_conf:6088: gcc -o conftest -g -O2 -Kthread -I/usr/include/scotch conftest.c >&5
-gcc: unrecognized option '-Kthread'
-/tmp/cc1H9bJb.o: In function `main':
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:36: undefined reference to `pthread_join'
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:37: undefined reference to `__pthread_register_cancel'
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:38: undefined reference to `pthread_create'
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:38: undefined reference to `__pthread_unregister_cancel'
-collect2: ld returned 1 exit status
-test_conf:6088: $? = 1
-test_conf: failed program was:
-| /* confdefs.h */
-| #define PACKAGE_NAME "Specfem 3D"
-| #define PACKAGE_TARNAME "Specfem3D"
-| #define PACKAGE_VERSION "2.0.1"
-| #define PACKAGE_STRING "Specfem 3D 2.0.1"
-| #define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-| #define PACKAGE_URL ""
-| #define FC_FUNC(name,NAME) name ## _
-| #define FC_FUNC_(name,NAME) name ## _
-| #define STDC_HEADERS 1
-| #define HAVE_SYS_TYPES_H 1
-| #define HAVE_SYS_STAT_H 1
-| #define HAVE_STDLIB_H 1
-| #define HAVE_STRING_H 1
-| #define HAVE_MEMORY_H 1
-| #define HAVE_STRINGS_H 1
-| #define HAVE_INTTYPES_H 1
-| #define HAVE_STDINT_H 1
-| #define HAVE_UNISTD_H 1
-| #define HAVE_EMMINTRIN 1
-| #define HAVE_XMMINTRIN 1
-| #define HAVE_SCOTCH 1
-| /* end confdefs.h. */
-| #include <pthread.h>
-| #ifdef FC_DUMMY_MAIN
-| #ifndef FC_DUMMY_MAIN_EQ_F77
-| # ifdef __cplusplus
-| extern "C"
-| # endif
-| int FC_DUMMY_MAIN() { return 1; }
-| #endif
-| #endif
-| int
-| main ()
-| {
-| pthread_t th; pthread_join(th, 0);
-| pthread_attr_init(0); pthread_cleanup_push(0, 0);
-| pthread_create(0,0,0,0); pthread_cleanup_pop(0);
-| ;
-| return 0;
-| }
-test_conf:6097: result: no
-test_conf:5997: checking whether pthreads work with -kthread
-test_conf:6088: gcc -o conftest -g -O2 -kthread -I/usr/include/scotch conftest.c >&5
-gcc: unrecognized option '-kthread'
-/tmp/ccPbCshf.o: In function `main':
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:36: undefined reference to `pthread_join'
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:37: undefined reference to `__pthread_register_cancel'
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:38: undefined reference to `pthread_create'
-/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER/conftest.c:38: undefined reference to `__pthread_unregister_cancel'
-collect2: ld returned 1 exit status
-test_conf:6088: $? = 1
-test_conf: failed program was:
-| /* confdefs.h */
-| #define PACKAGE_NAME "Specfem 3D"
-| #define PACKAGE_TARNAME "Specfem3D"
-| #define PACKAGE_VERSION "2.0.1"
-| #define PACKAGE_STRING "Specfem 3D 2.0.1"
-| #define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-| #define PACKAGE_URL ""
-| #define FC_FUNC(name,NAME) name ## _
-| #define FC_FUNC_(name,NAME) name ## _
-| #define STDC_HEADERS 1
-| #define HAVE_SYS_TYPES_H 1
-| #define HAVE_SYS_STAT_H 1
-| #define HAVE_STDLIB_H 1
-| #define HAVE_STRING_H 1
-| #define HAVE_MEMORY_H 1
-| #define HAVE_STRINGS_H 1
-| #define HAVE_INTTYPES_H 1
-| #define HAVE_STDINT_H 1
-| #define HAVE_UNISTD_H 1
-| #define HAVE_EMMINTRIN 1
-| #define HAVE_XMMINTRIN 1
-| #define HAVE_SCOTCH 1
-| /* end confdefs.h. */
-| #include <pthread.h>
-| #ifdef FC_DUMMY_MAIN
-| #ifndef FC_DUMMY_MAIN_EQ_F77
-| # ifdef __cplusplus
-| extern "C"
-| # endif
-| int FC_DUMMY_MAIN() { return 1; }
-| #endif
-| #endif
-| int
-| main ()
-| {
-| pthread_t th; pthread_join(th, 0);
-| pthread_attr_init(0); pthread_cleanup_push(0, 0);
-| pthread_create(0,0,0,0); pthread_cleanup_pop(0);
-| ;
-| return 0;
-| }
-test_conf:6097: result: no
-test_conf:6047: checking for the pthreads library -llthread
-test_conf:6088: gcc -o conftest -g -O2 -I/usr/include/scotch conftest.c -llthread >&5
-/usr/bin/ld: cannot find -llthread
-collect2: ld returned 1 exit status
-test_conf:6088: $? = 1
-test_conf: failed program was:
-| /* confdefs.h */
-| #define PACKAGE_NAME "Specfem 3D"
-| #define PACKAGE_TARNAME "Specfem3D"
-| #define PACKAGE_VERSION "2.0.1"
-| #define PACKAGE_STRING "Specfem 3D 2.0.1"
-| #define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-| #define PACKAGE_URL ""
-| #define FC_FUNC(name,NAME) name ## _
-| #define FC_FUNC_(name,NAME) name ## _
-| #define STDC_HEADERS 1
-| #define HAVE_SYS_TYPES_H 1
-| #define HAVE_SYS_STAT_H 1
-| #define HAVE_STDLIB_H 1
-| #define HAVE_STRING_H 1
-| #define HAVE_MEMORY_H 1
-| #define HAVE_STRINGS_H 1
-| #define HAVE_INTTYPES_H 1
-| #define HAVE_STDINT_H 1
-| #define HAVE_UNISTD_H 1
-| #define HAVE_EMMINTRIN 1
-| #define HAVE_XMMINTRIN 1
-| #define HAVE_SCOTCH 1
-| /* end confdefs.h. */
-| #include <pthread.h>
-| #ifdef FC_DUMMY_MAIN
-| #ifndef FC_DUMMY_MAIN_EQ_F77
-| # ifdef __cplusplus
-| extern "C"
-| # endif
-| int FC_DUMMY_MAIN() { return 1; }
-| #endif
-| #endif
-| int
-| main ()
-| {
-| pthread_t th; pthread_join(th, 0);
-| pthread_attr_init(0); pthread_cleanup_push(0, 0);
-| pthread_create(0,0,0,0); pthread_cleanup_pop(0);
-| ;
-| return 0;
-| }
-test_conf:6097: result: no
-test_conf:5997: checking whether pthreads work with -pthread
-test_conf:6088: gcc -o conftest -g -O2 -pthread -I/usr/include/scotch conftest.c >&5
-test_conf:6088: $? = 0
-test_conf:6097: result: yes
-test_conf:6116: checking for joinable pthread attribute
-test_conf:6139: gcc -o conftest -g -O2 -pthread -I/usr/include/scotch conftest.c >&5
-test_conf:6139: $? = 0
-test_conf:6145: result: PTHREAD_CREATE_JOINABLE
-test_conf:6155: checking if more special flags are required for pthreads
-test_conf:6162: result: no
-test_conf:6229: result: pthread found
-test_conf:6537: checking whether mpif.h works
-test_conf:6553: mpif90 -c -g -O2 conftest.f90 >&5
-test_conf:6553: $? = 0
-test_conf:6555: result: yes
-test_conf:6850: creating ./config.status
-
-## ---------------------- ##
-## Running config.status. ##
-## ---------------------- ##
-
-This file was extended by Specfem 3D config.status 2.0.1, which was
-generated by GNU Autoconf 2.65. Invocation command line was
-
- CONFIG_FILES =
- CONFIG_HEADERS =
- CONFIG_LINKS =
- CONFIG_COMMANDS =
- $ ./config.status
-
-on beverly
-
-config.status:892: creating Makefile
-config.status:892: creating in_data_files/Par_file
-config.status:892: creating in_data_files/CMTSOLUTION
-config.status:892: creating in_data_files/STATIONS
-config.status:892: creating src/meshfem3D/Makefile
-config.status:892: creating src/meshfem3D/constants.h
-config.status:892: creating src/meshfem3D/precision.h
-config.status:892: creating src/decompose_mesh_SCOTCH/Makefile
-config.status:892: creating src/specfem3D/Makefile
-config.status:892: creating src/generate_databases/Makefile
-config.status:892: creating src/shared/constants.h
-config.status:892: creating src/shared/precision.h
-config.status:892: creating src/decompose_mesh_SCOTCH/scotch_5.1.11/src/Makefile.inc
-config.status:892: creating src/check_mesh_quality_CUBIT_Abaqus/Makefile
-config.status:892: creating config.h
-config.status:1053: config.h is unchanged
-
-## ---------------- ##
-## Cache variables. ##
-## ---------------- ##
-
-ac_cv_build=x86_64-unknown-linux-gnu
-ac_cv_c_compiler_gnu=yes
-ac_cv_env_CC_set=
-ac_cv_env_CC_value=
-ac_cv_env_CFLAGS_set=
-ac_cv_env_CFLAGS_value=
-ac_cv_env_CPPFLAGS_set=
-ac_cv_env_CPPFLAGS_value=
-ac_cv_env_CPP_set=
-ac_cv_env_CPP_value=
-ac_cv_env_CUDA_INC_set=set
-ac_cv_env_CUDA_INC_value=-I/usr/local/cuda/include
-ac_cv_env_CUDA_LIB_set=set
-ac_cv_env_CUDA_LIB_value=-L/usr/local/cuda/lib64/
-ac_cv_env_FCFLAGS_set=
-ac_cv_env_FCFLAGS_value=
-ac_cv_env_FC_set=set
-ac_cv_env_FC_value=mpif90
-ac_cv_env_FLAGS_CHECK_set=
-ac_cv_env_FLAGS_CHECK_value=
-ac_cv_env_FLAGS_NO_CHECK_set=
-ac_cv_env_FLAGS_NO_CHECK_value=
-ac_cv_env_LDFLAGS_set=
-ac_cv_env_LDFLAGS_value=
-ac_cv_env_LIBS_set=
-ac_cv_env_LIBS_value=
-ac_cv_env_LOCAL_PATH_IS_ALSO_GLOBAL_set=
-ac_cv_env_LOCAL_PATH_IS_ALSO_GLOBAL_value=
-ac_cv_env_MPICC_set=
-ac_cv_env_MPICC_value=
-ac_cv_env_MPIFC_set=set
-ac_cv_env_MPIFC_value=mpif90
-ac_cv_env_MPILIBS_set=
-ac_cv_env_MPILIBS_value=
-ac_cv_env_MPI_INC_set=set
-ac_cv_env_MPI_INC_value=-I/usr/include/mpich2/
-ac_cv_env_PYTHONPATH_set=
-ac_cv_env_PYTHONPATH_value=
-ac_cv_env_PYTHON_set=
-ac_cv_env_PYTHON_value=
-ac_cv_env_SCOTCH_DIR_set=
-ac_cv_env_SCOTCH_DIR_value=
-ac_cv_env_SCOTCH_INCLUDEDIR_set=
-ac_cv_env_SCOTCH_INCLUDEDIR_value=
-ac_cv_env_SCOTCH_LIBDIR_set=
-ac_cv_env_SCOTCH_LIBDIR_value=
-ac_cv_env_USE_BUNDLED_SCOTCH_set=
-ac_cv_env_USE_BUNDLED_SCOTCH_value=
-ac_cv_env_YACC_set=
-ac_cv_env_YACC_value=
-ac_cv_env_YFLAGS_set=
-ac_cv_env_YFLAGS_value=
-ac_cv_env_build_alias_set=
-ac_cv_env_build_alias_value=
-ac_cv_env_host_alias_set=
-ac_cv_env_host_alias_value=
-ac_cv_env_target_alias_set=
-ac_cv_env_target_alias_value=
-ac_cv_fc_compiler_gnu=yes
-ac_cv_fc_dummy_main=none
-ac_cv_fc_freeform=none
-ac_cv_fc_libs=' -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl -lnsl -lutil -lgfortranbegin -lgfortran -lm -lpthread'
-ac_cv_fc_mangling='lower case, underscore, no extra underscore'
-ac_cv_fc_srcext_f90=none
-ac_cv_fortran_dummy_main=none
-ac_cv_header_emmintrin_h=yes
-ac_cv_header_inttypes_h=yes
-ac_cv_header_memory_h=yes
-ac_cv_header_stdc=yes
-ac_cv_header_stdint_h=yes
-ac_cv_header_stdlib_h=yes
-ac_cv_header_string_h=yes
-ac_cv_header_strings_h=yes
-ac_cv_header_sys_stat_h=yes
-ac_cv_header_sys_types_h=yes
-ac_cv_header_unistd_h=yes
-ac_cv_header_xmmintrin_h=yes
-ac_cv_host=x86_64-unknown-linux-gnu
-ac_cv_lib_lex='none needed'
-ac_cv_lib_scotch_scotchfarchinit_=no
-ac_cv_objext=o
-ac_cv_path_EGREP='/bin/grep -E'
-ac_cv_path_GREP=/bin/grep
-ac_cv_prog_CPP='gcc -E'
-ac_cv_prog_LEX=flex
-ac_cv_prog_YACC='bison -y'
-ac_cv_prog_ac_ct_CC=gcc
-ac_cv_prog_cc_c89=
-ac_cv_prog_cc_g=yes
-ac_cv_prog_fc_g=yes
-ac_cv_prog_fc_v=-v
-ac_cv_prog_lex_root=lex.yy
-ac_cv_prog_lex_yytext_pointer=no
-
-## ----------------- ##
-## Output variables. ##
-## ----------------- ##
-
-CC='gcc'
-CFLAGS='-g -O2'
-COND_CUDA_FALSE='#'
-COND_CUDA_TRUE=''
-COND_MPI_FALSE='#'
-COND_MPI_TRUE=''
-COND_PYRE_FALSE=''
-COND_PYRE_TRUE='#'
-CPP='gcc -E'
-CPPFLAGS=' -I/usr/include/scotch'
-CUDA_INC='-I/usr/local/cuda/include'
-CUDA_LIB='-L/usr/local/cuda/lib64/'
-CUSTOM_MPI_TYPE='MPI_REAL'
-CUSTOM_REAL='SIZE_REAL'
-DEFS='-DHAVE_CONFIG_H'
-ECHO_C=''
-ECHO_N='-n'
-ECHO_T=''
-EGREP='/bin/grep -E'
-EXEEXT=''
-FC='mpif90'
-FCENV=''
-FCFLAGS='-g -O2'
-FCFLAGS_f90=''
-FCLIBS=' -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl -lnsl -lutil -lgfortranbegin -lgfortran -lm -lpthread'
-FLAGS_CHECK=''
-FLAGS_NO_CHECK=''
-GREP='/bin/grep'
-LDFLAGS=''
-LEX='flex'
-LEXLIB=''
-LEX_OUTPUT_ROOT='lex.yy'
-LIBOBJS=''
-LIBS=''
-LOCAL_PATH_IS_ALSO_GLOBAL='true'
-LTLIBOBJS=''
-MPICC='mpicc'
-MPIFC='mpif90'
-MPILIBS=''
-MPI_INC='-I/usr/include/mpich2/'
-OBJEXT='o'
-PACKAGE_BUGREPORT='jtromp AT princeton.edu'
-PACKAGE_NAME='Specfem 3D'
-PACKAGE_STRING='Specfem 3D 2.0.1'
-PACKAGE_TARNAME='Specfem3D'
-PACKAGE_URL=''
-PACKAGE_VERSION='2.0.1'
-PATH_SEPARATOR=':'
-PTHREAD_CC='gcc'
-PTHREAD_CFLAGS='-pthread'
-PTHREAD_LIBS=''
-PYTHON=''
-PYTHONPATH=''
-PYTHON_BLDLIBRARY=''
-PYTHON_EGG_CFLAGS=''
-PYTHON_EGG_CPPFLAGS=''
-PYTHON_EGG_LDFLAGS=''
-PYTHON_EXEC_PREFIX=''
-PYTHON_INCDIR=''
-PYTHON_LA_LDFLAGS=''
-PYTHON_LDFLAGS=''
-PYTHON_LDLAST=''
-PYTHON_LDLIBRARY=''
-PYTHON_LIBDIR=''
-PYTHON_LIBP=''
-PYTHON_LIBPL=''
-PYTHON_LIBS=''
-PYTHON_LINKFORSHARED=''
-PYTHON_MODLIBS=''
-PYTHON_PLATFORM=''
-PYTHON_PREFIX=''
-PYTHON_SYSLIBS=''
-PYTHON_VERSION=''
-SCOTCH_DIR='scotch_5.1.11'
-SCOTCH_INCLUDEDIR='scotch_5.1.11/include'
-SCOTCH_LIBDIR='scotch_5.1.11/lib'
-SHELL='/bin/bash'
-USE_BUNDLED_SCOTCH='1'
-YACC='bison -y'
-YFLAGS=''
-ac_ct_CC='gcc'
-ac_ct_FC=''
-acx_pthread_config=''
-bindir='${exec_prefix}/bin'
-build='x86_64-unknown-linux-gnu'
-build_alias=''
-build_cpu='x86_64'
-build_os='linux-gnu'
-build_vendor='unknown'
-datadir='${datarootdir}'
-datarootdir='${prefix}/share'
-docdir='${datarootdir}/doc/${PACKAGE_TARNAME}'
-dvidir='${docdir}'
-exec_prefix='${prefix}'
-host='x86_64-unknown-linux-gnu'
-host_alias=''
-host_cpu='x86_64'
-host_os='linux-gnu'
-host_vendor='unknown'
-htmldir='${docdir}'
-includedir='${prefix}/include'
-infodir='${datarootdir}/info'
-libdir='${exec_prefix}/lib'
-libexecdir='${exec_prefix}/libexec'
-localedir='${datarootdir}/locale'
-localstatedir='${prefix}/var'
-mandir='${datarootdir}/man'
-oldincludedir='/usr/include'
-pdfdir='${docdir}'
-pkgpyexecdir=''
-pkgpythondir=''
-prefix='/usr/local'
-program_transform_name='s,x,x,'
-psdir='${docdir}'
-pyexecdir=''
-pythondir=''
-sbindir='${exec_prefix}/sbin'
-sharedstatedir='${prefix}/com'
-sysconfdir='${prefix}/etc'
-target_alias=''
-
-## ----------- ##
-## confdefs.h. ##
-## ----------- ##
-
-/* confdefs.h */
-#define PACKAGE_NAME "Specfem 3D"
-#define PACKAGE_TARNAME "Specfem3D"
-#define PACKAGE_VERSION "2.0.1"
-#define PACKAGE_STRING "Specfem 3D 2.0.1"
-#define PACKAGE_BUGREPORT "jtromp AT princeton.edu"
-#define PACKAGE_URL ""
-#define FC_FUNC(name,NAME) name ## _
-#define FC_FUNC_(name,NAME) name ## _
-#define STDC_HEADERS 1
-#define HAVE_SYS_TYPES_H 1
-#define HAVE_SYS_STAT_H 1
-#define HAVE_STDLIB_H 1
-#define HAVE_STRING_H 1
-#define HAVE_MEMORY_H 1
-#define HAVE_STRINGS_H 1
-#define HAVE_INTTYPES_H 1
-#define HAVE_STDINT_H 1
-#define HAVE_UNISTD_H 1
-#define HAVE_EMMINTRIN 1
-#define HAVE_XMMINTRIN 1
-#define HAVE_SCOTCH 1
-
-test_conf: exit 0
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.status
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.status 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/config.status 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,1073 +0,0 @@
-#! /bin/bash
-# Generated by test_conf.
-# Run this file to recreate the current configuration.
-# Compiler output produced by configure, useful for debugging
-# configure, is in config.log if it exists.
-
-debug=false
-ac_cs_recheck=false
-ac_cs_silent=false
-
-SHELL=${CONFIG_SHELL-/bin/bash}
-export SHELL
-## -------------------- ##
-## M4sh Initialization. ##
-## -------------------- ##
-
-# Be more Bourne compatible
-DUALCASE=1; export DUALCASE # for MKS sh
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
- emulate sh
- NULLCMD=:
- # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
- # is contrary to our usage. Disable this feature.
- alias -g '${1+"$@"}'='"$@"'
- setopt NO_GLOB_SUBST
-else
- case `(set -o) 2>/dev/null` in #(
- *posix*) :
- set -o posix ;; #(
- *) :
- ;;
-esac
-fi
-
-
-as_nl='
-'
-export as_nl
-# Printing a long string crashes Solaris 7 /usr/bin/printf.
-as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
-as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
-# Prefer a ksh shell builtin over an external printf program on Solaris,
-# but without wasting forks for bash or zsh.
-if test -z "$BASH_VERSION$ZSH_VERSION" \
- && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='print -r --'
- as_echo_n='print -rn --'
-elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
- as_echo='printf %s\n'
- as_echo_n='printf %s'
-else
- if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
- as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
- as_echo_n='/usr/ucb/echo -n'
- else
- as_echo_body='eval expr "X$1" : "X\\(.*\\)"'
- as_echo_n_body='eval
- arg=$1;
- case $arg in #(
- *"$as_nl"*)
- expr "X$arg" : "X\\(.*\\)$as_nl";
- arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;
- esac;
- expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"
- '
- export as_echo_n_body
- as_echo_n='sh -c $as_echo_n_body as_echo'
- fi
- export as_echo_body
- as_echo='sh -c $as_echo_body as_echo'
-fi
-
-# The user is always right.
-if test "${PATH_SEPARATOR+set}" != set; then
- PATH_SEPARATOR=:
- (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
- (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
- PATH_SEPARATOR=';'
- }
-fi
-
-
-# IFS
-# We need space, tab and new line, in precisely that order. Quoting is
-# there to prevent editors from complaining about space-tab.
-# (If _AS_PATH_WALK were called with IFS unset, it would disable word
-# splitting by setting IFS to empty value.)
-IFS=" "" $as_nl"
-
-# Find who we are. Look in the path if we contain no directory separator.
-case $0 in #((
- *[\\/]* ) as_myself=$0 ;;
- *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
-for as_dir in $PATH
-do
- IFS=$as_save_IFS
- test -z "$as_dir" && as_dir=.
- test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
- done
-IFS=$as_save_IFS
-
- ;;
-esac
-# We did not find ourselves, most probably we were run as `sh COMMAND'
-# in which case we are not to be found in the path.
-if test "x$as_myself" = x; then
- as_myself=$0
-fi
-if test ! -f "$as_myself"; then
- $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
- exit 1
-fi
-
-# Unset variables that we do not need and which cause bugs (e.g. in
-# pre-3.0 UWIN ksh). But do not cause bugs in bash 2.01; the "|| exit 1"
-# suppresses any "Segmentation fault" message there. '((' could
-# trigger a bug in pdksh 5.2.14.
-for as_var in BASH_ENV ENV MAIL MAILPATH
-do eval test x\${$as_var+set} = xset \
- && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
-done
-PS1='$ '
-PS2='> '
-PS4='+ '
-
-# NLS nuisances.
-LC_ALL=C
-export LC_ALL
-LANGUAGE=C
-export LANGUAGE
-
-# CDPATH.
-(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
-
-
-# as_fn_error ERROR [LINENO LOG_FD]
-# ---------------------------------
-# Output "`basename $0`: error: ERROR" to stderr. If LINENO and LOG_FD are
-# provided, also output the error to LOG_FD, referencing LINENO. Then exit the
-# script with status $?, using 1 if that was 0.
-as_fn_error ()
-{
- as_status=$?; test $as_status -eq 0 && as_status=1
- if test "$3"; then
- as_lineno=${as_lineno-"$2"} as_lineno_stack=as_lineno_stack=$as_lineno_stack
- $as_echo "$as_me:${as_lineno-$LINENO}: error: $1" >&$3
- fi
- $as_echo "$as_me: error: $1" >&2
- as_fn_exit $as_status
-} # as_fn_error
-
-
-# as_fn_set_status STATUS
-# -----------------------
-# Set $? to STATUS, without forking.
-as_fn_set_status ()
-{
- return $1
-} # as_fn_set_status
-
-# as_fn_exit STATUS
-# -----------------
-# Exit the shell with STATUS, even in a "trap 0" or "set -e" context.
-as_fn_exit ()
-{
- set +e
- as_fn_set_status $1
- exit $1
-} # as_fn_exit
-
-# as_fn_unset VAR
-# ---------------
-# Portably unset VAR.
-as_fn_unset ()
-{
- { eval $1=; unset $1;}
-}
-as_unset=as_fn_unset
-# as_fn_append VAR VALUE
-# ----------------------
-# Append the text in VALUE to the end of the definition contained in VAR. Take
-# advantage of any shell optimizations that allow amortized linear growth over
-# repeated appends, instead of the typical quadratic growth present in naive
-# implementations.
-if (eval "as_var=1; as_var+=2; test x\$as_var = x12") 2>/dev/null; then :
- eval 'as_fn_append ()
- {
- eval $1+=\$2
- }'
-else
- as_fn_append ()
- {
- eval $1=\$$1\$2
- }
-fi # as_fn_append
-
-# as_fn_arith ARG...
-# ------------------
-# Perform arithmetic evaluation on the ARGs, and store the result in the
-# global $as_val. Take advantage of shells that can avoid forks. The arguments
-# must be portable across $(()) and expr.
-if (eval "test \$(( 1 + 1 )) = 2") 2>/dev/null; then :
- eval 'as_fn_arith ()
- {
- as_val=$(( $* ))
- }'
-else
- as_fn_arith ()
- {
- as_val=`expr "$@" || test $? -eq 1`
- }
-fi # as_fn_arith
-
-
-if expr a : '\(a\)' >/dev/null 2>&1 &&
- test "X`expr 00001 : '.*\(...\)'`" = X001; then
- as_expr=expr
-else
- as_expr=false
-fi
-
-if (basename -- /) >/dev/null 2>&1 && test "X`basename -- / 2>&1`" = "X/"; then
- as_basename=basename
-else
- as_basename=false
-fi
-
-if (as_dir=`dirname -- /` && test "X$as_dir" = X/) >/dev/null 2>&1; then
- as_dirname=dirname
-else
- as_dirname=false
-fi
-
-as_me=`$as_basename -- "$0" ||
-$as_expr X/"$0" : '.*/\([^/][^/]*\)/*$' \| \
- X"$0" : 'X\(//\)$' \| \
- X"$0" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X/"$0" |
- sed '/^.*\/\([^/][^/]*\)\/*$/{
- s//\1/
- q
- }
- /^X\/\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\/\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
-
-# Avoid depending upon Character Ranges.
-as_cr_letters='abcdefghijklmnopqrstuvwxyz'
-as_cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
-as_cr_Letters=$as_cr_letters$as_cr_LETTERS
-as_cr_digits='0123456789'
-as_cr_alnum=$as_cr_Letters$as_cr_digits
-
-ECHO_C= ECHO_N= ECHO_T=
-case `echo -n x` in #(((((
--n*)
- case `echo 'xy\c'` in
- *c*) ECHO_T=' ';; # ECHO_T is single tab character.
- xy) ECHO_C='\c';;
- *) echo `echo ksh88 bug on AIX 6.1` > /dev/null
- ECHO_T=' ';;
- esac;;
-*)
- ECHO_N='-n';;
-esac
-
-rm -f conf$$ conf$$.exe conf$$.file
-if test -d conf$$.dir; then
- rm -f conf$$.dir/conf$$.file
-else
- rm -f conf$$.dir
- mkdir conf$$.dir 2>/dev/null
-fi
-if (echo >conf$$.file) 2>/dev/null; then
- if ln -s conf$$.file conf$$ 2>/dev/null; then
- as_ln_s='ln -s'
- # ... but there are two gotchas:
- # 1) On MSYS, both `ln -s file dir' and `ln file dir' fail.
- # 2) DJGPP < 2.04 has no symlinks; `ln -s' creates a wrapper executable.
- # In both cases, we have to default to `cp -p'.
- ln -s conf$$.file conf$$.dir 2>/dev/null && test ! -f conf$$.exe ||
- as_ln_s='cp -p'
- elif ln conf$$.file conf$$ 2>/dev/null; then
- as_ln_s=ln
- else
- as_ln_s='cp -p'
- fi
-else
- as_ln_s='cp -p'
-fi
-rm -f conf$$ conf$$.exe conf$$.dir/conf$$.file conf$$.file
-rmdir conf$$.dir 2>/dev/null
-
-
-# as_fn_mkdir_p
-# -------------
-# Create "$as_dir" as a directory, including parents if necessary.
-as_fn_mkdir_p ()
-{
-
- case $as_dir in #(
- -*) as_dir=./$as_dir;;
- esac
- test -d "$as_dir" || eval $as_mkdir_p || {
- as_dirs=
- while :; do
- case $as_dir in #(
- *\'*) as_qdir=`$as_echo "$as_dir" | sed "s/'/'\\\\\\\\''/g"`;; #'(
- *) as_qdir=$as_dir;;
- esac
- as_dirs="'$as_qdir' $as_dirs"
- as_dir=`$as_dirname -- "$as_dir" ||
-$as_expr X"$as_dir" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$as_dir" : 'X\(//\)[^/]' \| \
- X"$as_dir" : 'X\(//\)$' \| \
- X"$as_dir" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$as_dir" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- test -d "$as_dir" && break
- done
- test -z "$as_dirs" || eval "mkdir $as_dirs"
- } || test -d "$as_dir" || as_fn_error "cannot create directory $as_dir"
-
-
-} # as_fn_mkdir_p
-if mkdir -p . 2>/dev/null; then
- as_mkdir_p='mkdir -p "$as_dir"'
-else
- test -d ./-p && rmdir ./-p
- as_mkdir_p=false
-fi
-
-if test -x / >/dev/null 2>&1; then
- as_test_x='test -x'
-else
- if ls -dL / >/dev/null 2>&1; then
- as_ls_L_option=L
- else
- as_ls_L_option=
- fi
- as_test_x='
- eval sh -c '\''
- if test -d "$1"; then
- test -d "$1/.";
- else
- case $1 in #(
- -*)set "./$1";;
- esac;
- case `ls -ld'$as_ls_L_option' "$1" 2>/dev/null` in #((
- ???[sx]*):;;*)false;;esac;fi
- '\'' sh
- '
-fi
-as_executable_p=$as_test_x
-
-# Sed expression to map a string onto a valid CPP name.
-as_tr_cpp="eval sed 'y%*$as_cr_letters%P$as_cr_LETTERS%;s%[^_$as_cr_alnum]%_%g'"
-
-# Sed expression to map a string onto a valid variable name.
-as_tr_sh="eval sed 'y%*+%pp%;s%[^_$as_cr_alnum]%_%g'"
-
-
-exec 6>&1
-## ----------------------------------- ##
-## Main body of $CONFIG_STATUS script. ##
-## ----------------------------------- ##
-# Save the log message, to keep $0 and so on meaningful, and to
-# report actual input values of CONFIG_FILES etc. instead of their
-# values after options handling.
-ac_log="
-This file was extended by Specfem 3D $as_me 2.0.1, which was
-generated by GNU Autoconf 2.65. Invocation command line was
-
- CONFIG_FILES = $CONFIG_FILES
- CONFIG_HEADERS = $CONFIG_HEADERS
- CONFIG_LINKS = $CONFIG_LINKS
- CONFIG_COMMANDS = $CONFIG_COMMANDS
- $ $0 $@
-
-on `(hostname || uname -n) 2>/dev/null | sed 1q`
-"
-
-# Files that config.status was made for.
-config_files=" Makefile in_data_files/Par_file in_data_files/CMTSOLUTION in_data_files/STATIONS src/meshfem3D/Makefile src/meshfem3D/constants.h src/meshfem3D/precision.h src/decompose_mesh_SCOTCH/Makefile src/specfem3D/Makefile src/generate_databases/Makefile src/shared/constants.h src/shared/precision.h src/decompose_mesh_SCOTCH/scotch_5.1.11/src/Makefile.inc src/check_mesh_quality_CUBIT_Abaqus/Makefile"
-config_headers=" config.h"
-
-ac_cs_usage="\
-\`$as_me' instantiates files and other configuration actions
-from templates according to the current configuration. Unless the files
-and actions are specified as TAGs, all are instantiated by default.
-
-Usage: $0 [OPTION]... [TAG]...
-
- -h, --help print this help, then exit
- -V, --version print version number and configuration settings, then exit
- --config print configuration, then exit
- -q, --quiet, --silent
- do not print progress messages
- -d, --debug don't remove temporary files
- --recheck update $as_me by reconfiguring in the same conditions
- --file=FILE[:TEMPLATE]
- instantiate the configuration file FILE
- --header=FILE[:TEMPLATE]
- instantiate the configuration header FILE
-
-Configuration files:
-$config_files
-
-Configuration headers:
-$config_headers
-
-Report bugs to <jtromp AT princeton.edu>."
-
-ac_cs_config="'MPIFC=mpif90' 'FC=mpif90' 'CUDA_LIB=-L/usr/local/cuda/lib64/' 'MPI_INC=-I/usr/include/mpich2/' '--with-cuda' 'CUDA_INC=-I/usr/local/cuda/include'"
-ac_cs_version="\
-Specfem 3D config.status 2.0.1
-configured by ./test_conf, generated by GNU Autoconf 2.65,
- with options \"$ac_cs_config\"
-
-Copyright (C) 2009 Free Software Foundation, Inc.
-This config.status script is free software; the Free Software Foundation
-gives unlimited permission to copy, distribute and modify it."
-
-ac_pwd='/home/riethmann/Dropbox/PhD/petaquake/SPECFEM3D_SUNFLOWER'
-srcdir='.'
-test -n "$AWK" || AWK=awk
-# The default lists apply if the user does not specify any file.
-ac_need_defaults=:
-while test $# != 0
-do
- case $1 in
- --*=*)
- ac_option=`expr "X$1" : 'X\([^=]*\)='`
- ac_optarg=`expr "X$1" : 'X[^=]*=\(.*\)'`
- ac_shift=:
- ;;
- *)
- ac_option=$1
- ac_optarg=$2
- ac_shift=shift
- ;;
- esac
-
- case $ac_option in
- # Handling of the options.
- -recheck | --recheck | --rechec | --reche | --rech | --rec | --re | --r)
- ac_cs_recheck=: ;;
- --version | --versio | --versi | --vers | --ver | --ve | --v | -V )
- $as_echo "$ac_cs_version"; exit ;;
- --config | --confi | --conf | --con | --co | --c )
- $as_echo "$ac_cs_config"; exit ;;
- --debug | --debu | --deb | --de | --d | -d )
- debug=: ;;
- --file | --fil | --fi | --f )
- $ac_shift
- case $ac_optarg in
- *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
- esac
- as_fn_append CONFIG_FILES " '$ac_optarg'"
- ac_need_defaults=false;;
- --header | --heade | --head | --hea )
- $ac_shift
- case $ac_optarg in
- *\'*) ac_optarg=`$as_echo "$ac_optarg" | sed "s/'/'\\\\\\\\''/g"` ;;
- esac
- as_fn_append CONFIG_HEADERS " '$ac_optarg'"
- ac_need_defaults=false;;
- --he | --h)
- # Conflict between --help and --header
- as_fn_error "ambiguous option: \`$1'
-Try \`$0 --help' for more information.";;
- --help | --hel | -h )
- $as_echo "$ac_cs_usage"; exit ;;
- -q | -quiet | --quiet | --quie | --qui | --qu | --q \
- | -silent | --silent | --silen | --sile | --sil | --si | --s)
- ac_cs_silent=: ;;
-
- # This is an error.
- -*) as_fn_error "unrecognized option: \`$1'
-Try \`$0 --help' for more information." ;;
-
- *) as_fn_append ac_config_targets " $1"
- ac_need_defaults=false ;;
-
- esac
- shift
-done
-
-ac_configure_extra_args=
-
-if $ac_cs_silent; then
- exec 6>/dev/null
- ac_configure_extra_args="$ac_configure_extra_args --silent"
-fi
-
-if $ac_cs_recheck; then
- set X '/bin/bash' './test_conf' 'MPIFC=mpif90' 'FC=mpif90' 'CUDA_LIB=-L/usr/local/cuda/lib64/' 'MPI_INC=-I/usr/include/mpich2/' '--with-cuda' 'CUDA_INC=-I/usr/local/cuda/include' $ac_configure_extra_args --no-create --no-recursion
- shift
- $as_echo "running CONFIG_SHELL=/bin/bash $*" >&6
- CONFIG_SHELL='/bin/bash'
- export CONFIG_SHELL
- exec "$@"
-fi
-
-exec 5>>config.log
-{
- echo
- sed 'h;s/./-/g;s/^.../## /;s/...$/ ##/;p;x;p;x' <<_ASBOX
-## Running $as_me. ##
-_ASBOX
- $as_echo "$ac_log"
-} >&5
-
-
-# Handling of arguments.
-for ac_config_target in $ac_config_targets
-do
- case $ac_config_target in
- "config.h") CONFIG_HEADERS="$CONFIG_HEADERS config.h" ;;
- "Makefile") CONFIG_FILES="$CONFIG_FILES Makefile" ;;
- "in_data_files/Par_file") CONFIG_FILES="$CONFIG_FILES in_data_files/Par_file" ;;
- "in_data_files/CMTSOLUTION") CONFIG_FILES="$CONFIG_FILES in_data_files/CMTSOLUTION" ;;
- "in_data_files/STATIONS") CONFIG_FILES="$CONFIG_FILES in_data_files/STATIONS" ;;
- "src/meshfem3D/Makefile") CONFIG_FILES="$CONFIG_FILES src/meshfem3D/Makefile" ;;
- "src/meshfem3D/constants.h") CONFIG_FILES="$CONFIG_FILES src/meshfem3D/constants.h" ;;
- "src/meshfem3D/precision.h") CONFIG_FILES="$CONFIG_FILES src/meshfem3D/precision.h" ;;
- "src/decompose_mesh_SCOTCH/Makefile") CONFIG_FILES="$CONFIG_FILES src/decompose_mesh_SCOTCH/Makefile" ;;
- "src/specfem3D/Makefile") CONFIG_FILES="$CONFIG_FILES src/specfem3D/Makefile" ;;
- "src/generate_databases/Makefile") CONFIG_FILES="$CONFIG_FILES src/generate_databases/Makefile" ;;
- "src/shared/constants.h") CONFIG_FILES="$CONFIG_FILES src/shared/constants.h" ;;
- "src/shared/precision.h") CONFIG_FILES="$CONFIG_FILES src/shared/precision.h" ;;
- "src/decompose_mesh_SCOTCH/scotch_5.1.11/src/Makefile.inc") CONFIG_FILES="$CONFIG_FILES src/decompose_mesh_SCOTCH/scotch_5.1.11/src/Makefile.inc" ;;
- "src/check_mesh_quality_CUBIT_Abaqus/Makefile") CONFIG_FILES="$CONFIG_FILES src/check_mesh_quality_CUBIT_Abaqus/Makefile" ;;
-
- *) as_fn_error "invalid argument: \`$ac_config_target'" "$LINENO" 5;;
- esac
-done
-
-
-# If the user did not use the arguments to specify the items to instantiate,
-# then the envvar interface is used. Set only those that are not.
-# We use the long form for the default assignment because of an extremely
-# bizarre bug on SunOS 4.1.3.
-if $ac_need_defaults; then
- test "${CONFIG_FILES+set}" = set || CONFIG_FILES=$config_files
- test "${CONFIG_HEADERS+set}" = set || CONFIG_HEADERS=$config_headers
-fi
-
-# Have a temporary directory for convenience. Make it in the build tree
-# simply because there is no reason against having it here, and in addition,
-# creating and moving files from /tmp can sometimes cause problems.
-# Hook for its removal unless debugging.
-# Note that there is a small window in which the directory will not be cleaned:
-# after its creation but before its name has been assigned to `$tmp'.
-$debug ||
-{
- tmp=
- trap 'exit_status=$?
- { test -z "$tmp" || test ! -d "$tmp" || rm -fr "$tmp"; } && exit $exit_status
-' 0
- trap 'as_fn_exit 1' 1 2 13 15
-}
-# Create a (secure) tmp directory for tmp files.
-
-{
- tmp=`(umask 077 && mktemp -d "./confXXXXXX") 2>/dev/null` &&
- test -n "$tmp" && test -d "$tmp"
-} ||
-{
- tmp=./conf$$-$RANDOM
- (umask 077 && mkdir "$tmp")
-} || as_fn_error "cannot create a temporary directory in ." "$LINENO" 5
-
-# Set up the scripts for CONFIG_FILES section.
-# No need to generate them if there are no CONFIG_FILES.
-# This happens for instance with `./config.status config.h'.
-if test -n "$CONFIG_FILES"; then
-
-
-ac_cr=`echo X | tr X '\015'`
-# On cygwin, bash can eat \r inside `` if the user requested igncr.
-# But we know of no other shell where ac_cr would be empty at this
-# point, so we can use a bashism as a fallback.
-if test "x$ac_cr" = x; then
- eval ac_cr=\$\'\\r\'
-fi
-ac_cs_awk_cr=`$AWK 'BEGIN { print "a\rb" }' </dev/null 2>/dev/null`
-if test "$ac_cs_awk_cr" = "a${ac_cr}b"; then
- ac_cs_awk_cr='\r'
-else
- ac_cs_awk_cr=$ac_cr
-fi
-
-echo 'BEGIN {' >"$tmp/subs1.awk" &&
-cat >>"$tmp/subs1.awk" <<\_ACAWK &&
-S["LTLIBOBJS"]=""
-S["LIBOBJS"]=""
-S["PYTHON_EGG_LDFLAGS"]=""
-S["PYTHON_EGG_CPPFLAGS"]=""
-S["PYTHON_EGG_CFLAGS"]=""
-S["PYTHONPATH"]=""
-S["LOCAL_PATH_IS_ALSO_GLOBAL"]="true"
-S["MPI_INC"]="-I/usr/include/mpich2/"
-S["CUDA_INC"]="-I/usr/local/cuda/include"
-S["CUDA_LIB"]="-L/usr/local/cuda/lib64/"
-S["FLAGS_NO_CHECK"]=""
-S["FLAGS_CHECK"]=""
-S["MPICC"]="mpicc"
-S["MPILIBS"]=""
-S["MPIFC"]="mpif90"
-S["SCOTCH_LIBDIR"]="scotch_5.1.11/lib"
-S["SCOTCH_INCLUDEDIR"]="scotch_5.1.11/include"
-S["SCOTCH_DIR"]="scotch_5.1.11"
-S["USE_BUNDLED_SCOTCH"]="1"
-S["PTHREAD_CFLAGS"]="-pthread"
-S["PTHREAD_LIBS"]=""
-S["PTHREAD_CC"]="gcc"
-S["acx_pthread_config"]=""
-S["host_os"]="linux-gnu"
-S["host_vendor"]="unknown"
-S["host_cpu"]="x86_64"
-S["host"]="x86_64-unknown-linux-gnu"
-S["build_os"]="linux-gnu"
-S["build_vendor"]="unknown"
-S["build_cpu"]="x86_64"
-S["build"]="x86_64-unknown-linux-gnu"
-S["YFLAGS"]=""
-S["YACC"]="bison -y"
-S["LEXLIB"]=""
-S["LEX_OUTPUT_ROOT"]="lex.yy"
-S["LEX"]="flex"
-S["EGREP"]="/bin/grep -E"
-S["GREP"]="/bin/grep"
-S["CPP"]="gcc -E"
-S["FCFLAGS_f90"]=""
-S["ac_ct_CC"]="gcc"
-S["CPPFLAGS"]=" -I/usr/include/scotch"
-S["CFLAGS"]="-g -O2"
-S["CC"]="gcc"
-S["FCLIBS"]=" -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib "\
-"-L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl -lnsl -lutil -lgfort"\
-"ranbegin -lgfortran -lm -lpthread"
-S["FCENV"]=""
-S["OBJEXT"]="o"
-S["EXEEXT"]=""
-S["ac_ct_FC"]=""
-S["LDFLAGS"]=""
-S["FCFLAGS"]="-g -O2"
-S["FC"]="mpif90"
-S["PYTHON_LA_LDFLAGS"]=""
-S["PYTHON_SYSLIBS"]=""
-S["PYTHON_MODLIBS"]=""
-S["PYTHON_LINKFORSHARED"]=""
-S["PYTHON_LIBS"]=""
-S["PYTHON_LIBPL"]=""
-S["PYTHON_LIBP"]=""
-S["PYTHON_LIBDIR"]=""
-S["PYTHON_LDLIBRARY"]=""
-S["PYTHON_LDLAST"]=""
-S["PYTHON_LDFLAGS"]=""
-S["PYTHON_BLDLIBRARY"]=""
-S["PYTHON_INCDIR"]=""
-S["pkgpyexecdir"]=""
-S["pyexecdir"]=""
-S["pkgpythondir"]=""
-S["pythondir"]=""
-S["PYTHON_PLATFORM"]=""
-S["PYTHON_EXEC_PREFIX"]=""
-S["PYTHON_PREFIX"]=""
-S["PYTHON_VERSION"]=""
-S["PYTHON"]=""
-S["COND_CUDA_FALSE"]="#"
-S["COND_CUDA_TRUE"]=""
-S["CUSTOM_MPI_TYPE"]="MPI_REAL"
-S["CUSTOM_REAL"]="SIZE_REAL"
-S["COND_MPI_FALSE"]="#"
-S["COND_MPI_TRUE"]=""
-S["COND_PYRE_FALSE"]=""
-S["COND_PYRE_TRUE"]="#"
-S["target_alias"]=""
-S["host_alias"]=""
-S["build_alias"]=""
-S["LIBS"]=""
-S["ECHO_T"]=""
-S["ECHO_N"]="-n"
-S["ECHO_C"]=""
-S["DEFS"]="-DHAVE_CONFIG_H"
-S["mandir"]="${datarootdir}/man"
-S["localedir"]="${datarootdir}/locale"
-S["libdir"]="${exec_prefix}/lib"
-S["psdir"]="${docdir}"
-S["pdfdir"]="${docdir}"
-S["dvidir"]="${docdir}"
-S["htmldir"]="${docdir}"
-S["infodir"]="${datarootdir}/info"
-S["docdir"]="${datarootdir}/doc/${PACKAGE_TARNAME}"
-S["oldincludedir"]="/usr/include"
-S["includedir"]="${prefix}/include"
-S["localstatedir"]="${prefix}/var"
-S["sharedstatedir"]="${prefix}/com"
-S["sysconfdir"]="${prefix}/etc"
-S["datadir"]="${datarootdir}"
-S["datarootdir"]="${prefix}/share"
-S["libexecdir"]="${exec_prefix}/libexec"
-S["sbindir"]="${exec_prefix}/sbin"
-S["bindir"]="${exec_prefix}/bin"
-S["program_transform_name"]="s,x,x,"
-S["prefix"]="/usr/local"
-S["exec_prefix"]="${prefix}"
-S["PACKAGE_URL"]=""
-S["PACKAGE_BUGREPORT"]="jtromp AT princeton.edu"
-S["PACKAGE_STRING"]="Specfem 3D 2.0.1"
-S["PACKAGE_VERSION"]="2.0.1"
-S["PACKAGE_TARNAME"]="Specfem3D"
-S["PACKAGE_NAME"]="Specfem 3D"
-S["PATH_SEPARATOR"]=":"
-S["SHELL"]="/bin/bash"
-_ACAWK
-cat >>"$tmp/subs1.awk" <<_ACAWK &&
- for (key in S) S_is_set[key] = 1
- FS = ""
-
-}
-{
- line = $ 0
- nfields = split(line, field, "@")
- substed = 0
- len = length(field[1])
- for (i = 2; i < nfields; i++) {
- key = field[i]
- keylen = length(key)
- if (S_is_set[key]) {
- value = S[key]
- line = substr(line, 1, len) "" value "" substr(line, len + keylen + 3)
- len += length(value) + length(field[++i])
- substed = 1
- } else
- len += 1 + keylen
- }
-
- print line
-}
-
-_ACAWK
-if sed "s/$ac_cr//" < /dev/null > /dev/null 2>&1; then
- sed "s/$ac_cr\$//; s/$ac_cr/$ac_cs_awk_cr/g"
-else
- cat
-fi < "$tmp/subs1.awk" > "$tmp/subs.awk" \
- || as_fn_error "could not setup config files machinery" "$LINENO" 5
-fi # test -n "$CONFIG_FILES"
-
-# Set up the scripts for CONFIG_HEADERS section.
-# No need to generate them if there are no CONFIG_HEADERS.
-# This happens for instance with `./config.status Makefile'.
-if test -n "$CONFIG_HEADERS"; then
-cat >"$tmp/defines.awk" <<\_ACAWK ||
-BEGIN {
-D["PACKAGE_NAME"]=" \"Specfem 3D\""
-D["PACKAGE_TARNAME"]=" \"Specfem3D\""
-D["PACKAGE_VERSION"]=" \"2.0.1\""
-D["PACKAGE_STRING"]=" \"Specfem 3D 2.0.1\""
-D["PACKAGE_BUGREPORT"]=" \"jtromp AT princeton.edu\""
-D["PACKAGE_URL"]=" \"\""
-P["FC_FUNC"]="(name,NAME)"
-D["FC_FUNC"]=" name ## _"
-P["FC_FUNC_"]="(name,NAME)"
-D["FC_FUNC_"]=" name ## _"
-D["STDC_HEADERS"]=" 1"
-D["HAVE_SYS_TYPES_H"]=" 1"
-D["HAVE_SYS_STAT_H"]=" 1"
-D["HAVE_STDLIB_H"]=" 1"
-D["HAVE_STRING_H"]=" 1"
-D["HAVE_MEMORY_H"]=" 1"
-D["HAVE_STRINGS_H"]=" 1"
-D["HAVE_INTTYPES_H"]=" 1"
-D["HAVE_STDINT_H"]=" 1"
-D["HAVE_UNISTD_H"]=" 1"
-D["HAVE_EMMINTRIN"]=" 1"
-D["HAVE_XMMINTRIN"]=" 1"
-D["HAVE_SCOTCH"]=" 1"
- for (key in D) D_is_set[key] = 1
- FS = ""
-}
-/^[\t ]*#[\t ]*(define|undef)[\t ]+[_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ][_abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]*([\t (]|$)/ {
- line = $ 0
- split(line, arg, " ")
- if (arg[1] == "#") {
- defundef = arg[2]
- mac1 = arg[3]
- } else {
- defundef = substr(arg[1], 2)
- mac1 = arg[2]
- }
- split(mac1, mac2, "(") #)
- macro = mac2[1]
- prefix = substr(line, 1, index(line, defundef) - 1)
- if (D_is_set[macro]) {
- # Preserve the white space surrounding the "#".
- print prefix "define", macro P[macro] D[macro]
- next
- } else {
- # Replace #undef with comments. This is necessary, for example,
- # in the case of _POSIX_SOURCE, which is predefined and required
- # on some systems where configure will not decide to define it.
- if (defundef == "undef") {
- print "/*", prefix defundef, macro, "*/"
- next
- }
- }
-}
-{ print }
-_ACAWK
- as_fn_error "could not setup config headers machinery" "$LINENO" 5
-fi # test -n "$CONFIG_HEADERS"
-
-
-eval set X " :F $CONFIG_FILES :H $CONFIG_HEADERS "
-shift
-for ac_tag
-do
- case $ac_tag in
- :[FHLC]) ac_mode=$ac_tag; continue;;
- esac
- case $ac_mode$ac_tag in
- :[FHL]*:*);;
- :L* | :C*:*) as_fn_error "invalid tag \`$ac_tag'" "$LINENO" 5;;
- :[FH]-) ac_tag=-:-;;
- :[FH]*) ac_tag=$ac_tag:$ac_tag.in;;
- esac
- ac_save_IFS=$IFS
- IFS=:
- set x $ac_tag
- IFS=$ac_save_IFS
- shift
- ac_file=$1
- shift
-
- case $ac_mode in
- :L) ac_source=$1;;
- :[FH])
- ac_file_inputs=
- for ac_f
- do
- case $ac_f in
- -) ac_f="$tmp/stdin";;
- *) # Look for the file first in the build tree, then in the source tree
- # (if the path is not absolute). The absolute path cannot be DOS-style,
- # because $ac_f cannot contain `:'.
- test -f "$ac_f" ||
- case $ac_f in
- [\\/$]*) false;;
- *) test -f "$srcdir/$ac_f" && ac_f="$srcdir/$ac_f";;
- esac ||
- as_fn_error "cannot find input file: \`$ac_f'" "$LINENO" 5;;
- esac
- case $ac_f in *\'*) ac_f=`$as_echo "$ac_f" | sed "s/'/'\\\\\\\\''/g"`;; esac
- as_fn_append ac_file_inputs " '$ac_f'"
- done
-
- # Let's still pretend it is `configure' which instantiates (i.e., don't
- # use $as_me), people would be surprised to read:
- # /* config.h. Generated by config.status. */
- configure_input='Generated from '`
- $as_echo "$*" | sed 's|^[^:]*/||;s|:[^:]*/|, |g'
- `' by configure.'
- if test x"$ac_file" != x-; then
- configure_input="$ac_file. $configure_input"
- { $as_echo "$as_me:${as_lineno-$LINENO}: creating $ac_file" >&5
-$as_echo "$as_me: creating $ac_file" >&6;}
- fi
- # Neutralize special characters interpreted by sed in replacement strings.
- case $configure_input in #(
- *\&* | *\|* | *\\* )
- ac_sed_conf_input=`$as_echo "$configure_input" |
- sed 's/[\\\\&|]/\\\\&/g'`;; #(
- *) ac_sed_conf_input=$configure_input;;
- esac
-
- case $ac_tag in
- *:-:* | *:-) cat >"$tmp/stdin" \
- || as_fn_error "could not create $ac_file" "$LINENO" 5 ;;
- esac
- ;;
- esac
-
- ac_dir=`$as_dirname -- "$ac_file" ||
-$as_expr X"$ac_file" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \
- X"$ac_file" : 'X\(//\)[^/]' \| \
- X"$ac_file" : 'X\(//\)$' \| \
- X"$ac_file" : 'X\(/\)' \| . 2>/dev/null ||
-$as_echo X"$ac_file" |
- sed '/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{
- s//\1/
- q
- }
- /^X\(\/\/\)[^/].*/{
- s//\1/
- q
- }
- /^X\(\/\/\)$/{
- s//\1/
- q
- }
- /^X\(\/\).*/{
- s//\1/
- q
- }
- s/.*/./; q'`
- as_dir="$ac_dir"; as_fn_mkdir_p
- ac_builddir=.
-
-case "$ac_dir" in
-.) ac_dir_suffix= ac_top_builddir_sub=. ac_top_build_prefix= ;;
-*)
- ac_dir_suffix=/`$as_echo "$ac_dir" | sed 's|^\.[\\/]||'`
- # A ".." for each directory in $ac_dir_suffix.
- ac_top_builddir_sub=`$as_echo "$ac_dir_suffix" | sed 's|/[^\\/]*|/..|g;s|/||'`
- case $ac_top_builddir_sub in
- "") ac_top_builddir_sub=. ac_top_build_prefix= ;;
- *) ac_top_build_prefix=$ac_top_builddir_sub/ ;;
- esac ;;
-esac
-ac_abs_top_builddir=$ac_pwd
-ac_abs_builddir=$ac_pwd$ac_dir_suffix
-# for backward compatibility:
-ac_top_builddir=$ac_top_build_prefix
-
-case $srcdir in
- .) # We are building in place.
- ac_srcdir=.
- ac_top_srcdir=$ac_top_builddir_sub
- ac_abs_top_srcdir=$ac_pwd ;;
- [\\/]* | ?:[\\/]* ) # Absolute name.
- ac_srcdir=$srcdir$ac_dir_suffix;
- ac_top_srcdir=$srcdir
- ac_abs_top_srcdir=$srcdir ;;
- *) # Relative name.
- ac_srcdir=$ac_top_build_prefix$srcdir$ac_dir_suffix
- ac_top_srcdir=$ac_top_build_prefix$srcdir
- ac_abs_top_srcdir=$ac_pwd/$srcdir ;;
-esac
-ac_abs_srcdir=$ac_abs_top_srcdir$ac_dir_suffix
-
-
- case $ac_mode in
- :F)
- #
- # CONFIG_FILE
- #
-
-# If the template does not know about datarootdir, expand it.
-# FIXME: This hack should be removed a few years after 2.60.
-ac_datarootdir_hack=; ac_datarootdir_seen=
-ac_sed_dataroot='
-/datarootdir/ {
- p
- q
-}
-/@datadir@/p
-/@docdir@/p
-/@infodir@/p
-/@localedir@/p
-/@mandir@/p'
-case `eval "sed -n \"\$ac_sed_dataroot\" $ac_file_inputs"` in
-*datarootdir*) ac_datarootdir_seen=yes;;
-*@datadir@*|*@docdir@*|*@infodir@*|*@localedir@*|*@mandir@*)
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&5
-$as_echo "$as_me: WARNING: $ac_file_inputs seems to ignore the --datarootdir setting" >&2;}
- ac_datarootdir_hack='
- s&@datadir@&${datarootdir}&g
- s&@docdir@&${datarootdir}/doc/${PACKAGE_TARNAME}&g
- s&@infodir@&${datarootdir}/info&g
- s&@localedir@&${datarootdir}/locale&g
- s&@mandir@&${datarootdir}/man&g
- s&\${datarootdir}&${prefix}/share&g' ;;
-esac
-ac_sed_extra="/^[ ]*VPATH[ ]*=/{
-s/:*\$(srcdir):*/:/
-s/:*\${srcdir}:*/:/
-s/:*@srcdir@:*/:/
-s/^\([^=]*=[ ]*\):*/\1/
-s/:*$//
-s/^[^=]*=[ ]*$//
-}
-
-:t
-/@[a-zA-Z_][a-zA-Z_0-9]*@/!b
-s|@configure_input@|$ac_sed_conf_input|;t t
-s&@top_builddir@&$ac_top_builddir_sub&;t t
-s&@top_build_prefix@&$ac_top_build_prefix&;t t
-s&@srcdir@&$ac_srcdir&;t t
-s&@abs_srcdir@&$ac_abs_srcdir&;t t
-s&@top_srcdir@&$ac_top_srcdir&;t t
-s&@abs_top_srcdir@&$ac_abs_top_srcdir&;t t
-s&@builddir@&$ac_builddir&;t t
-s&@abs_builddir@&$ac_abs_builddir&;t t
-s&@abs_top_builddir@&$ac_abs_top_builddir&;t t
-$ac_datarootdir_hack
-"
-eval sed \"\$ac_sed_extra\" "$ac_file_inputs" | $AWK -f "$tmp/subs.awk" >$tmp/out \
- || as_fn_error "could not create $ac_file" "$LINENO" 5
-
-test -z "$ac_datarootdir_hack$ac_datarootdir_seen" &&
- { ac_out=`sed -n '/\${datarootdir}/p' "$tmp/out"`; test -n "$ac_out"; } &&
- { ac_out=`sed -n '/^[ ]*datarootdir[ ]*:*=/p' "$tmp/out"`; test -z "$ac_out"; } &&
- { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined. Please make sure it is defined." >&5
-$as_echo "$as_me: WARNING: $ac_file contains a reference to the variable \`datarootdir'
-which seems to be undefined. Please make sure it is defined." >&2;}
-
- rm -f "$tmp/stdin"
- case $ac_file in
- -) cat "$tmp/out" && rm -f "$tmp/out";;
- *) rm -f "$ac_file" && mv "$tmp/out" "$ac_file";;
- esac \
- || as_fn_error "could not create $ac_file" "$LINENO" 5
- ;;
- :H)
- #
- # CONFIG_HEADER
- #
- if test x"$ac_file" != x-; then
- {
- $as_echo "/* $configure_input */" \
- && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs"
- } >"$tmp/config.h" \
- || as_fn_error "could not create $ac_file" "$LINENO" 5
- if diff "$ac_file" "$tmp/config.h" >/dev/null 2>&1; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: $ac_file is unchanged" >&5
-$as_echo "$as_me: $ac_file is unchanged" >&6;}
- else
- rm -f "$ac_file"
- mv "$tmp/config.h" "$ac_file" \
- || as_fn_error "could not create $ac_file" "$LINENO" 5
- fi
- else
- $as_echo "/* $configure_input */" \
- && eval '$AWK -f "$tmp/defines.awk"' "$ac_file_inputs" \
- || as_fn_error "could not create -" "$LINENO" 5
- fi
- ;;
-
-
- esac
-
-done # for ac_tag
-
-
-as_fn_exit 0
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/CMTSOLUTION
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/CMTSOLUTION 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/CMTSOLUTION 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,13 +0,0 @@
-PDE 1999 01 01 00 00 00.00 67000 67000 -25000 4.2 4.2 hom_explosion
-event name: hom_explosion
-time shift: 0.0000
-half duration: 5.0
-latitude: 67000.0
-longitude: 67000.0
-depth: 25.0
-Mrr: 1.000000e+23
-Mtt: 1.000000e+23
-Mpp: 1.000000e+23
-Mrt: 0.000000
-Mrp: 0.000000
-Mtp: 0.000000
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/Par_file
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/Par_file 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/Par_file 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,55 +0,0 @@
-
-# forward or adjoint simulation
-SIMULATION_TYPE = 1 # 1 = forward, 2 = adjoint, 3 = both simultaneously
-NOISE_TOMOGRAPHY = 0 # 0 = earthquake simulation, 1/2/3 = three steps in noise simulation
-SAVE_FORWARD = .false.
-
-# UTM projection parameters
-UTM_PROJECTION_ZONE = 11
-SUPPRESS_UTM_PROJECTION = .true.
-
-# number of MPI processors
-NPROC = 4
-
-# time step parameters
-NSTEP = 1000
-DT = 0.05d0
-
-# parameters describing the model
-OCEANS = .false.
-TOPOGRAPHY = .false.
-ATTENUATION = .false.
-USE_OLSEN_ATTENUATION = .false.
-ANISOTROPY = .false.
-
-# absorbing boundary conditions for a regional simulation
-ABSORBING_CONDITIONS = .false.
-
-# save AVS or OpenDX movies
-MOVIE_SURFACE = .false.
-MOVIE_VOLUME = .false.
-NTSTEP_BETWEEN_FRAMES = 200
-CREATE_SHAKEMAP = .false.
-SAVE_DISPLACEMENT = .false.
-USE_HIGHRES_FOR_MOVIES = .false.
-HDUR_MOVIE = 0.0
-
-# save AVS or OpenDX mesh files to check the mesh
-SAVE_MESH_FILES = .true.
-
-# path to store the local database file on each node
-LOCAL_PATH = ../in_out_files/DATABASES_MPI
-
-# interval at which we output time step info and max of norm of displacement
-NTSTEP_BETWEEN_OUTPUT_INFO = 500
-
-# interval in time steps for writing of seismograms
-NTSTEP_BETWEEN_OUTPUT_SEISMOS = 10000
-
-# interval in time steps for reading adjoint traces
-NTSTEP_BETWEEN_READ_ADJSRC = 0 # 0 = read the whole adjoint sources at the same time
-
-# print source time function
-PRINT_SOURCE_TIME_FUNCTION = .false.
-
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/STATIONS
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/STATIONS 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/in_data_files/STATIONS 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,57 +0,0 @@
-X1 DB 67000.00 0.000000 0.0 0.0
-X2 DB 67000.00 1196.429 0.0 0.0
-X3 DB 67000.00 2392.857 0.0 0.0
-X4 DB 67000.00 3589.286 0.0 0.0
-X5 DB 67000.00 4785.714 0.0 0.0
-X6 DB 67000.00 5982.143 0.0 0.0
-X7 DB 67000.00 7178.571 0.0 0.0
-X8 DB 67000.00 8375.000 0.0 0.0
-X9 DB 67000.00 9571.429 0.0 0.0
-X10 DB 67000.00 10767.86 0.0 0.0
-X11 DB 67000.00 11964.29 0.0 0.0
-X12 DB 67000.00 13160.71 0.0 0.0
-X13 DB 67000.00 14357.14 0.0 0.0
-X14 DB 67000.00 15553.57 0.0 0.0
-X15 DB 67000.00 16750.00 0.0 0.0
-X16 DB 67000.00 17946.43 0.0 0.0
-X17 DB 67000.00 19142.86 0.0 0.0
-X18 DB 67000.00 20339.29 0.0 0.0
-X19 DB 67000.00 21535.71 0.0 0.0
-X20 DB 67000.00 22732.14 0.0 0.0
-X21 DB 67000.00 23928.57 0.0 0.0
-X22 DB 67000.00 25125.00 0.0 0.0
-X23 DB 67000.00 26321.43 0.0 0.0
-X24 DB 67000.00 27517.86 0.0 0.0
-X25 DB 67000.00 28714.29 0.0 0.0
-X26 DB 67000.00 29910.71 0.0 0.0
-X27 DB 67000.00 31107.14 0.0 0.0
-X28 DB 67000.00 32303.57 0.0 0.0
-X29 DB 67000.00 33500.00 0.0 0.0
-X30 DB 67000.00 34696.43 0.0 0.0
-X31 DB 67000.00 35892.86 0.0 0.0
-X32 DB 67000.00 37089.29 0.0 0.0
-X33 DB 67000.00 38285.71 0.0 0.0
-X34 DB 67000.00 39482.14 0.0 0.0
-X35 DB 67000.00 40678.57 0.0 0.0
-X36 DB 67000.00 41875.00 0.0 0.0
-X37 DB 67000.00 43071.43 0.0 0.0
-X38 DB 67000.00 44267.86 0.0 0.0
-X39 DB 67000.00 45464.29 0.0 0.0
-X40 DB 67000.00 46660.71 0.0 0.0
-X41 DB 67000.00 47857.14 0.0 0.0
-X42 DB 67000.00 49053.57 0.0 0.0
-X43 DB 67000.00 50250.00 0.0 0.0
-X44 DB 67000.00 51446.43 0.0 0.0
-X45 DB 67000.00 52642.86 0.0 0.0
-X46 DB 67000.00 53839.29 0.0 0.0
-X47 DB 67000.00 55035.71 0.0 0.0
-X48 DB 67000.00 56232.14 0.0 0.0
-X49 DB 67000.00 57428.57 0.0 0.0
-X50 DB 67000.00 58625.00 0.0 0.0
-X51 DB 67000.00 59821.43 0.0 0.0
-X52 DB 67000.00 61017.86 0.0 0.0
-X53 DB 67000.00 62214.29 0.0 0.0
-X54 DB 67000.00 63410.71 0.0 0.0
-X55 DB 67000.00 64607.14 0.0 0.0
-X56 DB 67000.00 65803.57 0.0 0.0
-X57 DB 67000.00 67000.00 0.0 0.0
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/output
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/output 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/output 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,368 +0,0 @@
-Makefile:88: warning: overriding commands for target `../../lib/libscotcherr.a'
-Makefile:75: warning: ignoring old commands for target `../../lib/libscotcherr.a'
-Makefile:90: warning: overriding commands for target `../../lib/libscotcherrexit.a'
-Makefile:77: warning: ignoring old commands for target `../../lib/libscotcherrexit.a'
-Makefile:92: warning: overriding commands for target `../../include/scotch.h'
-Makefile:79: warning: ignoring old commands for target `../../include/scotch.h'
-Makefile:94: warning: overriding commands for target `../../include/scotchf.h'
-Makefile:81: warning: ignoring old commands for target `../../include/scotchf.h'
-Makefile:101: warning: overriding commands for target `../../lib/libscotcherr.a'
-Makefile:88: warning: ignoring old commands for target `../../lib/libscotcherr.a'
-Makefile:103: warning: overriding commands for target `../../lib/libscotcherrexit.a'
-Makefile:90: warning: ignoring old commands for target `../../lib/libscotcherrexit.a'
-Makefile:105: warning: overriding commands for target `../../include/scotch.h'
-Makefile:92: warning: ignoring old commands for target `../../include/scotch.h'
-Makefile:107: warning: overriding commands for target `../../include/scotchf.h'
-Makefile:94: warning: ignoring old commands for target `../../include/scotchf.h'
-Makefile:88: warning: overriding commands for target `../../lib/libscotcherr.a'
-Makefile:75: warning: ignoring old commands for target `../../lib/libscotcherr.a'
-Makefile:90: warning: overriding commands for target `../../lib/libscotcherrexit.a'
-Makefile:77: warning: ignoring old commands for target `../../lib/libscotcherrexit.a'
-Makefile:92: warning: overriding commands for target `../../include/scotch.h'
-Makefile:79: warning: ignoring old commands for target `../../include/scotch.h'
-Makefile:94: warning: overriding commands for target `../../include/scotchf.h'
-Makefile:81: warning: ignoring old commands for target `../../include/scotchf.h'
-Makefile:101: warning: overriding commands for target `../../lib/libscotcherr.a'
-Makefile:88: warning: ignoring old commands for target `../../lib/libscotcherr.a'
-Makefile:103: warning: overriding commands for target `../../lib/libscotcherrexit.a'
-Makefile:90: warning: ignoring old commands for target `../../lib/libscotcherrexit.a'
-Makefile:105: warning: overriding commands for target `../../include/scotch.h'
-Makefile:92: warning: ignoring old commands for target `../../include/scotch.h'
-Makefile:107: warning: overriding commands for target `../../include/scotchf.h'
-Makefile:94: warning: ignoring old commands for target `../../include/scotchf.h'
-Makefile:88: warning: overriding commands for target `../../lib/libscotcherr.a'
-Makefile:75: warning: ignoring old commands for target `../../lib/libscotcherr.a'
-Makefile:90: warning: overriding commands for target `../../lib/libscotcherrexit.a'
-Makefile:77: warning: ignoring old commands for target `../../lib/libscotcherrexit.a'
-Makefile:92: warning: overriding commands for target `../../include/scotch.h'
-Makefile:79: warning: ignoring old commands for target `../../include/scotch.h'
-Makefile:94: warning: overriding commands for target `../../include/scotchf.h'
-Makefile:81: warning: ignoring old commands for target `../../include/scotchf.h'
-Makefile:101: warning: overriding commands for target `../../lib/libscotcherr.a'
-Makefile:88: warning: ignoring old commands for target `../../lib/libscotcherr.a'
-Makefile:103: warning: overriding commands for target `../../lib/libscotcherrexit.a'
-Makefile:90: warning: ignoring old commands for target `../../lib/libscotcherrexit.a'
-Makefile:105: warning: overriding commands for target `../../include/scotch.h'
-Makefile:92: warning: ignoring old commands for target `../../include/scotch.h'
-Makefile:107: warning: overriding commands for target `../../include/scotchf.h'
-Makefile:94: warning: ignoring old commands for target `../../include/scotchf.h'
-Makefile:175: warning: overriding commands for target `../../bin/amk_fft2'
-Makefile:104: warning: ignoring old commands for target `../../bin/amk_fft2'
-Makefile:177: warning: overriding commands for target `../../bin/amk_grf'
-Makefile:106: warning: ignoring old commands for target `../../bin/amk_grf'
-Makefile:179: warning: overriding commands for target `../../bin/amk_hy'
-Makefile:108: warning: ignoring old commands for target `../../bin/amk_hy'
-Makefile:181: warning: overriding commands for target `../../bin/amk_m2'
-Makefile:110: warning: ignoring old commands for target `../../bin/amk_m2'
-Makefile:183: warning: overriding commands for target `../../bin/amk_p2'
-Makefile:112: warning: ignoring old commands for target `../../bin/amk_p2'
-Makefile:185: warning: overriding commands for target `../../bin/atst'
-Makefile:114: warning: ignoring old commands for target `../../bin/atst'
-Makefile:187: warning: overriding commands for target `../../bin/gbase'
-Makefile:116: warning: ignoring old commands for target `../../bin/gbase'
-Makefile:189: warning: overriding commands for target `../../bin/gcv'
-Makefile:118: warning: ignoring old commands for target `../../bin/gcv'
-Makefile:191: warning: overriding commands for target `../../bin/gmap'
-Makefile:120: warning: ignoring old commands for target `../../bin/gmap'
-Makefile:193: warning: overriding commands for target `../../bin/gmk_hy'
-Makefile:122: warning: ignoring old commands for target `../../bin/gmk_hy'
-Makefile:195: warning: overriding commands for target `../../bin/gmk_m2'
-Makefile:124: warning: ignoring old commands for target `../../bin/gmk_m2'
-Makefile:197: warning: overriding commands for target `../../bin/gmk_m3'
-Makefile:126: warning: ignoring old commands for target `../../bin/gmk_m3'
-Makefile:199: warning: overriding commands for target `../../bin/gmk_msh'
-Makefile:128: warning: ignoring old commands for target `../../bin/gmk_msh'
-Makefile:201: warning: overriding commands for target `../../bin/gmk_ub2'
-Makefile:130: warning: ignoring old commands for target `../../bin/gmk_ub2'
-Makefile:203: warning: overriding commands for target `../../bin/gmtst'
-Makefile:132: warning: ignoring old commands for target `../../bin/gmtst'
-Makefile:205: warning: overriding commands for target `../../bin/gord'
-Makefile:134: warning: ignoring old commands for target `../../bin/gord'
-Makefile:207: warning: overriding commands for target `../../bin/gotst'
-Makefile:136: warning: ignoring old commands for target `../../bin/gotst'
-Makefile:209: warning: overriding commands for target `../../bin/gout'
-Makefile:138: warning: ignoring old commands for target `../../bin/gout'
-Makefile:211: warning: overriding commands for target `../../bin/gpart'
-Makefile:140: warning: ignoring old commands for target `../../bin/gpart'
-Makefile:214: warning: overriding commands for target `../../bin/gscat'
-Makefile:143: warning: ignoring old commands for target `../../bin/gscat'
-Makefile:216: warning: overriding commands for target `../../bin/gtst'
-Makefile:145: warning: ignoring old commands for target `../../bin/gtst'
-Makefile:218: warning: overriding commands for target `../../bin/mcv'
-Makefile:147: warning: ignoring old commands for target `../../bin/mcv'
-Makefile:220: warning: overriding commands for target `../../bin/mmk_m2'
-Makefile:149: warning: ignoring old commands for target `../../bin/mmk_m2'
-Makefile:222: warning: overriding commands for target `../../bin/mmk_m3'
-Makefile:151: warning: ignoring old commands for target `../../bin/mmk_m3'
-Makefile:224: warning: overriding commands for target `../../bin/mord'
-Makefile:153: warning: ignoring old commands for target `../../bin/mord'
-Makefile:226: warning: overriding commands for target `../../bin/mtst'
-Makefile:155: warning: ignoring old commands for target `../../bin/mtst'
-Makefile:244: warning: overriding commands for target `install'
-Makefile:173: warning: ignoring old commands for target `install'
-Makefile:246: warning: overriding commands for target `../../bin/amk_fft2'
-Makefile:175: warning: ignoring old commands for target `../../bin/amk_fft2'
-Makefile:248: warning: overriding commands for target `../../bin/amk_grf'
-Makefile:177: warning: ignoring old commands for target `../../bin/amk_grf'
-Makefile:250: warning: overriding commands for target `../../bin/amk_hy'
-Makefile:179: warning: ignoring old commands for target `../../bin/amk_hy'
-Makefile:252: warning: overriding commands for target `../../bin/amk_m2'
-Makefile:181: warning: ignoring old commands for target `../../bin/amk_m2'
-Makefile:254: warning: overriding commands for target `../../bin/amk_p2'
-Makefile:183: warning: ignoring old commands for target `../../bin/amk_p2'
-Makefile:256: warning: overriding commands for target `../../bin/atst'
-Makefile:185: warning: ignoring old commands for target `../../bin/atst'
-Makefile:258: warning: overriding commands for target `../../bin/gbase'
-Makefile:187: warning: ignoring old commands for target `../../bin/gbase'
-Makefile:260: warning: overriding commands for target `../../bin/gcv'
-Makefile:189: warning: ignoring old commands for target `../../bin/gcv'
-Makefile:262: warning: overriding commands for target `../../bin/gmap'
-Makefile:191: warning: ignoring old commands for target `../../bin/gmap'
-Makefile:264: warning: overriding commands for target `../../bin/gmk_hy'
-Makefile:193: warning: ignoring old commands for target `../../bin/gmk_hy'
-Makefile:266: warning: overriding commands for target `../../bin/gmk_m2'
-Makefile:195: warning: ignoring old commands for target `../../bin/gmk_m2'
-Makefile:268: warning: overriding commands for target `../../bin/gmk_m3'
-Makefile:197: warning: ignoring old commands for target `../../bin/gmk_m3'
-Makefile:270: warning: overriding commands for target `../../bin/gmk_msh'
-Makefile:199: warning: ignoring old commands for target `../../bin/gmk_msh'
-Makefile:272: warning: overriding commands for target `../../bin/gmk_ub2'
-Makefile:201: warning: ignoring old commands for target `../../bin/gmk_ub2'
-Makefile:274: warning: overriding commands for target `../../bin/gmtst'
-Makefile:203: warning: ignoring old commands for target `../../bin/gmtst'
-Makefile:276: warning: overriding commands for target `../../bin/gord'
-Makefile:205: warning: ignoring old commands for target `../../bin/gord'
-Makefile:278: warning: overriding commands for target `../../bin/gotst'
-Makefile:207: warning: ignoring old commands for target `../../bin/gotst'
-Makefile:280: warning: overriding commands for target `../../bin/gout'
-Makefile:209: warning: ignoring old commands for target `../../bin/gout'
-Makefile:282: warning: overriding commands for target `../../bin/gpart'
-Makefile:211: warning: ignoring old commands for target `../../bin/gpart'
-Makefile:285: warning: overriding commands for target `../../bin/gscat'
-Makefile:214: warning: ignoring old commands for target `../../bin/gscat'
-Makefile:287: warning: overriding commands for target `../../bin/gtst'
-Makefile:216: warning: ignoring old commands for target `../../bin/gtst'
-Makefile:289: warning: overriding commands for target `../../bin/mcv'
-Makefile:218: warning: ignoring old commands for target `../../bin/mcv'
-Makefile:291: warning: overriding commands for target `../../bin/mmk_m2'
-Makefile:220: warning: ignoring old commands for target `../../bin/mmk_m2'
-Makefile:293: warning: overriding commands for target `../../bin/mmk_m3'
-Makefile:222: warning: ignoring old commands for target `../../bin/mmk_m3'
-Makefile:295: warning: overriding commands for target `../../bin/mord'
-Makefile:224: warning: ignoring old commands for target `../../bin/mord'
-Makefile:297: warning: overriding commands for target `../../bin/mtst'
-Makefile:226: warning: ignoring old commands for target `../../bin/mtst'
-Makefile:175: warning: overriding commands for target `../../bin/amk_fft2'
-Makefile:104: warning: ignoring old commands for target `../../bin/amk_fft2'
-Makefile:177: warning: overriding commands for target `../../bin/amk_grf'
-Makefile:106: warning: ignoring old commands for target `../../bin/amk_grf'
-Makefile:179: warning: overriding commands for target `../../bin/amk_hy'
-Makefile:108: warning: ignoring old commands for target `../../bin/amk_hy'
-Makefile:181: warning: overriding commands for target `../../bin/amk_m2'
-Makefile:110: warning: ignoring old commands for target `../../bin/amk_m2'
-Makefile:183: warning: overriding commands for target `../../bin/amk_p2'
-Makefile:112: warning: ignoring old commands for target `../../bin/amk_p2'
-Makefile:185: warning: overriding commands for target `../../bin/atst'
-Makefile:114: warning: ignoring old commands for target `../../bin/atst'
-Makefile:187: warning: overriding commands for target `../../bin/gbase'
-Makefile:116: warning: ignoring old commands for target `../../bin/gbase'
-Makefile:189: warning: overriding commands for target `../../bin/gcv'
-Makefile:118: warning: ignoring old commands for target `../../bin/gcv'
-Makefile:191: warning: overriding commands for target `../../bin/gmap'
-Makefile:120: warning: ignoring old commands for target `../../bin/gmap'
-Makefile:193: warning: overriding commands for target `../../bin/gmk_hy'
-Makefile:122: warning: ignoring old commands for target `../../bin/gmk_hy'
-Makefile:195: warning: overriding commands for target `../../bin/gmk_m2'
-Makefile:124: warning: ignoring old commands for target `../../bin/gmk_m2'
-Makefile:197: warning: overriding commands for target `../../bin/gmk_m3'
-Makefile:126: warning: ignoring old commands for target `../../bin/gmk_m3'
-Makefile:199: warning: overriding commands for target `../../bin/gmk_msh'
-Makefile:128: warning: ignoring old commands for target `../../bin/gmk_msh'
-Makefile:201: warning: overriding commands for target `../../bin/gmk_ub2'
-Makefile:130: warning: ignoring old commands for target `../../bin/gmk_ub2'
-Makefile:203: warning: overriding commands for target `../../bin/gmtst'
-Makefile:132: warning: ignoring old commands for target `../../bin/gmtst'
-Makefile:205: warning: overriding commands for target `../../bin/gord'
-Makefile:134: warning: ignoring old commands for target `../../bin/gord'
-Makefile:207: warning: overriding commands for target `../../bin/gotst'
-Makefile:136: warning: ignoring old commands for target `../../bin/gotst'
-Makefile:209: warning: overriding commands for target `../../bin/gout'
-Makefile:138: warning: ignoring old commands for target `../../bin/gout'
-Makefile:211: warning: overriding commands for target `../../bin/gpart'
-Makefile:140: warning: ignoring old commands for target `../../bin/gpart'
-Makefile:214: warning: overriding commands for target `../../bin/gscat'
-Makefile:143: warning: ignoring old commands for target `../../bin/gscat'
-Makefile:216: warning: overriding commands for target `../../bin/gtst'
-Makefile:145: warning: ignoring old commands for target `../../bin/gtst'
-Makefile:218: warning: overriding commands for target `../../bin/mcv'
-Makefile:147: warning: ignoring old commands for target `../../bin/mcv'
-Makefile:220: warning: overriding commands for target `../../bin/mmk_m2'
-Makefile:149: warning: ignoring old commands for target `../../bin/mmk_m2'
-Makefile:222: warning: overriding commands for target `../../bin/mmk_m3'
-Makefile:151: warning: ignoring old commands for target `../../bin/mmk_m3'
-Makefile:224: warning: overriding commands for target `../../bin/mord'
-Makefile:153: warning: ignoring old commands for target `../../bin/mord'
-Makefile:226: warning: overriding commands for target `../../bin/mtst'
-Makefile:155: warning: ignoring old commands for target `../../bin/mtst'
-Makefile:244: warning: overriding commands for target `install'
-Makefile:173: warning: ignoring old commands for target `install'
-Makefile:246: warning: overriding commands for target `../../bin/amk_fft2'
-Makefile:175: warning: ignoring old commands for target `../../bin/amk_fft2'
-Makefile:248: warning: overriding commands for target `../../bin/amk_grf'
-Makefile:177: warning: ignoring old commands for target `../../bin/amk_grf'
-Makefile:250: warning: overriding commands for target `../../bin/amk_hy'
-Makefile:179: warning: ignoring old commands for target `../../bin/amk_hy'
-Makefile:252: warning: overriding commands for target `../../bin/amk_m2'
-Makefile:181: warning: ignoring old commands for target `../../bin/amk_m2'
-Makefile:254: warning: overriding commands for target `../../bin/amk_p2'
-Makefile:183: warning: ignoring old commands for target `../../bin/amk_p2'
-Makefile:256: warning: overriding commands for target `../../bin/atst'
-Makefile:185: warning: ignoring old commands for target `../../bin/atst'
-Makefile:258: warning: overriding commands for target `../../bin/gbase'
-Makefile:187: warning: ignoring old commands for target `../../bin/gbase'
-Makefile:260: warning: overriding commands for target `../../bin/gcv'
-Makefile:189: warning: ignoring old commands for target `../../bin/gcv'
-Makefile:262: warning: overriding commands for target `../../bin/gmap'
-Makefile:191: warning: ignoring old commands for target `../../bin/gmap'
-Makefile:264: warning: overriding commands for target `../../bin/gmk_hy'
-Makefile:193: warning: ignoring old commands for target `../../bin/gmk_hy'
-Makefile:266: warning: overriding commands for target `../../bin/gmk_m2'
-Makefile:195: warning: ignoring old commands for target `../../bin/gmk_m2'
-Makefile:268: warning: overriding commands for target `../../bin/gmk_m3'
-Makefile:197: warning: ignoring old commands for target `../../bin/gmk_m3'
-Makefile:270: warning: overriding commands for target `../../bin/gmk_msh'
-Makefile:199: warning: ignoring old commands for target `../../bin/gmk_msh'
-Makefile:272: warning: overriding commands for target `../../bin/gmk_ub2'
-Makefile:201: warning: ignoring old commands for target `../../bin/gmk_ub2'
-Makefile:274: warning: overriding commands for target `../../bin/gmtst'
-Makefile:203: warning: ignoring old commands for target `../../bin/gmtst'
-Makefile:276: warning: overriding commands for target `../../bin/gord'
-Makefile:205: warning: ignoring old commands for target `../../bin/gord'
-Makefile:278: warning: overriding commands for target `../../bin/gotst'
-Makefile:207: warning: ignoring old commands for target `../../bin/gotst'
-Makefile:280: warning: overriding commands for target `../../bin/gout'
-Makefile:209: warning: ignoring old commands for target `../../bin/gout'
-Makefile:282: warning: overriding commands for target `../../bin/gpart'
-Makefile:211: warning: ignoring old commands for target `../../bin/gpart'
-Makefile:285: warning: overriding commands for target `../../bin/gscat'
-Makefile:214: warning: ignoring old commands for target `../../bin/gscat'
-Makefile:287: warning: overriding commands for target `../../bin/gtst'
-Makefile:216: warning: ignoring old commands for target `../../bin/gtst'
-Makefile:289: warning: overriding commands for target `../../bin/mcv'
-Makefile:218: warning: ignoring old commands for target `../../bin/mcv'
-Makefile:291: warning: overriding commands for target `../../bin/mmk_m2'
-Makefile:220: warning: ignoring old commands for target `../../bin/mmk_m2'
-Makefile:293: warning: overriding commands for target `../../bin/mmk_m3'
-Makefile:222: warning: ignoring old commands for target `../../bin/mmk_m3'
-Makefile:295: warning: overriding commands for target `../../bin/mord'
-Makefile:224: warning: ignoring old commands for target `../../bin/mord'
-Makefile:297: warning: overriding commands for target `../../bin/mtst'
-Makefile:226: warning: ignoring old commands for target `../../bin/mtst'
-Makefile:175: warning: overriding commands for target `../../bin/amk_fft2'
-Makefile:104: warning: ignoring old commands for target `../../bin/amk_fft2'
-Makefile:177: warning: overriding commands for target `../../bin/amk_grf'
-Makefile:106: warning: ignoring old commands for target `../../bin/amk_grf'
-Makefile:179: warning: overriding commands for target `../../bin/amk_hy'
-Makefile:108: warning: ignoring old commands for target `../../bin/amk_hy'
-Makefile:181: warning: overriding commands for target `../../bin/amk_m2'
-Makefile:110: warning: ignoring old commands for target `../../bin/amk_m2'
-Makefile:183: warning: overriding commands for target `../../bin/amk_p2'
-Makefile:112: warning: ignoring old commands for target `../../bin/amk_p2'
-Makefile:185: warning: overriding commands for target `../../bin/atst'
-Makefile:114: warning: ignoring old commands for target `../../bin/atst'
-Makefile:187: warning: overriding commands for target `../../bin/gbase'
-Makefile:116: warning: ignoring old commands for target `../../bin/gbase'
-Makefile:189: warning: overriding commands for target `../../bin/gcv'
-Makefile:118: warning: ignoring old commands for target `../../bin/gcv'
-Makefile:191: warning: overriding commands for target `../../bin/gmap'
-Makefile:120: warning: ignoring old commands for target `../../bin/gmap'
-Makefile:193: warning: overriding commands for target `../../bin/gmk_hy'
-Makefile:122: warning: ignoring old commands for target `../../bin/gmk_hy'
-Makefile:195: warning: overriding commands for target `../../bin/gmk_m2'
-Makefile:124: warning: ignoring old commands for target `../../bin/gmk_m2'
-Makefile:197: warning: overriding commands for target `../../bin/gmk_m3'
-Makefile:126: warning: ignoring old commands for target `../../bin/gmk_m3'
-Makefile:199: warning: overriding commands for target `../../bin/gmk_msh'
-Makefile:128: warning: ignoring old commands for target `../../bin/gmk_msh'
-Makefile:201: warning: overriding commands for target `../../bin/gmk_ub2'
-Makefile:130: warning: ignoring old commands for target `../../bin/gmk_ub2'
-Makefile:203: warning: overriding commands for target `../../bin/gmtst'
-Makefile:132: warning: ignoring old commands for target `../../bin/gmtst'
-Makefile:205: warning: overriding commands for target `../../bin/gord'
-Makefile:134: warning: ignoring old commands for target `../../bin/gord'
-Makefile:207: warning: overriding commands for target `../../bin/gotst'
-Makefile:136: warning: ignoring old commands for target `../../bin/gotst'
-Makefile:209: warning: overriding commands for target `../../bin/gout'
-Makefile:138: warning: ignoring old commands for target `../../bin/gout'
-Makefile:211: warning: overriding commands for target `../../bin/gpart'
-Makefile:140: warning: ignoring old commands for target `../../bin/gpart'
-Makefile:214: warning: overriding commands for target `../../bin/gscat'
-Makefile:143: warning: ignoring old commands for target `../../bin/gscat'
-Makefile:216: warning: overriding commands for target `../../bin/gtst'
-Makefile:145: warning: ignoring old commands for target `../../bin/gtst'
-Makefile:218: warning: overriding commands for target `../../bin/mcv'
-Makefile:147: warning: ignoring old commands for target `../../bin/mcv'
-Makefile:220: warning: overriding commands for target `../../bin/mmk_m2'
-Makefile:149: warning: ignoring old commands for target `../../bin/mmk_m2'
-Makefile:222: warning: overriding commands for target `../../bin/mmk_m3'
-Makefile:151: warning: ignoring old commands for target `../../bin/mmk_m3'
-Makefile:224: warning: overriding commands for target `../../bin/mord'
-Makefile:153: warning: ignoring old commands for target `../../bin/mord'
-Makefile:226: warning: overriding commands for target `../../bin/mtst'
-Makefile:155: warning: ignoring old commands for target `../../bin/mtst'
-Makefile:244: warning: overriding commands for target `install'
-Makefile:173: warning: ignoring old commands for target `install'
-Makefile:246: warning: overriding commands for target `../../bin/amk_fft2'
-Makefile:175: warning: ignoring old commands for target `../../bin/amk_fft2'
-Makefile:248: warning: overriding commands for target `../../bin/amk_grf'
-Makefile:177: warning: ignoring old commands for target `../../bin/amk_grf'
-Makefile:250: warning: overriding commands for target `../../bin/amk_hy'
-Makefile:179: warning: ignoring old commands for target `../../bin/amk_hy'
-Makefile:252: warning: overriding commands for target `../../bin/amk_m2'
-Makefile:181: warning: ignoring old commands for target `../../bin/amk_m2'
-Makefile:254: warning: overriding commands for target `../../bin/amk_p2'
-Makefile:183: warning: ignoring old commands for target `../../bin/amk_p2'
-Makefile:256: warning: overriding commands for target `../../bin/atst'
-Makefile:185: warning: ignoring old commands for target `../../bin/atst'
-Makefile:258: warning: overriding commands for target `../../bin/gbase'
-Makefile:187: warning: ignoring old commands for target `../../bin/gbase'
-Makefile:260: warning: overriding commands for target `../../bin/gcv'
-Makefile:189: warning: ignoring old commands for target `../../bin/gcv'
-Makefile:262: warning: overriding commands for target `../../bin/gmap'
-Makefile:191: warning: ignoring old commands for target `../../bin/gmap'
-Makefile:264: warning: overriding commands for target `../../bin/gmk_hy'
-Makefile:193: warning: ignoring old commands for target `../../bin/gmk_hy'
-Makefile:266: warning: overriding commands for target `../../bin/gmk_m2'
-Makefile:195: warning: ignoring old commands for target `../../bin/gmk_m2'
-Makefile:268: warning: overriding commands for target `../../bin/gmk_m3'
-Makefile:197: warning: ignoring old commands for target `../../bin/gmk_m3'
-Makefile:270: warning: overriding commands for target `../../bin/gmk_msh'
-Makefile:199: warning: ignoring old commands for target `../../bin/gmk_msh'
-Makefile:272: warning: overriding commands for target `../../bin/gmk_ub2'
-Makefile:201: warning: ignoring old commands for target `../../bin/gmk_ub2'
-Makefile:274: warning: overriding commands for target `../../bin/gmtst'
-Makefile:203: warning: ignoring old commands for target `../../bin/gmtst'
-Makefile:276: warning: overriding commands for target `../../bin/gord'
-Makefile:205: warning: ignoring old commands for target `../../bin/gord'
-Makefile:278: warning: overriding commands for target `../../bin/gotst'
-Makefile:207: warning: ignoring old commands for target `../../bin/gotst'
-Makefile:280: warning: overriding commands for target `../../bin/gout'
-Makefile:209: warning: ignoring old commands for target `../../bin/gout'
-Makefile:282: warning: overriding commands for target `../../bin/gpart'
-Makefile:211: warning: ignoring old commands for target `../../bin/gpart'
-Makefile:285: warning: overriding commands for target `../../bin/gscat'
-Makefile:214: warning: ignoring old commands for target `../../bin/gscat'
-Makefile:287: warning: overriding commands for target `../../bin/gtst'
-Makefile:216: warning: ignoring old commands for target `../../bin/gtst'
-Makefile:289: warning: overriding commands for target `../../bin/mcv'
-Makefile:218: warning: ignoring old commands for target `../../bin/mcv'
-Makefile:291: warning: overriding commands for target `../../bin/mmk_m2'
-Makefile:220: warning: ignoring old commands for target `../../bin/mmk_m2'
-Makefile:293: warning: overriding commands for target `../../bin/mmk_m3'
-Makefile:222: warning: ignoring old commands for target `../../bin/mmk_m3'
-Makefile:295: warning: overriding commands for target `../../bin/mord'
-Makefile:224: warning: ignoring old commands for target `../../bin/mord'
-Makefile:297: warning: overriding commands for target `../../bin/mtst'
-Makefile:226: warning: ignoring old commands for target `../../bin/mtst'
-make[1]: *** No rule to make target `program_specfem3D.o', needed by `xspecfem3D'. Stop.
-make: *** [xspecfem3D] Error 2
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/check_mesh_quality_CUBIT_Abaqus/Makefile
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/check_mesh_quality_CUBIT_Abaqus/Makefile 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/check_mesh_quality_CUBIT_Abaqus/Makefile 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,96 +0,0 @@
-#=====================================================================
-#
-# S p e c f e m 3 D V e r s i o n 2 . 0
-# ---------------------------------------
-#
-# Main authors: Dimitri Komatitsch and Jeroen Tromp
-# Princeton University, USA and University of Pau / CNRS / INRIA
-# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-# April 2011
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-#
-#=====================================================================
-#
-# United States Government Sponsorship Acknowledged.
-#
-
-# src/check_mesh_quality_CUBIT_Abaqus/Makefile. Generated from Makefile.in by configure.
-
-FC = mpif90
-FCFLAGS = #-g -O2
-FLAGS_CHECK =
-FLAGS_NO_CHECK =
-FCFLAGS_f90 =
-
-FCCOMPILE_CHECK = ${FC} ${FCFLAGS} $(FLAGS_CHECK)
-FCCOMPILE_NO_CHECK = ${FC} ${FCFLAGS} $(FLAGS_NO_CHECK)
-
-FCLINK = $(FCCOMPILE_NO_CHECK)
-
-# E : executables directory
-E = ../../bin
-# O : objects directory
-O = ../../obj/che
-
-####
-#### targets
-####
-
-# default targets for the Pyrized version
-DEFAULT = xcheck_mesh_quality_CUBIT_Abaqus xconvert_skewness_to_angle xmultiply_CUBIT_Abaqus_mesh_by_1000
-
-
-default: $(DEFAULT)
-
-all: clean default
-
-check_mesh_quality_CUBIT_Abaqus: xcheck_mesh_quality_CUBIT_Abaqus
-convert_skewness_to_angle: xconvert_skewness_to_angle
-multiply_CUBIT_Abaqus_mesh_by_1000: xmultiply_CUBIT_Abaqus_mesh_by_1000
-
-
-####
-#### rules for executables
-####
-# rules for the pure Fortran version
-xcheck_mesh_quality_CUBIT_Abaqus: $O/check_mesh_quality_CUBIT_Abaqus.o
- ${FCLINK} -o $E/xcheck_mesh_quality_CUBIT_Abaqus $O/check_mesh_quality_CUBIT_Abaqus.o
-
-xconvert_skewness_to_angle: $O/convert_skewness_to_angle.o
- ${FCLINK} -o $E/xconvert_skewness_to_angle $O/convert_skewness_to_angle.o
-
-xmultiply_CUBIT_Abaqus_mesh_by_1000: $O/multiply_CUBIT_Abaqus_mesh_by_1000.o
- ${FCLINK} -o $E/xmultiply_CUBIT_Abaqus_mesh_by_1000 $O/multiply_CUBIT_Abaqus_mesh_by_1000.o
-
-
-
-clean:
- rm -f $O/*.o *.mod $E/xcheck_mesh_quality_CUBIT_Abaqus $E/xconvert_skewness_to_angle $E/xmultiply_CUBIT_Abaqus_mesh_by_1000
-
-####
-#### rule to build each .o file below
-####
-
-$O/check_mesh_quality_CUBIT_Abaqus.o: check_mesh_quality_CUBIT_Abaqus.f90
- ${FCCOMPILE_CHECK} -c -o $O/check_mesh_quality_CUBIT_Abaqus.o check_mesh_quality_CUBIT_Abaqus.f90
-
-$O/convert_skewness_to_angle.o: convert_skewness_to_angle.f90
- ${FCCOMPILE_CHECK} -c -o $O/convert_skewness_to_angle.o convert_skewness_to_angle.f90
-
-$O/multiply_CUBIT_Abaqus_mesh_by_1000.o: multiply_CUBIT_Abaqus_mesh_by_1000.f90
- ${FCCOMPILE_CHECK} -c -o $O/multiply_CUBIT_Abaqus_mesh_by_1000.o multiply_CUBIT_Abaqus_mesh_by_1000.f90
-
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/check_mesh_quality_CUBIT_Abaqus/constants.h
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/check_mesh_quality_CUBIT_Abaqus/constants.h 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/check_mesh_quality_CUBIT_Abaqus/constants.h 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,37 +0,0 @@
-!=====================================================================
-!
-! S p e c f e m 3 D V e r s i o n 2 . 0
-! ---------------------------------------
-!
-! Main authors: Dimitri Komatitsch and Jeroen Tromp
-! Princeton University, USA and University of Pau / CNRS / INRIA
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! April 2011
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-! number of GLL points in each direction of an element (degree plus one)
- integer, parameter :: NGLLX = 5
- integer, parameter :: NGLLY = NGLLX
- integer, parameter :: NGLLZ = NGLLX
-
-! very large and very small values
- double precision, parameter :: HUGEVAL = 1.d+30,TINYVAL = 1.d-9
-
-! some useful constants
- double precision, parameter :: PI = 3.141592653589793d0
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/Makefile
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/Makefile 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/Makefile 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,124 +0,0 @@
-#=====================================================================
-#
-# S p e c f e m 3 D V e r s i o n 2 . 0
-# ---------------------------------------
-#
-# Main authors: Dimitri Komatitsch and Jeroen Tromp
-# Princeton University, USA and University of Pau / CNRS / INRIA
-# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-# April 2011
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-#
-#=====================================================================
-#
-# United States Government Sponsorship Acknowledged.
-#
-
-# src/decompose_mesh_SCOTCH/Makefile. Generated from Makefile.in by configure.
-
-FC = mpif90
-FCFLAGS = #-g -O2
-MPIFC = mpif90
-MPILIBS =
-FLAGS_CHECK =
-FLAGS_NO_CHECK =
-FCFLAGS_f90 =
-
-FCCOMPILE_CHECK = ${FC} ${FCFLAGS} $(FLAGS_CHECK)
-FCCOMPILE_NO_CHECK = ${FC} ${FCFLAGS} $(FLAGS_NO_CHECK)
-MPIFCCOMPILE_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_CHECK)
-MPIFCCOMPILE_NO_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_NO_CHECK)
-#FCLINK = $(MPIFCCOMPILE_NO_CHECK)
-##FCLINK = $(FCCOMPILE_NO_CHECK)
-FCLINK = $(FCCOMPILE_NO_CHECK)
-
-CC = gcc
-CFLAGS = -g -O2 $(CPPFLAGS)
-CPPFLAGS = -I/usr/include/scotch $(COND_MPI_CPPFLAGS)
-COND_MPI_CPPFLAGS = -DWITH_MPI
-#COND_MPI_CPPFLAGS =
-
-SCOTCH_LIBS = -L"scotch_5.1.11/lib" -lscotch -lscotcherr
-SCOTCH_INC = -I"scotch_5.1.11/include"
-
-AR = ar
-ARFLAGS = cru
-RANLIB = ranlib
-
-
-# E : executables directory
-E = ../../bin
-# O : objects directory
-O = ../../obj/dec
-
-# objects toggled between the parallel and serial version
-#COND_MPI_OBJECTS = $O/parallel.o
-#COND_MPI_OBJECTS = $O/serial.o
-
-####
-#### targets
-####
-
-# default targets for the Pyrized version
-DEFAULT = scotch xdecompose_mesh_SCOTCH
-
-
-default: $(DEFAULT)
-
-all: clean default
-
-decompose_mesh_SCOTCH: xdecompose_mesh_SCOTCH
-
-
-####
-#### rules for executables
-####
-
-DEC_OBJECTS = $O/part_decompose_mesh_SCOTCH.o \
- $O/decompose_mesh_SCOTCH.o \
- $O/program_decompose_mesh_SCOTCH.o
-
-# rules for the pure Fortran version
-xdecompose_mesh_SCOTCH:: $(DEC_OBJECTS)
- ${FCLINK} -o $E/xdecompose_mesh_SCOTCH $(DEC_OBJECTS) $(SCOTCH_INC) $(SCOTCH_LIBS)
-
-
-
-scotch:
-ifeq (1,1)
- (echo "Using bundled Scotch")
- (cd scotch_5.1.11/src; make)
-else
- (echo "Not using bundled Scotch")
-endif
-
-
-clean:
- rm -f $O/*.o *.mod $E/xdecompose_mesh_SCOTCH
-####
-#### rule to build each .o file below
-####
-
-$O/part_decompose_mesh_SCOTCH.o: part_decompose_mesh_SCOTCH.f90
- ${FCCOMPILE_CHECK} -c -o $O/part_decompose_mesh_SCOTCH.o part_decompose_mesh_SCOTCH.f90 $(SCOTCH_INC)
-
-$O/decompose_mesh_SCOTCH.o: decompose_mesh_SCOTCH.f90 part_decompose_mesh_SCOTCH.f90 $O/part_decompose_mesh_SCOTCH.o
- ${FCCOMPILE_CHECK} -c -o $O/decompose_mesh_SCOTCH.o decompose_mesh_SCOTCH.f90 $(SCOTCH_INC)
-
-$O/program_decompose_mesh_SCOTCH.o: program_decompose_mesh_SCOTCH.f90 $O/part_decompose_mesh_SCOTCH.o $O/decompose_mesh_SCOTCH.o
- ${FCCOMPILE_CHECK} -c -o $O/program_decompose_mesh_SCOTCH.o program_decompose_mesh_SCOTCH.f90 $(SCOTCH_INC)
-
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/decompose_mesh_scotch.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/decompose_mesh_scotch.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/decompose_mesh_scotch.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,1037 +0,0 @@
-GFORTRAN module version '0' created from decompose_mesh_SCOTCH.f90 on Wed Sep 21 14:24:35 2011
-MD5:c0c8c420bb9ffd9bfd3e84aa4b32df9f -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () () () ()
-() () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'acoustic_elastic_load' 'part_decompose_mesh_scotch'
-'acoustic_elastic_load' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9 10) () 0
-() () () 0 0)
-11 'acoustic_elastic_repartitioning' 'part_decompose_mesh_scotch'
-'acoustic_elastic_repartitioning' 1 ((PROCEDURE UNKNOWN-INTENT
-MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0
-UNKNOWN ()) 12 0 (13 14 15 16 17 18 19 20 21 22 23 24) () 0 () () () 0 0)
-25 'acoustic_load' 'part_decompose_mesh_scotch' 'acoustic_load' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0
-() () () 0 0)
-26 'adjncy' 'decompose_mesh_scotch' 'adjncy' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-27 'aniso_flag' 'decompose_mesh_scotch' 'aniso_flag' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-28 'build_glob2loc_elmnts' 'part_decompose_mesh_scotch'
-'build_glob2loc_elmnts' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 29 0 (30
-31 32 33) () 0 () () () 0 0)
-34 'build_glob2loc_nodes' 'part_decompose_mesh_scotch'
-'build_glob2loc_nodes' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 35 0 (36
-37 38 39 40 41 42 43 44 45) () 0 () () () 0 0)
-46 'build_interfaces' 'part_decompose_mesh_scotch' 'build_interfaces' 1
-((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE
-ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 47 0 (48 49 50 51 52 53 54
-55 56 57) () 0 () () () 0 0)
-58 'build_interfaces_no_ac_el_sep' 'part_decompose_mesh_scotch'
-'build_interfaces_no_ac_el_sep' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 59 0
-(60 61 62 63 64 65 66 67 68 69 70 71 72) () 0 () () () 0 0)
-73 'check_valence' 'decompose_mesh_scotch' 'check_valence' 1 ((
-PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0
-0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-74 'count_def_mat' 'decompose_mesh_scotch' 'count_def_mat' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-75 'count_undef_mat' 'decompose_mesh_scotch' 'count_undef_mat' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-76 'decompose_mesh_scotch' 'decompose_mesh_scotch' 'decompose_mesh_scotch'
-1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0
-UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-77 'elastic_load' 'part_decompose_mesh_scotch' 'elastic_load' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0
-() () () 0 0)
-78 'elmnts' 'decompose_mesh_scotch' 'elmnts' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-79 'elmnts_load' 'decompose_mesh_scotch' 'elmnts_load' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-80 'esize' 'part_decompose_mesh_scotch' 'esize' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () ()
-() 0 0)
-81 'glob2loc_elmnts' 'decompose_mesh_scotch' 'glob2loc_elmnts' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER)
-(INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-82 'glob2loc_nodes' 'decompose_mesh_scotch' 'glob2loc_nodes' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER)
-(INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-83 'glob2loc_nodes_nparts' 'decompose_mesh_scotch' 'glob2loc_nodes_nparts'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION
-POINTER) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () ()
-0 0)
-84 'glob2loc_nodes_parts' 'decompose_mesh_scotch' 'glob2loc_nodes_parts'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION
-POINTER) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () ()
-0 0)
-85 'hugeval' 'part_decompose_mesh_scotch' 'hugeval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.c9f2c9cd046750 at 25') () 0 () ()
-() 0 0)
-86 'ibelm_bottom' 'decompose_mesh_scotch' 'ibelm_bottom' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-87 'ibelm_moho' 'decompose_mesh_scotch' 'ibelm_moho' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-88 'ibelm_top' 'decompose_mesh_scotch' 'ibelm_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-89 'ibelm_xmax' 'decompose_mesh_scotch' 'ibelm_xmax' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-90 'ibelm_xmin' 'decompose_mesh_scotch' 'ibelm_xmin' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-91 'ibelm_ymax' 'decompose_mesh_scotch' 'ibelm_ymax' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-92 'ibelm_ymin' 'decompose_mesh_scotch' 'ibelm_ymin' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-93 'idomain_id' 'decompose_mesh_scotch' 'idomain_id' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-94 'idummy' 'decompose_mesh_scotch' 'idummy' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-95 'ier' 'decompose_mesh_scotch' 'ier' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-96 'imat' 'decompose_mesh_scotch' 'imat' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-97 'inode' 'decompose_mesh_scotch' 'inode' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-98 'ipart' 'decompose_mesh_scotch' 'ipart' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-99 'ispec' 'decompose_mesh_scotch' 'ispec' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-100 'ispec2d' 'decompose_mesh_scotch' 'ispec2d' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-101 'localpath_name' 'decompose_mesh_scotch' 'localpath_name' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 ()
-() () 0 0)
-102 'long' 'part_decompose_mesh_scotch' 'long' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () ()
-() 0 0)
-103 'mask_nodes_elmnts' 'decompose_mesh_scotch' 'mask_nodes_elmnts' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-104 'mat' 'decompose_mesh_scotch' 'mat' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-105 'mat_prop' 'decompose_mesh_scotch' 'mat_prop' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-106 'max_neighbour' 'decompose_mesh_scotch' 'max_neighbour' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-107 'mesh2dual_ncommonnodes' 'part_decompose_mesh_scotch'
-'mesh2dual_ncommonnodes' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 108 0 (109 110 111 112
-113 114 115 116 117 118 119) () 0 () () () 0 0)
-120 'moho_surface_repartitioning' 'part_decompose_mesh_scotch'
-'moho_surface_repartitioning' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 121 0 (122 123 124
-125 126 127 128 129 130 131) () 0 () () () 0 0)
-132 'my_interfaces' 'decompose_mesh_scotch' 'my_interfaces' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-133 'my_nb_interfaces' 'decompose_mesh_scotch' 'my_nb_interfaces' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-134 'my_ninterface' 'decompose_mesh_scotch' 'my_ninterface' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-135 'nb_edges' 'decompose_mesh_scotch' 'nb_edges' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-136 'nfaces' 'part_decompose_mesh_scotch' 'nfaces' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () ()
-() 0 0)
-137 'ngnod' 'decompose_mesh_scotch' 'ngnod' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-138 'ninterfaces' 'decompose_mesh_scotch' 'ninterfaces' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-139 'nnodes' 'decompose_mesh_scotch' 'nnodes' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-140 'nnodes_elmnts' 'decompose_mesh_scotch' 'nnodes_elmnts' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-141 'nnodes_loc' 'decompose_mesh_scotch' 'nnodes_loc' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-142 'nodes_coords' 'decompose_mesh_scotch' 'nodes_coords' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-143 'nodes_elmnts' 'decompose_mesh_scotch' 'nodes_elmnts' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-144 'nodes_ibelm_bottom' 'decompose_mesh_scotch' 'nodes_ibelm_bottom' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-145 'nodes_ibelm_moho' 'decompose_mesh_scotch' 'nodes_ibelm_moho' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-146 'nodes_ibelm_top' 'decompose_mesh_scotch' 'nodes_ibelm_top' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-147 'nodes_ibelm_xmax' 'decompose_mesh_scotch' 'nodes_ibelm_xmax' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-148 'nodes_ibelm_xmin' 'decompose_mesh_scotch' 'nodes_ibelm_xmin' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-149 'nodes_ibelm_ymax' 'decompose_mesh_scotch' 'nodes_ibelm_ymax' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-150 'nodes_ibelm_ymin' 'decompose_mesh_scotch' 'nodes_ibelm_ymin' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-151 'nparts' 'decompose_mesh_scotch' 'nparts' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-152 'nsize' 'decompose_mesh_scotch' 'nsize' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-153 'nspec' 'decompose_mesh_scotch' 'nspec' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-154 'nspec2d_bottom' 'decompose_mesh_scotch' 'nspec2d_bottom' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-155 'nspec2d_moho' 'decompose_mesh_scotch' 'nspec2d_moho' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-156 'nspec2d_top' 'decompose_mesh_scotch' 'nspec2d_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-157 'nspec2d_xmax' 'decompose_mesh_scotch' 'nspec2d_xmax' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-158 'nspec2d_xmin' 'decompose_mesh_scotch' 'nspec2d_xmin' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-159 'nspec2d_ymax' 'decompose_mesh_scotch' 'nspec2d_ymax' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-160 'nspec2d_ymin' 'decompose_mesh_scotch' 'nspec2d_ymin' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-161 'nspec_loc' 'decompose_mesh_scotch' 'nspec_loc' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-162 'num_elmnt' 'decompose_mesh_scotch' 'num_elmnt' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-163 'num_mat' 'decompose_mesh_scotch' 'num_mat' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-164 'num_node' 'decompose_mesh_scotch' 'num_node' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-165 'outputpath_name' 'decompose_mesh_scotch' 'outputpath_name' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 ()
-() () 0 0)
-166 'part' 'decompose_mesh_scotch' 'part' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-167 'part_decompose_mesh_scotch' 'part_decompose_mesh_scotch'
-'part_decompose_mesh_scotch' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-168 'prname' 'decompose_mesh_scotch' 'prname' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0
-0)
-169 'qmu' 'decompose_mesh_scotch' 'qmu' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-170 'read_mesh_files' 'decompose_mesh_scotch' 'read_mesh_files' 1 ((
-PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0
-0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-171 'rho' 'decompose_mesh_scotch' 'rho' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-172 'scotch_archdim' 'decompose_mesh_scotch' 'scotch_archdim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0
-() () () 0 0)
-173 'scotch_dgraphdim' 'decompose_mesh_scotch' 'scotch_dgraphdim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0
-() () () 0 0)
-174 'scotch_dgraphhaloreqdim' 'decompose_mesh_scotch'
-'scotch_dgraphhaloreqdim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
-175 'scotch_dorderdim' 'decompose_mesh_scotch' 'scotch_dorderdim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0
-() () () 0 0)
-176 'scotch_geomdim' 'decompose_mesh_scotch' 'scotch_geomdim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0
-() () () 0 0)
-177 'scotch_graphdim' 'decompose_mesh_scotch' 'scotch_graphdim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '12') () 0
-() () () 0 0)
-178 'scotch_mapdim' 'decompose_mesh_scotch' 'scotch_mapdim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13') () 0
-() () () 0 0)
-179 'scotch_meshdim' 'decompose_mesh_scotch' 'scotch_meshdim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '15') () 0
-() () () 0 0)
-180 'scotch_orderdim' 'decompose_mesh_scotch' 'scotch_orderdim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '12') () 0
-() () () 0 0)
-181 'scotch_partitioning' 'decompose_mesh_scotch' 'scotch_partitioning'
-1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (
-UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-182 'scotch_stratbalance' 'decompose_mesh_scotch' 'scotch_stratbalance'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'4') () 0 () () () 0 0)
-183 'scotch_stratdim' 'decompose_mesh_scotch' 'scotch_stratdim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0
-() () () 0 0)
-184 'scotch_strategy' 'decompose_mesh_scotch' 'scotch_strategy' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER
-1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 ()
-(CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'b{job=t,map=t,poli=S,sep=h{pass=30}} ')
-() 0 () () () 0 0)
-185 'scotch_stratquality' 'decompose_mesh_scotch' 'scotch_stratquality'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'1') () 0 () () () 0 0)
-186 'scotch_stratsafety' 'decompose_mesh_scotch' 'scotch_stratsafety' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER
-4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') ()
-0 () () () 0 0)
-187 'scotch_stratscalability' 'decompose_mesh_scotch'
-'scotch_stratscalability' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0)
-188 'scotch_stratspeed' 'decompose_mesh_scotch' 'scotch_stratspeed' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0
-() () () 0 0)
-189 'scotchgraph' 'decompose_mesh_scotch' 'scotchgraph' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 8 0 0 REAL
-()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '12')) 0 () () () 0 0)
-190 'scotchstrat' 'decompose_mesh_scotch' 'scotchstrat' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 8 0 0 REAL
-()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1')) 0 () () () 0 0)
-191 'selected_int_kind' '(intrinsic)' 'selected_int_kind' 1 ((PROCEDURE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION) (UNKNOWN 0 0 0
-UNKNOWN ()) 0 0 () () 191 () () () 0 0)
-192 'short' 'part_decompose_mesh_scotch' 'short' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-193 'sup_neighbour' 'decompose_mesh_scotch' 'sup_neighbour' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 8 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-194 'tab_interfaces' 'decompose_mesh_scotch' 'tab_interfaces' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER)
-(INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-195 'tab_size_interfaces' 'decompose_mesh_scotch' 'tab_size_interfaces'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION
-POINTER) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () ()
-0 0)
-196 'tinyval' 'part_decompose_mesh_scotch' 'tinyval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.44b82fa09b5a54 at -7') () 0 () ()
-() 0 0)
-197 'undef_mat_prop' 'decompose_mesh_scotch' 'undef_mat_prop' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER
-()) 0 '30'))) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-198 'used_nodes_elmnts' 'decompose_mesh_scotch' 'used_nodes_elmnts' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-199 'vp' 'decompose_mesh_scotch' 'vp' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-200 'vs' 'decompose_mesh_scotch' 'vs' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-201 'write_boundaries_database' 'part_decompose_mesh_scotch'
-'write_boundaries_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 202
-0 (203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219
-220 221 222 223 224 225 226 227 228) () 0 () () () 0 0)
-229 'write_glob2loc_nodes_database' 'part_decompose_mesh_scotch'
-'write_glob2loc_nodes_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 230
-0 (231 232 233 234 235 236 237 238 239) () 0 () () () 0 0)
-240 'write_interfaces_database' 'part_decompose_mesh_scotch'
-'write_interfaces_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 241
-0 (242 243 244 245 246 247 248 249 250 251 252 253 254 255) () 0 () () ()
-0 0)
-256 'write_material_props_database' 'part_decompose_mesh_scotch'
-'write_material_props_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 257 0 (258 259 260
-261 262) () 0 () () () 0 0)
-263 'write_mesh_databases' 'decompose_mesh_scotch' 'write_mesh_databases'
-1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (
-UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-264 'write_moho_surface_database' 'part_decompose_mesh_scotch'
-'write_moho_surface_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 265
-0 (266 267 268 269 270 271 272 273 274 275 276) () 0 () () () 0 0)
-277 'write_partition_database' 'part_decompose_mesh_scotch'
-'write_partition_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 278 0 (
-279 280 281 282 283 284 285 286 287 288 289 290 291) () 0 () () () 0 0)
-292 'xadj' 'decompose_mesh_scotch' 'xadj' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-4 'elmnts_load' '' 'elmnts_load' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 5 ())) 0 () () () 0 0)
-7 'count_undef_mat' '' 'count_undef_mat' 3 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-8 'num_material' '' 'num_material' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 5 ())) 0 () () () 0 0)
-6 'count_def_mat' '' 'count_def_mat' 3 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-5 'nelmnts' '' 'nelmnts' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-13 'nelmnts' '' 'nelmnts' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-14 'nnodes' '' 'nnodes' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-10 'undef_mat_prop' '' 'undef_mat_prop' 3 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '30'))) 0 0 () (2 EXPLICIT (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0
-0 INTEGER ()) 0 7 ())) 0 () () () 0 0)
-16 'nb_materials' '' 'nb_materials' 12 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-17 'num_material' '' 'num_material' 12 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER
-8 0 0 INTEGER ()) 0 13 ())) 0 () () () 0 0)
-15 'elmnts' '' 'elmnts' 12 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0
-13 ())) (CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-9 'mat_prop' '' 'mat_prop' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0
-0 INTEGER ()) 0 6 ())) 0 () () () 0 0)
-18 'mat_prop' '' 'mat_prop' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 16 ())) 0 () () () 0 0)
-20 'nsize' '' 'nsize' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-21 'nproc' '' 'nproc' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-23 'nfaces_coupled' '' 'nfaces_coupled' 12 ((VARIABLE OUT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-24 'faces_coupled' '' 'faces_coupled' 12 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-39 'nnodes_elmnts' '' 'nnodes_elmnts' 35 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0
-INTEGER ()) 0 MINUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 37 ()) (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-40 'nodes_elmnts' '' 'nodes_elmnts' 35 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (VARIABLE (
-INTEGER 8 0 0 INTEGER ()) 0 38 ()) (FUNCTION (INTEGER 8 0 0 INTEGER ())
-0 293 (('' (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 37 ())))
-'__convert_i4_i8' 0 '__convert_i4_i8')) (CONSTANT (INTEGER 8 0 0 INTEGER
-()) 0 '1'))) 0 () () () 0 0)
-38 'nsize' '' 'nsize' 35 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-37 'nnodes' '' 'nnodes' 35 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-42 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 35 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-45 'nparts' '' 'nparts' 35 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-44 'glob2loc_nodes' '' 'glob2loc_nodes' 35 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-43 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 35 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-41 'part' '' 'part' 35 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 36 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-51 'elmnts' '' 'elmnts' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (INTEGER 8 0 0
-INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 48 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-50 'part' '' 'part' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 48 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-53 'adjncy' '' 'adjncy' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 49 ()) (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 48 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-52 'xadj' '' 'xadj' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 48 ())) 0 () () () 0 0)
-55 'tab_size_interfaces' '' 'tab_size_interfaces' 47 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-57 'nparts' '' 'nparts' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-56 'ninterfaces' '' 'ninterfaces' 47 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-54 'tab_interfaces' '' 'tab_interfaces' 47 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-62 'part' '' 'part' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 60 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-63 'elmnts' '' 'elmnts' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (INTEGER 8 0 0
-INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 60 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-61 'sup_neighbour' '' 'sup_neighbour' 59 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-49 'sup_neighbour' '' 'sup_neighbour' 47 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-36 'nelmnts' '' 'nelmnts' 35 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-22 'part' '' 'part' 12 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 13 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-19 'sup_neighbour' '' 'sup_neighbour' 12 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-65 'adjncy' '' 'adjncy' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 61 ()) (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 60 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-64 'xadj' '' 'xadj' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 60 ())) 0 () () () 0 0)
-69 'nb_materials' '' 'nb_materials' 59 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-68 'ninterfaces' '' 'ninterfaces' 59 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-71 'num_material' '' 'num_material' 59 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER
-8 0 0 INTEGER ()) 0 60 ())) 0 () () () 0 0)
-70 'cs_material' '' 'cs_material' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 69 ())) 0 () () () 0 0)
-67 'tab_size_interfaces' '' 'tab_size_interfaces' 59 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-72 'nparts' '' 'nparts' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-113 'elmnts' '' 'elmnts' 108 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (INTEGER 8 0 0
-INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 109 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-112 'sup_neighbour' '' 'sup_neighbour' 108 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-115 'adjncy' '' 'adjncy' 108 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (VARIABLE (
-INTEGER 8 0 0 INTEGER ()) 0 112 ()) (VARIABLE (INTEGER 8 0 0 INTEGER ())
-0 109 ())) (CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-116 'nnodes_elmnts' '' 'nnodes_elmnts' 108 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (
-INTEGER 4 0 0 INTEGER ()) 0 MINUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
-110 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-117 'nodes_elmnts' '' 'nodes_elmnts' 108 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (
-INTEGER 8 0 0 INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES
-(VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 111 ()) (FUNCTION (INTEGER 8 0 0
-INTEGER ()) 0 294 (('' (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 110 ())))
-'__convert_i4_i8' 0 '__convert_i4_i8')) (CONSTANT (INTEGER 8 0 0 INTEGER
-()) 0 '1'))) 0 () () () 0 0)
-114 'xadj' '' 'xadj' 108 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 109 ())) 0 () () () 0 0)
-123 'nnodes' '' 'nnodes' 121 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-122 'nelmnts' '' 'nelmnts' 121 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-124 'elmnts' '' 'elmnts' 121 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0
-122 ())) (CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-119 'ncommonnodes' '' 'ncommonnodes' 108 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-125 'sup_neighbour' '' 'sup_neighbour' 121 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-126 'nsize' '' 'nsize' 121 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-129 'nspec2d_moho' '' 'nspec2d_moho' 121 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-130 'ibelm_moho' '' 'ibelm_moho' 121 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 129 ())) 0 () () () 0 0)
-128 'part' '' 'part' 121 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 122 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-131 'nodes_ibelm_moho' '' 'nodes_ibelm_moho' 121 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 129 ())) 0 ()
-() () 0 0)
-204 'iproc' '' 'iproc' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-205 'nelmnts' '' 'nelmnts' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-208 'nspec2d_ymin' '' 'nspec2d_ymin' 202 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-207 'nspec2d_xmax' '' 'nspec2d_xmax' 202 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-206 'nspec2d_xmin' '' 'nspec2d_xmin' 202 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-203 'iin_database' '' 'iin_database' 202 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-211 'nspec2d_top' '' 'nspec2d_top' 202 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-210 'nspec2d_bottom' '' 'nspec2d_bottom' 202 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-214 'ibelm_ymin' '' 'ibelm_ymin' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 208 ())) 0 () () () 0 0)
-213 'ibelm_xmax' '' 'ibelm_xmax' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 207 ())) 0 () () () 0 0)
-212 'ibelm_xmin' '' 'ibelm_xmin' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 206 ())) 0 () () () 0 0)
-216 'ibelm_bottom' '' 'ibelm_bottom' 202 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER
-4 0 0 INTEGER ()) 0 210 ())) 0 () () () 0 0)
-218 'nodes_ibelm_xmin' '' 'nodes_ibelm_xmin' 202 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 206 ())) 0 ()
-() () 0 0)
-217 'ibelm_top' '' 'ibelm_top' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 211 ())) 0 () () () 0 0)
-220 'nodes_ibelm_ymin' '' 'nodes_ibelm_ymin' 202 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 208 ())) 0 ()
-() () 0 0)
-221 'nodes_ibelm_ymax' '' 'nodes_ibelm_ymax' 202 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 209 ())) 0 ()
-() () 0 0)
-222 'nodes_ibelm_bottom' '' 'nodes_ibelm_bottom' 202 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 210 ())) 0 ()
-() () 0 0)
-219 'nodes_ibelm_xmax' '' 'nodes_ibelm_xmax' 202 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 207 ())) 0 ()
-() () 0 0)
-215 'ibelm_ymax' '' 'ibelm_ymax' 202 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 209 ())) 0 () () () 0 0)
-225 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 202 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-224 'glob2loc_elmnts' '' 'glob2loc_elmnts' 202 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-223 'nodes_ibelm_top' '' 'nodes_ibelm_top' 202 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 211 ())) 0 ()
-() () 0 0)
-209 'nspec2d_ymax' '' 'nspec2d_ymax' 202 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-127 'nproc' '' 'nproc' 121 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-118 'max_neighbour' '' 'max_neighbour' 108 ((VARIABLE OUT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-244 'tab_size_interfaces' '' 'tab_size_interfaces' 241 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-243 'tab_interfaces' '' 'tab_interfaces' 241 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-246 'ninterfaces' '' 'ninterfaces' 241 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-248 'my_interfaces' '' 'my_interfaces' 241 ((VARIABLE INOUT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0
-INTEGER ()) 0 MINUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 246 ()) (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-247 'my_ninterface' '' 'my_ninterface' 241 ((VARIABLE INOUT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-252 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 241 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-251 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 241 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-250 'glob2loc_elmnts' '' 'glob2loc_elmnts' 241 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-249 'my_nb_interfaces' '' 'my_nb_interfaces' 241 ((VARIABLE INOUT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (
-INTEGER 4 0 0 INTEGER ()) 0 MINUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
-246 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-245 'iproc' '' 'iproc' 241 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-253 'glob2loc_nodes' '' 'glob2loc_nodes' 241 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-242 'iin_database' '' 'iin_database' 241 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-255 'nparts' '' 'nparts' 241 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-259 'count_def_mat' '' 'count_def_mat' 257 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-261 'mat_prop' '' 'mat_prop' 257 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT
-(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 259 ())) 0 () () () 0 0)
-260 'count_undef_mat' '' 'count_undef_mat' 257 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-266 'iin_database' '' 'iin_database' 265 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-268 'nelmnts' '' 'nelmnts' 265 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-267 'iproc' '' 'iproc' 265 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-269 'glob2loc_elmnts' '' 'glob2loc_elmnts' 265 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-262 'undef_mat_prop' '' 'undef_mat_prop' 257 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '30'))) 0 0 () (2 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 260 ())) 0 () () () 0 0)
-254 'num_phase' '' 'num_phase' 241 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-228 'part' '' 'part' 202 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 205 ())) 0 () () () 0 0)
-227 'glob2loc_nodes' '' 'glob2loc_nodes' 202 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-271 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 265 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-275 'ibelm_moho' '' 'ibelm_moho' 265 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 274 ())) 0 () () () 0 0)
-274 'nspec2d_moho' '' 'nspec2d_moho' 265 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-273 'part' '' 'part' 265 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 268 ())) 0 () () () 0 0)
-279 'iin_database' '' 'iin_database' 278 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-276 'nodes_ibelm_moho' '' 'nodes_ibelm_moho' 265 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 274 ())) 0 ()
-() () 0 0)
-281 'nspec' '' 'nspec' 278 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-282 'nelmnts' '' 'nelmnts' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-280 'iproc' '' 'iproc' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-283 'elmnts' '' 'elmnts' 278 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0
-282 ())) (CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-272 'glob2loc_nodes' '' 'glob2loc_nodes' 265 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-286 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 278 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-285 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 278 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-288 'part' '' 'part' 278 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 282 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-287 'glob2loc_nodes' '' 'glob2loc_nodes' 278 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-290 'ngnod' '' 'ngnod' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-291 'num_phase' '' 'num_phase' 278 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-293 '__convert_i4_i8' '(intrinsic)' '__convert_i4_i8' 35 ((PROCEDURE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION ELEMENTAL PURE) (
-INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-294 '__convert_i4_i8' '(intrinsic)' '__convert_i4_i8' 108 ((PROCEDURE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION ELEMENTAL PURE) (
-INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-289 'num_modele' '' 'num_modele' 278 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 282 ())) 0 ()
-() () 0 0)
-284 'glob2loc_elmnts' '' 'glob2loc_elmnts' 278 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-270 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 265 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-226 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 202 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-66 'tab_interfaces' '' 'tab_interfaces' 59 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-31 'part' '' 'part' 29 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 30 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-30 'nelmnts' '' 'nelmnts' 29 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-32 'glob2loc_elmnts' '' 'glob2loc_elmnts' 29 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-33 'nparts' '' 'nparts' 29 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-48 'nelmnts' '' 'nelmnts' 47 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-60 'nelmnts' '' 'nelmnts' 59 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-110 'nnodes' '' 'nnodes' 108 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-111 'nsize' '' 'nsize' 108 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-109 'nelmnts' '' 'nelmnts' 108 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-232 'iproc' '' 'iproc' 230 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-231 'iin_database' '' 'iin_database' 230 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-237 'glob2loc_nodes' '' 'glob2loc_nodes' 230 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-236 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 230 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-235 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 230 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-239 'num_phase' '' 'num_phase' 230 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-238 'nnodes' '' 'nnodes' 230 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-234 'nodes_coords' '' 'nodes_coords' 230 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 ()
-(2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '3') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 238 ())) 0 () () () 0 0)
-233 'npgeo' '' 'npgeo' 230 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-258 'iin_database' '' 'iin_database' 257 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-)
-
-('acoustic_elastic_load' 0 2 'acoustic_elastic_repartitioning' 0 11
-'acoustic_load' 0 25 'adjncy' 0 26 'aniso_flag' 0 27
-'build_glob2loc_elmnts' 0 28 'build_glob2loc_nodes' 0 34
-'build_interfaces' 0 46 'build_interfaces_no_ac_el_sep' 0 58
-'check_valence' 0 73 'count_def_mat' 0 74 'count_undef_mat' 0 75
-'decompose_mesh_scotch' 0 76 'elastic_load' 0 77 'elmnts' 0 78
-'elmnts_load' 0 79 'esize' 0 80 'glob2loc_elmnts' 0 81 'glob2loc_nodes'
-0 82 'glob2loc_nodes_nparts' 0 83 'glob2loc_nodes_parts' 0 84 'hugeval'
-0 85 'ibelm_bottom' 0 86 'ibelm_moho' 0 87 'ibelm_top' 0 88 'ibelm_xmax'
-0 89 'ibelm_xmin' 0 90 'ibelm_ymax' 0 91 'ibelm_ymin' 0 92 'idomain_id'
-0 93 'idummy' 0 94 'ier' 0 95 'imat' 0 96 'inode' 0 97 'ipart' 0 98
-'ispec' 0 99 'ispec2d' 0 100 'localpath_name' 0 101 'long' 0 102
-'mask_nodes_elmnts' 0 103 'mat' 0 104 'mat_prop' 0 105 'max_neighbour' 0
-106 'mesh2dual_ncommonnodes' 0 107 'moho_surface_repartitioning' 0 120
-'my_interfaces' 0 132 'my_nb_interfaces' 0 133 'my_ninterface' 0 134
-'nb_edges' 0 135 'nfaces' 0 136 'ngnod' 0 137 'ninterfaces' 0 138 'nnodes'
-0 139 'nnodes_elmnts' 0 140 'nnodes_loc' 0 141 'nodes_coords' 0 142
-'nodes_elmnts' 0 143 'nodes_ibelm_bottom' 0 144 'nodes_ibelm_moho' 0 145
-'nodes_ibelm_top' 0 146 'nodes_ibelm_xmax' 0 147 'nodes_ibelm_xmin' 0
-148 'nodes_ibelm_ymax' 0 149 'nodes_ibelm_ymin' 0 150 'nparts' 0 151
-'nsize' 0 152 'nspec' 0 153 'nspec2d_bottom' 0 154 'nspec2d_moho' 0 155
-'nspec2d_top' 0 156 'nspec2d_xmax' 0 157 'nspec2d_xmin' 0 158
-'nspec2d_ymax' 0 159 'nspec2d_ymin' 0 160 'nspec_loc' 0 161 'num_elmnt'
-0 162 'num_mat' 0 163 'num_node' 0 164 'outputpath_name' 0 165 'part' 0
-166 'part_decompose_mesh_scotch' 0 167 'prname' 0 168 'qmu' 0 169
-'read_mesh_files' 0 170 'rho' 0 171 'scotch_archdim' 0 172
-'scotch_dgraphdim' 0 173 'scotch_dgraphhaloreqdim' 0 174
-'scotch_dorderdim' 0 175 'scotch_geomdim' 0 176 'scotch_graphdim' 0 177
-'scotch_mapdim' 0 178 'scotch_meshdim' 0 179 'scotch_orderdim' 0 180
-'scotch_partitioning' 0 181 'scotch_stratbalance' 0 182 'scotch_stratdim'
-0 183 'scotch_strategy' 0 184 'scotch_stratquality' 0 185
-'scotch_stratsafety' 0 186 'scotch_stratscalability' 0 187
-'scotch_stratspeed' 0 188 'scotchgraph' 0 189 'scotchstrat' 0 190
-'selected_int_kind' 0 191 'short' 0 192 'sup_neighbour' 0 193
-'tab_interfaces' 0 194 'tab_size_interfaces' 0 195 'tinyval' 0 196
-'undef_mat_prop' 0 197 'used_nodes_elmnts' 0 198 'vp' 0 199 'vs' 0 200
-'write_boundaries_database' 0 201 'write_glob2loc_nodes_database' 0 229
-'write_interfaces_database' 0 240 'write_material_props_database' 0 256
-'write_mesh_databases' 0 263 'write_moho_surface_database' 0 264
-'write_partition_database' 0 277 'xadj' 0 292)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/part_decompose_mesh_scotch.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/part_decompose_mesh_scotch.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/decompose_mesh_SCOTCH/part_decompose_mesh_scotch.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,674 +0,0 @@
-GFORTRAN module version '0' created from part_decompose_mesh_SCOTCH.f90 on Wed Sep 21 14:24:34 2011
-MD5:477e001bb003390f74d602416f8d5d9f -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () () () () ()
-() () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'acoustic_elastic_load' 'part_decompose_mesh_scotch'
-'acoustic_elastic_load' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9 10) () 0
-() () () 0 0)
-11 'acoustic_elastic_repartitioning' 'part_decompose_mesh_scotch'
-'acoustic_elastic_repartitioning' 1 ((PROCEDURE UNKNOWN-INTENT
-MODULE-PROC DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0
-UNKNOWN ()) 12 0 (13 14 15 16 17 18 19 20 21 22 23 24) () 0 () () () 0 0)
-25 'acoustic_load' 'part_decompose_mesh_scotch' 'acoustic_load' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0
-() () () 0 0)
-26 'build_glob2loc_elmnts' 'part_decompose_mesh_scotch'
-'build_glob2loc_elmnts' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 27 0 (28
-29 30 31) () 0 () () () 0 0)
-32 'build_glob2loc_nodes' 'part_decompose_mesh_scotch'
-'build_glob2loc_nodes' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 33 0 (34
-35 36 37 38 39 40 41 42 43) () 0 () () () 0 0)
-44 'build_interfaces' 'part_decompose_mesh_scotch' 'build_interfaces' 1
-((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE
-ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 45 0 (46 47 48 49 50 51 52
-53 54 55) () 0 () () () 0 0)
-56 'build_interfaces_no_ac_el_sep' 'part_decompose_mesh_scotch'
-'build_interfaces_no_ac_el_sep' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 57 0
-(58 59 60 61 62 63 64 65 66 67 68 69 70) () 0 () () () 0 0)
-71 'elastic_load' 'part_decompose_mesh_scotch' 'elastic_load' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0
-() () () 0 0)
-72 'esize' 'part_decompose_mesh_scotch' 'esize' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () ()
-() 0 0)
-73 'hugeval' 'part_decompose_mesh_scotch' 'hugeval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.c9f2c9cd046750 at 25') () 0 () ()
-() 0 0)
-74 'long' 'part_decompose_mesh_scotch' 'long' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () ()
-() 0 0)
-75 'mesh2dual_ncommonnodes' 'part_decompose_mesh_scotch'
-'mesh2dual_ncommonnodes' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 76 0 (77 78 79 80 81 82
-83 84 85 86 87) () 0 () () () 0 0)
-88 'moho_surface_repartitioning' 'part_decompose_mesh_scotch'
-'moho_surface_repartitioning' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 89 0 (90 91 92 93 94
-95 96 97 98 99) () 0 () () () 0 0)
-100 'nfaces' 'part_decompose_mesh_scotch' 'nfaces' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () ()
-() 0 0)
-101 'part_decompose_mesh_scotch' 'part_decompose_mesh_scotch'
-'part_decompose_mesh_scotch' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-102 'selected_int_kind' '(intrinsic)' 'selected_int_kind' 1 ((PROCEDURE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION) (UNKNOWN 0 0 0
-UNKNOWN ()) 0 0 () () 102 () () () 0 0)
-103 'short' 'part_decompose_mesh_scotch' 'short' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-104 'tinyval' 'part_decompose_mesh_scotch' 'tinyval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.44b82fa09b5a54 at -7') () 0 () ()
-() 0 0)
-105 'write_boundaries_database' 'part_decompose_mesh_scotch'
-'write_boundaries_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 106
-0 (107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123
-124 125 126 127 128 129 130 131 132) () 0 () () () 0 0)
-133 'write_glob2loc_nodes_database' 'part_decompose_mesh_scotch'
-'write_glob2loc_nodes_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 134
-0 (135 136 137 138 139 140 141 142 143) () 0 () () () 0 0)
-144 'write_interfaces_database' 'part_decompose_mesh_scotch'
-'write_interfaces_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 145
-0 (146 147 148 149 150 151 152 153 154 155 156 157 158 159) () 0 () () ()
-0 0)
-160 'write_material_props_database' 'part_decompose_mesh_scotch'
-'write_material_props_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE) (UNKNOWN 0 0 0 UNKNOWN ()) 161 0 (162 163 164
-165 166) () 0 () () () 0 0)
-167 'write_moho_surface_database' 'part_decompose_mesh_scotch'
-'write_moho_surface_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC
-DECL UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 168
-0 (169 170 171 172 173 174 175 176 177 178 179) () 0 () () () 0 0)
-180 'write_partition_database' 'part_decompose_mesh_scotch'
-'write_partition_database' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL
-UNKNOWN SUBROUTINE ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 181 0 (
-182 183 184 185 186 187 188 189 190 191 192 193 194) () 0 () () () 0 0)
-77 'nelmnts' '' 'nelmnts' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-78 'nnodes' '' 'nnodes' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-79 'nsize' '' 'nsize' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-80 'sup_neighbour' '' 'sup_neighbour' 76 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-81 'elmnts' '' 'elmnts' 76 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (INTEGER 8 0 0
-INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 77 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-82 'xadj' '' 'xadj' 76 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 77 ())) 0 () () () 0 0)
-83 'adjncy' '' 'adjncy' 76 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (VARIABLE (
-INTEGER 8 0 0 INTEGER ()) 0 80 ()) (VARIABLE (INTEGER 8 0 0 INTEGER ())
-0 77 ())) (CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-84 'nnodes_elmnts' '' 'nnodes_elmnts' 76 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (
-INTEGER 4 0 0 INTEGER ()) 0 MINUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
-78 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-85 'nodes_elmnts' '' 'nodes_elmnts' 76 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (
-INTEGER 8 0 0 INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES
-(VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 79 ()) (FUNCTION (INTEGER 8 0 0
-INTEGER ()) 0 195 (('' (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 78 ())))
-'__convert_i4_i8' 0 '__convert_i4_i8')) (CONSTANT (INTEGER 8 0 0 INTEGER
-()) 0 '1'))) 0 () () () 0 0)
-86 'max_neighbour' '' 'max_neighbour' 76 ((VARIABLE OUT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-87 'ncommonnodes' '' 'ncommonnodes' 76 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-28 'nelmnts' '' 'nelmnts' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-29 'part' '' 'part' 27 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 28 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-30 'glob2loc_elmnts' '' 'glob2loc_elmnts' 27 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-31 'nparts' '' 'nparts' 27 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-34 'nelmnts' '' 'nelmnts' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-35 'nnodes' '' 'nnodes' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-36 'nsize' '' 'nsize' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-37 'nnodes_elmnts' '' 'nnodes_elmnts' 33 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0
-INTEGER ()) 0 MINUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 35 ()) (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-38 'nodes_elmnts' '' 'nodes_elmnts' 33 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (VARIABLE (
-INTEGER 8 0 0 INTEGER ()) 0 36 ()) (FUNCTION (INTEGER 8 0 0 INTEGER ())
-0 196 (('' (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 35 ())))
-'__convert_i4_i8' 0 '__convert_i4_i8')) (CONSTANT (INTEGER 8 0 0 INTEGER
-()) 0 '1'))) 0 () () () 0 0)
-39 'part' '' 'part' 33 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 34 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-40 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 33 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-41 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 33 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-42 'glob2loc_nodes' '' 'glob2loc_nodes' 33 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-43 'nparts' '' 'nparts' 33 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-196 '__convert_i4_i8' '(intrinsic)' '__convert_i4_i8' 33 ((PROCEDURE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION ELEMENTAL PURE) (
-INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-46 'nelmnts' '' 'nelmnts' 45 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-47 'sup_neighbour' '' 'sup_neighbour' 45 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-48 'part' '' 'part' 45 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 46 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-49 'elmnts' '' 'elmnts' 45 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (INTEGER 8 0 0
-INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 46 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-50 'xadj' '' 'xadj' 45 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 46 ())) 0 () () () 0 0)
-51 'adjncy' '' 'adjncy' 45 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 47 ()) (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 46 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-52 'tab_interfaces' '' 'tab_interfaces' 45 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-53 'tab_size_interfaces' '' 'tab_size_interfaces' 45 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-54 'ninterfaces' '' 'ninterfaces' 45 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-55 'nparts' '' 'nparts' 45 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-58 'nelmnts' '' 'nelmnts' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-59 'sup_neighbour' '' 'sup_neighbour' 57 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-60 'part' '' 'part' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 58 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-61 'elmnts' '' 'elmnts' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (INTEGER 8 0 0
-INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 58 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-62 'xadj' '' 'xadj' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 58 ())) 0 () () () 0 0)
-63 'adjncy' '' 'adjncy' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 59 ()) (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 58 ())) (
-CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-64 'tab_interfaces' '' 'tab_interfaces' 57 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-65 'tab_size_interfaces' '' 'tab_size_interfaces' 57 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-66 'ninterfaces' '' 'ninterfaces' 57 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-67 'nb_materials' '' 'nb_materials' 57 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-68 'cs_material' '' 'cs_material' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 67 ())) 0 () () () 0 0)
-69 'num_material' '' 'num_material' 57 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER
-8 0 0 INTEGER ()) 0 58 ())) 0 () () () 0 0)
-70 'nparts' '' 'nparts' 57 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-135 'iin_database' '' 'iin_database' 134 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-136 'iproc' '' 'iproc' 134 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-137 'npgeo' '' 'npgeo' 134 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-138 'nodes_coords' '' 'nodes_coords' 134 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 ()
-(2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '3') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 142 ())) 0 () () () 0 0)
-139 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 134 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-140 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 134 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-141 'glob2loc_nodes' '' 'glob2loc_nodes' 134 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-142 'nnodes' '' 'nnodes' 134 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-143 'num_phase' '' 'num_phase' 134 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-162 'iin_database' '' 'iin_database' 161 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-164 'count_undef_mat' '' 'count_undef_mat' 161 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-163 'count_def_mat' '' 'count_def_mat' 161 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-165 'mat_prop' '' 'mat_prop' 161 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT
-(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 163 ())) 0 () () () 0 0)
-166 'undef_mat_prop' '' 'undef_mat_prop' 161 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '30'))) 0 0 () (2 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 164 ())) 0 () () () 0 0)
-107 'iin_database' '' 'iin_database' 106 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-108 'iproc' '' 'iproc' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-109 'nelmnts' '' 'nelmnts' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-110 'nspec2d_xmin' '' 'nspec2d_xmin' 106 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-111 'nspec2d_xmax' '' 'nspec2d_xmax' 106 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-112 'nspec2d_ymin' '' 'nspec2d_ymin' 106 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-113 'nspec2d_ymax' '' 'nspec2d_ymax' 106 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-114 'nspec2d_bottom' '' 'nspec2d_bottom' 106 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-115 'nspec2d_top' '' 'nspec2d_top' 106 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-116 'ibelm_xmin' '' 'ibelm_xmin' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 110 ())) 0 () () () 0 0)
-117 'ibelm_xmax' '' 'ibelm_xmax' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 111 ())) 0 () () () 0 0)
-118 'ibelm_ymin' '' 'ibelm_ymin' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 112 ())) 0 () () () 0 0)
-119 'ibelm_ymax' '' 'ibelm_ymax' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 113 ())) 0 () () () 0 0)
-120 'ibelm_bottom' '' 'ibelm_bottom' 106 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER
-4 0 0 INTEGER ()) 0 114 ())) 0 () () () 0 0)
-121 'ibelm_top' '' 'ibelm_top' 106 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 115 ())) 0 () () () 0 0)
-122 'nodes_ibelm_xmin' '' 'nodes_ibelm_xmin' 106 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 110 ())) 0 ()
-() () 0 0)
-123 'nodes_ibelm_xmax' '' 'nodes_ibelm_xmax' 106 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 111 ())) 0 ()
-() () 0 0)
-124 'nodes_ibelm_ymin' '' 'nodes_ibelm_ymin' 106 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 112 ())) 0 ()
-() () 0 0)
-125 'nodes_ibelm_ymax' '' 'nodes_ibelm_ymax' 106 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 113 ())) 0 ()
-() () 0 0)
-126 'nodes_ibelm_bottom' '' 'nodes_ibelm_bottom' 106 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 114 ())) 0 ()
-() () 0 0)
-127 'nodes_ibelm_top' '' 'nodes_ibelm_top' 106 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 115 ())) 0 ()
-() () 0 0)
-128 'glob2loc_elmnts' '' 'glob2loc_elmnts' 106 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-129 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 106 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-130 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 106 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-131 'glob2loc_nodes' '' 'glob2loc_nodes' 106 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-132 'part' '' 'part' 106 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 109 ())) 0 () () () 0 0)
-183 'iproc' '' 'iproc' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-182 'iin_database' '' 'iin_database' 181 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-187 'glob2loc_elmnts' '' 'glob2loc_elmnts' 181 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-185 'nelmnts' '' 'nelmnts' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-184 'nspec' '' 'nspec' 181 ((VARIABLE INOUT UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-186 'elmnts' '' 'elmnts' 181 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0
-185 ())) (CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-188 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 181 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-189 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 181 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-190 'glob2loc_nodes' '' 'glob2loc_nodes' 181 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-191 'part' '' 'part' 181 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 185 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-192 'num_modele' '' 'num_modele' 181 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 185 ())) 0 ()
-() () 0 0)
-193 'ngnod' '' 'ngnod' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-194 'num_phase' '' 'num_phase' 181 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-146 'iin_database' '' 'iin_database' 145 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-149 'iproc' '' 'iproc' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-147 'tab_interfaces' '' 'tab_interfaces' 145 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-148 'tab_size_interfaces' '' 'tab_size_interfaces' 145 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-150 'ninterfaces' '' 'ninterfaces' 145 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-151 'my_ninterface' '' 'my_ninterface' 145 ((VARIABLE INOUT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-152 'my_interfaces' '' 'my_interfaces' 145 ((VARIABLE INOUT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0
-INTEGER ()) 0 MINUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 150 ()) (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-153 'my_nb_interfaces' '' 'my_nb_interfaces' 145 ((VARIABLE INOUT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (
-INTEGER 4 0 0 INTEGER ()) 0 MINUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0
-150 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-154 'glob2loc_elmnts' '' 'glob2loc_elmnts' 145 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-155 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 145 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-156 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 145 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-157 'glob2loc_nodes' '' 'glob2loc_nodes' 145 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-158 'num_phase' '' 'num_phase' 145 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-159 'nparts' '' 'nparts' 145 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-169 'iin_database' '' 'iin_database' 168 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-170 'iproc' '' 'iproc' 168 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-171 'nelmnts' '' 'nelmnts' 168 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-172 'glob2loc_elmnts' '' 'glob2loc_elmnts' 168 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-173 'glob2loc_nodes_nparts' '' 'glob2loc_nodes_nparts' 168 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-174 'glob2loc_nodes_parts' '' 'glob2loc_nodes_parts' 168 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-175 'glob2loc_nodes' '' 'glob2loc_nodes' 168 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-176 'part' '' 'part' 168 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 171 ())) 0 () () () 0 0)
-177 'nspec2d_moho' '' 'nspec2d_moho' 168 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-178 'ibelm_moho' '' 'ibelm_moho' 168 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 177 ())) 0 () () () 0 0)
-179 'nodes_ibelm_moho' '' 'nodes_ibelm_moho' 168 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 177 ())) 0 ()
-() () 0 0)
-5 'nelmnts' '' 'nelmnts' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-4 'elmnts_load' '' 'elmnts_load' 3 ((VARIABLE OUT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 5 ())) 0 () () () 0 0)
-9 'mat_prop' '' 'mat_prop' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0
-0 INTEGER ()) 0 6 ())) 0 () () () 0 0)
-7 'count_undef_mat' '' 'count_undef_mat' 3 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-6 'count_def_mat' '' 'count_def_mat' 3 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-8 'num_material' '' 'num_material' 3 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 8 0 0
-INTEGER ()) 0 5 ())) 0 () () () 0 0)
-10 'undef_mat_prop' '' 'undef_mat_prop' 3 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '30'))) 0 0 () (2 EXPLICIT (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0
-0 INTEGER ()) 0 7 ())) 0 () () () 0 0)
-13 'nelmnts' '' 'nelmnts' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-14 'nnodes' '' 'nnodes' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-15 'elmnts' '' 'elmnts' 12 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0
-13 ())) (CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-16 'nb_materials' '' 'nb_materials' 12 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-17 'num_material' '' 'num_material' 12 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER
-8 0 0 INTEGER ()) 0 13 ())) 0 () () () 0 0)
-18 'mat_prop' '' 'mat_prop' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (2 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '6') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 16 ())) 0 () () () 0 0)
-19 'sup_neighbour' '' 'sup_neighbour' 12 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-20 'nsize' '' 'nsize' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-21 'nproc' '' 'nproc' 12 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-22 'part' '' 'part' 12 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 13 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-23 'nfaces_coupled' '' 'nfaces_coupled' 12 ((VARIABLE OUT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-24 'faces_coupled' '' 'faces_coupled' 12 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-90 'nelmnts' '' 'nelmnts' 89 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-91 'nnodes' '' 'nnodes' 89 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-92 'elmnts' '' 'elmnts' 89 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0
-INTEGER ()) 0 MINUS (OP (INTEGER 8 0 0 INTEGER ()) 0 TIMES (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '8') (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0
-90 ())) (CONSTANT (INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-93 'sup_neighbour' '' 'sup_neighbour' 89 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-94 'nsize' '' 'nsize' 89 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-95 'nproc' '' 'nproc' 89 ((VARIABLE IN UNKNOWN-PROC UNKNOWN UNKNOWN
-DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-96 'part' '' 'part' 89 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 8 0 0 INTEGER ())
-0 MINUS (VARIABLE (INTEGER 8 0 0 INTEGER ()) 0 90 ()) (CONSTANT (
-INTEGER 8 0 0 INTEGER ()) 0 '1'))) 0 () () () 0 0)
-97 'nspec2d_moho' '' 'nspec2d_moho' 89 ((VARIABLE IN UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-98 'ibelm_moho' '' 'ibelm_moho' 89 ((VARIABLE IN UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 97 ())) 0 () () () 0 0)
-99 'nodes_ibelm_moho' '' 'nodes_ibelm_moho' 89 ((VARIABLE IN
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 97 ())) 0 () ()
-() 0 0)
-195 '__convert_i4_i8' '(intrinsic)' '__convert_i4_i8' 76 ((PROCEDURE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN FUNCTION ELEMENTAL PURE) (
-INTEGER 8 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-)
-
-('acoustic_elastic_load' 0 2 'acoustic_elastic_repartitioning' 0 11
-'acoustic_load' 0 25 'build_glob2loc_elmnts' 0 26 'build_glob2loc_nodes'
-0 32 'build_interfaces' 0 44 'build_interfaces_no_ac_el_sep' 0 56
-'elastic_load' 0 71 'esize' 0 72 'hugeval' 0 73 'long' 0 74
-'mesh2dual_ncommonnodes' 0 75 'moho_surface_repartitioning' 0 88 'nfaces'
-0 100 'part_decompose_mesh_scotch' 0 101 'selected_int_kind' 0 102 'short'
-0 103 'tinyval' 0 104 'write_boundaries_database' 0 105
-'write_glob2loc_nodes_database' 0 133 'write_interfaces_database' 0 144
-'write_material_props_database' 0 160 'write_moho_surface_database' 0
-167 'write_partition_database' 0 180)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/Makefile
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/Makefile 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/Makefile 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,366 +0,0 @@
-#=====================================================================
-#
-# S p e c f e m 3 D V e r s i o n 2 . 0
-# ---------------------------------------
-#
-# Main authors: Dimitri Komatitsch and Jeroen Tromp
-# Princeton University, USA and University of Pau / CNRS / INRIA
-# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-# April 2011
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-#
-#=====================================================================
-#
-# United States Government Sponsorship Acknowledged.
-#
-
-# src/generate_databases/Makefile. Generated from Makefile.in by configure.
-
-FC = mpif90
-FCFLAGS = #-g -O2
-MPIFC = mpif90
-MPILIBS =
-FLAGS_CHECK =
-FLAGS_NO_CHECK =
-FCFLAGS_f90 =
-
-SHARED = ../shared
-# E : executables directory
-E = ../../bin
-# O : objects directory
-O = ../../obj/gen
-# L : libraries directory
-L = ../../lib
-# Output files directory
-OUTPUT=../../in_out_files/OUTPUT_FILES
-
-FCCOMPILE_CHECK = ${FC} ${FCFLAGS} $(FLAGS_CHECK) -I${SHARED}
-FCCOMPILE_NO_CHECK = ${FC} ${FCFLAGS} $(FLAGS_NO_CHECK) -I${SHARED}
-MPIFCCOMPILE_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_CHECK) -I${SHARED}
-MPIFCCOMPILE_NO_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_NO_CHECK) -I${SHARED}
-FCLINK = $(MPIFCCOMPILE_NO_CHECK)
-#FCLINK = $(FCCOMPILE_NO_CHECK)
-
-CC = gcc
-CFLAGS = -g -O2 $(CPPFLAGS)
-CPPFLAGS = -I/usr/include/scotch $(COND_MPI_CPPFLAGS)
-COND_MPI_CPPFLAGS = -DWITH_MPI
-#COND_MPI_CPPFLAGS =
-
-AR = ar
-ARFLAGS = cru
-RANLIB = ranlib
-
-libgendatabases_a_OBJECTS = \
- $O/assemble_MPI_scalar.o \
- $O/calc_jacobian.o \
- $O/check_mesh_resolution.o \
- $O/compute_arrays_source.o \
- $O/multiply_arrays_source.o \
- $O/create_name_database.o \
- $O/create_regions_mesh.o \
- $O/create_mass_matrices.o \
- $O/create_serial_name_database.o \
- $O/define_derivation_matrices.o \
- $O/detect_surface.o \
- $O/exit_mpi.o \
- $O/get_absorbing_boundary.o \
- $O/get_coupling_surfaces.o \
- $O/get_model.o \
- $O/get_MPI.o \
- $O/get_attenuation_model.o \
- $O/get_cmt.o \
- $O/get_element_face.o \
- $O/get_global.o \
- $O/get_jacobian_boundaries.o \
- $O/get_shape2D.o \
- $O/get_shape3D.o \
- $O/get_value_parameters.o \
- $O/gll_library.o \
- $O/hex_nodes.o \
- $O/lagrange_poly.o \
- $O/generate_databases.o \
- $O/model_external_values.o \
- $O/model_aniso.o \
- $O/model_tomography.o \
- $O/netlib_specfun_erf.o \
- $O/param_reader.o \
- $O/prepare_assemble_MPI.o \
- $O/read_topo_bathy_file.o \
- $O/read_parameter_file.o \
- $O/read_value_parameters.o \
- $O/recompute_jacobian.o \
- $O/save_arrays_solver.o \
- $O/save_header_file.o \
- $O/sort_array_coordinates.o \
- $O/utm_geo.o \
- $O/write_VTK_data.o \
- $O/memory_eval.o \
- $(EMPTY_MACRO)
-
-
-# objects toggled between the parallel and serial version
-COND_MPI_OBJECTS = $O/parallel.o
-#COND_MPI_OBJECTS = $O/serial.o
-
-LIBGENDATABASES = $L/libgendatabases.a
-
-# objects for the pure Fortran version
-XGENERATE_DATABASES_OBJECTS = $O/program_generate_databases.o $(LIBGENDATABASES)
-XGENDATABASES_OBJECTS = $(LIBGENDATABASES)
-
-####
-#### targets
-####
-
-# default targets for the pure Fortran version
-DEFAULT = \
- generate_databases \
- specfem3D \
- combine_vol_data \
- combine_surf_data \
- convolve_source_timefunction \
- $(EMPTY_MACRO)
-
-default: $(DEFAULT)
-
-all: clean default
-
-backup:
- cp *f90 *h README_SPECFEM3D DATA/Par_file* Makefile go_generate_databases* go_mesher* go_solver* mymachines bak
-
-bak: backup
-
-generate_databases: xgenerate_databases
-
-
-
-####
-#### rules for executables
-####
-
-# rules for the pure Fortran version
-xgenerate_databases: $(XGENERATE_DATABASES_OBJECTS) $(COND_MPI_OBJECTS)
- ${FCLINK} -o ${E}/xgenerate_databases $(XGENERATE_DATABASES_OBJECTS) $(COND_MPI_OBJECTS) $(MPILIBS)
-
-# solver also depends on values from mesher
-
-
-clean:
- rm -f $O/* *.o *.gnu *.mod $(OUTPUT)/timestamp* $(OUTPUT)/starttime*txt work.pc* \
- xgenerate_databases \
- xconvolve_source_timefunction \
- xcreate_movie_shakemap_AVS_DX_GMT xcombine_vol_data xcombine_surf_data
-
-###
-### rule for the archive library
-###
-
-$L/libgendatabases.a: $(libgendatabases_a_OBJECTS)
- -rm -f $L/libgendatabases.a
- $(AR) $(ARFLAGS) $L/libgendatabases.a $(libgendatabases_a_OBJECTS)
- $(RANLIB) $L/libgendatabases.a
-
-####
-#### rule to build each .o file below
-####
-
-###
-### optimized flags (not dependent on values from mesher anymore)
-###
-
-
-$O/assemble_MPI_scalar.o: ${SHARED}/constants.h ${SHARED}/assemble_MPI_scalar.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/assemble_MPI_scalar.o ${SHARED}/assemble_MPI_scalar.f90
-
-
-###
-### MPI compilation without optimization
-###
-
-$O/parallel.o: ${SHARED}/constants.h ${SHARED}/parallel.f90
- ${MPIFCCOMPILE_CHECK} -c -o $O/parallel.o ${SHARED}/parallel.f90
-
-$O/model_external_values.o: ${SHARED}/constants.h model_external_values.f90
- ${MPIFCCOMPILE_CHECK} -c -o $O/model_external_values.o model_external_values.f90
-
-$O/model_tomography.o: ${SHARED}/constants.h model_tomography.f90
- ${MPIFCCOMPILE_CHECK} -c -o $O/model_tomography.o model_tomography.f90
-
-###
-### serial compilation without optimization
-###
-
-$O/model_aniso.o: ${SHARED}/constants.h model_aniso.f90
- ${FCCOMPILE_CHECK} -c -o $O/model_aniso.o model_aniso.f90
-
-$O/serial.o: ${SHARED}/constants.h ${SHARED}/serial.f90
- ${FCCOMPILE_CHECK} -c -o $O/serial.o ${SHARED}/serial.f90
-
-$O/program_generate_databases.o: program_generate_databases.f90
- ${FCCOMPILE_CHECK} -c -o $O/program_generate_databases.o program_generate_databases.f90
-
-$O/generate_databases.o: ${SHARED}/constants.h generate_databases.f90
- ${FCCOMPILE_CHECK} -c -o $O/generate_databases.o generate_databases.f90
-
-$O/memory_eval.o: ${SHARED}/constants.h memory_eval.f90
- ${FCCOMPILE_CHECK} -c -o $O/memory_eval.o memory_eval.f90
-
-$O/exit_mpi.o: ${SHARED}/constants.h ${SHARED}/exit_mpi.f90
- ${FCCOMPILE_CHECK} -c -o $O/exit_mpi.o ${SHARED}/exit_mpi.f90
-
-$O/convolve_source_timefunction.o: ${SHARED}/convolve_source_timefunction.f90
- ${FCCOMPILE_CHECK} -c -o $O/convolve_source_timefunction.o ${SHARED}/convolve_source_timefunction.f90
-
-$O/save_header_file.o: ${SHARED}/constants.h ${SHARED}/save_header_file.f90
- ${FCCOMPILE_CHECK} -c -o $O/save_header_file.o ${SHARED}/save_header_file.f90
-
-$O/read_parameter_file.o: ${SHARED}/constants.h ${SHARED}/read_parameter_file.f90
- ${FCCOMPILE_CHECK} -c -o $O/read_parameter_file.o ${SHARED}/read_parameter_file.f90
-
-$O/read_value_parameters.o: ${SHARED}/constants.h ${SHARED}/read_value_parameters.f90
- ${FCCOMPILE_CHECK} -c -o $O/read_value_parameters.o ${SHARED}/read_value_parameters.f90
-
-$O/get_value_parameters.o: ${SHARED}/constants.h ${SHARED}/get_value_parameters.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_value_parameters.o ${SHARED}/get_value_parameters.f90
-
-$O/utm_geo.o: ${SHARED}/constants.h ${SHARED}/utm_geo.f90
- ${FCCOMPILE_CHECK} -c -o $O/utm_geo.o ${SHARED}/utm_geo.f90
-
-$O/calc_jacobian.o: ${SHARED}/constants.h calc_jacobian.f90
- ${FCCOMPILE_CHECK} -c -o $O/calc_jacobian.o calc_jacobian.f90
-
-$O/check_mesh_resolution.o: ${SHARED}/constants.h ${SHARED}/check_mesh_resolution.f90
- ${FCCOMPILE_CHECK} -c -o $O/check_mesh_resolution.o ${SHARED}/check_mesh_resolution.f90
-
-$O/detect_surface.o: ${SHARED}/constants.h ${SHARED}/detect_surface.f90
- ${FCCOMPILE_CHECK} -c -o $O/detect_surface.o ${SHARED}/detect_surface.f90
-
-$O/gll_library.o: ${SHARED}/constants.h ${SHARED}/gll_library.f90
- ${FCCOMPILE_CHECK} -c -o $O/gll_library.o ${SHARED}/gll_library.f90
-
-$O/get_jacobian_boundaries.o: ${SHARED}/constants.h ${SHARED}/get_jacobian_boundaries.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_jacobian_boundaries.o ${SHARED}/get_jacobian_boundaries.f90
-
-$O/get_flags_boundaries.o: ${SHARED}/constants.h get_flags_boundaries.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_flags_boundaries.o get_flags_boundaries.f90
-
-$O/get_cmt.o: ${SHARED}/constants.h ${SHARED}/get_cmt.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_cmt.o ${SHARED}/get_cmt.f90
-
-$O/create_movie_shakemap_AVS_DX_GMT.o: ${SHARED}/constants.h ${SHARED}/create_movie_shakemap_AVS_DX_GMT.f90 $(OUTPUT)/surface_from_mesher.h
- ${FCCOMPILE_CHECK} -c -o $O/create_movie_shakemap_AVS_DX_GMT.o ${SHARED}/create_movie_shakemap_AVS_DX_GMT.f90 -I$(OUTPUT)
-
-$O/get_element_face.o: ${SHARED}/constants.h ${SHARED}/get_element_face.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_element_face.o ${SHARED}/get_element_face.f90
-
-$O/get_global.o: ${SHARED}/constants.h get_global.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_global.o get_global.f90
-
-$O/write_VTK_data.o: ${SHARED}/constants.h ${SHARED}/write_VTK_data.f90
- ${FCCOMPILE_CHECK} -c -o $O/write_VTK_data.o ${SHARED}/write_VTK_data.f90
-
-$O/get_shape3D.o: ${SHARED}/constants.h ${SHARED}/get_shape3D.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_shape3D.o ${SHARED}/get_shape3D.f90
-
-$O/get_shape2D.o: ${SHARED}/constants.h ${SHARED}/get_shape2D.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_shape2D.o ${SHARED}/get_shape2D.f90
-
-$O/hex_nodes.o: ${SHARED}/constants.h ${SHARED}/hex_nodes.f90
- ${FCCOMPILE_CHECK} -c -o $O/hex_nodes.o ${SHARED}/hex_nodes.f90
-
-$O/netlib_specfun_erf.o: ${SHARED}/netlib_specfun_erf.f90
- ${FCCOMPILE_CHECK} -c -o $O/netlib_specfun_erf.o ${SHARED}/netlib_specfun_erf.f90
-
-$O/sort_array_coordinates.o: ${SHARED}/constants.h ${SHARED}/sort_array_coordinates.f90
- ${FCCOMPILE_CHECK} -c -o $O/sort_array_coordinates.o ${SHARED}/sort_array_coordinates.f90
-
-$O/save_arrays_solver.o: ${SHARED}/constants.h save_arrays_solver.f90
- ${FCCOMPILE_CHECK} -c -o $O/save_arrays_solver.o save_arrays_solver.f90
-
-$O/read_topo_bathy_file.o: ${SHARED}/constants.h ${SHARED}/read_topo_bathy_file.f90
- ${FCCOMPILE_CHECK} -c -o $O/read_topo_bathy_file.o ${SHARED}/read_topo_bathy_file.f90
-
-$O/lagrange_poly.o: ${SHARED}/constants.h ${SHARED}/lagrange_poly.f90
- ${FCCOMPILE_CHECK} -c -o $O/lagrange_poly.o ${SHARED}/lagrange_poly.f90
-
-$O/recompute_jacobian.o: ${SHARED}/constants.h ${SHARED}/recompute_jacobian.f90
- ${FCCOMPILE_CHECK} -c -o $O/recompute_jacobian.o ${SHARED}/recompute_jacobian.f90
-
-
-$O/create_regions_mesh.o: ${SHARED}/constants.h create_regions_mesh.f90
- ${FCCOMPILE_CHECK} -c -o $O/create_regions_mesh.o create_regions_mesh.f90
-
-$O/create_mass_matrices.o: ${SHARED}/constants.h create_mass_matrices.f90
- ${FCCOMPILE_CHECK} -c -o $O/create_mass_matrices.o create_mass_matrices.f90
-
-$O/get_absorbing_boundary.o: ${SHARED}/constants.h get_absorbing_boundary.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_absorbing_boundary.o get_absorbing_boundary.f90
-
-$O/get_coupling_surfaces.o: ${SHARED}/constants.h get_coupling_surfaces.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_coupling_surfaces.o get_coupling_surfaces.f90
-
-$O/get_model.o: ${SHARED}/constants.h get_model.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_model.o get_model.f90
-
-$O/get_MPI.o: ${SHARED}/constants.h get_MPI.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_MPI.o get_MPI.f90
-
-$O/create_name_database.o: ${SHARED}/constants.h ${SHARED}/create_name_database.f90
- ${FCCOMPILE_CHECK} -c -o $O/create_name_database.o ${SHARED}/create_name_database.f90
-
-$O/create_serial_name_database.o: ${SHARED}/constants.h ${SHARED}/create_serial_name_database.f90
- ${FCCOMPILE_CHECK} -c -o $O/create_serial_name_database.o ${SHARED}/create_serial_name_database.f90
-
-$O/define_derivation_matrices.o: ${SHARED}/constants.h ${SHARED}/define_derivation_matrices.f90
- ${FCCOMPILE_CHECK} -c -o $O/define_derivation_matrices.o ${SHARED}/define_derivation_matrices.f90
-
-$O/compute_arrays_source.o: ${SHARED}/constants.h ${SHARED}/compute_arrays_source.f90
- ${FCCOMPILE_CHECK} -c -o $O/compute_arrays_source.o ${SHARED}/compute_arrays_source.f90
-
-$O/multiply_arrays_source.o: ${SHARED}/constants.h ${SHARED}/multiply_arrays_source.f90
- ${FCCOMPILE_CHECK} -c -o $O/multiply_arrays_source.o ${SHARED}/multiply_arrays_source.f90
-
-$O/get_attenuation_model.o: ${SHARED}/constants.h ${SHARED}/get_attenuation_model.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_attenuation_model.o ${SHARED}/get_attenuation_model.f90
-
-$O/compute_boundary_kernel.o: ${SHARED}/constants.h ${SHARED}/compute_boundary_kernel.f90
- ${FCCOMPILE_CHECK} -c -o $O/compute_boundary_kernel.o ${SHARED}/compute_boundary_kernel.f90
-
-$O/compute_kernels.o: ${SHARED}/constants.h ${SHARED}/compute_kernels.f90
- ${FCCOMPILE_CHECK} -c -o $O/compute_kernels.o ${SHARED}/compute_kernels.f90
-
-$O/combine_vol_data.o: ${SHARED}/constants.h ${SHARED}/combine_vol_data.f90
- ${FCCOMPILE_CHECK} -c -o $O/combine_vol_data.o ${SHARED}/combine_vol_data.f90
-
-$O/combine_surf_data.o: ${SHARED}/constants.h ${SHARED}/combine_surf_data.f90
- ${FCCOMPILE_CHECK} -c -o $O/combine_surf_data.o ${SHARED}/combine_surf_data.f90
-
-$O/prepare_assemble_MPI.o: ${SHARED}/constants.h ${SHARED}/prepare_assemble_MPI.f90
- ${FCCOMPILE_CHECK} -c -o $O/prepare_assemble_MPI.o ${SHARED}/prepare_assemble_MPI.f90
-
-
-
-###
-### C files below
-###
-
-$O/param_reader.o: ${SHARED}/param_reader.c
- ${CC} -c $(CFLAGS) -o $O/param_reader.o ${SHARED}/param_reader.c -I../../
-
-#$O/write_c_binary.o: ${SHARED}/write_c_binary.c
-# ${CC} -c $(CFLAGS) -o $O/write_c_binary.o ${SHARED}/write_c_binary.c -I../../
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/create_regions_mesh_ext_par.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/create_regions_mesh_ext_par.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/create_regions_mesh_ext_par.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,878 +0,0 @@
-GFORTRAN module version '0' created from create_regions_mesh.f90 on Wed Sep 28 14:35:20 2011
-MD5:66905b3319ab775ccd55b2e75846dc5d -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () () () () ()
-() () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'abs_boundary_ijk' 'create_regions_mesh_ext_par' 'abs_boundary_ijk' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (3 DEFERRED () () () () ()
-()) 0 () () () 0 0)
-3 'abs_boundary_ispec' 'create_regions_mesh_ext_par' 'abs_boundary_ispec'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-4 'abs_boundary_jacobian2dw' 'create_regions_mesh_ext_par'
-'abs_boundary_jacobian2dw' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-DEFERRED () () () ()) 0 () () () 0 0)
-5 'abs_boundary_normal' 'create_regions_mesh_ext_par'
-'abs_boundary_normal' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED ()
-() () () () ()) 0 () () () 0 0)
-6 'absorb_free_surface' 'create_regions_mesh_ext_par'
-'absorb_free_surface' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0
-0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-7 'absorb_use_pml' 'create_regions_mesh_ext_par' 'absorb_use_pml' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-8 'apply_heuristic_rule' 'create_regions_mesh_ext_par'
-'apply_heuristic_rule' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0
-0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-9 'approximate_hess_kl' 'create_regions_mesh_ext_par'
-'approximate_hess_kl' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0
-0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-10 'attenuation_comp_maximum' 'create_regions_mesh_ext_par'
-'attenuation_comp_maximum' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '9000') () 0 () () () 0 0)
-11 'attenuation_comp_resolution' 'create_regions_mesh_ext_par'
-'attenuation_comp_resolution' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
-12 'attenuation_f0_reference' 'create_regions_mesh_ext_par'
-'attenuation_f0_reference' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.4ccccccccccccc at 0') () 0 () () () 0 0)
-13 'c11store' 'create_regions_mesh_ext_par' 'c11store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-14 'c12store' 'create_regions_mesh_ext_par' 'c12store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-15 'c13store' 'create_regions_mesh_ext_par' 'c13store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-16 'c14store' 'create_regions_mesh_ext_par' 'c14store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-17 'c15store' 'create_regions_mesh_ext_par' 'c15store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-18 'c16store' 'create_regions_mesh_ext_par' 'c16store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-19 'c22store' 'create_regions_mesh_ext_par' 'c22store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-20 'c23store' 'create_regions_mesh_ext_par' 'c23store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-21 'c24store' 'create_regions_mesh_ext_par' 'c24store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-22 'c25store' 'create_regions_mesh_ext_par' 'c25store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-23 'c26store' 'create_regions_mesh_ext_par' 'c26store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-24 'c33store' 'create_regions_mesh_ext_par' 'c33store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-25 'c34store' 'create_regions_mesh_ext_par' 'c34store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-26 'c35store' 'create_regions_mesh_ext_par' 'c35store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-27 'c36store' 'create_regions_mesh_ext_par' 'c36store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-28 'c44store' 'create_regions_mesh_ext_par' 'c44store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-29 'c45store' 'create_regions_mesh_ext_par' 'c45store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-30 'c46store' 'create_regions_mesh_ext_par' 'c46store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-31 'c55store' 'create_regions_mesh_ext_par' 'c55store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-32 'c56store' 'create_regions_mesh_ext_par' 'c56store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-33 'c66store' 'create_regions_mesh_ext_par' 'c66store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-34 'component_force_source' 'create_regions_mesh_ext_par'
-'component_force_source' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-35 'coupling_ac_el_ijk' 'create_regions_mesh_ext_par' 'coupling_ac_el_ijk'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (3 DEFERRED () () () () ()
-()) 0 () () () 0 0)
-36 'coupling_ac_el_ispec' 'create_regions_mesh_ext_par'
-'coupling_ac_el_ispec' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-37 'coupling_ac_el_jacobian2dw' 'create_regions_mesh_ext_par'
-'coupling_ac_el_jacobian2dw' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-DEFERRED () () () ()) 0 () () () 0 0)
-38 'coupling_ac_el_normal' 'create_regions_mesh_ext_par'
-'coupling_ac_el_normal' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED ()
-() () () () ()) 0 () () () 0 0)
-39 'create_regions_mesh_ext_par' 'create_regions_mesh_ext_par'
-'create_regions_mesh_ext_par' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-40 'cross_section_x' 'create_regions_mesh_ext_par' 'cross_section_x' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0
-0 REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.105b800 at 5') () 0 ()
-() () 0 0)
-41 'cross_section_y' 'create_regions_mesh_ext_par' 'cross_section_y' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0
-0 REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.ffdc000 at 4') () 0 ()
-() () 0 0)
-42 'cross_section_z' 'create_regions_mesh_ext_par' 'cross_section_z' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0
-0 REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '-0.7530000 at 4') () 0
-() () () 0 0)
-43 'custom_real' 'create_regions_mesh_ext_par' 'custom_real' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0
-() () () 0 0)
-44 'degrees_per_cell_topo_socal' 'create_regions_mesh_ext_par'
-'degrees_per_cell_topo_socal' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.147ae147ae147b at -1') () 0 () () () 0 0)
-45 'dershape2d_bottom' 'create_regions_mesh_ext_par' 'dershape2d_bottom'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-46 'dershape2d_top' 'create_regions_mesh_ext_par' 'dershape2d_top' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-47 'dershape2d_x' 'create_regions_mesh_ext_par' 'dershape2d_x' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-48 'dershape2d_y' 'create_regions_mesh_ext_par' 'dershape2d_y' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-49 'dershape3d' 'create_regions_mesh_ext_par' 'dershape3d' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (5 DEFERRED () () () () () () () () () ()) 0
-() () () 0 0)
-50 'dont_ignore_junk' 'create_regions_mesh_ext_par' 'dont_ignore_junk' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL
-4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0
-() () () 0 0)
-51 'esize' 'create_regions_mesh_ext_par' 'esize' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () ()
-() 0 0)
-52 'etaxstore' 'create_regions_mesh_ext_par' 'etaxstore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-53 'etaystore' 'create_regions_mesh_ext_par' 'etaystore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-54 'etazstore' 'create_regions_mesh_ext_par' 'etazstore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-55 'ext_mesh_recv_normal' 'create_regions_mesh_ext_par'
-'ext_mesh_recv_normal' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0
-0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-56 'external_mesh_create_shakemap' 'create_regions_mesh_ext_par'
-'external_mesh_create_shakemap' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-57 'external_mesh_movie_surface' 'create_regions_mesh_ext_par'
-'external_mesh_movie_surface' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-58 'factor_force_source' 'create_regions_mesh_ext_par'
-'factor_force_source' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ())
-0 '0.38d7ea4c680000 at 13') () 0 () () () 0 0)
-59 'faster_receivers_points_only' 'create_regions_mesh_ext_par'
-'faster_receivers_points_only' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-60 'fix_underflow_problem' 'create_regions_mesh_ext_par'
-'fix_underflow_problem' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-61 'four_thirds' 'create_regions_mesh_ext_par' 'four_thirds' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1555556 at 1') () 0 ()
-() () 0 0)
-62 'free_surface_ijk' 'create_regions_mesh_ext_par' 'free_surface_ijk' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (3 DEFERRED () () () () ()
-()) 0 () () () 0 0)
-63 'free_surface_ispec' 'create_regions_mesh_ext_par' 'free_surface_ispec'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-64 'free_surface_jacobian2dw' 'create_regions_mesh_ext_par'
-'free_surface_jacobian2dw' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-DEFERRED () () () ()) 0 () () () 0 0)
-65 'free_surface_normal' 'create_regions_mesh_ext_par'
-'free_surface_normal' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED ()
-() () () () ()) 0 () () () 0 0)
-66 'gammaxstore' 'create_regions_mesh_ext_par' 'gammaxstore' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-67 'gammaystore' 'create_regions_mesh_ext_par' 'gammaystore' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-68 'gammazstore' 'create_regions_mesh_ext_par' 'gammazstore' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-69 'gaussalpha' 'create_regions_mesh_ext_par' 'gaussalpha' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') ()
-0 () () () 0 0)
-70 'gaussbeta' 'create_regions_mesh_ext_par' 'gaussbeta' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () ()
-() 0 0)
-71 'hugeval' 'create_regions_mesh_ext_par' 'hugeval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.c9f2c9cd046750 at 25') () 0 () ()
-() 0 0)
-72 'ianisotropy_model1' 'create_regions_mesh_ext_par' 'ianisotropy_model1'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'1') () 0 () () () 0 0)
-73 'ianisotropy_model2' 'create_regions_mesh_ext_par' 'ianisotropy_model2'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'2') () 0 () () () 0 0)
-74 'idomain_acoustic' 'create_regions_mesh_ext_par' 'idomain_acoustic' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER
-4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()
-0 () () () 0 0)
-75 'idomain_elastic' 'create_regions_mesh_ext_par' 'idomain_elastic' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0
-() () () 0 0)
-76 'idomain_poroelastic' 'create_regions_mesh_ext_par'
-'idomain_poroelastic' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0
-0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-77 'ignore_junk' 'create_regions_mesh_ext_par' 'ignore_junk' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-78 'iin' 'create_regions_mesh_ext_par' 'iin' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '40') () 0 ()
-() () 0 0)
-79 'iin_interfaces' 'create_regions_mesh_ext_par' 'iin_interfaces' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '43') () 0
-() () () 0 0)
-80 'iin_noise' 'create_regions_mesh_ext_par' 'iin_noise' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '44') () 0 ()
-() () 0 0)
-81 'iin_su1' 'create_regions_mesh_ext_par' 'iin_su1' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '47') () 0 ()
-() () 0 0)
-82 'iin_su2' 'create_regions_mesh_ext_par' 'iin_su2' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '48') () 0 ()
-() () 0 0)
-83 'iin_su3' 'create_regions_mesh_ext_par' 'iin_su3' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '49') () 0 ()
-() () 0 0)
-84 'ilonglat2utm' 'create_regions_mesh_ext_par' 'ilonglat2utm' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0
-() () () 0 0)
-85 'imain' 'create_regions_mesh_ext_par' 'imain' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '42') () 0 ()
-() () 0 0)
-86 'in_data_files_path' 'create_regions_mesh_ext_par' 'in_data_files_path'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256')))
-0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_data_files/ ')
-() 0 () () () 0 0)
-87 'iostf' 'create_regions_mesh_ext_par' 'iostf' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '71') () 0 ()
-() () 0 0)
-88 'iout' 'create_regions_mesh_ext_par' 'iout' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '41') () 0 ()
-() () 0 0)
-89 'iout_noise' 'create_regions_mesh_ext_par' 'iout_noise' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '45') () 0
-() () () 0 0)
-90 'iout_su' 'create_regions_mesh_ext_par' 'iout_su' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '46') () 0 ()
-() () 0 0)
-91 'iovtk' 'create_regions_mesh_ext_par' 'iovtk' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '98') () 0 ()
-() () 0 0)
-92 'ispec_is_acoustic' 'create_regions_mesh_ext_par' 'ispec_is_acoustic'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-93 'ispec_is_elastic' 'create_regions_mesh_ext_par' 'ispec_is_elastic' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-94 'ispec_is_poroelastic' 'create_regions_mesh_ext_par'
-'ispec_is_poroelastic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN ALLOCATABLE DIMENSION) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-95 'istandard_output' 'create_regions_mesh_ext_par' 'istandard_output' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER
-4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') ()
-0 () () () 0 0)
-96 'itag' 'create_regions_mesh_ext_par' 'itag' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () ()
-() 0 0)
-97 'itag2' 'create_regions_mesh_ext_par' 'itag2' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () ()
-() 0 0)
-98 'iutm2longlat' 'create_regions_mesh_ext_par' 'iutm2longlat' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0
-() () () 0 0)
-99 'jacobianstore' 'create_regions_mesh_ext_par' 'jacobianstore' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-100 'kappastore' 'create_regions_mesh_ext_par' 'kappastore' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-101 'local_path_is_also_global' 'create_regions_mesh_ext_par'
-'local_path_is_also_global' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-102 'local_path_q' 'create_regions_mesh_ext_par' 'local_path_q' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER
-1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 ()
-(CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/DATABASES_MPI ')
-() 0 () () () 0 0)
-103 'm1' 'create_regions_mesh_ext_par' 'm1' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-104 'm2' 'create_regions_mesh_ext_par' 'm2' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0)
-105 'max_length_network_name' 'create_regions_mesh_ext_par'
-'max_length_network_name' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-106 'max_length_station_name' 'create_regions_mesh_ext_par'
-'max_length_station_name' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '32') () 0 () () () 0 0)
-107 'mf_in_data_files_path' 'create_regions_mesh_ext_par'
-'mf_in_data_files_path' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4
-0 0 INTEGER ()) 0 '256'))) 0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (
-())) 0 256
-'../in_data_files/meshfem3D_files/ ')
-() 0 () () () 0 0)
-108 'minimum_thickness_3d_oceans' 'create_regions_mesh_ext_par'
-'minimum_thickness_3d_oceans' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.a0000000000000 at 1') () 0 () () () 0 0)
-109 'mustore' 'create_regions_mesh_ext_par' 'mustore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-110 'n_sls' 'create_regions_mesh_ext_par' 'n_sls' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () ()
-() 0 0)
-111 'ndim' 'create_regions_mesh_ext_par' 'ndim' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () ()
-() 0 0)
-112 'ndim2d' 'create_regions_mesh_ext_par' 'ndim2d' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-113 'ngather_sources' 'create_regions_mesh_ext_par' 'ngather_sources' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER
-4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100') ()
-0 () () () 0 0)
-114 'ngllcube' 'create_regions_mesh_ext_par' 'ngllcube' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '125') () 0 ()
-() () 0 0)
-115 'ngllcube_ndim' 'create_regions_mesh_ext_par' 'ngllcube_ndim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '375') ()
-0 () () () 0 0)
-116 'ngllsquare' 'create_regions_mesh_ext_par' 'ngllsquare' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '25') () 0
-() () () 0 0)
-117 'ngllsquare_ndim' 'create_regions_mesh_ext_par' 'ngllsquare_ndim' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER
-4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '75') ()
-0 () () () 0 0)
-118 'ngllx' 'create_regions_mesh_ext_par' 'ngllx' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () ()
-() 0 0)
-119 'nglly' 'create_regions_mesh_ext_par' 'nglly' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () ()
-() 0 0)
-120 'ngllz' 'create_regions_mesh_ext_par' 'ngllz' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () ()
-() 0 0)
-121 'nglob_ocean' 'create_regions_mesh_ext_par' 'nglob_ocean' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-122 'ngnod' 'create_regions_mesh_ext_par' 'ngnod' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () ()
-() 0 0)
-123 'ngnod2d' 'create_regions_mesh_ext_par' 'ngnod2d' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-124 'ngnod2d_avs_dx' 'create_regions_mesh_ext_par' 'ngnod2d_avs_dx' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0
-() () () 0 0)
-125 'nlines_per_cmtsolution_source' 'create_regions_mesh_ext_par'
-'nlines_per_cmtsolution_source' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
-126 'nspec_aniso' 'create_regions_mesh_ext_par' 'nspec_aniso' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-127 'nstep_q_save' 'create_regions_mesh_ext_par' 'nstep_q_save' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '50') () 0
-() () () 0 0)
-128 'num_abs_boundary_faces' 'create_regions_mesh_ext_par'
-'num_abs_boundary_faces' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-129 'num_coupling_ac_el_faces' 'create_regions_mesh_ext_par'
-'num_coupling_ac_el_faces' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-130 'num_free_surface_faces' 'create_regions_mesh_ext_par'
-'num_free_surface_faces' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-131 'num_iter' 'create_regions_mesh_ext_par' 'num_iter' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-132 'nx_topo_socal' 'create_regions_mesh_ext_par' 'nx_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1401') ()
-0 () () () 0 0)
-133 'ny_topo_socal' 'create_regions_mesh_ext_par' 'ny_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1001') ()
-0 () () () 0 0)
-134 'olsen_attenuation_ratio' 'create_regions_mesh_ext_par'
-'olsen_attenuation_ratio' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (CONSTANT (REAL 4 0 0
-REAL ()) 0 '0.cccccd0 at -1') () 0 () () () 0 0)
-135 'one' 'create_regions_mesh_ext_par' 'one' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.10000000000000 at 1') () 0 () ()
-() 0 0)
-136 'one_third' 'create_regions_mesh_ext_par' 'one_third' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.5555558 at 0') () 0 () () () 0 0)
-137 'orig_lat_topo_socal' 'create_regions_mesh_ext_par'
-'orig_lat_topo_socal' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ())
-0 '0.20000000000000 at 2') () 0 () () () 0 0)
-138 'orig_long_topo_socal' 'create_regions_mesh_ext_par'
-'orig_long_topo_socal' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ())
-0 '-0.79000000000000 at 2') () 0 () () () 0 0)
-139 'output_files_path' 'create_regions_mesh_ext_par' 'output_files_path'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256')))
-0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/OUTPUT_FILES/ ')
-() 0 () () () 0 0)
-140 'pi' 'create_regions_mesh_ext_par' 'pi' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.3243f6a8885a30 at 1') () 0 () () () 0 0)
-141 'plot_cross_sections' 'create_regions_mesh_ext_par'
-'plot_cross_sections' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0
-0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-142 'pnm_gif_image' 'create_regions_mesh_ext_par' 'pnm_gif_image' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-143 'prname' 'create_regions_mesh_ext_par' 'prname' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0
-0)
-144 'qmu_attenuation_store' 'create_regions_mesh_ext_par'
-'qmu_attenuation_store' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED ()
-() () () () () () ()) 0 () () () 0 0)
-145 'recvs_can_be_buried_ext_mesh' 'create_regions_mesh_ext_par'
-'recvs_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-146 'rho_oceans' 'create_regions_mesh_ext_par' 'rho_oceans' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.3fc0000 at 3') () 0 ()
-() () 0 0)
-147 'rho_vp' 'create_regions_mesh_ext_par' 'rho_vp' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-148 'rho_vs' 'create_regions_mesh_ext_par' 'rho_vs' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-149 'rhostore' 'create_regions_mesh_ext_par' 'rhostore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-150 'rmass' 'create_regions_mesh_ext_par' 'rmass' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-151 'rmass_acoustic' 'create_regions_mesh_ext_par' 'rmass_acoustic' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-152 'rmass_fluid_poroelastic' 'create_regions_mesh_ext_par'
-'rmass_fluid_poroelastic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-153 'rmass_ocean_load' 'create_regions_mesh_ext_par' 'rmass_ocean_load'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-154 'rmass_solid_poroelastic' 'create_regions_mesh_ext_par'
-'rmass_solid_poroelastic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-155 'save_moho_mesh' 'create_regions_mesh_ext_par' 'save_moho_mesh' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-156 'seismograms_binary' 'create_regions_mesh_ext_par'
-'seismograms_binary' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0
-0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-157 'shape2d_bottom' 'create_regions_mesh_ext_par' 'shape2d_bottom' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0
-() () () 0 0)
-158 'shape2d_top' 'create_regions_mesh_ext_par' 'shape2d_top' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0
-() () () 0 0)
-159 'shape2d_x' 'create_regions_mesh_ext_par' 'shape2d_x' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () () () 0 0)
-160 'shape2d_y' 'create_regions_mesh_ext_par' 'shape2d_y' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () () () 0 0)
-161 'shape3d' 'create_regions_mesh_ext_par' 'shape3d' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-162 'show_details_locate_source' 'create_regions_mesh_ext_par'
-'show_details_locate_source' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-163 'size_double' 'create_regions_mesh_ext_par' 'size_double' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0
-() () () 0 0)
-164 'size_integer' 'create_regions_mesh_ext_par' 'size_integer' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0
-() () () 0 0)
-165 'size_logical' 'create_regions_mesh_ext_par' 'size_logical' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0
-() () () 0 0)
-166 'size_real' 'create_regions_mesh_ext_par' 'size_real' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-167 'smallval' 'create_regions_mesh_ext_par' 'smallval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.a7c5ac471b4788 at -4') () 0 () ()
-() 0 0)
-168 'smallval_tol' 'create_regions_mesh_ext_par' 'smallval_tol' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6df37f675ef6ec at -8')
-() 0 () () () 0 0)
-169 'source_decay_mimic_triangle' 'create_regions_mesh_ext_par'
-'source_decay_mimic_triangle' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.1a0c49ba5e353f at 1') () 0 () () () 0 0)
-170 'sources_can_be_buried_ext_mesh' 'create_regions_mesh_ext_par'
-'sources_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-171 'stability_threshold' 'create_regions_mesh_ext_par'
-'stability_threshold' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ())
-0 '0.8459510 at 21') () 0 () () () 0 0)
-172 'su_format' 'create_regions_mesh_ext_par' 'su_format' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-173 'tinyval' 'create_regions_mesh_ext_par' 'tinyval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.44b82fa09b5a54 at -7') () 0 () ()
-() 0 0)
-174 'tinyval_sngl' 'create_regions_mesh_ext_par' 'tinyval_sngl' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1ef2d10 at -20') () 0 ()
-() () 0 0)
-175 'topo_file_socal' 'create_regions_mesh_ext_par' 'topo_file_socal' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100')))
-0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 100
-'DATA/la_topography/topo_bathy_final.dat ')
-() 0 () () () 0 0)
-176 'two' 'create_regions_mesh_ext_par' 'two' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.20000000000000 at 1') () 0 () ()
-() 0 0)
-177 'two_pi' 'create_regions_mesh_ext_par' 'two_pi' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6487ed5110b460 at 1') () 0 () ()
-() 0 0)
-178 'use_deville_products' 'create_regions_mesh_ext_par'
-'use_deville_products' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0
-0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-179 'use_force_point_source' 'create_regions_mesh_ext_par'
-'use_force_point_source' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-180 'use_model_external_values' 'create_regions_mesh_ext_par'
-'use_model_external_values' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-181 'use_output_files_path' 'create_regions_mesh_ext_par'
-'use_output_files_path' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-182 'use_sources_recvs_z' 'create_regions_mesh_ext_par'
-'use_sources_recvs_z' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0
-0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-183 'user_t0' 'create_regions_mesh_ext_par' 'user_t0' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () ()
-() 0 0)
-184 'verysmallval' 'create_regions_mesh_ext_par' 'verysmallval' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1357c2a at -19') () 0 ()
-() () 0 0)
-185 'wgllwgll_xy' 'create_regions_mesh_ext_par' 'wgllwgll_xy' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () ()
-() 0 0)
-186 'wgllwgll_xz' 'create_regions_mesh_ext_par' 'wgllwgll_xz' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () ()
-() 0 0)
-187 'wgllwgll_yz' 'create_regions_mesh_ext_par' 'wgllwgll_yz' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () ()
-() 0 0)
-188 'write_seismograms_by_master' 'create_regions_mesh_ext_par'
-'write_seismograms_by_master' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-189 'wxgll' 'create_regions_mesh_ext_par' 'wxgll' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-190 'wygll' 'create_regions_mesh_ext_par' 'wygll' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-191 'wzgll' 'create_regions_mesh_ext_par' 'wzgll' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-192 'xelm' 'create_regions_mesh_ext_par' 'xelm' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-193 'xigll' 'create_regions_mesh_ext_par' 'xigll' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-194 'xixstore' 'create_regions_mesh_ext_par' 'xixstore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-195 'xiystore' 'create_regions_mesh_ext_par' 'xiystore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-196 'xizstore' 'create_regions_mesh_ext_par' 'xizstore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-197 'xstore_dummy' 'create_regions_mesh_ext_par' 'xstore_dummy' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-198 'yelm' 'create_regions_mesh_ext_par' 'yelm' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-199 'yigll' 'create_regions_mesh_ext_par' 'yigll' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-200 'ystore_dummy' 'create_regions_mesh_ext_par' 'ystore_dummy' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-201 'zelm' 'create_regions_mesh_ext_par' 'zelm' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-202 'zero' 'create_regions_mesh_ext_par' 'zero' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () ()
-() 0 0)
-203 'zigll' 'create_regions_mesh_ext_par' 'zigll' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-204 'zstore_dummy' 'create_regions_mesh_ext_par' 'zstore_dummy' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-)
-
-('abs_boundary_ijk' 0 2 'abs_boundary_ispec' 0 3
-'abs_boundary_jacobian2dw' 0 4 'abs_boundary_normal' 0 5
-'absorb_free_surface' 0 6 'absorb_use_pml' 0 7 'apply_heuristic_rule' 0
-8 'approximate_hess_kl' 0 9 'attenuation_comp_maximum' 0 10
-'attenuation_comp_resolution' 0 11 'attenuation_f0_reference' 0 12
-'c11store' 0 13 'c12store' 0 14 'c13store' 0 15 'c14store' 0 16 'c15store'
-0 17 'c16store' 0 18 'c22store' 0 19 'c23store' 0 20 'c24store' 0 21
-'c25store' 0 22 'c26store' 0 23 'c33store' 0 24 'c34store' 0 25 'c35store'
-0 26 'c36store' 0 27 'c44store' 0 28 'c45store' 0 29 'c46store' 0 30
-'c55store' 0 31 'c56store' 0 32 'c66store' 0 33 'component_force_source'
-0 34 'coupling_ac_el_ijk' 0 35 'coupling_ac_el_ispec' 0 36
-'coupling_ac_el_jacobian2dw' 0 37 'coupling_ac_el_normal' 0 38
-'create_regions_mesh_ext_par' 0 39 'cross_section_x' 0 40
-'cross_section_y' 0 41 'cross_section_z' 0 42 'custom_real' 0 43
-'degrees_per_cell_topo_socal' 0 44 'dershape2d_bottom' 0 45
-'dershape2d_top' 0 46 'dershape2d_x' 0 47 'dershape2d_y' 0 48 'dershape3d'
-0 49 'dont_ignore_junk' 0 50 'esize' 0 51 'etaxstore' 0 52 'etaystore' 0
-53 'etazstore' 0 54 'ext_mesh_recv_normal' 0 55
-'external_mesh_create_shakemap' 0 56 'external_mesh_movie_surface' 0 57
-'factor_force_source' 0 58 'faster_receivers_points_only' 0 59
-'fix_underflow_problem' 0 60 'four_thirds' 0 61 'free_surface_ijk' 0 62
-'free_surface_ispec' 0 63 'free_surface_jacobian2dw' 0 64
-'free_surface_normal' 0 65 'gammaxstore' 0 66 'gammaystore' 0 67
-'gammazstore' 0 68 'gaussalpha' 0 69 'gaussbeta' 0 70 'hugeval' 0 71
-'ianisotropy_model1' 0 72 'ianisotropy_model2' 0 73 'idomain_acoustic' 0
-74 'idomain_elastic' 0 75 'idomain_poroelastic' 0 76 'ignore_junk' 0 77
-'iin' 0 78 'iin_interfaces' 0 79 'iin_noise' 0 80 'iin_su1' 0 81 'iin_su2'
-0 82 'iin_su3' 0 83 'ilonglat2utm' 0 84 'imain' 0 85 'in_data_files_path'
-0 86 'iostf' 0 87 'iout' 0 88 'iout_noise' 0 89 'iout_su' 0 90 'iovtk' 0
-91 'ispec_is_acoustic' 0 92 'ispec_is_elastic' 0 93 'ispec_is_poroelastic'
-0 94 'istandard_output' 0 95 'itag' 0 96 'itag2' 0 97 'iutm2longlat' 0
-98 'jacobianstore' 0 99 'kappastore' 0 100 'local_path_is_also_global' 0
-101 'local_path_q' 0 102 'm1' 0 103 'm2' 0 104 'max_length_network_name'
-0 105 'max_length_station_name' 0 106 'mf_in_data_files_path' 0 107
-'minimum_thickness_3d_oceans' 0 108 'mustore' 0 109 'n_sls' 0 110 'ndim'
-0 111 'ndim2d' 0 112 'ngather_sources' 0 113 'ngllcube' 0 114
-'ngllcube_ndim' 0 115 'ngllsquare' 0 116 'ngllsquare_ndim' 0 117 'ngllx'
-0 118 'nglly' 0 119 'ngllz' 0 120 'nglob_ocean' 0 121 'ngnod' 0 122
-'ngnod2d' 0 123 'ngnod2d_avs_dx' 0 124 'nlines_per_cmtsolution_source' 0
-125 'nspec_aniso' 0 126 'nstep_q_save' 0 127 'num_abs_boundary_faces' 0
-128 'num_coupling_ac_el_faces' 0 129 'num_free_surface_faces' 0 130
-'num_iter' 0 131 'nx_topo_socal' 0 132 'ny_topo_socal' 0 133
-'olsen_attenuation_ratio' 0 134 'one' 0 135 'one_third' 0 136
-'orig_lat_topo_socal' 0 137 'orig_long_topo_socal' 0 138
-'output_files_path' 0 139 'pi' 0 140 'plot_cross_sections' 0 141
-'pnm_gif_image' 0 142 'prname' 0 143 'qmu_attenuation_store' 0 144
-'recvs_can_be_buried_ext_mesh' 0 145 'rho_oceans' 0 146 'rho_vp' 0 147
-'rho_vs' 0 148 'rhostore' 0 149 'rmass' 0 150 'rmass_acoustic' 0 151
-'rmass_fluid_poroelastic' 0 152 'rmass_ocean_load' 0 153
-'rmass_solid_poroelastic' 0 154 'save_moho_mesh' 0 155
-'seismograms_binary' 0 156 'shape2d_bottom' 0 157 'shape2d_top' 0 158
-'shape2d_x' 0 159 'shape2d_y' 0 160 'shape3d' 0 161
-'show_details_locate_source' 0 162 'size_double' 0 163 'size_integer' 0
-164 'size_logical' 0 165 'size_real' 0 166 'smallval' 0 167 'smallval_tol'
-0 168 'source_decay_mimic_triangle' 0 169 'sources_can_be_buried_ext_mesh'
-0 170 'stability_threshold' 0 171 'su_format' 0 172 'tinyval' 0 173
-'tinyval_sngl' 0 174 'topo_file_socal' 0 175 'two' 0 176 'two_pi' 0 177
-'use_deville_products' 0 178 'use_force_point_source' 0 179
-'use_model_external_values' 0 180 'use_output_files_path' 0 181
-'use_sources_recvs_z' 0 182 'user_t0' 0 183 'verysmallval' 0 184
-'wgllwgll_xy' 0 185 'wgllwgll_xz' 0 186 'wgllwgll_yz' 0 187
-'write_seismograms_by_master' 0 188 'wxgll' 0 189 'wygll' 0 190 'wzgll'
-0 191 'xelm' 0 192 'xigll' 0 193 'xixstore' 0 194 'xiystore' 0 195
-'xizstore' 0 196 'xstore_dummy' 0 197 'yelm' 0 198 'yigll' 0 199
-'ystore_dummy' 0 200 'zelm' 0 201 'zero' 0 202 'zigll' 0 203
-'zstore_dummy' 0 204)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/external_model.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/external_model.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/external_model.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,20 +0,0 @@
-GFORTRAN module version '0' created from model_external_values.f90 on Wed Sep 28 14:35:22 2011
-MD5:80bbabf41a66e73ec2df0531a8e18923 -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () () () () ()
-() () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'external_model' 'external_model' 'external_model' 1 ((MODULE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ())
-0 0 () () 0 () () () 0 0)
-)
-
-('external_model' 0 2)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/generate_databases_par.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/generate_databases_par.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/generate_databases_par.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,923 +0,0 @@
-GFORTRAN module version '0' created from generate_databases.f90 on Wed Sep 28 14:35:22 2011
-MD5:49a59b7c6da2e436ae6aa145cf0955e7 -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () () () () ()
-() () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'absorb_free_surface' 'generate_databases_par' 'absorb_free_surface'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-3 'absorb_use_pml' 'generate_databases_par' 'absorb_use_pml' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-4 'absorbing_conditions' 'generate_databases_par' 'absorbing_conditions'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-5 'anisotropy' 'generate_databases_par' 'anisotropy' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-6 'apply_heuristic_rule' 'generate_databases_par' 'apply_heuristic_rule'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-1) () 0 () () () 0 0)
-7 'approximate_hess_kl' 'generate_databases_par' 'approximate_hess_kl' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL
-4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0
-() () () 0 0)
-8 'attenuation' 'generate_databases_par' 'attenuation' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-9 'attenuation_comp_maximum' 'generate_databases_par'
-'attenuation_comp_maximum' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '9000') () 0 () () () 0 0)
-10 'attenuation_comp_resolution' 'generate_databases_par'
-'attenuation_comp_resolution' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0)
-11 'attenuation_f0_reference' 'generate_databases_par'
-'attenuation_f0_reference' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.4ccccccccccccc at 0') () 0 () () () 0 0)
-12 'boundary_number' 'generate_databases_par' 'boundary_number' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-13 'component_force_source' 'generate_databases_par'
-'component_force_source' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-14 'create_shakemap' 'generate_databases_par' 'create_shakemap' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-15 'cross_section_x' 'generate_databases_par' 'cross_section_x' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.105b800 at 5') () 0 ()
-() () 0 0)
-16 'cross_section_y' 'generate_databases_par' 'cross_section_y' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.ffdc000 at 4') () 0 ()
-() () 0 0)
-17 'cross_section_z' 'generate_databases_par' 'cross_section_z' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '-0.7530000 at 4') () 0 ()
-() () 0 0)
-18 'custom_real' 'generate_databases_par' 'custom_real' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-19 'degrees_per_cell_topo' 'generate_databases_par'
-'degrees_per_cell_topo' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-20 'degrees_per_cell_topo_socal' 'generate_databases_par'
-'degrees_per_cell_topo_socal' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.147ae147ae147b at -1') () 0 () () () 0 0)
-21 'dont_ignore_junk' 'generate_databases_par' 'dont_ignore_junk' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-22 'dt' 'generate_databases_par' 'dt' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-23 'dummy_elmnt' 'generate_databases_par' 'dummy_elmnt' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-24 'dummy_node' 'generate_databases_par' 'dummy_node' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-25 'elmnts_ext_mesh' 'generate_databases_par' 'elmnts_ext_mesh' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-26 'esize' 'generate_databases_par' 'esize' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-27 'ext_mesh_recv_normal' 'generate_databases_par' 'ext_mesh_recv_normal'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-28 'external_mesh_create_shakemap' 'generate_databases_par'
-'external_mesh_create_shakemap' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-29 'external_mesh_movie_surface' 'generate_databases_par'
-'external_mesh_movie_surface' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-30 'factor_force_source' 'generate_databases_par' 'factor_force_source'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8
-0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.38d7ea4c680000 at 13')
-() 0 () () () 0 0)
-31 'faster_receivers_points_only' 'generate_databases_par'
-'faster_receivers_points_only' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-32 'fix_underflow_problem' 'generate_databases_par'
-'fix_underflow_problem' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-33 'four_thirds' 'generate_databases_par' 'four_thirds' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1555556 at 1') () 0 () () () 0 0)
-34 'gaussalpha' 'generate_databases_par' 'gaussalpha' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () ()
-() 0 0)
-35 'gaussbeta' 'generate_databases_par' 'gaussbeta' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () ()
-() 0 0)
-36 'generate_databases_par' 'generate_databases_par'
-'generate_databases_par' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-37 'hdur_movie' 'generate_databases_par' 'hdur_movie' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-38 'hugeval' 'generate_databases_par' 'hugeval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.c9f2c9cd046750 at 25') () 0 () ()
-() 0 0)
-39 'ianisotropy_model1' 'generate_databases_par' 'ianisotropy_model1' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER
-4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') ()
-0 () () () 0 0)
-40 'ianisotropy_model2' 'generate_databases_par' 'ianisotropy_model2' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER
-4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') ()
-0 () () () 0 0)
-41 'ibelm_bottom' 'generate_databases_par' 'ibelm_bottom' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-42 'ibelm_moho' 'generate_databases_par' 'ibelm_moho' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-43 'ibelm_top' 'generate_databases_par' 'ibelm_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-44 'ibelm_xmax' 'generate_databases_par' 'ibelm_xmax' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-45 'ibelm_xmin' 'generate_databases_par' 'ibelm_xmin' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-46 'ibelm_ymax' 'generate_databases_par' 'ibelm_ymax' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-47 'ibelm_ymin' 'generate_databases_par' 'ibelm_ymin' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-48 'ibool' 'generate_databases_par' 'ibool' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-49 'ibool_interfaces_ext_mesh' 'generate_databases_par'
-'ibool_interfaces_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(2 DEFERRED () () () ()) 0 () () () 0 0)
-50 'ibool_interfaces_ext_mesh_dummy' 'generate_databases_par'
-'ibool_interfaces_ext_mesh_dummy' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-51 'icorner' 'generate_databases_par' 'icorner' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-52 'idomain_acoustic' 'generate_databases_par' 'idomain_acoustic' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0
-() () () 0 0)
-53 'idomain_elastic' 'generate_databases_par' 'idomain_elastic' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0
-() () () 0 0)
-54 'idomain_poroelastic' 'generate_databases_par' 'idomain_poroelastic'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'3') () 0 () () () 0 0)
-55 'ie' 'generate_databases_par' 'ie' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-56 'ier' 'generate_databases_par' 'ier' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-57 'iface' 'generate_databases_par' 'iface' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-58 'iglob_is_surface_external_mesh' 'generate_databases_par'
-'iglob_is_surface_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-59 'ignore_junk' 'generate_databases_par' 'ignore_junk' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () ()
-() 0 0)
-60 'iin' 'generate_databases_par' 'iin' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '40') () 0 () () () 0 0)
-61 'iin_interfaces' 'generate_databases_par' 'iin_interfaces' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '43') () 0
-() () () 0 0)
-62 'iin_noise' 'generate_databases_par' 'iin_noise' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '44') () 0 ()
-() () 0 0)
-63 'iin_su1' 'generate_databases_par' 'iin_su1' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '47') () 0 ()
-() () 0 0)
-64 'iin_su2' 'generate_databases_par' 'iin_su2' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '48') () 0 ()
-() () 0 0)
-65 'iin_su3' 'generate_databases_par' 'iin_su3' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '49') () 0 ()
-() () 0 0)
-66 'ilonglat2utm' 'generate_databases_par' 'ilonglat2utm' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () ()
-() 0 0)
-67 'imain' 'generate_databases_par' 'imain' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '42') () 0 () () () 0 0)
-68 'imat' 'generate_databases_par' 'imat' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-69 'in_data_files_path' 'generate_databases_par' 'in_data_files_path' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256')))
-0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_data_files/ ')
-() 0 () () () 0 0)
-70 'inode' 'generate_databases_par' 'inode' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-71 'iostf' 'generate_databases_par' 'iostf' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '71') () 0 () () () 0 0)
-72 'iout' 'generate_databases_par' 'iout' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '41') () 0 () () () 0 0)
-73 'iout_noise' 'generate_databases_par' 'iout_noise' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '45') () 0 ()
-() () 0 0)
-74 'iout_su' 'generate_databases_par' 'iout_su' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '46') () 0 ()
-() () 0 0)
-75 'iovtk' 'generate_databases_par' 'iovtk' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '98') () 0 () () () 0 0)
-76 'ispec' 'generate_databases_par' 'ispec' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-77 'ispec2d' 'generate_databases_par' 'ispec2d' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-78 'ispec_is_surface_external_mesh' 'generate_databases_par'
-'ispec_is_surface_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-79 'istandard_output' 'generate_databases_par' 'istandard_output' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0
-() () () 0 0)
-80 'itag' 'generate_databases_par' 'itag' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0)
-81 'itag2' 'generate_databases_par' 'itag2' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0)
-82 'itopo_bathy' 'generate_databases_par' 'itopo_bathy' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-83 'iutm2longlat' 'generate_databases_par' 'iutm2longlat' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-84 'local_path' 'generate_databases_par' 'local_path' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0
-0)
-85 'local_path_is_also_global' 'generate_databases_par'
-'local_path_is_also_global' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-86 'local_path_q' 'generate_databases_par' 'local_path_q' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/DATABASES_MPI ')
-() 0 () () () 0 0)
-87 'm1' 'generate_databases_par' 'm1' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-88 'm2' 'generate_databases_par' 'm2' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0)
-89 'mat_ext_mesh' 'generate_databases_par' 'mat_ext_mesh' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-90 'materials_ext_mesh' 'generate_databases_par' 'materials_ext_mesh' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () ()
-() 0 0)
-91 'max_elevation' 'generate_databases_par' 'max_elevation' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ())
-0 0 () () 0 () () () 0 0)
-92 'max_elevation_all' 'generate_databases_par' 'max_elevation_all' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL
-()) 0 0 () () 0 () () () 0 0)
-93 'max_interface_size_ext_mesh' 'generate_databases_par'
-'max_interface_size_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-94 'max_length_network_name' 'generate_databases_par'
-'max_length_network_name' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-95 'max_length_station_name' 'generate_databases_par'
-'max_length_station_name' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '32') () 0 () () () 0 0)
-96 'max_nibool_interfaces_ext_mesh' 'generate_databases_par'
-'max_nibool_interfaces_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-97 'max_static_memory_size' 'generate_databases_par'
-'max_static_memory_size' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-98 'max_static_memory_size_request' 'generate_databases_par'
-'max_static_memory_size_request' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-99 'mf_in_data_files_path' 'generate_databases_par'
-'mf_in_data_files_path' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4
-0 0 INTEGER ()) 0 '256'))) 0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (
-())) 0 256
-'../in_data_files/meshfem3D_files/ ')
-() 0 () () () 0 0)
-100 'min_elevation' 'generate_databases_par' 'min_elevation' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ())
-0 0 () () 0 () () () 0 0)
-101 'min_elevation_all' 'generate_databases_par' 'min_elevation_all' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL
-()) 0 0 () () 0 () () () 0 0)
-102 'minimum_thickness_3d_oceans' 'generate_databases_par'
-'minimum_thickness_3d_oceans' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.a0000000000000 at 1') () 0 () () () 0 0)
-103 'movie_surface' 'generate_databases_par' 'movie_surface' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-104 'movie_volume' 'generate_databases_par' 'movie_volume' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-105 'my_interfaces_ext_mesh' 'generate_databases_par'
-'my_interfaces_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(3 DEFERRED () () () () () ()) 0 () () () 0 0)
-106 'my_neighbours_ext_mesh' 'generate_databases_par'
-'my_neighbours_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 DEFERRED () ()) 0 () () () 0 0)
-107 'my_nelmnts_neighbours_ext_mesh' 'generate_databases_par'
-'my_nelmnts_neighbours_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-108 'myrank' 'generate_databases_par' 'myrank' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-109 'n_sls' 'generate_databases_par' 'n_sls' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () ()
-() 0 0)
-110 'ndim' 'generate_databases_par' 'ndim' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-111 'ndim2d' 'generate_databases_par' 'ndim2d' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-112 'nelmnts_ext_mesh' 'generate_databases_par' 'nelmnts_ext_mesh' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-113 'nfaces_surface_ext_mesh' 'generate_databases_par'
-'nfaces_surface_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-114 'nfaces_surface_glob_ext_mesh' 'generate_databases_par'
-'nfaces_surface_glob_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-115 'ngather_sources' 'generate_databases_par' 'ngather_sources' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100') ()
-0 () () () 0 0)
-116 'ngllcube' 'generate_databases_par' 'ngllcube' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '125') () 0 ()
-() () 0 0)
-117 'ngllcube_ndim' 'generate_databases_par' 'ngllcube_ndim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '375') ()
-0 () () () 0 0)
-118 'ngllsquare' 'generate_databases_par' 'ngllsquare' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '25') () 0 ()
-() () 0 0)
-119 'ngllsquare_ndim' 'generate_databases_par' 'ngllsquare_ndim' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '75') () 0
-() () () 0 0)
-120 'ngllx' 'generate_databases_par' 'ngllx' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () ()
-() 0 0)
-121 'nglly' 'generate_databases_par' 'nglly' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () ()
-() 0 0)
-122 'ngllz' 'generate_databases_par' 'ngllz' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () ()
-() 0 0)
-123 'nglob' 'generate_databases_par' 'nglob' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-124 'nglob_ab' 'generate_databases_par' 'nglob_ab' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-125 'nglob_total' 'generate_databases_par' 'nglob_total' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-126 'ngnod' 'generate_databases_par' 'ngnod' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () ()
-() 0 0)
-127 'ngnod2d' 'generate_databases_par' 'ngnod2d' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-128 'ngnod2d_avs_dx' 'generate_databases_par' 'ngnod2d_avs_dx' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0
-() () () 0 0)
-129 'nibool_interfaces_ext_mesh' 'generate_databases_par'
-'nibool_interfaces_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 DEFERRED () ()) 0 () () () 0 0)
-130 'nlines_per_cmtsolution_source' 'generate_databases_par'
-'nlines_per_cmtsolution_source' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
-131 'nmat_ext_mesh' 'generate_databases_par' 'nmat_ext_mesh' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-132 'nnodes_ext_mesh' 'generate_databases_par' 'nnodes_ext_mesh' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-133 'nodes_coords_ext_mesh' 'generate_databases_par'
-'nodes_coords_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED ()
-() () ()) 0 () () () 0 0)
-134 'nodes_ibelm_bottom' 'generate_databases_par' 'nodes_ibelm_bottom' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-135 'nodes_ibelm_moho' 'generate_databases_par' 'nodes_ibelm_moho' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-136 'nodes_ibelm_top' 'generate_databases_par' 'nodes_ibelm_top' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-137 'nodes_ibelm_xmax' 'generate_databases_par' 'nodes_ibelm_xmax' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-138 'nodes_ibelm_xmin' 'generate_databases_par' 'nodes_ibelm_xmin' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-139 'nodes_ibelm_ymax' 'generate_databases_par' 'nodes_ibelm_ymax' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-140 'nodes_ibelm_ymin' 'generate_databases_par' 'nodes_ibelm_ymin' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-141 'noise_tomography' 'generate_databases_par' 'noise_tomography' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-142 'npointot' 'generate_databases_par' 'npointot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-143 'nproc' 'generate_databases_par' 'nproc' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-144 'nsources' 'generate_databases_par' 'nsources' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-145 'nspec' 'generate_databases_par' 'nspec' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-146 'nspec2d_bottom' 'generate_databases_par' 'nspec2d_bottom' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-147 'nspec2d_bottom_ext' 'generate_databases_par' 'nspec2d_bottom_ext' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-148 'nspec2d_moho_ext' 'generate_databases_par' 'nspec2d_moho_ext' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-149 'nspec2d_top' 'generate_databases_par' 'nspec2d_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-150 'nspec2d_top_ext' 'generate_databases_par' 'nspec2d_top_ext' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-151 'nspec2d_xmax' 'generate_databases_par' 'nspec2d_xmax' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-152 'nspec2d_xmin' 'generate_databases_par' 'nspec2d_xmin' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-153 'nspec2d_ymax' 'generate_databases_par' 'nspec2d_ymax' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-154 'nspec2d_ymin' 'generate_databases_par' 'nspec2d_ymin' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-155 'nspec_ab' 'generate_databases_par' 'nspec_ab' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-156 'nspec_total' 'generate_databases_par' 'nspec_total' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-157 'nstep' 'generate_databases_par' 'nstep' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-158 'nstep_q_save' 'generate_databases_par' 'nstep_q_save' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '50') () 0
-() () () 0 0)
-159 'ntstep_between_frames' 'generate_databases_par'
-'ntstep_between_frames' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-160 'ntstep_between_output_info' 'generate_databases_par'
-'ntstep_between_output_info' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-161 'ntstep_between_output_seismos' 'generate_databases_par'
-'ntstep_between_output_seismos' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-162 'ntstep_between_read_adjsrc' 'generate_databases_par'
-'ntstep_between_read_adjsrc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-163 'num_interface' 'generate_databases_par' 'num_interface' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-164 'num_interfaces_ext_mesh' 'generate_databases_par'
-'num_interfaces_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-165 'num_iter' 'generate_databases_par' 'num_iter' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-166 'nundefmat_ext_mesh' 'generate_databases_par' 'nundefmat_ext_mesh' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-167 'nx_topo' 'generate_databases_par' 'nx_topo' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-168 'nx_topo_socal' 'generate_databases_par' 'nx_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1401') ()
-0 () () () 0 0)
-169 'ny_topo' 'generate_databases_par' 'ny_topo' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-170 'ny_topo_socal' 'generate_databases_par' 'ny_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1001') ()
-0 () () () 0 0)
-171 'oceans' 'generate_databases_par' 'oceans' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-172 'olsen_attenuation_ratio' 'generate_databases_par'
-'olsen_attenuation_ratio' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (CONSTANT (REAL 4 0 0
-REAL ()) 0 '0.cccccd0 at -1') () 0 () () () 0 0)
-173 'one' 'generate_databases_par' 'one' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.10000000000000 at 1') () 0 () () () 0 0)
-174 'one_third' 'generate_databases_par' 'one_third' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.5555558 at 0') () 0 () () () 0 0)
-175 'orig_lat_topo' 'generate_databases_par' 'orig_lat_topo' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ())
-0 0 () () 0 () () () 0 0)
-176 'orig_lat_topo_socal' 'generate_databases_par' 'orig_lat_topo_socal'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8
-0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.20000000000000 at 2')
-() 0 () () () 0 0)
-177 'orig_long_topo' 'generate_databases_par' 'orig_long_topo' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ())
-0 0 () () 0 () () () 0 0)
-178 'orig_long_topo_socal' 'generate_databases_par' 'orig_long_topo_socal'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8
-0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.79000000000000 at 2')
-() 0 () () () 0 0)
-179 'output_files' 'generate_databases_par' 'output_files' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0
-0)
-180 'output_files_path' 'generate_databases_par' 'output_files_path' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256')))
-0 0 () (CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/OUTPUT_FILES/ ')
-() 0 () () () 0 0)
-181 'pi' 'generate_databases_par' 'pi' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.3243f6a8885a30 at 1') () 0 () () () 0 0)
-182 'plot_cross_sections' 'generate_databases_par' 'plot_cross_sections'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-183 'pnm_gif_image' 'generate_databases_par' 'pnm_gif_image' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-184 'print_source_time_function' 'generate_databases_par'
-'print_source_time_function' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
-185 'prname' 'generate_databases_par' 'prname' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0
-0)
-186 'recvs_can_be_buried_ext_mesh' 'generate_databases_par'
-'recvs_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-187 'rho_oceans' 'generate_databases_par' 'rho_oceans' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.3fc0000 at 3') () 0 () () () 0 0)
-188 'save_displacement' 'generate_databases_par' 'save_displacement' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-189 'save_forward' 'generate_databases_par' 'save_forward' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-190 'save_mesh_files' 'generate_databases_par' 'save_mesh_files' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-191 'save_moho_mesh' 'generate_databases_par' 'save_moho_mesh' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-192 'seismograms_binary' 'generate_databases_par' 'seismograms_binary' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL
-4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0
-() () () 0 0)
-193 'show_details_locate_source' 'generate_databases_par'
-'show_details_locate_source' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-194 'simulation_type' 'generate_databases_par' 'simulation_type' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-195 'size_double' 'generate_databases_par' 'size_double' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () ()
-() 0 0)
-196 'size_integer' 'generate_databases_par' 'size_integer' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0
-() () () 0 0)
-197 'size_logical' 'generate_databases_par' 'size_logical' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0
-() () () 0 0)
-198 'size_real' 'generate_databases_par' 'size_real' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-199 'sizeprocs' 'generate_databases_par' 'sizeprocs' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-200 'smallval' 'generate_databases_par' 'smallval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.a7c5ac471b4788 at -4') () 0 () ()
-() 0 0)
-201 'smallval_tol' 'generate_databases_par' 'smallval_tol' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6df37f675ef6ec at -8')
-() 0 () () () 0 0)
-202 'source_decay_mimic_triangle' 'generate_databases_par'
-'source_decay_mimic_triangle' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.1a0c49ba5e353f at 1') () 0 () () () 0 0)
-203 'sources_can_be_buried_ext_mesh' 'generate_databases_par'
-'sources_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-204 'stability_threshold' 'generate_databases_par' 'stability_threshold'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4
-0 0 REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.8459510 at 21') ()
-0 () () () 0 0)
-205 'su_format' 'generate_databases_par' 'su_format' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-206 'suppress_utm_projection' 'generate_databases_par'
-'suppress_utm_projection' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
-207 'tcpu' 'generate_databases_par' 'tcpu' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-208 'time_start' 'generate_databases_par' 'time_start' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-209 'tinyval' 'generate_databases_par' 'tinyval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.44b82fa09b5a54 at -7') () 0 () ()
-() 0 0)
-210 'tinyval_sngl' 'generate_databases_par' 'tinyval_sngl' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1ef2d10 at -20') () 0 ()
-() () 0 0)
-211 'topo_file' 'generate_databases_par' 'topo_file' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () () 0 () () () 0
-0)
-212 'topo_file_socal' 'generate_databases_par' 'topo_file_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER
-1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 ()
-(CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 100
-'DATA/la_topography/topo_bathy_final.dat ')
-() 0 () () () 0 0)
-213 'topography' 'generate_databases_par' 'topography' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-214 'two' 'generate_databases_par' 'two' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.20000000000000 at 1') () 0 () () () 0 0)
-215 'two_pi' 'generate_databases_par' 'two_pi' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6487ed5110b460 at 1') () 0 () ()
-() 0 0)
-216 'undef_mat_prop' 'generate_databases_par' 'undef_mat_prop' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER
-()) 0 '30'))) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-217 'use_deville_products' 'generate_databases_par' 'use_deville_products'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-1) () 0 () () () 0 0)
-218 'use_force_point_source' 'generate_databases_par'
-'use_force_point_source' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-219 'use_highres_for_movies' 'generate_databases_par'
-'use_highres_for_movies' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
-220 'use_model_external_values' 'generate_databases_par'
-'use_model_external_values' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-221 'use_olsen_attenuation' 'generate_databases_par'
-'use_olsen_attenuation' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
-222 'use_output_files_path' 'generate_databases_par'
-'use_output_files_path' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-223 'use_sources_recvs_z' 'generate_databases_par' 'use_sources_recvs_z'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-224 'user_t0' 'generate_databases_par' 'user_t0' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () ()
-() 0 0)
-225 'utm_projection_zone' 'generate_databases_par' 'utm_projection_zone'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-226 'verysmallval' 'generate_databases_par' 'verysmallval' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1357c2a at -19') () 0 ()
-() () 0 0)
-227 'write_seismograms_by_master' 'generate_databases_par'
-'write_seismograms_by_master' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-228 'wtime' 'generate_databases_par' 'wtime' 1 ((PROCEDURE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN EXTERNAL) (REAL 8 0 0 REAL ())
-0 0 () () 0 () () () 0 0)
-229 'xstore' 'generate_databases_par' 'xstore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-230 'ystore' 'generate_databases_par' 'ystore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-231 'zero' 'generate_databases_par' 'zero' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-232 'zstore' 'generate_databases_par' 'zstore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-)
-
-('absorb_free_surface' 0 2 'absorb_use_pml' 0 3 'absorbing_conditions' 0
-4 'anisotropy' 0 5 'apply_heuristic_rule' 0 6 'approximate_hess_kl' 0 7
-'attenuation' 0 8 'attenuation_comp_maximum' 0 9
-'attenuation_comp_resolution' 0 10 'attenuation_f0_reference' 0 11
-'boundary_number' 0 12 'component_force_source' 0 13 'create_shakemap' 0
-14 'cross_section_x' 0 15 'cross_section_y' 0 16 'cross_section_z' 0 17
-'custom_real' 0 18 'degrees_per_cell_topo' 0 19
-'degrees_per_cell_topo_socal' 0 20 'dont_ignore_junk' 0 21 'dt' 0 22
-'dummy_elmnt' 0 23 'dummy_node' 0 24 'elmnts_ext_mesh' 0 25 'esize' 0 26
-'ext_mesh_recv_normal' 0 27 'external_mesh_create_shakemap' 0 28
-'external_mesh_movie_surface' 0 29 'factor_force_source' 0 30
-'faster_receivers_points_only' 0 31 'fix_underflow_problem' 0 32
-'four_thirds' 0 33 'gaussalpha' 0 34 'gaussbeta' 0 35
-'generate_databases_par' 0 36 'hdur_movie' 0 37 'hugeval' 0 38
-'ianisotropy_model1' 0 39 'ianisotropy_model2' 0 40 'ibelm_bottom' 0 41
-'ibelm_moho' 0 42 'ibelm_top' 0 43 'ibelm_xmax' 0 44 'ibelm_xmin' 0 45
-'ibelm_ymax' 0 46 'ibelm_ymin' 0 47 'ibool' 0 48
-'ibool_interfaces_ext_mesh' 0 49 'ibool_interfaces_ext_mesh_dummy' 0 50
-'icorner' 0 51 'idomain_acoustic' 0 52 'idomain_elastic' 0 53
-'idomain_poroelastic' 0 54 'ie' 0 55 'ier' 0 56 'iface' 0 57
-'iglob_is_surface_external_mesh' 0 58 'ignore_junk' 0 59 'iin' 0 60
-'iin_interfaces' 0 61 'iin_noise' 0 62 'iin_su1' 0 63 'iin_su2' 0 64
-'iin_su3' 0 65 'ilonglat2utm' 0 66 'imain' 0 67 'imat' 0 68
-'in_data_files_path' 0 69 'inode' 0 70 'iostf' 0 71 'iout' 0 72
-'iout_noise' 0 73 'iout_su' 0 74 'iovtk' 0 75 'ispec' 0 76 'ispec2d' 0
-77 'ispec_is_surface_external_mesh' 0 78 'istandard_output' 0 79 'itag'
-0 80 'itag2' 0 81 'itopo_bathy' 0 82 'iutm2longlat' 0 83 'local_path' 0
-84 'local_path_is_also_global' 0 85 'local_path_q' 0 86 'm1' 0 87 'm2' 0
-88 'mat_ext_mesh' 0 89 'materials_ext_mesh' 0 90 'max_elevation' 0 91
-'max_elevation_all' 0 92 'max_interface_size_ext_mesh' 0 93
-'max_length_network_name' 0 94 'max_length_station_name' 0 95
-'max_nibool_interfaces_ext_mesh' 0 96 'max_static_memory_size' 0 97
-'max_static_memory_size_request' 0 98 'mf_in_data_files_path' 0 99
-'min_elevation' 0 100 'min_elevation_all' 0 101
-'minimum_thickness_3d_oceans' 0 102 'movie_surface' 0 103 'movie_volume'
-0 104 'my_interfaces_ext_mesh' 0 105 'my_neighbours_ext_mesh' 0 106
-'my_nelmnts_neighbours_ext_mesh' 0 107 'myrank' 0 108 'n_sls' 0 109 'ndim'
-0 110 'ndim2d' 0 111 'nelmnts_ext_mesh' 0 112 'nfaces_surface_ext_mesh'
-0 113 'nfaces_surface_glob_ext_mesh' 0 114 'ngather_sources' 0 115
-'ngllcube' 0 116 'ngllcube_ndim' 0 117 'ngllsquare' 0 118
-'ngllsquare_ndim' 0 119 'ngllx' 0 120 'nglly' 0 121 'ngllz' 0 122 'nglob'
-0 123 'nglob_ab' 0 124 'nglob_total' 0 125 'ngnod' 0 126 'ngnod2d' 0 127
-'ngnod2d_avs_dx' 0 128 'nibool_interfaces_ext_mesh' 0 129
-'nlines_per_cmtsolution_source' 0 130 'nmat_ext_mesh' 0 131
-'nnodes_ext_mesh' 0 132 'nodes_coords_ext_mesh' 0 133 'nodes_ibelm_bottom'
-0 134 'nodes_ibelm_moho' 0 135 'nodes_ibelm_top' 0 136 'nodes_ibelm_xmax'
-0 137 'nodes_ibelm_xmin' 0 138 'nodes_ibelm_ymax' 0 139 'nodes_ibelm_ymin'
-0 140 'noise_tomography' 0 141 'npointot' 0 142 'nproc' 0 143 'nsources'
-0 144 'nspec' 0 145 'nspec2d_bottom' 0 146 'nspec2d_bottom_ext' 0 147
-'nspec2d_moho_ext' 0 148 'nspec2d_top' 0 149 'nspec2d_top_ext' 0 150
-'nspec2d_xmax' 0 151 'nspec2d_xmin' 0 152 'nspec2d_ymax' 0 153
-'nspec2d_ymin' 0 154 'nspec_ab' 0 155 'nspec_total' 0 156 'nstep' 0 157
-'nstep_q_save' 0 158 'ntstep_between_frames' 0 159
-'ntstep_between_output_info' 0 160 'ntstep_between_output_seismos' 0 161
-'ntstep_between_read_adjsrc' 0 162 'num_interface' 0 163
-'num_interfaces_ext_mesh' 0 164 'num_iter' 0 165 'nundefmat_ext_mesh' 0
-166 'nx_topo' 0 167 'nx_topo_socal' 0 168 'ny_topo' 0 169 'ny_topo_socal'
-0 170 'oceans' 0 171 'olsen_attenuation_ratio' 0 172 'one' 0 173
-'one_third' 0 174 'orig_lat_topo' 0 175 'orig_lat_topo_socal' 0 176
-'orig_long_topo' 0 177 'orig_long_topo_socal' 0 178 'output_files' 0 179
-'output_files_path' 0 180 'pi' 0 181 'plot_cross_sections' 0 182
-'pnm_gif_image' 0 183 'print_source_time_function' 0 184 'prname' 0 185
-'recvs_can_be_buried_ext_mesh' 0 186 'rho_oceans' 0 187
-'save_displacement' 0 188 'save_forward' 0 189 'save_mesh_files' 0 190
-'save_moho_mesh' 0 191 'seismograms_binary' 0 192
-'show_details_locate_source' 0 193 'simulation_type' 0 194 'size_double'
-0 195 'size_integer' 0 196 'size_logical' 0 197 'size_real' 0 198
-'sizeprocs' 0 199 'smallval' 0 200 'smallval_tol' 0 201
-'source_decay_mimic_triangle' 0 202 'sources_can_be_buried_ext_mesh' 0
-203 'stability_threshold' 0 204 'su_format' 0 205
-'suppress_utm_projection' 0 206 'tcpu' 0 207 'time_start' 0 208 'tinyval'
-0 209 'tinyval_sngl' 0 210 'topo_file' 0 211 'topo_file_socal' 0 212
-'topography' 0 213 'two' 0 214 'two_pi' 0 215 'undef_mat_prop' 0 216
-'use_deville_products' 0 217 'use_force_point_source' 0 218
-'use_highres_for_movies' 0 219 'use_model_external_values' 0 220
-'use_olsen_attenuation' 0 221 'use_output_files_path' 0 222
-'use_sources_recvs_z' 0 223 'user_t0' 0 224 'utm_projection_zone' 0 225
-'verysmallval' 0 226 'write_seismograms_by_master' 0 227 'wtime' 0 228
-'xstore' 0 229 'ystore' 0 230 'zero' 0 231 'zstore' 0 232)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/tomography.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/tomography.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/generate_databases/tomography.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,548 +0,0 @@
-GFORTRAN module version '0' created from model_tomography.f90 on Wed Sep 28 14:35:22 2011
-MD5:a2f23c903e179cfc70185b9767f338ab -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () () () () ()
-() () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'absorb_free_surface' 'tomography' 'absorb_free_surface' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-3 'absorb_use_pml' 'tomography' 'absorb_use_pml' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-4 'apply_heuristic_rule' 'tomography' 'apply_heuristic_rule' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-5 'approximate_hess_kl' 'tomography' 'approximate_hess_kl' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-6 'attenuation_comp_maximum' 'tomography' 'attenuation_comp_maximum' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9000') ()
-0 () () () 0 0)
-7 'attenuation_comp_resolution' 'tomography' 'attenuation_comp_resolution'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'1') () 0 () () () 0 0)
-8 'attenuation_f0_reference' 'tomography' 'attenuation_f0_reference' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0
-0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.4ccccccccccccc at 0')
-() 0 () () () 0 0)
-9 'component_force_source' 'tomography' 'component_force_source' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0
-() () () 0 0)
-10 'cross_section_x' 'tomography' 'cross_section_x' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.105b800 at 5') () 0 () () () 0 0)
-11 'cross_section_y' 'tomography' 'cross_section_y' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.ffdc000 at 4') () 0 () () () 0 0)
-12 'cross_section_z' 'tomography' 'cross_section_z' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '-0.7530000 at 4') () 0 () () () 0
-0)
-13 'custom_real' 'tomography' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-14 'degrees_per_cell_topo_socal' 'tomography'
-'degrees_per_cell_topo_socal' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.147ae147ae147b at -1') () 0 () () () 0 0)
-15 'dont_ignore_junk' 'tomography' 'dont_ignore_junk' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-16 'end_x' 'tomography' 'end_x' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-17 'end_y' 'tomography' 'end_y' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-18 'end_z' 'tomography' 'end_z' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-19 'esize' 'tomography' 'esize' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-20 'ext_mesh_recv_normal' 'tomography' 'ext_mesh_recv_normal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-21 'external_mesh_create_shakemap' 'tomography'
-'external_mesh_create_shakemap' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-22 'external_mesh_movie_surface' 'tomography'
-'external_mesh_movie_surface' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-23 'factor_force_source' 'tomography' 'factor_force_source' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.38d7ea4c680000 at 13')
-() 0 () () () 0 0)
-24 'faster_receivers_points_only' 'tomography'
-'faster_receivers_points_only' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-25 'fix_underflow_problem' 'tomography' 'fix_underflow_problem' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-26 'four_thirds' 'tomography' 'four_thirds' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1555556 at 1') () 0 () () () 0 0)
-27 'gaussalpha' 'tomography' 'gaussalpha' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-28 'gaussbeta' 'tomography' 'gaussbeta' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-29 'hugeval' 'tomography' 'hugeval' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.c9f2c9cd046750 at 25') () 0 () () () 0 0)
-30 'ianisotropy_model1' 'tomography' 'ianisotropy_model1' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-31 'ianisotropy_model2' 'tomography' 'ianisotropy_model2' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-32 'idomain_acoustic' 'tomography' 'idomain_acoustic' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-33 'idomain_elastic' 'tomography' 'idomain_elastic' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-34 'idomain_poroelastic' 'tomography' 'idomain_poroelastic' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0
-() () () 0 0)
-35 'ignore_junk' 'tomography' 'ignore_junk' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-36 'iin' 'tomography' 'iin' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '40') () 0 () () () 0 0)
-37 'iin_interfaces' 'tomography' 'iin_interfaces' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '43') () 0 ()
-() () 0 0)
-38 'iin_noise' 'tomography' 'iin_noise' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '44') () 0 () () () 0 0)
-39 'iin_su1' 'tomography' 'iin_su1' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '47') () 0 () () () 0 0)
-40 'iin_su2' 'tomography' 'iin_su2' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '48') () 0 () () () 0 0)
-41 'iin_su3' 'tomography' 'iin_su3' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '49') () 0 () () () 0 0)
-42 'ilonglat2utm' 'tomography' 'ilonglat2utm' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () ()
-() 0 0)
-43 'imain' 'tomography' 'imain' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '42') () 0 () () () 0 0)
-44 'in_data_files_path' 'tomography' 'in_data_files_path' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_data_files/ ')
-() 0 () () () 0 0)
-45 'iostf' 'tomography' 'iostf' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '71') () 0 () () () 0 0)
-46 'iout' 'tomography' 'iout' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '41') () 0 () () () 0 0)
-47 'iout_noise' 'tomography' 'iout_noise' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '45') () 0 () () () 0 0)
-48 'iout_su' 'tomography' 'iout_su' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '46') () 0 () () () 0 0)
-49 'iovtk' 'tomography' 'iovtk' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '98') () 0 () () () 0 0)
-50 'istandard_output' 'tomography' 'istandard_output' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () ()
-() 0 0)
-51 'itag' 'tomography' 'itag' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0)
-52 'itag2' 'tomography' 'itag2' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0)
-53 'iutm2longlat' 'tomography' 'iutm2longlat' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-54 'local_path_is_also_global' 'tomography' 'local_path_is_also_global'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-1) () 0 () () () 0 0)
-55 'local_path_q' 'tomography' 'local_path_q' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/DATABASES_MPI ')
-() 0 () () () 0 0)
-56 'm1' 'tomography' 'm1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-57 'm2' 'tomography' 'm2' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0)
-58 'max_length_network_name' 'tomography' 'max_length_network_name' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0
-() () () 0 0)
-59 'max_length_station_name' 'tomography' 'max_length_station_name' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '32') () 0
-() () () 0 0)
-60 'mf_in_data_files_path' 'tomography' 'mf_in_data_files_path' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER
-1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 ()
-(CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_data_files/meshfem3D_files/ ')
-() 0 () () () 0 0)
-61 'minimum_thickness_3d_oceans' 'tomography'
-'minimum_thickness_3d_oceans' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.a0000000000000 at 1') () 0 () () () 0 0)
-62 'n_sls' 'tomography' 'n_sls' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-63 'ndim' 'tomography' 'ndim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-64 'ndim2d' 'tomography' 'ndim2d' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
-65 'ngather_sources' 'tomography' 'ngather_sources' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100') () 0 ()
-() () 0 0)
-66 'ngllcube' 'tomography' 'ngllcube' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '125') () 0 () () () 0 0)
-67 'ngllcube_ndim' 'tomography' 'ngllcube_ndim' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '375') () 0 ()
-() () 0 0)
-68 'ngllsquare' 'tomography' 'ngllsquare' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0)
-69 'ngllsquare_ndim' 'tomography' 'ngllsquare_ndim' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '75') () 0 ()
-() () 0 0)
-70 'ngllx' 'tomography' 'ngllx' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-71 'nglly' 'tomography' 'nglly' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-72 'ngllz' 'tomography' 'ngllz' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-73 'ngnod' 'tomography' 'ngnod' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-74 'ngnod2d' 'tomography' 'ngnod2d' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-75 'ngnod2d_avs_dx' 'tomography' 'ngnod2d_avs_dx' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-76 'nlines_per_cmtsolution_source' 'tomography'
-'nlines_per_cmtsolution_source' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
-77 'nrecord' 'tomography' 'nrecord' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-78 'nstep_q_save' 'tomography' 'nstep_q_save' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '50') () 0 ()
-() () 0 0)
-79 'num_iter' 'tomography' 'num_iter' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-80 'nx' 'tomography' 'nx' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-81 'nx_topo_socal' 'tomography' 'nx_topo_socal' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1401') () 0 ()
-() () 0 0)
-82 'ny' 'tomography' 'ny' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-83 'ny_topo_socal' 'tomography' 'ny_topo_socal' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1001') () 0 ()
-() () 0 0)
-84 'nz' 'tomography' 'nz' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-85 'olsen_attenuation_ratio' 'tomography' 'olsen_attenuation_ratio' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0
-0 REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.cccccd0 at -1') () 0
-() () () 0 0)
-86 'one' 'tomography' 'one' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.10000000000000 at 1') () 0 () () () 0 0)
-87 'one_third' 'tomography' 'one_third' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.5555558 at 0') () 0 () () () 0 0)
-88 'orig_lat_topo_socal' 'tomography' 'orig_lat_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.20000000000000 at 2') ()
-0 () () () 0 0)
-89 'orig_long_topo_socal' 'tomography' 'orig_long_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.79000000000000 at 2')
-() 0 () () () 0 0)
-90 'orig_x' 'tomography' 'orig_x' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-91 'orig_y' 'tomography' 'orig_y' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-92 'orig_z' 'tomography' 'orig_z' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-93 'output_files_path' 'tomography' 'output_files_path' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/OUTPUT_FILES/ ')
-() 0 () () () 0 0)
-94 'pi' 'tomography' 'pi' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.3243f6a8885a30 at 1') () 0 () () () 0 0)
-95 'plot_cross_sections' 'tomography' 'plot_cross_sections' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-96 'pnm_gif_image' 'tomography' 'pnm_gif_image' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-97 'recvs_can_be_buried_ext_mesh' 'tomography'
-'recvs_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-98 'rho_max' 'tomography' 'rho_max' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-99 'rho_min' 'tomography' 'rho_min' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-100 'rho_oceans' 'tomography' 'rho_oceans' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.3fc0000 at 3') () 0 () () () 0 0)
-101 'rho_tomography' 'tomography' 'rho_tomography' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-102 'save_moho_mesh' 'tomography' 'save_moho_mesh' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-103 'seismograms_binary' 'tomography' 'seismograms_binary' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-104 'show_details_locate_source' 'tomography' 'show_details_locate_source'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-105 'size_double' 'tomography' 'size_double' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () ()
-() 0 0)
-106 'size_integer' 'tomography' 'size_integer' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-107 'size_logical' 'tomography' 'size_logical' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-108 'size_real' 'tomography' 'size_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-109 'smallval' 'tomography' 'smallval' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.a7c5ac471b4788 at -4') () 0 () () () 0 0)
-110 'smallval_tol' 'tomography' 'smallval_tol' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6df37f675ef6ec at -8') () 0 () ()
-() 0 0)
-111 'source_decay_mimic_triangle' 'tomography'
-'source_decay_mimic_triangle' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.1a0c49ba5e353f at 1') () 0 () () () 0 0)
-112 'sources_can_be_buried_ext_mesh' 'tomography'
-'sources_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-113 'spacing_x' 'tomography' 'spacing_x' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-114 'spacing_y' 'tomography' 'spacing_y' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-115 'spacing_z' 'tomography' 'spacing_z' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-116 'stability_threshold' 'tomography' 'stability_threshold' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.8459510 at 21') () 0 ()
-() () 0 0)
-117 'su_format' 'tomography' 'su_format' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-118 'tinyval' 'tomography' 'tinyval' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.44b82fa09b5a54 at -7') () 0 () () () 0 0)
-119 'tinyval_sngl' 'tomography' 'tinyval_sngl' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1ef2d10 at -20') () 0 () () () 0
-0)
-120 'tomo_filename' 'tomography' 'tomo_filename' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '80'))) 0 0 () () 0 ()
-() () 0 0)
-121 'tomography' 'tomography' 'tomography' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-122 'topo_file_socal' 'tomography' 'topo_file_socal' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 100
-'DATA/la_topography/topo_bathy_final.dat ')
-() 0 () () () 0 0)
-123 'two' 'tomography' 'two' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.20000000000000 at 1') () 0 () () () 0 0)
-124 'two_pi' 'tomography' 'two_pi' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6487ed5110b460 at 1') () 0 () () () 0 0)
-125 'use_deville_products' 'tomography' 'use_deville_products' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-126 'use_force_point_source' 'tomography' 'use_force_point_source' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-127 'use_model_external_values' 'tomography' 'use_model_external_values'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-128 'use_output_files_path' 'tomography' 'use_output_files_path' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-129 'use_sources_recvs_z' 'tomography' 'use_sources_recvs_z' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-130 'user_t0' 'tomography' 'user_t0' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-131 'verysmallval' 'tomography' 'verysmallval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1357c2a at -19') () 0 () () () 0
-0)
-132 'vp_max' 'tomography' 'vp_max' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-133 'vp_min' 'tomography' 'vp_min' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-134 'vp_tomography' 'tomography' 'vp_tomography' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-135 'vs_max' 'tomography' 'vs_max' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-136 'vs_min' 'tomography' 'vs_min' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-137 'vs_tomography' 'tomography' 'vs_tomography' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-138 'write_seismograms_by_master' 'tomography'
-'write_seismograms_by_master' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-139 'z_tomography' 'tomography' 'z_tomography' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-140 'zero' 'tomography' 'zero' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-)
-
-('absorb_free_surface' 0 2 'absorb_use_pml' 0 3 'apply_heuristic_rule' 0
-4 'approximate_hess_kl' 0 5 'attenuation_comp_maximum' 0 6
-'attenuation_comp_resolution' 0 7 'attenuation_f0_reference' 0 8
-'component_force_source' 0 9 'cross_section_x' 0 10 'cross_section_y' 0
-11 'cross_section_z' 0 12 'custom_real' 0 13 'degrees_per_cell_topo_socal'
-0 14 'dont_ignore_junk' 0 15 'end_x' 0 16 'end_y' 0 17 'end_z' 0 18
-'esize' 0 19 'ext_mesh_recv_normal' 0 20 'external_mesh_create_shakemap'
-0 21 'external_mesh_movie_surface' 0 22 'factor_force_source' 0 23
-'faster_receivers_points_only' 0 24 'fix_underflow_problem' 0 25
-'four_thirds' 0 26 'gaussalpha' 0 27 'gaussbeta' 0 28 'hugeval' 0 29
-'ianisotropy_model1' 0 30 'ianisotropy_model2' 0 31 'idomain_acoustic' 0
-32 'idomain_elastic' 0 33 'idomain_poroelastic' 0 34 'ignore_junk' 0 35
-'iin' 0 36 'iin_interfaces' 0 37 'iin_noise' 0 38 'iin_su1' 0 39 'iin_su2'
-0 40 'iin_su3' 0 41 'ilonglat2utm' 0 42 'imain' 0 43 'in_data_files_path'
-0 44 'iostf' 0 45 'iout' 0 46 'iout_noise' 0 47 'iout_su' 0 48 'iovtk' 0
-49 'istandard_output' 0 50 'itag' 0 51 'itag2' 0 52 'iutm2longlat' 0 53
-'local_path_is_also_global' 0 54 'local_path_q' 0 55 'm1' 0 56 'm2' 0 57
-'max_length_network_name' 0 58 'max_length_station_name' 0 59
-'mf_in_data_files_path' 0 60 'minimum_thickness_3d_oceans' 0 61 'n_sls'
-0 62 'ndim' 0 63 'ndim2d' 0 64 'ngather_sources' 0 65 'ngllcube' 0 66
-'ngllcube_ndim' 0 67 'ngllsquare' 0 68 'ngllsquare_ndim' 0 69 'ngllx' 0
-70 'nglly' 0 71 'ngllz' 0 72 'ngnod' 0 73 'ngnod2d' 0 74 'ngnod2d_avs_dx'
-0 75 'nlines_per_cmtsolution_source' 0 76 'nrecord' 0 77 'nstep_q_save'
-0 78 'num_iter' 0 79 'nx' 0 80 'nx_topo_socal' 0 81 'ny' 0 82
-'ny_topo_socal' 0 83 'nz' 0 84 'olsen_attenuation_ratio' 0 85 'one' 0 86
-'one_third' 0 87 'orig_lat_topo_socal' 0 88 'orig_long_topo_socal' 0 89
-'orig_x' 0 90 'orig_y' 0 91 'orig_z' 0 92 'output_files_path' 0 93 'pi'
-0 94 'plot_cross_sections' 0 95 'pnm_gif_image' 0 96
-'recvs_can_be_buried_ext_mesh' 0 97 'rho_max' 0 98 'rho_min' 0 99
-'rho_oceans' 0 100 'rho_tomography' 0 101 'save_moho_mesh' 0 102
-'seismograms_binary' 0 103 'show_details_locate_source' 0 104
-'size_double' 0 105 'size_integer' 0 106 'size_logical' 0 107 'size_real'
-0 108 'smallval' 0 109 'smallval_tol' 0 110 'source_decay_mimic_triangle'
-0 111 'sources_can_be_buried_ext_mesh' 0 112 'spacing_x' 0 113 'spacing_y'
-0 114 'spacing_z' 0 115 'stability_threshold' 0 116 'su_format' 0 117
-'tinyval' 0 118 'tinyval_sngl' 0 119 'tomo_filename' 0 120 'tomography'
-0 121 'topo_file_socal' 0 122 'two' 0 123 'two_pi' 0 124
-'use_deville_products' 0 125 'use_force_point_source' 0 126
-'use_model_external_values' 0 127 'use_output_files_path' 0 128
-'use_sources_recvs_z' 0 129 'user_t0' 0 130 'verysmallval' 0 131 'vp_max'
-0 132 'vp_min' 0 133 'vp_tomography' 0 134 'vs_max' 0 135 'vs_min' 0 136
-'vs_tomography' 0 137 'write_seismograms_by_master' 0 138 'z_tomography'
-0 139 'zero' 0 140)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/Makefile
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/Makefile 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/Makefile 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,256 +0,0 @@
-#=====================================================================
-#
-# S p e c f e m 3 D V e r s i o n 2 . 0
-# ---------------------------------------
-#
-# Main authors: Dimitri Komatitsch and Jeroen Tromp
-# Princeton University, USA and University of Pau / CNRS / INRIA
-# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-# April 2011
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-#
-#=====================================================================
-#
-# United States Government Sponsorship Acknowledged.
-#
-
-# src/meshfem3D/Makefile. Generated from Makefile.in by configure.
-
-SHARED = ../shared/
-# E : executables directory
-E = ../../bin
-# O : objects directory
-O = ../../obj/mesh
-# L : libraries directory
-L = ../../lib
-
-FC = mpif90
-FCFLAGS = #-g -O2
-MPIFC = mpif90
-MPILIBS =
-FLAGS_CHECK =
-FLAGS_NO_CHECK =
-FCFLAGS_f90 =
-
-FCCOMPILE_CHECK = ${FC} ${FCFLAGS} $(FLAGS_CHECK)
-FCCOMPILE_NO_CHECK = ${FC} ${FCFLAGS} $(FLAGS_NO_CHECK)
-MPIFCCOMPILE_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_CHECK)
-MPIFCCOMPILE_NO_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_NO_CHECK)
-FCLINK = $(MPIFCCOMPILE_NO_CHECK)
-#FCLINK = $(FCCOMPILE_NO_CHECK)
-
-CC = gcc
-CFLAGS = -g -O2 $(CPPFLAGS)
-CPPFLAGS = -I/usr/include/scotch $(COND_MPI_CPPFLAGS)
-COND_MPI_CPPFLAGS = -DWITH_MPI
-#COND_MPI_CPPFLAGS =
-
-AR = ar
-ARFLAGS = cru
-RANLIB = ranlib
-
-# extra defines for the Pyrized version
-#MPICC = mpicc
-#FCLIBS = -L/usr/lib/openmpi/lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3 -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../../../lib -L/lib/../lib -L/usr/lib/../lib -L/usr/lib/gcc/x86_64-linux-gnu/4.4.3/../../.. -L/usr/lib/x86_64-linux-gnu -lmpi_f90 -lmpi_f77 -lmpi -lopen-rte -lopen-pal -ldl -lnsl -lutil -lgfortranbegin -lgfortran -lm -lpthread
-#PYTHON =
-#PYTHON_CFLAGS = $(PYTHON_EGG_CFLAGS) $(PYTHON_CPPFLAGS)
-#PYTHON_CPPFLAGS = $(PYTHON_EGG_CPPFLAGS) -I
-#PYTHON_LDFLAGS = $(PYTHON_EGG_LDFLAGS)
-#OUTPUT_DIR = OUTPUT_FILES
-#PYTHON_EGG_CFLAGS =
-#PYTHON_EGG_CPPFLAGS =
-#PYTHON_EGG_LDFLAGS =
-
-# objects toggled between the pure Fortran and Pyrized version
-#PYRE_EXTRA_OBJECTS = $O/misc.o $O/trampoline.o $O/PyxMeshfem.o
-#COND_PYRE_OBJECTS = $O/PyxParameters.o $(PYRE_EXTRA_OBJECTS)
-
-# objects toggled between the pure Fortran and Pyrized version
-COND_PYRE_OBJECTS = $O/read_value_parameters.o $O/get_value_parameters.o
-
-libmeshfem_a_OBJECTS = \
- $O/store_coords.o \
- $O/read_parameter_file.o \
- $O/check_mesh_quality.o \
- $O/compute_parameters.o \
- $O/create_name_database.o \
- $O/create_regions_mesh.o \
- $O/create_visual_files.o \
- $O/define_subregions.o \
- $O/define_subregions_heuristic.o \
- $O/define_superbrick.o \
- $O/exit_mpi.o \
- $O/get_MPI_cutplanes_eta.o \
- $O/get_MPI_cutplanes_xi.o \
- $O/get_flags_boundaries.o \
- $O/get_global.o \
- $O/store_boundaries.o \
- $O/get_value_parameters.o \
- $O/hex_nodes.o \
- $O/meshfem3D.o \
- $O/read_topo_bathy_file.o \
- $O/read_value_parameters.o \
- $O/save_databases.o \
- $O/utm_geo.o \
- $(EMPTY_MACRO)
-
-# objects toggled between the parallel and serial version
-COND_MPI_OBJECTS = $O/parallel.o
-#COND_MPI_OBJECTS = $O/serial.o
-
-LIBMESHFEM = $(COND_PYRE_OBJECTS) $L/libmeshfem.a
-
-# objects for the pure Fortran version
-XMESHFEM_OBJECTS = $O/program_meshfem3D.o $(LIBMESHFEM)
-
-####
-#### targets
-####
-
-# default targets for the pure Fortran version
-DEFAULT = \
- meshfem3D \
- $(EMPTY_MACRO)
-
-# default targets for the Pyrized version
-#DEFAULT = meshfem3D
-
-
-default: $(DEFAULT)
-
-all: clean default
-
-meshfem3D: xmeshfem3D
-
-
-####
-#### rules for executables
-####
-
-# rules for the pure Fortran version
-xmeshfem3D: $(XMESHFEM_OBJECTS) $(COND_MPI_OBJECTS)
- ${FCLINK} -o ${E}/xmeshfem3D $(XMESHFEM_OBJECTS) $(COND_MPI_OBJECTS) $(MPILIBS)
-
-# solver also depends on values from mesher
-
-
-
-clean:
- rm -f $O/* *.o xmeshfem3D
-
-###
-### rule for the archive library
-###
-
-$L/libmeshfem.a: $(libmeshfem_a_OBJECTS)
- -rm -f $L/libmeshfem.a
- $(AR) $(ARFLAGS) $L/libmeshfem.a $(libmeshfem_a_OBJECTS)
- $(RANLIB) $L/libmeshfem.a
-
-####
-#### rule to build each .o file below
-####
-
-
-###
-### MPI compilation without optimization
-###
-
-$O/parallel.o: ${SHARED}constants.h ${SHARED}/parallel.f90
- ${MPIFCCOMPILE_CHECK} -c -o $O/parallel.o ${SHARED}/parallel.f90
-
-###
-### serial compilation without optimization
-###
-
-$O/serial.o: ${SHARED}constants.h ${SHARED}/serial.f90
- ${FCCOMPILE_CHECK} -c -o $O/serial.o ${SHARED}/serial.f90
-
-$O/program_meshfem3D.o: program_meshfem3D.f90
- ${FCCOMPILE_CHECK} -c -o $O/program_meshfem3D.o program_meshfem3D.f90
-
-$O/meshfem3D.o: ${SHARED}constants.h meshfem3D.f90
- ${FCCOMPILE_CHECK} -c -o $O/meshfem3D.o meshfem3D.f90
-
-$O/exit_mpi.o: ${SHARED}constants.h ${SHARED}/exit_mpi.f90
- ${FCCOMPILE_CHECK} -c -o $O/exit_mpi.o ${SHARED}/exit_mpi.f90
-
-$O/read_parameter_file.o: ${SHARED}constants.h read_parameter_file.f90
- ${FCCOMPILE_CHECK} -c -o $O/read_parameter_file.o read_parameter_file.f90
-
-$O/read_value_parameters.o: ${SHARED}constants.h read_value_parameters.f90
- ${FCCOMPILE_CHECK} -c -o $O/read_value_parameters.o read_value_parameters.f90
-
-$O/get_value_parameters.o: ${SHARED}constants.h get_value_parameters.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_value_parameters.o get_value_parameters.f90
-
-$O/utm_geo.o: ${SHARED}constants.h ${SHARED}/utm_geo.f90
- ${FCCOMPILE_CHECK} -c -o $O/utm_geo.o ${SHARED}/utm_geo.f90
-
-$O/compute_parameters.o: ${SHARED}constants.h compute_parameters.f90
- ${FCCOMPILE_CHECK} -c -o $O/compute_parameters.o compute_parameters.f90
-
-$O/store_coords.o: ${SHARED}constants.h store_coords.f90
- ${FCCOMPILE_CHECK} -c -o $O/store_coords.o store_coords.f90
-
-$O/store_boundaries.o: ${SHARED}constants.h store_boundaries.f90
- ${FCCOMPILE_CHECK} -c -o $O/store_boundaries.o store_boundaries.f90
-
-$O/get_flags_boundaries.o: ${SHARED}constants.h get_flags_boundaries.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_flags_boundaries.o get_flags_boundaries.f90
-
-$O/get_MPI_cutplanes_xi.o: ${SHARED}constants.h get_MPI_cutplanes_xi.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_MPI_cutplanes_xi.o get_MPI_cutplanes_xi.f90
-
-$O/get_MPI_cutplanes_eta.o: ${SHARED}constants.h get_MPI_cutplanes_eta.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_MPI_cutplanes_eta.o get_MPI_cutplanes_eta.f90
-
-$O/get_cmt.o: ${SHARED}constants.h get_cmt.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_cmt.o get_cmt.f90
-
-$O/get_global.o: ${SHARED}constants.h get_global.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_global.o get_global.f90
-
-$O/hex_nodes.o: ${SHARED}constants.h ${SHARED}/hex_nodes.f90
- ${FCCOMPILE_CHECK} -c -o $O/hex_nodes.o ${SHARED}/hex_nodes.f90
-
-$O/save_databases.o: ${SHARED}constants.h save_databases.f90
- ${FCCOMPILE_CHECK} -c -o $O/save_databases.o save_databases.f90
-
-$O/read_topo_bathy_file.o: ${SHARED}constants.h ${SHARED}/read_topo_bathy_file.f90
- ${FCCOMPILE_CHECK} -c -o $O/read_topo_bathy_file.o ${SHARED}/read_topo_bathy_file.f90
-
-$O/create_regions_mesh.o: ${SHARED}constants.h create_regions_mesh.f90
- ${FCCOMPILE_CHECK} -c -o $O/create_regions_mesh.o create_regions_mesh.f90
-
-$O/create_name_database.o: ${SHARED}constants.h create_name_database.f90
- ${FCCOMPILE_CHECK} -c -o $O/create_name_database.o create_name_database.f90
-
-$O/define_subregions.o: ${SHARED}constants.h define_subregions.f90
- ${FCCOMPILE_CHECK} -c -o $O/define_subregions.o define_subregions.f90
-
-$O/define_subregions_heuristic.o: ${SHARED}constants.h define_subregions_heuristic.f90
- ${FCCOMPILE_CHECK} -c -o $O/define_subregions_heuristic.o define_subregions_heuristic.f90
-
-$O/define_superbrick.o: ${SHARED}constants.h define_superbrick.f90
- ${FCCOMPILE_CHECK} -c -o $O/define_superbrick.o define_superbrick.f90
-
-$O/check_mesh_quality.o: ${SHARED}constants.h check_mesh_quality.f90
- ${FCCOMPILE_CHECK} -c -o $O/check_mesh_quality.o check_mesh_quality.f90
-
-$O/create_visual_files.o: ${SHARED}constants.h create_visual_files.f90
- ${FCCOMPILE_CHECK} -c -o $O/create_visual_files.o create_visual_files.f90
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/constants.h
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/constants.h 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/constants.h 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,308 +0,0 @@
-!=====================================================================
-!
-! S p e c f e m 3 D V e r s i o n 2 . 0
-! ---------------------------------------
-!
-! Main authors: Dimitri Komatitsch and Jeroen Tromp
-! Princeton University, USA and University of Pau / CNRS / INRIA
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! April 2011
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-! src/meshfem3D/constants.h. Generated from constants.h.in by configure.
-
-!
-! solver in single or double precision depending on the machine (4 or 8 bytes)
-!
-! ALSO CHANGE FILE precision.h ACCORDINGLY
-!
- integer, parameter :: SIZE_REAL = 4
- integer, parameter :: SIZE_DOUBLE = 8
-
-! set to SIZE_REAL to run in single precision
-! set to SIZE_DOUBLE to run in double precision (increases memory size by 2)
- integer, parameter :: CUSTOM_REAL = SIZE_REAL
-
-!----------- parameters that can be changed by the user -----------
-
-! set to .false. if running on a Beowulf-type machine with local disks
-! set to .true. if running on a shared-memory machine with common file system
-! if running on a Beowulf, also modify name of nodes in filter_machine_file.f90
- logical, parameter :: LOCAL_PATH_IS_ALSO_GLOBAL = .true.
-
-! apply heuristic rule to modify doubling regions to balance angles
- logical, parameter :: APPLY_HEURISTIC_RULE = .true.
-
-! input, output and main MPI I/O files
- integer, parameter :: ISTANDARD_OUTPUT = 6
- integer, parameter :: IIN = 40,IOUT = 41
-! uncomment this to write messages to a text file
- integer, parameter :: IMAIN = 42
-! uncomment this to write messages to the screen
-! integer, parameter :: IMAIN = ISTANDARD_OUTPUT
-! I/O unit for source and receiver vtk file
- integer, parameter :: IOVTK = 98
-! I/O unit for interface file
- integer, parameter :: IIN_INTERFACES = 43
-
-! ignore variable name field (junk) at the beginning of each input line
- logical, parameter :: IGNORE_JUNK = .true.,DONT_IGNORE_JUNK = .false.
-
-! minimum thickness in meters to include the effect of the oceans
-! to avoid taking into account spurious oscillations in topography model
-! double precision, parameter :: MINIMUM_THICKNESS_3D_OCEANS = 10.d0
-
-! min and max density in the model
-! double precision, parameter :: DENSITY_MAX = 3000.d0
-! double precision, parameter :: DENSITY_MIN = 2000.d0
-
-! density of sea water
-! real(kind=CUSTOM_REAL), parameter :: RHO_OCEANS = 1020.0
-
-! depth at which we start to honor the basement interface
-! double precision, parameter :: Z_THRESHOLD_HONOR_BASEMENT = -4700.d0
-
-! paths for inputs and outputs files
- character(len=256), parameter :: IN_DATA_FILES_PATH = '../in_data_files/'
- character(len=256), parameter :: MF_IN_DATA_FILES_PATH = '../in_data_files/meshfem3D_files/'
- character(len=256), parameter :: OUTPUT_FILES_PATH = '../in_out_files/OUTPUT_FILES/'
-
-! ---------------------------------------------------------------------------------------
-! LQY -- Following 3 variables stays here temporarily,
-! we need to move them to Par_file at a proper time
-! ---------------------------------------------------------------------------------------
-! save moho mesh and compute Moho boundary kernels
-! logical, parameter :: SAVE_MOHO_MESH = .false.
-
-!------------------------------------------------------
-!----------- do not modify anything below -------------
-!------------------------------------------------------
-
-! on some processors (e.g. Pentiums) it is necessary to suppress underflows
-! by using a small initial field instead of zero
- logical, parameter :: FIX_UNDERFLOW_PROBLEM = .true.
-
-! some useful constants
- double precision, parameter :: PI = 3.141592653589793d0
- double precision, parameter :: TWO_PI = 2.d0 * PI
-
-! 3-D simulation
- integer, parameter :: NDIM = 3
-
-! dimension of the boundaries of the slices
- integer, parameter :: NDIM2D = 2
-
-! number of nodes for 2D and 3D shape functions for hexahedra
-! we use 8-node mesh bricks, which are more stable than 27-node elements
- integer, parameter :: NGNOD = 8, NGNOD2D = 4
-
-! a few useful constants
- double precision, parameter :: ZERO = 0.d0,ONE = 1.d0,TWO = 2.d0 !,HALF = 0.5d0
-
- real(kind=CUSTOM_REAL), parameter :: &
- ONE_THIRD = 1._CUSTOM_REAL/3._CUSTOM_REAL, &
- FOUR_THIRDS = 4._CUSTOM_REAL/3._CUSTOM_REAL
-
-! very large and very small values
- double precision, parameter :: HUGEVAL = 1.d+30,TINYVAL = 1.d-9
-
-! define flag for elements
- integer, parameter :: IFLAG_ONE_LAYER_TOPOGRAPHY = 1
- integer, parameter :: IFLAG_BASEMENT_TOPO = 2
-
-! Olsen's constant for Q_mu = constant * v_s attenuation rule
- real, parameter :: OLSEN_ATTENUATION_RATIO = 0.05
-
-! number of standard linear solids in parallel for attenuation
- integer, parameter :: N_SLS = 3
-
-! flag for the four edges of each slice and for the bottom edge
- integer, parameter :: XI_MIN = 1
- integer, parameter :: XI_MAX = 2
- integer, parameter :: ETA_MIN = 3
- integer, parameter :: ETA_MAX = 4
- integer, parameter :: BOTTOM = 5
-
-! number of GLL points not set in the mesher, do not modify this value
- integer, parameter :: NGLLX = 2
- integer, parameter :: NGLLY = NGLLX
- integer, parameter :: NGLLZ = NGLLX
-
-! number of points per surface element
- integer, parameter :: NGLLSQUARE = NGLLX * NGLLY
-
-! number of points per spectral element
- integer, parameter :: NGLLCUBE = NGLLX * NGLLY * NGLLZ
-
-! for vectorization of loops
- integer, parameter :: NGLLSQUARE_NDIM = NGLLSQUARE * NDIM
- integer, parameter :: NGLLCUBE_NDIM = NGLLCUBE * NDIM
-
-! flag for projection from latitude/longitude to UTM, and back
- integer, parameter :: ILONGLAT2UTM = 0, IUTM2LONGLAT = 1
-
-! smallest real number on the Pentium and the SGI = 1.1754944E-38
-! largest real number on the Pentium and the SGI = 3.4028235E+38
-! small negligible initial value to avoid very slow underflow trapping
-! but not too small to avoid trapping on velocity and acceleration in Newmark
- real(kind=CUSTOM_REAL), parameter :: VERYSMALLVAL = 1.E-24_CUSTOM_REAL
-
-! displacement threshold above which we consider the code became unstable
- real(kind=CUSTOM_REAL), parameter :: STABILITY_THRESHOLD = 1.E+25_CUSTOM_REAL
-
-! geometrical tolerance for boundary detection
- double precision, parameter :: SMALLVAL = 0.00001d0
-
-! do not use tags for MPI messages, use dummy tag instead
- integer, parameter :: itag = 0,itag2 = 0
-
-! for the Gauss-Lobatto-Legendre points and weights
- double precision, parameter :: GAUSSALPHA = 0.d0,GAUSSBETA = 0.d0
-
-! number of lines per source in CMTSOLUTION file
- integer, parameter :: NLINES_PER_CMTSOLUTION_SOURCE = 13
-
-! number of iterations to solve the system for xi and eta
- integer, parameter :: NUM_ITER = 4
-
-! size of topography and bathymetry file for Southern California
- integer, parameter :: NX_TOPO_SOCAL = 1401,NY_TOPO_SOCAL = 1001
- double precision, parameter :: ORIG_LAT_TOPO_SOCAL = 32.d0
- double precision, parameter :: ORIG_LONG_TOPO_SOCAL = -121.d0
- double precision, parameter :: DEGREES_PER_CELL_TOPO_SOCAL = 5.d0 / 1000.d0
- character(len=100), parameter :: TOPO_FILE_SOCAL = 'DATA/la_topography/topo_bathy_final.dat'
-
-! size of Lupei Zhu's Moho map file for Southern California
- integer, parameter :: NX_MOHO = 71,NY_MOHO = 51
- double precision, parameter :: ORIG_LAT_MOHO = 32.d0
- double precision, parameter :: ORIG_LONG_MOHO = -121.d0
- double precision, parameter :: DEGREES_PER_CELL_MOHO = 0.1d0
-
-! size of basement map file
- integer, parameter :: NX_BASEMENT = 161,NY_BASEMENT = 144
- double precision, parameter :: ORIG_X_BASEMENT = 316000.
- double precision, parameter :: ORIG_Y_BASEMENT = 3655000.
- double precision, parameter :: SPACING_X_BASEMENT = 1000.
- double precision, parameter :: SPACING_Y_BASEMENT = 1000.
-
-!
-! new Gocad Voxets Peter July 29, 2002 - high-res and medium-res blocks
-!
-
-! size of the medium-resolution Gocad voxet
- integer, parameter :: NX_GOCAD_MR = 194, NY_GOCAD_MR = 196, NZ_GOCAD_MR = 100
-
- double precision, parameter :: ORIG_X_GOCAD_MR = 283000.
- double precision, parameter :: ORIG_Y_GOCAD_MR = 3655000.
- double precision, parameter :: ORIG_Z_GOCAD_MR = -15000.
-
- double precision, parameter :: SPACING_X_GOCAD_MR = 1000.
- double precision, parameter :: SPACING_Y_GOCAD_MR = 1000.
- double precision, parameter :: SPACING_Z_GOCAD_MR = 200.
-
-! maximum size of model for tapering of transition between Hauksson and MR
- double precision, parameter :: END_X_GOCAD_MR = ORIG_X_GOCAD_MR + SPACING_X_GOCAD_MR * (NX_GOCAD_MR - 1)
- double precision, parameter :: END_Y_GOCAD_MR = ORIG_Y_GOCAD_MR + SPACING_Y_GOCAD_MR * (NY_GOCAD_MR - 1)
-
-! size of the high-resolution Gocad voxet
- integer, parameter :: NX_GOCAD_HR = 185, NY_GOCAD_HR = 196, NZ_GOCAD_HR = 100
-
- double precision, parameter :: ORIG_X_GOCAD_HR = 371052.25
- double precision, parameter :: ORIG_Y_GOCAD_HR = 3725250.
- double precision, parameter :: ORIG_Z_GOCAD_HR = -9500.
-
- double precision, parameter :: SPACING_X_GOCAD_HR = 250.
- double precision, parameter :: SPACING_Y_GOCAD_HR = 250.
- double precision, parameter :: SPACING_Z_GOCAD_HR = 100.
-
-! maximum size of model for tapering of transition between HR and MR
- double precision, parameter :: END_X_GOCAD_HR = ORIG_X_GOCAD_HR + SPACING_X_GOCAD_HR * (NX_GOCAD_HR - 1)
- double precision, parameter :: END_Y_GOCAD_HR = ORIG_Y_GOCAD_HR + SPACING_Y_GOCAD_HR * (NY_GOCAD_HR - 1)
-
-! implement smooth transition between Hauksson, HR and MR Gocad blocks
- logical, parameter :: TAPER_GOCAD_TRANSITIONS = .true.
-
-! Salton Sea Gocad voxet
- integer, parameter :: GOCAD_ST_NU = 638, GOCAD_ST_NV = 219, GOCAD_ST_NW = 76
- double precision, parameter :: GOCAD_ST_O_X = 720844.0, GOCAD_ST_O_Y = 3401799.250, &
- GOCAD_ST_O_Z = -6354.334
- double precision, parameter :: GOCAD_ST_U_X = -209197.89, GOCAD_ST_U_Y = 320741.71
- double precision, parameter :: GOCAD_ST_V_X = 109670.74, GOCAD_ST_V_Y = 71530.72
- double precision, parameter :: GOCAD_ST_W_Z = 7666.334
- double precision, parameter :: GOCAD_ST_NO_DATA_VALUE = -99999
-
-!
-!--- larger Hauksson model for entire So-Cal, 15 km resolution
-!
-
-! number of non-constant layers
- integer, parameter :: NLAYERS_HAUKSSON = 9
-! depth of layers
- double precision, parameter :: Z_HAUKSSON_LAYER_1 = -1000.d0
- double precision, parameter :: Z_HAUKSSON_LAYER_2 = -4000.d0
- double precision, parameter :: Z_HAUKSSON_LAYER_3 = -6000.d0
- double precision, parameter :: Z_HAUKSSON_LAYER_4 = -10000.d0
- double precision, parameter :: Z_HAUKSSON_LAYER_5 = -15000.d0
- double precision, parameter :: Z_HAUKSSON_LAYER_6 = -17000.d0
- double precision, parameter :: Z_HAUKSSON_LAYER_7 = -22000.d0
- double precision, parameter :: Z_HAUKSSON_LAYER_8 = -31000.d0
- double precision, parameter :: Z_HAUKSSON_LAYER_9 = -33000.d0
-
- integer, parameter :: NGRID_NEW_HAUKSSON = 201
-
-! corners of new Hauksson's interpolated grid
- double precision, parameter :: UTM_X_ORIG_HAUKSSON = 122035.012d0
- double precision, parameter :: UTM_X_END_HAUKSSON = 766968.628d0
- double precision, parameter :: UTM_Y_ORIG_HAUKSSON = 3547232.986d0
- double precision, parameter :: UTM_Y_END_HAUKSSON = 4098868.501d0
-
- double precision, parameter :: SPACING_UTM_X_HAUKSSON = (UTM_X_END_HAUKSSON - UTM_X_ORIG_HAUKSSON) / (NGRID_NEW_HAUKSSON-1.d0)
- double precision, parameter :: SPACING_UTM_Y_HAUKSSON = (UTM_Y_END_HAUKSSON - UTM_Y_ORIG_HAUKSSON) / (NGRID_NEW_HAUKSSON-1.d0)
-
-! layers in the So-Cal regional model
-! DEPTH_MOHO_SOCAL = -35 km was based on Dreger and Helmberger (1990)
-! and is (July 2007) the preferred Moho depth for Dreger.
-! The depth of 32 km is used in the standard processing (Wald et al., 1995)
-! of SoCal events and is the value in the original Kanamori-Hadley (1975) model.
- double precision, parameter :: DEPTH_5p5km_SOCAL = -5500.d0
- double precision, parameter :: DEPTH_16km_SOCAL = -16000.d0
- double precision, parameter :: DEPTH_MOHO_SOCAL = -32000.d0
-
-! reference surface of the model before adding topography
- double precision, parameter :: Z_SURFACE = 0.d0
-
-! number of points in each AVS or OpenDX quadrangular cell for movies
- integer, parameter :: NGNOD2D_AVS_DX = 4
-
-! magic ratio for heuristic rule
-! this gives 120 degree angles in doubling
-! standard value 0.5 gives 135-135-90, which is not optimal
-! double precision, parameter :: MAGIC_RATIO = 0.6056d0
-
-! type of elements for heuristic rule
- integer, parameter :: ITYPE_UNUSUAL_1 = 1
- integer, parameter :: ITYPE_UNUSUAL_1p = 2
- integer, parameter :: ITYPE_UNUSUAL_4 = 3
- integer, parameter :: ITYPE_UNUSUAL_4p = 4
-
-! define number of spectral elements and points in basic symmetric mesh doubling superbrick
- integer, parameter :: NSPEC_DOUBLING_SUPERBRICK = 32
- integer, parameter :: NGLOB_DOUBLING_SUPERBRICK = 67
- integer, parameter :: NSPEC_SUPERBRICK_1L = 28
- integer, parameter :: NGLOB_SUPERBRICK_1L = 58
- integer, parameter :: NGNOD_EIGHT_CORNERS = 8
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/createregmesh.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/createregmesh.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/createregmesh.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,191 +0,0 @@
-GFORTRAN module version '0' created from create_regions_mesh.f90 on Wed Sep 28 14:35:18 2011
-MD5:1782bbdedcae5049229a71265ae9a54d -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () () () () ()
-() () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'create_regions_mesh' 'createregmesh' 'create_regions_mesh' 1 ((
-PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE) (UNKNOWN 0
-0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
-23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43) () 0 ()
-() () 0 0)
-44 'createregmesh' 'createregmesh' 'createregmesh' 1 ((MODULE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ())
-0 0 () () 0 () () () 0 0)
-4 'xgrid' '' 'xgrid' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (3 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 INTEGER ())
-0 TIMES (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (VARIABLE (INTEGER 4
-0 0 INTEGER ()) 0 19 ())) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (
-OP (INTEGER 4 0 0 INTEGER ()) 0 TIMES (CONSTANT (INTEGER 4 0 0 INTEGER ())
-0 '2') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 17 ())) (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 INTEGER ()) 0 TIMES
-(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 18 ()))) 0 () () () 0 0)
-5 'ygrid' '' 'ygrid' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (3 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 INTEGER ())
-0 TIMES (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (VARIABLE (INTEGER 4
-0 0 INTEGER ()) 0 19 ())) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (
-OP (INTEGER 4 0 0 INTEGER ()) 0 TIMES (CONSTANT (INTEGER 4 0 0 INTEGER ())
-0 '2') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 17 ())) (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 INTEGER ()) 0 TIMES
-(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 18 ()))) 0 () () () 0 0)
-6 'zgrid' '' 'zgrid' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (3 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 INTEGER ())
-0 TIMES (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (VARIABLE (INTEGER 4
-0 0 INTEGER ()) 0 19 ())) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (
-OP (INTEGER 4 0 0 INTEGER ()) 0 TIMES (CONSTANT (INTEGER 4 0 0 INTEGER ())
-0 '2') (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 17 ())) (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 INTEGER ()) 0 TIMES
-(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 18 ()))) 0 () () () 0 0)
-7 'ibool' '' 'ibool' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (4 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 14 ())) 0 () () () 0 0)
-8 'xstore' '' 'xstore' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (4 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 14 ())) 0 () () () 0 0)
-9 'ystore' '' 'ystore' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (4 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 14 ())) 0 () () () 0 0)
-10 'zstore' '' 'zstore' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DIMENSION DUMMY) (REAL 8 0 0 REAL ()) 0 0 () (4 EXPLICIT (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER 4 0 0
-INTEGER ()) 0 14 ())) 0 () () () 0 0)
-11 'iproc_xi' '' 'iproc_xi' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-12 'iproc_eta' '' 'iproc_eta' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-13 'addressing' '' 'addressing' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') (OP (INTEGER 4 0 0
-INTEGER ()) 0 MINUS (VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 24 ()) (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1')) (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '0') (OP (INTEGER 4 0 0 INTEGER ()) 0 MINUS (VARIABLE (
-INTEGER 4 0 0 INTEGER ()) 0 25 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ())
-0 '1'))) 0 () () () 0 0)
-14 'nspec' '' 'nspec' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-15 'nglob_ab' '' 'nglob_ab' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-16 'npointot' '' 'npointot' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-17 'nex_per_proc_xi' '' 'nex_per_proc_xi' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-18 'nex_per_proc_eta' '' 'nex_per_proc_eta' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-19 'ner' '' 'ner' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-20 'nspec2dmax_xmin_xmax' '' 'nspec2dmax_xmin_xmax' 3 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-21 'nspec2dmax_ymin_ymax' '' 'nspec2dmax_ymin_ymax' 3 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-22 'nspec2d_bottom' '' 'nspec2d_bottom' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-23 'nspec2d_top' '' 'nspec2d_top' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-24 'nproc_xi' '' 'nproc_xi' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-25 'nproc_eta' '' 'nproc_eta' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-26 'nsubregions' '' 'nsubregions' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-27 'subregions' '' 'subregions' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER
-4 0 0 INTEGER ()) 0 26 ()) (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '7')) 0 () () () 0 0)
-28 'nblayers' '' 'nblayers' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-29 'ner_layer' '' 'ner_layer' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (VARIABLE (INTEGER
-4 0 0 INTEGER ()) 0 28 ())) 0 () () () 0 0)
-30 'nmaterials' '' 'nmaterials' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-31 'material_properties' '' 'material_properties' 3 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (REAL 8 0 0
-REAL ()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1')
-(VARIABLE (INTEGER 4 0 0 INTEGER ()) 0 30 ()) (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6')) 0 () ()
-() 0 0)
-32 'myrank' '' 'myrank' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-33 'local_path' '' 'local_path' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4
-0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0 0)
-34 'utm_x_min' '' 'utm_x_min' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-35 'utm_x_max' '' 'utm_x_max' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-36 'utm_y_min' '' 'utm_y_min' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-37 'utm_y_max' '' 'utm_y_max' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-38 'z_depth_block' '' 'z_depth_block' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 ()
-() () 0 0)
-39 'create_abaqus_files' '' 'create_abaqus_files' 3 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-40 'create_dx_files' '' 'create_dx_files' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () ()
-0 () () () 0 0)
-41 'use_regular_mesh' '' 'use_regular_mesh' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () ()
-0 () () () 0 0)
-42 'ndoublings' '' 'ndoublings' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-43 'ner_doublings' '' 'ner_doublings' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2')) 0 () () () 0 0)
-)
-
-('create_regions_mesh' 0 2 'createregmesh' 0 44)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/precision.h
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/precision.h 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/precision.h 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,37 +0,0 @@
-!=====================================================================
-!
-! S p e c f e m 3 D V e r s i o n 2 . 0
-! ---------------------------------------
-!
-! Main authors: Dimitri Komatitsch and Jeroen Tromp
-! Princeton University, USA and University of Pau / CNRS / INRIA
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! April 2011
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-! src/meshfem3D/precision.h. Generated from precision.h.in by configure.
-
-!
-! solver in single or double precision depending on the machine
-!
-! set to MPI_REAL to run in single precision
-! set to MPI_DOUBLE_PRECISION to run in double precision
-!
-! ALSO CHANGE FILE constants.h ACCORDINGLY
-!
- integer, parameter :: CUSTOM_MPI_TYPE = MPI_REAL
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/readparfile.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/readparfile.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/meshfem3D/readparfile.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,98 +0,0 @@
-GFORTRAN module version '0' created from read_parameter_file.f90 on Wed Sep 28 14:35:17 2011
-MD5:e36db432769de6eb4e803ad6a79dc583 -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () () () () ()
-() () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'read_parameter_file' 'readparfile' 'read_parameter_file' 1 ((
-PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL UNKNOWN SUBROUTINE
-ALWAYS_EXPLICIT) (UNKNOWN 0 0 0 UNKNOWN ()) 3 0 (4 5 6 7 8 9 10 11 12 13
-14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29) () 0 () () () 0 0)
-30 'readparfile' 'readparfile' 'readparfile' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-4 'latitude_min' '' 'latitude_min' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 ()
-() () 0 0)
-5 'latitude_max' '' 'latitude_max' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 ()
-() () 0 0)
-6 'longitude_min' '' 'longitude_min' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 ()
-() () 0 0)
-7 'longitude_max' '' 'longitude_max' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 ()
-() () 0 0)
-8 'utm_x_min' '' 'utm_x_min' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-9 'utm_x_max' '' 'utm_x_max' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-10 'utm_y_min' '' 'utm_y_min' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-11 'utm_y_max' '' 'utm_y_max' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-12 'z_depth_block' '' 'z_depth_block' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (REAL 8 0 0 REAL ()) 0 0 () () 0 ()
-() () 0 0)
-13 'nex_xi' '' 'nex_xi' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-14 'nex_eta' '' 'nex_eta' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-15 'nproc_xi' '' 'nproc_xi' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-16 'nproc_eta' '' 'nproc_eta' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-17 'utm_projection_zone' '' 'utm_projection_zone' 3 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-18 'local_path' '' 'local_path' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4
-0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0 0)
-19 'suppress_utm_projection' '' 'suppress_utm_projection' 3 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-20 'interfaces_file' '' 'interfaces_file' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (CHARACTER 1 0 0 CHARACTER ((
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '50'))) 0 0 () () 0 () () () 0 0)
-21 'nsubregions' '' 'nsubregions' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-22 'subregions' '' 'subregions' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0
-() (2 DEFERRED () () () ()) 0 () () () 0 0)
-23 'nmaterials' '' 'nmaterials' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-24 'material_properties' '' 'material_properties' 3 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION POINTER DUMMY) (
-REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-25 'create_abaqus_files' '' 'create_abaqus_files' 3 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-26 'create_dx_files' '' 'create_dx_files' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () ()
-0 () () () 0 0)
-27 'use_regular_mesh' '' 'use_regular_mesh' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DUMMY) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () ()
-0 () () () 0 0)
-28 'ndoublings' '' 'ndoublings' 3 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN DUMMY) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0
-0)
-29 'ner_doublings' '' 'ner_doublings' 3 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION DUMMY) (INTEGER 4 0 0 INTEGER ())
-0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2')) 0 () () () 0 0)
-)
-
-('read_parameter_file' 0 2 'readparfile' 0 30)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/shared/constants.h
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/shared/constants.h 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/shared/constants.h 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,334 +0,0 @@
-!=====================================================================
-!
-! S p e c f e m 3 D V e r s i o n 2 . 0
-! ---------------------------------------
-!
-! Main authors: Dimitri Komatitsch and Jeroen Tromp
-! Princeton University, USA and University of Pau / CNRS / INRIA
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! April 2011
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-
-! src/shared/constants.h. Generated from constants.h.in by configure.
-
-!
-! solver in single or double precision depending on the machine (4 or 8 bytes)
-!
-! ALSO CHANGE FILE precision.h ACCORDINGLY
-!
- integer, parameter :: SIZE_REAL = 4
- integer, parameter :: SIZE_DOUBLE = 8
-
-! usually the size of integer and logical variables is the same as regular single-precision real variable
- integer, parameter :: SIZE_INTEGER = SIZE_REAL
- integer, parameter :: SIZE_LOGICAL = SIZE_REAL
-
-! set to SIZE_REAL to run in single precision
-! set to SIZE_DOUBLE to run in double precision (increases memory size by 2)
- integer, parameter :: CUSTOM_REAL = SIZE_REAL
-
-!----------- parameters that can be changed by the user -----------
-
-! set to .false. if running on a Beowulf-type machine with local disks
-! set to .true. if running on a shared-memory machine with common file system
-! if running on a Beowulf, also modify name of nodes in filter_machine_file.f90
- logical, parameter :: LOCAL_PATH_IS_ALSO_GLOBAL = .true.
-
-! apply heuristic rule to modify doubling regions to balance angles
- logical, parameter :: APPLY_HEURISTIC_RULE = .true.
-
-! adds/superimposes velocity model values from 'model_external_values.f90'
- logical, parameter :: USE_MODEL_EXTERNAL_VALUES = .false.
-
-! use inlined products of Deville et al. (2002) to speedup the calculations to compute internal forces
- logical, parameter :: USE_DEVILLE_PRODUCTS = .true.
-
-! number of GLL points in each direction of an element (degree plus one)
- integer, parameter :: NGLLX = 5
- integer, parameter :: NGLLY = NGLLX
- integer, parameter :: NGLLZ = NGLLX
-
-! number of points per surface element
- integer, parameter :: NGLLSQUARE = NGLLX * NGLLY
-
-! number of points per spectral element
- integer, parameter :: NGLLCUBE = NGLLX * NGLLY * NGLLZ
-
-! for optimized routines by Deville et al. (2002)
- integer, parameter :: m1 = NGLLX, m2 = NGLLX * NGLLY
-
-! ouput format of seismograms, ASCII or binary
- logical, parameter :: SEISMOGRAMS_BINARY = .false.
-! output format of seismograms, Seismic Unix (binary with 240-byte-headers)
- logical, parameter :: SU_FORMAT=.false.
-
-! input, output and main MPI I/O files
- integer, parameter :: ISTANDARD_OUTPUT = 6
- integer, parameter :: IIN = 40,IOUT = 41
-! uncomment this to write messages to a text file
- integer, parameter :: IMAIN = 42
-! uncomment this to write messages to the screen
-! integer, parameter :: IMAIN = ISTANDARD_OUTPUT
-! I/O unit for source and receiver vtk file
- integer, parameter :: IOVTK = 98
-! I/O unit for absorbing boundary snapshots
-! integer, parameter :: IOABS = 31
-! integer, parameter :: IOABS_AC = 32
-! I/O unit for plotting source time function
- integer, Parameter :: IOSTF = 71
-! I/O unit for interface file
- integer, parameter :: IIN_INTERFACES = 43
-! I/O unit for noise simulations
- integer, parameter :: IIN_NOISE = 44,IOUT_NOISE = 45
-! I/O unit for SU formatted seismograms
- integer, parameter :: IOUT_SU = 46
-! I/O unit for SU formatted adjoint sources
- integer, parameter :: IIN_SU1 = 47, IIN_SU2 = 48, IIN_SU3 = 49
-
-! ignore variable name field (junk) at the beginning of each input line
- logical, parameter :: IGNORE_JUNK = .true.,DONT_IGNORE_JUNK = .false.
-
-! flag to print the details of source location
- logical, parameter :: SHOW_DETAILS_LOCATE_SOURCE = .false.
-
-! maximum length of station and network name for receivers
- integer, parameter :: MAX_LENGTH_STATION_NAME = 32
- integer, parameter :: MAX_LENGTH_NETWORK_NAME = 8
-
-! number of sources to be gathered by MPI_Gather
- integer, parameter :: NGATHER_SOURCES = 100
-
-! we mimic a triangle of half duration equal to half_duration_triangle
-! using a Gaussian having a very close shape, as explained in Figure 4.2
-! of the manual. This source decay rate to mimic an equivalent triangle
-! was found by trial and error
- double precision, parameter :: SOURCE_DECAY_MIMIC_TRIANGLE = 1.628d0
-
-! decide if master process writes all the seismograms or if all processes do it in parallel
- logical, parameter :: WRITE_SEISMOGRAMS_BY_MASTER = .false.
-
-! use directory OUTPUT_FILES/ for seismogram output
- logical,parameter :: USE_OUTPUT_FILES_PATH = .true.
-
-! absorb top surface
-! (defined in mesh as 'free_surface_file')
- logical,parameter :: ABSORB_FREE_SURFACE = .false.
-
-! absorb boundaries using a PML region
-! (EXPERIMENTAL feature)
-! (only acoustic domains supported...)
-! (user parameters can be specified in PML_init.f90)
- logical,parameter :: ABSORB_USE_PML = .false.
-
-! paths for inputs and outputs files
- character(len=256), parameter :: IN_DATA_FILES_PATH = '../in_data_files/'
- character(len=256), parameter :: MF_IN_DATA_FILES_PATH = '../in_data_files/meshfem3D_files/'
- character(len=256), parameter :: OUTPUT_FILES_PATH = '../in_out_files/OUTPUT_FILES/'
-
-
-! ---------------------------------------------------------------------------------------
-! LQY -- Following 3 variables stays here temporarily,
-! we need to move them to Par_file at a proper time
-! ---------------------------------------------------------------------------------------
-! save moho mesh and compute Moho boundary kernels
- logical, parameter :: SAVE_MOHO_MESH = .false.
-
-! outputs approximate hessian for preconditioning
- logical, parameter :: APPROXIMATE_HESS_KL = .false.
-
-! number of steps to save the state variables in the forward simulation,
-! to be used in the backward reconstruction in the presence of attenuation
- integer, parameter :: NSTEP_Q_SAVE = 50 ! depending on stability of reconstruction, up to 200
-
-! the scratch disk to save the state variables saved in the forward
-! simulation, this can be a global scratch disk in case you run out of
-! space on the local scratch disk, e.g. '/ibrixfs1/scratch/lqy/DATABASES_MPI_Q/'
- character(len=256), parameter :: LOCAL_PATH_Q = '../in_out_files/DATABASES_MPI'
-
-!------------------------------------------------------
-! nlegoff -- Variables that should be read/computed elsewhere.
-! Temporarily declared here.
-!------------------------------------------------------
-
-! no lagrange interpolation on seismograms (we take the value on one NGLL point)
- logical, parameter :: FASTER_RECEIVERS_POINTS_ONLY = .false.
-
-! use a force source located exactly at a grid point instead of a CMTSOLUTION source
-! this can be useful e.g. for oil industry foothills simulations or asteroid simulations
-! in which the source is a vertical force, normal force, impact etc.
- logical, parameter :: USE_FORCE_POINT_SOURCE = .false.
- double precision, parameter :: FACTOR_FORCE_SOURCE = 1.d15
- integer, parameter :: COMPONENT_FORCE_SOURCE = 3 ! takes direction in comp E/N/Z = 1/2/3
-
-! use this t0 as earliest starting time rather than the automatically calculated one
-! (must be positive and bigger than the automatically one to be effective;
-! simulation will start at t = - t0)
- double precision, parameter :: USER_T0 = 0.0d0
-
-! the receivers can be located inside the model
- logical, parameter :: RECVS_CAN_BE_BURIED_EXT_MESH = .true.
- logical, parameter :: SOURCES_CAN_BE_BURIED_EXT_MESH = .true.
-
-! sources and receivers Z coordinates given directly instead of with depth
- logical, parameter :: USE_SOURCES_RECVS_Z = .true.
-
-! the seismograms are normal to surface
-! Z record corresponds to the normal, while E and N are two tangent vectors
-! that completes an orthonormal.
- logical, parameter :: EXT_MESH_RECV_NORMAL = .true.
-
-! shakemaps and movies can not be generated during the same run. Mutually exclusive.
- logical, parameter :: EXTERNAL_MESH_MOVIE_SURFACE = .false.
- logical, parameter :: EXTERNAL_MESH_CREATE_SHAKEMAP = .false.
-
-! plots VTK cross-section planes instead of model surface
-! (EXPERIMENTAL feature)
-! (requires EXTERNAL_MESH_MOVIE_SURFACE set to true)
- logical, parameter :: PLOT_CROSS_SECTIONS = .false.
- real(kind=CUSTOM_REAL),parameter :: CROSS_SECTION_X = 67000.0
- real(kind=CUSTOM_REAL),parameter :: CROSS_SECTION_Y = 65500.0
- real(kind=CUSTOM_REAL),parameter :: CROSS_SECTION_Z = -30000.0
-
-! plots GIF cross-section image
-! (EXPERIMENTAL feature)
-! (cross-section plane parameters can be specified in create_color_image.f90)
- logical, parameter :: PNM_GIF_IMAGE = .false.
-
-! number of nodes per element as provided by the external mesh
- integer, parameter :: ESIZE = 8
-
-! geometry tolerance parameter to calculate number of independent grid points
-! sensitive to actual size of model, assumes reference sphere of radius 1
-! this is an absolute value for normalized coordinates in the Earth
- double precision, parameter :: SMALLVAL_TOL = 1.d-10
-
-!------------------------------------------------------
-!----------- do not modify anything below -------------
-!------------------------------------------------------
-
-! on some processors (e.g. Pentiums) it is necessary to suppress underflows
-! by using a small initial field instead of zero
- logical, parameter :: FIX_UNDERFLOW_PROBLEM = .true.
-
-! some useful constants
- double precision, parameter :: PI = 3.141592653589793d0
- double precision, parameter :: TWO_PI = 2.d0 * PI
-
-! 3-D simulation
- integer, parameter :: NDIM = 3
-
-! dimension of the boundaries of the slices
- integer, parameter :: NDIM2D = 2
-
-! for vectorization of loops
- integer, parameter :: NGLLSQUARE_NDIM = NGLLSQUARE * NDIM
- integer, parameter :: NGLLCUBE_NDIM = NGLLCUBE * NDIM
-
-! number of nodes for 2D and 3D shape functions for hexahedra
-! we use 8-node mesh bricks, which are more stable than 27-node elements
- integer, parameter :: NGNOD = 8, NGNOD2D = 4
-
-! a few useful constants
- double precision, parameter :: ZERO = 0.d0,ONE = 1.d0,TWO = 2.d0 !,HALF = 0.5d0
-
- real(kind=CUSTOM_REAL), parameter :: &
- ONE_THIRD = 1._CUSTOM_REAL/3._CUSTOM_REAL, &
- FOUR_THIRDS = 4._CUSTOM_REAL/3._CUSTOM_REAL
-
-! very large and very small values
- double precision, parameter :: HUGEVAL = 1.d+30,TINYVAL = 1.d-9
-
-! tiny real value declared independently of the machine
- real(kind=CUSTOM_REAL), parameter :: TINYVAL_SNGL = 1.e-25_CUSTOM_REAL
-
-! Olsen's constant for Q_mu = constant * v_s attenuation rule
- real, parameter :: OLSEN_ATTENUATION_RATIO = 0.05
-
-! number of standard linear solids in parallel for attenuation
- integer, parameter :: N_SLS = 3
-
-! computation of standard linear solids
-! ATTENUATION_COMP_RESOLUTION: Number of Digits after decimal
-! ATTENUATION_COMP_MAXIMUM: Maximum Q Value
- integer, parameter :: ATTENUATION_COMP_RESOLUTION = 1
- integer, parameter :: ATTENUATION_COMP_MAXIMUM = 9000
-
-! reference frequency for target velocity values in velocity model
-! arbitrarily set to typical resolution of model (3 sec)
- double precision, parameter :: ATTENUATION_f0_REFERENCE = 0.3d0
-
-! define flag for regions for anisotropy
- integer, parameter :: IANISOTROPY_MODEL1 = 1
- integer, parameter :: IANISOTROPY_MODEL2 = 2
-
-! smallest real number on the Pentium and the SGI = 1.1754944E-38
-! largest real number on the Pentium and the SGI = 3.4028235E+38
-! small negligible initial value to avoid very slow underflow trapping
-! but not too small to avoid trapping on velocity and acceleration in Newmark
- real(kind=CUSTOM_REAL), parameter :: VERYSMALLVAL = 1.E-24_CUSTOM_REAL
-
-! displacement threshold above which we consider the code became unstable
- real(kind=CUSTOM_REAL), parameter :: STABILITY_THRESHOLD = 1.E+25_CUSTOM_REAL
-
-! geometrical tolerance for boundary detection
- double precision, parameter :: SMALLVAL = 0.00001d0
-
-! do not use tags for MPI messages, use dummy tag instead
- integer, parameter :: itag = 0,itag2 = 0
-
-! for the Gauss-Lobatto-Legendre points and weights
- double precision, parameter :: GAUSSALPHA = 0.d0,GAUSSBETA = 0.d0
-
-! number of lines per source in CMTSOLUTION file
- integer, parameter :: NLINES_PER_CMTSOLUTION_SOURCE = 13
-
-! number of iterations to solve the system for xi and eta
- integer, parameter :: NUM_ITER = 4
-
-! size of topography and bathymetry file for Southern California
- integer, parameter :: NX_TOPO_SOCAL = 1401,NY_TOPO_SOCAL = 1001
- double precision, parameter :: ORIG_LAT_TOPO_SOCAL = 32.d0
- double precision, parameter :: ORIG_LONG_TOPO_SOCAL = -121.d0
- double precision, parameter :: DEGREES_PER_CELL_TOPO_SOCAL = 5.d0 / 1000.d0
- character(len=100), parameter :: TOPO_FILE_SOCAL = 'DATA/la_topography/topo_bathy_final.dat'
-
-! ! size of topography and bathymetry file for Piero Basini's model
-! integer, parameter :: NX_TOPO = 787, NY_TOPO = 793
-! double precision, parameter :: ORIG_LAT_TOPO = -102352.d0
-! double precision, parameter :: ORIG_LONG_TOPO = 729806.d0
-! ! for Piero Basini's model this is the resolution in meters of the topo file
-! double precision, parameter :: DEGREES_PER_CELL_TOPO = 250.d0
-! character(len=256), parameter :: TOPO_FILE = 'DATA/piero_model/dem_EV_UTM_regular_250_reordered.dat'
-
-! flag for projection from latitude/longitude to UTM, and back
- integer, parameter :: ILONGLAT2UTM = 0, IUTM2LONGLAT = 1
-
-! minimum thickness in meters to include the effect of the oceans
-! to avoid taking into account spurious oscillations in topography model
- double precision, parameter :: MINIMUM_THICKNESS_3D_OCEANS = 10.d0
-! density of sea water
- real(kind=CUSTOM_REAL), parameter :: RHO_OCEANS = 1020.0
-
-! material domain ids
- integer, parameter :: IDOMAIN_ACOUSTIC = 1
- integer, parameter :: IDOMAIN_ELASTIC = 2
- integer, parameter :: IDOMAIN_POROELASTIC = 3
-
-! number of points in each AVS or OpenDX quadrangular cell for movies
- integer, parameter :: NGNOD2D_AVS_DX = 4
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/shared/precision.h
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/shared/precision.h 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/shared/precision.h 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,38 +0,0 @@
-!=====================================================================
-!
-! S p e c f e m 3 D V e r s i o n 2 . 0
-! ---------------------------------------
-!
-! Main authors: Dimitri Komatitsch and Jeroen Tromp
-! Princeton University, USA and University of Pau / CNRS / INRIA
-! (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-! April 2011
-!
-! This program is free software; you can redistribute it and/or modify
-! it under the terms of the GNU General Public License as published by
-! the Free Software Foundation; either version 2 of the License, or
-! (at your option) any later version.
-!
-! This program is distributed in the hope that it will be useful,
-! but WITHOUT ANY WARRANTY; without even the implied warranty of
-! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-! GNU General Public License for more details.
-!
-! You should have received a copy of the GNU General Public License along
-! with this program; if not, write to the Free Software Foundation, Inc.,
-! 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-!
-!=====================================================================
-
-
-! src/shared/precision.h. Generated from precision.h.in by configure.
-
-!
-! solver in single or double precision depending on the machine
-!
-! set to MPI_REAL to run in single precision
-! set to MPI_DOUBLE_PRECISION to run in double precision
-!
-! ALSO CHANGE FILE constants.h ACCORDINGLY
-!
- integer, parameter :: CUSTOM_MPI_TYPE = MPI_REAL
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,301 +0,0 @@
-#=====================================================================
-#
-# S p e c f e m 3 D V e r s i o n 2 . 0
-# ---------------------------------------
-#
-# Main authors: Dimitri Komatitsch and Jeroen Tromp
-# Princeton University, USA and University of Pau / CNRS / INRIA
-# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-# April 2011
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-#
-#=====================================================================
-#
-# United States Government Sponsorship Acknowledged.
-#
-
-# src/specfem3D/Makefile. Generated from Makefile.in by configure.
-
-# CUDA_LIBS = -L/apps/eiger/Cuda-4.0/cuda/lib64 -lcuda -lcudart -lcublas
-# CUDA_INC = -I/apps/eiger/Cuda-4.0/cuda/include
-# MPI_INC = -I/apps/eiger/mvapich2/1.5.1p1/mvapich2-gnu/include
-
-# MR added CUDA
-
-CUDA_LIBS = -lcuda -lcudart -lcublas
-#CUDA_LIBS =
-
-CUDA_LIB_LOCATION = -L/usr/local/cuda/lib64/
-CUDA_LINK = $(CUDA_LIB_LOCATION) $(CUDA_LIBS)
-CUDA_INC = -I/usr/local/cuda/include
-MPI_INC = -I/usr/include/mpich2/
-
-FC = mpif90
-FCFLAGS = #-g -O2
-MPIFC = mpif90
-MPILIBS =
-FLAGS_CHECK =
-FLAGS_NO_CHECK =
-FCFLAGS_f90 =
-
-NVCC = nvcc
-#NVCC = g++
-
-NVCC_FLAGS = $(CUDA_INC) $(MPI_INC) -DCUDA -gencode=arch=compute_20,code=sm_20
-#NVCC_FLAGS = $(MPI_INC)
-
-SHARED = ../shared/
-# E : executables directory
-E = ../../bin
-# O : objects directory
-O = ../../obj/spec
-# L : libraries directory
-L = ../../lib
-# Output files directory
-OUTPUT=../../in_out_files/OUTPUT_FILES
-
-FCCOMPILE_CHECK = ${FC} ${FCFLAGS} $(FLAGS_CHECK) -I$(SHARED)
-FCCOMPILE_NO_CHECK = ${FC} ${FCFLAGS} $(FLAGS_NO_CHECK) -I$(SHARED)
-MPIFCCOMPILE_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_CHECK) -I$(SHARED)
-MPIFCCOMPILE_NO_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_NO_CHECK) -I$(SHARED)
-FCLINK = $(MPIFCCOMPILE_NO_CHECK)
-#FCLINK = $(FCCOMPILE_NO_CHECK)
-
-CC = gcc
-CFLAGS = -g -O2 $(CPPFLAGS)
-CPPFLAGS = -I/usr/include/scotch $(COND_MPI_CPPFLAGS)
-COND_MPI_CPPFLAGS = -DWITH_MPI
-#COND_MPI_CPPFLAGS =
-
-AR = ar
-ARFLAGS = cru
-RANLIB = ranlib
-
-libspecfem_a_OBJECTS = \
- $O/assemble_MPI_scalar.shared.o \
- $O/check_mesh_resolution.shared.o \
- $O/comp_source_time_function.o \
- $O/compute_adj_source_frechet.o \
- $O/compute_arrays_source.shared.o \
- $O/multiply_arrays_source.shared.o \
- $O/create_name_database.shared.o \
- $O/create_serial_name_database.shared.o \
- $O/define_derivation_matrices.shared.o \
- $O/detect_surface.shared.o \
- $O/exit_mpi.shared.o \
- $O/force_ftz.cc.o \
- $O/get_attenuation_model.shared.o \
- $O/get_cmt.shared.o \
- $O/get_element_face.shared.o \
- $O/get_jacobian_boundaries.shared.o \
- $O/get_shape2D.shared.o \
- $O/get_shape3D.shared.o \
- $O/get_value_parameters.shared.o \
- $O/gll_library.shared.o \
- $O/hex_nodes.shared.o \
- $O/lagrange_poly.shared.o \
- $O/locate_receivers.o \
- $O/locate_source.o \
- $O/netlib_specfun_erf.shared.o \
- $O/param_reader.cc.o \
- $O/prepare_assemble_MPI.shared.o \
- $O/read_topo_bathy_file.shared.o \
- $O/read_parameter_file.shared.o \
- $O/read_value_parameters.shared.o \
- $O/recompute_jacobian.shared.o \
- $O/save_header_file.shared.o \
- $O/sort_array_coordinates.shared.o \
- $O/utm_geo.shared.o \
- $O/write_VTK_data.shared.o \
- $O/write_c_binary.cc.o
-
-# solver objects - no statically allocated arrays anymore
-SOLVER_ARRAY_OBJECTS = \
- $O/program_specfem3D.o \
- $O/specfem3D_par.o \
- $O/PML_init.o \
- $O/compute_boundary_kernel.shared.o \
- $O/compute_kernels.shared.o \
- $O/compute_forces_acoustic.o \
- $O/compute_forces_acoustic_pot.o \
- $O/compute_forces_acoustic_PML.o \
- $O/compute_forces_elastic.o \
- $O/compute_forces_elastic_Dev.o \
- $O/compute_forces_elastic_noDev.o \
- $O/compute_add_sources_acoustic.o \
- $O/compute_add_sources_elastic.o \
- $O/compute_coupling_acoustic_el.o \
- $O/compute_coupling_elastic_ac.o \
- $O/compute_stacey_acoustic.o \
- $O/compute_stacey_elastic.o \
- $O/compute_gradient.o \
- $O/compute_interpolated_dva.o \
- $O/initialize_simulation.o \
- $O/read_mesh_databases.o \
- $O/setup_GLL_points.o \
- $O/write_movie_output.o \
- $O/create_color_image.o \
- $O/write_seismograms.o \
- $O/write_output_ASCII.o \
- $O/detect_mesh_surfaces.o \
- $O/setup_movie_meshes.o \
- $O/read_topography_bathymetry.o \
- $O/setup_sources_receivers.o \
- $O/prepare_timerun.o \
- $O/iterate_time.o \
- $O/finalize_simulation.o \
- $O/save_adjoint_kernels.o \
- $O/specfem3D.o \
- $O/assemble_MPI_vector.o \
- $O/noise_tomography.o \
- $O/it_update_displacement_cuda.cuda.o \
- $O/compute_forces_elastic_cuda.cuda.o \
- $O/compute_stacey_elastic_cuda.cuda.o \
- $O/compute_add_sources_cuda.cuda.o \
- $O/prepare_mesh_constants_cuda.cuda.o \
- $O/noise_tomography_cuda.cuda.o \
- $O/save_and_compare_cpu_vs_gpu.cc.o \
- $O/write_seismograms_cuda.cuda.o \
- $O/compute_kernels_cuda.cuda.o
-
-
-# objects toggled between the parallel and serial version
-COND_MPI_OBJECTS = $O/parallel.o
-#COND_MPI_OBJECTS = $O/serial.o
-
-LIBSPECFEM = $L/libspecfem.a
-
-# objects for the pure Fortran version
-XGENERATE_DATABASES_OBJECTS = $O/program_generate_databases.o $(LIBSPECFEM)
-XSPECFEM_OBJECTS = $(SOLVER_ARRAY_OBJECTS) $(LIBSPECFEM)
-
-####
-#### targets
-####
-
-# default targets for the pure Fortran version
-DEFAULT = \
- generate_databases \
- specfem3D \
- combine_vol_data \
- combine_surf_data \
- convolve_source_timefunction \
- smooth_vol_data \
- $(EMPTY_MACRO)
-
-default: $(DEFAULT)
-
-all: clean default
-
-specfem3D: xspecfem3D
-
-
-####
-#### rules for executables
-####
-
-
-# rules for the pure Fortran version
-xgenerate_databases: $(XGENERATE_DATABASES_OBJECTS) $(COND_MPI_OBJECTS)
- ${FCLINK} -o ${E}/xgenerate_databases $(XGENERATE_DATABASES_OBJECTS) $(COND_MPI_OBJECTS) $(MPILIBS)
-
-# solver also depends on values from mesher
-xspecfem3D: $(XSPECFEM_OBJECTS) $(COND_MPI_OBJECTS)
- ${FCLINK} -o ${E}/xspecfem3D $(XSPECFEM_OBJECTS) $(COND_MPI_OBJECTS) $(MPILIBS) $(CUDA_LINK)
-
-
-convolve_source_timefunction: xconvolve_source_timefunction
-create_movie_shakemap_AVS_DX_GMT: xcreate_movie_shakemap_AVS_DX_GMT
-combine_vol_data: xcombine_vol_data
-combine_surf_data: xcombine_surf_data
-smooth_vol_data: xsmooth_vol_data
-
-xconvolve_source_timefunction: $O/convolve_source_timefunction.o
- ${FCCOMPILE_CHECK} -o ${E}/xconvolve_source_timefunction $O/convolve_source_timefunction.o
-
-xcreate_movie_shakemap_AVS_DX_GMT: $O/create_movie_shakemap_AVS_DX_GMT.o $(LIBSPECFEM) $(OUTPUT)/surface_from_mesher.h
- ${FCCOMPILE_CHECK} -o ${E}/xcreate_movie_shakemap_AVS_DX_GMT $O/create_movie_shakemap_AVS_DX_GMT.o $(LIBSPECFEM) -I$(OUTPUT)
-
-xcombine_vol_data: $O/combine_vol_data.o $O/write_c_binary.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_vol_data $O/combine_vol_data.o $O/write_c_binary.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o
-
-xcombine_surf_data: $O/combine_surf_data.o $O/write_c_binary.o $O/param_reader.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_surf_data $O/combine_surf_data.o $O/write_c_binary.o $O/param_reader.o
-
-xsmooth_vol_data: $O/smooth_vol_data.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o $O/gll_library.o $O/exit_mpi.o $O/parallel.o
- ${FCLINK} -o ${E}/xsmooth_vol_data $O/smooth_vol_data.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o $O/gll_library.o $O/exit_mpi.o $O/parallel.o $(MPILIBS)
-
-
-clean:
- rm -f $O/* *.o *.gnu *.mod $(OUTPUT)/timestamp* $(OUTPUT)/starttime*txt work.pc* \
- xgenerate_databases xspecfem3D \
- xconvolve_source_timefunction \
- xcreate_movie_shakemap_AVS_DX_GMT xcombine_vol_data xcombine_surf_data xsmooth_vol_data
-
-###
-### rule for the archive library
-###
-
-$L/libspecfem.a: $(libspecfem_a_OBJECTS)
- -rm -f $L/libspecfem.a
- $(AR) $(ARFLAGS) $L/libspecfem.a $(libspecfem_a_OBJECTS)
- $(RANLIB) $L/libspecfem.a
-
-####
-#### rule to build each .o file below
-####
-
-###
-### optimized flags (not dependent on values from mesher anymore)
-###
-
-$O/%.o: %.f90 $(SHARED)constants.h
- ${FCCOMPILE_NO_CHECK} -c -o $O/$@ $<
-
-$O/%.shared.o: ${SHARED}%.f90 $(SHARED)constants.h
- ${FCCOMPILE_NO_CHECK} -c -o $O/$@ $<
-
-$O/%.cuda.o: %.cu
- $(NVCC) -c $< -o $O/$@ $(NVCC_FLAGS)
-
-### C compilation
-force_ftz.o: ${SHARED}/force_ftz.c ../../config.h
- ${CC} -c $(CPPFLAGS) $(CFLAGS) -I../.. -o $O/force_ftz.o ${SHARED}/force_ftz.c
-
-
-$O/%.cc.o: ${SHARED}/%.c ../../config.h
- ${CC} -c $(CFLAGS) $(MPI_INC) -o $O/$@ ${SHARED}/$< -I../../
-
-
-###
-### C files below
-###
-
-# $O/param_reader.o: ${SHARED}/param_reader.c
-# ${CC} -c $(CFLAGS) -o $O/param_reader.o ${SHARED}/param_reader.c -I../../
-
-# $O/write_c_binary.o: ${SHARED}/write_c_binary.c
-# ${CC} -c $(CFLAGS) -o $O/write_c_binary.o ${SHARED}/write_c_binary.c -I../../
-
-
-
-###
-### MPI compilation without optimization
-###
-
-$O/parallel.o: $(SHARED)constants.h ${SHARED}/parallel.f90
- ${MPIFCCOMPILE_CHECK} -c -o $O/parallel.o ${SHARED}/parallel.f90
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile.in.cpy
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile.in.cpy 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile.in.cpy 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,493 +0,0 @@
-#=====================================================================
-#
-# S p e c f e m 3 D V e r s i o n 2 . 0
-# ---------------------------------------
-#
-# Main authors: Dimitri Komatitsch and Jeroen Tromp
-# Princeton University, USA and University of Pau / CNRS / INRIA
-# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-# April 2011
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-#
-#=====================================================================
-#
-# United States Government Sponsorship Acknowledged.
-#
-
-# @configure_input@
-
-FC = @FC@
-FCFLAGS = #@FCFLAGS@
-MPIFC = @MPIFC@
-MPILIBS = @MPILIBS@
-FLAGS_CHECK = @FLAGS_CHECK@
-FLAGS_NO_CHECK = @FLAGS_NO_CHECK@
-FCFLAGS_f90 = @FCFLAGS_f90@
-
-SHARED = ../shared/
-# E : executables directory
-E = ../../bin
-# O : objects directory
-O = ../../obj/spec
-# L : libraries directory
-L = ../../lib
-# Output files directory
-OUTPUT=../../in_out_files/OUTPUT_FILES
-
-FCCOMPILE_CHECK =@FCENV@ ${FC} ${FCFLAGS} $(FLAGS_CHECK) -I$(SHARED)
-FCCOMPILE_NO_CHECK =@FCENV@ ${FC} ${FCFLAGS} $(FLAGS_NO_CHECK) -I$(SHARED)
-MPIFCCOMPILE_CHECK =@FCENV@ ${MPIFC} ${FCFLAGS} $(FLAGS_CHECK) -I$(SHARED)
-MPIFCCOMPILE_NO_CHECK =@FCENV@ ${MPIFC} ${FCFLAGS} $(FLAGS_NO_CHECK) -I$(SHARED)
- at COND_MPI_TRUE@FCLINK = $(MPIFCCOMPILE_NO_CHECK)
- at COND_MPI_FALSE@FCLINK = $(FCCOMPILE_NO_CHECK)
-
-CC = @CC@
-CFLAGS = @CFLAGS@ $(CPPFLAGS)
-CPPFLAGS = @CPPFLAGS@ $(COND_MPI_CPPFLAGS)
- at COND_MPI_TRUE@COND_MPI_CPPFLAGS = -DWITH_MPI
- at COND_MPI_FALSE@COND_MPI_CPPFLAGS =
-
-AR = ar
-ARFLAGS = cru
-RANLIB = ranlib
-
-libspecfem_a_OBJECTS = \
- $O/assemble_MPI_scalar.o \
- $O/check_mesh_resolution.o \
- $O/comp_source_time_function.o \
- $O/compute_adj_source_frechet.o \
- $O/compute_arrays_source.o \
- $O/multiply_arrays_source.o \
- $O/create_name_database.o \
- $O/create_serial_name_database.o \
- $O/define_derivation_matrices.o \
- $O/detect_surface.o \
- $O/exit_mpi.o \
- $O/force_ftz.o \
- $O/get_attenuation_model.o \
- $O/get_cmt.o \
- $O/get_element_face.o \
- $O/get_jacobian_boundaries.o \
- $O/get_shape2D.o \
- $O/get_shape3D.o \
- $O/get_value_parameters.o \
- $O/gll_library.o \
- $O/hex_nodes.o \
- $O/lagrange_poly.o \
- $O/locate_receivers.o \
- $O/locate_source.o \
- $O/netlib_specfun_erf.o \
- $O/param_reader.o \
- $O/prepare_assemble_MPI.o \
- $O/read_topo_bathy_file.o \
- $O/read_parameter_file.o \
- $O/read_value_parameters.o \
- $O/recompute_jacobian.o \
- $O/save_header_file.o \
- $O/sort_array_coordinates.o \
- $O/utm_geo.o \
- $O/write_VTK_data.o \
- $O/write_c_binary.o \
- $(EMPTY_MACRO)
-
-# solver objects - no statically allocated arrays anymore
-SOLVER_ARRAY_OBJECTS = \
- $O/specfem3D_par.o \
- $O/PML_init.o \
- $O/compute_boundary_kernel.o \
- $O/compute_kernels.o \
- $O/compute_forces_acoustic.o \
- $O/compute_forces_acoustic_pot.o \
- $O/compute_forces_acoustic_PML.o \
- $O/compute_forces_elastic.o \
- $O/compute_forces_elastic_Dev.o \
- $O/compute_forces_elastic_noDev.o \
- $O/compute_add_sources_acoustic.o \
- $O/compute_add_sources_elastic.o \
- $O/compute_coupling_acoustic_el.o \
- $O/compute_coupling_elastic_ac.o \
- $O/compute_stacey_acoustic.o \
- $O/compute_stacey_elastic.o \
- $O/compute_gradient.o \
- $O/compute_interpolated_dva.o \
- $O/initialize_simulation.o \
- $O/read_mesh_databases.o \
- $O/setup_GLL_points.o \
- $O/write_movie_output.o \
- $O/create_color_image.o \
- $O/write_seismograms.o \
- $O/write_output_ASCII.o \
- $O/detect_mesh_surfaces.o \
- $O/setup_movie_meshes.o \
- $O/read_topography_bathymetry.o \
- $O/setup_sources_receivers.o \
- $O/prepare_timerun.o \
- $O/iterate_time.o \
- $O/finalize_simulation.o \
- $O/save_adjoint_kernels.o \
- $O/specfem3D.o \
- $O/assemble_MPI_vector.o \
- $O/noise_tomography.o \
- $(EMPTY_MACRO)
-
-
-# objects toggled between the parallel and serial version
- at COND_MPI_TRUE@COND_MPI_OBJECTS = $O/parallel.o
- at COND_MPI_FALSE@COND_MPI_OBJECTS = $O/serial.o
-
-LIBSPECFEM = $L/libspecfem.a
-
-# objects for the pure Fortran version
- at COND_PYRE_FALSE@XGENERATE_DATABASES_OBJECTS = $O/program_generate_databases.o $(LIBSPECFEM)
- at COND_PYRE_FALSE@XSPECFEM_OBJECTS = $O/program_specfem3D.o $(SOLVER_ARRAY_OBJECTS) $(LIBSPECFEM)
-
-####
-#### targets
-####
-
-# default targets for the pure Fortran version
- at COND_PYRE_FALSE@DEFAULT = \
- at COND_PYRE_FALSE@ generate_databases \
- at COND_PYRE_FALSE@ specfem3D \
- at COND_PYRE_FALSE@ combine_vol_data \
- at COND_PYRE_FALSE@ combine_surf_data \
- at COND_PYRE_FALSE@ convolve_source_timefunction \
- at COND_PYRE_FALSE@ smooth_vol_data \
- at COND_PYRE_FALSE@ $(EMPTY_MACRO)
-
-default: $(DEFAULT)
-
-all: clean default
-
-specfem3D: xspecfem3D
-
-
-####
-#### rules for executables
-####
-
-# rules for the pure Fortran version
- at COND_PYRE_FALSE@xgenerate_databases: $(XGENERATE_DATABASES_OBJECTS) $(COND_MPI_OBJECTS)
- at COND_PYRE_FALSE@ ${FCLINK} -o ${E}/xgenerate_databases $(XGENERATE_DATABASES_OBJECTS) $(COND_MPI_OBJECTS) $(MPILIBS)
- at COND_PYRE_FALSE@
- at COND_PYRE_FALSE@# solver also depends on values from mesher
- at COND_PYRE_FALSE@xspecfem3D: $(XSPECFEM_OBJECTS) $(COND_MPI_OBJECTS)
- at COND_PYRE_FALSE@ ${FCLINK} -o ${E}/xspecfem3D $(XSPECFEM_OBJECTS) $(COND_MPI_OBJECTS) $(MPILIBS)
- at COND_PYRE_FALSE@
-
-convolve_source_timefunction: xconvolve_source_timefunction
-create_movie_shakemap_AVS_DX_GMT: xcreate_movie_shakemap_AVS_DX_GMT
-combine_vol_data: xcombine_vol_data
-combine_surf_data: xcombine_surf_data
-smooth_vol_data: xsmooth_vol_data
-
-xconvolve_source_timefunction: $O/convolve_source_timefunction.o
- ${FCCOMPILE_CHECK} -o ${E}/xconvolve_source_timefunction $O/convolve_source_timefunction.o
-
- at COND_PYRE_FALSE@xcreate_movie_shakemap_AVS_DX_GMT: $O/create_movie_shakemap_AVS_DX_GMT.o $(LIBSPECFEM) $(OUTPUT)/surface_from_mesher.h
- at COND_PYRE_FALSE@ ${FCCOMPILE_CHECK} -o ${E}/xcreate_movie_shakemap_AVS_DX_GMT $O/create_movie_shakemap_AVS_DX_GMT.o $(LIBSPECFEM) -I$(OUTPUT)
-
-xcombine_vol_data: $O/combine_vol_data.o $O/write_c_binary.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_vol_data $O/combine_vol_data.o $O/write_c_binary.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o
-
-xcombine_surf_data: $O/combine_surf_data.o $O/write_c_binary.o $O/param_reader.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_surf_data $O/combine_surf_data.o $O/write_c_binary.o $O/param_reader.o
-
-xsmooth_vol_data: $O/smooth_vol_data.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o $O/gll_library.o $O/exit_mpi.o $O/parallel.o
- ${FCLINK} -o ${E}/xsmooth_vol_data $O/smooth_vol_data.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o $O/gll_library.o $O/exit_mpi.o $O/parallel.o $(MPILIBS)
-
-
-clean:
- rm -f $O/* *.o *.gnu *.mod $(OUTPUT)/timestamp* $(OUTPUT)/starttime*txt work.pc* \
- xgenerate_databases xspecfem3D \
- xconvolve_source_timefunction \
- xcreate_movie_shakemap_AVS_DX_GMT xcombine_vol_data xcombine_surf_data xsmooth_vol_data
-
-###
-### rule for the archive library
-###
-
-$L/libspecfem.a: $(libspecfem_a_OBJECTS)
- -rm -f $L/libspecfem.a
- $(AR) $(ARFLAGS) $L/libspecfem.a $(libspecfem_a_OBJECTS)
- $(RANLIB) $L/libspecfem.a
-
-####
-#### rule to build each .o file below
-####
-
-###
-### optimized flags (not dependent on values from mesher anymore)
-###
-
-$O/specfem3D_par.o: $(SHARED)constants.h specfem3D_par.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/specfem3D_par.o specfem3D_par.f90
-
-$O/specfem3D.o: $(SHARED)constants.h specfem3D.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/specfem3D.o specfem3D.f90
-
-$O/compute_forces_elastic_noDev.o: $(SHARED)constants.h compute_forces_elastic_noDev.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_forces_elastic_noDev.o compute_forces_elastic_noDev.f90
-
-$O/compute_forces_elastic_Dev.o: $(SHARED)constants.h compute_forces_elastic_Dev.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_forces_elastic_Dev.o compute_forces_elastic_Dev.f90
-
-$O/compute_forces_elastic.o: $(SHARED)constants.h compute_forces_elastic.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_forces_elastic.o compute_forces_elastic.f90
-
-$O/compute_forces_acoustic.o: $(SHARED)constants.h compute_forces_acoustic.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_forces_acoustic.o compute_forces_acoustic.f90
-
-$O/compute_forces_acoustic_pot.o: $(SHARED)constants.h compute_forces_acoustic_pot.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_forces_acoustic_pot.o compute_forces_acoustic_pot.f90
-
-$O/compute_forces_acoustic_PML.o: $(SHARED)constants.h compute_forces_acoustic_PML.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_forces_acoustic_PML.o compute_forces_acoustic_PML.f90
-
-$O/compute_add_sources_acoustic.o: $(SHARED)constants.h compute_add_sources_acoustic.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_add_sources_acoustic.o compute_add_sources_acoustic.f90
-
-$O/compute_add_sources_elastic.o: $(SHARED)constants.h compute_add_sources_elastic.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_add_sources_elastic.o compute_add_sources_elastic.f90
-
-$O/compute_coupling_acoustic_el.o: $(SHARED)constants.h compute_coupling_acoustic_el.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_coupling_acoustic_el.o compute_coupling_acoustic_el.f90
-
-$O/compute_coupling_elastic_ac.o: $(SHARED)constants.h compute_coupling_elastic_ac.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_coupling_elastic_ac.o compute_coupling_elastic_ac.f90
-
-$O/compute_stacey_acoustic.o: $(SHARED)constants.h compute_stacey_acoustic.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_stacey_acoustic.o compute_stacey_acoustic.f90
-
-$O/compute_stacey_elastic.o: $(SHARED)constants.h compute_stacey_elastic.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_stacey_elastic.o compute_stacey_elastic.f90
-
-$O/compute_gradient.o: $(SHARED)constants.h compute_gradient.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_gradient.o compute_gradient.f90
-
-$O/compute_interpolated_dva.o: $(SHARED)constants.h compute_interpolated_dva.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/compute_interpolated_dva.o compute_interpolated_dva.f90
-
-### C compilation
-$O/force_ftz.o: ${SHARED}/force_ftz.c ../../config.h
- ${CC} -c $(CPPFLAGS) $(CFLAGS) -I../.. -o $O/force_ftz.o ${SHARED}/force_ftz.c
-
-$O/initialize_simulation.o: $(SHARED)constants.h initialize_simulation.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/initialize_simulation.o initialize_simulation.f90
-
-$O/read_mesh_databases.o: $(SHARED)constants.h read_mesh_databases.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/read_mesh_databases.o read_mesh_databases.f90
-
-$O/setup_GLL_points.o: $(SHARED)constants.h setup_GLL_points.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/setup_GLL_points.o setup_GLL_points.f90
-
-$O/detect_mesh_surfaces.o: $(SHARED)constants.h detect_mesh_surfaces.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/detect_mesh_surfaces.o detect_mesh_surfaces.f90
-
-$O/setup_movie_meshes.o: $(SHARED)constants.h setup_movie_meshes.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/setup_movie_meshes.o setup_movie_meshes.f90
-
-$O/read_topography_bathymetry.o: $(SHARED)constants.h read_topography_bathymetry.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/read_topography_bathymetry.o read_topography_bathymetry.f90
-
-$O/setup_sources_receivers.o: $(SHARED)constants.h setup_sources_receivers.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/setup_sources_receivers.o setup_sources_receivers.f90
-
-$O/prepare_timerun.o: $(SHARED)constants.h prepare_timerun.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/prepare_timerun.o prepare_timerun.f90
-
-$O/iterate_time.o: $(SHARED)constants.h iterate_time.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/iterate_time.o iterate_time.f90
-
-$O/finalize_simulation.o: $(SHARED)constants.h finalize_simulation.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/finalize_simulation.o finalize_simulation.f90
-
-$O/assemble_MPI_vector.o: $(SHARED)constants.h assemble_MPI_vector.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/assemble_MPI_vector.o assemble_MPI_vector.f90
-
-$O/assemble_MPI_scalar.o: $(SHARED)constants.h ${SHARED}/assemble_MPI_scalar.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/assemble_MPI_scalar.o ${SHARED}/assemble_MPI_scalar.f90
-
-$O/save_adjoint_kernels.o: $(SHARED)constants.h save_adjoint_kernels.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/save_adjoint_kernels.o save_adjoint_kernels.f90
-
-$O/write_movie_output.o: $(SHARED)constants.h write_movie_output.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/write_movie_output.o write_movie_output.f90
-
-$O/create_color_image.o: $(SHARED)constants.h create_color_image.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/create_color_image.o create_color_image.f90
-
-$O/write_seismograms.o: $(SHARED)constants.h write_seismograms.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/write_seismograms.o write_seismograms.f90
-
-$O/write_output_ASCII.o: $(SHARED)constants.h write_output_ASCII.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/write_output_ASCII.o write_output_ASCII.f90
-
-$O/noise_tomography.o: $(SHARED)constants.h noise_tomography.f90
- ${FCCOMPILE_NO_CHECK} -c -o $O/noise_tomography.o noise_tomography.f90
-
-
-###
-### MPI compilation without optimization
-###
-
-$O/parallel.o: $(SHARED)constants.h ${SHARED}/parallel.f90
- ${MPIFCCOMPILE_CHECK} -c -o $O/parallel.o ${SHARED}/parallel.f90
-
-###
-### serial compilation without optimization
-###
-
-$O/serial.o: $(SHARED)constants.h ${SHARED}/exit_mpi.f90
- ${FCCOMPILE_CHECK} -c -o $O/serial.o ${SHARED}/serial.f90
-
-$O/program_specfem3D.o: program_specfem3D.f90
- ${FCCOMPILE_CHECK} -c -o $O/program_specfem3D.o program_specfem3D.f90
-
-$O/locate_source.o: $(SHARED)constants.h locate_source.f90
- ${FCCOMPILE_CHECK} -c -o $O/locate_source.o locate_source.f90
-
-$O/locate_receivers.o: $(SHARED)constants.h locate_receivers.f90
- ${FCCOMPILE_CHECK} -c -o $O/locate_receivers.o locate_receivers.f90
-
-$O/exit_mpi.o: $(SHARED)constants.h ${SHARED}/exit_mpi.f90
- ${FCCOMPILE_CHECK} -c -o $O/exit_mpi.o ${SHARED}/exit_mpi.f90
-
-$O/convolve_source_timefunction.o: ${SHARED}/convolve_source_timefunction.f90
- ${FCCOMPILE_CHECK} -c -o $O/convolve_source_timefunction.o ${SHARED}/convolve_source_timefunction.f90
-
-$O/save_header_file.o: $(SHARED)constants.h ${SHARED}/save_header_file.f90
- ${FCCOMPILE_CHECK} -c -o $O/save_header_file.o ${SHARED}/save_header_file.f90
-
-$O/read_parameter_file.o: $(SHARED)constants.h ${SHARED}/read_parameter_file.f90
- ${FCCOMPILE_CHECK} -c -o $O/read_parameter_file.o ${SHARED}/read_parameter_file.f90
-
-$O/read_value_parameters.o: $(SHARED)constants.h ${SHARED}/read_value_parameters.f90
- ${FCCOMPILE_CHECK} -c -o $O/read_value_parameters.o ${SHARED}/read_value_parameters.f90
-
-$O/get_value_parameters.o: $(SHARED)constants.h ${SHARED}/get_value_parameters.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_value_parameters.o ${SHARED}/get_value_parameters.f90
-
-$O/utm_geo.o: $(SHARED)constants.h ${SHARED}/utm_geo.f90
- ${FCCOMPILE_CHECK} -c -o $O/utm_geo.o ${SHARED}/utm_geo.f90
-
-$O/check_mesh_resolution.o: $(SHARED)constants.h ${SHARED}/check_mesh_resolution.f90
- ${FCCOMPILE_CHECK} -c -o $O/check_mesh_resolution.o ${SHARED}/check_mesh_resolution.f90
-
-$O/detect_surface.o: $(SHARED)constants.h ${SHARED}/detect_surface.f90
- ${FCCOMPILE_CHECK} -c -o $O/detect_surface.o ${SHARED}/detect_surface.f90
-
-$O/gll_library.o: $(SHARED)constants.h ${SHARED}/gll_library.f90
- ${FCCOMPILE_CHECK} -c -o $O/gll_library.o ${SHARED}/gll_library.f90
-
-$O/get_jacobian_boundaries.o: $(SHARED)constants.h ${SHARED}/get_jacobian_boundaries.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_jacobian_boundaries.o ${SHARED}/get_jacobian_boundaries.f90
-
-$O/get_flags_boundaries.o: $(SHARED)constants.h ${SHARED}/get_flags_boundaries.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_flags_boundaries.o ${SHARED}/get_flags_boundaries.f90
-
-$O/get_cmt.o: $(SHARED)constants.h ${SHARED}/get_cmt.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_cmt.o ${SHARED}/get_cmt.f90
-
-$O/create_movie_shakemap_AVS_DX_GMT.o: $(SHARED)constants.h ${SHARED}/create_movie_shakemap_AVS_DX_GMT.f90 $(OUTPUT)/surface_from_mesher.h
- ${FCCOMPILE_CHECK} -c -o $O/create_movie_shakemap_AVS_DX_GMT.o ${SHARED}/create_movie_shakemap_AVS_DX_GMT.f90 -I$(OUTPUT)
-
-$O/get_element_face.o: $(SHARED)constants.h ${SHARED}/get_element_face.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_element_face.o ${SHARED}/get_element_face.f90
-
-$O/write_VTK_data.o: $(SHARED)constants.h ${SHARED}/write_VTK_data.f90
- ${FCCOMPILE_CHECK} -c -o $O/write_VTK_data.o ${SHARED}/write_VTK_data.f90
-
-$O/get_shape3D.o: $(SHARED)constants.h ${SHARED}/get_shape3D.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_shape3D.o ${SHARED}/get_shape3D.f90
-
-$O/get_shape2D.o: $(SHARED)constants.h ${SHARED}/get_shape2D.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_shape2D.o ${SHARED}/get_shape2D.f90
-
-$O/hex_nodes.o: $(SHARED)constants.h ${SHARED}/hex_nodes.f90
- ${FCCOMPILE_CHECK} -c -o $O/hex_nodes.o ${SHARED}/hex_nodes.f90
-
-$O/netlib_specfun_erf.o: ${SHARED}/netlib_specfun_erf.f90
- ${FCCOMPILE_CHECK} -c -o $O/netlib_specfun_erf.o ${SHARED}/netlib_specfun_erf.f90
-
-$O/sort_array_coordinates.o: $(SHARED)constants.h ${SHARED}/sort_array_coordinates.f90
- ${FCCOMPILE_CHECK} -c -o $O/sort_array_coordinates.o ${SHARED}/sort_array_coordinates.f90
-
-$O/comp_source_time_function.o: $(SHARED)constants.h comp_source_time_function.f90
- ${FCCOMPILE_CHECK} -c -o $O/comp_source_time_function.o comp_source_time_function.f90
-
-$O/read_topo_bathy_file.o: $(SHARED)constants.h ${SHARED}/read_topo_bathy_file.f90
- ${FCCOMPILE_CHECK} -c -o $O/read_topo_bathy_file.o ${SHARED}/read_topo_bathy_file.f90
-
-$O/lagrange_poly.o: $(SHARED)constants.h ${SHARED}/lagrange_poly.f90
- ${FCCOMPILE_CHECK} -c -o $O/lagrange_poly.o ${SHARED}/lagrange_poly.f90
-
-$O/recompute_jacobian.o: $(SHARED)constants.h ${SHARED}/recompute_jacobian.f90
- ${FCCOMPILE_CHECK} -c -o $O/recompute_jacobian.o ${SHARED}/recompute_jacobian.f90
-
-$O/create_name_database.o: $(SHARED)constants.h ${SHARED}/create_name_database.f90
- ${FCCOMPILE_CHECK} -c -o $O/create_name_database.o ${SHARED}/create_name_database.f90
-
-$O/create_serial_name_database.o: $(SHARED)constants.h ${SHARED}/create_serial_name_database.f90
- ${FCCOMPILE_CHECK} -c -o $O/create_serial_name_database.o ${SHARED}/create_serial_name_database.f90
-
-$O/define_derivation_matrices.o: $(SHARED)constants.h ${SHARED}/define_derivation_matrices.f90
- ${FCCOMPILE_CHECK} -c -o $O/define_derivation_matrices.o ${SHARED}/define_derivation_matrices.f90
-
-$O/compute_adj_source_frechet.o: $(SHARED)constants.h compute_adj_source_frechet.f90
- ${FCCOMPILE_CHECK} -c -o $O/compute_adj_source_frechet.o compute_adj_source_frechet.f90
-
-$O/compute_arrays_source.o: $(SHARED)constants.h ${SHARED}/compute_arrays_source.f90
- ${FCCOMPILE_CHECK} -c -o $O/compute_arrays_source.o ${SHARED}/compute_arrays_source.f90
-
-$O/multiply_arrays_source.o: ${SHARED}/constants.h ${SHARED}/multiply_arrays_source.f90
- ${FCCOMPILE_CHECK} -c -o $O/multiply_arrays_source.o ${SHARED}/multiply_arrays_source.f90
-
-$O/get_attenuation_model.o: $(SHARED)constants.h ${SHARED}/get_attenuation_model.f90
- ${FCCOMPILE_CHECK} -c -o $O/get_attenuation_model.o ${SHARED}/get_attenuation_model.f90
-
-$O/compute_boundary_kernel.o: $(SHARED)constants.h ${SHARED}/compute_boundary_kernel.f90
- ${FCCOMPILE_CHECK} -c -o $O/compute_boundary_kernel.o ${SHARED}/compute_boundary_kernel.f90
-
-$O/compute_kernels.o: $(SHARED)constants.h ${SHARED}/compute_kernels.f90
- ${FCCOMPILE_CHECK} -c -o $O/compute_kernels.o ${SHARED}/compute_kernels.f90
-
-$O/combine_vol_data.o: $(SHARED)constants.h ${SHARED}/combine_vol_data.f90
- ${FCCOMPILE_CHECK} -c -o $O/combine_vol_data.o ${SHARED}/combine_vol_data.f90
-
-$O/combine_surf_data.o: $(SHARED)constants.h ${SHARED}/combine_surf_data.f90
- ${FCCOMPILE_CHECK} -c -o $O/combine_surf_data.o ${SHARED}/combine_surf_data.f90
-
-$O/prepare_assemble_MPI.o: $(SHARED)constants.h ${SHARED}/prepare_assemble_MPI.f90
- ${FCCOMPILE_CHECK} -c -o $O/prepare_assemble_MPI.o ${SHARED}/prepare_assemble_MPI.f90
-
-$O/PML_init.o: $(SHARED)constants.h PML_init.f90
- ${FCCOMPILE_CHECK} -c -o $O/PML_init.o PML_init.f90
-
-$O/smooth_vol_data.o: $(SHARED)constants.h ${SHARED}/smooth_vol_data.f90
- ${MPIFCCOMPILE_NO_CHECK} -c -o $O/smooth_vol_data.o ${SHARED}/smooth_vol_data.f90
-
-
-###
-### C files below
-###
-
-$O/param_reader.o: ${SHARED}/param_reader.c
- ${CC} -c $(CFLAGS) -o $O/param_reader.o ${SHARED}/param_reader.c -I../../
-
-$O/write_c_binary.o: ${SHARED}/write_c_binary.c
- ${CC} -c $(CFLAGS) -o $O/write_c_binary.o ${SHARED}/write_c_binary.c -I../../
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile~
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile~ 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/Makefile~ 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,280 +0,0 @@
-#=====================================================================
-#
-# S p e c f e m 3 D V e r s i o n 2 . 0
-# ---------------------------------------
-#
-# Main authors: Dimitri Komatitsch and Jeroen Tromp
-# Princeton University, USA and University of Pau / CNRS / INRIA
-# (c) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA
-# April 2011
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with this program; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-#
-#=====================================================================
-#
-# United States Government Sponsorship Acknowledged.
-#
-
-# src/specfem3D/Makefile. Generated from Makefile.in by configure.
-
-FC = mpif90
-FCFLAGS = #-g -O2
-MPIFC = mpif90
-MPILIBS =
-FLAGS_CHECK =
-FLAGS_NO_CHECK =
-FCFLAGS_f90 =
-
-SHARED = ../shared/
-# E : executables directory
-E = ../../bin
-# O : objects directory
-O = ../../obj/spec
-# L : libraries directory
-L = ../../lib
-# Output files directory
-OUTPUT=../../in_out_files/OUTPUT_FILES
-
-FCCOMPILE_CHECK = ${FC} ${FCFLAGS} $(FLAGS_CHECK) -I$(SHARED)
-FCCOMPILE_NO_CHECK = ${FC} ${FCFLAGS} $(FLAGS_NO_CHECK) -I$(SHARED)
-MPIFCCOMPILE_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_CHECK) -I$(SHARED)
-MPIFCCOMPILE_NO_CHECK = ${MPIFC} ${FCFLAGS} $(FLAGS_NO_CHECK) -I$(SHARED)
-FCLINK = $(MPIFCCOMPILE_NO_CHECK)
-#FCLINK = $(FCCOMPILE_NO_CHECK)
-
-CC = gcc
-CFLAGS = -g -O2 $(CPPFLAGS)
-CPPFLAGS = -I/usr/include/scotch $(COND_MPI_CPPFLAGS)
-COND_MPI_CPPFLAGS = -DWITH_MPI
-#COND_MPI_CPPFLAGS =
-
-AR = ar
-ARFLAGS = cru
-RANLIB = ranlib
-
-libspecfem_a_OBJECTS = \
- assemble_MPI_scalar.o \
- check_mesh_resolution.o \
- comp_source_time_function.o \
- compute_adj_source_frechet.o \
- compute_arrays_source.o \
- multiply_arrays_source.o \
- create_name_database.o \
- create_serial_name_database.o \
- define_derivation_matrices.o \
- detect_surface.o \
- exit_mpi.o \
- force_ftz.o \
- get_attenuation_model.o \
- get_cmt.o \
- get_element_face.o \
- get_jacobian_boundaries.o \
- get_shape2D.o \
- get_shape3D.o \
- get_value_parameters.o \
- gll_library.o \
- hex_nodes.o \
- lagrange_poly.o \
- locate_receivers.o \
- locate_source.o \
- netlib_specfun_erf.o \
- param_reader.o \
- prepare_assemble_MPI.o \
- read_topo_bathy_file.o \
- read_parameter_file.o \
- read_value_parameters.o \
- recompute_jacobian.o \
- save_header_file.o \
- sort_array_coordinates.o \
- utm_geo.o \
- write_VTK_data.cc.o \
- write_c_binary.cc.o
-
-# solver objects - no statically allocated arrays anymore
-SOLVER_ARRAY_OBJECTS = \
- program_specfem3D.o \
- specfem3D_par.o \
- PML_init.o \
- compute_boundary_kernel.shared.o \
- compute_kernels.shared.o \
- compute_forces_acoustic.o \
- compute_forces_acoustic_pot.o \
- compute_forces_acoustic_PML.o \
- compute_forces_elastic.o \
- compute_forces_elastic_Dev.o \
- compute_forces_elastic_noDev.o \
- compute_add_sources_acoustic.o \
- compute_add_sources_elastic.o \
- compute_coupling_acoustic_el.o \
- compute_coupling_elastic_ac.o \
- compute_stacey_acoustic.o \
- compute_stacey_elastic.o \
- compute_gradient.o \
- compute_interpolated_dva.o \
- initialize_simulation.o \
- read_mesh_databases.o \
- setup_GLL_points.o \
- write_movie_output.o \
- create_color_image.o \
- write_seismograms.o \
- write_output_ASCII.o \
- detect_mesh_surfaces.o \
- setup_movie_meshes.o \
- read_topography_bathymetry.o \
- setup_sources_receivers.o \
- prepare_timerun.o \
- iterate_time.o \
- finalize_simulation.o \
- save_adjoint_kernels.o \
- specfem3D.o \
- assemble_MPI_vector.o \
- noise_tomography.o \
- it_update_displacement_cuda.cuda.o \
- compute_forces_elastic_cuda.cuda.o \
- compute_stacey_elastic_cuda.cuda.o \
- compute_add_sources_cuda.cuda.o \
- prepare_mesh_constants_cuda.cuda.o \
- noise_tomography_cuda.cuda.o \
- save_and_compare_cpu_vs_gpu.cuda.o \
- write_seismograms_cuda.cuda.o \
- compute_kernels_cuda.cuda.o
-
-
-# objects toggled between the parallel and serial version
-COND_MPI_OBJECTS = $O/parallel.o
-#COND_MPI_OBJECTS = $O/serial.o
-
-LIBSPECFEM = $L/libspecfem.a
-
-# objects for the pure Fortran version
-XGENERATE_DATABASES_OBJECTS = $O/program_generate_databases.o $(LIBSPECFEM)
-XSPECFEM_OBJECTS = $(SOLVER_ARRAY_OBJECTS) $(LIBSPECFEM)
-
-####
-#### targets
-####
-
-# default targets for the pure Fortran version
-DEFAULT = \
- generate_databases \
- specfem3D \
- combine_vol_data \
- combine_surf_data \
- convolve_source_timefunction \
- smooth_vol_data \
- $(EMPTY_MACRO)
-
-default: $(DEFAULT)
-
-all: clean default
-
-specfem3D: xspecfem3D
-
-
-####
-#### rules for executables
-####
-
-# rules for the pure Fortran version
-xgenerate_databases: $(XGENERATE_DATABASES_OBJECTS) $(COND_MPI_OBJECTS)
- ${FCLINK} -o ${E}/xgenerate_databases $(XGENERATE_DATABASES_OBJECTS) $(COND_MPI_OBJECTS) $(MPILIBS)
-
-# solver also depends on values from mesher
-xspecfem3D: $(XSPECFEM_OBJECTS) $(COND_MPI_OBJECTS)
- ${FCLINK} -o ${E}/xspecfem3D $(addprefix $O/,$(XSPECFEM_OBJECTS)) $(COND_MPI_OBJECTS) $(MPILIBS)
-
-
-convolve_source_timefunction: xconvolve_source_timefunction
-create_movie_shakemap_AVS_DX_GMT: xcreate_movie_shakemap_AVS_DX_GMT
-combine_vol_data: xcombine_vol_data
-combine_surf_data: xcombine_surf_data
-smooth_vol_data: xsmooth_vol_data
-
-xconvolve_source_timefunction: $O/convolve_source_timefunction.o
- ${FCCOMPILE_CHECK} -o ${E}/xconvolve_source_timefunction $O/convolve_source_timefunction.o
-
-xcreate_movie_shakemap_AVS_DX_GMT: $O/create_movie_shakemap_AVS_DX_GMT.o $(LIBSPECFEM) $(OUTPUT)/surface_from_mesher.h
- ${FCCOMPILE_CHECK} -o ${E}/xcreate_movie_shakemap_AVS_DX_GMT $O/create_movie_shakemap_AVS_DX_GMT.o $(LIBSPECFEM) -I$(OUTPUT)
-
-xcombine_vol_data: $O/combine_vol_data.o $O/write_c_binary.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_vol_data $O/combine_vol_data.o $O/write_c_binary.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o
-
-xcombine_surf_data: $O/combine_surf_data.o $O/write_c_binary.o $O/param_reader.o
- ${FCCOMPILE_CHECK} -o ${E}/xcombine_surf_data $O/combine_surf_data.o $O/write_c_binary.o $O/param_reader.o
-
-xsmooth_vol_data: $O/smooth_vol_data.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o $O/gll_library.o $O/exit_mpi.o $O/parallel.o
- ${FCLINK} -o ${E}/xsmooth_vol_data $O/smooth_vol_data.o $O/read_parameter_file.o $O/read_value_parameters.o $O/get_value_parameters.o $O/param_reader.o $O/gll_library.o $O/exit_mpi.o $O/parallel.o $(MPILIBS)
-
-
-clean:
- rm -f $O/* *.o *.gnu *.mod $(OUTPUT)/timestamp* $(OUTPUT)/starttime*txt work.pc* \
- xgenerate_databases xspecfem3D \
- xconvolve_source_timefunction \
- xcreate_movie_shakemap_AVS_DX_GMT xcombine_vol_data xcombine_surf_data xsmooth_vol_data
-
-###
-### rule for the archive library
-###
-
-$L/libspecfem.a: $(libspecfem_a_OBJECTS)
- -rm -f $L/libspecfem.a
- $(AR) $(ARFLAGS) $L/libspecfem.a $(addprefix $O/,$(libspecfem_a_OBJECTS))
- $(RANLIB) $L/libspecfem.a
-
-####
-#### rule to build each .o file below
-####
-
-###
-### optimized flags (not dependent on values from mesher anymore)
-###
-
-%.o: %.f90 $(SHARED)constants.h
- ${FCCOMPILE_NO_CHECK} -c -o $O/$@ $<
-
-%.shared.o: ${SHARED}%.f90 $(SHARED)constants.h
- ${FCCOMPILE_NO_CHECK} -c -o $O/$@ $<
-
-%.cuda.o: %.cu
- nvcc -c $< -o $O/$@ $(CUDA_INC) $(MPI_INC) -gencode=arch=compute_20,code=sm_20
-
-### C compilation
-force_ftz.o: ${SHARED}/force_ftz.c ../../config.h
- ${CC} -c $(CPPFLAGS) $(CFLAGS) -I../.. -o $O/force_ftz.o ${SHARED}/force_ftz.c
-
-
-%.cc.o: ${SHARED}/%.c ../../config.h
- ${CC} -c $(CFLAGS) -o $O/$@ ${SHARED}/$< -I../../
-
-
-###
-### C files below
-###
-
-# $O/param_reader.o: ${SHARED}/param_reader.c
-# ${CC} -c $(CFLAGS) -o $O/param_reader.o ${SHARED}/param_reader.c -I../../
-
-# $O/write_c_binary.o: ${SHARED}/write_c_binary.c
-# ${CC} -c $(CFLAGS) -o $O/write_c_binary.o ${SHARED}/write_c_binary.c -I../../
-
-
-
-###
-### MPI compilation without optimization
-###
-
-$O/parallel.o: $(SHARED)constants.h ${SHARED}/parallel.f90
- ${MPIFCCOMPILE_CHECK} -c -o $O/parallel.o ${SHARED}/parallel.f90
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_add_sources_cuda.cu~
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_add_sources_cuda.cu~ 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_add_sources_cuda.cu~ 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,565 +0,0 @@
-#include <stdio.h>
-#include <cuda.h>
-#include <cublas.h>
-#include <mpi.h>
-#include <sys/types.h>
-#include <unistd.h>
-#include <sys/time.h>
-#include <sys/resource.h>
-
-#include "mesh_constants_cuda.h"
-
-#include "epik_user.h"
-
-void print_CUDA_error_if_any(cudaError_t err, int num);
-
-typedef float real; //type of variables passed into function
-typedef float realw; //type of "working" variables
-
-#define MAXDEBUG 1
-#define ENABLE_VERY_SLOW_ERROR_CHECKING
-
-#if MAXDEBUG == 1
-#define LOG(x) printf("%s\n",x)
-#define PRINT5(var,offset) for(;print_count<5;print_count++) printf("var(%d)=%2.20f\n",print_count,var[offset+print_count]);
-#define PRINT10(var) if(print_count<10) { printf("var=%1.20e\n",var); print_count++; }
-#define PRINT10i(var) if(print_count<10) { printf("var=%d\n",var); print_count++; }
-#else
-#define LOG(x) // printf("%s\n",x);
-#define PRINT5(var,offset) // for(i=0;i<10;i++) printf("var(%d)=%f\n",i,var[offset+i]);
-#endif
-
-#define INDEX2(xsize,x,y) x + (y)*xsize
-#define INDEX3(xsize,ysize,x,y,z) x + (y)*xsize + (z)*xsize*ysize
-#define INDEX4(xsize,ysize,zsize,x,y,z,i) x + (y)*xsize + (z)*xsize*ysize + (i)*xsize*ysize*zsize
-#define INDEX5(xsize,ysize,zsize,isize,x,y,z,i,j) x + (y)*xsize + (z)*xsize*ysize + (i)*xsize*ysize*zsize + (j)*xsize*ysize*zsize*isize
-
-#define INDEX6(xsize,ysize,zsize,isize,jsize,x,y,z,i,j,k) x + xsize*(y + ysize*(z + zsize*(i + isize*(j + jsize*k))))
-
-#define NDIM 3
-#define NGLLX 5
-
-
-// crashes if the CMTSOLUTION does not match the mesh properly
-__global__ void compute_add_sources_kernel(float* accel, int* ibool, int* ispec_is_inner, int phase_is_inner, float* sourcearrays, double* stf_pre_compute,int myrank, int* islice_selected_source, int* ispec_selected_source, int* ispec_is_elastic, int NSOURCES,float* d_debug) {
- int i = threadIdx.x;
- int j = threadIdx.y;
- int k = threadIdx.z;
-
- int isource = blockIdx.x + gridDim.x*blockIdx.y; // bx
- int ispec;
- int iglob;
- double stf;
-
- if(isource < NSOURCES) { // when NSOURCES > 65535, but mod(nspec_top,2) > 0, we end up with an extra block.
-
- if(myrank == islice_selected_source[isource]) {
-
- ispec = ispec_selected_source[isource]-1;
-
- if(ispec_is_inner[ispec] == phase_is_inner && ispec_is_elastic[ispec] == 1) {
-
- stf = stf_pre_compute[isource];
- iglob = ibool[INDEX4(5,5,5,i,j,k,ispec)]-1;
- atomicAdd(&accel[iglob*3],
- sourcearrays[INDEX5(NSOURCES, 3, 5, 5,isource, 0, i,j,k)]*stf);
- atomicAdd(&accel[iglob*3+1],
- sourcearrays[INDEX5(NSOURCES, 3, 5, 5,isource, 1, i,j,k)]*stf);
- // if((iglob*3+2 == 304598)) {
- // atomicAdd(&d_debug[0],1.0f);
- // d_debug[1] = accel[iglob*3+2];
- // d_debug[2] = sourcearrays[INDEX5(NSOURCES, 3, 5, 5,isource, 2, i,j,k)];
- // d_debug[3] = stf;
- // }
- // d_debug[4] = 42.0f;
- atomicAdd(&accel[iglob*3+2],
- sourcearrays[INDEX5(NSOURCES, 3, 5, 5,isource, 2, i,j,k)]*stf);
-
- }
- }
- }
-
-}
-extern "C" {
- void add_source_master_rec_noise_cuda_(long* Mesh_pointer_f, int* myrank_f, int* it_f, int* irec_master_noise_f, int* islice_selected_rec);
-}
-
-extern "C" void add_sourcearrays_adjoint_cuda_(long* Mesh_pointer,
- int* USE_FORCE_POINT_SOURCE,
- double* h_stf_pre_compute,int* NSOURCES,
- int* phase_is_inner,int* myrank) {
- EPIK_TRACER("add_sourcearrays_adjoint_cuda");
-
- Mesh* mp = (Mesh*)(*Mesh_pointer); //get mesh pointer out of fortran integer container
- if(*USE_FORCE_POINT_SOURCE) {
- printf("USE FORCE POINT SOURCE not implemented for GPU_MODE");
- MPI_Abort(MPI_COMM_WORLD, 1);
- }
- cudaMemcpy(mp->d_stf_pre_compute,h_stf_pre_compute,*NSOURCES*sizeof(double),
- cudaMemcpyHostToDevice);
-
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- exit_on_cuda_error("noise_read_add_surface_movie_cuda_kernel");
-#endif
-
- int num_blocks_x = *NSOURCES;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
-
- dim3 grid(num_blocks_x,num_blocks_y);
- dim3 threads(5,5,5);
-
- float* d_debug;
- // float* h_debug = (float*)calloc(128,sizeof(float));
- // cudaMalloc((void**)&d_debug,128*sizeof(float));
- // cudaMemcpy(d_debug,h_debug,128*sizeof(float),cudaMemcpyHostToDevice);
-
- compute_add_sources_kernel<<<grid,threads>>>(mp->d_b_accel,mp->d_ibool, mp->d_ispec_is_inner, *phase_is_inner, mp->d_sourcearrays, mp->d_stf_pre_compute,*myrank, mp->d_islice_selected_source,mp->d_ispec_selected_source,mp->d_ispec_is_elastic, *NSOURCES,d_debug);
-
- // cudaMemcpy(h_debug,d_debug,128*sizeof(float),cudaMemcpyDeviceToHost);
- // for(int i=0;i<10;i++) {
- // printf("debug[%d] = %e \n",i,h_debug[i]);
- // }
-
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- // sync and check to catch errors from previous async operations
- cudaThreadSynchronize();
- cudaError_t err = cudaGetLastError();
- if (err != cudaSuccess)
- {
- fprintf(stderr,"Error launching/running add_sourcearrays_adjoint_cuda:->\n\tcompute_add_sources_kernel: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-#endif
-
-
-}
-
-extern "C" void compute_add_sources_elastic_cuda_(long* Mesh_pointer_f, int* NSPEC_ABf, int* NGLOB_ABf, int* phase_is_innerf,int* NSOURCESf, int* itf, float* dtf, float* t0f,int* SIMULATION_TYPEf,int* NSTEPf,int* NOISE_TOMOGRAPHYf, int* USE_FORCE_POINT_SOURCEf, double* h_stf_pre_compute, int* myrankf) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
- int NSPEC_AB = *NSPEC_ABf;
- int NGLOB_AB = *NGLOB_ABf;
- int phase_is_inner = *phase_is_innerf;
- int it = *itf;
- float dt = *dtf;
- float t0 = *t0f;
- int SIMULATION_TYPE = *SIMULATION_TYPEf;
- int NSTEP = *NSTEPf;
- int NOISE_TOMOGRAPHY = *NOISE_TOMOGRAPHYf;
- int NSOURCES = *NSOURCESf;
- int USE_FORCE_POINT_SOURCE = *USE_FORCE_POINT_SOURCEf;
- int myrank = *myrankf;
-
- float* d_debug;
- int num_blocks_x = NSOURCES;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
-
- double* d_stf_pre_compute;
- print_CUDA_error_if_any(cudaMemcpy(mp->d_stf_pre_compute,h_stf_pre_compute,NSOURCES*sizeof(double),cudaMemcpyHostToDevice),18);
-
- dim3 grid(num_blocks_x,num_blocks_y);
- dim3 threads(5,5,5);
- // (float* accel, int* ibool, int* ispec_is_inner, int phase_is_inner, float* sourcearrays, double* stf_pre_compute,int myrank, int* islice_selected_source, int* ispec_selected_source, int* ispec_is_elastic, int NSOURCES)
-
-
-
- compute_add_sources_kernel<<<grid,threads>>>(mp->d_accel,mp->d_ibool, mp->d_ispec_is_inner, phase_is_inner, mp->d_sourcearrays, mp->d_stf_pre_compute,myrank, mp->d_islice_selected_source,mp->d_ispec_selected_source,mp->d_ispec_is_elastic, NSOURCES,d_debug);
- #ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- // sync and check to catch errors from previous async operations
- cudaThreadSynchronize();
- cudaError_t err = cudaGetLastError();
- if (err != cudaSuccess)
- {
- fprintf(stderr,"Error launching/running compute_add_sources_kernel: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-#endif
-}
-
-__global__ void add_source_master_rec_noise_cuda_kernel(int* ibool, int* ispec_selected_rec, int irec_master_noise, real* accel, real* noise_sourcearray, int it) {
- int tx = threadIdx.x;
- int iglob = ibool[tx + 125*(ispec_selected_rec[irec_master_noise-1]-1)]-1;
-
- // not sure if we need atomic operations but just in case...
- // accel[3*iglob] += noise_sourcearray[3*tx + 3*125*it];
- // accel[1+3*iglob] += noise_sourcearray[1+3*tx + 3*125*it];
- // accel[2+3*iglob] += noise_sourcearray[2+3*tx + 3*125*it];
-
- atomicAdd(&accel[iglob*3],noise_sourcearray[3*tx + 3*125*it]);
- atomicAdd(&accel[iglob*3+1],noise_sourcearray[1+3*tx + 3*125*it]);
- atomicAdd(&accel[iglob*3+2],noise_sourcearray[2+3*tx + 3*125*it]);
-
-}
-
-void add_source_master_rec_noise_cuda_(long* Mesh_pointer_f, int* myrank_f, int* it_f, int* irec_master_noise_f, int* islice_selected_rec) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- int it = *it_f-1; // -1 for Fortran -> C indexing differences
- int irec_master_noise = *irec_master_noise_f;
- int myrank = *myrank_f;
- dim3 grid(1,1,1);
- dim3 threads(125,1,1);
- if(myrank == islice_selected_rec[irec_master_noise-1]) {
- add_source_master_rec_noise_cuda_kernel<<<grid,threads>>>(mp->d_ibool, mp->d_ispec_selected_rec,
- irec_master_noise, mp->d_accel,
- mp->d_noise_sourcearray, it);
- #ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- // sync and check to catch errors from previous async operations
- cudaThreadSynchronize();
- cudaError_t err = cudaGetLastError();
- if (err != cudaSuccess)
- {
- fprintf(stderr,"Error launching/running add_source_master_rec_noise_cuda_kernel: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-#endif
- }
-}
-
-
-__global__ void noise_read_add_surface_movie_cuda_kernel(real* accel, int* ibool, int* ibelm_top, int nspec_top, real* noise_surface_movie, real* normal_x_noise, real* normal_y_noise, real* normal_z_noise, real* mask_noise, real* jacobian2D_top, real* wgllwgll_xy,float* d_debug) {
-
- int ispec2D = blockIdx.x + gridDim.x*blockIdx.y; // surface element id
- if(ispec2D < nspec_top) { // when nspec_top > 65535, but mod(nspec_top,2) > 0, we end up with an extra block.
- int ispec = ibelm_top[ispec2D]-1;
-
- int tx = threadIdx.x + threadIdx.y*blockDim.x;
-
- int ipoin = 25*ispec2D + tx;
-
- int iglob = ibool[tx + 4*25 + 125*ispec]-1;
-
- real normal_x = normal_x_noise[ipoin];
- real normal_y = normal_y_noise[ipoin];
- real normal_z = normal_z_noise[ipoin];
-
- real eta = (noise_surface_movie[0 + tx*3 + ispec2D*3*25]*normal_x +
- noise_surface_movie[1 + tx*3 + ispec2D*3*25]*normal_y +
- noise_surface_movie[2 + tx*3 + ispec2D*3*25]*normal_z);
-
- // error from cuda-memcheck and ddt seems "incorrect", because we
- // are passing a __constant__ variable pointer around like it was
- // made using cudaMalloc, which *may* be "incorrect"
-
- // ========= Invalid __global__ read of size
- // 4 ========= at 0x00000cd8 in
- // compute_add_sources_cuda.cu:260:noise_read_add_surface_movie_cuda_kernel
- // ========= by thread (0,0,0) in block (3443,0) ========= Address
- // 0x203000c8 is out of bounds
-
- // non atomic version for speed testing -- atomic updates are needed for correctness
- // accel[3*iglob] += eta*mask_noise[ipoin] * normal_x * wgllwgll_xy[tx] * jacobian2D_top[tx + 25*ispec2D];
- // accel[3*iglob+1] += eta*mask_noise[ipoin] * normal_y * wgllwgll_xy[tx] * jacobian2D_top[tx + 25*ispec2D];
- // accel[3*iglob+2] += eta*mask_noise[ipoin] * normal_z * wgllwgll_xy[tx] * jacobian2D_top[tx + 25*ispec2D];
-
- atomicAdd(&accel[iglob*3] ,eta*mask_noise[ipoin]*normal_x*wgllwgll_xy[tx]*jacobian2D_top[tx+25*ispec2D]);
- atomicAdd(&accel[iglob*3+1],eta*mask_noise[ipoin]*normal_y*wgllwgll_xy[tx]*jacobian2D_top[tx+25*ispec2D]);
- atomicAdd(&accel[iglob*3+2],eta*mask_noise[ipoin]*normal_z*wgllwgll_xy[tx]*jacobian2D_top[tx+25*ispec2D]);
- }
-}
-
-extern "C" void noise_read_add_surface_movie_cuda_(long* Mesh_pointer_f, real* h_noise_surface_movie, int* it_f, int* nspec_top_f,int* NOISE_TOMOGRAPHYf) {
-
- EPIK_TRACER("noise_read_add_surface_movie_cuda");
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
- int it = *it_f;
- int nspec_top = *nspec_top_f;
- int NOISE_TOMOGRAPHY = *NOISE_TOMOGRAPHYf;
- float* d_noise_surface_movie;
- cudaMalloc((void**)&d_noise_surface_movie,3*25*nspec_top*sizeof(float));
- cudaMemcpy(d_noise_surface_movie, h_noise_surface_movie,3*25*nspec_top*sizeof(real),cudaMemcpyHostToDevice);
-
- int num_blocks_x = nspec_top;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
- dim3 grid(num_blocks_x,num_blocks_y,1);
- dim3 threads(25,1,1);
-
- // float* h_debug = (float*)calloc(128,sizeof(float));
- float* d_debug;
- // cudaMalloc((void**)&d_debug,128*sizeof(float));
- // cudaMemcpy(d_debug,h_debug,128*sizeof(float),cudaMemcpyHostToDevice);
-
- if(NOISE_TOMOGRAPHY == 2) { // add surface source to forward field
- noise_read_add_surface_movie_cuda_kernel<<<grid,threads>>>(mp->d_accel,
- mp->d_ibool, mp->d_ibelm_top,
- nspec_top,
- d_noise_surface_movie,
- mp->d_normal_x_noise,
- mp->d_normal_y_noise,
- mp->d_normal_z_noise,
- mp->d_mask_noise,
- mp->d_jacobian2D_top,
- mp->d_wgllwgll_xy,
- d_debug);
- }
- else if(NOISE_TOMOGRAPHY==3) { // add surface source to adjoint (backward) field
- noise_read_add_surface_movie_cuda_kernel<<<grid,threads>>>(mp->d_b_accel,
- mp->d_ibool, mp->d_ibelm_top,
- nspec_top,
- d_noise_surface_movie,
- mp->d_normal_x_noise,
- mp->d_normal_y_noise,
- mp->d_normal_z_noise,
- mp->d_mask_noise,
- mp->d_jacobian2D_top,
- mp->d_wgllwgll_xy,
- d_debug);
- }
-
-
- // cudaMemcpy(h_debug,d_debug,128*sizeof(float),cudaMemcpyDeviceToHost);
- // for(int i=0;i<8;i++) {
- // printf("debug[%d]= %e\n",i,h_debug[i]);
- // }
- // MPI_Abort(MPI_COMM_WORLD,1);
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
-
- exit_on_cuda_error("noise_read_add_surface_movie_cuda_kernel");
- // sync and check to catch errors from previous async operations
- // cudaThreadSynchronize();
- // cudaError_t err = cudaGetLastError();
- // if (err != cudaSuccess)
- // {
- // fprintf(stderr,"Error launching/running noise_read_add_surface_movie_cuda_kernel: %s\n", cudaGetErrorString(err));
- // exit(1);
- // }
-#endif
-
- cudaFree(d_noise_surface_movie);
-}
-
-
-__global__ void add_sources_SIM_TYPE_2_OR_3_kernel(float* accel, int nrec,
- float* adj_sourcearrays,
- int* ibool,
- int* ispec_is_inner,
- int* ispec_selected_rec,
- int phase_is_inner,
- int* islice_selected_rec,
- int* pre_computed_irec,
- int nadj_rec_local,
- int NTSTEP_BETWEEN_ADJSRC,
- int myrank,
- int* debugi,
- float* debugf) {
- int irec_local = blockIdx.x + gridDim.x*blockIdx.y;
- if(irec_local<nadj_rec_local) { // when nrec > 65535, but mod(nspec_top,2) > 0, we end up with an extra block.
-
- int irec = pre_computed_irec[irec_local];
-
- int ispec_selected = ispec_selected_rec[irec]-1;
- if(ispec_is_inner[ispec_selected] == phase_is_inner) {
- int i = threadIdx.x;
- int j = threadIdx.y;
- int k = threadIdx.z;
- int iglob = ibool[i+5*(j+5*(k+5*ispec_selected))]-1;
-
- // atomic operations are absolutely necessary for correctness!
- atomicAdd(&(accel[0+3*iglob]),adj_sourcearrays[INDEX5(5,5,5,3,
- i,j,k,
- 0,
- irec_local)]);
-
- atomicAdd(&accel[1+3*iglob], adj_sourcearrays[INDEX5(5,5,5,3,
- i,j,k,
- 1,
- irec_local)]);
-
- atomicAdd(&accel[2+3*iglob],adj_sourcearrays[INDEX5(5,5,5,3,
- i,j,k,
- 2,
- irec_local)]);
- }
-
- }
-
-}
-
-extern "C" void add_sources_sim_type_2_or_3_(long* Mesh_pointer, float* h_adj_sourcearrays,
- int* size_adj_sourcearrays, int* ispec_is_inner,
- int* phase_is_inner, int* ispec_selected_rec,
- int* ibool,
- int* myrank, int* nrec, int* time_index,
- int* h_islice_selected_rec,int* nadj_rec_local,
- int* NTSTEP_BETWEEN_READ_ADJSRC) {
-
- if(*nadj_rec_local > 0) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer); //get mesh pointer out of fortran integer container
- int rank;
- MPI_Comm_rank(MPI_COMM_WORLD,&rank);
-
- // make sure grid dimension is less than 65535 in x dimension
- int num_blocks_x = *nadj_rec_local;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
- dim3 grid(num_blocks_x,num_blocks_y,1);
- dim3 threads(5,5,5);
-
- float* d_adj_sourcearrays;
- print_CUDA_error_if_any(cudaMalloc((void**)&d_adj_sourcearrays,
- (*nadj_rec_local)*3*125*sizeof(float)),1);
- float* h_adj_sourcearrays_slice = (float*)malloc((*nadj_rec_local)*3*125*sizeof(float));
-
- int* h_pre_computed_irec = new int[*nadj_rec_local];
- int* d_pre_computed_irec;
- cudaMalloc((void**)&d_pre_computed_irec,(*nadj_rec_local)*sizeof(int));
-
- // build slice of adj_sourcearrays because full array is *very* large.
- int irec_local = 0;
- for(int irec = 0;irec<*nrec;irec++) {
- if(*myrank == h_islice_selected_rec[irec]) {
- irec_local++;
- h_pre_computed_irec[irec_local-1] = irec;
- if(ispec_is_inner[ispec_selected_rec[irec]-1] == *phase_is_inner) {
- for(int k=0;k<5;k++) {
- for(int j=0;j<5;j++) {
- for(int i=0;i<5;i++) {
-
- h_adj_sourcearrays_slice[INDEX5(5,5,5,3,
- i,j,k,0,
- irec_local-1)]
- = h_adj_sourcearrays[INDEX6(*nadj_rec_local,
- *NTSTEP_BETWEEN_READ_ADJSRC,
- 3,5,5,
- irec_local-1,
- *time_index-1,
- 0,i,j,k)];
-
- h_adj_sourcearrays_slice[INDEX5(5,5,5,3,
- i,j,k,1,
- irec_local-1)]
- = h_adj_sourcearrays[INDEX6(*nadj_rec_local,
- *NTSTEP_BETWEEN_READ_ADJSRC,
- 3,5,5,
- irec_local-1,
- *time_index-1,
- 1,i,j,k)];
-
- h_adj_sourcearrays_slice[INDEX5(5,5,5,3,
- i,j,k,2,
- irec_local-1)]
- = h_adj_sourcearrays[INDEX6(*nadj_rec_local,
- *NTSTEP_BETWEEN_READ_ADJSRC,
- 3,5,5,
- irec_local-1,
- *time_index-1,
- 2,i,j,k)];
-
-
- }
- }
- }
- }
- }
- }
- // printf("irec_local vs. *nadj_rec_local -> %d vs. %d\n",irec_local,*nadj_rec_local);
- // for(int ispec=0;ispec<(*nadj_rec_local);ispec++) {
- // for(int i=0;i<5;i++)
- // for(int j=0;j<5;j++)
- // for(int k=0;k<5;k++) {
- // h_adj_sourcearrays_slice[INDEX5(5,5,5,3,i,j,k,0,ispec)] =
- // h_adj_sourcearrays[INDEX6(*nadj_rec_local,*NTSTEP_BETWEEN_READ_ADJSRC,3,5,5,
- // ispec,
- // *time_index-1,
- // 0,
- // i,j,k)];
- // h_adj_sourcearrays_slice[INDEX5(5,5,5,3,i,j,k,1,ispec)] =
- // h_adj_sourcearrays[INDEX6(*nadj_rec_local,*NTSTEP_BETWEEN_READ_ADJSRC,3,5,5,
- // ispec,
- // *time_index-1,
- // 1,
- // i,j,k)];
- // h_adj_sourcearrays_slice[INDEX5(5,5,5,3,i,j,k,2,ispec)] =
- // h_adj_sourcearrays[INDEX6(*nadj_rec_local,*NTSTEP_BETWEEN_ADJSRC,3,5,5,
- // ispec,
- // *time_index-1,
- // 2,
- // i,j,k)];
- // }
-
- // }
-
- cudaMemcpy(d_adj_sourcearrays, h_adj_sourcearrays_slice,(*nadj_rec_local)*3*125*sizeof(float),
- cudaMemcpyHostToDevice);
-
-
- // the irec_local variable needs to be precomputed (as
- // h_pre_comp..), because normally it is in the loop updating accel,
- // and due to how it's incremented, it cannot be parallelized
-
- // int irec_local=0;
- // for(int irec=0;irec<*nrec;irec++) {
- // if(*myrank == h_islice_selected_rec[irec]) {
- // h_pre_computed_irec_local_index[irec] = irec_local;
- // irec_local++;
- // if(irec_local==1) {
- // // printf("%d:first useful irec==%d\n",rank,irec);
- // }
- // }
- // else h_pre_computed_irec_local_index[irec] = 0;
- // }
- cudaMemcpy(d_pre_computed_irec,h_pre_computed_irec,
- (*nadj_rec_local)*sizeof(int),cudaMemcpyHostToDevice);
- // pause_for_debugger(1);
- int* d_debugi, *h_debugi;
- float* d_debugf, *h_debugf;
- h_debugi = (int*)calloc(num_blocks_x,sizeof(int));
- cudaMalloc((void**)&d_debugi,num_blocks_x*sizeof(int));
- cudaMemcpy(d_debugi,h_debugi,num_blocks_x*sizeof(int),cudaMemcpyHostToDevice);
- h_debugf = (float*)calloc(num_blocks_x,sizeof(float));
- cudaMalloc((void**)&d_debugf,num_blocks_x*sizeof(float));
- cudaMemcpy(d_debugf,h_debugf,num_blocks_x*sizeof(float),cudaMemcpyHostToDevice);
-
- add_sources_SIM_TYPE_2_OR_3_kernel<<<grid,threads>>>(mp->d_accel, *nrec,
- d_adj_sourcearrays, mp->d_ibool,
- mp->d_ispec_is_inner,
- mp->d_ispec_selected_rec,
- *phase_is_inner,
- mp->d_islice_selected_rec,
- d_pre_computed_irec,
- *nadj_rec_local,
- *NTSTEP_BETWEEN_READ_ADJSRC,
- *myrank,
- d_debugi,d_debugf);
-
- cudaMemcpy(h_debugi,d_debugi,num_blocks_x*sizeof(int),cudaMemcpyDeviceToHost);
- cudaMemcpy(h_debugf,d_debugf,num_blocks_x*sizeof(float),cudaMemcpyDeviceToHost);
-
- // printf("%d: pre_com0:%d\n",rank,h_pre_computed_irec_local_index[0]);
- // printf("%d: pre_com1:%d\n",rank,h_pre_computed_irec_local_index[1]);
- // printf("%d: pre_com2:%d\n",rank,h_pre_computed_irec_local_index[2]);
- // for(int i=156;i<(156+30);i++) {
- // if(rank==0) printf("%d:debug[%d] = i/f = %d / %e\n",rank,i,h_debugi[i],h_debugf[i]);
- // }
-
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- // cudaThreadSynchronize();
- // MPI_Barrier(MPI_COMM_WORLD);
- exit_on_cuda_error("add_sources_SIM_TYPE_2_OR_3_kernel");
-
- // printf("Proc %d exiting with successful kernel\n",rank);
- // exit(1);
-#endif
- delete h_pre_computed_irec;
- cudaFree(d_adj_sourcearrays);
- cudaFree(d_pre_computed_irec);
- }
-}
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_forces_elastic_cuda.cu~
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_forces_elastic_cuda.cu~ 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_forces_elastic_cuda.cu~ 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,978 +0,0 @@
-#include <stdio.h>
-#include <cuda.h>
-#include <cublas.h>
-#include <mpi.h>
-
-#include <sys/time.h>
-#include <sys/resource.h>
-
-#include "mesh_constants_cuda.h"
-
-#include "epik_user.h"
-
-typedef float real;
-
-
-#define NGLL2 25
-
-__constant__ float d_hprime_xx[NGLL2];
-__constant__ float d_hprimewgll_xx[NGLL2];
-__constant__ float d_wgllwgll_xy[NGLL2];
-__constant__ float d_wgllwgll_xz[NGLL2];
-__constant__ float d_wgllwgll_yz[NGLL2];
-
-#define MAXDEBUG 1
-#define ENABLE_VERY_SLOW_ERROR_CHECKING
-
-#if MAXDEBUG == 1
-#define LOG(x) printf("%s\n",x)
-#define PRINT5(var,offset) for(;print_count<5;print_count++) printf("var(%d)=%2.20f\n",print_count,var[offset+print_count]);
-#define PRINT10(var) if(print_count<10) { printf("var=%1.20e\n",var); print_count++; }
-#define PRINT10i(var) if(print_count<10) { printf("var=%d\n",var); print_count++; }
-#else
-#define LOG(x) // printf("%s\n",x);
-#define PRINT5(var,offset) // for(i=0;i<10;i++) printf("var(%d)=%f\n",i,var[offset+i]);
-#endif
-
-void Kernel_2(int nb_blocks_to_compute, Mesh* mp, int d_iphase,
- int COMPUTE_AND_STORE_STRAIN,int SIMULATION_TYPE);
-
-
-
-double get_time()
-{
- struct timeval t;
- struct timezone tzp;
- gettimeofday(&t, &tzp);
- return t.tv_sec + t.tv_usec*1e-6;
-}
-
-
-// prepares a device array with with all inter-element edge-nodes -- this
-// is followed by a memcpy and MPI operations
-__global__ void prepare_boundary_accel_on_device(float* d_accel, float* d_send_accel_buffer,
- int num_interfaces_ext_mesh, int max_nibool_interfaces_ext_mesh,
- int* d_nibool_interfaces_ext_mesh,
- int* d_ibool_interfaces_ext_mesh) {
-
- int id = threadIdx.x + blockIdx.x*blockDim.x + blockIdx.y*gridDim.x*blockDim.x;
- int bx = blockIdx.y*gridDim.x+blockIdx.x;
- int tx = threadIdx.x;
- int iinterface=0;
-
- for( iinterface=0; iinterface < num_interfaces_ext_mesh; iinterface++) {
- if(id<d_nibool_interfaces_ext_mesh[iinterface]) {
- d_send_accel_buffer[3*(id + max_nibool_interfaces_ext_mesh*iinterface)] =
- d_accel[3*(d_ibool_interfaces_ext_mesh[id+max_nibool_interfaces_ext_mesh*iinterface]-1)];
- d_send_accel_buffer[3*(id + max_nibool_interfaces_ext_mesh*iinterface)+1] =
- d_accel[3*(d_ibool_interfaces_ext_mesh[id+max_nibool_interfaces_ext_mesh*iinterface]-1)+1];
- d_send_accel_buffer[3*(id + max_nibool_interfaces_ext_mesh*iinterface)+2] =
- d_accel[3*(d_ibool_interfaces_ext_mesh[id+max_nibool_interfaces_ext_mesh*iinterface]-1)+2];
- }
- }
-
-}
-
-// prepares and transfers the inter-element edge-nodes to the host to be MPI'd
-extern "C" void transfer_boundary_accel_from_device_(int* size, long* Mesh_pointer_f, float* accel,
- float* send_accel_buffer,
- int* num_interfaces_ext_mesh,
- int* max_nibool_interfaces_ext_mesh,
- int* nibool_interfaces_ext_mesh,
- int* ibool_interfaces_ext_mesh,
- int* FORWARD_OR_ADJOINT)
-
-{
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
-
-
- int blocksize = 256;
- int size_padded = ((int)ceil(((double)*max_nibool_interfaces_ext_mesh)/((double)blocksize)))*blocksize;
- int num_blocks_x = size_padded/blocksize;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
-
- dim3 grid(num_blocks_x,num_blocks_y);
- dim3 threads(blocksize,1,1);
-
- //timing for memory xfer
- // cudaEvent_t start, stop;
- // float time;
- // cudaEventCreate(&start);
- // cudaEventCreate(&stop);
- // cudaEventRecord( start, 0 );
- if(*FORWARD_OR_ADJOINT == 1) {
- prepare_boundary_accel_on_device<<<grid,threads>>>(mp->d_accel,mp->d_send_accel_buffer,
- *num_interfaces_ext_mesh,
- *max_nibool_interfaces_ext_mesh,
- mp->d_nibool_interfaces_ext_mesh,
- mp->d_ibool_interfaces_ext_mesh);
- }
- else if(*FORWARD_OR_ADJOINT == 3) {
- prepare_boundary_accel_on_device<<<grid,threads>>>(mp->d_b_accel,mp->d_send_accel_buffer,
- *num_interfaces_ext_mesh,
- *max_nibool_interfaces_ext_mesh,
- mp->d_nibool_interfaces_ext_mesh,
- mp->d_ibool_interfaces_ext_mesh);
- }
-
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- exit_on_cuda_error("prepare_adjoint_constants_device");
- // // sync and check to catch errors from previous async operations
- // cudaThreadSynchronize();
-
- // // printf("Elapsed time for xfer d->h: %f\n",end-start);
- // cudaError_t err = cudaGetLastError();
- // if (err != cudaSuccess)
- // {
- // fprintf(stderr,"Error launching/running prepare_boundary_kernel: %s\n", cudaGetErrorString(err));
- // exit(1);
- // }
-#endif
-
-
- cudaMemcpy(send_accel_buffer,mp->d_send_accel_buffer,
- 3* *max_nibool_interfaces_ext_mesh* *num_interfaces_ext_mesh*sizeof(real),cudaMemcpyDeviceToHost);
-
- // finish timing of kernel+memcpy
- // cudaEventRecord( stop, 0 );
- // cudaEventSynchronize( stop );
- // cudaEventElapsedTime( &time, start, stop );
- // cudaEventDestroy( start );
- // cudaEventDestroy( stop );
- // printf("boundary xfer d->h Time: %f ms\n",time);
-
-}
-__global__ void assemble_boundary_accel_on_device(float* d_accel, float* d_send_accel_buffer,
- int num_interfaces_ext_mesh, int max_nibool_interfaces_ext_mesh,
- int* d_nibool_interfaces_ext_mesh,
- int* d_ibool_interfaces_ext_mesh) {
-
- int id = threadIdx.x + blockIdx.x*blockDim.x + blockIdx.y*gridDim.x*blockDim.x;
- int bx = blockIdx.y*gridDim.x+blockIdx.x;
- int tx = threadIdx.x;
- int iinterface=0;
-
- for( iinterface=0; iinterface < num_interfaces_ext_mesh; iinterface++) {
- if(id<d_nibool_interfaces_ext_mesh[iinterface]) {
-
- // for testing atomic operations against not atomic operations (0.1ms vs. 0.04 ms)
- // d_accel[3*(d_ibool_interfaces_ext_mesh[id+max_nibool_interfaces_ext_mesh*iinterface]-1)] +=
- // d_send_accel_buffer[3*(id + max_nibool_interfaces_ext_mesh*iinterface)];
- // d_accel[3*(d_ibool_interfaces_ext_mesh[id+max_nibool_interfaces_ext_mesh*iinterface]-1)+1] +=
- // d_send_accel_buffer[3*(id + max_nibool_interfaces_ext_mesh*iinterface)+1];
- // d_accel[3*(d_ibool_interfaces_ext_mesh[id+max_nibool_interfaces_ext_mesh*iinterface]-1)+2] +=
- // d_send_accel_buffer[3*(id + max_nibool_interfaces_ext_mesh*iinterface)+2];
-
-
- atomicAdd(&d_accel[3*(d_ibool_interfaces_ext_mesh[id+max_nibool_interfaces_ext_mesh*iinterface]-1)],
- d_send_accel_buffer[3*(id + max_nibool_interfaces_ext_mesh*iinterface)]);
- atomicAdd(&d_accel[3*(d_ibool_interfaces_ext_mesh[id+max_nibool_interfaces_ext_mesh*iinterface]-1)+1],
- d_send_accel_buffer[3*(id + max_nibool_interfaces_ext_mesh*iinterface)+1]);
- atomicAdd(&d_accel[3*(d_ibool_interfaces_ext_mesh[id+max_nibool_interfaces_ext_mesh*iinterface]-1)+2],
- d_send_accel_buffer[3*(id + max_nibool_interfaces_ext_mesh*iinterface)+2]);
- }
- }
- // ! This step is done via previous function transfer_and_assemble...
- // ! do iinterface = 1, num_interfaces_ext_mesh
- // ! do ipoin = 1, nibool_interfaces_ext_mesh(iinterface)
- // ! array_val(:,ibool_interfaces_ext_mesh(ipoin,iinterface)) = &
- // ! array_val(:,ibool_interfaces_ext_mesh(ipoin,iinterface)) + buffer_recv_vector_ext_mesh(:,ipoin,iinterface)
- // ! enddo
- // ! enddo
-}
-
-
-// FORWARD_OR_ADJOINT == 1 for accel, and == 3 for b_accel
-extern "C"
-void transfer_and_assemble_accel_to_device_(long* Mesh_pointer, real* accel,
- real* buffer_recv_vector_ext_mesh,
- int* num_interfaces_ext_mesh,
- int* max_nibool_interfaces_ext_mesh,
- int* nibool_interfaces_ext_mesh,
- int* ibool_interfaces_ext_mesh,int* FORWARD_OR_ADJOINT) {
- Mesh* mp = (Mesh*)(*Mesh_pointer); //get mesh pointer out of fortran integer container
-
- cudaMemcpy(mp->d_send_accel_buffer, buffer_recv_vector_ext_mesh, 3* *max_nibool_interfaces_ext_mesh* *num_interfaces_ext_mesh*sizeof(real), cudaMemcpyHostToDevice);
-
- int blocksize = 256;
- int size_padded = ((int)ceil(((double)*max_nibool_interfaces_ext_mesh)/((double)blocksize)))*blocksize;
- int num_blocks_x = size_padded/blocksize;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
-
- double start_time = get_time();
- dim3 grid(num_blocks_x,num_blocks_y);
- dim3 threads(blocksize,1,1);
- // cudaEvent_t start, stop;
- // float time;
- // cudaEventCreate(&start);
- // cudaEventCreate(&stop);
- // cudaEventRecord( start, 0 );
- if(*FORWARD_OR_ADJOINT == 1) { //assemble forward accel
- assemble_boundary_accel_on_device<<<grid,threads>>>(mp->d_accel, mp->d_send_accel_buffer,
- *num_interfaces_ext_mesh,
- *max_nibool_interfaces_ext_mesh,
- mp->d_nibool_interfaces_ext_mesh,
- mp->d_ibool_interfaces_ext_mesh);
- }
- else if(*FORWARD_OR_ADJOINT == 3) { //assemble adjoint accel
- assemble_boundary_accel_on_device<<<grid,threads>>>(mp->d_b_accel, mp->d_send_accel_buffer,
- *num_interfaces_ext_mesh,
- *max_nibool_interfaces_ext_mesh,
- mp->d_nibool_interfaces_ext_mesh,
- mp->d_ibool_interfaces_ext_mesh);
- }
-
- // cudaEventRecord( stop, 0 );
- // cudaEventSynchronize( stop );
- // cudaEventElapsedTime( &time, start, stop );
- // cudaEventDestroy( start );
- // cudaEventDestroy( stop );
- // printf("Boundary Assemble Kernel Execution Time: %f ms\n",time);
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- // sync and check to catch errors from previous async operations
- cudaThreadSynchronize();
- double end_time = get_time();
- //printf("Elapsed time: %e\n",end_time-start_time);
- cudaError_t err = cudaGetLastError();
- if (err != cudaSuccess)
- {
- fprintf(stderr,"Error launching/running prepare_boundary_kernel: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-#endif
-
-}
-
-
-
-
-
-extern "C" void compute_forces_elastic_cuda_(long* Mesh_pointer_f,
- int* iphase,
- int* nspec_outer_elastic,
- int* nspec_inner_elastic,
- int* COMPUTE_AND_STORE_STRAIN,
- int* SIMULATION_TYPE) {
-
- EPIK_TRACER("compute_forces_elastic_cuda");
- //printf("Running compute_forces\n");
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); // get Mesh from fortran integer wrapper
-
- int num_elements;
-
- if( *iphase == 1 )
- num_elements = *nspec_outer_elastic;
- else
- num_elements = *nspec_inner_elastic;
- int myrank;
-
- /* MPI_Comm_rank(MPI_COMM_WORLD,&myrank); */
- /* if(myrank==0) { */
-
-
-
- Kernel_2(num_elements, mp, *iphase, *COMPUTE_AND_STORE_STRAIN,*SIMULATION_TYPE);
-
-
- cudaThreadSynchronize();
-/* MPI_Barrier(MPI_COMM_WORLD); */
-}
-
-__global__ void Kernel_test(float* d_debug_output,int* d_phase_ispec_inner_elastic, int num_phase_ispec_elastic, int d_iphase, int* d_ibool);
-
-__global__ void Kernel_2_impl(int nb_blocks_to_compute,int NGLOB, int* d_ibool,int* d_phase_ispec_inner_elastic, int num_phase_ispec_elastic, int d_iphase,float* d_displ, float* d_accel, float* d_xix, float* d_xiy, float* d_xiz, float* d_etax, float* d_etay, float* d_etaz, float* d_gammax, float* d_gammay, float* d_gammaz, float* d_kappav, float* d_muv,float* d_debug,int COMPUTE_AND_STORE_STRAIN,float* epsilondev_xx,float* epsilondev_yy,float* epsilondev_xy,float* epsilondev_xz,float* epsilondev_yz,float* epsilon_trace_over_3,int SIMULATION_TYPE);
-
-void Kernel_2(int nb_blocks_to_compute, Mesh* mp, int d_iphase,
- int COMPUTE_AND_STORE_STRAIN,int SIMULATION_TYPE)
- {
-
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- // sync and check to catch errors from previous async operations
- cudaThreadSynchronize();
- cudaError_t err = cudaGetLastError();
- if (err != cudaSuccess)
- {
- fprintf(stderr,"Error before kernel Kernel 2: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-#endif
-
- /* if the grid can handle the number of blocks, we let it be 1D */
- /* grid_2_x = nb_elem_color; */
- /* nb_elem_color is just how many blocks we are computing now */
-
- int num_blocks_x = nb_blocks_to_compute;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
-
- int threads_2 = 128;//BLOCK_SIZE_K2;
- dim3 grid_2(num_blocks_x,num_blocks_y);
-
- // debugging
- //printf("Starting with grid %dx%d for %d blocks\n",num_blocks_x,num_blocks_y,nb_blocks_to_compute);
- float* d_debug, *h_debug;
- h_debug = (float*)calloc(128,sizeof(float));
- cudaMalloc((void**)&d_debug,128*sizeof(float));
- cudaMemcpy(d_debug,h_debug,128*sizeof(float),cudaMemcpyHostToDevice);
-
- // Cuda timing
- // cudaEvent_t start, stop;
- // float time;
- // cudaEventCreate(&start);
- // cudaEventCreate(&stop);
- // cudaEventRecord( start, 0 );
-
- Kernel_2_impl<<< grid_2, threads_2, 0, 0 >>>(nb_blocks_to_compute,mp->NGLOB_AB, mp->d_ibool,
- mp->d_phase_ispec_inner_elastic,
- mp->d_num_phase_ispec_elastic, d_iphase,
- mp->d_displ, mp->d_accel,
- mp->d_xix, mp->d_xiy, mp->d_xiz,
- mp->d_etax, mp->d_etay, mp->d_etaz,
- mp->d_gammax, mp->d_gammay, mp->d_gammaz,
- mp->d_kappav, mp->d_muv,d_debug,
- COMPUTE_AND_STORE_STRAIN,
- mp->d_epsilondev_xx,
- mp->d_epsilondev_yy,
- mp->d_epsilondev_xy,
- mp->d_epsilondev_xz,
- mp->d_epsilondev_yz,
- mp->d_epsilon_trace_over_3,
- // 1);
- SIMULATION_TYPE);
-
-
- // cudaMemcpy(h_debug,d_debug,128*sizeof(float),cudaMemcpyDeviceToHost);
- // int procid;
- // MPI_Comm_rank(MPI_COMM_WORLD,&procid);
- // if(procid==0) {
- // for(int i=0;i<17;i++) {
- // printf("cudadebug[%d] = %e\n",i,h_debug[i]);
- // }
- // }
- free(h_debug);
- cudaFree(d_debug);
- #ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- exit_on_cuda_error("Kernel_2_impl");
- #endif
-
- if(SIMULATION_TYPE == 3) {
- Kernel_2_impl<<< grid_2, threads_2, 0, 0 >>>(nb_blocks_to_compute,mp->NGLOB_AB, mp->d_ibool,
- mp->d_phase_ispec_inner_elastic,
- mp->d_num_phase_ispec_elastic, d_iphase,
- mp->d_b_displ, mp->d_b_accel,
- mp->d_xix, mp->d_xiy, mp->d_xiz,
- mp->d_etax, mp->d_etay, mp->d_etaz,
- mp->d_gammax, mp->d_gammay, mp->d_gammaz,
- mp->d_kappav, mp->d_muv,d_debug,
- COMPUTE_AND_STORE_STRAIN,
- mp->d_b_epsilondev_xx,
- mp->d_b_epsilondev_yy,
- mp->d_b_epsilondev_xy,
- mp->d_b_epsilondev_xz,
- mp->d_b_epsilondev_yz,
- mp->d_b_epsilon_trace_over_3,
- SIMULATION_TYPE);
- }
-
- // cudaEventRecord( stop, 0 );
- // cudaEventSynchronize( stop );
- // cudaEventElapsedTime( &time, start, stop );
- // cudaEventDestroy( start );
- // cudaEventDestroy( stop );
- // printf("Kernel2 Execution Time: %f ms\n",time);
-
- // cudaMemcpy(h_debug,d_debug,128*sizeof(float),cudaMemcpyDeviceToHost);
- // for(int i=0;i<10;i++) {
- // printf("debug[%d]=%e\n",i,h_debug[i]);
- // }
-
- /* cudaThreadSynchronize(); */
- /* LOG("Kernel 2 finished"); */
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- exit_on_cuda_error("Kernel_2_impl SIM_TYPE==3");
- #endif
-
- }
-
-__global__ void Kernel_test(float* d_debug_output,int* d_phase_ispec_inner_elastic, int num_phase_ispec_elastic, int d_iphase, int* d_ibool) {
- int bx = blockIdx.x;
- int tx = threadIdx.x;
- int working_element;
- int ispec;
- int NGLL3_ALIGN = 128;
- if(tx==0 && bx==0) {
-
- d_debug_output[0] = 420.0;
-
- d_debug_output[2] = num_phase_ispec_elastic;
- d_debug_output[3] = d_iphase;
- working_element = d_phase_ispec_inner_elastic[bx + num_phase_ispec_elastic*(d_iphase-1)]-1;
- d_debug_output[4] = working_element;
- d_debug_output[5] = d_phase_ispec_inner_elastic[0];
- /* d_debug_output[1] = d_ibool[working_element*NGLL3_ALIGN + tx]-1; */
- }
- /* d_debug_output[1+tx+128*bx] = 69.0; */
-
-}
-
-// double precision temporary variables leads to 10% performance
-// decrease in Kernel_2_impl (not very much..)
-typedef float reald;
-
-// doesn't seem to change the performance.
-// #define MANUALLY_UNROLLED_LOOPS
-
-__global__ void Kernel_2_impl(int nb_blocks_to_compute,int NGLOB, int* d_ibool,int* d_phase_ispec_inner_elastic, int num_phase_ispec_elastic, int d_iphase,float* d_displ, float* d_accel, float* d_xix, float* d_xiy, float* d_xiz, float* d_etax, float* d_etay, float* d_etaz, float* d_gammax, float* d_gammay, float* d_gammaz, float* d_kappav, float* d_muv,float* d_debug,int COMPUTE_AND_STORE_STRAIN,float* epsilondev_xx,float* epsilondev_yy,float* epsilondev_xy,float* epsilondev_xz,float* epsilondev_yz,float* epsilon_trace_over_3,int SIMULATION_TYPE)
-{
-
- /* int bx = blockIdx.y*blockDim.x+blockIdx.x; //possible bug in original code*/
- int bx = blockIdx.y*gridDim.x+blockIdx.x;
- /* int bx = blockIdx.x; */
- int tx = threadIdx.x;
-
-
-
- const int NGLLX = 5;
- /* const int NGLL2 = 25; */
- const int NGLL3 = 125;
- const int NGLL3_ALIGN = 128;
-
- int K = (tx/NGLL2);
- int J = ((tx-K*NGLL2)/NGLLX);
- int I = (tx-K*NGLL2-J*NGLLX);
-
- int active,offset;
- int iglob = 0;
- int working_element;
- reald tempx1l,tempx2l,tempx3l,tempy1l,tempy2l,tempy3l,tempz1l,tempz2l,tempz3l;
- reald xixl,xiyl,xizl,etaxl,etayl,etazl,gammaxl,gammayl,gammazl,jacobianl;
- reald duxdxl,duxdyl,duxdzl,duydxl,duydyl,duydzl,duzdxl,duzdyl,duzdzl;
- reald duxdxl_plus_duydyl,duxdxl_plus_duzdzl,duydyl_plus_duzdzl;
- reald duxdyl_plus_duydxl,duzdxl_plus_duxdzl,duzdyl_plus_duydzl;
- reald fac1,fac2,fac3,lambdal,mul,lambdalplus2mul,kappal;
- reald sigma_xx,sigma_yy,sigma_zz,sigma_xy,sigma_xz,sigma_yz;
-
-#ifndef MANUALLY_UNROLLED_LOOPS
- int l;
- float hp1,hp2,hp3;
-#endif
-
- __shared__ reald s_dummyx_loc[NGLL3];
- __shared__ reald s_dummyy_loc[NGLL3];
- __shared__ reald s_dummyz_loc[NGLL3];
-
- __shared__ reald s_tempx1[NGLL3];
- __shared__ reald s_tempx2[NGLL3];
- __shared__ reald s_tempx3[NGLL3];
- __shared__ reald s_tempy1[NGLL3];
- __shared__ reald s_tempy2[NGLL3];
- __shared__ reald s_tempy3[NGLL3];
- __shared__ reald s_tempz1[NGLL3];
- __shared__ reald s_tempz2[NGLL3];
- __shared__ reald s_tempz3[NGLL3];
-
-// use only NGLL^3 = 125 active threads, plus 3 inactive/ghost threads,
-// because we used memory padding from NGLL^3 = 125 to 128 to get coalescent memory accesses
- active = (tx < NGLL3 && bx < nb_blocks_to_compute) ? 1:0;
-
-// copy from global memory to shared memory
-// each thread writes one of the NGLL^3 = 125 data points
- if (active) {
- // iphase-1 and working_element-1 for Fortran->C array conventions
- working_element = d_phase_ispec_inner_elastic[bx + num_phase_ispec_elastic*(d_iphase-1)]-1;
- // iglob = d_ibool[working_element*NGLL3_ALIGN + tx]-1;
- iglob = d_ibool[working_element*125 + tx]-1;
-
-#ifdef USE_TEXTURES
- s_dummyx_loc[tx] = tex1Dfetch(tex_displ, iglob);
- s_dummyy_loc[tx] = tex1Dfetch(tex_displ, iglob + NGLOB);
- s_dummyz_loc[tx] = tex1Dfetch(tex_displ, iglob + 2*NGLOB);
-#else
- // changing iglob indexing to match fortran row changes fast style
- s_dummyx_loc[tx] = d_displ[iglob*3];
- s_dummyy_loc[tx] = d_displ[iglob*3 + 1];
- s_dummyz_loc[tx] = d_displ[iglob*3 + 2];
-#endif
- }
-
-// synchronize all the threads (one thread for each of the NGLL grid points of the
-// current spectral element) because we need the whole element to be ready in order
-// to be able to compute the matrix products along cut planes of the 3D element below
- __syncthreads();
-
-#ifndef MAKE_KERNEL2_BECOME_STUPID_FOR_TESTS
-
- if (active) {
-
-#ifndef MANUALLY_UNROLLED_LOOPS
-
- tempx1l = 0.f;
- tempx2l = 0.f;
- tempx3l = 0.f;
-
- tempy1l = 0.f;
- tempy2l = 0.f;
- tempy3l = 0.f;
-
- tempz1l = 0.f;
- tempz2l = 0.f;
- tempz3l = 0.f;
-
- for (l=0;l<NGLLX;l++) {
- hp1 = d_hprime_xx[l*NGLLX+I];
- offset = K*NGLL2+J*NGLLX+l;
- tempx1l += s_dummyx_loc[offset]*hp1;
- tempy1l += s_dummyy_loc[offset]*hp1;
- tempz1l += s_dummyz_loc[offset]*hp1;
-
- hp2 = d_hprime_xx[l*NGLLX+J];
- offset = K*NGLL2+l*NGLLX+I;
- tempx2l += s_dummyx_loc[offset]*hp2;
- tempy2l += s_dummyy_loc[offset]*hp2;
- tempz2l += s_dummyz_loc[offset]*hp2;
-
- hp3 = d_hprime_xx[l*NGLLX+K];
- offset = l*NGLL2+J*NGLLX+I;
- tempx3l += s_dummyx_loc[offset]*hp3;
- tempy3l += s_dummyy_loc[offset]*hp3;
- tempz3l += s_dummyz_loc[offset]*hp3;
-
- // if(working_element == 169 && tx == 0) {
- // atomicAdd(&d_debug[0],1.0);
- // d_debug[1+3*l] = tempz3l;
- // d_debug[2+3*l] = s_dummyz_loc[offset];
- // d_debug[3+3*l] = hp3;
- // }
-
- }
-#else
-
- tempx1l = s_dummyx_loc[K*NGLL2+J*NGLLX]*d_hprime_xx[I]
- + s_dummyx_loc[K*NGLL2+J*NGLLX+1]*d_hprime_xx[NGLLX+I]
- + s_dummyx_loc[K*NGLL2+J*NGLLX+2]*d_hprime_xx[2*NGLLX+I]
- + s_dummyx_loc[K*NGLL2+J*NGLLX+3]*d_hprime_xx[3*NGLLX+I]
- + s_dummyx_loc[K*NGLL2+J*NGLLX+4]*d_hprime_xx[4*NGLLX+I];
-
- tempy1l = s_dummyy_loc[K*NGLL2+J*NGLLX]*d_hprime_xx[I]
- + s_dummyy_loc[K*NGLL2+J*NGLLX+1]*d_hprime_xx[NGLLX+I]
- + s_dummyy_loc[K*NGLL2+J*NGLLX+2]*d_hprime_xx[2*NGLLX+I]
- + s_dummyy_loc[K*NGLL2+J*NGLLX+3]*d_hprime_xx[3*NGLLX+I]
- + s_dummyy_loc[K*NGLL2+J*NGLLX+4]*d_hprime_xx[4*NGLLX+I];
-
- tempz1l = s_dummyz_loc[K*NGLL2+J*NGLLX]*d_hprime_xx[I]
- + s_dummyz_loc[K*NGLL2+J*NGLLX+1]*d_hprime_xx[NGLLX+I]
- + s_dummyz_loc[K*NGLL2+J*NGLLX+2]*d_hprime_xx[2*NGLLX+I]
- + s_dummyz_loc[K*NGLL2+J*NGLLX+3]*d_hprime_xx[3*NGLLX+I]
- + s_dummyz_loc[K*NGLL2+J*NGLLX+4]*d_hprime_xx[4*NGLLX+I];
-
- tempx2l = s_dummyx_loc[K*NGLL2+I]*d_hprime_xx[J]
- + s_dummyx_loc[K*NGLL2+NGLLX+I]*d_hprime_xx[NGLLX+J]
- + s_dummyx_loc[K*NGLL2+2*NGLLX+I]*d_hprime_xx[2*NGLLX+J]
- + s_dummyx_loc[K*NGLL2+3*NGLLX+I]*d_hprime_xx[3*NGLLX+J]
- + s_dummyx_loc[K*NGLL2+4*NGLLX+I]*d_hprime_xx[4*NGLLX+J];
-
- tempy2l = s_dummyy_loc[K*NGLL2+I]*d_hprime_xx[J]
- + s_dummyy_loc[K*NGLL2+NGLLX+I]*d_hprime_xx[NGLLX+J]
- + s_dummyy_loc[K*NGLL2+2*NGLLX+I]*d_hprime_xx[2*NGLLX+J]
- + s_dummyy_loc[K*NGLL2+3*NGLLX+I]*d_hprime_xx[3*NGLLX+J]
- + s_dummyy_loc[K*NGLL2+4*NGLLX+I]*d_hprime_xx[4*NGLLX+J];
-
- tempz2l = s_dummyz_loc[K*NGLL2+I]*d_hprime_xx[J]
- + s_dummyz_loc[K*NGLL2+NGLLX+I]*d_hprime_xx[NGLLX+J]
- + s_dummyz_loc[K*NGLL2+2*NGLLX+I]*d_hprime_xx[2*NGLLX+J]
- + s_dummyz_loc[K*NGLL2+3*NGLLX+I]*d_hprime_xx[3*NGLLX+J]
- + s_dummyz_loc[K*NGLL2+4*NGLLX+I]*d_hprime_xx[4*NGLLX+J];
-
- tempx3l = s_dummyx_loc[J*NGLLX+I]*d_hprime_xx[K]
- + s_dummyx_loc[NGLL2+J*NGLLX+I]*d_hprime_xx[NGLLX+K]
- + s_dummyx_loc[2*NGLL2+J*NGLLX+I]*d_hprime_xx[2*NGLLX+K]
- + s_dummyx_loc[3*NGLL2+J*NGLLX+I]*d_hprime_xx[3*NGLLX+K]
- + s_dummyx_loc[4*NGLL2+J*NGLLX+I]*d_hprime_xx[4*NGLLX+K];
-
- tempy3l = s_dummyy_loc[J*NGLLX+I]*d_hprime_xx[K]
- + s_dummyy_loc[NGLL2+J*NGLLX+I]*d_hprime_xx[NGLLX+K]
- + s_dummyy_loc[2*NGLL2+J*NGLLX+I]*d_hprime_xx[2*NGLLX+K]
- + s_dummyy_loc[3*NGLL2+J*NGLLX+I]*d_hprime_xx[3*NGLLX+K]
- + s_dummyy_loc[4*NGLL2+J*NGLLX+I]*d_hprime_xx[4*NGLLX+K];
-
- tempz3l = s_dummyz_loc[J*NGLLX+I]*d_hprime_xx[K]
- + s_dummyz_loc[NGLL2+J*NGLLX+I]*d_hprime_xx[NGLLX+K]
- + s_dummyz_loc[2*NGLL2+J*NGLLX+I]*d_hprime_xx[2*NGLLX+K]
- + s_dummyz_loc[3*NGLL2+J*NGLLX+I]*d_hprime_xx[3*NGLLX+K]
- + s_dummyz_loc[4*NGLL2+J*NGLLX+I]*d_hprime_xx[4*NGLLX+K];
-
-#endif
-
-// compute derivatives of ux, uy and uz with respect to x, y and z
- offset = working_element*NGLL3_ALIGN + tx;
-
- xixl = d_xix[offset];
- xiyl = d_xiy[offset];
- xizl = d_xiz[offset];
- etaxl = d_etax[offset];
- etayl = d_etay[offset];
- etazl = d_etaz[offset];
- gammaxl = d_gammax[offset];
- gammayl = d_gammay[offset];
- gammazl = d_gammaz[offset];
-
- duxdxl = xixl*tempx1l + etaxl*tempx2l + gammaxl*tempx3l;
- duxdyl = xiyl*tempx1l + etayl*tempx2l + gammayl*tempx3l;
- duxdzl = xizl*tempx1l + etazl*tempx2l + gammazl*tempx3l;
-
- duydxl = xixl*tempy1l + etaxl*tempy2l + gammaxl*tempy3l;
- duydyl = xiyl*tempy1l + etayl*tempy2l + gammayl*tempy3l;
- duydzl = xizl*tempy1l + etazl*tempy2l + gammazl*tempy3l;
-
- duzdxl = xixl*tempz1l + etaxl*tempz2l + gammaxl*tempz3l;
- duzdyl = xiyl*tempz1l + etayl*tempz2l + gammayl*tempz3l;
- duzdzl = xizl*tempz1l + etazl*tempz2l + gammazl*tempz3l;
-
-
-
- duxdxl_plus_duydyl = duxdxl + duydyl;
- duxdxl_plus_duzdzl = duxdxl + duzdzl;
- duydyl_plus_duzdzl = duydyl + duzdzl;
- duxdyl_plus_duydxl = duxdyl + duydxl;
- duzdxl_plus_duxdzl = duzdxl + duxdzl;
- duzdyl_plus_duydzl = duzdyl + duydzl;
-
- if(COMPUTE_AND_STORE_STRAIN) {
- float templ = 1.0f/3.0f * (duxdxl + duydyl + duzdzl);
- epsilondev_xx[offset] = duxdxl - templ;
- epsilondev_yy[offset] = duydyl - templ;
- epsilondev_xy[offset] = 0.5 * duxdyl_plus_duydxl;
- epsilondev_xz[offset] = 0.5 * duzdxl_plus_duxdzl;
- epsilondev_yz[offset] = 0.5 * duzdyl_plus_duydzl;
- if(SIMULATION_TYPE == 3) {
- epsilon_trace_over_3[tx + working_element*125] = templ;
- }
- }
-
-// compute elements with an elastic isotropic rheology
- kappal = d_kappav[offset];
- mul = d_muv[offset];
-
- lambdalplus2mul = kappal + 1.33333333333333333333f * mul; // 4./3. = 1.3333333
- lambdal = lambdalplus2mul - 2.f*mul;
-
-// compute the six components of the stress tensor sigma
- sigma_xx = lambdalplus2mul*duxdxl + lambdal*duydyl_plus_duzdzl;
- sigma_yy = lambdalplus2mul*duydyl + lambdal*duxdxl_plus_duzdzl;
- sigma_zz = lambdalplus2mul*duzdzl + lambdal*duxdxl_plus_duydyl;
-
- sigma_xy = mul*duxdyl_plus_duydxl;
- sigma_xz = mul*duzdxl_plus_duxdzl;
- sigma_yz = mul*duzdyl_plus_duydzl;
-
- jacobianl = 1.f / (xixl*(etayl*gammazl-etazl*gammayl)-xiyl*(etaxl*gammazl-etazl*gammaxl)+xizl*(etaxl*gammayl-etayl*gammaxl));
-
-// form the dot product with the test vector
- s_tempx1[tx] = jacobianl * (sigma_xx*xixl + sigma_xy*xiyl + sigma_xz*xizl);
- s_tempy1[tx] = jacobianl * (sigma_xy*xixl + sigma_yy*xiyl + sigma_yz*xizl);
- s_tempz1[tx] = jacobianl * (sigma_xz*xixl + sigma_yz*xiyl + sigma_zz*xizl);
-
- s_tempx2[tx] = jacobianl * (sigma_xx*etaxl + sigma_xy*etayl + sigma_xz*etazl);
- s_tempy2[tx] = jacobianl * (sigma_xy*etaxl + sigma_yy*etayl + sigma_yz*etazl);
- s_tempz2[tx] = jacobianl * (sigma_xz*etaxl + sigma_yz*etayl + sigma_zz*etazl);
-
- s_tempx3[tx] = jacobianl * (sigma_xx*gammaxl + sigma_xy*gammayl + sigma_xz*gammazl);
- s_tempy3[tx] = jacobianl * (sigma_xy*gammaxl + sigma_yy*gammayl + sigma_yz*gammazl);
- s_tempz3[tx] = jacobianl * (sigma_xz*gammaxl + sigma_yz*gammayl + sigma_zz*gammazl);
-
- }
-
-// synchronize all the threads (one thread for each of the NGLL grid points of the
-// current spectral element) because we need the whole element to be ready in order
-// to be able to compute the matrix products along cut planes of the 3D element below
- __syncthreads();
-
- if (active) {
-
-#ifndef MANUALLY_UNROLLED_LOOPS
-
- tempx1l = 0.f;
- tempy1l = 0.f;
- tempz1l = 0.f;
-
- tempx2l = 0.f;
- tempy2l = 0.f;
- tempz2l = 0.f;
-
- tempx3l = 0.f;
- tempy3l = 0.f;
- tempz3l = 0.f;
-
- for (l=0;l<NGLLX;l++) {
-
- fac1 = d_hprimewgll_xx[I*NGLLX+l];
- offset = K*NGLL2+J*NGLLX+l;
- tempx1l += s_tempx1[offset]*fac1;
- tempy1l += s_tempy1[offset]*fac1;
- tempz1l += s_tempz1[offset]*fac1;
-
- fac2 = d_hprimewgll_xx[J*NGLLX+l];
- offset = K*NGLL2+l*NGLLX+I;
- tempx2l += s_tempx2[offset]*fac2;
- tempy2l += s_tempy2[offset]*fac2;
- tempz2l += s_tempz2[offset]*fac2;
-
- fac3 = d_hprimewgll_xx[K*NGLLX+l];
- offset = l*NGLL2+J*NGLLX+I;
- tempx3l += s_tempx3[offset]*fac3;
- tempy3l += s_tempy3[offset]*fac3;
- tempz3l += s_tempz3[offset]*fac3;
-
- if(working_element == 169)
- if(l==0)
- if(I+J+K == 0) {
- // atomicAdd(&d_debug[0],1.0);
- // d_debug[0] = fac3;
- // d_debug[1] = offset;
- // d_debug[2] = s_tempz3[offset];
- }
- }
-#else
-
- tempx1l = s_tempx1[K*NGLL2+J*NGLLX]*d_hprimewgll_xx[I*NGLLX]
- + s_tempx1[K*NGLL2+J*NGLLX+1]*d_hprimewgll_xx[I*NGLLX+1]
- + s_tempx1[K*NGLL2+J*NGLLX+2]*d_hprimewgll_xx[I*NGLLX+2]
- + s_tempx1[K*NGLL2+J*NGLLX+3]*d_hprimewgll_xx[I*NGLLX+3]
- + s_tempx1[K*NGLL2+J*NGLLX+4]*d_hprimewgll_xx[I*NGLLX+4];
-
- tempy1l = s_tempy1[K*NGLL2+J*NGLLX]*d_hprimewgll_xx[I*NGLLX]
- + s_tempy1[K*NGLL2+J*NGLLX+1]*d_hprimewgll_xx[I*NGLLX+1]
- + s_tempy1[K*NGLL2+J*NGLLX+2]*d_hprimewgll_xx[I*NGLLX+2]
- + s_tempy1[K*NGLL2+J*NGLLX+3]*d_hprimewgll_xx[I*NGLLX+3]
- + s_tempy1[K*NGLL2+J*NGLLX+4]*d_hprimewgll_xx[I*NGLLX+4];
-
- tempz1l = s_tempz1[K*NGLL2+J*NGLLX]*d_hprimewgll_xx[I*NGLLX]
- + s_tempz1[K*NGLL2+J*NGLLX+1]*d_hprimewgll_xx[I*NGLLX+1]
- + s_tempz1[K*NGLL2+J*NGLLX+2]*d_hprimewgll_xx[I*NGLLX+2]
- + s_tempz1[K*NGLL2+J*NGLLX+3]*d_hprimewgll_xx[I*NGLLX+3]
- + s_tempz1[K*NGLL2+J*NGLLX+4]*d_hprimewgll_xx[I*NGLLX+4];
-
- tempx2l = s_tempx2[K*NGLL2+I]*d_hprimewgll_xx[J*NGLLX]
- + s_tempx2[K*NGLL2+NGLLX+I]*d_hprimewgll_xx[J*NGLLX+1]
- + s_tempx2[K*NGLL2+2*NGLLX+I]*d_hprimewgll_xx[J*NGLLX+2]
- + s_tempx2[K*NGLL2+3*NGLLX+I]*d_hprimewgll_xx[J*NGLLX+3]
- + s_tempx2[K*NGLL2+4*NGLLX+I]*d_hprimewgll_xx[J*NGLLX+4];
-
- tempy2l = s_tempy2[K*NGLL2+I]*d_hprimewgll_xx[J*NGLLX]
- + s_tempy2[K*NGLL2+NGLLX+I]*d_hprimewgll_xx[J*NGLLX+1]
- + s_tempy2[K*NGLL2+2*NGLLX+I]*d_hprimewgll_xx[J*NGLLX+2]
- + s_tempy2[K*NGLL2+3*NGLLX+I]*d_hprimewgll_xx[J*NGLLX+3]
- + s_tempy2[K*NGLL2+4*NGLLX+I]*d_hprimewgll_xx[J*NGLLX+4];
-
- tempz2l = s_tempz2[K*NGLL2+I]*d_hprimewgll_xx[J*NGLLX]
- + s_tempz2[K*NGLL2+NGLLX+I]*d_hprimewgll_xx[J*NGLLX+1]
- + s_tempz2[K*NGLL2+2*NGLLX+I]*d_hprimewgll_xx[J*NGLLX+2]
- + s_tempz2[K*NGLL2+3*NGLLX+I]*d_hprimewgll_xx[J*NGLLX+3]
- + s_tempz2[K*NGLL2+4*NGLLX+I]*d_hprimewgll_xx[J*NGLLX+4];
-
- tempx3l = s_tempx3[J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX]
- + s_tempx3[NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+1]
- + s_tempx3[2*NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+2]
- + s_tempx3[3*NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+3]
- + s_tempx3[4*NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+4];
-
- tempy3l = s_tempy3[J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX]
- + s_tempy3[NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+1]
- + s_tempy3[2*NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+2]
- + s_tempy3[3*NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+3]
- + s_tempy3[4*NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+4];
-
- tempz3l = s_tempz3[J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX]
- + s_tempz3[NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+1]
- + s_tempz3[2*NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+2]
- + s_tempz3[3*NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+3]
- + s_tempz3[4*NGLL2+J*NGLLX+I]*d_hprimewgll_xx[K*NGLLX+4];
-
-#endif
-
- fac1 = d_wgllwgll_yz[K*NGLLX+J];
- fac2 = d_wgllwgll_xz[K*NGLLX+I];
- fac3 = d_wgllwgll_xy[J*NGLLX+I];
-
-#ifdef USE_TEXTURES
- d_accel[iglob] = tex1Dfetch(tex_accel, iglob) - (fac1*tempx1l + fac2*tempx2l + fac3*tempx3l);
- d_accel[iglob + NGLOB] = tex1Dfetch(tex_accel, iglob + NGLOB) - (fac1*tempy1l + fac2*tempy2l + fac3*tempy3l);
- d_accel[iglob + 2*NGLOB] = tex1Dfetch(tex_accel, iglob + 2*NGLOB) - (fac1*tempz1l + fac2*tempz2l + fac3*tempz3l);
-#else
- /* OLD/To be implemented version that uses coloring to get around race condition. About 1.6x faster */
- // d_accel[iglob*3] -= (fac1*tempx1l + fac2*tempx2l + fac3*tempx3l);
- // d_accel[iglob*3 + 1] -= (fac1*tempy1l + fac2*tempy2l + fac3*tempy3l);
- // d_accel[iglob*3 + 2] -= (fac1*tempz1l + fac2*tempz2l + fac3*tempz3l);
-
- if(iglob*3+2 == 41153) {
- // int ot = d_debug[5];
- // d_debug[0+1+ot] = d_accel[iglob*3+2];
- // // d_debug[1+1+ot] = fac1*tempz1l;
- // // d_debug[2+1+ot] = fac2*tempz2l;
- // // d_debug[3+1+ot] = fac3*tempz3l;
- // d_debug[1+1+ot] = fac1;
- // d_debug[2+1+ot] = fac2;
- // d_debug[3+1+ot] = fac3;
- // d_debug[4+1+ot] = d_accel[iglob*3+2]-(fac1*tempz1l + fac2*tempz2l + fac3*tempz3l);
- // atomicAdd(&d_debug[0],1.0);
- // d_debug[6+ot] = d_displ[iglob*3+2];
- }
-
- atomicAdd(&d_accel[iglob*3],-(fac1*tempx1l + fac2*tempx2l + fac3*tempx3l));
- atomicAdd(&d_accel[iglob*3+1],-(fac1*tempy1l + fac2*tempy2l + fac3*tempy3l));
- atomicAdd(&d_accel[iglob*3+2],-(fac1*tempz1l + fac2*tempz2l + fac3*tempz3l));
-
-#endif
- }
-
-#else // of #ifndef MAKE_KERNEL2_BECOME_STUPID_FOR_TESTS
- d_accel[iglob] -= 0.00000001f;
- d_accel[iglob + NGLOB] -= 0.00000001f;
- d_accel[iglob + 2*NGLOB] -= 0.00000001f;
-#endif // of #ifndef MAKE_KERNEL2_BECOME_STUPID_FOR_TESTS
-}
-
-__global__ void kernel_3_cuda_device(real* veloc,
- real* accel, int size,
- real deltatover2, real* rmass);
-
-extern "C" void kernel_3_cuda_(long* Mesh_pointer,int* size_F, float* deltatover2_F, int* SIMULATION_TYPE_f, float* b_deltatover2) {
- Mesh* mp = (Mesh*)(*Mesh_pointer); // get Mesh from fortran integer wrapper
- int size = *size_F;
- int SIMULATION_TYPE = *SIMULATION_TYPE_f;
- real deltatover2 = *deltatover2_F;
- int blocksize=128;
- int size_padded = ((int)ceil(((double)size)/((double)blocksize)))*blocksize;
- int num_blocks_x = size_padded/blocksize;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
- dim3 grid(num_blocks_x,num_blocks_y);
- dim3 threads(blocksize,1,1);
-
- kernel_3_cuda_device<<< grid, threads>>>(mp->d_veloc, mp->d_accel, size, deltatover2, mp->d_rmass);
-
- if(SIMULATION_TYPE == 3) {
- kernel_3_cuda_device<<< grid, threads>>>(mp->d_b_veloc, mp->d_b_accel, size, *b_deltatover2,mp->d_rmass);
- }
-
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
-
- //printf("checking updatedispl_kernel launch...with %dx%d blocks\n",num_blocks_x,num_blocks_y);
- // sync and check to catch errors from previous async operations
- cudaThreadSynchronize();
- MPI_Barrier(MPI_COMM_WORLD);
- cudaError_t err = cudaGetLastError();
- if (err != cudaSuccess)
- {
- fprintf(stderr,"Error after kernel 3: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-#endif
-}
-
- __global__ void kernel_3_cuda_device(real* veloc,
- real* accel, int size,
- real deltatover2, real* rmass) {
- int id = threadIdx.x + blockIdx.x*blockDim.x + blockIdx.y*gridDim.x*blockDim.x;
-
- /* because of block and grid sizing problems, there is a small */
- /* amount of buffer at the end of the calculation */
- if(id < size) {
- accel[3*id] = accel[3*id]*rmass[id];
- accel[3*id+1] = accel[3*id+1]*rmass[id];
- accel[3*id+2] = accel[3*id+2]*rmass[id];
-
- veloc[3*id] = veloc[3*id] + deltatover2*accel[3*id];
- veloc[3*id+1] = veloc[3*id+1] + deltatover2*accel[3*id+1];
- veloc[3*id+2] = veloc[3*id+2] + deltatover2*accel[3*id+2];
- }
- }
-
-void setConst_hprime_xx(float* array)
-{
-
- cudaError_t err = cudaMemcpyToSymbol(d_hprime_xx, array, NGLL2*sizeof(float));
- if (err != cudaSuccess)
- {
- fprintf(stderr, "Error in setConst_hprime_xx: %s\n", cudaGetErrorString(err));
- fprintf(stderr, "The problem is maybe -arch sm_13 instead of -arch sm_11 in the Makefile, please doublecheck\n");
- exit(1);
- }
-}
-
-void setConst_hprimewgll_xx(float* array)
-{
- cudaError_t err = cudaMemcpyToSymbol(d_hprimewgll_xx, array, NGLL2*sizeof(float));
- if (err != cudaSuccess)
- {
- fprintf(stderr, "Error in setConst_hprime_xx: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-}
-
-void setConst_wgllwgll_xy(float* array,Mesh* mp)
-{
- cudaError_t err = cudaMemcpyToSymbol(d_wgllwgll_xy, array, NGLL2*sizeof(float));
- if (err != cudaSuccess)
- {
- fprintf(stderr, "Error in setConst_wgllwgll_xy: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-
- // mp->d_wgllwgll_xy = d_wgllwgll_xy; // this doesn't work, use
- // following cudaGetSymbolAddress
- err = cudaGetSymbolAddress((void**)&(mp->d_wgllwgll_xy),"d_wgllwgll_xy");
- printf("setting up mp->d_wgllwgll_xy\n");
- if(err != cudaSuccess) {
- fprintf(stderr, "Error with d_wgllwgll_xy: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-}
-
-void setConst_wgllwgll_xz(float* array,Mesh* mp)
-{
- cudaError_t err = cudaMemcpyToSymbol(d_wgllwgll_xz, array, NGLL2*sizeof(float));
- if (err != cudaSuccess)
- {
- fprintf(stderr, "Error in setConst_wgllwgll_xz: %s\n", cudaGetErrorString(err));
- exit(1);
- }
- // mp->d_wgllwgll_xz = d_wgllwgll_xz;
- err = cudaGetSymbolAddress((void**)&(mp->d_wgllwgll_xz),"d_wgllwgll_xz");
- if(err != cudaSuccess) {
- fprintf(stderr, "Error with d_wgllwgll_xz: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-}
-
-void setConst_wgllwgll_yz(float* array,Mesh* mp)
-{
- cudaError_t err = cudaMemcpyToSymbol(d_wgllwgll_yz, array, NGLL2*sizeof(float));
- if (err != cudaSuccess)
- {
- fprintf(stderr, "Error in setConst_wgllwgll_yz: %s\n", cudaGetErrorString(err));
- exit(1);
- }
- // mp->d_wgllwgll_yz = d_wgllwgll_yz;
- err = cudaGetSymbolAddress((void**)&(mp->d_wgllwgll_yz),"d_wgllwgll_yz");
- if(err != cudaSuccess) {
- fprintf(stderr, "Error with d_wgllwgll_yz: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-}
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_kernels_cuda.cu~
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_kernels_cuda.cu~ 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_kernels_cuda.cu~ 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,265 +0,0 @@
-#include <stdio.h>
-#include <cuda.h>
-#include <cublas.h>
-#include <mpi.h>
-#include <sys/types.h>
-#include <unistd.h>
-#include <sys/time.h>
-#include <sys/resource.h>
-
-#include "mesh_constants_cuda.h"
-#define MAX(x,y) (((x) < (y)) ? (y) : (x))
-void print_CUDA_error_if_any(cudaError_t err, int num);
-
-#define ENABLE_VERY_SLOW_ERROR_CHECKING
-
-#define INDEX2(xsize,x,y) x + (y)*xsize
-#define INDEX3(xsize,ysize,x,y,z) x + (y)*xsize + (z)*xsize*ysize
-#define INDEX4(xsize,ysize,zsize,x,y,z,i) x + (y)*xsize + (z)*xsize*ysize + (i)*xsize*ysize*zsize
-#define INDEX5(xsize,ysize,zsize,isize,x,y,z,i,j) x + (y)*xsize + (z)*xsize*ysize + (i)*xsize*ysize*zsize + (j)*xsize*ysize*zsize*isize
-
-
-__global__ void compute_kernels_cudakernel(int* ispec_is_elastic, int* ibool,
- float* accel,
- float* b_displ,
- float* epsilondev_xx,
- float* epsilondev_yy,
- float* epsilondev_xy,
- float* epsilondev_xz,
- float* epsilondev_yz,
- float* b_epsilondev_xx,
- float* b_epsilondev_yy,
- float* b_epsilondev_xy,
- float* b_epsilondev_xz,
- float* b_epsilondev_yz,
- float* rho_kl,
- float deltat,
- float* mu_kl,
- float* kappa_kl,
- float* epsilon_trace_over_3,
- float* b_epsilon_trace_over_3,
- int NSPEC_AB,
- float* d_debug) {
-
- int ispec = blockIdx.x + blockIdx.y*gridDim.x;
- if(ispec<NSPEC_AB) { // handles case when there is 1 extra block (due to rectangular grid)
- int ijk = threadIdx.x;
- int ijk_ispec = ijk + 125*ispec;
- int iglob = ibool[ijk_ispec]-1;
-
- // if(ispec_is_elastic[ispec]) { // leave out until have acoustic coupling
- if(1) {
-
-
- if(ijk_ispec == 9480531) {
- d_debug[0] = rho_kl[ijk_ispec];
- d_debug[1] = accel[3*iglob];
- d_debug[2] = b_displ[3*iglob];
- d_debug[3] = deltat * (accel[3*iglob]*b_displ[3*iglob]+
- accel[3*iglob+1]*b_displ[3*iglob+1]+
- accel[3*iglob+2]*b_displ[3*iglob+2]);
- }
-
- rho_kl[ijk_ispec] += deltat * (accel[3*iglob]*b_displ[3*iglob]+
- accel[3*iglob+1]*b_displ[3*iglob+1]+
- accel[3*iglob+2]*b_displ[3*iglob+2]);
-
-
-
- // if(rho_kl[ijk_ispec] < 1.9983e+18) {
- // atomicAdd(&d_debug[3],1.0);
- // d_debug[4] = ijk_ispec;
- // d_debug[0] = rho_kl[ijk_ispec];
- // d_debug[1] = accel[3*iglob];
- // d_debug[2] = b_displ[3*iglob];
- // }
-
- mu_kl[ijk_ispec] += deltat * (epsilondev_xx[ijk_ispec]*b_epsilondev_xx[ijk_ispec]+ // 1*b1
- epsilondev_yy[ijk_ispec]*b_epsilondev_yy[ijk_ispec]+ // 2*b2
- (epsilondev_xx[ijk_ispec]+epsilondev_yy[ijk_ispec])*
- (b_epsilondev_xx[ijk_ispec]+b_epsilondev_yy[ijk_ispec])+
- 2*(epsilondev_xy[ijk_ispec]*b_epsilondev_xy[ijk_ispec]+
- epsilondev_xz[ijk_ispec]*b_epsilondev_xz[ijk_ispec]+
- epsilondev_yz[ijk_ispec]*b_epsilondev_yz[ijk_ispec]));
-
- kappa_kl[ijk_ispec] += deltat*(9*epsilon_trace_over_3[ijk_ispec]*
- b_epsilon_trace_over_3[ijk_ispec]);
-
- }
- }
-}
-
-
-
-extern "C" void compute_kernels_cuda_(long* Mesh_pointer, int* NOISE_TOMOGRAPHY,
- int* ELASTIC_SIMULATION, int* SAVE_MOHO_MESH,float* deltat) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer); //get mesh pointer out of fortran integer container
-
- int blocksize = 125; // NGLLX*NGLLY*NGLLZ
- int num_blocks_x = mp->NSPEC_AB;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
- dim3 grid(num_blocks_x,num_blocks_y);
- dim3 threads(blocksize,1,1);
-
- float* d_debug;
- float* h_debug;
- h_debug = (float*)calloc(128,sizeof(float));
- cudaMalloc((void**)&d_debug,128*sizeof(float));
- cudaMemcpy(d_debug,h_debug,128*sizeof(float),cudaMemcpyHostToDevice);
-
-
- compute_kernels_cudakernel<<<grid,threads>>>(mp->d_ispec_is_elastic,mp->d_ibool,
- mp->d_accel, mp->d_b_displ,
- mp->d_epsilondev_xx,
- mp->d_epsilondev_yy,
- mp->d_epsilondev_xy,
- mp->d_epsilondev_xz,
- mp->d_epsilondev_yz,
- mp->d_b_epsilondev_xx,
- mp->d_b_epsilondev_yy,
- mp->d_b_epsilondev_xy,
- mp->d_b_epsilondev_xz,
- mp->d_b_epsilondev_yz,
- mp->d_rho_kl,
- *deltat,
- mp->d_mu_kl,
- mp->d_kappa_kl,
- mp->d_epsilon_trace_over_3,
- mp->d_b_epsilon_trace_over_3,
- mp->NSPEC_AB,
- d_debug);
-
- cudaMemcpy(h_debug,d_debug,128*sizeof(float),cudaMemcpyDeviceToHost);
- cudaFree(d_debug);
- // for(int i=0;i<5;i++) {
- // printf("d_debug[%d]=%e\n",i,h_debug[i]);
- // }
- free(h_debug);
-
- // float* h_rho = (float*)malloc(sizeof(float)*mp->NSPEC_AB*125);
- // float maxval = 0;
- // cudaMemcpy(h_rho,mp->d_rho_kl,sizeof(float)*mp->NSPEC_AB*125,cudaMemcpyDeviceToHost);
- // int number_big_values = 0;
- // for(int i=0;i<mp->NSPEC_AB*125;i++) {
- // maxval = MAX(maxval,fabsf(h_rho[i]));
- // if(fabsf(h_rho[i]) > 1e10) {
- // number_big_values++;
- // }
- // }
-
- // printf("maval rho = %e, number>1e10 = %d vs. %d\n",maxval,number_big_values,mp->NSPEC_AB*125);
-
- #ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- // sync and check to catch errors from previous async operations
- cudaThreadSynchronize();
- cudaError_t err = cudaGetLastError();
- if (err != cudaSuccess)
- {
- fprintf(stderr,"Error launching/running compute_kernels_cudakernel: %s\n", cudaGetErrorString(err));
- exit(1);
- }
-#endif
-
-
-}
-
-extern "C" void transfer_sensitivity_kernels_to_host_(long* Mesh_pointer, float* h_rho_kl,
- float* h_mu_kl, float* h_kappa_kl,
- float* h_Sigma_kl,int* NSPEC_AB,int* NSPEC_AB_VAL) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer); //get mesh pointer out of fortran integer container
-
- print_CUDA_error_if_any(cudaMemcpy(h_rho_kl,mp->d_rho_kl,*NSPEC_AB*125*sizeof(float),
- cudaMemcpyDeviceToHost),1);
- print_CUDA_error_if_any(cudaMemcpy(h_mu_kl,mp->d_mu_kl,*NSPEC_AB*125*sizeof(float),
- cudaMemcpyDeviceToHost),1);
- print_CUDA_error_if_any(cudaMemcpy(h_kappa_kl,mp->d_kappa_kl,*NSPEC_AB*125*sizeof(float),
- cudaMemcpyDeviceToHost),1);
- print_CUDA_error_if_any(cudaMemcpy(h_Sigma_kl,mp->d_Sigma_kl,125*(*NSPEC_AB_VAL)*sizeof(float),
- cudaMemcpyHostToDevice),4);
-
-}
-
-__global__ void compute_kernels_strength_noise_cuda_kernel(float* displ, int* ibelm_top, int* ibool, float* noise_surface_movie, float* normal_x_noise, float* normal_y_noise, float* normal_z_noise, float* Sigma_kl, float deltat,int NSPEC_TOP, float* d_debug) {
- int ispec2D = blockIdx.x + blockIdx.y*gridDim.x;
- if(ispec2D<NSPEC_TOP) {
- int ispec = ibelm_top[ispec2D]-1;
- int i = threadIdx.x;
- int j = threadIdx.y;
- int k = 4; // NGLLZ=5, but C indexing is 5-1 -> 4
- int ipoin = i + 5*j + 25*ispec2D;
-
- int ijk_ispec = i+5*(j+5*k) + 125*ispec;
- int iglob = ibool[ijk_ispec]-1;
-
- float eta = (noise_surface_movie[3*(i+5*(j+5*ispec2D))]*normal_x_noise[ipoin]+
- noise_surface_movie[1+3*(i+5*(j+5*ispec2D))]*normal_y_noise[ipoin]+
- noise_surface_movie[2+3*(i+5*(j+5*ispec2D))]*normal_z_noise[ipoin]);
-
- // if(ijk_ispec == 78496) {
- // d_debug[0] = Sigma_kl[ijk_ispec];
- // d_debug[1] = eta;
- // d_debug[2] = normal_x_noise[ipoin];
- // d_debug[3] = normal_y_noise[ipoin];
- // d_debug[4] = normal_z_noise[ipoin];
- // d_debug[5] = displ[3*iglob+2];
- // d_debug[6] = deltat*eta*normal_z_noise[ipoin]*displ[2+3*iglob];
- // d_debug[7] = 0.008*1.000000e-24*normal_z_noise[ipoin]*3.740546e-13;
- // }
-
- Sigma_kl[ijk_ispec] += deltat*eta*(normal_x_noise[ipoin]*displ[3*iglob]+
- normal_y_noise[ipoin]*displ[1+3*iglob]+
- normal_z_noise[ipoin]*displ[2+3*iglob]);
- }
-
-
-}
-
-extern "C" void compute_kernels_strength_noise_cuda_(long* Mesh_pointer, float* h_noise_surface_movie,
- int* NSPEC_TOPf,int* deltat) {
- Mesh* mp = (Mesh*)(*Mesh_pointer); //get mesh pointer out of fortran integer container
- int NSPEC_TOP = *NSPEC_TOPf;
-
- cudaMemcpy(mp->d_noise_surface_movie,h_noise_surface_movie,3*25*NSPEC_TOP*sizeof(float),cudaMemcpyHostToDevice);
-
-
- int num_blocks_x = NSPEC_TOP;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
-
- dim3 grid(num_blocks_x,num_blocks_y);
- dim3 threads(5,5,1);
-
- // float* h_debug = (float*)calloc(128,sizeof(float));
- float* d_debug;
- // cudaMalloc((void**)&d_debug,128*sizeof(float));
- // cudaMemcpy(d_debug,h_debug,128*sizeof(float),cudaMemcpyHostToDevice);
-
- compute_kernels_strength_noise_cuda_kernel<<<grid,threads>>>(mp->d_displ,
- mp->d_ibelm_top, mp->d_ibool,
- mp->d_noise_surface_movie,
- mp->d_normal_x_noise,
- mp->d_normal_y_noise,
- mp->d_normal_z_noise,
- mp->d_Sigma_kl,*deltat,
- NSPEC_TOP,
- d_debug);
-
- // cudaMemcpy(h_debug,d_debug,128*sizeof(float),cudaMemcpyDeviceToHost);
- // for(int i=0;i<8;i++) {
- // printf("debug[%d]= %e\n",i,h_debug[i]);
- // }
-
- #ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- exit_on_cuda_error("compute_kernels_strength_noise_cuda_kernel");
- #endif
-
-}
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_stacey_elastic_cuda.cu~
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_stacey_elastic_cuda.cu~ 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/compute_stacey_elastic_cuda.cu~ 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,190 +0,0 @@
-#include <stdio.h>
-#include <cuda.h>
-#include <cublas.h>
-#include <mpi.h>
-
-#include <sys/time.h>
-#include <sys/resource.h>
-
-#include "mesh_constants_cuda.h"
-
-typedef float real; //type of variables passed into function
-typedef float realw; //type of "working" variables
-
-#define MAXDEBUG 1
-#define ENABLE_VERY_SLOW_ERROR_CHECKING
-
-#if MAXDEBUG == 1
-#define LOG(x) printf("%s\n",x)
-#define PRINT5(var,offset) for(;print_count<5;print_count++) printf("var(%d)=%2.20f\n",print_count,var[offset+print_count]);
-#define PRINT10(var) if(print_count<10) { printf("var=%1.20e\n",var); print_count++; }
-#define PRINT10i(var) if(print_count<10) { printf("var=%d\n",var); print_count++; }
-#else
-#define LOG(x) // printf("%s\n",x);
-#define PRINT5(var,offset) // for(i=0;i<10;i++) printf("var(%d)=%f\n",i,var[offset+i]);
-#endif
-
-#define INDEX2(xsize,x,y) x + (y)*xsize
-#define INDEX3(xsize,ysize,x,y,z) x + (y)*xsize + (z)*xsize*ysize
-#define INDEX4(xsize,ysize,zsize,x,y,z,i) x + (y)*xsize + (z)*xsize*ysize + (i)*xsize*ysize*zsize
-#define INDEX5(xsize,ysize,zsize,isize,x,y,z,i,j) x + (y)*xsize + (z)*xsize*ysize + (i)*xsize*ysize*zsize + (j)*xsize*ysize*zsize*isize
-
-#define NDIM 3
-#define NGLLX 5
-
-__global__ void compute_stacey_elastic_kernel(real* veloc, real* accel, real* b_accel, int* abs_boundary_ispec,
- int* abs_boundary_ijk, int* ibool,
- real* abs_boundary_normal,
- real* rho_vp, real* rho_vs,
- real* abs_boundary_jacobian2Dw,
- real* b_absorb_field,int NGLLSQUARE,
- int* ispec_is_inner, int* ispec_is_elastic,
- int phase_is_inner,float* debug_val,int* debug_val_int,
- int num_abs_boundary_faces,
- int SAVE_FORWARD,int SIMULATION_TYPE) {
-
- int igll = threadIdx.x; // tx
- int iface = blockIdx.x + gridDim.x*blockIdx.y; // bx
- int i;
- int j;
- int k;
- int iglob;
- int ispec;
- realw vx,vy,vz,vn;
- realw nx,ny,nz;
- realw rho_vp_temp,rho_vs_temp;
- realw tx,ty,tz;
- realw jacobianw;
- // don't compute points outside NGLLSQUARE=25
-
-
-
- if(igll<NGLLSQUARE && iface < num_abs_boundary_faces) {
-
- // "-1" from index values to convert from Fortran-> C indexing
- ispec = abs_boundary_ispec[iface]-1;
- i = abs_boundary_ijk[INDEX3(NDIM,NGLLSQUARE,0,igll,iface)]-1;
- j = abs_boundary_ijk[INDEX3(NDIM,NGLLSQUARE,1,igll,iface)]-1;
- k = abs_boundary_ijk[INDEX3(NDIM,NGLLSQUARE,2,igll,iface)]-1;
- iglob = ibool[INDEX4(NGLLX,NGLLX,NGLLX,i,j,k,ispec)]-1;
-
- if(ispec_is_inner[ispec] == phase_is_inner && ispec_is_elastic[ispec]==1) {
-
- i = abs_boundary_ijk[INDEX3(NDIM,NGLLSQUARE,0,igll,iface)]-1;
- j = abs_boundary_ijk[INDEX3(NDIM,NGLLSQUARE,1,igll,iface)]-1;
- k = abs_boundary_ijk[INDEX3(NDIM,NGLLSQUARE,2,igll,iface)]-1;
- iglob = ibool[INDEX4(NGLLX,NGLLX,NGLLX,i,j,k,ispec)]-1;
-
- // gets associated velocity
-
- vx = veloc[iglob*3+0];
- vy = veloc[iglob*3+1];
- vz = veloc[iglob*3+2];
-
- // gets associated normal
- nx = abs_boundary_normal[INDEX3(NDIM,NGLLSQUARE,0,igll,iface)];
- ny = abs_boundary_normal[INDEX3(NDIM,NGLLSQUARE,1,igll,iface)];
- nz = abs_boundary_normal[INDEX3(NDIM,NGLLSQUARE,2,igll,iface)];
-
- // // velocity component in normal direction (normal points out of element)
- vn = vx*nx + vy*ny + vz*nz;
- rho_vp_temp = rho_vp[INDEX4(NGLLX,NGLLX,NGLLX,i,j,k,ispec)];
- rho_vs_temp = rho_vs[INDEX4(NGLLX,NGLLX,NGLLX,i,j,k,ispec)];
- tx = rho_vp_temp*vn*nx + rho_vs_temp*(vx-vn*nx);
- ty = rho_vp_temp*vn*ny + rho_vs_temp*(vy-vn*ny);
- tz = rho_vp_temp*vn*nz + rho_vs_temp*(vz-vn*nz);
-
- jacobianw = abs_boundary_jacobian2Dw[INDEX2(NGLLSQUARE,igll,iface)];
-
- atomicAdd(&accel[iglob*3],-tx*jacobianw);
- atomicAdd(&accel[iglob*3+1],-ty*jacobianw);
- atomicAdd(&accel[iglob*3+2],-tz*jacobianw);
-
- if(SIMULATION_TYPE == 3) {
- atomicAdd(&b_accel[iglob*3 ],-b_absorb_field[0+3*(igll+25*(iface))]);
- atomicAdd(&b_accel[iglob*3+1],-b_absorb_field[1+3*(igll+25*(iface))]);
- atomicAdd(&b_accel[iglob*3+2],-b_absorb_field[2+3*(igll+25*(iface))]);
- }
- else if(SAVE_FORWARD && SIMULATION_TYPE == 1) {
- b_absorb_field[0+3*(igll+25*(iface))] = tx*jacobianw;
- b_absorb_field[1+3*(igll+25*(iface))] = ty*jacobianw;
- b_absorb_field[2+3*(igll+25*(iface))] = tz*jacobianw;
- }
-
- }
- }
-
-}
-
-#define FC_FUNC(name,NAME) name ## _
-#define FC_FUNC_(name,NAME) name ## _
-
-extern "C" void
-FC_FUNC_(write_abs,WRITE_ABS)(int *fid, char *buffer, int *length , int *index);
-extern "C" void
-FC_FUNC_(read_abs,READ_ABS)(int *fid, char *buffer, int *length , int *index);
-
-extern "C" void compute_stacey_elastic_cuda_(long* Mesh_pointer_f, int* NSPEC_ABf, int* NGLOB_ABf, int* phase_is_innerf, int* num_abs_boundary_facesf, int* SIMULATION_TYPEf, int* NSTEPf, int* myrankf, int* NGLOB_ADJOINTf, int* b_num_abs_boundary_facesf, int* b_reclen_fieldf,float* b_absorb_field, int* SAVE_FORWARDf, int* NGLLSQUAREf,int* itf) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
- int fid = 0;
- int it = *itf;
- int NSPEC_AB = *NSPEC_ABf;
- int NGLOB_AB = *NGLOB_ABf;
- int NGLLSQUARE = *NGLLSQUAREf;
- int phase_is_inner = *phase_is_innerf;
- int num_abs_boundary_faces = *num_abs_boundary_facesf;
- int SIMULATION_TYPE = *SIMULATION_TYPEf;
- int NSTEP = *NSTEPf;
- int myrank = *myrankf;
- int NGLOB_ADJOINT = *NGLOB_ADJOINTf;
- int b_num_abs_boundary_faces = *b_num_abs_boundary_facesf;
- int b_reclen_field = *b_reclen_fieldf;
- int SAVE_FORWARD = *SAVE_FORWARDf;
-
- int blocksize = 32; // > NGLLSQUARE=25, but we handle this inside kernel
- int num_blocks_x = num_abs_boundary_faces;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
-
- dim3 grid(num_blocks_x,num_blocks_y);
- dim3 threads(blocksize,1,1);
-
- float* d_debug_val;
- int* d_debug_val_int;
-
- if(SIMULATION_TYPE == 3 && num_abs_boundary_faces > 0) {
- // int val = NSTEP-it+1;
- // read_abs_(&fid,(char*)b_absorb_field,&b_reclen_field,&val);
- // The read is done in fortran
- cudaMemcpy(mp->d_b_absorb_field,b_absorb_field,b_reclen_field,cudaMemcpyHostToDevice);
- }
-
- #ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- exit_on_cuda_error("between cudamemcpy and compute_stacey_elastic_kernel");
- #endif
-
- compute_stacey_elastic_kernel<<<grid,threads>>>(mp->d_veloc,mp->d_accel,mp->d_b_accel,mp->d_abs_boundary_ispec, mp->d_abs_boundary_ijk, mp->d_ibool, mp->d_abs_boundary_normal, mp->d_rho_vp, mp->d_rho_vs, mp->d_abs_boundary_jacobian2Dw, mp->d_b_absorb_field,NGLLSQUARE,mp->d_ispec_is_inner, mp->d_ispec_is_elastic, phase_is_inner,d_debug_val,d_debug_val_int,num_abs_boundary_faces,SAVE_FORWARD,SIMULATION_TYPE);
-
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- exit_on_cuda_error("compute_stacey_elastic_kernel");
-#endif
-
- // ! adjoint simulations: stores absorbed wavefield part
- // if (SIMULATION_TYPE == 1 .and. SAVE_FORWARD .and. num_abs_boundary_faces > 0 ) &
- // write(IOABS,rec=it) b_reclen_field,b_absorb_field,b_reclen_field
-
- if(SIMULATION_TYPE==1 && SAVE_FORWARD && num_abs_boundary_faces>0) {
- cudaMemcpy(b_absorb_field,mp->d_b_absorb_field,b_reclen_field,cudaMemcpyDeviceToHost);
- // The write is done in fortran
- // write_abs_(&fid,(char*)b_absorb_field,&b_reclen_field,&it);
- }
-
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- exit_on_cuda_error("after compute_stacey_elastic after cudamemcpy");
-#endif
-}
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/constants.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/constants.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/constants.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,475 +0,0 @@
-GFORTRAN module version '0' created from specfem3D_par.f90 on Wed Sep 28 14:35:24 2011
-MD5:35c14d5174ce41e4a57a32aba66617cb -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () () () () ()
-() () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'absorb_free_surface' 'constants' 'absorb_free_surface' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-3 'absorb_use_pml' 'constants' 'absorb_use_pml' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-4 'apply_heuristic_rule' 'constants' 'apply_heuristic_rule' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-5 'approximate_hess_kl' 'constants' 'approximate_hess_kl' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-6 'attenuation_comp_maximum' 'constants' 'attenuation_comp_maximum' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9000') ()
-0 () () () 0 0)
-7 'attenuation_comp_resolution' 'constants' 'attenuation_comp_resolution'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'1') () 0 () () () 0 0)
-8 'attenuation_f0_reference' 'constants' 'attenuation_f0_reference' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0
-0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.4ccccccccccccc at 0')
-() 0 () () () 0 0)
-9 'component_force_source' 'constants' 'component_force_source' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0
-() () () 0 0)
-10 'constants' 'constants' 'constants' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-11 'cross_section_x' 'constants' 'cross_section_x' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.105b800 at 5') () 0 () () () 0 0)
-12 'cross_section_y' 'constants' 'cross_section_y' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.ffdc000 at 4') () 0 () () () 0 0)
-13 'cross_section_z' 'constants' 'cross_section_z' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '-0.7530000 at 4') () 0 () () () 0
-0)
-14 'custom_real' 'constants' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-15 'degrees_per_cell_topo_socal' 'constants' 'degrees_per_cell_topo_socal'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8
-0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.147ae147ae147b at -1')
-() 0 () () () 0 0)
-16 'dont_ignore_junk' 'constants' 'dont_ignore_junk' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-17 'esize' 'constants' 'esize' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-18 'ext_mesh_recv_normal' 'constants' 'ext_mesh_recv_normal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-19 'external_mesh_create_shakemap' 'constants'
-'external_mesh_create_shakemap' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-20 'external_mesh_movie_surface' 'constants' 'external_mesh_movie_surface'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-21 'factor_force_source' 'constants' 'factor_force_source' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.38d7ea4c680000 at 13')
-() 0 () () () 0 0)
-22 'faster_receivers_points_only' 'constants'
-'faster_receivers_points_only' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-23 'fix_underflow_problem' 'constants' 'fix_underflow_problem' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-24 'four_thirds' 'constants' 'four_thirds' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1555556 at 1') () 0 () () () 0 0)
-25 'gaussalpha' 'constants' 'gaussalpha' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-26 'gaussbeta' 'constants' 'gaussbeta' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-27 'hugeval' 'constants' 'hugeval' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.c9f2c9cd046750 at 25') () 0 () () () 0 0)
-28 'ianisotropy_model1' 'constants' 'ianisotropy_model1' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-29 'ianisotropy_model2' 'constants' 'ianisotropy_model2' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-30 'idomain_acoustic' 'constants' 'idomain_acoustic' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-31 'idomain_elastic' 'constants' 'idomain_elastic' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-32 'idomain_poroelastic' 'constants' 'idomain_poroelastic' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0
-() () () 0 0)
-33 'ignore_junk' 'constants' 'ignore_junk' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-34 'iin' 'constants' 'iin' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '40') () 0 () () () 0 0)
-35 'iin_interfaces' 'constants' 'iin_interfaces' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '43') () 0 ()
-() () 0 0)
-36 'iin_noise' 'constants' 'iin_noise' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '44') () 0 () () () 0 0)
-37 'iin_su1' 'constants' 'iin_su1' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '47') () 0 () () () 0 0)
-38 'iin_su2' 'constants' 'iin_su2' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '48') () 0 () () () 0 0)
-39 'iin_su3' 'constants' 'iin_su3' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '49') () 0 () () () 0 0)
-40 'ilonglat2utm' 'constants' 'ilonglat2utm' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () ()
-() 0 0)
-41 'imain' 'constants' 'imain' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '42') () 0 () () () 0 0)
-42 'in_data_files_path' 'constants' 'in_data_files_path' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_data_files/ ')
-() 0 () () () 0 0)
-43 'iostf' 'constants' 'iostf' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '71') () 0 () () () 0 0)
-44 'iout' 'constants' 'iout' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '41') () 0 () () () 0 0)
-45 'iout_noise' 'constants' 'iout_noise' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '45') () 0 () () () 0 0)
-46 'iout_su' 'constants' 'iout_su' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '46') () 0 () () () 0 0)
-47 'iovtk' 'constants' 'iovtk' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '98') () 0 () () () 0 0)
-48 'istandard_output' 'constants' 'istandard_output' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () ()
-() 0 0)
-49 'itag' 'constants' 'itag' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0)
-50 'itag2' 'constants' 'itag2' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0)
-51 'iutm2longlat' 'constants' 'iutm2longlat' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-52 'local_path_is_also_global' 'constants' 'local_path_is_also_global' 1
-((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL
-4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0
-() () () 0 0)
-53 'local_path_q' 'constants' 'local_path_q' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/DATABASES_MPI ')
-() 0 () () () 0 0)
-54 'm1' 'constants' 'm1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-55 'm2' 'constants' 'm2' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0)
-56 'max_length_network_name' 'constants' 'max_length_network_name' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0
-() () () 0 0)
-57 'max_length_station_name' 'constants' 'max_length_station_name' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '32') () 0
-() () () 0 0)
-58 'mf_in_data_files_path' 'constants' 'mf_in_data_files_path' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER
-1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 ()
-(CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_data_files/meshfem3D_files/ ')
-() 0 () () () 0 0)
-59 'minimum_thickness_3d_oceans' 'constants' 'minimum_thickness_3d_oceans'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8
-0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.a0000000000000 at 1')
-() 0 () () () 0 0)
-60 'n_sls' 'constants' 'n_sls' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-61 'ndim' 'constants' 'ndim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-62 'ndim2d' 'constants' 'ndim2d' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
-63 'ngather_sources' 'constants' 'ngather_sources' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100') () 0 ()
-() () 0 0)
-64 'ngllcube' 'constants' 'ngllcube' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '125') () 0 () () () 0 0)
-65 'ngllcube_ndim' 'constants' 'ngllcube_ndim' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '375') () 0 ()
-() () 0 0)
-66 'ngllsquare' 'constants' 'ngllsquare' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0)
-67 'ngllsquare_ndim' 'constants' 'ngllsquare_ndim' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '75') () 0 ()
-() () 0 0)
-68 'ngllx' 'constants' 'ngllx' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-69 'nglly' 'constants' 'nglly' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-70 'ngllz' 'constants' 'ngllz' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-71 'ngnod' 'constants' 'ngnod' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-72 'ngnod2d' 'constants' 'ngnod2d' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-73 'ngnod2d_avs_dx' 'constants' 'ngnod2d_avs_dx' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-74 'nlines_per_cmtsolution_source' 'constants'
-'nlines_per_cmtsolution_source' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
-75 'nstep_q_save' 'constants' 'nstep_q_save' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '50') () 0 ()
-() () 0 0)
-76 'num_iter' 'constants' 'num_iter' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-77 'nx_topo_socal' 'constants' 'nx_topo_socal' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1401') () 0 ()
-() () 0 0)
-78 'ny_topo_socal' 'constants' 'ny_topo_socal' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1001') () 0 ()
-() () 0 0)
-79 'olsen_attenuation_ratio' 'constants' 'olsen_attenuation_ratio' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.cccccd0 at -1') () 0 ()
-() () 0 0)
-80 'one' 'constants' 'one' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.10000000000000 at 1') () 0 () () () 0 0)
-81 'one_third' 'constants' 'one_third' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.5555558 at 0') () 0 () () () 0 0)
-82 'orig_lat_topo_socal' 'constants' 'orig_lat_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.20000000000000 at 2') ()
-0 () () () 0 0)
-83 'orig_long_topo_socal' 'constants' 'orig_long_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.79000000000000 at 2')
-() 0 () () () 0 0)
-84 'output_files_path' 'constants' 'output_files_path' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/OUTPUT_FILES/ ')
-() 0 () () () 0 0)
-85 'pi' 'constants' 'pi' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.3243f6a8885a30 at 1') () 0 () () () 0 0)
-86 'plot_cross_sections' 'constants' 'plot_cross_sections' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-87 'pnm_gif_image' 'constants' 'pnm_gif_image' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-88 'recvs_can_be_buried_ext_mesh' 'constants'
-'recvs_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-89 'rho_oceans' 'constants' 'rho_oceans' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.3fc0000 at 3') () 0 () () () 0 0)
-90 'save_moho_mesh' 'constants' 'save_moho_mesh' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-91 'seismograms_binary' 'constants' 'seismograms_binary' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-92 'show_details_locate_source' 'constants' 'show_details_locate_source'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-93 'size_double' 'constants' 'size_double' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-94 'size_integer' 'constants' 'size_integer' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-95 'size_logical' 'constants' 'size_logical' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-96 'size_real' 'constants' 'size_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-97 'smallval' 'constants' 'smallval' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.a7c5ac471b4788 at -4') () 0 () () () 0 0)
-98 'smallval_tol' 'constants' 'smallval_tol' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6df37f675ef6ec at -8') () 0 () ()
-() 0 0)
-99 'source_decay_mimic_triangle' 'constants' 'source_decay_mimic_triangle'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8
-0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.1a0c49ba5e353f at 1')
-() 0 () () () 0 0)
-100 'sources_can_be_buried_ext_mesh' 'constants'
-'sources_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-101 'stability_threshold' 'constants' 'stability_threshold' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.8459510 at 21') () 0 ()
-() () 0 0)
-102 'su_format' 'constants' 'su_format' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-103 'tinyval' 'constants' 'tinyval' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.44b82fa09b5a54 at -7') () 0 () () () 0 0)
-104 'tinyval_sngl' 'constants' 'tinyval_sngl' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1ef2d10 at -20') () 0 () () () 0
-0)
-105 'topo_file_socal' 'constants' 'topo_file_socal' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 100
-'DATA/la_topography/topo_bathy_final.dat ')
-() 0 () () () 0 0)
-106 'two' 'constants' 'two' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.20000000000000 at 1') () 0 () () () 0 0)
-107 'two_pi' 'constants' 'two_pi' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6487ed5110b460 at 1') () 0 () () () 0 0)
-108 'use_deville_products' 'constants' 'use_deville_products' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-109 'use_force_point_source' 'constants' 'use_force_point_source' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-110 'use_model_external_values' 'constants' 'use_model_external_values'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-111 'use_output_files_path' 'constants' 'use_output_files_path' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-112 'use_sources_recvs_z' 'constants' 'use_sources_recvs_z' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-113 'user_t0' 'constants' 'user_t0' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-114 'verysmallval' 'constants' 'verysmallval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1357c2a at -19') () 0 () () () 0
-0)
-115 'write_seismograms_by_master' 'constants'
-'write_seismograms_by_master' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-116 'zero' 'constants' 'zero' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-)
-
-('absorb_free_surface' 0 2 'absorb_use_pml' 0 3 'apply_heuristic_rule' 0
-4 'approximate_hess_kl' 0 5 'attenuation_comp_maximum' 0 6
-'attenuation_comp_resolution' 0 7 'attenuation_f0_reference' 0 8
-'component_force_source' 0 9 'constants' 0 10 'cross_section_x' 0 11
-'cross_section_y' 0 12 'cross_section_z' 0 13 'custom_real' 0 14
-'degrees_per_cell_topo_socal' 0 15 'dont_ignore_junk' 0 16 'esize' 0 17
-'ext_mesh_recv_normal' 0 18 'external_mesh_create_shakemap' 0 19
-'external_mesh_movie_surface' 0 20 'factor_force_source' 0 21
-'faster_receivers_points_only' 0 22 'fix_underflow_problem' 0 23
-'four_thirds' 0 24 'gaussalpha' 0 25 'gaussbeta' 0 26 'hugeval' 0 27
-'ianisotropy_model1' 0 28 'ianisotropy_model2' 0 29 'idomain_acoustic' 0
-30 'idomain_elastic' 0 31 'idomain_poroelastic' 0 32 'ignore_junk' 0 33
-'iin' 0 34 'iin_interfaces' 0 35 'iin_noise' 0 36 'iin_su1' 0 37 'iin_su2'
-0 38 'iin_su3' 0 39 'ilonglat2utm' 0 40 'imain' 0 41 'in_data_files_path'
-0 42 'iostf' 0 43 'iout' 0 44 'iout_noise' 0 45 'iout_su' 0 46 'iovtk' 0
-47 'istandard_output' 0 48 'itag' 0 49 'itag2' 0 50 'iutm2longlat' 0 51
-'local_path_is_also_global' 0 52 'local_path_q' 0 53 'm1' 0 54 'm2' 0 55
-'max_length_network_name' 0 56 'max_length_station_name' 0 57
-'mf_in_data_files_path' 0 58 'minimum_thickness_3d_oceans' 0 59 'n_sls'
-0 60 'ndim' 0 61 'ndim2d' 0 62 'ngather_sources' 0 63 'ngllcube' 0 64
-'ngllcube_ndim' 0 65 'ngllsquare' 0 66 'ngllsquare_ndim' 0 67 'ngllx' 0
-68 'nglly' 0 69 'ngllz' 0 70 'ngnod' 0 71 'ngnod2d' 0 72 'ngnod2d_avs_dx'
-0 73 'nlines_per_cmtsolution_source' 0 74 'nstep_q_save' 0 75 'num_iter'
-0 76 'nx_topo_socal' 0 77 'ny_topo_socal' 0 78 'olsen_attenuation_ratio'
-0 79 'one' 0 80 'one_third' 0 81 'orig_lat_topo_socal' 0 82
-'orig_long_topo_socal' 0 83 'output_files_path' 0 84 'pi' 0 85
-'plot_cross_sections' 0 86 'pnm_gif_image' 0 87
-'recvs_can_be_buried_ext_mesh' 0 88 'rho_oceans' 0 89 'save_moho_mesh' 0
-90 'seismograms_binary' 0 91 'show_details_locate_source' 0 92
-'size_double' 0 93 'size_integer' 0 94 'size_logical' 0 95 'size_real' 0
-96 'smallval' 0 97 'smallval_tol' 0 98 'source_decay_mimic_triangle' 0
-99 'sources_can_be_buried_ext_mesh' 0 100 'stability_threshold' 0 101
-'su_format' 0 102 'tinyval' 0 103 'tinyval_sngl' 0 104 'topo_file_socal'
-0 105 'two' 0 106 'two_pi' 0 107 'use_deville_products' 0 108
-'use_force_point_source' 0 109 'use_model_external_values' 0 110
-'use_output_files_path' 0 111 'use_sources_recvs_z' 0 112 'user_t0' 0
-113 'verysmallval' 0 114 'write_seismograms_by_master' 0 115 'zero' 0
-116)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/image_pnm_gif_par.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/image_pnm_gif_par.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/image_pnm_gif_par.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,152 +0,0 @@
-GFORTRAN module version '0' created from create_color_image.f90 on Wed Sep 28 14:35:29 2011
-MD5:baf67dd5d5b920826840b983d2185574 -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () ()
-() () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'binary_file' 'image_pnm_gif_par' 'binary_file' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () ()
-() 0 0)
-3 'constants' 'constants' 'constants' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-4 'custom_real' 'constants' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-5 'data_pixel_recv' 'image_pnm_gif_par' 'data_pixel_recv' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-6 'data_pixel_send' 'image_pnm_gif_par' 'data_pixel_send' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-7 'iglob_image_color' 'image_pnm_gif_par' 'iglob_image_color' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-8 'image_color_data' 'image_pnm_gif_par' 'image_color_data' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () ()
-() 0 0)
-9 'image_color_vp_display' 'image_pnm_gif_par' 'image_color_vp_display'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () ()
-() 0 0)
-10 'image_cutsnaps' 'image_pnm_gif_par' 'image_cutsnaps' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.28f5c28 at -1') () 0 () () () 0
-0)
-11 'image_pnm_gif_par' 'image_pnm_gif_par' 'image_pnm_gif_par' 1 ((
-MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0
-UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-12 'image_type' 'image_pnm_gif_par' 'image_type' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-13 'imain' 'constants' 'imain' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '42') () 0 () () () 0 0)
-14 'ispec_image_color' 'image_pnm_gif_par' 'ispec_image_color' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-15 'it' 'specfem_par' 'it' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-16 'myrank' 'specfem_par' 'myrank' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-17 'nb_pixel_loc' 'image_pnm_gif_par' 'nb_pixel_loc' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-18 'nb_pixel_per_proc' 'image_pnm_gif_par' 'nb_pixel_per_proc' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-19 'nproc' 'specfem_par' 'nproc' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-20 'num_pixel_loc' 'image_pnm_gif_par' 'num_pixel_loc' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-21 'num_pixel_recv' 'image_pnm_gif_par' 'num_pixel_recv' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-22 'nx_image_color' 'image_pnm_gif_par' 'nx_image_color' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-23 'nz_image_color' 'image_pnm_gif_par' 'nz_image_color' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-24 'power_display_color' 'image_pnm_gif_par' 'power_display_color' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.4ccccd0 at 0') () 0 ()
-() () 0 0)
-25 'remove_pnm_file' 'image_pnm_gif_par' 'remove_pnm_file' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-26 'section_hdirx' 'image_pnm_gif_par' 'section_hdirx' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.0000000 at 0') () 0 () () () 0 0)
-27 'section_hdiry' 'image_pnm_gif_par' 'section_hdiry' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1000000 at 1') () 0 () () () 0 0)
-28 'section_hdirz' 'image_pnm_gif_par' 'section_hdirz' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.0000000 at 0') () 0 () () () 0 0)
-29 'section_nx' 'image_pnm_gif_par' 'section_nx' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1000000 at 1') () 0 () () () 0 0)
-30 'section_ny' 'image_pnm_gif_par' 'section_ny' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.0000000 at 0') () 0 () () () 0 0)
-31 'section_nz' 'image_pnm_gif_par' 'section_nz' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.0000000 at 0') () 0 () () () 0 0)
-32 'section_vdirx' 'image_pnm_gif_par' 'section_vdirx' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.0000000 at 0') () 0 () () () 0 0)
-33 'section_vdiry' 'image_pnm_gif_par' 'section_vdiry' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.0000000 at 0') () 0 () () () 0 0)
-34 'section_vdirz' 'image_pnm_gif_par' 'section_vdirz' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1000000 at 1') () 0 () () () 0 0)
-35 'section_xorg' 'image_pnm_gif_par' 'section_xorg' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.105b800 at 5') () 0 () () () 0 0)
-36 'section_yorg' 'image_pnm_gif_par' 'section_yorg' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.0000000 at 0') () 0 () () () 0 0)
-37 'section_zorg' 'image_pnm_gif_par' 'section_zorg' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.0000000 at 0') () 0 () () () 0 0)
-38 'specfem_par' 'specfem_par' 'specfem_par' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-39 'vp_background' 'image_pnm_gif_par' 'vp_background' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-)
-
-('binary_file' 0 2 'constants' 0 3 'custom_real' 0 4 'data_pixel_recv' 0
-5 'data_pixel_send' 0 6 'iglob_image_color' 0 7 'image_color_data' 0 8
-'image_color_vp_display' 0 9 'image_cutsnaps' 0 10 'image_pnm_gif_par' 0
-11 'image_type' 0 12 'imain' 0 13 'ispec_image_color' 0 14 'it' 0 15
-'myrank' 0 16 'nb_pixel_loc' 0 17 'nb_pixel_per_proc' 0 18 'nproc' 0 19
-'num_pixel_loc' 0 20 'num_pixel_recv' 0 21 'nx_image_color' 0 22
-'nz_image_color' 0 23 'power_display_color' 0 24 'remove_pnm_file' 0 25
-'section_hdirx' 0 26 'section_hdiry' 0 27 'section_hdirz' 0 28
-'section_nx' 0 29 'section_ny' 0 30 'section_nz' 0 31 'section_vdirx' 0
-32 'section_vdiry' 0 33 'section_vdirz' 0 34 'section_xorg' 0 35
-'section_yorg' 0 36 'section_zorg' 0 37 'specfem_par' 0 38 'vp_background'
-0 39)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/mesh_constants_cuda.h~
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/mesh_constants_cuda.h~ 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/mesh_constants_cuda.h~ 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,92 +0,0 @@
-#ifndef GPU_MESH_
-#define GPU_MESH_
-#include <sys/types.h>
-#include <unistd.h>
-
-typedef struct mesh_ {
-
- int NGLLX; int NSPEC_AB;
- int NGLOB_AB;
- float* d_xix; float* d_xiy; float* d_xiz;
- float* d_etax; float* d_etay; float* d_etaz;
- float* d_gammax; float* d_gammay; float* d_gammaz;
- float* d_kappav; float* d_muv;
- int* d_ibool;
- float* d_displ; float* d_veloc; float* d_accel;
- float* d_b_displ; float* d_b_veloc; float* d_b_accel;
- int* d_phase_ispec_inner_elastic;
- int d_num_phase_ispec_elastic;
- float* d_rmass;
- float* d_send_accel_buffer;
- int* d_nibool_interfaces_ext_mesh;
- int* d_ibool_interfaces_ext_mesh;
-
- // used for writing seismograms
- int* d_number_receiver_global;
- int* d_ispec_selected_rec;
- int nrec_local;
- float* d_station_seismo_field;
- float* h_station_seismo_field;
-
- //used for absorbing stacey boundaries
- int* d_abs_boundary_ispec;
- int* d_abs_boundary_ijk;
- float* d_abs_boundary_normal;
- float* d_rho_vp;
- float* d_rho_vs;
- float* d_abs_boundary_jacobian2Dw;
- float* d_b_absorb_field;
- int* d_ispec_is_inner;
- int* d_ispec_is_elastic;
- float* d_sourcearrays;
- double* d_stf_pre_compute;
- int* d_islice_selected_source;
- int* d_ispec_selected_source;
-
- int* d_islice_selected_rec;
-
- // surface elements to save for noise tomography
- int* d_ibelm_top;
- int nspec_top;
- float* d_noise_surface_movie;
-
- float* d_epsilondev_xx;
- float* d_epsilondev_yy;
- float* d_epsilondev_xy;
- float* d_epsilondev_xz;
- float* d_epsilondev_yz;
- float* d_epsilon_trace_over_3;
-
- float* d_normal_x_noise;
- float* d_normal_y_noise;
- float* d_normal_z_noise;
- float* d_mask_noise;
- float* d_jacobian2D_top;
-
- float* d_wgllwgll_xy;
- float* d_wgllwgll_xz;
- float* d_wgllwgll_yz;
-
- float* d_noise_sourcearray;
-
- float* d_b_epsilondev_xx;
- float* d_b_epsilondev_yy;
- float* d_b_epsilondev_xy;
- float* d_b_epsilondev_xz;
- float* d_b_epsilondev_yz;
- float* d_b_epsilon_trace_over_3;
-
- // sensitivity kernels
- float* d_rho_kl;
- float* d_mu_kl;
- float* d_kappa_kl;
- float* d_Sigma_kl;
-
-
-} Mesh;
-
-void pause_for_debugger(int pause);
-
-void exit_on_cuda_error(char* kernel_name);
-
-#endif
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/noise_tomography_cuda.cu~
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/noise_tomography_cuda.cu~ 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/noise_tomography_cuda.cu~ 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,101 +0,0 @@
-#include <stdio.h>
-#include <cuda.h>
-#include <cublas.h>
-#include <mpi.h>
-#include <sys/types.h>
-#include <unistd.h>
-
-#include "mesh_constants_cuda.h"
-
-#include "epik_user.h"
-
-#define INDEX2(xsize,x,y) x + (y)*xsize
-#define INDEX3(xsize,ysize,x,y,z) x + (y)*xsize + (z)*xsize*ysize
-#define INDEX4(xsize,ysize,zsize,x,y,z,i) x + (y)*xsize + (z)*xsize*ysize + (i)*xsize*ysize*zsize
-#define INDEX5(xsize,ysize,zsize,isize,x,y,z,i,j) x + (y)*xsize + (z)*xsize*ysize + (i)*xsize*ysize*zsize + (j)*xsize*ysize*zsize*isize
-
-typedef float real;
-
-#define ENABLE_VERY_SLOW_ERROR_CHECKING
-
-__global__ void transfer_surface_to_host_kernel(int* ibelm_top, int nspec_top, int* ibool, real* displ, real* noise_surface_movie) {
- int tx = threadIdx.x;
- int ty = threadIdx.y;
- int element_id = blockIdx.x + blockIdx.y*gridDim.x;
-
- int id = tx + blockIdx.x*blockDim.x + blockIdx.y*blockDim.x*gridDim.x;
-
- if(element_id < nspec_top) {
- int ispec = ibelm_top[element_id]-1; //-1 for C-based indexing
- // k = NGLLZ = 5 -> ibool[tx,ty,4]
- int iglob = ibool[INDEX4(5,5,5,tx,ty,4,ispec)]-1;
-
- noise_surface_movie[INDEX4(3,5,5,0,tx,ty,element_id)] = displ[iglob*3];
- noise_surface_movie[INDEX4(3,5,5,1,tx,ty,element_id)] = displ[iglob*3+1];
- noise_surface_movie[INDEX4(3,5,5,2,tx,ty,element_id)] = displ[iglob*3+2];
- }
-}
-
-extern "C" void fortranflush_(int* rank)
-{
-
- fflush(stdout);
- fflush(stderr);
- printf("Flushing proc %d!\n",*rank);
-}
-
-extern "C" void fortranprint_(int* id) {
- int procid;
- MPI_Comm_rank(MPI_COMM_WORLD,&procid);
- printf("%d: sends msg_id %d\n",procid,*id);
-}
-
-extern "C" void fortranprintf_(float* val) {
- int procid;
- MPI_Comm_rank(MPI_COMM_WORLD,&procid);
- printf("%d: sends val %e\n",procid,*val);
-}
-
-extern "C" void fortranprintd_(double* val) {
- int procid;
- MPI_Comm_rank(MPI_COMM_WORLD,&procid);
- printf("%d: sends val %e\n",procid,*val);
-}
-
-// randomize displ for testing
-extern "C" void make_displ_rand_(long* Mesh_pointer_f,float* h_displ) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); // get Mesh from fortran integer wrapper
- // float* displ_rnd = (float*)malloc(mp->NGLOB_AB*3*sizeof(float));
- for(int i=0;i<mp->NGLOB_AB*3;i++) {
- h_displ[i] = rand();
- }
- cudaMemcpy(mp->d_displ,h_displ,mp->NGLOB_AB*3*sizeof(float),cudaMemcpyHostToDevice);
-}
-
-extern "C" void transfer_surface_to_host_(long* Mesh_pointer_f,real* h_noise_surface_movie,int* nspec_top) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); // get Mesh from fortran integer wrapper
- int num_blocks_x = *nspec_top;
- int num_blocks_y = 1;
- while(num_blocks_x > 65535) {
- num_blocks_x = ceil(num_blocks_x/2.0);
- num_blocks_y = num_blocks_y*2;
- }
- dim3 grid(num_blocks_x,num_blocks_y,1);
- dim3 threads(5,5,1);
-
- transfer_surface_to_host_kernel<<<grid,threads>>>(mp->d_ibelm_top, *nspec_top, mp->d_ibool, mp->d_displ, mp->d_noise_surface_movie);
-
- cudaMemcpy(h_noise_surface_movie,mp->d_noise_surface_movie,3*5*5*(*nspec_top)*sizeof(real),cudaMemcpyDeviceToHost);
-
-#ifdef ENABLE_VERY_SLOW_ERROR_CHECKING
- // sync and check to catch errors from previous async operations
- cudaThreadSynchronize();
- exit_on_cuda_error("transfer_surface_to_host");
-#endif
-
-}
-
-
-
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/pml_par.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/pml_par.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/pml_par.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,80 +0,0 @@
-GFORTRAN module version '0' created from PML_init.f90 on Wed Sep 28 14:35:24 2011
-MD5:968e753c75bd120a59d3cc34aa930841 -- If you edit this, you'll get what you deserve.
-
-(() () () ()
-() () () () () () () () () () () () () () () () () () () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'constants' 'constants' 'constants' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-3 'custom_real' 'constants' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-4 'iglob_is_pml' 'pml_par' 'iglob_is_pml' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-5 'iglob_is_pml_interface' 'pml_par' 'iglob_is_pml_interface' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-6 'ispec_is_pml_inum' 'pml_par' 'ispec_is_pml_inum' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-7 'num_pml_ispec' 'pml_par' 'num_pml_ispec' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-8 'pml' 'pml_par' 'pml' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
-9 'pml_damp_r' 'pml_par' 'pml_damp_r' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.4189378 at -2') () 0 () () () 0 0)
-10 'pml_damping_d' 'pml_par' 'pml_damping_d' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-11 'pml_damping_dprime' 'pml_par' 'pml_damping_dprime' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-12 'pml_ispec' 'pml_par' 'pml_ispec' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-13 'pml_layers' 'pml_par' 'pml_layers' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () ()
-0 () () () 0 0)
-14 'pml_mask_ibool' 'pml_par' 'pml_mask_ibool' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-15 'pml_normal' 'pml_par' 'pml_normal' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-16 'pml_par' 'pml_par' 'pml_par' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-17 'pml_use_sommerfeld' 'pml_par' 'pml_use_sommerfeld' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-18 'pml_width' 'pml_par' 'pml_width' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-19 'pml_width_max' 'pml_par' 'pml_width_max' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-20 'pml_width_min' 'pml_par' 'pml_width_min' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-)
-
-('constants' 0 2 'custom_real' 0 3 'iglob_is_pml' 0 4
-'iglob_is_pml_interface' 0 5 'ispec_is_pml_inum' 0 6 'num_pml_ispec' 0 7
-'pml' 0 8 'pml_damp_r' 0 9 'pml_damping_d' 0 10 'pml_damping_dprime' 0
-11 'pml_ispec' 0 12 'pml_layers' 0 13 'pml_mask_ibool' 0 14 'pml_normal'
-0 15 'pml_par' 0 16 'pml_use_sommerfeld' 0 17 'pml_width' 0 18
-'pml_width_max' 0 19 'pml_width_min' 0 20)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/pml_par_acoustic.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/pml_par_acoustic.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/pml_par_acoustic.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,73 +0,0 @@
-GFORTRAN module version '0' created from PML_init.f90 on Wed Sep 28 14:35:24 2011
-MD5:c48573d4b4bd37566610fcb5987bf443 -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () ()
-() () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'chi1' 'pml_par_acoustic' 'chi1' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-3 'chi1_dot' 'pml_par_acoustic' 'chi1_dot' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-4 'chi1_dot_dot' 'pml_par_acoustic' 'chi1_dot_dot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-5 'chi2' 'pml_par_acoustic' 'chi2' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-6 'chi2_t' 'pml_par_acoustic' 'chi2_t' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-7 'chi2_t_dot' 'pml_par_acoustic' 'chi2_t_dot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-8 'chi2_t_dot_dot' 'pml_par_acoustic' 'chi2_t_dot_dot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-9 'chi3' 'pml_par_acoustic' 'chi3' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-10 'chi3_dot' 'pml_par_acoustic' 'chi3_dot' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-11 'chi3_dot_dot' 'pml_par_acoustic' 'chi3_dot_dot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-12 'chi4' 'pml_par_acoustic' 'chi4' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-13 'chi4_dot' 'pml_par_acoustic' 'chi4_dot' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-14 'chi4_dot_dot' 'pml_par_acoustic' 'chi4_dot_dot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-15 'constants' 'constants' 'constants' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-16 'custom_real' 'constants' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-17 'pml_par_acoustic' 'pml_par_acoustic' 'pml_par_acoustic' 1 ((MODULE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ())
-0 0 () () 0 () () () 0 0)
-)
-
-('chi1' 0 2 'chi1_dot' 0 3 'chi1_dot_dot' 0 4 'chi2' 0 5 'chi2_t' 0 6
-'chi2_t_dot' 0 7 'chi2_t_dot_dot' 0 8 'chi3' 0 9 'chi3_dot' 0 10
-'chi3_dot_dot' 0 11 'chi4' 0 12 'chi4_dot' 0 13 'chi4_dot_dot' 0 14
-'constants' 0 15 'custom_real' 0 16 'pml_par_acoustic' 0 17)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/prepare_mesh_constants_cuda.cu~
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/prepare_mesh_constants_cuda.cu~ 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/prepare_mesh_constants_cuda.cu~ 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,1007 +0,0 @@
-#include <stdio.h>
-#include <cuda.h>
-#include <cublas.h>
-#include <mpi.h>
-
-#include <sys/time.h>
-#include <sys/resource.h>
-
-#include "mesh_constants_cuda.h"
-
-#include "prepare_constants_cuda.h"
-
-#define MAX(x,y) (((x) < (y)) ? (y) : (x))
-
-typedef float real;
-
-extern "C" void pause_for_debug_() {
- pause_for_debugger(1);
-}
-
-void pause_for_debugger(int pause) {
- if(pause) {
- int myrank;
- MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
- printf("I'm rank %d\n",myrank);
- int i = 0;
- char hostname[256];
- gethostname(hostname, sizeof(hostname));
- printf("PID %d on %s:%d ready for attach\n", getpid(), hostname,myrank);
- FILE *file = fopen("/scratch/eiger/rietmann/attach_gdb.txt","w+");
- fprintf(file,"PID %d on %s:%d ready for attach\n", getpid(), hostname,myrank);
- fclose(file);
- fflush(stdout);
- while (0 == i)
- sleep(5);
- }
-}
-
-void exit_on_cuda_error(char* kernel_name) {
-
-cudaThreadSynchronize();
- cudaError_t err = cudaGetLastError();
- if (err != cudaSuccess)
- {
- fprintf(stderr,"Error after %s: %s\n", kernel_name, cudaGetErrorString(err));
- pause_for_debugger(0);
- exit(1);
- }
-}
-
-// Saves GPU memory usage to file
-void output_free_memory(char* info_str) {
- int proc;
- MPI_Comm_rank(MPI_COMM_WORLD,&proc);
- FILE* fp;
- char filename[BUFSIZ];
- sprintf(filename,"../in_out_files/OUTPUT_FILES/gpu_mem_usage_proc_%03d.txt",proc);
- fp = fopen(filename,"a+");
-
- size_t free_byte ;
- size_t total_byte ;
- cudaError_t cuda_status = cudaMemGetInfo( &free_byte, &total_byte ) ;
- if ( cudaSuccess != cuda_status ){
- printf("Error: cudaMemGetInfo fails, %s \n", cudaGetErrorString(cuda_status) );
- exit(1);
- }
-
- double free_db = (double)free_byte ;
- double total_db = (double)total_byte ;
- double used_db = total_db - free_db ;
- fprintf(fp,"%d: @%s GPU memory usage: used = %f, free = %f MB, total = %f MB\n", proc, info_str,
- used_db/1024.0/1024.0, free_db/1024.0/1024.0, total_db/1024.0/1024.0);
-}
-
-// Fortran-callable version of above method
-extern "C" void output_free_memory_(int* id) {
- char info[6];
- sprintf(info,"f %d:",id);
- output_free_memory(info);
-}
-
-void show_free_memory(char* info_str) {
-
- // show memory usage of GPU
- int proc;
- MPI_Comm_rank(MPI_COMM_WORLD,&proc);
-
- size_t free_byte ;
- size_t total_byte ;
- cudaError_t cuda_status = cudaMemGetInfo( &free_byte, &total_byte ) ;
- if ( cudaSuccess != cuda_status ){
- printf("Error: cudaMemGetInfo fails, %s \n", cudaGetErrorString(cuda_status) );
- exit(1);
- }
-
- double free_db = (double)free_byte ;
- double total_db = (double)total_byte ;
- double used_db = total_db - free_db ;
- printf("%d: @%s GPU memory usage: used = %f, free = %f MB, total = %f MB\n", proc, info_str,
- used_db/1024.0/1024.0, free_db/1024.0/1024.0, total_db/1024.0/1024.0);
-
-}
-
-extern "C" void show_free_device_memory_() {
- show_free_memory("from fortran");
-}
-
-void prepare_constants(int NGLLX, int NSPEC_AB, int NGLOB_AB,
- float* h_xix, float* h_xiy, float* h_xiz,
- float** d_xix, float** d_xiy, float** d_xiz,
- float* h_etax, float* h_etay, float* h_etaz,
- float** d_etax, float** d_etay, float** d_etaz,
- float* h_gammax, float* h_gammay, float* h_gammaz,
- float** d_gammax, float** d_gammay, float** d_gammaz,
- float* h_kappav, float* h_muv,
- float** d_kappav, float** d_muv,
- int* h_ibool, int** d_ibool,
- int* h_phase_ispec_inner_elastic, int** d_phase_ispec_inner_elastic,
- int num_phase_ispec_elastic,
- float* h_rmass, float** d_rmass,
- int num_interfaces_ext_mesh, int max_nibool_interfaces_ext_mesh,
- int* h_nibool_interfaces_ext_mesh, int** d_nibool_interfaces_ext_mesh,
- int* h_ibool_interfaces_ext_mesh, int** d_ibool_interfaces_ext_mesh,
- float* h_hprime_xx, float* h_hprimewgll_xx,
- float* h_wgllwgll_xy, float* h_wgllwgll_xz,
- float* h_wgllwgll_yz,
- int* h_abs_boundary_ispec, int** d_abs_boundary_ispec,
- int* h_abs_boundary_ijk, int** d_abs_boundary_ijk,
- float* h_abs_boundary_normal, float** d_abs_boundary_normal,
- float* h_rho_vp,float** d_rho_vp,
- float* h_rho_vs,float** d_rho_vs,
- float* h_abs_boundary_jacobian2Dw,float** d_abs_boundary_jacobian2Dw,
- float* h_b_absorb_field,float** d_b_absorb_field,
- int num_abs_boundary_faces, int b_num_abs_boundary_faces,
- int* h_ispec_is_inner, int** d_ispec_is_inner,
- int* h_ispec_is_elastic, int** d_ispec_is_elastic,
- int NSOURCES,
- float* h_sourcearrays,float** d_sourcearrays,
- int* h_islice_selected_source, int** d_islice_selected_source,
- int* h_ispec_selected_source, int** d_ispec_selected_source
- )
-{
-
- // EPIK_USER_REG(r_name,"compute_forces");
- // EPIK_USER_REG(r_name,
-
- /* Assuming NGLLX=5. Padded is then 128 (5^3+3) */
- int size_padded = 128*NSPEC_AB;
- int size = NGLLX*NGLLX*NGLLX*NSPEC_AB;
-
- print_CUDA_error_if_any(cudaMalloc((void**) d_xix, size_padded*sizeof(float)),5);
- print_CUDA_error_if_any(cudaMalloc((void**) d_xiy, size_padded*sizeof(float)),6);
- print_CUDA_error_if_any(cudaMalloc((void**) d_xiz, size_padded*sizeof(float)),7);
- print_CUDA_error_if_any(cudaMalloc((void**) d_etax, size_padded*sizeof(float)),8);
- print_CUDA_error_if_any(cudaMalloc((void**) d_etay, size_padded*sizeof(float)),9);
- print_CUDA_error_if_any(cudaMalloc((void**) d_etaz, size_padded*sizeof(float)),10);
- print_CUDA_error_if_any(cudaMalloc((void**) d_gammax, size_padded*sizeof(float)),11);
- print_CUDA_error_if_any(cudaMalloc((void**) d_gammay, size_padded*sizeof(float)),12);
- print_CUDA_error_if_any(cudaMalloc((void**) d_gammaz, size_padded*sizeof(float)),13);
- print_CUDA_error_if_any(cudaMalloc((void**) d_kappav, size_padded*sizeof(float)),14);
- print_CUDA_error_if_any(cudaMalloc((void**) d_muv, size_padded*sizeof(float)),15);
- print_CUDA_error_if_any(cudaMalloc((void**) d_ibool, size_padded*sizeof(int)),16);
- print_CUDA_error_if_any(cudaMalloc((void**) d_phase_ispec_inner_elastic, num_phase_ispec_elastic*2*sizeof(int)),17);
- print_CUDA_error_if_any(cudaMalloc((void**) d_rmass, NGLOB_AB*sizeof(float)),17);
-
- print_CUDA_error_if_any(cudaMalloc((void**) d_abs_boundary_ispec,
- num_abs_boundary_faces*sizeof(int)),69);
- print_CUDA_error_if_any(cudaMemcpy(*d_abs_boundary_ispec, h_abs_boundary_ispec,
- num_abs_boundary_faces*sizeof(int),
- cudaMemcpyHostToDevice),70);
-
- print_CUDA_error_if_any(cudaMalloc((void**) d_abs_boundary_ijk,
- 3*25*num_abs_boundary_faces*sizeof(int)),2);
- print_CUDA_error_if_any(cudaMemcpy(*d_abs_boundary_ijk, h_abs_boundary_ijk,
- 3*25*num_abs_boundary_faces*sizeof(int),
- cudaMemcpyHostToDevice),2);
-
- print_CUDA_error_if_any(cudaMalloc((void**) d_abs_boundary_normal,
- 3*25*num_abs_boundary_faces*sizeof(int)),3);
- print_CUDA_error_if_any(cudaMemcpy(*d_abs_boundary_normal, h_abs_boundary_normal,
- 3*25*num_abs_boundary_faces*sizeof(int),
- cudaMemcpyHostToDevice),3);
-
- print_CUDA_error_if_any(cudaMalloc((void**) d_abs_boundary_jacobian2Dw,
- 25*num_abs_boundary_faces*sizeof(float)),4);
- print_CUDA_error_if_any(cudaMemcpy(*d_abs_boundary_jacobian2Dw, h_abs_boundary_jacobian2Dw,
- 25*num_abs_boundary_faces*sizeof(float),
- cudaMemcpyHostToDevice),1);
-
- print_CUDA_error_if_any(cudaMalloc((void**) d_rho_vp, size*sizeof(float)),5);
- print_CUDA_error_if_any(cudaMalloc((void**) d_rho_vs, size*sizeof(float)),6);
- print_CUDA_error_if_any(cudaMemcpy(*d_rho_vp,h_rho_vp,size*sizeof(float),
- cudaMemcpyHostToDevice),5);
- print_CUDA_error_if_any(cudaMemcpy(*d_rho_vs,h_rho_vs,size*sizeof(float),
- cudaMemcpyHostToDevice),5);
-
- print_CUDA_error_if_any(cudaMalloc((void**) d_b_absorb_field, 3*25*b_num_abs_boundary_faces*sizeof(float)),7);
- print_CUDA_error_if_any(cudaMemcpy(*d_b_absorb_field, h_b_absorb_field,
- 3*25*b_num_abs_boundary_faces*sizeof(float),
- cudaMemcpyHostToDevice),7);
-
- print_CUDA_error_if_any(cudaMemcpy(*d_rmass,h_rmass,NGLOB_AB*sizeof(float),cudaMemcpyHostToDevice),18);
-
- // prepare interprocess-edge exchange information
- print_CUDA_error_if_any(cudaMalloc((void**) d_nibool_interfaces_ext_mesh,
- num_interfaces_ext_mesh*sizeof(int)),19);
- print_CUDA_error_if_any(cudaMemcpy(*d_nibool_interfaces_ext_mesh,h_nibool_interfaces_ext_mesh,
- num_interfaces_ext_mesh*sizeof(int),cudaMemcpyHostToDevice),19);
-
- print_CUDA_error_if_any(cudaMalloc((void**) d_ibool_interfaces_ext_mesh,
- num_interfaces_ext_mesh*max_nibool_interfaces_ext_mesh*sizeof(int)),20);
- print_CUDA_error_if_any(cudaMemcpy(*d_ibool_interfaces_ext_mesh,h_ibool_interfaces_ext_mesh,
- num_interfaces_ext_mesh*max_nibool_interfaces_ext_mesh*sizeof(int),
- cudaMemcpyHostToDevice),20);
-
- print_CUDA_error_if_any(cudaMalloc((void**) d_ispec_is_inner,NSPEC_AB*sizeof(int)),21);
- print_CUDA_error_if_any(cudaMemcpy(*d_ispec_is_inner, h_ispec_is_inner,
- NSPEC_AB*sizeof(int),
- cudaMemcpyHostToDevice),21);
- print_CUDA_error_if_any(cudaMalloc((void**) d_ispec_is_elastic,NSPEC_AB*sizeof(int)),21);
- print_CUDA_error_if_any(cudaMemcpy(*d_ispec_is_elastic, h_ispec_is_elastic,
- NSPEC_AB*sizeof(int),
- cudaMemcpyHostToDevice),21);
-
- print_CUDA_error_if_any(cudaMemcpy(*d_ibool, h_ibool,
- size*sizeof(int) ,cudaMemcpyHostToDevice),12);
-
- print_CUDA_error_if_any(cudaMalloc((void**)d_sourcearrays, sizeof(float)*NSOURCES*3*125),22);
- print_CUDA_error_if_any(cudaMemcpy(*d_sourcearrays, h_sourcearrays, sizeof(float)*NSOURCES*3*125,
- cudaMemcpyHostToDevice),22);
-
- print_CUDA_error_if_any(cudaMalloc((void**)d_islice_selected_source, sizeof(int)*NSOURCES),23);
- print_CUDA_error_if_any(cudaMemcpy(*d_islice_selected_source, h_islice_selected_source, sizeof(int)*NSOURCES,
- cudaMemcpyHostToDevice),23);
-
- print_CUDA_error_if_any(cudaMalloc((void**)d_ispec_selected_source, sizeof(int)*NSOURCES),24);
- print_CUDA_error_if_any(cudaMemcpy(*d_ispec_selected_source, h_ispec_selected_source,sizeof(int)*NSOURCES,
- cudaMemcpyHostToDevice),24);
-
- // transfer constant element data with padding
- for(int i=0;i<NSPEC_AB;i++) {
- print_CUDA_error_if_any(cudaMemcpy(*d_xix + i*128, &h_xix[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),69);
- print_CUDA_error_if_any(cudaMemcpy(*d_xiy+i*128, &h_xiy[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),11);
- print_CUDA_error_if_any(cudaMemcpy(*d_xiz+i*128, &h_xiz[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),3);
- print_CUDA_error_if_any(cudaMemcpy(*d_etax+i*128, &h_etax[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),4);
- print_CUDA_error_if_any(cudaMemcpy(*d_etay+i*128, &h_etay[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),5);
- print_CUDA_error_if_any(cudaMemcpy(*d_etaz+i*128, &h_etaz[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),6);
- print_CUDA_error_if_any(cudaMemcpy(*d_gammax+i*128,&h_gammax[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),7);
- print_CUDA_error_if_any(cudaMemcpy(*d_gammay+i*128,&h_gammay[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),8);
- print_CUDA_error_if_any(cudaMemcpy(*d_gammaz+i*128,&h_gammaz[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),9);
- print_CUDA_error_if_any(cudaMemcpy(*d_kappav+i*128,&h_kappav[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),10);
- print_CUDA_error_if_any(cudaMemcpy(*d_muv+i*128, &h_muv[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),11);
-
- }
-
-
-
- print_CUDA_error_if_any(cudaMemcpy(*d_phase_ispec_inner_elastic, h_phase_ispec_inner_elastic, num_phase_ispec_elastic*2*sizeof(int),cudaMemcpyHostToDevice),13);
-
-
-
-
-
-}
-
-
-extern "C" void prepare_constants_device_(long* Mesh_pointer,int* NGLLX, int* NSPEC_AB, int* NGLOB_AB,
- float* h_xix, float* h_xiy, float* h_xiz,
- float* h_etax, float* h_etay, float* h_etaz,
- float* h_gammax, float* h_gammay, float* h_gammaz,
- float* h_kappav, float* h_muv,
- int* h_ibool, int* h_phase_ispec_inner_elastic,
- int* num_phase_ispec_elastic,
- float* h_rmass,
- int* num_interfaces_ext_mesh, int* max_nibool_interfaces_ext_mesh,
- int* h_nibool_interfaces_ext_mesh, int* h_ibool_interfaces_ext_mesh,
- float* h_hprime_xx, float* h_hprimewgll_xx,
- float* h_wgllwgll_xy, float* h_wgllwgll_xz,
- float* h_wgllwgll_yz,
- int* h_abs_boundary_ispec, int* h_abs_boundary_ijk,
- float* h_abs_boundary_normal,
- float* h_rho_vp,
- float* h_rho_vs,
- float* h_abs_boundary_jacobian2Dw,
- float* h_b_absorb_field,
- int* num_abs_boundary_faces, int* b_num_abs_boundary_faces,
- int* h_ispec_is_inner, int* h_ispec_is_elastic,
- int* NSOURCES,
- float* h_sourcearrays,
- int* h_islice_selected_source,
- int* h_ispec_selected_source,
- int* h_number_receiver_global,
- int* h_ispec_selected_rec,
- int* nrec_local_f,
- int* nrec_f
- ) {
-
- int device_count,procid;
- cuInit(0);
- cudaGetDeviceCount(&device_count);
- MPI_Comm_rank(MPI_COMM_WORLD, &procid);
- if(device_count > 1) {
- cudaSetDevice((procid)%2);
- exit_on_cuda_error("cudaSetDevice");
- }
-
- printf("GPU_MODE Active. Preparing Fields and Constants on Device.\n");
-
- Mesh* mp = (Mesh*)malloc(sizeof(Mesh));
- *Mesh_pointer = (long)mp;
-
- mp->NGLLX = *NGLLX;
- mp->NSPEC_AB = *NSPEC_AB;
- mp->NGLOB_AB = *NGLOB_AB;
- mp->d_num_phase_ispec_elastic = *num_phase_ispec_elastic;
- setConst_hprime_xx (h_hprime_xx );
- setConst_hprimewgll_xx(h_hprimewgll_xx);
- setConst_wgllwgll_xy (h_wgllwgll_xy,mp);
- setConst_wgllwgll_xz (h_wgllwgll_xz,mp);
- setConst_wgllwgll_yz (h_wgllwgll_yz,mp);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_stf_pre_compute),
- *NSOURCES*sizeof(double)),1);
-
- int size_padded = 128* *NSPEC_AB;
- int size = *NGLLX * *NGLLX * *NGLLX * *NSPEC_AB;
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_xix, size_padded*sizeof(float)),5);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_xiy, size_padded*sizeof(float)),6);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_xiz, size_padded*sizeof(float)),7);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_etax, size_padded*sizeof(float)),8);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_etay, size_padded*sizeof(float)),9);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_etaz, size_padded*sizeof(float)),10);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_gammax, size_padded*sizeof(float)),11);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_gammay, size_padded*sizeof(float)),12);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_gammaz, size_padded*sizeof(float)),13);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_kappav, size_padded*sizeof(float)),14);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_muv, size_padded*sizeof(float)),15);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_ibool, size_padded*sizeof(int)),16);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_ibool_interfaces_ext_mesh,
- num_interfaces_ext_mesh*max_nibool_interfaces_ext_mesh*
- sizeof(int)),20);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_phase_ispec_inner_elastic, num_phase_ispec_elastic*2*sizeof(int)),17);
- print_CUDA_error_if_any(cudaMemcpy(d_phase_ispec_inner_elastic, h_phase_ispec_inner_elastic, num_phase_ispec_elastic*2*sizeof(int),cudaMemcpyHostToDevice),13);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_rmass, NGLOB_AB*sizeof(float)),17);
- print_CUDA_error_if_any(cudaMemcpy(d_rmass,h_rmass,NGLOB_AB*sizeof(float),cudaMemcpyHostToDevice),18);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_abs_boundary_ispec,
- num_abs_boundary_faces*sizeof(int)),69);
- print_CUDA_error_if_any(cudaMemcpy(d_abs_boundary_ispec, h_abs_boundary_ispec,
- num_abs_boundary_faces*sizeof(int),
- cudaMemcpyHostToDevice),70);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_abs_boundary_ijk,
- 3*25*num_abs_boundary_faces*sizeof(int)),2);
- print_CUDA_error_if_any(cudaMemcpy(d_abs_boundary_ijk, h_abs_boundary_ijk,
- 3*25*num_abs_boundary_faces*sizeof(int),
- cudaMemcpyHostToDevice),2);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_abs_boundary_normal,
- 3*25*num_abs_boundary_faces*sizeof(int)),3);
- print_CUDA_error_if_any(cudaMemcpy(d_abs_boundary_normal, h_abs_boundary_normal,
- 3*25*num_abs_boundary_faces*sizeof(int),
- cudaMemcpyHostToDevice),3);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_abs_boundary_jacobian2Dw,
- 25*num_abs_boundary_faces*sizeof(float)),4);
- print_CUDA_error_if_any(cudaMemcpy(d_abs_boundary_jacobian2Dw, h_abs_boundary_jacobian2Dw,
- 25*num_abs_boundary_faces*sizeof(float),
- cudaMemcpyHostToDevice),1);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_rho_vp, size*sizeof(float)),5);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_rho_vs, size*sizeof(float)),6);
- print_CUDA_error_if_any(cudaMemcpy(d_rho_vp,h_rho_vp,size*sizeof(float),
- cudaMemcpyHostToDevice),5);
- print_CUDA_error_if_any(cudaMemcpy(d_rho_vs,h_rho_vs,size*sizeof(float),
- cudaMemcpyHostToDevice),5);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_b_absorb_field, 3*25*b_num_abs_boundary_faces*sizeof(float)),7);
- print_CUDA_error_if_any(cudaMemcpy(d_b_absorb_field, h_b_absorb_field,
- 3*25*b_num_abs_boundary_faces*sizeof(float),
- cudaMemcpyHostToDevice),7);
-
-
- // prepare interprocess-edge exchange information
- print_CUDA_error_if_any(cudaMalloc((void**) &d_nibool_interfaces_ext_mesh,
- num_interfaces_ext_mesh*sizeof(int)),19);
- print_CUDA_error_if_any(cudaMemcpy(d_nibool_interfaces_ext_mesh,h_nibool_interfaces_ext_mesh,
- num_interfaces_ext_mesh*sizeof(int),cudaMemcpyHostToDevice),19);
-
-
- print_CUDA_error_if_any(cudaMemcpy(d_ibool_interfaces_ext_mesh,h_ibool_interfaces_ext_mesh,
- num_interfaces_ext_mesh*max_nibool_interfaces_ext_mesh*sizeof(int),
- cudaMemcpyHostToDevice),20);
-
- print_CUDA_error_if_any(cudaMalloc((void**) &d_ispec_is_inner,NSPEC_AB*sizeof(int)),21);
- print_CUDA_error_if_any(cudaMemcpy(d_ispec_is_inner, h_ispec_is_inner,
- NSPEC_AB*sizeof(int),
- cudaMemcpyHostToDevice),21);
- print_CUDA_error_if_any(cudaMalloc((void**) &d_ispec_is_elastic,NSPEC_AB*sizeof(int)),21);
- print_CUDA_error_if_any(cudaMemcpy(d_ispec_is_elastic, h_ispec_is_elastic,
- NSPEC_AB*sizeof(int),
- cudaMemcpyHostToDevice),21);
-
- print_CUDA_error_if_any(cudaMemcpy(d_ibool, h_ibool,
- size*sizeof(int) ,cudaMemcpyHostToDevice),12);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&d_sourcearrays, sizeof(float)*NSOURCES*3*125),22);
- print_CUDA_error_if_any(cudaMemcpy(d_sourcearrays, h_sourcearrays, sizeof(float)*NSOURCES*3*125,
- cudaMemcpyHostToDevice),22);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&d_islice_selected_source, sizeof(int)*NSOURCES),23);
- print_CUDA_error_if_any(cudaMemcpy(d_islice_selected_source, h_islice_selected_source, sizeof(int)*NSOURCES,
- cudaMemcpyHostToDevice),23);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&d_ispec_selected_source, sizeof(int)*NSOURCES),24);
- print_CUDA_error_if_any(cudaMemcpy(d_ispec_selected_source, h_ispec_selected_source,sizeof(int)*NSOURCES,
- cudaMemcpyHostToDevice),24);
-
- // transfer constant element data with padding
- for(int i=0;i<NSPEC_AB;i++) {
- print_CUDA_error_if_any(cudaMemcpy(d_xix + i*128, &h_xix[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),69);
- print_CUDA_error_if_any(cudaMemcpy(d_xiy+i*128, &h_xiy[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),11);
- print_CUDA_error_if_any(cudaMemcpy(d_xiz+i*128, &h_xiz[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),3);
- print_CUDA_error_if_any(cudaMemcpy(d_etax+i*128, &h_etax[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),4);
- print_CUDA_error_if_any(cudaMemcpy(d_etay+i*128, &h_etay[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),5);
- print_CUDA_error_if_any(cudaMemcpy(d_etaz+i*128, &h_etaz[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),6);
- print_CUDA_error_if_any(cudaMemcpy(d_gammax+i*128,&h_gammax[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),7);
- print_CUDA_error_if_any(cudaMemcpy(d_gammay+i*128,&h_gammay[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),8);
- print_CUDA_error_if_any(cudaMemcpy(d_gammaz+i*128,&h_gammaz[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),9);
- print_CUDA_error_if_any(cudaMemcpy(d_kappav+i*128,&h_kappav[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),10);
- print_CUDA_error_if_any(cudaMemcpy(d_muv+i*128, &h_muv[i*125],
- 125*sizeof(float),cudaMemcpyHostToDevice),11);
-
- }
-
- int nrec_local = *nrec_local_f;
- int nrec = *nrec_f;
-
- // note that:
- // size(number_receiver_global) = nrec_local
- // size(ispec_selected_rec) = nrec
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_number_receiver_global),nrec_local*sizeof(int)),1);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_ispec_selected_rec),nrec*sizeof(int)),2);
- cudaMemcpy(mp->d_number_receiver_global,h_number_receiver_global,nrec_local*sizeof(int),
- cudaMemcpyHostToDevice);
-
- cudaMemcpy(mp->d_ispec_selected_rec,h_ispec_selected_rec,nrec*sizeof(int),
- cudaMemcpyHostToDevice);
-
- mp->nrec_local = nrec_local;
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_station_seismo_field),3*125*nrec_local*sizeof(float)),3);
- mp->h_station_seismo_field = (float*)malloc(3*125*nrec_local*sizeof(float));
-
-}
-
-extern "C" void prepare_and_transfer_noise_backward_fields_(long* Mesh_pointer_f,
- int* size,
- real* b_displ,
- real* b_veloc,
- real* b_accel,
- real* b_epsilondev_xx,
- real* b_epsilondev_yy,
- real* b_epsilondev_xy,
- real* b_epsilondev_xz,
- real* b_epsilondev_yz,
- int* NSPEC_STRAIN_ONLY) {
- //show_free_memory("prep_and_xfer_noise_bwd_fields");
- Mesh* mp = (Mesh*)(*Mesh_pointer_f);
- int epsilondev_size = 128*(*NSPEC_STRAIN_ONLY);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_b_displ),*size*sizeof(real)),1);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_b_veloc),*size*sizeof(real)),2);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_b_accel),*size*sizeof(real)),3);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_b_epsilondev_xx),
- epsilondev_size*sizeof(real)),4);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_b_epsilondev_yy),
- epsilondev_size*sizeof(real)),4);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_b_epsilondev_xy),
- epsilondev_size*sizeof(real)),4);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_b_epsilondev_xz),
- epsilondev_size*sizeof(real)),4);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_b_epsilondev_yz),
- epsilondev_size*sizeof(real)),4);
-
-
- cudaMemcpy(mp->d_b_displ,b_displ,*size*sizeof(real),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_b_veloc,b_veloc,*size*sizeof(real),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_b_accel,b_accel,*size*sizeof(real),cudaMemcpyHostToDevice);
-
- cudaMemcpy(mp->d_b_epsilondev_xx,b_epsilondev_xx,
- epsilondev_size*sizeof(real),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_b_epsilondev_yy,b_epsilondev_yy,
- epsilondev_size*sizeof(real),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_b_epsilondev_xy,b_epsilondev_xy,
- epsilondev_size*sizeof(real),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_b_epsilondev_xz,b_epsilondev_xz,
- epsilondev_size*sizeof(real),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_b_epsilondev_yz,b_epsilondev_yz,
- epsilondev_size*sizeof(real),cudaMemcpyHostToDevice);
-
-}
-extern "C"
-void prepare_and_transfer_noise_backward_constants_(long* Mesh_pointer_f,
- float* normal_x_noise,
- float* normal_y_noise,
- float* normal_z_noise,
- float* mask_noise,
- float* jacobian2D_top,
- int* nfaces_surface_ext_mesh
- ) {
-
- //show_free_memory("prep_and_xfer_noise_bwd_constants");
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- int nface_size = 5*5*(*nfaces_surface_ext_mesh);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_normal_x_noise,
- nface_size*sizeof(float)),1);
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_normal_y_noise,
- nface_size*sizeof(float)),2);
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_normal_z_noise,
- nface_size*sizeof(float)),3);
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_mask_noise, nface_size*sizeof(float)),4);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_jacobian2D_top,
- nface_size*sizeof(float)),5);
-
- cudaMemcpy(mp->d_normal_x_noise, normal_x_noise, nface_size*sizeof(float),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_normal_y_noise, normal_y_noise, nface_size*sizeof(float),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_normal_z_noise, normal_z_noise, nface_size*sizeof(float),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_mask_noise, mask_noise, nface_size*sizeof(float),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_jacobian2D_top, jacobian2D_top, nface_size*sizeof(float),cudaMemcpyHostToDevice);
- printf("jacobian_size = %d\n",25*(*nfaces_surface_ext_mesh));
-}
-
-extern "C" void prepare_noise_constants_device_(long* Mesh_pointer_f, int* NGLLX, int* NSPEC_AB, int* NGLOB_AB,
- int* ibelm_top, int* nspec_top, int* SIMULATION_TYPE) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f);
- // nspec_top is also nfaces_surface_ext_mesh in fortran code (globally)
- mp->nspec_top = *nspec_top;
-
- print_CUDA_error_if_any(cudaMalloc((void**) &mp->d_ibelm_top, *nspec_top*sizeof(int)),1);
- print_CUDA_error_if_any(cudaMemcpy(mp->d_ibelm_top, ibelm_top, *nspec_top*sizeof(int),cudaMemcpyHostToDevice),1);
-
- // alloc storage for the surface buffer to be copied
- print_CUDA_error_if_any(cudaMalloc((void**) &mp->d_noise_surface_movie, 3*5*5*(*nspec_top)*sizeof(float)),1);
-
-}
-
-extern "C" void prepare_sensitivity_kernels_(long* Mesh_pointer_f,
- float* rho_kl,
- float* mu_kl,
- float* kappa_kl,
- float* epsilon_trace_over_3,
- float* b_epsilon_trace_over_3,
- float* Sigma_kl,
- int* NSPEC_ADJOINTf) {
- Mesh* mp = (Mesh*)(*Mesh_pointer_f);
- int NSPEC_ADJOINT = *NSPEC_ADJOINTf;
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_rho_kl),
- 125*mp->NSPEC_AB*sizeof(float)),8);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_mu_kl),
- 125*mp->NSPEC_AB*sizeof(float)),8);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_kappa_kl),
- 125*mp->NSPEC_AB*sizeof(float)),8);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_epsilon_trace_over_3),
- 125*mp->NSPEC_AB*sizeof(float)),8);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_b_epsilon_trace_over_3),
- 125*mp->NSPEC_AB*sizeof(float)),8);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_Sigma_kl),
- 125*(mp->NSPEC_AB)*sizeof(float)),9);
-
- cudaMemcpy(mp->d_rho_kl,rho_kl, 125*NSPEC_ADJOINT*sizeof(float),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_mu_kl,mu_kl, 125*NSPEC_ADJOINT*sizeof(float),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_kappa_kl,kappa_kl, 125*NSPEC_ADJOINT*sizeof(float),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_epsilon_trace_over_3,epsilon_trace_over_3,
- 125*NSPEC_ADJOINT*sizeof(float),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_b_epsilon_trace_over_3 ,b_epsilon_trace_over_3,
- 125*NSPEC_ADJOINT*sizeof(float),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_Sigma_kl, Sigma_kl, 125*(NSPEC_ADJOINT)*sizeof(float),
- cudaMemcpyHostToDevice);
-
- exit_on_cuda_error("prepare_sensitivity_kernels");
-}
-
-
-extern "C" void prepare_adjoint_constants_device_(long* Mesh_pointer_f,
- int* NGLLX,
- int* ispec_selected_rec,
- int* islice_selected_rec,
- int* islice_selected_rec_size,
- int* nrec,
- float* noise_sourcearray,
- int* NSTEP,
- float* epsilondev_xx,
- float* epsilondev_yy,
- float* epsilondev_xy,
- float* epsilondev_xz,
- float* epsilondev_yz,
- int* NSPEC_STRAIN_ONLY
- ) {
- exit_on_cuda_error("prepare_adjoint_constants_device 1");
- Mesh* mp = (Mesh*)(*Mesh_pointer_f);
- int epsilondev_size = 128*(*NSPEC_STRAIN_ONLY);
-
- // already done earlier
- // print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_ispec_selected_rec,
- // *nrec*sizeof(int)),1);
- // cudaMemcpy(mp->d_ispec_selected_rec,ispec_selected_rec, *nrec*sizeof(int),
- // cudaMemcpyHostToDevice);
-
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_islice_selected_rec,
- *islice_selected_rec_size*sizeof(int)),2);
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_noise_sourcearray,
- 3*125*(*NSTEP)*sizeof(float)),2);
-
-
- cudaMemcpy(mp->d_noise_sourcearray, noise_sourcearray,
- 3*125*(*NSTEP)*sizeof(float),
- cudaMemcpyHostToDevice);
-
- exit_on_cuda_error("prepare_adjoint_constants_device 2");
-
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_epsilondev_xx,
- epsilondev_size*sizeof(float)),3);
- cudaMemcpy(mp->d_epsilondev_xx,epsilondev_xx,epsilondev_size*sizeof(float),
- cudaMemcpyHostToDevice);
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_epsilondev_yy,
- epsilondev_size*sizeof(float)),4);
- cudaMemcpy(mp->d_epsilondev_yy,epsilondev_yy,epsilondev_size*sizeof(float),
- cudaMemcpyHostToDevice);
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_epsilondev_xy,
- epsilondev_size*sizeof(float)),5);
- cudaMemcpy(mp->d_epsilondev_xy,epsilondev_xy,epsilondev_size*sizeof(float),
- cudaMemcpyHostToDevice);
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_epsilondev_xz,
- epsilondev_size*sizeof(float)),6);
- cudaMemcpy(mp->d_epsilondev_xz,epsilondev_xz,epsilondev_size*sizeof(float),
- cudaMemcpyHostToDevice);
- print_CUDA_error_if_any(cudaMalloc((void**)&mp->d_epsilondev_yz,
- epsilondev_size*sizeof(float)),7);
- cudaMemcpy(mp->d_epsilondev_yz,epsilondev_yz,epsilondev_size*sizeof(float),
- cudaMemcpyHostToDevice);
- exit_on_cuda_error("prepare_adjoint_constants_device 3");
-
-
- // these don't seem necessary and crash code for NOISE_TOMOGRAPHY >
- // 0 b/c rho_kl, etc not yet allocated when NT=1
-
-
-}
-
-extern "C" {
- void prepare_fields_device_(long* Mesh_pointer_f, int* size);
- void transfer_fields_to_device_(int* size, float* displ, float* veloc, float* accel,long* Mesh_pointer_f);
- void transfer_fields_from_device_(int* size, float* displ, float* veloc, float* accel,long* Mesh_pointer_f);
-}
-
-void prepare_fields_device_(long* Mesh_pointer_f, int* size) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_displ),sizeof(float)*(*size)),0);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_veloc),sizeof(float)*(*size)),1);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_accel),sizeof(float)*(*size)),2);
- print_CUDA_error_if_any(cudaMalloc((void**)&(mp->d_send_accel_buffer),sizeof(float)*(*size)),2);
-
-}
-
-
-extern "C" void transfer_b_fields_to_device_(int* size, float* b_displ, float* b_veloc, float* b_accel,
- long* Mesh_pointer_f) {
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
- cudaMemcpy(mp->d_b_displ,b_displ,sizeof(float)*(*size),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_b_veloc,b_veloc,sizeof(float)*(*size),cudaMemcpyHostToDevice);
- cudaMemcpy(mp->d_b_accel,b_accel,sizeof(float)*(*size),cudaMemcpyHostToDevice);
-
-}
-
-void transfer_fields_to_device_(int* size, float* displ, float* veloc, float* accel,long* Mesh_pointer_f) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- print_CUDA_error_if_any(cudaMemcpy(mp->d_displ,displ,sizeof(float)*(*size),cudaMemcpyHostToDevice),3);
- print_CUDA_error_if_any(cudaMemcpy(mp->d_veloc,veloc,sizeof(float)*(*size),cudaMemcpyHostToDevice),4);
- print_CUDA_error_if_any(cudaMemcpy(mp->d_accel,accel,sizeof(float)*(*size),cudaMemcpyHostToDevice),5);
-
-}
-
-extern "C" void transfer_b_fields_from_device_(int* size, float* b_displ, float* b_veloc, float* b_accel,long* Mesh_pointer_f) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- cudaMemcpy(b_displ,mp->d_b_displ,sizeof(float)*(*size),cudaMemcpyDeviceToHost);
- cudaMemcpy(b_veloc,mp->d_b_veloc,sizeof(float)*(*size),cudaMemcpyDeviceToHost);
- cudaMemcpy(b_accel,mp->d_b_accel,sizeof(float)*(*size),cudaMemcpyDeviceToHost);
-
-}
-
-extern "C" void get_max_accel_(int* itf,int* sizef,long* Mesh_pointer) {
- Mesh* mp = (Mesh*)(*Mesh_pointer);
- int procid;
- MPI_Comm_rank(MPI_COMM_WORLD,&procid);
- int size = *sizef;
- int it = *itf;
- float* accel_cpy = (float*)malloc(size*sizeof(float));
- cudaMemcpy(accel_cpy,mp->d_accel,size*sizeof(float),cudaMemcpyDeviceToHost);
- float maxval=0;
- for(int i=0;i<size;++i) {
- maxval = MAX(maxval,accel_cpy[i]);
- }
- printf("%d/%d: max=%e\n",it,procid,maxval);
- free(accel_cpy);
-}
-
-extern "C" void transfer_accel_to_device_(int* size, float* accel,long* Mesh_pointer_f) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- print_CUDA_error_if_any(cudaMemcpy(mp->d_accel,accel,sizeof(float)*(*size),cudaMemcpyHostToDevice),6);
-
-}
-
-extern "C" void transfer_accel_from_device_(int* size, float* accel,long* Mesh_pointer_f) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- print_CUDA_error_if_any(cudaMemcpy(accel,mp->d_accel,sizeof(float)*(*size),cudaMemcpyDeviceToHost),6);
-
-}
-
-extern "C" void transfer_b_accel_from_device_(int* size, float* b_accel,long* Mesh_pointer_f) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- print_CUDA_error_if_any(cudaMemcpy(b_accel,mp->d_b_accel,sizeof(float)*(*size),cudaMemcpyDeviceToHost),6);
-
-}
-
-
-extern "C" void transfer_sigma_from_device_(int* size, float* sigma_kl,long* Mesh_pointer_f) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- print_CUDA_error_if_any(cudaMemcpy(sigma_kl,mp->d_Sigma_kl,sizeof(float)*(*size),cudaMemcpyDeviceToHost),6);
-
-}
-
-
-
-
-extern "C" void transfer_b_displ_from_device_(int* size, float* displ,long* Mesh_pointer_f) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- print_CUDA_error_if_any(cudaMemcpy(displ,mp->d_displ,sizeof(float)*(*size),cudaMemcpyDeviceToHost),6);
-
-}
-
-extern "C" void transfer_displ_from_device_(int* size, float* displ,long* Mesh_pointer_f) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- print_CUDA_error_if_any(cudaMemcpy(displ,mp->d_displ,sizeof(float)*(*size),cudaMemcpyDeviceToHost),6);
-
-}
-
-extern "C" void transfer_compute_kernel_answers_from_device_(long* Mesh_pointer,
- float* rho_kl,int* size_rho,
- float* mu_kl, int* size_mu,
- float* kappa_kl, int* size_kappa) {
- Mesh* mp = (Mesh*)(*Mesh_pointer); //get mesh pointer out of fortran integer container
- cudaMemcpy(rho_kl,mp->d_rho_kl,*size_rho*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(mu_kl,mp->d_mu_kl,*size_mu*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(kappa_kl,mp->d_kappa_kl,*size_kappa*sizeof(float),cudaMemcpyDeviceToHost);
-
-}
-
-extern "C" void transfer_compute_kernel_fields_from_device_(long* Mesh_pointer,
- float* accel, int* size_accel,
- float* b_displ, int* size_b_displ,
- float* epsilondev_xx,
- float* epsilondev_yy,
- float* epsilondev_xy,
- float* epsilondev_xz,
- float* epsilondev_yz,
- int* size_epsilondev,
- float* b_epsilondev_xx,
- float* b_epsilondev_yy,
- float* b_epsilondev_xy,
- float* b_epsilondev_xz,
- float* b_epsilondev_yz,
- int* size_b_epsilondev,
- float* rho_kl,int* size_rho,
- float* mu_kl, int* size_mu,
- float* kappa_kl, int* size_kappa,
- float* epsilon_trace_over_3,
- float* b_epsilon_trace_over_3,
- int* size_epsilon_trace_over_3) {
- Mesh* mp = (Mesh*)(*Mesh_pointer); //get mesh pointer out of fortran integer container
- cudaMemcpy(accel,mp->d_accel,*size_accel*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(b_displ,mp->d_b_displ,*size_b_displ*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(epsilondev_xx,mp->d_epsilondev_xx,*size_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(epsilondev_yy,mp->d_epsilondev_yy,*size_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(epsilondev_xy,mp->d_epsilondev_xy,*size_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(epsilondev_xz,mp->d_epsilondev_xz,*size_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(epsilondev_yz,mp->d_epsilondev_yz,*size_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(b_epsilondev_xx,mp->d_b_epsilondev_xx,*size_b_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(b_epsilondev_yy,mp->d_b_epsilondev_yy,*size_b_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(b_epsilondev_xy,mp->d_b_epsilondev_xy,*size_b_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(b_epsilondev_xz,mp->d_b_epsilondev_xz,*size_b_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(b_epsilondev_yz,mp->d_b_epsilondev_yz,*size_b_epsilondev*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(rho_kl,mp->d_rho_kl,*size_rho*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(mu_kl,mp->d_mu_kl,*size_mu*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(kappa_kl,mp->d_kappa_kl,*size_kappa*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(epsilon_trace_over_3,mp->d_epsilon_trace_over_3,*size_epsilon_trace_over_3*sizeof(float),
- cudaMemcpyDeviceToHost);
- cudaMemcpy(b_epsilon_trace_over_3,mp->d_b_epsilon_trace_over_3,*size_epsilon_trace_over_3*sizeof(float),
- cudaMemcpyDeviceToHost);
- exit_on_cuda_error("after transfer_compute_kernel_fields_from_device");
-}
-
-
-void transfer_fields_from_device_(int* size, float* displ, float* veloc, float* accel,long* Mesh_pointer_f) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- print_CUDA_error_if_any(cudaMemcpy(displ,mp->d_displ,sizeof(float)*(*size),cudaMemcpyDeviceToHost),6);
- print_CUDA_error_if_any(cudaMemcpy(veloc,mp->d_veloc,sizeof(float)*(*size),cudaMemcpyDeviceToHost),7);
- print_CUDA_error_if_any(cudaMemcpy(accel,mp->d_accel,sizeof(float)*(*size),cudaMemcpyDeviceToHost),8);
-
- // printf("Transfered Fields From Device\n");
- // int procid;
- // MPI_Comm_rank(MPI_COMM_WORLD,&procid);
- // printf("Quick check of answer for p:%d in transfer_fields_from_device\n",procid);
- // for(int i=0;i<5;i++) {
- // printf("accel[%d]=%2.20e\n",i,accel[i]);
- // }
-
-}
-
-
-extern "C" void check_max_norm_displ_gpu_(int* size, float* displ,long* Mesh_pointer_f,int* announceID) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- cudaMemcpy(displ, mp->d_displ,*size*sizeof(float),cudaMemcpyDeviceToHost);
- float maxnorm=0;
-
- for(int i=0;i<*size;i++) {
- maxnorm = MAX(maxnorm,fabsf(displ[i]));
- }
- printf("%d: maxnorm of forward displ = %e\n",*announceID,maxnorm);
-}
-
-extern "C" void check_max_norm_vector_(int* size, float* vector1, int* announceID) {
- int procid;
- MPI_Comm_rank(MPI_COMM_WORLD,&procid);
- float maxnorm=0;
- int maxloc;
- for(int i=0;i<*size;i++) {
- if(maxnorm<fabsf(vector1[i])) {
- maxnorm = vector1[i];
- maxloc = i;
- }
- }
- printf("%d:maxnorm of vector %d [%d] = %e\n",procid,*announceID,maxloc,maxnorm);
-}
-
-extern "C" void check_max_norm_displ_(int* size, float* displ, int* announceID) {
- float maxnorm=0;
-
- for(int i=0;i<*size;i++) {
- maxnorm = MAX(maxnorm,fabsf(displ[i]));
- }
- printf("%d: maxnorm of forward displ = %e\n",*announceID,maxnorm);
-}
-
-
-extern "C" void check_max_norm_b_displ_gpu_(int* size, float* b_displ,long* Mesh_pointer_f,int* announceID) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- float* b_accel = (float*)malloc(*size*sizeof(float));
-
- cudaMemcpy(b_displ, mp->d_b_displ,*size*sizeof(float),cudaMemcpyDeviceToHost);
- cudaMemcpy(b_accel, mp->d_b_accel,*size*sizeof(float),cudaMemcpyDeviceToHost);
-
- float maxnorm=0;
- float maxnorm_accel=0;
-
- for(int i=0;i<*size;i++) {
- maxnorm = MAX(maxnorm,fabsf(b_displ[i]));
- maxnorm_accel = MAX(maxnorm,fabsf(b_accel[i]));
- }
- free(b_accel);
- printf("%d: maxnorm of backward displ = %e\n",*announceID,maxnorm);
- printf("%d: maxnorm of backward accel = %e\n",*announceID,maxnorm_accel);
-}
-
-
-extern "C" void check_max_norm_b_accel_gpu_(int* size, float* b_accel,long* Mesh_pointer_f,int* announceID) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- cudaMemcpy(b_accel, mp->d_b_accel,*size*sizeof(float),cudaMemcpyDeviceToHost);
-
- float maxnorm=0;
-
- for(int i=0;i<*size;i++) {
- maxnorm = MAX(maxnorm,fabsf(b_accel[i]));
- }
- printf("%d: maxnorm of backward accel = %e\n",*announceID,maxnorm);
-}
-
-extern "C" void check_max_norm_b_veloc_gpu_(int* size, float* b_veloc,long* Mesh_pointer_f,int* announceID) {
-
- Mesh* mp = (Mesh*)(*Mesh_pointer_f); //get mesh pointer out of fortran integer container
-
- cudaMemcpy(b_veloc, mp->d_b_veloc,*size*sizeof(float),cudaMemcpyDeviceToHost);
-
- float maxnorm=0;
-
- for(int i=0;i<*size;i++) {
- maxnorm = MAX(maxnorm,fabsf(b_veloc[i]));
- }
- printf("%d: maxnorm of backward veloc = %e\n",*announceID,maxnorm);
-}
-
-extern "C" void check_max_norm_b_displ_(int* size, float* b_displ,int* announceID) {
-
- float maxnorm=0;
-
- for(int i=0;i<*size;i++) {
- maxnorm = MAX(maxnorm,fabsf(b_displ[i]));
- }
- printf("%d:maxnorm of backward displ = %e\n",*announceID,maxnorm);
-}
-
-
-extern "C" void check_max_norm_b_accel_(int* size, float* b_accel,int* announceID) {
-
- float maxnorm=0;
-
- for(int i=0;i<*size;i++) {
- maxnorm = MAX(maxnorm,fabsf(b_accel[i]));
- }
- printf("%d:maxnorm of backward accel = %e\n",*announceID,maxnorm);
-}
-
-extern "C" void check_error_vectors_(int* sizef, float* vector1,float* vector2) {
-
- int size = *sizef;
-
- double diff2 = 0;
- double sum = 0;
- double temp;
- double maxerr=0;
- int maxerrorloc;
-
- for(int i=0;i<size;++i) {
- temp = vector1[i]-vector2[i];
- diff2 += temp*temp;
- sum += vector1[i]*vector1[i];
- if(maxerr < fabsf(temp)) {
- maxerr = abs(temp);
- maxerrorloc = i;
- }
- }
-
- printf("rel error = %f, maxerr = %e @ %d\n",diff2/sum,maxerr,maxerrorloc);
- int myrank;
- MPI_Comm_rank(MPI_COMM_WORLD, &myrank);
- if(myrank==0) {
- for(int i=maxerrorloc;i>maxerrorloc-5;i--) {
- printf("[%d]: %e vs. %e\n",i,vector1[i],vector2[i]);
- }
- }
-
-}
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,1231 +0,0 @@
-GFORTRAN module version '0' created from specfem3D_par.f90 on Wed Sep 28 14:35:24 2011
-MD5:470ae05ef485d8dc7ca36bd38a7f81b8 -- If you edit this, you'll get what you deserve.
-
-(() () () () () () () () () () () () () () () () () () () () ()
-() () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'abs_boundary_ijk' 'specfem_par' 'abs_boundary_ijk' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () ()
-() 0 0)
-3 'abs_boundary_ispec' 'specfem_par' 'abs_boundary_ispec' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-4 'abs_boundary_jacobian2dw' 'specfem_par' 'abs_boundary_jacobian2dw' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () ()
-() 0 0)
-5 'abs_boundary_normal' 'specfem_par' 'abs_boundary_normal' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0
-() () () 0 0)
-6 'absorb_free_surface' 'constants' 'absorb_free_surface' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-7 'absorb_use_pml' 'constants' 'absorb_use_pml' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-8 'absorbing_conditions' 'specfem_par' 'absorbing_conditions' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-9 'adj_source_file' 'specfem_par' 'adj_source_file' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0
-0)
-10 'adj_sourcearray' 'specfem_par' 'adj_sourcearray' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (5 DEFERRED () () () () () () () () () ()) 0
-() () () 0 0)
-11 'adj_sourcearrays' 'specfem_par' 'adj_sourcearrays' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (6 DEFERRED () () () () () () () () () () ()
-()) 0 () () () 0 0)
-12 'anisotropy' 'specfem_par' 'anisotropy' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 ()
-() () 0 0)
-13 'apply_heuristic_rule' 'constants' 'apply_heuristic_rule' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-14 'approximate_hess_kl' 'constants' 'approximate_hess_kl' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-15 'attenuation' 'specfem_par' 'attenuation' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 ()
-() () 0 0)
-16 'attenuation_comp_maximum' 'constants' 'attenuation_comp_maximum' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '9000') ()
-0 () () () 0 0)
-17 'attenuation_comp_resolution' 'constants' 'attenuation_comp_resolution'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0
-'1') () 0 () () () 0 0)
-18 'attenuation_f0_reference' 'constants' 'attenuation_f0_reference' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0
-0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.4ccccccccccccc at 0')
-() 0 () () () 0 0)
-19 'b_deltat' 'specfem_par' 'b_deltat' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-20 'b_deltatover2' 'specfem_par' 'b_deltatover2' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-21 'b_deltatsqover2' 'specfem_par' 'b_deltatsqover2' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-22 'b_num_abs_boundary_faces' 'specfem_par' 'b_num_abs_boundary_faces' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-23 'b_usolidnorm' 'specfem_par' 'b_usolidnorm' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-24 'b_usolidnorm_all' 'specfem_par' 'b_usolidnorm_all' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-25 'buffer_recv_scalar_ext_mesh' 'specfem_par'
-'buffer_recv_scalar_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-DEFERRED () () () ()) 0 () () () 0 0)
-26 'buffer_recv_vector_ext_mesh' 'specfem_par'
-'buffer_recv_vector_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3
-DEFERRED () () () () () ()) 0 () () () 0 0)
-27 'buffer_send_scalar_ext_mesh' 'specfem_par'
-'buffer_send_scalar_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-DEFERRED () () () ()) 0 () () () 0 0)
-28 'buffer_send_vector_ext_mesh' 'specfem_par'
-'buffer_send_vector_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3
-DEFERRED () () () () () ()) 0 () () () 0 0)
-29 'comp_source_time_function' 'specfem_par' 'comp_source_time_function'
-1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN EXTERNAL) (
-REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-30 'component_force_source' 'constants' 'component_force_source' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0
-() () () 0 0)
-31 'constants' 'constants' 'constants' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-32 'cross_section_x' 'constants' 'cross_section_x' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.105b800 at 5') () 0 () () () 0 0)
-33 'cross_section_y' 'constants' 'cross_section_y' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.ffdc000 at 4') () 0 () () () 0 0)
-34 'cross_section_z' 'constants' 'cross_section_z' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '-0.7530000 at 4') () 0 () () () 0
-0)
-35 'custom_real' 'constants' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-36 'degrees_per_cell_topo' 'specfem_par' 'degrees_per_cell_topo' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ())
-0 0 () () 0 () () () 0 0)
-37 'degrees_per_cell_topo_socal' 'constants' 'degrees_per_cell_topo_socal'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8
-0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.147ae147ae147b at -1')
-() 0 () () () 0 0)
-38 'deltat' 'specfem_par' 'deltat' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-39 'deltatover2' 'specfem_par' 'deltatover2' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-40 'deltatsqover2' 'specfem_par' 'deltatsqover2' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-41 'dont_ignore_junk' 'constants' 'dont_ignore_junk' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-42 'dt' 'specfem_par' 'dt' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-43 'dummystring' 'specfem_par' 'dummystring' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0 0)
-44 'esize' 'constants' 'esize' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-45 'eta_receiver' 'specfem_par' 'eta_receiver' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-46 'eta_source' 'specfem_par' 'eta_source' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-47 'etax' 'specfem_par' 'etax' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4
-DEFERRED () () () () () () () ()) 0 () () () 0 0)
-48 'etay' 'specfem_par' 'etay' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4
-DEFERRED () () () () () () () ()) 0 () () () 0 0)
-49 'etaz' 'specfem_par' 'etaz' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4
-DEFERRED () () () () () () () ()) 0 () () () 0 0)
-50 'ext_mesh_recv_normal' 'constants' 'ext_mesh_recv_normal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-51 'external_mesh_create_shakemap' 'constants'
-'external_mesh_create_shakemap' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-52 'external_mesh_movie_surface' 'constants' 'external_mesh_movie_surface'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-53 'factor_force_source' 'constants' 'factor_force_source' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.38d7ea4c680000 at 13')
-() 0 () () () 0 0)
-54 'faster_receivers_points_only' 'constants'
-'faster_receivers_points_only' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-55 'filtered_rec_filename' 'specfem_par' 'filtered_rec_filename' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 ()
-() () 0 0)
-56 'fix_underflow_problem' 'constants' 'fix_underflow_problem' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-57 'four_thirds' 'constants' 'four_thirds' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1555556 at 1') () 0 () () () 0 0)
-58 'free_surface_ijk' 'specfem_par' 'free_surface_ijk' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () ()
-() 0 0)
-59 'free_surface_ispec' 'specfem_par' 'free_surface_ispec' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-60 'free_surface_jacobian2dw' 'specfem_par' 'free_surface_jacobian2dw' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () ()
-() 0 0)
-61 'free_surface_normal' 'specfem_par' 'free_surface_normal' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0
-() () () 0 0)
-62 'gamma_receiver' 'specfem_par' 'gamma_receiver' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-63 'gamma_source' 'specfem_par' 'gamma_source' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-64 'gammax' 'specfem_par' 'gammax' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-65 'gammay' 'specfem_par' 'gammay' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-66 'gammaz' 'specfem_par' 'gammaz' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-67 'gaussalpha' 'constants' 'gaussalpha' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-68 'gaussbeta' 'constants' 'gaussbeta' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-69 'gpu_mode' 'specfem_par' 'gpu_mode' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 ()
-() () 0 0)
-70 'hdur' 'specfem_par' 'hdur' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-71 'hdur_gaussian' 'specfem_par' 'hdur_gaussian' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-72 'hetar' 'specfem_par' 'hetar' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-73 'hetar_store' 'specfem_par' 'hetar_store' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-74 'hgammar' 'specfem_par' 'hgammar' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-75 'hgammar_store' 'specfem_par' 'hgammar_store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-76 'hpetar' 'specfem_par' 'hpetar' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-77 'hpetar_store' 'specfem_par' 'hpetar_store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-78 'hpgammar' 'specfem_par' 'hpgammar' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-79 'hpgammar_store' 'specfem_par' 'hpgammar_store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-80 'hprime_xx' 'specfem_par' 'hprime_xx' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-81 'hprime_xxt' 'specfem_par' 'hprime_xxt' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-82 'hprime_yy' 'specfem_par' 'hprime_yy' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-83 'hprime_zz' 'specfem_par' 'hprime_zz' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-84 'hprimewgll_xx' 'specfem_par' 'hprimewgll_xx' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () ()
-() 0 0)
-85 'hprimewgll_xxt' 'specfem_par' 'hprimewgll_xxt' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () ()
-() 0 0)
-86 'hprimewgll_yy' 'specfem_par' 'hprimewgll_yy' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () ()
-() 0 0)
-87 'hprimewgll_zz' 'specfem_par' 'hprimewgll_zz' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () ()
-() 0 0)
-88 'hpxir' 'specfem_par' 'hpxir' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-89 'hpxir_store' 'specfem_par' 'hpxir_store' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-90 'hugeval' 'constants' 'hugeval' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.c9f2c9cd046750 at 25') () 0 () () () 0 0)
-91 'hxir' 'specfem_par' 'hxir' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-92 'hxir_store' 'specfem_par' 'hxir_store' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-93 'ianisotropy_model1' 'constants' 'ianisotropy_model1' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-94 'ianisotropy_model2' 'constants' 'ianisotropy_model2' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-95 'ibelm_moho_bot' 'specfem_par' 'ibelm_moho_bot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-96 'ibelm_moho_top' 'specfem_par' 'ibelm_moho_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-97 'ibool' 'specfem_par' 'ibool' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-98 'ibool_interfaces_ext_mesh' 'specfem_par' 'ibool_interfaces_ext_mesh'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-99 'idomain_acoustic' 'constants' 'idomain_acoustic' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-100 'idomain_elastic' 'constants' 'idomain_elastic' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () ()
-() 0 0)
-101 'idomain_poroelastic' 'constants' 'idomain_poroelastic' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0
-() () () 0 0)
-102 'iglob_is_surface_external_mesh' 'specfem_par'
-'iglob_is_surface_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-103 'ignore_junk' 'constants' 'ignore_junk' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-104 'iin' 'constants' 'iin' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '40') () 0 () () () 0 0)
-105 'iin_interfaces' 'constants' 'iin_interfaces' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '43') () 0 ()
-() () 0 0)
-106 'iin_noise' 'constants' 'iin_noise' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '44') () 0 () () () 0 0)
-107 'iin_su1' 'constants' 'iin_su1' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '47') () 0 () () () 0 0)
-108 'iin_su2' 'constants' 'iin_su2' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '48') () 0 () () () 0 0)
-109 'iin_su3' 'constants' 'iin_su3' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '49') () 0 () () () 0 0)
-110 'ijk_moho_bot' 'specfem_par' 'ijk_moho_bot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () ()
-() 0 0)
-111 'ijk_moho_top' 'specfem_par' 'ijk_moho_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () ()
-() 0 0)
-112 'ilonglat2utm' 'constants' 'ilonglat2utm' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () ()
-() 0 0)
-113 'imain' 'constants' 'imain' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '42') () 0 () () () 0 0)
-114 'in_data_files_path' 'constants' 'in_data_files_path' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_data_files/ ')
-() 0 () () () 0 0)
-115 'iostf' 'constants' 'iostf' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '71') () 0 () () () 0 0)
-116 'iout' 'constants' 'iout' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '41') () 0 () () () 0 0)
-117 'iout_noise' 'constants' 'iout_noise' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '45') () 0 () () () 0 0)
-118 'iout_su' 'constants' 'iout_su' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '46') () 0 () () () 0 0)
-119 'iovtk' 'constants' 'iovtk' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '98') () 0 () () () 0 0)
-120 'irec_master_noise' 'specfem_par' 'irec_master_noise' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-121 'is_moho_bot' 'specfem_par' 'is_moho_bot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-122 'is_moho_top' 'specfem_par' 'is_moho_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-123 'islice_selected_rec' 'specfem_par' 'islice_selected_rec' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-124 'islice_selected_source' 'specfem_par' 'islice_selected_source' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-125 'ispec_is_inner' 'specfem_par' 'ispec_is_inner' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-126 'ispec_is_surface_external_mesh' 'specfem_par'
-'ispec_is_surface_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-127 'ispec_selected_rec' 'specfem_par' 'ispec_selected_rec' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-128 'ispec_selected_source' 'specfem_par' 'ispec_selected_source' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-129 'istandard_output' 'constants' 'istandard_output' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '6') () 0 () ()
-() 0 0)
-130 'it' 'specfem_par' 'it' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-131 'itag' 'constants' 'itag' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0)
-132 'itag2' 'constants' 'itag2' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0)
-133 'itopo_bathy' 'specfem_par' 'itopo_bathy' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-134 'iutm2longlat' 'constants' 'iutm2longlat' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') () 0 () ()
-() 0 0)
-135 'jacobian' 'specfem_par' 'jacobian' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-136 'kappastore' 'specfem_par' 'kappastore' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-137 'latitude_max' 'specfem_par' 'latitude_max' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-138 'latitude_min' 'specfem_par' 'latitude_min' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-139 'local_path' 'specfem_par' 'local_path' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0 0)
-140 'local_path_is_also_global' 'constants' 'local_path_is_also_global'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-1) () 0 () () () 0 0)
-141 'local_path_q' 'constants' 'local_path_q' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/DATABASES_MPI ')
-() 0 () () () 0 0)
-142 'longitude_max' 'specfem_par' 'longitude_max' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-143 'longitude_min' 'specfem_par' 'longitude_min' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-144 'm1' 'constants' 'm1' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-145 'm2' 'constants' 'm2' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0)
-146 'mask_noise' 'specfem_par' 'mask_noise' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-147 'max_length_network_name' 'constants' 'max_length_network_name' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0
-() () () 0 0)
-148 'max_length_station_name' 'constants' 'max_length_station_name' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4
-0 0 INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '32') () 0
-() () () 0 0)
-149 'max_nibool_interfaces_ext_mesh' 'specfem_par'
-'max_nibool_interfaces_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-150 'mesh_pointer' 'specfem_par' 'mesh_pointer' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 8 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-151 'mf_in_data_files_path' 'constants' 'mf_in_data_files_path' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER
-1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 ()
-(CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_data_files/meshfem3D_files/ ')
-() 0 () () () 0 0)
-152 'minimum_thickness_3d_oceans' 'constants'
-'minimum_thickness_3d_oceans' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.a0000000000000 at 1') () 0 () () () 0 0)
-153 'model_speed_max' 'specfem_par' 'model_speed_max' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-154 'mustore' 'specfem_par' 'mustore' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-155 'mxx' 'specfem_par' 'mxx' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-156 'mxx_der' 'specfem_par' 'mxx_der' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-157 'mxy' 'specfem_par' 'mxy' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-158 'mxy_der' 'specfem_par' 'mxy_der' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-159 'mxz' 'specfem_par' 'mxz' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-160 'mxz_der' 'specfem_par' 'mxz_der' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-161 'my_neighbours_ext_mesh' 'specfem_par' 'my_neighbours_ext_mesh' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-162 'myrank' 'specfem_par' 'myrank' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-163 'myy' 'specfem_par' 'myy' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-164 'myy_der' 'specfem_par' 'myy_der' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-165 'myz' 'specfem_par' 'myz' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-166 'myz_der' 'specfem_par' 'myz_der' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-167 'mzz' 'specfem_par' 'mzz' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-168 'mzz_der' 'specfem_par' 'mzz_der' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-169 'n_sls' 'constants' 'n_sls' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-170 'nadj_rec_local' 'specfem_par' 'nadj_rec_local' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-171 'ndim' 'constants' 'ndim' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-172 'ndim2d' 'constants' 'ndim2d' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0)
-173 'network_name' 'specfem_par' 'network_name' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8')))
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-174 'ngather_sources' 'constants' 'ngather_sources' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100') () 0 ()
-() () 0 0)
-175 'ngllcube' 'constants' 'ngllcube' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '125') () 0 () () () 0 0)
-176 'ngllcube_ndim' 'constants' 'ngllcube_ndim' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '375') () 0 ()
-() () 0 0)
-177 'ngllsquare' 'constants' 'ngllsquare' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0)
-178 'ngllsquare_ndim' 'constants' 'ngllsquare_ndim' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '75') () 0 ()
-() () 0 0)
-179 'ngllx' 'constants' 'ngllx' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-180 'nglly' 'constants' 'nglly' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-181 'ngllz' 'constants' 'ngllz' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-182 'nglob_ab' 'specfem_par' 'nglob_ab' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-183 'nglob_adjoint' 'specfem_par' 'nglob_adjoint' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-184 'ngnod' 'constants' 'ngnod' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-185 'ngnod2d' 'constants' 'ngnod2d' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-186 'ngnod2d_avs_dx' 'constants' 'ngnod2d_avs_dx' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-187 'nibool_interfaces_ext_mesh' 'specfem_par'
-'nibool_interfaces_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 DEFERRED () ()) 0 () () () 0 0)
-188 'nlines_per_cmtsolution_source' 'constants'
-'nlines_per_cmtsolution_source' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0)
-189 'noise_sourcearray' 'specfem_par' 'noise_sourcearray' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (5 DEFERRED () () () () () () () () () ()) 0
-() () () 0 0)
-190 'noise_surface_movie' 'specfem_par' 'noise_surface_movie' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0
-() () () 0 0)
-191 'noise_tomography' 'specfem_par' 'noise_tomography' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-192 'normal_moho_bot' 'specfem_par' 'normal_moho_bot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () () () 0 0)
-193 'normal_moho_top' 'specfem_par' 'normal_moho_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () () () 0 0)
-194 'normal_x_noise' 'specfem_par' 'normal_x_noise' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-195 'normal_y_noise' 'specfem_par' 'normal_y_noise' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-196 'normal_z_noise' 'specfem_par' 'normal_z_noise' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-197 'nproc' 'specfem_par' 'nproc' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-198 'nproc_eta' 'specfem_par' 'nproc_eta' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-199 'nproc_xi' 'specfem_par' 'nproc_xi' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-200 'nrec' 'specfem_par' 'nrec' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-201 'nrec_local' 'specfem_par' 'nrec_local' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-202 'nrec_simulation' 'specfem_par' 'nrec_simulation' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-203 'nrec_tot_found' 'specfem_par' 'nrec_tot_found' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-204 'nsources' 'specfem_par' 'nsources' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-205 'nspec2d_moho' 'specfem_par' 'nspec2d_moho' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-206 'nspec_ab' 'specfem_par' 'nspec_ab' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-207 'nspec_adjoint' 'specfem_par' 'nspec_adjoint' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-208 'nspec_attenuation_ab' 'specfem_par' 'nspec_attenuation_ab' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-209 'nspec_boun' 'specfem_par' 'nspec_boun' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-210 'nstep' 'specfem_par' 'nstep' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-211 'nstep_q_save' 'constants' 'nstep_q_save' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '50') () 0 ()
-() () 0 0)
-212 'ntstep_between_output_info' 'specfem_par'
-'ntstep_between_output_info' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-213 'ntstep_between_output_seismos' 'specfem_par'
-'ntstep_between_output_seismos' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-214 'ntstep_between_read_adjsrc' 'specfem_par'
-'ntstep_between_read_adjsrc' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-215 'nu' 'specfem_par' 'nu' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (3
-DEFERRED () () () () () ()) 0 () () () 0 0)
-216 'nu_source' 'specfem_par' 'nu_source' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (3 DEFERRED () () () () () ()) 0 () () () 0 0)
-217 'num_abs_boundary_faces' 'specfem_par' 'num_abs_boundary_faces' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-218 'num_free_surface_faces' 'specfem_par' 'num_free_surface_faces' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-219 'num_interfaces_ext_mesh' 'specfem_par' 'num_interfaces_ext_mesh' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-220 'num_iter' 'constants' 'num_iter' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-221 'number_receiver_global' 'specfem_par' 'number_receiver_global' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-222 'nx_topo' 'specfem_par' 'nx_topo' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-223 'nx_topo_socal' 'constants' 'nx_topo_socal' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1401') () 0 ()
-() () 0 0)
-224 'ny_topo' 'specfem_par' 'ny_topo' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-225 'ny_topo_socal' 'constants' 'ny_topo_socal' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1001') () 0 ()
-() () 0 0)
-226 'oceans' 'specfem_par' 'oceans' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 ()
-() () 0 0)
-227 'olsen_attenuation_ratio' 'constants' 'olsen_attenuation_ratio' 1 (
-(PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0
-0 REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.cccccd0 at -1') () 0
-() () () 0 0)
-228 'one' 'constants' 'one' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.10000000000000 at 1') () 0 () () () 0 0)
-229 'one_third' 'constants' 'one_third' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.5555558 at 0') () 0 () () () 0 0)
-230 'orig_lat_topo' 'specfem_par' 'orig_lat_topo' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-231 'orig_lat_topo_socal' 'constants' 'orig_lat_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.20000000000000 at 2') ()
-0 () () () 0 0)
-232 'orig_long_topo' 'specfem_par' 'orig_long_topo' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-233 'orig_long_topo_socal' 'constants' 'orig_long_topo_socal' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '-0.79000000000000 at 2')
-() 0 () () () 0 0)
-234 'output_files' 'specfem_par' 'output_files' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0
-0)
-235 'output_files_path' 'constants' 'output_files_path' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 256
-'../in_out_files/OUTPUT_FILES/ ')
-() 0 () () () 0 0)
-236 'outputname' 'specfem_par' 'outputname' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0 0)
-237 'pi' 'constants' 'pi' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.3243f6a8885a30 at 1') () 0 () () () 0 0)
-238 'plot_cross_sections' 'constants' 'plot_cross_sections' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-239 'pnm_gif_image' 'constants' 'pnm_gif_image' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-240 'print_source_time_function' 'specfem_par'
-'print_source_time_function' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
-241 'prname' 'specfem_par' 'prname' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0 0)
-242 'prname_q' 'specfem_par' 'prname_q' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0 0)
-243 'rec_filename' 'specfem_par' 'rec_filename' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER
-((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '256'))) 0 0 () () 0 () () () 0
-0)
-244 'recvs_can_be_buried_ext_mesh' 'constants'
-'recvs_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-245 'request_recv_scalar_ext_mesh' 'specfem_par'
-'request_recv_scalar_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 DEFERRED () ()) 0 () () () 0 0)
-246 'request_recv_vector_ext_mesh' 'specfem_par'
-'request_recv_vector_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 DEFERRED () ()) 0 () () () 0 0)
-247 'request_send_scalar_ext_mesh' 'specfem_par'
-'request_send_scalar_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 DEFERRED () ()) 0 () () () 0 0)
-248 'request_send_vector_ext_mesh' 'specfem_par'
-'request_send_vector_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 DEFERRED () ()) 0 () () () 0 0)
-249 'rho_oceans' 'constants' 'rho_oceans' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 4 0 0 REAL ()) 0 '0.3fc0000 at 3') () 0 () () () 0 0)
-250 'rmass_ocean_load' 'specfem_par' 'rmass_ocean_load' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-251 'save_forward' 'specfem_par' 'save_forward' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-252 'save_mesh_files' 'specfem_par' 'save_mesh_files' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-253 'save_moho_mesh' 'constants' 'save_moho_mesh' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-254 'seismograms_a' 'specfem_par' 'seismograms_a' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () () () 0 0)
-255 'seismograms_binary' 'constants' 'seismograms_binary' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () ()
-() 0 0)
-256 'seismograms_d' 'specfem_par' 'seismograms_d' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () () () 0 0)
-257 'seismograms_eps' 'specfem_par' 'seismograms_eps' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-258 'seismograms_v' 'specfem_par' 'seismograms_v' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () () () 0 0)
-259 'show_details_locate_source' 'constants' 'show_details_locate_source'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-260 'sigma_kl' 'specfem_par' 'sigma_kl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-261 'simulation_type' 'specfem_par' 'simulation_type' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-262 'size_double' 'constants' 'size_double' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0)
-263 'size_integer' 'constants' 'size_integer' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-264 'size_logical' 'constants' 'size_logical' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () ()
-() 0 0)
-265 'size_real' 'constants' 'size_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-266 'sloc_der' 'specfem_par' 'sloc_der' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-267 'smallval' 'constants' 'smallval' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.a7c5ac471b4788 at -4') () 0 () () () 0 0)
-268 'smallval_tol' 'constants' 'smallval_tol' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ())
-0 0 () (CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6df37f675ef6ec at -8') () 0 () ()
-() 0 0)
-269 'source_decay_mimic_triangle' 'constants'
-'source_decay_mimic_triangle' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.1a0c49ba5e353f at 1') () 0 () () () 0 0)
-270 'sourcearray' 'specfem_par' 'sourcearray' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-271 'sourcearrays' 'specfem_par' 'sourcearrays' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (5 DEFERRED () () () () () () () () () ()) 0
-() () () 0 0)
-272 'sources_can_be_buried_ext_mesh' 'constants'
-'sources_can_be_buried_ext_mesh' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 () () () 0 0)
-273 'specfem_par' 'specfem_par' 'specfem_par' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-274 'stability_threshold' 'constants' 'stability_threshold' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0
-REAL ()) 0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.8459510 at 21') () 0 ()
-() () 0 0)
-275 'station_name' 'specfem_par' 'station_name' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-CHARACTER 1 0 0 CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '32')))
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-276 'stf_used_total' 'specfem_par' 'stf_used_total' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-277 'su_format' 'constants' 'su_format' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (
-CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-278 'suppress_utm_projection' 'specfem_par' 'suppress_utm_projection' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-279 't0' 'specfem_par' 't0' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () () 0 0)
-280 'time_start' 'specfem_par' 'time_start' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-281 'tinyval' 'constants' 'tinyval' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.44b82fa09b5a54 at -7') () 0 () () () 0 0)
-282 'tinyval_sngl' 'constants' 'tinyval_sngl' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1ef2d10 at -20') () 0 () () () 0
-0)
-283 'topo_file' 'specfem_par' 'topo_file' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (CHARACTER 1 0 0 CHARACTER ((CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () () 0 () () () 0 0)
-284 'topo_file_socal' 'constants' 'topo_file_socal' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (CHARACTER 1 0 0
-CHARACTER ((CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '100'))) 0 0 () (
-CONSTANT (CHARACTER 1 0 0 CHARACTER (())) 0 100
-'DATA/la_topography/topo_bathy_final.dat ')
-() 0 () () () 0 0)
-285 'topography' 'specfem_par' 'topography' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 ()
-() () 0 0)
-286 'tshift_cmt' 'specfem_par' 'tshift_cmt' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-287 'two' 'constants' 'two' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.20000000000000 at 1') () 0 () () () 0 0)
-288 'two_pi' 'constants' 'two_pi' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.6487ed5110b460 at 1') () 0 () () () 0 0)
-289 'use_deville_products' 'constants' 'use_deville_products' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-290 'use_force_point_source' 'constants' 'use_force_point_source' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-291 'use_model_external_values' 'constants' 'use_model_external_values'
-1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (
-LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0
-0) () 0 () () () 0 0)
-292 'use_olsen_attenuation' 'specfem_par' 'use_olsen_attenuation' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-293 'use_output_files_path' 'constants' 'use_output_files_path' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 1) () 0 ()
-() () 0 0)
-294 'use_sources_recvs_z' 'constants' 'use_sources_recvs_z' 1 ((
-PARAMETER UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (LOGICAL 4
-0 0 LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 ()
-() () 0 0)
-295 'user_t0' 'constants' 'user_t0' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (
-CONSTANT (REAL 8 0 0 REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-296 'usolidnorm' 'specfem_par' 'usolidnorm' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-297 'usolidnorm_all' 'specfem_par' 'usolidnorm_all' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-298 'usolidnorm_index' 'specfem_par' 'usolidnorm_index' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1')
-(CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1')) 0 () () () 0 0)
-299 'utm_projection_zone' 'specfem_par' 'utm_projection_zone' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-300 'utm_x_source' 'specfem_par' 'utm_x_source' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-301 'utm_y_source' 'specfem_par' 'utm_y_source' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-302 'verysmallval' 'constants' 'verysmallval' 1 ((PARAMETER
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (REAL 4 0 0 REAL ())
-0 0 () (CONSTANT (REAL 4 0 0 REAL ()) 0 '0.1357c2a at -19') () 0 () () () 0
-0)
-303 'wgllwgll_xy' 'specfem_par' 'wgllwgll_xy' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () ()
-() 0 0)
-304 'wgllwgll_xz' 'specfem_par' 'wgllwgll_xz' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () ()
-() 0 0)
-305 'wgllwgll_yz' 'specfem_par' 'wgllwgll_yz' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (2 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5') (CONSTANT (INTEGER 4 0 0
-INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '5')) 0 () ()
-() 0 0)
-306 'write_seismograms_by_master' 'constants'
-'write_seismograms_by_master' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (CONSTANT (
-LOGICAL 4 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0)
-307 'wtime' 'specfem_par' 'wtime' 1 ((PROCEDURE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN EXTERNAL) (REAL 8 0 0 REAL ()) 0 0 () () 0
-() () () 0 0)
-308 'wxgll' 'specfem_par' 'wxgll' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-309 'wygll' 'specfem_par' 'wygll' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-310 'wzgll' 'specfem_par' 'wzgll' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-311 'xi_receiver' 'specfem_par' 'xi_receiver' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 8 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-312 'xi_source' 'specfem_par' 'xi_source' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 8 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-313 'xigll' 'specfem_par' 'xigll' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-314 'xix' 'specfem_par' 'xix' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4
-DEFERRED () () () () () () () ()) 0 () () () 0 0)
-315 'xiy' 'specfem_par' 'xiy' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4
-DEFERRED () () () () () () () ()) 0 () () () 0 0)
-316 'xiz' 'specfem_par' 'xiz' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4
-DEFERRED () () () () () () () ()) 0 () () () 0 0)
-317 'xstore' 'specfem_par' 'xstore' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-318 'yigll' 'specfem_par' 'yigll' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-319 'ystore' 'specfem_par' 'ystore' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-320 'zero' 'constants' 'zero' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (REAL 8 0 0 REAL ()) 0 0 () (CONSTANT (REAL 8 0 0
-REAL ()) 0 '0.00000000000000 at 0') () 0 () () () 0 0)
-321 'zigll' 'specfem_par' 'zigll' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 8 0 0 REAL ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '5')) 0 () () () 0 0)
-322 'zstore' 'specfem_par' 'zstore' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-)
-
-('abs_boundary_ijk' 0 2 'abs_boundary_ispec' 0 3
-'abs_boundary_jacobian2dw' 0 4 'abs_boundary_normal' 0 5
-'absorb_free_surface' 0 6 'absorb_use_pml' 0 7 'absorbing_conditions' 0
-8 'adj_source_file' 0 9 'adj_sourcearray' 0 10 'adj_sourcearrays' 0 11
-'anisotropy' 0 12 'apply_heuristic_rule' 0 13 'approximate_hess_kl' 0 14
-'attenuation' 0 15 'attenuation_comp_maximum' 0 16
-'attenuation_comp_resolution' 0 17 'attenuation_f0_reference' 0 18
-'b_deltat' 0 19 'b_deltatover2' 0 20 'b_deltatsqover2' 0 21
-'b_num_abs_boundary_faces' 0 22 'b_usolidnorm' 0 23 'b_usolidnorm_all' 0
-24 'buffer_recv_scalar_ext_mesh' 0 25 'buffer_recv_vector_ext_mesh' 0 26
-'buffer_send_scalar_ext_mesh' 0 27 'buffer_send_vector_ext_mesh' 0 28
-'comp_source_time_function' 0 29 'component_force_source' 0 30 'constants'
-0 31 'cross_section_x' 0 32 'cross_section_y' 0 33 'cross_section_z' 0
-34 'custom_real' 0 35 'degrees_per_cell_topo' 0 36
-'degrees_per_cell_topo_socal' 0 37 'deltat' 0 38 'deltatover2' 0 39
-'deltatsqover2' 0 40 'dont_ignore_junk' 0 41 'dt' 0 42 'dummystring' 0
-43 'esize' 0 44 'eta_receiver' 0 45 'eta_source' 0 46 'etax' 0 47 'etay'
-0 48 'etaz' 0 49 'ext_mesh_recv_normal' 0 50
-'external_mesh_create_shakemap' 0 51 'external_mesh_movie_surface' 0 52
-'factor_force_source' 0 53 'faster_receivers_points_only' 0 54
-'filtered_rec_filename' 0 55 'fix_underflow_problem' 0 56 'four_thirds'
-0 57 'free_surface_ijk' 0 58 'free_surface_ispec' 0 59
-'free_surface_jacobian2dw' 0 60 'free_surface_normal' 0 61
-'gamma_receiver' 0 62 'gamma_source' 0 63 'gammax' 0 64 'gammay' 0 65
-'gammaz' 0 66 'gaussalpha' 0 67 'gaussbeta' 0 68 'gpu_mode' 0 69 'hdur'
-0 70 'hdur_gaussian' 0 71 'hetar' 0 72 'hetar_store' 0 73 'hgammar' 0 74
-'hgammar_store' 0 75 'hpetar' 0 76 'hpetar_store' 0 77 'hpgammar' 0 78
-'hpgammar_store' 0 79 'hprime_xx' 0 80 'hprime_xxt' 0 81 'hprime_yy' 0
-82 'hprime_zz' 0 83 'hprimewgll_xx' 0 84 'hprimewgll_xxt' 0 85
-'hprimewgll_yy' 0 86 'hprimewgll_zz' 0 87 'hpxir' 0 88 'hpxir_store' 0
-89 'hugeval' 0 90 'hxir' 0 91 'hxir_store' 0 92 'ianisotropy_model1' 0
-93 'ianisotropy_model2' 0 94 'ibelm_moho_bot' 0 95 'ibelm_moho_top' 0 96
-'ibool' 0 97 'ibool_interfaces_ext_mesh' 0 98 'idomain_acoustic' 0 99
-'idomain_elastic' 0 100 'idomain_poroelastic' 0 101
-'iglob_is_surface_external_mesh' 0 102 'ignore_junk' 0 103 'iin' 0 104
-'iin_interfaces' 0 105 'iin_noise' 0 106 'iin_su1' 0 107 'iin_su2' 0 108
-'iin_su3' 0 109 'ijk_moho_bot' 0 110 'ijk_moho_top' 0 111 'ilonglat2utm'
-0 112 'imain' 0 113 'in_data_files_path' 0 114 'iostf' 0 115 'iout' 0
-116 'iout_noise' 0 117 'iout_su' 0 118 'iovtk' 0 119 'irec_master_noise'
-0 120 'is_moho_bot' 0 121 'is_moho_top' 0 122 'islice_selected_rec' 0
-123 'islice_selected_source' 0 124 'ispec_is_inner' 0 125
-'ispec_is_surface_external_mesh' 0 126 'ispec_selected_rec' 0 127
-'ispec_selected_source' 0 128 'istandard_output' 0 129 'it' 0 130 'itag'
-0 131 'itag2' 0 132 'itopo_bathy' 0 133 'iutm2longlat' 0 134 'jacobian'
-0 135 'kappastore' 0 136 'latitude_max' 0 137 'latitude_min' 0 138
-'local_path' 0 139 'local_path_is_also_global' 0 140 'local_path_q' 0
-141 'longitude_max' 0 142 'longitude_min' 0 143 'm1' 0 144 'm2' 0 145
-'mask_noise' 0 146 'max_length_network_name' 0 147
-'max_length_station_name' 0 148 'max_nibool_interfaces_ext_mesh' 0 149
-'mesh_pointer' 0 150 'mf_in_data_files_path' 0 151
-'minimum_thickness_3d_oceans' 0 152 'model_speed_max' 0 153 'mustore' 0
-154 'mxx' 0 155 'mxx_der' 0 156 'mxy' 0 157 'mxy_der' 0 158 'mxz' 0 159
-'mxz_der' 0 160 'my_neighbours_ext_mesh' 0 161 'myrank' 0 162 'myy' 0
-163 'myy_der' 0 164 'myz' 0 165 'myz_der' 0 166 'mzz' 0 167 'mzz_der' 0
-168 'n_sls' 0 169 'nadj_rec_local' 0 170 'ndim' 0 171 'ndim2d' 0 172
-'network_name' 0 173 'ngather_sources' 0 174 'ngllcube' 0 175
-'ngllcube_ndim' 0 176 'ngllsquare' 0 177 'ngllsquare_ndim' 0 178 'ngllx'
-0 179 'nglly' 0 180 'ngllz' 0 181 'nglob_ab' 0 182 'nglob_adjoint' 0 183
-'ngnod' 0 184 'ngnod2d' 0 185 'ngnod2d_avs_dx' 0 186
-'nibool_interfaces_ext_mesh' 0 187 'nlines_per_cmtsolution_source' 0 188
-'noise_sourcearray' 0 189 'noise_surface_movie' 0 190 'noise_tomography'
-0 191 'normal_moho_bot' 0 192 'normal_moho_top' 0 193 'normal_x_noise' 0
-194 'normal_y_noise' 0 195 'normal_z_noise' 0 196 'nproc' 0 197
-'nproc_eta' 0 198 'nproc_xi' 0 199 'nrec' 0 200 'nrec_local' 0 201
-'nrec_simulation' 0 202 'nrec_tot_found' 0 203 'nsources' 0 204
-'nspec2d_moho' 0 205 'nspec_ab' 0 206 'nspec_adjoint' 0 207
-'nspec_attenuation_ab' 0 208 'nspec_boun' 0 209 'nstep' 0 210
-'nstep_q_save' 0 211 'ntstep_between_output_info' 0 212
-'ntstep_between_output_seismos' 0 213 'ntstep_between_read_adjsrc' 0 214
-'nu' 0 215 'nu_source' 0 216 'num_abs_boundary_faces' 0 217
-'num_free_surface_faces' 0 218 'num_interfaces_ext_mesh' 0 219 'num_iter'
-0 220 'number_receiver_global' 0 221 'nx_topo' 0 222 'nx_topo_socal' 0
-223 'ny_topo' 0 224 'ny_topo_socal' 0 225 'oceans' 0 226
-'olsen_attenuation_ratio' 0 227 'one' 0 228 'one_third' 0 229
-'orig_lat_topo' 0 230 'orig_lat_topo_socal' 0 231 'orig_long_topo' 0 232
-'orig_long_topo_socal' 0 233 'output_files' 0 234 'output_files_path' 0
-235 'outputname' 0 236 'pi' 0 237 'plot_cross_sections' 0 238
-'pnm_gif_image' 0 239 'print_source_time_function' 0 240 'prname' 0 241
-'prname_q' 0 242 'rec_filename' 0 243 'recvs_can_be_buried_ext_mesh' 0
-244 'request_recv_scalar_ext_mesh' 0 245 'request_recv_vector_ext_mesh'
-0 246 'request_send_scalar_ext_mesh' 0 247 'request_send_vector_ext_mesh'
-0 248 'rho_oceans' 0 249 'rmass_ocean_load' 0 250 'save_forward' 0 251
-'save_mesh_files' 0 252 'save_moho_mesh' 0 253 'seismograms_a' 0 254
-'seismograms_binary' 0 255 'seismograms_d' 0 256 'seismograms_eps' 0 257
-'seismograms_v' 0 258 'show_details_locate_source' 0 259 'sigma_kl' 0
-260 'simulation_type' 0 261 'size_double' 0 262 'size_integer' 0 263
-'size_logical' 0 264 'size_real' 0 265 'sloc_der' 0 266 'smallval' 0 267
-'smallval_tol' 0 268 'source_decay_mimic_triangle' 0 269 'sourcearray' 0
-270 'sourcearrays' 0 271 'sources_can_be_buried_ext_mesh' 0 272
-'specfem_par' 0 273 'stability_threshold' 0 274 'station_name' 0 275
-'stf_used_total' 0 276 'su_format' 0 277 'suppress_utm_projection' 0 278
-'t0' 0 279 'time_start' 0 280 'tinyval' 0 281 'tinyval_sngl' 0 282
-'topo_file' 0 283 'topo_file_socal' 0 284 'topography' 0 285 'tshift_cmt'
-0 286 'two' 0 287 'two_pi' 0 288 'use_deville_products' 0 289
-'use_force_point_source' 0 290 'use_model_external_values' 0 291
-'use_olsen_attenuation' 0 292 'use_output_files_path' 0 293
-'use_sources_recvs_z' 0 294 'user_t0' 0 295 'usolidnorm' 0 296
-'usolidnorm_all' 0 297 'usolidnorm_index' 0 298 'utm_projection_zone' 0
-299 'utm_x_source' 0 300 'utm_y_source' 0 301 'verysmallval' 0 302
-'wgllwgll_xy' 0 303 'wgllwgll_xz' 0 304 'wgllwgll_yz' 0 305
-'write_seismograms_by_master' 0 306 'wtime' 0 307 'wxgll' 0 308 'wygll'
-0 309 'wzgll' 0 310 'xi_receiver' 0 311 'xi_source' 0 312 'xigll' 0 313
-'xix' 0 314 'xiy' 0 315 'xiz' 0 316 'xstore' 0 317 'yigll' 0 318 'ystore'
-0 319 'zero' 0 320 'zigll' 0 321 'zstore' 0 322)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_acoustic.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_acoustic.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_acoustic.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,150 +0,0 @@
-GFORTRAN module version '0' created from specfem3D_par.f90 on Wed Sep 28 14:35:24 2011
-MD5:94ab3f24dacaa62cd775b436e3ca4a03 -- If you edit this, you'll get what you deserve.
-
-(() () () ()
-() () () () () () () () () () () () () () () () () () () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'acoustic_simulation' 'specfem_par_acoustic' 'acoustic_simulation' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-3 'alpha_ac_kl' 'specfem_par_acoustic' 'alpha_ac_kl' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-4 'b_absorb_potential' 'specfem_par_acoustic' 'b_absorb_potential' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2 DEFERRED () () () ()) 0 () ()
-() 0 0)
-5 'b_buffer_recv_scalar_ext_mesh' 'specfem_par_acoustic'
-'b_buffer_recv_scalar_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-DEFERRED () () () ()) 0 () () () 0 0)
-6 'b_buffer_send_scalar_ext_mesh' 'specfem_par_acoustic'
-'b_buffer_send_scalar_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-DEFERRED () () () ()) 0 () () () 0 0)
-7 'b_potential_acoustic' 'specfem_par_acoustic' 'b_potential_acoustic' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-8 'b_potential_dot_acoustic' 'specfem_par_acoustic'
-'b_potential_dot_acoustic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-9 'b_potential_dot_dot_acoustic' 'specfem_par_acoustic'
-'b_potential_dot_dot_acoustic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-10 'b_reclen_potential' 'specfem_par_acoustic' 'b_reclen_potential' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-11 'b_request_recv_scalar_ext_mesh' 'specfem_par_acoustic'
-'b_request_recv_scalar_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-12 'b_request_send_scalar_ext_mesh' 'specfem_par_acoustic'
-'b_request_send_scalar_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-13 'constants' 'constants' 'constants' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-14 'coupling_ac_el_ijk' 'specfem_par_acoustic' 'coupling_ac_el_ijk' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (3 DEFERRED () () () () ()
-()) 0 () () () 0 0)
-15 'coupling_ac_el_ispec' 'specfem_par_acoustic' 'coupling_ac_el_ispec'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-16 'coupling_ac_el_jacobian2dw' 'specfem_par_acoustic'
-'coupling_ac_el_jacobian2dw' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (2
-DEFERRED () () () ()) 0 () () () 0 0)
-17 'coupling_ac_el_normal' 'specfem_par_acoustic' 'coupling_ac_el_normal'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0
-() () () 0 0)
-18 'custom_real' 'constants' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-19 'hess_ac_kl' 'specfem_par_acoustic' 'hess_ac_kl' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-20 'ispec_is_acoustic' 'specfem_par_acoustic' 'ispec_is_acoustic' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-21 'kappa_ac_kl' 'specfem_par_acoustic' 'kappa_ac_kl' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-22 'nspec_inner_acoustic' 'specfem_par_acoustic' 'nspec_inner_acoustic'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-23 'nspec_outer_acoustic' 'specfem_par_acoustic' 'nspec_outer_acoustic'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-24 'num_coupling_ac_el_faces' 'specfem_par_acoustic'
-'num_coupling_ac_el_faces' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-25 'num_phase_ispec_acoustic' 'specfem_par_acoustic'
-'num_phase_ispec_acoustic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-26 'phase_ispec_inner_acoustic' 'specfem_par_acoustic'
-'phase_ispec_inner_acoustic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(2 DEFERRED () () () ()) 0 () () () 0 0)
-27 'potential_acoustic' 'specfem_par_acoustic' 'potential_acoustic' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-28 'potential_dot_acoustic' 'specfem_par_acoustic'
-'potential_dot_acoustic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-29 'potential_dot_dot_acoustic' 'specfem_par_acoustic'
-'potential_dot_dot_acoustic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-30 'rho_ac_kl' 'specfem_par_acoustic' 'rho_ac_kl' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-31 'rhop_ac_kl' 'specfem_par_acoustic' 'rhop_ac_kl' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-32 'rhostore' 'specfem_par_acoustic' 'rhostore' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-33 'rmass_acoustic' 'specfem_par_acoustic' 'rmass_acoustic' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-34 'specfem_par_acoustic' 'specfem_par_acoustic' 'specfem_par_acoustic'
-1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0
-UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-)
-
-('acoustic_simulation' 0 2 'alpha_ac_kl' 0 3 'b_absorb_potential' 0 4
-'b_buffer_recv_scalar_ext_mesh' 0 5 'b_buffer_send_scalar_ext_mesh' 0 6
-'b_potential_acoustic' 0 7 'b_potential_dot_acoustic' 0 8
-'b_potential_dot_dot_acoustic' 0 9 'b_reclen_potential' 0 10
-'b_request_recv_scalar_ext_mesh' 0 11 'b_request_send_scalar_ext_mesh' 0
-12 'constants' 0 13 'coupling_ac_el_ijk' 0 14 'coupling_ac_el_ispec' 0
-15 'coupling_ac_el_jacobian2dw' 0 16 'coupling_ac_el_normal' 0 17
-'custom_real' 0 18 'hess_ac_kl' 0 19 'ispec_is_acoustic' 0 20
-'kappa_ac_kl' 0 21 'nspec_inner_acoustic' 0 22 'nspec_outer_acoustic' 0
-23 'num_coupling_ac_el_faces' 0 24 'num_phase_ispec_acoustic' 0 25
-'phase_ispec_inner_acoustic' 0 26 'potential_acoustic' 0 27
-'potential_dot_acoustic' 0 28 'potential_dot_dot_acoustic' 0 29
-'rho_ac_kl' 0 30 'rhop_ac_kl' 0 31 'rhostore' 0 32 'rmass_acoustic' 0 33
-'specfem_par_acoustic' 0 34)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_elastic.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_elastic.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_elastic.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,382 +0,0 @@
-GFORTRAN module version '0' created from specfem3D_par.f90 on Wed Sep 28 14:35:24 2011
-MD5:d19991f5d0011a730919b227d932d2ba -- If you edit this, you'll get what you deserve.
-
-(() () () () () () ()
-() () () () () () () () () () () () () () () () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'accel' 'specfem_par_elastic' 'accel' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-3 'alpha_kl' 'specfem_par_elastic' 'alpha_kl' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-4 'alphaval' 'specfem_par_elastic' 'alphaval' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3')) 0 () () () 0 0)
-5 'b_absorb_field' 'specfem_par_elastic' 'b_absorb_field' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (3 DEFERRED () () () () () ()) 0 () () () 0 0)
-6 'b_accel' 'specfem_par_elastic' 'b_accel' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-7 'b_alphaval' 'specfem_par_elastic' 'b_alphaval' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3')) 0 () () () 0 0)
-8 'b_betaval' 'specfem_par_elastic' 'b_betaval' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3')) 0 () () () 0 0)
-9 'b_buffer_recv_vector_ext_mesh' 'specfem_par_elastic'
-'b_buffer_recv_vector_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3
-DEFERRED () () () () () ()) 0 () () () 0 0)
-10 'b_buffer_send_vector_ext_mesh' 'specfem_par_elastic'
-'b_buffer_send_vector_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (3
-DEFERRED () () () () () ()) 0 () () () 0 0)
-11 'b_displ' 'specfem_par_elastic' 'b_displ' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-12 'b_dsdx_bot' 'specfem_par_elastic' 'b_dsdx_bot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (6 DEFERRED () () () () () () () () () () ()
-()) 0 () () () 0 0)
-13 'b_dsdx_top' 'specfem_par_elastic' 'b_dsdx_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (6 DEFERRED () () () () () () () () () () ()
-()) 0 () () () 0 0)
-14 'b_epsilon_trace_over_3' 'specfem_par_elastic' 'b_epsilon_trace_over_3'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-15 'b_epsilondev_xx' 'specfem_par_elastic' 'b_epsilondev_xx' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-16 'b_epsilondev_xy' 'specfem_par_elastic' 'b_epsilondev_xy' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-17 'b_epsilondev_xz' 'specfem_par_elastic' 'b_epsilondev_xz' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-18 'b_epsilondev_yy' 'specfem_par_elastic' 'b_epsilondev_yy' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-19 'b_epsilondev_yz' 'specfem_par_elastic' 'b_epsilondev_yz' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-20 'b_gammaval' 'specfem_par_elastic' 'b_gammaval' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3')) 0 () () () 0 0)
-21 'b_r_xx' 'specfem_par_elastic' 'b_r_xx' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-22 'b_r_xy' 'specfem_par_elastic' 'b_r_xy' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-23 'b_r_xz' 'specfem_par_elastic' 'b_r_xz' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-24 'b_r_yy' 'specfem_par_elastic' 'b_r_yy' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-25 'b_r_yz' 'specfem_par_elastic' 'b_r_yz' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-26 'b_reclen_field' 'specfem_par_elastic' 'b_reclen_field' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-27 'b_request_recv_vector_ext_mesh' 'specfem_par_elastic'
-'b_request_recv_vector_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-28 'b_request_send_vector_ext_mesh' 'specfem_par_elastic'
-'b_request_send_vector_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-29 'b_veloc' 'specfem_par_elastic' 'b_veloc' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-30 'beta_kl' 'specfem_par_elastic' 'beta_kl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-31 'betaval' 'specfem_par_elastic' 'betaval' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER
-4 0 0 INTEGER ()) 0 '3')) 0 () () () 0 0)
-32 'c11store' 'specfem_par_elastic' 'c11store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-33 'c12store' 'specfem_par_elastic' 'c12store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-34 'c13store' 'specfem_par_elastic' 'c13store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-35 'c14store' 'specfem_par_elastic' 'c14store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-36 'c15store' 'specfem_par_elastic' 'c15store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-37 'c16store' 'specfem_par_elastic' 'c16store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-38 'c22store' 'specfem_par_elastic' 'c22store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-39 'c23store' 'specfem_par_elastic' 'c23store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-40 'c24store' 'specfem_par_elastic' 'c24store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-41 'c25store' 'specfem_par_elastic' 'c25store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-42 'c26store' 'specfem_par_elastic' 'c26store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-43 'c33store' 'specfem_par_elastic' 'c33store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-44 'c34store' 'specfem_par_elastic' 'c34store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-45 'c35store' 'specfem_par_elastic' 'c35store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-46 'c36store' 'specfem_par_elastic' 'c36store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-47 'c44store' 'specfem_par_elastic' 'c44store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-48 'c45store' 'specfem_par_elastic' 'c45store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-49 'c46store' 'specfem_par_elastic' 'c46store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-50 'c55store' 'specfem_par_elastic' 'c55store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-51 'c56store' 'specfem_par_elastic' 'c56store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-52 'c66store' 'specfem_par_elastic' 'c66store' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-53 'compute_and_store_strain' 'specfem_par_elastic'
-'compute_and_store_strain' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
-54 'constants' 'constants' 'constants' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-55 'custom_real' 'constants' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-56 'displ' 'specfem_par_elastic' 'displ' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-57 'dsdx_bot' 'specfem_par_elastic' 'dsdx_bot' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (6 DEFERRED () () () () () () () () () () ()
-()) 0 () () () 0 0)
-58 'dsdx_top' 'specfem_par_elastic' 'dsdx_top' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (6 DEFERRED () () () () () () () () () () ()
-()) 0 () () () 0 0)
-59 'elastic_simulation' 'specfem_par_elastic' 'elastic_simulation' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-60 'epsilon_trace_over_3' 'specfem_par_elastic' 'epsilon_trace_over_3' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-61 'epsilondev_xx' 'specfem_par_elastic' 'epsilondev_xx' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-62 'epsilondev_xy' 'specfem_par_elastic' 'epsilondev_xy' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-63 'epsilondev_xz' 'specfem_par_elastic' 'epsilondev_xz' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-64 'epsilondev_yy' 'specfem_par_elastic' 'epsilondev_yy' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-65 'epsilondev_yz' 'specfem_par_elastic' 'epsilondev_yz' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-66 'factor_common' 'specfem_par_elastic' 'factor_common' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (5 DEFERRED () () () () () () () () () ()) 0
-() () () 0 0)
-67 'gammaval' 'specfem_par_elastic' 'gammaval' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3')) 0 () () () 0 0)
-68 'hess_kl' 'specfem_par_elastic' 'hess_kl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-69 'ispec2d_moho_bot' 'specfem_par_elastic' 'ispec2d_moho_bot' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-70 'ispec2d_moho_top' 'specfem_par_elastic' 'ispec2d_moho_top' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-71 'ispec_is_elastic' 'specfem_par_elastic' 'ispec_is_elastic' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-72 'kappa_kl' 'specfem_par_elastic' 'kappa_kl' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-73 'min_resolved_period' 'specfem_par_elastic' 'min_resolved_period' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL
-()) 0 0 () () 0 () () () 0 0)
-74 'moho_kl' 'specfem_par_elastic' 'moho_kl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-75 'mu_kl' 'specfem_par_elastic' 'mu_kl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-76 'n_sls' 'constants' 'n_sls' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0)
-77 'nspec_aniso' 'specfem_par_elastic' 'nspec_aniso' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ())
-0 0 () () 0 () () () 0 0)
-78 'nspec_inner_elastic' 'specfem_par_elastic' 'nspec_inner_elastic' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-79 'nspec_outer_elastic' 'specfem_par_elastic' 'nspec_outer_elastic' 1 (
-(VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-80 'nspec_strain_only' 'specfem_par_elastic' 'nspec_strain_only' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-81 'num_phase_ispec_elastic' 'specfem_par_elastic'
-'num_phase_ispec_elastic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-82 'one_minus_sum_beta' 'specfem_par_elastic' 'one_minus_sum_beta' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () ()
-()) 0 () () () 0 0)
-83 'phase_ispec_inner_elastic' 'specfem_par_elastic'
-'phase_ispec_inner_elastic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(2 DEFERRED () () () ()) 0 () () () 0 0)
-84 'r_xx' 'specfem_par_elastic' 'r_xx' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-85 'r_xy' 'specfem_par_elastic' 'r_xy' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-86 'r_xz' 'specfem_par_elastic' 'r_xz' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-87 'r_yy' 'specfem_par_elastic' 'r_yy' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-88 'r_yz' 'specfem_par_elastic' 'r_yz' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (5 DEFERRED () () () () () () () () () ()) 0 () () () 0 0)
-89 'rho_kl' 'specfem_par_elastic' 'rho_kl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-90 'rho_vp' 'specfem_par_elastic' 'rho_vp' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-91 'rho_vs' 'specfem_par_elastic' 'rho_vs' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-92 'rhop_kl' 'specfem_par_elastic' 'rhop_kl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-93 'rmass' 'specfem_par_elastic' 'rmass' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-94 'specfem_par_elastic' 'specfem_par_elastic' 'specfem_par_elastic' 1 (
-(MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0
-UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-95 'tau_sigma' 'specfem_par_elastic' 'tau_sigma' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (REAL 4 0 0 REAL
-()) 0 0 () (1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '3')) 0 () () () 0 0)
-96 'veloc' 'specfem_par_elastic' 'veloc' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (2 DEFERRED () () () ()) 0 () () () 0 0)
-)
-
-('accel' 0 2 'alpha_kl' 0 3 'alphaval' 0 4 'b_absorb_field' 0 5 'b_accel'
-0 6 'b_alphaval' 0 7 'b_betaval' 0 8 'b_buffer_recv_vector_ext_mesh' 0 9
-'b_buffer_send_vector_ext_mesh' 0 10 'b_displ' 0 11 'b_dsdx_bot' 0 12
-'b_dsdx_top' 0 13 'b_epsilon_trace_over_3' 0 14 'b_epsilondev_xx' 0 15
-'b_epsilondev_xy' 0 16 'b_epsilondev_xz' 0 17 'b_epsilondev_yy' 0 18
-'b_epsilondev_yz' 0 19 'b_gammaval' 0 20 'b_r_xx' 0 21 'b_r_xy' 0 22
-'b_r_xz' 0 23 'b_r_yy' 0 24 'b_r_yz' 0 25 'b_reclen_field' 0 26
-'b_request_recv_vector_ext_mesh' 0 27 'b_request_send_vector_ext_mesh' 0
-28 'b_veloc' 0 29 'beta_kl' 0 30 'betaval' 0 31 'c11store' 0 32 'c12store'
-0 33 'c13store' 0 34 'c14store' 0 35 'c15store' 0 36 'c16store' 0 37
-'c22store' 0 38 'c23store' 0 39 'c24store' 0 40 'c25store' 0 41 'c26store'
-0 42 'c33store' 0 43 'c34store' 0 44 'c35store' 0 45 'c36store' 0 46
-'c44store' 0 47 'c45store' 0 48 'c46store' 0 49 'c55store' 0 50 'c56store'
-0 51 'c66store' 0 52 'compute_and_store_strain' 0 53 'constants' 0 54
-'custom_real' 0 55 'displ' 0 56 'dsdx_bot' 0 57 'dsdx_top' 0 58
-'elastic_simulation' 0 59 'epsilon_trace_over_3' 0 60 'epsilondev_xx' 0
-61 'epsilondev_xy' 0 62 'epsilondev_xz' 0 63 'epsilondev_yy' 0 64
-'epsilondev_yz' 0 65 'factor_common' 0 66 'gammaval' 0 67 'hess_kl' 0 68
-'ispec2d_moho_bot' 0 69 'ispec2d_moho_top' 0 70 'ispec_is_elastic' 0 71
-'kappa_kl' 0 72 'min_resolved_period' 0 73 'moho_kl' 0 74 'mu_kl' 0 75
-'n_sls' 0 76 'nspec_aniso' 0 77 'nspec_inner_elastic' 0 78
-'nspec_outer_elastic' 0 79 'nspec_strain_only' 0 80
-'num_phase_ispec_elastic' 0 81 'one_minus_sum_beta' 0 82
-'phase_ispec_inner_elastic' 0 83 'r_xx' 0 84 'r_xy' 0 85 'r_xz' 0 86
-'r_yy' 0 87 'r_yz' 0 88 'rho_kl' 0 89 'rho_vp' 0 90 'rho_vs' 0 91
-'rhop_kl' 0 92 'rmass' 0 93 'specfem_par_elastic' 0 94 'tau_sigma' 0 95
-'veloc' 0 96)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_movie.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_movie.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_movie.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,254 +0,0 @@
-GFORTRAN module version '0' created from specfem3D_par.f90 on Wed Sep 28 14:35:24 2011
-MD5:aeecb05e91b8c8013c5345d6e2ff2fc1 -- If you edit this, you'll get what you deserve.
-
-(() () () () () () ()
-() () () () () () () () () () () () () () () () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'constants' 'constants' 'constants' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-3 'create_shakemap' 'specfem_par_movie' 'create_shakemap' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-4 'curl_x' 'specfem_par_movie' 'curl_x' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-5 'curl_y' 'specfem_par_movie' 'curl_y' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-6 'curl_z' 'specfem_par_movie' 'curl_z' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-7 'custom_real' 'constants' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-8 'div' 'specfem_par_movie' 'div' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (4 DEFERRED () () () () () () () ()) 0 () () () 0 0)
-9 'etaxl' 'specfem_par_movie' 'etaxl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-10 'etayl' 'specfem_par_movie' 'etayl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-11 'etazl' 'specfem_par_movie' 'etazl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-12 'faces_surface_ext_mesh' 'specfem_par_movie' 'faces_surface_ext_mesh'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 () (2 DEFERRED () () () ()) 0
-() () () 0 0)
-13 'faces_surface_ext_mesh_ispec' 'specfem_par_movie'
-'faces_surface_ext_mesh_ispec' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 DEFERRED () ()) 0 () () () 0 0)
-14 'faces_surface_offset_ext_mesh' 'specfem_par_movie'
-'faces_surface_offset_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 DEFERRED () ()) 0 () () () 0 0)
-15 'gammaxl' 'specfem_par_movie' 'gammaxl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-16 'gammayl' 'specfem_par_movie' 'gammayl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-17 'gammazl' 'specfem_par_movie' 'gammazl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-18 'hdur_movie' 'specfem_par_movie' 'hdur_movie' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 8 0 0 REAL ()) 0 0 ()
-() 0 () () () 0 0)
-19 'hp1' 'specfem_par_movie' 'hp1' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-20 'hp2' 'specfem_par_movie' 'hp2' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-21 'hp3' 'specfem_par_movie' 'hp3' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-22 'iorderi' 'specfem_par_movie' 'iorderi' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '4')) 0 () () () 0 0)
-23 'iorderj' 'specfem_par_movie' 'iorderj' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN DIMENSION) (INTEGER 4 0 0 INTEGER ()) 0 0 ()
-(1 EXPLICIT (CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '1') (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '4')) 0 () () () 0 0)
-24 'movie_simulation' 'specfem_par_movie' 'movie_simulation' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-25 'movie_surface' 'specfem_par_movie' 'movie_surface' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-26 'movie_volume' 'specfem_par_movie' 'movie_volume' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ())
-0 0 () () 0 () () () 0 0)
-27 'nfaces_perproc_surface_ext_mesh' 'specfem_par_movie'
-'nfaces_perproc_surface_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (INTEGER 4 0 0
-INTEGER ()) 0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-28 'nfaces_surface_ext_mesh' 'specfem_par_movie' 'nfaces_surface_ext_mesh'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-29 'nfaces_surface_ext_mesh_points' 'specfem_par_movie'
-'nfaces_surface_ext_mesh_points' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 ()
-() () 0 0)
-30 'nfaces_surface_glob_em_points' 'specfem_par_movie'
-'nfaces_surface_glob_em_points' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-31 'nfaces_surface_glob_ext_mesh' 'specfem_par_movie'
-'nfaces_surface_glob_ext_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (INTEGER 4 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0)
-32 'ngllx' 'constants' 'ngllx' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-33 'nglly' 'constants' 'nglly' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-34 'ngllz' 'constants' 'ngllz' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (CONSTANT (
-INTEGER 4 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0)
-35 'ngnod2d' 'constants' 'ngnod2d' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-36 'ntstep_between_frames' 'specfem_par_movie' 'ntstep_between_frames' 1
-((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (INTEGER 4 0 0
-INTEGER ()) 0 0 () () 0 () () () 0 0)
-37 'save_displacement' 'specfem_par_movie' 'save_displacement' 1 ((
-VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-38 'specfem_par_movie' 'specfem_par_movie' 'specfem_par_movie' 1 ((
-MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0
-UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-39 'store_val_ux_all_external_mesh' 'specfem_par_movie'
-'store_val_ux_all_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-40 'store_val_ux_external_mesh' 'specfem_par_movie'
-'store_val_ux_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-41 'store_val_uy_all_external_mesh' 'specfem_par_movie'
-'store_val_uy_all_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-42 'store_val_uy_external_mesh' 'specfem_par_movie'
-'store_val_uy_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-43 'store_val_uz_all_external_mesh' 'specfem_par_movie'
-'store_val_uz_all_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ())
-0 0 () (1 DEFERRED () ()) 0 () () () 0 0)
-44 'store_val_uz_external_mesh' 'specfem_par_movie'
-'store_val_uz_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-45 'store_val_x_all_external_mesh' 'specfem_par_movie'
-'store_val_x_all_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-46 'store_val_x_external_mesh' 'specfem_par_movie'
-'store_val_x_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-47 'store_val_y_all_external_mesh' 'specfem_par_movie'
-'store_val_y_all_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-48 'store_val_y_external_mesh' 'specfem_par_movie'
-'store_val_y_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-49 'store_val_z_all_external_mesh' 'specfem_par_movie'
-'store_val_z_all_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-50 'store_val_z_external_mesh' 'specfem_par_movie'
-'store_val_z_external_mesh' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-51 'tempx1l' 'specfem_par_movie' 'tempx1l' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-52 'tempx2l' 'specfem_par_movie' 'tempx2l' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-53 'tempx3l' 'specfem_par_movie' 'tempx3l' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-54 'tempy1l' 'specfem_par_movie' 'tempy1l' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-55 'tempy2l' 'specfem_par_movie' 'tempy2l' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-56 'tempy3l' 'specfem_par_movie' 'tempy3l' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-57 'tempz1l' 'specfem_par_movie' 'tempz1l' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-58 'tempz2l' 'specfem_par_movie' 'tempz2l' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-59 'tempz3l' 'specfem_par_movie' 'tempz3l' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-60 'use_highres_for_movies' 'specfem_par_movie' 'use_highres_for_movies'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN) (LOGICAL 4 0 0
-LOGICAL ()) 0 0 () () 0 () () () 0 0)
-61 'velocity_x' 'specfem_par_movie' 'velocity_x' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-62 'velocity_y' 'specfem_par_movie' 'velocity_y' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-63 'velocity_z' 'specfem_par_movie' 'velocity_z' 1 ((VARIABLE
-UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (
-REAL 4 0 0 REAL ()) 0 0 () (4 DEFERRED () () () () () () () ()) 0 () ()
-() 0 0)
-64 'xixl' 'specfem_par_movie' 'xixl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-65 'xiyl' 'specfem_par_movie' 'xiyl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-66 'xizl' 'specfem_par_movie' 'xizl' 1 ((VARIABLE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (REAL 4 0 0 REAL ()) 0 0 () () 0 () () ()
-0 0)
-)
-
-('constants' 0 2 'create_shakemap' 0 3 'curl_x' 0 4 'curl_y' 0 5 'curl_z'
-0 6 'custom_real' 0 7 'div' 0 8 'etaxl' 0 9 'etayl' 0 10 'etazl' 0 11
-'faces_surface_ext_mesh' 0 12 'faces_surface_ext_mesh_ispec' 0 13
-'faces_surface_offset_ext_mesh' 0 14 'gammaxl' 0 15 'gammayl' 0 16
-'gammazl' 0 17 'hdur_movie' 0 18 'hp1' 0 19 'hp2' 0 20 'hp3' 0 21
-'iorderi' 0 22 'iorderj' 0 23 'movie_simulation' 0 24 'movie_surface' 0
-25 'movie_volume' 0 26 'nfaces_perproc_surface_ext_mesh' 0 27
-'nfaces_surface_ext_mesh' 0 28 'nfaces_surface_ext_mesh_points' 0 29
-'nfaces_surface_glob_em_points' 0 30 'nfaces_surface_glob_ext_mesh' 0 31
-'ngllx' 0 32 'nglly' 0 33 'ngllz' 0 34 'ngnod2d' 0 35
-'ntstep_between_frames' 0 36 'save_displacement' 0 37 'specfem_par_movie'
-0 38 'store_val_ux_all_external_mesh' 0 39 'store_val_ux_external_mesh'
-0 40 'store_val_uy_all_external_mesh' 0 41 'store_val_uy_external_mesh'
-0 42 'store_val_uz_all_external_mesh' 0 43 'store_val_uz_external_mesh'
-0 44 'store_val_x_all_external_mesh' 0 45 'store_val_x_external_mesh' 0
-46 'store_val_y_all_external_mesh' 0 47 'store_val_y_external_mesh' 0 48
-'store_val_z_all_external_mesh' 0 49 'store_val_z_external_mesh' 0 50
-'tempx1l' 0 51 'tempx2l' 0 52 'tempx3l' 0 53 'tempy1l' 0 54 'tempy2l' 0
-55 'tempy3l' 0 56 'tempz1l' 0 57 'tempz2l' 0 58 'tempz3l' 0 59
-'use_highres_for_movies' 0 60 'velocity_x' 0 61 'velocity_y' 0 62
-'velocity_z' 0 63 'xixl' 0 64 'xiyl' 0 65 'xizl' 0 66)
Deleted: seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_poroelastic.mod
===================================================================
--- seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_poroelastic.mod 2011-10-01 00:54:14 UTC (rev 19000)
+++ seismo/3D/SPECFEM3D/branches/SPECFEM3D_SUNFLOWER/src/specfem3D/specfem_par_poroelastic.mod 2011-10-04 00:04:33 UTC (rev 19001)
@@ -1,43 +0,0 @@
-GFORTRAN module version '0' created from specfem3D_par.f90 on Wed Sep 28 14:35:24 2011
-MD5:9144d2282d0d6649da30f314ab6afbf4 -- If you edit this, you'll get what you deserve.
-
-(() () () ()
-() () () () () () () () () () () () () () () () () () () () () () ())
-
-()
-
-()
-
-()
-
-()
-
-(2 'constants' 'constants' 'constants' 1 ((MODULE UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 ()
-() () 0 0)
-3 'custom_real' 'constants' 'custom_real' 1 ((PARAMETER UNKNOWN-INTENT
-UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE) (INTEGER 4 0 0 INTEGER ()) 0 0 () (
-CONSTANT (INTEGER 4 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0)
-4 'ispec_is_poroelastic' 'specfem_par_poroelastic' 'ispec_is_poroelastic'
-1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN UNKNOWN ALLOCATABLE
-DIMENSION) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () (1 DEFERRED () ()) 0 () ()
-() 0 0)
-5 'poroelastic_simulation' 'specfem_par_poroelastic'
-'poroelastic_simulation' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN) (LOGICAL 4 0 0 LOGICAL ()) 0 0 () () 0 () () () 0 0)
-6 'rmass_fluid_poroelastic' 'specfem_par_poroelastic'
-'rmass_fluid_poroelastic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-7 'rmass_solid_poroelastic' 'specfem_par_poroelastic'
-'rmass_solid_poroelastic' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC
-UNKNOWN UNKNOWN ALLOCATABLE DIMENSION) (REAL 4 0 0 REAL ()) 0 0 () (1
-DEFERRED () ()) 0 () () () 0 0)
-8 'specfem_par_poroelastic' 'specfem_par_poroelastic'
-'specfem_par_poroelastic' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN
-UNKNOWN) (UNKNOWN 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 0)
-)
-
-('constants' 0 2 'custom_real' 0 3 'ispec_is_poroelastic' 0 4
-'poroelastic_simulation' 0 5 'rmass_fluid_poroelastic' 0 6
-'rmass_solid_poroelastic' 0 7 'specfem_par_poroelastic' 0 8)
More information about the CIG-COMMITS
mailing list