libppm-1.2/000755 000765 000024 00000000000 11445666650 012755 5ustar00omarstaff000000 000000 libppm-1.2/aclocal.m4000644 000765 000024 00000001315 11445666055 014614 0ustar00omarstaff000000 000000 # generated automatically by aclocal 1.11.1 -*- Autoconf -*- # Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, # 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. # This file is free software; the Free Software Foundation # gives unlimited permission to copy and/or distribute it, # with or without modifications, as long as this notice is preserved. # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY, to the extent permitted by law; without # even the implied warranty of MERCHANTABILITY or FITNESS FOR A # PARTICULAR PURPOSE. m4_include([m4/ax_compiler_vendor.m4]) m4_include([m4/ax_f90_module_flag.m4]) m4_include([m4/ppm_check_mpi.m4]) libppm-1.2/autom4te.cache/000755 000765 000024 00000000000 11445666056 015561 5ustar00omarstaff000000 000000 libppm-1.2/configure000755 000765 000024 00000626306 11445666056 014701 0ustar00omarstaff000000 000000 #! /bin/sh # Guess values for system-dependent variables and create Makefiles. # Generated by GNU Autoconf 2.67 for PPM 1.2.0. # # # Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, # 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software # Foundation, Inc. # # # This configure script is free software; the Free Software Foundation # gives unlimited permission to copy, distribute and modify it. ## -------------------- ## ## 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 if test "x$CONFIG_SHELL" = x; then as_bourne_compatible="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_required="as_fn_return () { (exit \$1); } as_fn_success () { as_fn_return 0; } as_fn_failure () { as_fn_return 1; } as_fn_ret_success () { return 0; } as_fn_ret_failure () { return 1; } exitcode=0 as_fn_success || { exitcode=1; echo as_fn_success failed.; } as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; } as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; } as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; } if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then : else exitcode=1; echo positional parameters were not saved. fi test x\$exitcode = x0 || exit 1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" && test \"x\`expr \$as_lineno_1'\$as_run' + 1\`\" = \"x\$as_lineno_2'\$as_run'\"' || exit 1 test \$(( 1 + 1 )) = 2 || exit 1" if (eval "$as_required") 2>/dev/null; then : as_have_required=yes else as_have_required=no fi if test x$as_have_required = xyes && (eval "$as_suggested") 2>/dev/null; then : else as_save_IFS=$IFS; IFS=$PATH_SEPARATOR as_found=false for as_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH do IFS=$as_save_IFS test -z "$as_dir" && as_dir=. as_found=: case $as_dir in #( /*) for as_base in sh bash ksh sh5; do # Try only shells that exist, to save several forks. as_shell=$as_dir/$as_base if { test -f "$as_shell" || test -f "$as_shell.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$as_shell"; } 2>/dev/null; then : CONFIG_SHELL=$as_shell as_have_required=yes if { $as_echo "$as_bourne_compatible""$as_suggested" | as_run=a "$as_shell"; } 2>/dev/null; then : break 2 fi fi done;; esac as_found=false done $as_found || { if { test -f "$SHELL" || test -f "$SHELL.exe"; } && { $as_echo "$as_bourne_compatible""$as_required" | as_run=a "$SHELL"; } 2>/dev/null; then : CONFIG_SHELL=$SHELL as_have_required=yes fi; } IFS=$as_save_IFS if test "x$CONFIG_SHELL" != x; then : # We cannot yet assume a decent shell, so we have to provide a # neutralization value for shells without unset; and this also # works around shells that cannot unset nonexistent variables. BASH_ENV=/dev/null ENV=/dev/null (unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV export CONFIG_SHELL exec "$CONFIG_SHELL" "$as_myself" ${1+"$@"} fi if test x$as_have_required = xno; then : $as_echo "$0: This script requires a shell more modern than all" $as_echo "$0: the shells that I found on your system." if test x${ZSH_VERSION+set} = xset ; then $as_echo "$0: In particular, zsh $ZSH_VERSION has bugs and should" $as_echo "$0: be upgraded to zsh 4.3.4 or later." else $as_echo "$0: Please tell bug-autoconf@gnu.org about your system, $0: including any error possibly output before this $0: message. Then install a modern shell, or manually run $0: the script under such a shell if you do have one." fi exit 1 fi fi fi SHELL=${CONFIG_SHELL-/bin/sh} export SHELL # Unset more variables known to interfere with behavior of common tools. CLICOLOR_FORCE= GREP_OPTIONS= unset CLICOLOR_FORCE GREP_OPTIONS ## --------------------- ## ## M4sh Shell Functions. ## ## --------------------- ## # as_fn_unset VAR # --------------- # Portably unset VAR. as_fn_unset () { { eval $1=; unset $1;} } as_unset=as_fn_unset # 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_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 # 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 # as_fn_error STATUS 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=$1; test $as_status -eq 0 && as_status=1 if test "$4"; then as_lineno=${as_lineno-"$3"} as_lineno_stack=as_lineno_stack=$as_lineno_stack $as_echo "$as_me:${as_lineno-$LINENO}: error: $2" >&$4 fi $as_echo "$as_me: error: $2" >&2 as_fn_exit $as_status } # as_fn_error 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 as_lineno_1=$LINENO as_lineno_1a=$LINENO as_lineno_2=$LINENO as_lineno_2a=$LINENO eval 'test "x$as_lineno_1'$as_run'" != "x$as_lineno_2'$as_run'" && test "x`expr $as_lineno_1'$as_run' + 1`" = "x$as_lineno_2'$as_run'"' || { # Blame Lee E. McMahon (1931-1989) for sed's syntax. :-) sed -n ' p /[$]LINENO/= ' <$as_myself | sed ' s/[$]LINENO.*/&-/ t lineno b :lineno N :loop s/[$]LINENO\([^'$as_cr_alnum'_].*\n\)\(.*\)/\2\1\2/ t loop s/-\n.*// ' >$as_me.lineno && chmod +x "$as_me.lineno" || { $as_echo "$as_me: error: cannot create $as_me.lineno; rerun with a POSIX shell" >&2; as_fn_exit 1; } # Don't try to exec as it changes $[0], causing all sort of problems # (the dirname of $[0] is not the place where we might find the # original and so on. Autoconf is especially sensitive to this). . "./$as_me.lineno" # Exit status is that of the last command. exit } 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 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'" test -n "$DJDIR" || exec 7<&0 &1 # Name of the host. # hostname on some systems (SVR3.2, old GNU/Linux) returns a bogus exit status, # so uname gets run too. ac_hostname=`(hostname || uname -n) 2>/dev/null | sed 1q` # # Initializations. # ac_default_prefix=/usr/local ac_clean_files= ac_config_libobj_dir=. LIBOBJS= cross_compiling=no subdirs= MFLAGS= MAKEFLAGS= # Identity of this package. PACKAGE_NAME='PPM' PACKAGE_TARNAME='ppm' PACKAGE_VERSION='1.2.0' PACKAGE_STRING='PPM 1.2.0' PACKAGE_BUGREPORT='' PACKAGE_URL='' # Factoring default headers r_le.*[^/]\)\/\/*[^/][^/]*\/*$/{ chmod #mod #lsocal ac_="\ ##mod #l ##fcal HAVACKYS_TYPES_He notod #l #Rangf ##fcal HAVACKYS_t wa_He notod #l #Rangf ##fcal STDC_HEAD4567 notod #l #notod #l #R)set#nofcal HAVACKTDng=_He nnotod #l #nRangf #Rangf ##fcal HAVACKAGE_B_He nof !n VARtioSTDC_HEAD456dir_n VARtioHAVACMEMORY_He nnotod #l #nRangf #notod #l #Rangf ##fcal HAVACKAGE_BS_He notod #l #Rangf ##fcal HAVACINTTYPES_He notod #l #Rangf ##fcal HAVACKTDINT_He notod #l #Rangf ##fcal HAVACUNIKTD_He notod #l #Rangf| eod LAG toh="f$$LTng=no sing=no s DERL= ) m4vm4_inclum4/p E='' ='' FCng=S. LIBt_FC FCthis FC RANng= SET_ of val. LIBt_CC Cthis CC no EXT EXEEXT LIBt_CXX valthis LDthis CXXthis CXX MPIFC MPICXX MPICC tarame_}'='\ 2>/d_}'='\ al pd_}'='\ ng=S.*) E.*) NT= case DEFS = EC2>/ac_coeC2>/aiGS= psS= pdfS= dviS= htmlS= infoS= docS= a otod #lS= inod #lS= ac_cos rulS= sC='eds rulS= sysBOBJS= dataS= datarootC2>/aiGhe hS= sbiEC2>/biEC2>/but wit%ppanstion_=falslean_fthe hclean_ftoring defauPACKAGE_URL='' # .2.0' PACKAGE_B0' PACKAGE_STRIN PACKAGE_VERSIONCKAGE_TARNAME d=false for as_iable'eod LAG toj_dir=''eod if tull`r=' ened exll` inle. ened exLAG ened exlexit ened exetialsened exvas_fn ened exLathkert L ened exsx4_i ened excrayfish'PPM ened exhylea ened exno_midir quan ened exde/nu "; then ahcleaciousoh="f$$al pd_}'='\ 2>/d_}'='\ tarame_}'='\ CXX vXXthis LDthis ng=S.valthis CCC CC Cthis CP FC FCthis 'ce, taefault_pe old Gerfere witase by ll` inchmod #mit_help=mod #mit_d split/ >/devod ineacognr # ull`r=vod ineacognr # usep=might. erfere wit -p'. evensed =falsservede ll` incfn_setmigdin/priall sor." you ds iss\/]*oj_di= Name of the hclean_fiNONE no_utable= no_eacusplit/ lean_fiNONE but wit%lean_fiNONE but wit%sufn_fiNONE but wit%ppanstion_=fal=s,x,x, s_dint= s_le= srhS= = d sbose= x #mod #lsiNONE x crorrfelsiNONE , taeor ma store # as_fn_mll` inchmight.s # 1) leff yorin ECeespecif tsargum"ms th, or manhe hclean_fi/foogmen. mantt. erfere witinear set xpposor." be # ef teshe hclean_ft# by [^/]\)\/WITHOrs pt undall sohmigUthe racesl quadratic as_fns be1; thesh,istrl, etc. to LOacceps: mwere ht. list[^/grows. evensed here servede PPM Conges.St. ards.)/biEC2>='${he hclean_f} -c : sbiEC2>='${he hclean_f} s-c : aiGhe hS= ='${he hclean_f} aiGhe h' datarootC2>='${lean_f} sC='e' dataS= ='${datarootC2>}' sysBOBJS= ='${lean_f} etc' sC='eds rulS= ='${lean_f} MFL' ac_cos rulS= ='${lean_f} erf' inod #lS= ='${lean_f} inod #l' a otod #lS= else inod #l' docS= ='${datarootC2>}/doc/ != CKAGE_VERSION}' infoS= ='${datarootC2>}/info' htmlS= ='${docS= }' dviS= ='${docS= }' pdfS= ='${docS= }' psS= ='${docS= }' aiGS= ='${he hclean_f} aiG'/ac_coeC2>='${datarootC2>}/ac_coe' = EC2>='${datarootC2>}/= E' eod ompl=vod din/din/=TH_SEPcxll` in tes#are ht fimpliousmll` inbugs s" >&2table ace isign-----n test -d 0 liz--biEC2>liz--biEC2liz--biECliz--biEliz--bi) hen ahcleav biEC2>las_di-biEC2>=*liz--biEC2>=*liz--biEC2=*liz--biEC=*liz--biE=*liz--bi=*) hen biEC2>=$ahcll`*$aeas_ EC-bl pdliz--bl pdliz--bl pliz--bl liz--bl) hen ahcleav bl pd_}'='\las_di-bl pd=*liz--bl pd=*liz--bl p=*liz--bl =*liz--bl=*) hen bl pd_}'='\=$ahcll`*$aeas_ EC-]*- confiz--]*- confiz--]*- cofiz--]*- car) |iz--]*- |iz--]*-|iz--]*|iz--]*|iz--]*|iz--]*|iz--]) hen ahcleav ]*oj_dilas_di-]*- con=*liz--]*- con=*liz--]*- co=*liz--]*- c=*lr) |iz--]*- =*liz--]*-=*liz--]*=*liz--]*=*liz--]*=*liz--]*=*liz--]=*) hen ]*oj_di=$ahcll`*$aeas_ EC--ee sof-]*|iz-C) hen ]*oj_di=ee sofeas_ EC-dataS= liz--dataS= liz--dataS=liz--dataS) hen ahcleav dataS= las_di-dataS= =*liz--dataS= =*liz--dataS==*liz--dataS=*) hen dataS= =$ahcll`*$aeas_ EC-datarootC2>liz--datarootC2>liz--datarootC2liz--datarootCliz--datarootlr) |iz--dataroo|iz--dataro|iz--datar) hen ahcleav datarootC2>las_di-datarootC2>=*liz--datarootC2>=*liz--datarootC2=*liz--datarootC=*lr) |iz--dataroot=*liz--dataroo=*liz--dataro=*liz--datar=*) hen datarootC2>=$ahcll`*$aeas_ EC-d alias-*liz--d alias-*) hen ahcif tll`s_nl\\(.x\\cxll` inev/nux-*d alias- loop '`we haveRejas_ =falssinear set migs_tr_sat allh="eval sed 'se confnl\\(.x\\cxif tll``;; [^-+. test -n "$DJD" f conf$$.exe elif lneate directorins_tr_s${1+\"\sed ': \\cxif tll`` hen ahcif tll`_utoc=\\cxif tll` hen ahcif tll`s_r: cannot crcxif tll``;izatio's/[-+.]/_/g'`we ha*) as_dcxif tull`r; # ECCCCC*" "ened ex\\cxif tll`` "bug_dirs="'$ cxineacognr # ull`r= crcxineacognr # ull`rcrcxineacognr # usep--d alias-$ahcif tll`_utoc" cxineacognr # usep=', '_dirs="as_qdir' (.*\\)ned ex\\cxif tll`=noeas_ EC-docS= liz--docS= liz--docS=liz--docliz--do) hen ahcleav docS= las_di-docS= =*liz--docS= =*liz--docS==*liz--doc=*liz--do=*) hen docS= =$ahcll`*$aeas_ EC-dviS= liz--dviS= liz--dviS=liz--dviSliz--dviliz--dv) hen ahcleav dviS= las_di-dviS= =*liz--dviS= =*liz--dviS==*liz--dviS=*liz--dvi=*liz--dv=*) hen dviS= =$ahcll`*$aeas_ EC-)ned e-*liz--)ned e-*) hen ahcif tll`s_nl\\(.x\\cxll` inev/nux-*)ned e-\n\)=]op '`we haveRejas_ =falssinear set migs_tr_sat allh="eval sed 'se confnl\\(.x\\cxif tll``;; [^-+. test -n "$DJD" f conf$$.exe elif lneate directorins_tr_s${1+\"\sed ': \\cxif tll`` hen ahcif tll`_utoc=\\cxif tll` hen ahcif tll`s_r: cannot crcxif tll``;izatio's/[-+.]/_/g'`we ha*) as_dcxif tull`r; # ECCCCC*" "ened ex\\cxif tll`` "bug_dirs="'$ cxineacognr # ull`r= crcxineacognr # ull`rcrcxineacognr # usep--)ned e-$ahcif tll`_utoc" cxineacognr # usep=', '_dirs="as_qdir' (.*\\)ned ex\\cxif tll`=\$ahcll`*$aeas_ EC-)e h-lean_fliz--)e hclean_fliz--)e h-lean_fliz--)e h-lean_lr) |iz--)e h-lean|iz--)e h-lea|iz--)e h-le|iz--)e h-l|iz--)e h-lr) |iz--)e h|iz--)e |iz--)e) hen ahcleav )e hclean_flas_di-)e h-lean_f=*liz--he hclean_fi*liz--)e h-lean_fi*liz--)e h-lean_=*lr) |iz--)e h-leani*liz--)e h-leai*liz--)e h-lei*liz--)e h-li*liz--)e h-=*lr) |iz--)e hi*liz--)e i*liz--)e=*) hen he hclean_fi$ahcll`*$aeas_ EC-g'\liz--g'\liz--g'liz--g)we haveO eete;cif z--_set-g'\e conf_set_g'\=esteas_ EC-helpliz--helpliz--helliz--heliz-h) hen ahc#mit_help=larisas_di-help=r*liz--help=r*liz--hel=r*liz--he=r*liz-hr*) hen ahc#mit_help=eacusplvesas_di-help=s*liz--help=s*liz--hel=s*liz--he=s*liz-hs*) hen ahc#mit_help=shhe das_ EC-h/*$/iz--h/*$/iz--h/*/iz--h/) hen ahcleav 2>/d_}'='\sas_di-h>/di*liz--h>/di*liz--h>/i*liz--h>=*) hen 2>/d_}'='\i$ahcll`*$aeas_ EC-htmlS= liz--htmlS= liz--htmlS=liz--htmlSliz--htmlliz--htmliz--ht) hen ahcleav 2tmlS= las_di-htmlS= =*liz--htmlS= =*liz--htmlS==*liz--htmlS=*liz--html=*liz--htm=*lr) |iz--ht=*) hen 2tmlS= =$ahcll`*$aeas_ EC-otod #lS= |iz--otod #lS= |iz--otod #lS=|iz--otod #lS|iz--otod #llr) |iz--otod #|iz--otod |iz--otod|iz--oto) hen ahcleav otod #lS= |as_di-otod #lS= e*|iz--otod #lS= e*|iz--otod #lS=e*|iz--otod #lSe*|iz--otod #l=*lr) |iz--otod #e*|iz--otod e*|iz--otode*|iz--oto=*) hen otod #lS= e$ahcll`*$aeas_ EC-otfoS= |iz--otfoS= |iz--otfoS=|iz--otfoS|iz--otfo|iz--otf) hen ahcleav otfoS= |as_di-otfoS= =*|iz--otfoS= =*|iz--otfoS==*|iz--otfoS=*|iz--otfo=*|iz--otf=*) hen otfoS= =$ahcll`*$aeas_ EC-aiGS= |iz--aiGS= |iz--aiGS=|iz--aiGS) hen ahcleav aiGS= |as_di-aiGS= =*|iz--aiGS= =*|iz--aiGS==*|iz--aiGS=*) hen aiGS= =$ahcll`*$aeas_ EC-aiGhe hS= |iz--aiGhe hS= |iz--aiGhe hS=|iz--aiGhe hS|iz--aiGhe hlr) |iz--aiGhe |iz--aiGhe|iz--aiGh) hen ahcleav aiGhe hS= |as_di-aiGhe hS= =*|iz--aiGhe hS= =*|iz--aiGhe hS==*|iz--aiGhe hS=*|iz--aiGhe h=*lr) |iz--aiGhe =*|iz--aiGhe=*|iz--aiGh=*) hen aiGhe hS= =$ahcll`*$aeas_ EC-ac_coeC2>|iz--ac_coeC2>|iz--ac_coeC2|iz--ac_coeC|iz--ac_coe) hen ahcleav ac_coeC2>|as_di-ac_coeC2>=*|iz--ac_coeC2>=*|iz--ac_coeC2=*|iz--ac_coeC=*|iz--ac_coe=*) hen ac_coeC2>=$ahcll`*$aeas_ EC-ac_cos rulS= |iz--ac_cos rulS= |iz--ac_cos rulS=|iz--ac_cos rulSlr) |iz--ac_cos rul|iz--ac_cos ru|iz--ac_cos r|iz--ac_cos |iz--ac_cos) hen ahcleav ac_cos rulS= |as_di-ac_cos rulS= =*|iz--ac_cos rulS= =*|iz--ac_cos rulS==*|iz--ac_cos rulS=*lr) |iz--ac_cos rul=*|iz--ac_cos ru=*|iz--ac_cos r=*|iz--ac_cos =*|iz--ac_cos=*) hen ac_cos rulS= =$ahcll`*$aeas_ EC-= EC2>|iz--= EC2>|iz--= EC2|iz--= EC|iz--= E|iz--= |iz--=) hen ahcleav = EC2>|as_di-= EC2>=*|iz--= EC2>=*|iz--= EC2=*|iz--= EC=*|iz--= E=*|iz--= =*|iz--==*) hen = EC2>=$ahcll`*$aeas_ EC-nfpliz--nfpliz--nf)we haveO eete;cif z--_setout-fpe conf_set_fp=noeas_ EC-no-rerun wiz--no-rerun wiz--no-rerunwiz--no-reruwiz--no-rerlr) |iz--no-re|iz--no-r|iz-n)we hano_utable=esteas_ EC-no-eacusplit|iz--no-eacusplit|iz--no-eacuspli|iz--no-eacuspllr) |iz--no-eacusp|iz--no-eacus|iz--no-eacu|iz--no-eac|iz--no-ea|iz--no-e)we hano_eacusplit/esteas_ EC- a otod #lS= |iz-- a otod #lS= |iz-- a otod #lS=|iz-- a otod #lSlr) |iz-- a otod #l|iz-- a otod #|iz-- a otod |iz-- a otod|iz-- a otolr) |iz-- a ot|iz-- a o|iz-- a |iz-- a|iz-- ) hen ahcleav a otod #lS= |as_di- a otod #lS= e*|iz-- a otod #lS= e*|iz-- a otod #lS=e*|iz-- a otod #lS=*lr) |iz-- a otod #le*|iz-- a otod #e*|iz-- a otod e*|iz-- a otode*|iz-- a oto=*lr) |iz-- a ote*|iz-- a oe*|iz-- a e*|iz-- ae*|iz-- =*) hen a otod #lS= e$ahcll`*$aeas_ EC-lean_fliz--lean_fliz--lean_liz--leanliz--lealiz--leliz--l) hen ahcleav lean_flas_di-lean_fi*liz--lean_fi*liz--lean_i*liz--leani*liz--leai*liz--lei*liz--l=*) hen lean_fi$ahcll`*$aeas_ EC-but wit-lean_fliz--let wit-lean_fliz--let wit-lean_liz--let wit-leanlr) |iz--let wit-lea|iz--let wit-le|iz--let wit-l) hen ahcleav let wit%lean_flas_di-let wit-lean_fi*liz--let wit-lean_fi*liz--let wit-lean_=*lr) |iz--let wit-leani*liz--let wit-leai*liz--let wit-lei*liz--let wit-l=*) hen let wit%lean_fi$ahcll`*$aeas_ EC-but wit-sufn_fliz--let wit-sufn_fliz--let wit-sufn_liz--let wit-sufnlr) |iz--let wit-suf|iz--let wit-su|iz--let wit-s) hen ahcleav let wit%sufn_flas_di-let wit-sufn_fi*liz--let wit-sufn_fi*liz--let wit-sufn_=*lr) |iz--let wit-sufni*liz--let wit-sufi*liz--let wit-sui*liz--let wit-s=*) hen let wit%sufn_fi$ahcll`*$aeas_ EC-but wit-ppanstion-ev/nulz--let wit-ppanstion-ev/nur) |iz--let wit-ppanstion-ev/|iz--let wit-ppanstion-evur) |iz--let wit-ppanstion-e|iz--let wit-ppanstion-ur) |iz--let wit-ppanstion|iz--let wit-ppanstiour) |iz--let wit-ppansti|iz--let wit-ppanstur) |iz--let wit-ppans|iz--let wit-ppanur) |iz--let w-ppa|iz--let wit-pp|iz--let wit-p) hen ahcleav let wit%ppanstion_=fallas_di-let wit-ppanstion-ev/ni*liz--let wit-ppanstion-ev/ni*lr) |iz--let wit-ppanstion-ev/i*liz--let wit-ppanstion-evi*lr) |iz--let wit-ppanstion-ei*liz--let wit-ppanstion-i*lr) |iz--let wit-ppanstioni*liz--let wit-ppanstioi*lr) |iz--let wit-ppanstii*liz--let wit-ppansti*lr) |iz--let wit-ppansi*liz--let wit-ppani*lr) |iz--let w-ppai*liz--let wit-ppi*liz--let wit-p=*) hen let wit%ppanstion_=fal=$ahcll`*$aeas_ EC-bdfS= liz--ldfS= liz--ldfS=liz--ldfSliz--ldfliz--ld) hen ahcleav ldfS= las_di-ldfS= =*liz--ldfS= =*liz--ldfS==*liz--ldfS=*liz--ldf=*liz--ld=*) hen ldfS= =$ahcll`*$aeas_ EC-bsS= liz--lsS= liz--lsS=liz--lsSliz--ls) hen ahcleav lsS= las_di-lsS= =*liz--lsS= =*liz--lsS==*liz--lsS=*liz--ls=*) hen lsS= =$ahcll`*$aeas_ EC-qliz-quienwiz--quienwiz--quiewiz--quiwiz--quwiz--qlr) |iz-s_dintwiz--s_dintwiz--s_dinwiz--s_diwiz--s_d) hen s_dint=esteas_ EC-sbiEC2>liz--sbiEC2>liz--sbiEC2liz--sbiECliz--sbiEliz--sbiliz--sb) hen ahcleav sbiEC2>las_di-sbiEC2>=*liz--sbiEC2>=*liz--sbiEC2=*liz--sbiEC=*liz--sbiEi*lr) |iz--sb2=*liz--sb=*) hen sbiEC2>=$ahcll`*$aeas_ EC-sC='eds rulS= liz--sC='eds rulS= liz--sC='eds rulS=lr) |iz--sC='eds rulS|iz--sC='eds rul|iz--sC='eds ru|iz--sC='eds rlr) |iz--sC='eds |iz--sC='eds|iz--sC='ed|iz--sC='e|iz--sC='lr) |iz--sC=|iz--sC) hen ahcleav sC='eds rulS= las_di-sC='eds rulS= =*liz--sC='eds rulS= =*liz--sC='eds rulS=i*lr) |iz--sC='eds rulS=*liz--sC='eds rul=*liz--sC='eds ru=*liz--sC='eds ri*lr) |iz--sC='eds =*liz--sC='eds=*liz--sC='ed=*liz--sC='e=*liz--sC='i*lr) |iz--sC==*liz--sC=*) hen sC='eds rulS= =$ahcll`*$aeas_ EC-siul|iz--siul|iz--siu) hen ahcleav siul|as_di-siul=*liz--siul=*liz--siu=*) hen siul=$ahcll`*$aeas_ EC-srhS= |iz--srhS= |iz--srhS=|iz--srhS|iz--srh|iz--sr) hen ahcleav srhS= |as_di-srhS= =*|iz--srhS= =*|iz--srhS==*|iz--srhS=*|iz--srh=*|iz--sr=*) hen srhS= =$ahcll`*$aeas_ EC-sysBOBJS= |iz--sysBOBJS= |iz--sysBOBJS=|iz--sysBOBJS|iz--sysBOBJlr) |iz--sysBOB|iz--sysBO|iz--sysB|iz--sys|iz--sy) hen ahcleav sysBOBJS= |as_di-sysBOBJS= =*|iz--sysBOBJS= =*|iz--sysBOBJS==*|iz--sysBOBJS=*|iz--sysBOBJi*lr) |iz--sysBOB=*|iz--sysBO=*|iz--sysB=*|iz--sys=*|iz--sy=*) hen sysBOBJS= =$ahcll`*$aeas_ EC-tarame|iz--tarame|iz--taram|iz--tara|iz--tar|iz--ta|iz--t) hen ahcleav tarame_}'='\|as_di-tarame=*|iz--tarame=*|iz--taram=*|iz--tara=*|iz--tar=*|iz--ta=*|iz--t=*) hen tarame_}'='\=$ahcll`*$aeas_ EC-v|iz-d sbose|iz--d sbose|iz--d sbos|iz--d sbo|iz--d sb) hen d sbose=esteas_ EC-d split|iz--d split|iz--d spli|iz--d spl|iz--d sp|iz-V) hen ahc#mit_d split/:eas_ EC-_set-*|iz--_set-*) hen ahcif tll`s_nl\\(.x\\cxll` inev/nux-*_set-\n\)=]op '`we haveRejas_ =falssinear set migs_tr_sat allh="eval sed 'se confnl\\(.x\\cxif tll``;; [^-+. test -n "$DJD" f conf$$.exe elif lneate directorins_tr_s'PPM' Psed ': \\cxif tll`` hen ahcif tll`_utoc=\\cxif tll` hen ahcif tll`s_r: cannot crcxif tll``;izatio's/[-+.]/_/g'`we ha*) as_dcxif tull`r; # ECCCCC*" "_set_\\cxif tll`` "bug_dirs="'$ cxineacognr # ull`r= crcxineacognr # ull`rcrcxineacognr # usep--_set-$ahcif tll`_utoc" cxineacognr # usep=', '_dirs="as_qdir' (.*\\_set_\\cxif tll`=\$ahcll`*$aeas_ EC-_setout-*|iz--_setout-*) hen ahcif tll`s_nl\\(.x\\cxll` inev/nux-*_setout- loop '`we haveRejas_ =falssinear set migs_tr_sat allh="eval sed 'se confnl\\(.x\\cxif tll``;; [^-+. test -n "$DJD" f conf$$.exe elif lneate directorins_tr_s'PPM' Psed ': \\cxif tll`` hen ahcif tll`_utoc=\\cxif tll` hen ahcif tll`s_r: cannot crcxif tll``;izatio's/[-+.]/_/g'`we ha*) as_dcxif tull`r; # ECCCCC*" "_set_\\cxif tll`` "bug_dirs="'$ cxineacognr # ull`r= crcxineacognr # ull`rcrcxineacognr # usep--_setout-$ahcif tll`_utoc" cxineacognr # usep=', '_dirs="as_qdir' (.*\\_set_\\cxif tll`=noeas_ EC--x)we haveO eete;cif z--_set-xe conf_set_x=esteas_ EC-x-otod #ls|iz--x-otod #ls|iz--x-otod #l|iz--x-otod #|iz--x-otod lr) |iz--x-otod|iz--x-oto|iz--x-ot|iz--x-o) hen ahcleav x #mod #ls|as_di-x-otod #ls=*|iz--x-otod #ls=*|iz--x-otod #l=*|iz--x-otod #=*|iz--x-otod i*lr) |iz--x-otode*|iz--x-oto=*|iz--x-ot=*|iz--x-o=*) hen x #mod #lsi$ahcll`*$aeas_ EC-x-crorrfels|iz--x-crorrfels|iz--x-crorrfel|iz--x-crorrfelr) |iz--x-crorrf|iz--x-crorr|iz--x-cror|iz--x-cro|iz--x-cr|iz--x-c) hen ahcleav x crorrfels|as_di-x-crorrfelsi*|iz--x-crorrfelsi*|iz--x-crorrfeli*|iz--x-crorrfei*lr) |iz--x-crorrfi*|iz--x-crorri*|iz--x-crori*|iz--x-croi*|iz--x-cri*|iz--x-c=*) hen x crorrfelsi$ahcll`*$aeas_ EC- eeate directorineacognr # rll` in: \`\\cxll` in' xist\`\0 --help'[^/]*\/re otform stor` hen as_ EC*=*) hen ahcenv x\$_nl\\(.x\\cxll` inev/nux\n\)=]op ='`we haveRejas_ =falssinear set migs_tr_sat allh="eval sed 'se conf*) as_dcxenv x\qdir=`$as_ech''|iz[0-9]*|iz*[! test -n "$DJD* ) elif lneate directorins_tr_sh="eval sed ': \`\\cxenv x\'" _dirs="as_qdir' (.*\\\\cxenv x\=\$ahcll`*$a confnl\he d_dcxenv x\qas_ EC*)we haveFIXME:"$0: be be removntage your sy 3) 19e har: cannot create $WARNING:i e$0: be if z--bl pd, --h>/d,z--tarame_status nfnl\\(.x\\cxll` inev/n [^-. test -n "$DJD" f conf$$.exe elifr: cannot create $WARNING:iins_tr_sh/*$/typd: \\cxll` inevtatus nf: \{bl pd_}'='\=$ahcll` in} \{2>/d_}'='\i$ahcll` in} \{tarame_}'='\=$ahcll` in} hen as_ ECas_qddirs" test -d 0 &1; t0 lsbiEC2>laiGhe hS= |datarootC2>l\ dataS= lsysBOBJS= |sC='eds rulS= lac_cos rulS= |otod #lS= |\ a otod #lS= |docS= lotfoS= |2tmlS= ldviS= lldfS= llsS= l\ aiGS= |ac_coeC2>|= EC2>/ tes(.*\\Pcx xln_apPcx x\ haveRemovn traGS= M slin/pr. nf*) as_dcx.*\\ # ECCC*/ ) elif ct $? -eq 1` X_dcx.*\][^/]*/*$' \| \ $as_e X_dcx.*\][^/]*/*$'p '`we ha' (.*\\\\cx x\=\$ahc.*\as_dir" || etiblesufrom c -p'.2 exit d# as_fn_med 'se co*) as_dcx.*\\ # ECCC;; $]*|iz?:;; *) ae # aexie_dirs="NONE|iz''|)o*) as_dcx.*\qdir*lean_fl)e # aexie_dn';; esae done $as_foate directoreq as_s (e..2 exit d# as_fn_med '[^/]*--_dcx.*\:s_dcx.*\"ddirs" ight.rriginal )) aeop sethoter Rane the re a |brokenols. CLIC: `$2>/dre nusor." h a |t portable atic --h/*$/etc. veFIXME:"To removn old Gday.Tbl pd=$al pd_}'='\ 2>/d=$2>/d_}'='\ tarame=$tarame_}'='\ veFIXME:"To removn old Gday.TL" != x; th2>/d_}'='\cannot yet a ELL" != x; thal pd_}'='\e_compatible="ae irs= MFLAGS= MAmaybease tell bug-autreate $WARNING:iifi ewantor." ase t po--bl pdltypd,_dir't if z--me sysse tIf ae irs= MFLAGS test detes_s (rith irs= MFLAGS ally /WITHOb. if dnset varilL" != x; thal pd_}'='\e_run'" 2>/d_}'='\cpatible="ae irs= MFLAGS= MA_IFS evale -- c_ GRE%lean_fixec 7<&0 /d_}'='\cast "c_ GRE%lean_fi/2>/d_}'='\-exec 7<"$s_dinte_coested")he host . 2>/dev/neod owd=`owd X/) >/dev 0 /dev/nuld l ./-v/null; d owd l ./-"_p' s_foate directorowd_diewe migre\he de place wus () d# as_fn_" Look in t evenourct 1 fical f|ac_c` in;wawe mig thisfie = ION$ZSH_VERSIsrhS= ${as_linenahcsrhS= ocal ac_ave_IFSat exist not thas_fn_mi# adva() tshell more,(rith s_myse_fn_t thas_fn_.nenahcBOBJS= =ir" || $as_expr X"$as if t : 'X\(.*[^/]\)//* if t^/]*/*$' \| \ X"$as_dir" : 'X\(//\)[^/]' \ if t^/]*/*_dir" : 'X\(//\)$' \| \ if t^/]*/*_dir 'X\(//\)[^/]' \ if t^/]*/*_| $as_echo X"$as_dir" | sed '/^X\(. if t hen s[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` test -d "$as_dir" srhS= =$ahcBOBJS= ELL" != x;!_myselsrhS= /\\cxiniquoj_dicpatible="aesrhS= =.. p -p' fi rm -hcsrhS= ocal ac_aveave_reL" != x;!_myselsrhS= /\\cxiniquoj_dicpatible="ec 7<"$-hcsrhS= ocal ac_ave_coested")srhS= ="$ahcBOBJS= as_f.." s_foate directorrun with an nourcts (\\cxiniquoj_di)_savesrhS= $s_tesc_msg="nourcts are otvesrhS= ,chas:\ncd esrhS= '_diewe migwus "esc_2 cBOBJS= =i( cd /dev r Exit cxiniquoj_dicnnot create director$sc_msg" owd)`selvith al pdle.; #find t, ase srhS= =.ATOR+set}" sc_2 cBOBJS= v/nul/od owdspatible="srhS= =.A_teveRemovn un_p () { traGS= M slin/prt spacsrhS= . veDoual sslin/prtin 1 fi # Urtin objas_ 2) DJGe/nugle.; #foross1\" up M-x gdbtin Emacs\/]* ) asrhS= | # */)"srhS= =-eq 1` X_srhS= $X^/]*/*$' \| \ $as_e X_srhS= $X^/]*/*$'p '`ired="as__SEPcx x\qdi /od ompciousoh="fr in #((.*\\Pcxenv_${Pcx x\}$1 }= \ {Pcx x\} $as #((.*\\Pcxenv_${Pcx x\}$ut unn_ap{Pcx x\} #((.*\\Pcxcvxenv_${Pcx x\}$1 }= \ {Pcx x\} $as #((.*\\Pcxcvxenv_${Pcx x\}$ut unn_ap{Pcx x\} dirs" ieveRe\he dt po--helpla modern ieTOR+set}" sc_#mit_helpv/nullarispatible="# Omgetsld Gr of nf iICOL eeterll` insa valik'. evelist[l1\" valns() { at exshelould # tmmanoo laris" be variable x$as_myA/UX 3.1|sCe co*)t <<_ACEOF \nce softwa'ree softwas REPORT=''s" adapta valiny ()dting NU/Linu. Ud # : as_[------]gotc[VAR=e def]got Toe isign-environmNV=/dev/null IN ksh, CC, Cthis got),g thisfst nome i VAR=e def. See berowt__SEdel morelitting sld Ge on soif ful/dev/null E Dal ac_c[^/]*ede ll` incr set thisfie exitracke chm Ce softwc` inth `-h,o--helplllllllllllllldisindy tshelhelplst \$(itwe ha' --help=shhe dllllllldisindy ll` incr thisficme.linens'PPM' Pwe ha' --help=eacusplvesllldisindy tsheshhe dhelplionsmantt. otod #lSl'PPM' PFSat-V,z--d split|lllllllllldisindy d split|otform storlst \$(itwe -q,z--quien, --s_dintw bash 2.0pabls:\ncle.;got'lould # swe ha' --]*- con=FILE n ]*R+set} $as_vrtin FILE [d aliasd]we -C, --ee sof-]*| elif '='\|tiour`--]*- con=ee sof"; t-n, --no-rerun wlllllllldsh 2.01erun wG_FD, r1 ficwe ha' --srhS= =DIRllllllllfin t evenourctrtin DIRl[ee softwarS= as_f\`ot'] aeor ma store # as_fnieoth `--lean_fiPREFIXwllllllll, or manurchites_twa-in r Ranintw1 fictin PREFIX [_dcxdal ac_clean_f]we --)e h-lean_fiEPREFIXwll, or manurchites_twa- r Ranintw1 fictin EPREFIX [PREFIX] By [^/]\)\,f\`ms th, or ma'/WITHO, or manumantt. 1 fictin \`\\cxdal ac_clean_f -c :, \`\\cxdal ac_clean_f aiG' etc. Y ergum thisfs all, or ma storelean_flo "$0: t\`\\cxdal ac_clean_f'. as_fnr`--lean_f',s__SE, or ncenr`--lean_fn_aHOME'hm F_SEb%;s%[. Disol, if zede ll` incrberowhm FARt tua() e on soieor ma store # as_fnieoth `--biEC2>=DIRllllllllllllif tboth cases,s [EPREFIX -c ]we --sbiEC2>=DIRlllllllllllNU/Lin admARboth cases,s [EPREFIX s-c ]we --aiGhe hS= =DIRlllllllllet witboth cases,s [EPREFIX aiGhe h]we --sysBOBJS= =DIRllllllllerud-, to s xy) -machARt data [PREFIX etc]we --sC='eds rulS= =DIRllllmodsfiexpr. rchites_twa-in r Ranintwdata [PREFIX com]we --ac_cos rulS= =DIRlllllmodsfiexpr.s xy) -machARt data [PREFIX dev]we --aiGC2>=DIRllllllllllllobjas_ as_scrorrfels|[EPREFIX aiG]we --otod #lS= eDIRllllllllC/\/*[^/ 1 fict[PREFIX otod #l]we -- a otod #lS= eDIRlllllC/\/*[^/ 1 fict__SEnon-gcc [se inod #l]we --datarootC2>=DIRlllllllerud-, to rch.-in r Ranintwdata rootl[PREFIX sC='e]we --dataC2>=DIRlllllllllllerud-, to rchites_twa-in r Ranintwdata [DATAROOTDIR]we --otfoS= =DIRlllllllllllotfo|docuas_var=1; [DATAROOTDIR/info]we --ac_colS= eDIRllllllll|ac_coe- r Ranintwdata [DATAROOTDIR/ac_coe]we --= EC2>=DIRllllllllllll= E|docuas_var=1; [DATAROOTDIR/= E]we --dohS= =DIRlllllllllllldocuas_var=1; rootl[DATAROOTDIR/doc/ppm]we --2tmlS= =DIRlllllllllllhtmlldocuas_var=1; [DOCDIR]we --dviS= =DIRlllllllllllldvildocuas_var=1; [DOCDIR]we --ldfS= =DIRllllllllllllldfldocuas_var=1; [DOCDIR]we --lsS= =DIRllllllllllll psldocuas_var=1; [DOCDIR]w_ACEOF co*)t <<\_ACEOF _ACEOF /null 2>&1; t0 iifi e -p'.crorrfels|ge nonst. ardt thas_fn_mh `LIBS crorrfels|nitpassinition a w t, ksh -lh `valthis (Objas_lve) C/C++ leaIro () otem4/pc, ksh -Iiif e -p'.\/*[^/][-e" cnonst. ardt thas_fn_mh `vC C MFLAGS teO_C= ECh `Cthis C MFLAGS tem4/pch `val C leaIro () oth `FC F_SppanuMFLAGS teO_C= ECh `FCthis F_SppanuMFLAGS tem4/pch Us ntt.s. erfere witiods, irerrtion AIicesl= rrtby nce softwa'ring LIhelp ita vafin tcrorrfels|s eslet wits _set nonst. ardt # Ur/ac_c` inchm Re\he d/nusinition 'PPM' Psthe errr. _ACEOF -hcstus -eq? /null 2>&1; " sc_#mit_helpv/nuleacusplvespatible="# re ht # 1) LAGS= ,gre\he dht = |sthisficm--help. p -_SEPcxS= | # :s_dcxLAGS= _a'mkddohs_run'" !c 2>&1; tx:X/) # aexie e break docs_dir" : { cd /dev docs_dir;" || MF aexie e bocsal pdS= =.A/]* ) docs_dir"i; .)EPcxS= %sufn_fi "c_ Gpsal pdS= xLAG=.X"c_ Gpsal pd%lean_fi esac rmPcxS= %sufn_fi/_r: cannot crcxd\\''/g"`;;'s|^\.;; ||dir" # A ".." -_SEe*| thas_fn_mdi /od S= %sufn_f.nenahc Gpsal pdS= xLAG=_r: cannot crcxd\\%sufn_f''/g"`;;'s|/[^; *|/..|g;s|/||dir" *) as_od Gpsal pdS= xLAGti; "") "c_ Gpsal pdS= xLAG=.X"c_ Gpsal pd%lean_fi esa="bug "c_ Gpsal pd%lean_fi_od Gpsal pdS= xLAG/eas_dir" | ired="assc_2 c Gpsal pdS= =/od owdssc_2 cal pdS= =/od owdcrcxd\\%sufn_f # -_SEbPPMwardtMFLAc` bility: od Gpsal pdS= i_od Gpsal pdclean_ft/]* ) asrhS= | # .)E # W # 1) al pdle.; #find t. e bocssrhS= =.A e bocs GpssrhS= =$ahc Gpsal pdS= xLAGA e bocs2 c GpssrhS= =$ahcowd_as_di;; *)iz?:;; *) ae# A exit ed 'y% e bocssrhS= =asrhS= crcxd\\%sufn_f;A e bocs GpssrhS= =$srhS= A e bocs2 c GpssrhS= =$srhS= |as_dibugveRea stvt ed 'y% e bocssrhS= =aod Gpsal pdclean_fasrhS= crcxd\\%sufn_fA e bocs GpssrhS= =$ahc Gpsal pdclean_fasrhS= A e bocs2 c GpssrhS= =$ahcowd/$srhS= |as_d="assc_2 csrhS= =$ahc2 c GpssrhS= crcxd\\%sufn_fAe="ae docs_dir" : { -hcstus -eq?;e # aexie_ } hen wC -_SEgu1\_s (ce softway% e bl 2>&1; tf<"$-hcsrhS= /ce softwaygnucpatible="ae on AIXe elifriable<"$-hcsrhS= /ce softwaygnuc --help=eacusplve elilL" != x;tf<"$-hcsrhS= /ce softwacpatible="ae on AIXe elifriable<"$-hcsrhS= /ce softwac --help=eacusplve elilsn ell bug-autreate $WARNING:inooce softwc` in otform storlismdi /od S= evtatus nfn_li| -hcstus -eq?e="ae docsowds_ : { -hcstus -eq?;ebreak_ } hedirs"/nul>&1; t0 &1;._dcxexace estatus,he "$0hellucceede = .creatcxx_try_MFLAGS aest $as_st"} as_lineno_stack=as1lineno_stack=$as_lineno_stack $as_echo "$as_me:${ae conf$$.d>&1;._dcxobjaxt ELL" { { -hctry="$ahcBOLAGS "/]* ) ((\\cxtry"; # ECH\"*|iz*\`*|iz*\\ cxtry_bug-=\$ahctryas_dibug cxtry_bug-=$ahctryas_d="as(.*\\Pcxtry_bug-="\"\NENO}: error: $2" >&$4 fi $Pcxtry_bug-\"" r: cannot crcxtry_bug-r;" |>&5_di((.*\\"$ahcBOLAGS "` #$$.d>&1;. irrm -hcstus -eq?e="L" != x;ts $$.d>&1;. irpatible="aegre\C-v|'^ *+' $$.d>&1;. ir #$$.d>&1;. i1e="ae at $$.d>&1;. i1|>&5_di mvconf$$.d>&1;. i1|$$.d>&1;. irrm error: $2" >&2 as_ferror: $2" >&$4 fi \$?; t_dcx if e"|>&5_di!= x;_dcx if e; t0;" |d") } $ZSH_VERSIahcBxx_we dir_m4/pr" : != x;!_ms|$$.d>&1;. irrm }X/) >/dev sf$$.d>&1;._dcxobjaxtpatibl :rm -hctat $? 0' fi rm ell bug-autreate $ 2.0eeslet wit;waw:"|>&5_atio's/^/| /'asiti>&1;._dcxexa|>&5_ -hctat $? 1 erro(.*\\\\_echo "$as_me:;hs_run'" !_echo "$as_me:1; tx|d") s_st"} as_l; unp_OP_st"} as_;} s_foatp_Ox if e;$-hctat $? } en.creatcxx_try_MFLAGS tmen.creatc_try_MFLAGS a$as_lin-------------------- # Outpu exist o MFLAGS asiti>&1;._dcxexace estatus,he "$0hellucceede = .creatc_try_MFLAGS aest $as_st"} as_lineno_stack=as1lineno_stack=$as_lineno_stack $as_echo "$as_me:${ae conf$$.d>&1;._dcxobjaxt ELL" { { -hctry="$ahcBOLAGS "/]* ) ((\\cxtry"; # ECH\"*|iz*\`*|iz*\\ cxtry_bug-=\$ahctryas_dibug cxtry_bug-=$ahctryas_d="as(.*\\Pcxtry_bug-="\"\NENO}: error: $2" >&$4 fi $Pcxtry_bug-\"" r: cannot crcxtry_bug-r;" |>&5_di((.*\\"$ahcBOLAGS "` #$$.d>&1;. irrm -hcstus -eq?e="L" != x;ts $$.d>&1;. irpatible="aegre\C-v|'^ *+' $$.d>&1;. ir #$$.d>&1;. i1e="ae at $$.d>&1;. i1|>&5_di mvconf$$.d>&1;. i1|$$.d>&1;. irrm error: $2" >&2 as_ferror: $2" >&$4 fi \$?; t_dcx if e"|>&5_di!= x;_dcx if e; t0;" |d") } $ZSH_VERSIahcB_we dir_m4/pr" : != x;!_ms|$$.d>&1;. irrm }X/) >/dev sf$$.d>&1;._dcxobjaxtpatibl :rm -hctat $? 0' fi rm ell bug-autreate $ 2.0eeslet wit;waw:"|>&5_atio's/^/| /'asiti>&1;._dcxexa|>&5_ -hctat $? 1 erro(.*\\\\_echo "$as_me:;hs_run'" !_echo "$as_me:1; tx|d") s_st"} as_l; unp_OP_st"} as_;} s_foatp_Ox if e;$-hctat $? } en.creatc_try_MFLAGS tmen.creatc_try_Mppa$as_lin-------------------- # O exist o leaIro () asiti>&1;._dcxexace estatus,he "$0hellucceede = .creatc_try_Mppaest $as_st"} as_lineno_stack=as1lineno_stack=$as_lineno_stack $as_echo "$as_me:${aL" { { -hctry="$ahcBppasiti>&1;._dcxexa"/]* ) ((\\cxtry"; # ECH\"*|iz*\`*|iz*\\ cxtry_bug-=\$ahctryas_dibug cxtry_bug-=$ahctryas_d="as(.*\\Pcxtry_bug-="\"\NENO}: error: $2" >&$4 fi $Pcxtry_bug-\"" r: cannot crcxtry_bug-r;" |>&5_di((.*\\"$ahcBppasiti>&1;._dcxexa"` #$$.d>&1;. irrm -hcstus -eq?e="L" != x;ts $$.d>&1;. irpatible="aegre\C-v|'^ *+' $$.d>&1;. ir #$$.d>&1;. i1e="ae at $$.d>&1;. i1|>&5_di mvconf$$.d>&1;. i1|$$.d>&1;. irrm error: $2" >&2 as_ferror: $2" >&$4 fi \$?; t_dcx if e"|>&5_di!= x;_dcx if e; t0;" |>|$$.d>&1;.i|d") } $ZSH_VERSIahcB_leaIro _w 1n_m4/pIahcB_we dir_m4/pr" : != x;!_ms|$$.d>&1;. irrm }patibl :rm -hctat $? 0' fi rm ell bug-autreate $ 2.0eeslet wit;waw:"|>&5_atio's/^/| /'asiti>&1;._dcxexa|>&5_ e bocstat $? 1 erro(.*\\\\_echo "$as_me:;hs_run'" !_echo "$as_me:1; tx|d") s_st"} as_l; unp_OP_st"} as_;} s_foatp_Ox if e;$-hctat $? } en.creatc_try_Mpptmen.creatfc_try_MFLAGS a$as_lin-------------------- # Outpuu exist o MFLAGS asiti>&1;._dcxexace estatus,he "$0hellucceede = .creatfc_try_MFLAGS aest $as_st"} as_lineno_stack=as1lineno_stack=$as_lineno_stack $as_echo "$as_me:${ae conf$$.d>&1;._dcxobjaxt ELL" { { -hctry="$ahcBOLAGS "/]* ) ((\\cxtry"; # ECH\"*|iz*\`*|iz*\\ cxtry_bug-=\$ahctryas_dibug cxtry_bug-=$ahctryas_d="as(.*\\Pcxtry_bug-="\"\NENO}: error: $2" >&$4 fi $Pcxtry_bug-\"" r: cannot crcxtry_bug-r;" |>&5_di((.*\\"$ahcBOLAGS "` #$$.d>&1;. irrm -hcstus -eq?e="L" != x;ts $$.d>&1;. irpatible="aegre\C-v|'^ *+' $$.d>&1;. ir #$$.d>&1;. i1e="ae at $$.d>&1;. i1|>&5_di mvconf$$.d>&1;. i1|$$.d>&1;. irrm error: $2" >&2 as_ferror: $2" >&$4 fi \$?; t_dcx if e"|>&5_di!= x;_dcx if e; t0;" |d") } $ZSH_VERSIahcfB_we dir_m4/pr" : != x;!_ms|$$.d>&1;. irrm }X/) >/dev sf$$.d>&1;._dcxobjaxtpatibl :rm -hctat $? 0' fi rm ell bug-autreate $ 2.0eeslet wit;waw:"|>&5_atio's/^/| /'asiti>&1;._dcxexa|>&5_ -hctat $? 1 erro(.*\\\\_echo "$as_me:;hs_run'" !_echo "$as_me:1; tx|d") s_st"} as_l; unp_OP_st"} as_;} s_foatp_Ox if e;$-hctat $? } en.creatfc_try_MFLAGS tmen.creatc_try_(hos$as_lin-------------------- # O exist o a wasiti>&1;._dcxexace estatus,he "$0hellucceede = Assumes einearoth cases,s *can* be run= .creatc_try_(hosest $as_st"} as_lineno_stack=as1lineno_stack=$as_lineno_stack $as_echo "$as_me:${aL" { { -hctry="$ahc a w"/]* ) ((\\cxtry"; # ECH\"*|iz*\`*|iz*\\ cxtry_bug-=\$ahctryas_dibug cxtry_bug-=$ahctryas_d="as(.*\\Pcxtry_bug-="\"\NENO}: error: $2" >&$4 fi $Pcxtry_bug-\"" r: cannot crcxtry_bug-r;" |>&5_di((.*\\"$ahc a w"` #&5_di-hcstus -eq?e="r: $2" >&2 as_ferror: $2" >&$4 fi \$?; t_dcx if e"|>&5_di!= x;_dcx if e; t0;" |d") -hctry='./siti>&1;_dcxexeexa"; t{ { ]* ) ((\\cxtry"; # ECH\"*|iz*\`*|iz*\\ cxtry_bug-=\$ahctryas_dibug cxtry_bug-=$ahctryas_d="as(.*\\Pcxtry_bug-="\"\NENO}: error: $2" >&$4 fi $Pcxtry_bug-\"" r: cannot crcxtry_bug-r;" |>&5_di((.*\\"$ahctry"` #&5_di-hcstus -eq?e="r: $2" >&2 as_ferror: $2" >&$4 fi \$?; t_dcx if e"|>&5_di!= x;_dcx if e; t0;" ; }patibl :rm -hctat $? 0' fi rm ell bug-autreate $let witbotiulS|_set if e;$-hc if e"|>&5_di ell bug-autreate $ 2.0eeslet wit;waw:"|>&5_atio's/^/| /'asiti>&1;._dcxexa|>&5_ e be bocstat $? _dcx if ex erroe cornf$$.d>&1;.dSYMf$$.d>&1;_ipa8_$$.d>&1;.oorro(.*\\\\_echo "$as_me:;hs_run'" !_echo "$as_me:1; tx|d") s_st"} as_l; unp_OP_st"} as_;} s_foatp_Ox if e;$-hctat $? } en.creatc_try_(hotmen.creatc_MFLAute_r os$as_li EXPR VAR INCLUDESn-------------------- # Output ------------ # O exiels|nitfin t eveMFLAGS -tial ut un ofuEXPR -e" clet wit;inear#mod #ls, taNCLUDES, asetle.;VAR accordle.ly. Ratus,she "$0l ut un c: be be, tMFLAuted .creatc_MFLAute_r osest $as_st"} as_lineno_stack=as1lineno_stack=$as_lineno_stack $as_echo "$as_me:${aL" >&1; " irs= MFLAGS= Me_coestpatible="ae# Dr Ranle.;up the resize,tMFLAutetion oe eshi bou s\/]*t $$.ddefs.h - <<_ACEOF #$$.d>&1;._dcxexa /* Rane$$.ddefs.h.CC*/ $4 r o maiosest $ ificGr o >&1;_array [1 - 2 * !((\2) > t0)]; >&1;_array [0]; t0_ es_ditatus,h0; }-_ACEOF L" .creatc_try_MFLAGS a"&$4 f"patibl :rm -hclo=0 -hcmid 0' he GS a:r in #(ae at $$.ddefs.h - <<_ACEOF #$$.d>&1;._dcxexa /* Rane$$.ddefs.h.CC*/ $4 r o maiosest $ ificGr o >&1;_array [1 - 2 * !((\2) < t_dcxmid)]; >&1;_array [0]; t0_ es_ditatus,h0; }-_ACEOF L" .creatc_try_MFLAGS a"&$4 f"patibl :rm -hchi=_dcxmid;ebreak' fi rm -_foatarset _dcxmid + 1X/) od lo$as_e $? L" >&1; $ahc o -le _dcxmid;etible m -hclo= -hchi=e m break' er -_foatarset 2 '*' _dcxmid + 1X/) od mid as_e $? ere conf$$re $$.d>&1;. ir $$.d>&1;._dcxobjaxtasiti>&1;._dcxexa hedirs" fi rm at $$.ddefs.h - <<_ACEOF #$$.d>&1;._dcxexa /* Rane$$.ddefs.h.CC*/ $4 r o maiosest $ ificGr o >&1;_array [1 - 2 * !((\2) &1;_array [0]; t0_ es_ditatus,h0; }-_ACEOF L" .creatc_try_MFLAGS a"&$4 f"patibl :rm -hchi=-1 od mid -1' he GS a:r in #(ae at $$.ddefs.h - <<_ACEOF #$$.d>&1;._dcxexa /* Rane$$.ddefs.h.CC*/ $4 r o maiosest $ ificGr o >&1;_array [1 - 2 * !((\2) > t_dcxmid)]; >&1;_array [0]; t0_ es_ditatus,h0; }-_ACEOF L" .creatc_try_MFLAGS a"&$4 f"patibl :rm -hclo=_dcxmid;ebreak' fi rm -_foatarset '(' _dcxmid ')' - 1X/) od hi=_d_e $? L" >&1; $ahcmid -le _dcxhi;etible m -hclo= -hchi=e m break' er -_foatarset 2 '*' _dcxmid /) od mid as_e $? ere conf$$re $$.d>&1;. ir $$.d>&1;._dcxobjaxtasiti>&1;._dcxexa hedirs" fi rm -hclo= -hchi=e ere conf$$re $$.d>&1;. ir $$.d>&1;._dcxobjaxtasiti>&1;._dcxexa ere conf$$re $$.d>&1;. ir $$.d>&1;._dcxobjaxtasiti>&1;._dcxexa # Bin{ se rchEb%;webl oe eshi bou s\/e GS as_run'" !c loe_run'" -hchi"r in #(-_foatarset '(' _dcxhi - $ahc o ')' / 2 + $ahc o /) od mid as_e $? ae at $$.ddefs.h - <<_ACEOF #$$.d>&1;._dcxexa /* Rane$$.ddefs.h.CC*/ $4 r o maiosest $ ificGr o >&1;_array [1 - 2 * !((\2) < t_dcxmid)]; >&1;_array [0]; t0_ es_ditatus,h0; }-_ACEOF L" .creatc_try_MFLAGS a"&$4 f"patibl :rm -hchi=_dcxmid' fi rm -_foatarset '(' _dcxmid ')' + 1X/) od lo$as_e $? ere conf$$re $$.d>&1;. ir $$.d>&1;._dcxobjaxtasiti>&1;._dcxexa dirs"*) as_od o dir=`( ?bug(.*\\"$3=\$ahcl-r;"-hctat $? 0|as_'')bocstat $? 1|as_d="aselilsn at $$.ddefs.h - <<_ACEOF #$$.d>&1;._dcxexa /* Rane$$.ddefs.h.CC*/ $4 ificGlarisr o lari.*\\()) status,h$2_ } ificGunpigntiolarisr o ulari.*\\()) status,h$2_ } #otod #l| #otod #l| r o maiosest $ FILE *f; tfo Ra ("$$.d>&1;..*\", "w");${aL" (! f)we hatatus,h1;${aL" ((\2) >$$.d>&1;..*\;lerud $3 <$$.d>&1;..*\;l-hctat $? 0' fi rm -hctat $? 1 ere conf$$re *.$$re $$re.$$.d>&1;.* gmon.G_F bb.G_F siti>&1;_dcxexeexalr) |$$.d>&1;._dcxobjaxtasiti>&1;.beit;$$.d>&1;._dcxexa e conf$$.d>&1;. $? m erro(.*\\\\_echo "$as_me:;hs_run'" !_echo "$as_me:1; tx|d") s_st"} as_l; unp_OP_st"} as_;} s_foatp_Ox if e;$-hctat $? } en.creatc_MFLAute_r otmen.creatc_M_\/*[^/_MFLAGS a$as_li HEADER VAR INCLUDESn-------------------- # Output ------------ # O------- # O ex_rushe "HEADER exirush esrgumbveMFLAGS d. as_fntt. otod #l 1 fictin taNCLUDES, asetle.; eveM*|h="eval sVAR accordle.ly. .creatc_M_\/*[^/_MFLAGS aest $as_st"} as_lineno_stack=as1lineno_stack=$as_lineno_stack $as_echo "$as_me:${a{"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$2"|>&5_r: $2" >_os"cle.;-_SE$2gotc"|>&6_ } L" (.*\\"s_run\"\N{$3 $as\"1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm at $$.ddefs.h - <<_ACEOF #$$.d>&1;._dcxexa /* Rane$$.ddefs.h.CC*/ $4 #otod #l|<$2>-_ACEOF L" .creatc_try_MFLAGS a"&$4 f"patibl :rm (.*\\"$3=yes"" fi rm (.*\\"$3=no"e ere conf$$re $$.d>&1;. ir $$.d>&1;._dcxobjaxtasiti>&1;._dcxexa er(.*\\Pcxresn_ap3/; q'` {a{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$-hctas"|>&5_r: $2" >\"$ahctas"|>&6_ } he(.*\\\\_echo "$as_me:;hs_run'" !_echo "$as_me:1; tx|d") s_st"} as_l; unp_OP_st"} as_;} } en.creatc_M_\/*[^/_MFLAGS tmen.creatfc_try_ a wa$as_lin-------------------- # Out exist o a wasiti>&1;._dcxexace estatus,he "$0hellucceede = .creatfc_try_ a waest $as_st"} as_lineno_stack=as1lineno_stack=$as_lineno_stack $as_echo "$as_me:${ae conf$$.d>&1;._dcxobjaxt siti>&1;_dcxexeexa${aL" { { -hctry="$ahc a w"/]* ) ((\\cxtry"; # ECH\"*|iz*\`*|iz*\\ cxtry_bug-=\$ahctryas_dibug cxtry_bug-=$ahctryas_d="as(.*\\Pcxtry_bug-="\"\NENO}: error: $2" >&$4 fi $Pcxtry_bug-\"" r: cannot crcxtry_bug-r;" |>&5_di((.*\\"$ahc a w"` #$$.d>&1;. irrm -hcstus -eq?e="L" != x;ts $$.d>&1;. irpatible="aegre\C-v|'^ *+' $$.d>&1;. ir #$$.d>&1;. i1e="ae at $$.d>&1;. i1|>&5_di mvconf$$.d>&1;. i1|$$.d>&1;. irrm error: $2" >&2 as_ferror: $2" >&$4 fi \$?; t_dcx if e"|>&5_di!= x;_dcx if e; t0;" |d") } $ZSH_VERSIahcfB_we dir_m4/pr" : != x;!_ms|$$.d>&1;. irrm }X/) >/dev sf$$.d>&1;_dcxexeexald") } $ZSH_" irs= MFLAGS= Me_coest" : a>&1;_x siti>&1;_dcxexeexa${a }patibl :rm -hctat $? 0' fi rm ell bug-autreate $ 2.0eeslet wit;waw:"|>&5_atio's/^/| /'asiti>&1;._dcxexa|>&5_ -hctat $? 1 erro# Dreeter eveIPA/IPO (I ofr Pro (dur*\\Analysis/Ol` m_prefix) otform storrro# 1erun S|by evePGIuMFLAGS te($$.d>&1;_ipa8_$$.d>&1;.oo), '\|iigwuuldrro# r of f #_set evenexa| a wasiC= EC;l-lsotereetera| thas_fn_minear#FSat elef; behin tby Apple'= MFLAGS t.CCWeddohs0helbef$re oth cale.; eveac` inchmroe cornf$$.d>&1;.dSYMf$$.d>&1;_ipa8_$$.d>&1;.oorro(.*\\\\_echo "$as_me:;hs_run'" !_echo "$as_me:1; tx|d") s_st"} as_l; unp_OP_st"} as_;} s_foatp_Ox if e;$-hctat $? } en.creatfc_try_ a wtmen.creatc_try_ a wa$as_lin-------------------- # Ou exist o a wasiti>&1;._dcxexace estatus,he "$0hellucceede = .creatc_try_ a waest $as_st"} as_lineno_stack=as1lineno_stack=$as_lineno_stack $as_echo "$as_me:${ae conf$$.d>&1;._dcxobjaxt siti>&1;_dcxexeexa${aL" { { -hctry="$ahc a w"/]* ) ((\\cxtry"; # ECH\"*|iz*\`*|iz*\\ cxtry_bug-=\$ahctryas_dibug cxtry_bug-=$ahctryas_d="as(.*\\Pcxtry_bug-="\"\NENO}: error: $2" >&$4 fi $Pcxtry_bug-\"" r: cannot crcxtry_bug-r;" |>&5_di((.*\\"$ahc a w"` #$$.d>&1;. irrm -hcstus -eq?e="L" != x;ts $$.d>&1;. irpatible="aegre\C-v|'^ *+' $$.d>&1;. ir #$$.d>&1;. i1e="ae at $$.d>&1;. i1|>&5_di mvconf$$.d>&1;. i1|$$.d>&1;. irrm error: $2" >&2 as_ferror: $2" >&$4 fi \$?; t_dcx if e"|>&5_di!= x;_dcx if e; t0;" |d") } $ZSH_VERSIahcB_we dir_m4/pr" : != x;!_ms|$$.d>&1;. irrm }X/) >/dev sf$$.d>&1;_dcxexeexald") } $ZSH_" irs= MFLAGS= Me_coest" : a>&1;_x siti>&1;_dcxexeexa${a }patibl :rm -hctat $? 0' fi rm ell bug-autreate $ 2.0eeslet wit;waw:"|>&5_atio's/^/| /'asiti>&1;._dcxexa|>&5_ -hctat $? 1 erro# Dreeter eveIPA/IPO (I ofr Pro (dur*\\Analysis/Ol` m_prefix) otform storrro# 1erun S|by evePGIuMFLAGS te($$.d>&1;_ipa8_$$.d>&1;.oo), '\|iigwuuldrro# r of f #_set evenexa| a wasiC= EC;l-lsotereetera| thas_fn_minear#FSat elef; behin tby Apple'= MFLAGS t.CCWeddohs0helbef$re oth cale.; eveac` inchmroe cornf$$.d>&1;.dSYMf$$.d>&1;_ipa8_$$.d>&1;.oorro(.*\\\\_echo "$as_me:;hs_run'" !_echo "$as_me:1; tx|d") s_st"} as_l; unp_OP_st"} as_;} s_foatp_Ox if e;$-hctat $? } en.creatc_try_ a wt at #$$.dig.log <<_ACEOF xshelfGS asitadvash ylould # ssletduc S|by MFLAGS tshe GS runa() $$.digure,s" aidJGe/nugle.; f $$.digurealik'sh mi ike. It;wawe1erun S|by REPOtreaterRT='',he Gch;waw generrulS|by PPM sensitiv2.67.CCInvc_c` in;siC= EC| a e;waw rm e as_$@ -_ACEOF he ho5>#$$.dig.logt $*)t <<_ASUNAMEt ----------- ##t --Platform. ##t ----------- ##tm2>/das_ex= `(2>/das_ex|| uns_expn)ho X"$as_dir" g"`;;1q` uns_expmx= `(uns_expm)ho X"$as_dir" | bug-aunknown` uns_exprx= `(uns_expr)ho X"$as_dir" | bug-aunknown` uns_expsx= `(uns_exps)ho X"$as_dir" | bug-aunknown` uns_expvx= `(uns_expv)ho X"$as_dir" | bug-aunknown` se bin/uns_exppx= `(se bin/uns_expp)ho X"$as_dir" | bug-aunknown` bin/uns_expX = `(sbin/uns_expX)ho X"$as_dir""""" | bug-aunknown` sbin/ rchEEEEEEEEEEEEEE= `(sbin/ rch)ho X"$as_dir"""""""""""""" | bug-aunknown` e bin/ rchE-kEEEEEEE= `(se bin/ rchE-k)ho X"$as_dir""""""" | bug-aunknown` e $$.vex/getsysitfo|= `(se $$.vex/getsysitfo)ho X"$as_dir" | bug-aunknown` e bin/2>/ditfo|EEEEE= `(se bin/2>/ditfo)ho X"$as_dir"""""" | bug-aunknown` bin/machARt EEEEEEEEEE= `(sbin/machARt)ho X"$as_dir""""""""""" | bug-aunknown` e bin/oslevel |EEEEE= `(se bin/oslevel)ho X"$as_dir""""""" | bug-aunknown` bin/unid speEEEEEEEEEE= `(sbin/unid spe)ho X"$as_dir"""""""""" | bug-aunknown` _ASUNAMEt reasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e har: cannot d=fa: Ias_S= $ hedirs"IFS=$reasave_IFS_ |>&5_t at #&5 <<_ACEOF at ------------- ##t --C$re != xs. ##t ------------- ##tm_ACEOF at Kee\Ca trac Ge on sosiC= EC| a e. veStrip0G_F --no-rerun w EC|--no-eacuspl thslon sybash 2.0pGS aup. veStrip0G_F --s_dintwbecausl we_dir't wants" eacord|iig__SEfu+\"\ runs. veAlsotquon w E_mrtasasitadva= M st allmeta-characof s. veMik'. witpassls|nitalrowt__SEIrop tedupli ate-rtable atsuppreonto = .cr$$.digure_rtas= .cr$$.digure_rtas0= .cr$$.digure_rtas1= .crmu1;_kee\_nexa=fafi r-_SEPcxpassi # 1 2/ tes-_SEPcx*$a coin #(ae a as_od *$aei; -no-rerun w| --no-r*|iz-t|iz-no-eacuspl th| --no-r*)e # aexieg_dirs="-qliz-quienwiz--quienwiz--quiewiz--quiwiz--quwiz--qlr) | |iz-s_dintwiz--s_dintwiz--s_dinwiz--s_diwiz--s_d) hen e # aexieg_dirs="*\'*) elif ctara=_r: cannot crcxara''/g"`;;"s/'/'\\\\\\\\''/g"` _dirs="as_qdir' a as_od passi #dir' 1 eeat# InEC|.cr$$.digure_rtas0 " 'crcxara'" _dirs="2) elif lneat# InEC|.cr$$.digure_rtas1 " 'crcxara'"irs="'$L" >&1; $ahcmu1;_kee\_nexaE= true;etible .crmu1;_kee\_nexa=fafi enGmigs_tue,sbPPM|nitnorm l.irs="'$ fi r a as_od *$aei; EC*=*wiz--$$.dig-]*|iz-C|iz-d alias-*wiz--d alias-*w/\)[wiz-)ned e-*wiz--)ned e-*wiz-gas|iz--g*|iz-tfph| --nf*w/\)[wiz-qliz-quienwiz--q*|iz-s_dintwiz--s_d*|iz-v|iz-d sb*w/\)[wiz-_set-*|iz--_set-*wiz-_setout-*|iz--_setout-*|iz--x)/; q'`]* ) docs$$.digure_rtas0 " i; ECCCCC docs$$.digure_rtas1"*" 'crcxara' "* )e # aexieg_di rs="as_qd rs="_di rs-* )e.crmu1;_kee\_nexa=true"_di as_qdir' m erroelif lneat# InEC|.cr$$.digure_rtas " 'crcxara'"irs="'$_dirs="as_qdirdirs"dirs"{|.cr$$.digure_rtas0l; unp_OP_cr$$.digure_rtas0;} {|.cr$$.digure_rtas1l; unp_OP_cr$$.digure_rtas1;} elvith r of rupulS|_SEexit'd, cleanup >&mporrfy 1 fical esroal "te, tMF.dig.log.CCWedremovn siC=e ac[becausl E_wdy tshequon s x$as_mre, twuuldlcauslEIrod ems|_SElook u.ly. #$WARNING:iUs n'\''s" eapreointwe..2p>/droph #_setx$as_mytrap. #$WARNING:iDoh 2.0 ie dt potrap cly /WIet a newcho , durom ca FreeBSD 4.0d/nu. trap 'exitcstus -eq?e="veS-p'.r ootMF.dig.logtsld Gr form storlinearginal help; #JGe/nugle..irs{ e banno 9e har: cannot ------------------ ##t --C*|h="eval s. ##t ------------------ ##" e banno e bight.s-_lrow= M wdy ce writle.; eveM*|mi h efictnewcho s x$as_tues, (tes-_SEPcx x\qdi `(p_O` #&1'/g"`;;-t|'\''s/^\([a-zA-Z_][a-zA-Z0-9_]op =.*.*/.p'\''`r in #(ae(.*\\Pcx xln_apPcx x\ haco*) as_dcx.*\\ #r=`$as_e*errornl}*) elif*) as_dcx.*\qdir=`$as_ech*xcvx*)a{"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING:iM*|h="eval s_dcx.*\qsitadvash tnewcho "|>&5_r: $2" >\"$aeate $WARNING:iM*|h="eval s_dcx.*\qsitadvash tnewcho "|>&2;}g_dirs="'$as_qdir' m *) as_dcx.*\qdir=`$as_ech_'/gIFS ot crnlug_dr=`$as_echBASH_ARGV otBASH_SOURCE) (.*\\\\cx x\=g_dr=`$as_ech*)a{"(.*\\\\cx x\=; unp_OP\\cx x\;}g_dirs="'$as_q$_dirs="as_qdirdirs" (p_O` #&1'/ haco*) as_dcrnl`(dcx pac ='\''s'\''; p_O` #&1`\ #r=`$as_e*errornl}dcx pac =\ *) elif"`;;-t|/\)"s/'\''/'\''\\\\'\'''\''/g; test ^\\([ test -n "$DJD*xcvx[ test -n "$DJD*\p =\/*$'p\)/\\1='\''\\2'\''/p"irs="'$_dr=`$as_e*) elif"`;;-t|"/^[ test -n "$DJD*xcvx[ test -n "$DJD*=/p"irs="'$_dirs="as_qt hen sort ) e banno 9e har: cannot ------------------- ##t --O_FD, rh="eval s. ##t ------------------- ##" e banno e b__SEPcx x\qdi /od sub1;_h="f e bin #(aeae(.*\\Pcx xln_apPcx x\ hacoco*) as_dcx.*\\ # ECCC="*\'\''bug cx $? -r: cannot crcx.*\][/g"`;;"s/'\''/'\''\\\\\\\\'\'''\''/g"`_dirs="'$as_qdir' m r: cannot crcx.*r='\''crcx.*\'\''" e binn|izsort e banno 9e hal 2>&1; t0 &1; tse$$.ddefs.hpatible="ae or: cannot ------------- ##t --$$.ddefs.h.C##t ------------- ##" e b banno e b b at $$.ddefs.h e b banno e b_i e b$ZSH_" od sign*\][! t0xe elifr: cannot create $caunal sign*\ od sign*\] elifr: cannot create $hei d_exitcstus -] el |>&5_die conf$$re *.$$re $$re.$$.d>&1;.* e ele conf-r $$.d>&1;* $$.ddefs* $$.d$$* od clean_1 fic e elhei d_exitcstus - ' 0r-_SEPcxsign*\ # 1 2 13 15r in #(trap 'Pcxsign*\=' od sign*\'; lneathei d1' od sign*\"dirs"Pcxsign*\=0 --$$.ddefs.h avoids OS;siC= EC| a e;dinget limiussinearDEFS rgumexceed. e conf-r $$.d>&1;* $$.ddefs.h _r: $2" >\"/* $$.ddefs.h */"|>|$$.ddefs.h _# PredefARti leaIro () otedev/null E at #>$$.ddefs.h <<_ACEOF #defARt = CKAGE_NAMEt c= CKAGE_NAME"m_ACEOF a at #>$$.ddefs.h <<_ACEOF #defARt = CKAGE_TARNAMEt c= CKAGE_TARNAME"m_ACEOF a at #>$$.ddefs.h <<_ACEOF #defARt = CKAGE_VERSIONt c= CKAGE_VERSION"m_ACEOF a at #>$$.ddefs.h <<_ACEOF #defARt = CKAGE_STRINGt c= CKAGE_STRING"m_ACEOF a at #>$$.ddefs.h <<_ACEOF #defARt = CKAGE_BUGREPORTt c= CKAGE_BUGREPORT"m_ACEOF a at #>$$.ddefs.h <<_ACEOF #defARt = CKAGE_URLt c= CKAGE_URL"m_ACEOF at Lse t positl 1 fig"`las_ e..2lof nftveM*|1 figl 2it wants|ni._# Prefer gumexpli itto s`las_ti 1 figm cautom stcalto s`las_ti irss."Pcxsitoj_di1=NONE"Pcxsitoj_di2=NONE"l 2>&1; t0 /dev r E od sitoj_di$patible="ae{"r: $2" >&2 as_ferror: $2" >&$4 fi loanle.;sitl ing 1 i od sitoj_di$X>&5_r: $2" >\"$aeate $loanle.;sitl ing 1 i od sitoj_di$X>&6;} hen atio's/^/| /'a" od sitoj_di$X>&5_di .a" od sitoj_di$X\ elif : { {"r: $2" >&2 as_ferror: $2" >&$4 fi e dir: dir\`\\cxpwd':$X>&5_r: $2" >\"$aeate $e dir: dir\`\\cxpwd':$X>&2;} acreate director 2.0ees o oan;sitl ing 1 i od sitoj_di See \nce sof.log'E^/]*m$re deadvls"a"&$4 f" 5_ } hevaldirs" l 2>&1; tr E M*oj_di$patible="# Sld Gd splitting bash/WITHO 2.0." aourct X"$as_dir"(sthis*\ 1 ficwe en.ctualto),Gso we_avoidddole.; eat. DJGPP emulan s xOP_ssa regula/ 1 fi. eL" != x;X"$as_dir"!=r" M*oj_di$X/) >/dev f E M*oj_di$patible="ae{"r: $2" >&2 as_ferror: $2" >&$4 fi loanle.;M*| M*oj_di$X>&5_r: $2" >\"$aeate $loanle.;M*| M*oj_di$X>&6;} hen *) as_M*oj_di\ # ECCC=";; *)iz?:;; *) a. E M*oj_di$pdirs="'$*ug oooooooooooooooooooo. ExitM*oj_di$pdirs="as_qdir-p' fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi cerunle.;M*| M*oj_di$X>&5_r: $2" >\"$aeate $cerunle.;M*| M*oj_di$X>&6;} he> M*oj_diHthat wC inearion 'mpcious erfere witsaved x$as_myM*| -p'.kepe t posame, ts_tue= .cr$*o$$rrupulS=fafi r-_SEPcx x\qdi /od ompciousoh="fr in #((.*\\Pcxold$1 }= \acxcvxenv_${Pcx x\}$1 } #((.*\\Pcxnew$1 }= \acxenv_${Pcx x\}$1 } #((.*\\Pcxold$ xln_aacxcvxenv_${Pcx x\}$ut un (.*\\Pcxnew$ xln_aacxenv_${Pcx x\}$ut un *) as_dcxold$1 },$Pcxnew$1 }\ # ECCC1 },) elif{"r: $2" >&2 as_ferror: $2" >&$4 fi e dir: \`\\cx x\';wawease io \`\\cxold$ xl' x$as_myompvious run$X>&5_r: $2" >\"$aeate $e dir: \`\\cx x\';wawease io \`\\cxold$ xl' x$as_myompvious run$X>&2;} hen enahcB*o$$rrupulS=:$_dirs=",p_O` elif{"r: $2" >&2 as_ferror: $2" >&$4 fi e dir: \`\\cx x\';wawe 2.0 }\ #as_myompvious run$X>&5_r: $2" >\"$aeate $e dir: \`\\cx x\';wawe 2.0 }\ #as_myompvious run$X>&2;} hen enahcB*o$$rrupulS=:$_dirs=",)_dirs="*uirs="'$L" >&1; '" !c old$ xle_run'" -hcnew$ xl$patible # diff nctrtin white pac ddoh miglrud nitf2.0tway% !c old$ xl_w=`2" >\x !c old$ xl`% !c new$ xl_w=`2" >\x !c new$ xl`% l 2>&1; " sc_old$ xl_w""!=r" od new$ xl_w$patible if{"r: $2" >&2 as_ferror: $2" >&$4 fi e dir: \`\\cx x\';hawe1hangen;sincens_myompvious run:$X>&5_r: $2" >\"$aeate $e dir: \`\\cx x\';hawe1hangen;sincens_myompvious run:$X>&2;} enahcB*o$$rrupulS=: fi r if{"r: $2" >&2 as_ferror: $2" >&$4 fi w 1nle.: ign/r= M white pac d1hanges dir\`\\cx x\';sincens_myompvious run:$X>&5_r: $2" >\"$aeate $w 1nle.: ign/r= M white pac d1hanges dir\`\\cx x\';sincens_myompvious run:$X>&2;} en(.*\\\\cx x\=\ sc_old$ xl er {"r: $2" >&2 as_ferror: $2" >&$4 fi b__Smerts_tue \`\\cxold$ xl'$X>&5_r: $2" >\"$aeate $ b__Smerts_tue \`\\cxold$ xl'$X>&2;} {"r: $2" >&2 as_ferror: $2" >&$4 fi bcurrNV=/detue \`\\cxnew$ xl'$X>&5_r: $2" >\"$aeate $ bcurrNV=/detue \`\\cxnew$ xl'$X>&2;} hen enfi_dirsd="ase enPassi'mpcious erfere witootMF.dig.stus -. eL" != x;"$Pcxnew$1 }1; t $apatibl haco*) as_dcxnew$ xl\ # ECCC*\'*)f ctara=\\cx x\=-r: cannot crcxnew$ xl$'/g"`;;"s/'/'\\\\\\\\''/g"` _dirs="*)f ctara=\\cx x\=_dcxnew$ xl\_dirs="as_qdir' a as" docs$$.digure_rtas "\ # ECCC="*" 'crcxara' "*ug_dr= Avoidddups.CCUs nng quon s enstwas accuracy.irs="'$*ug lneat# InEC|.cr$$.digure_rtas " 'crcxara'" pdirs="as_qdir-p'dirs"L" /od B*o$$rrupulSpatibl ha{"r: $2" >&2 as_ferror: $2" >&$4 fi e dir: dir\`\\cxpwd':$X>&5_r: $2" >\"$aeate $e dir: dir\`\\cxpwd':$X>&2;} ha{"r: $2" >&2 as_ferror: $2" >&$4 fi e dir: 1hanges dirs_myenvironmNV=/canuMFLAromis ntt. al pd$X>&5_r: $2" >\"$aeate $e dir: 1hanges dirs_myenvironmNV=/canuMFLAromis ntt. al pd$X>&2;} s_foate director(hos\`ms thdistclean'l e/s_f\`rm| M*oj_di' s esp ie ds, i"a"&$4 f" 5Htha -------------------- #C##t --Maiosbody ce ing 1 . ##t -------------------- # ##tmacxexa=assc_cpp='$val $valthis ' .cr$$LAGS ='$vC -c $vthis $valthis asiti>&1;._dcxexa|>&5' .cr a w='$vC -of$$.d>&1;_dcxexeexal$vthis $valthis a$LDthis siti>&1;._dcxexa|$LIBS >&5' .crMFLAGS t_gnu=aacxcvxcrMFLAGS t_gnu at Re }\exiru= M leaIro () le.;-4/pchtouch ./src/ppm_defARt.h e c./src/ppm_defARt.h touch ./src/ppm_defARt.h at L" MPI vs )ned ed nry grabble.; eos nMFLAGS te # In ss1 r1; use_LAG=not wC e "--)ned e-mpi;waweglven.ll 2>&1; " {)ned e_LAG $as1; t $apatibl :rm )ned e $? _)ned e_LAG; L" >&1; '" )ned e $?1; txestpatible="ae{"r: $2" >&2 as_ferror: $2" >&$4 fi ***wC -_SE E_mMPI o MFLAGS a EC| a k/WIet ***$X>&5_r: $2" >\"$aeate $***wC -_SE E_mMPI o MFLAGS a EC| a k/WIet ***$X>&6;} ilsn {"r: $2" >&2 as_ferror: $2" >&$4 fi ***wF r1; M L" rergumuslE )ned e $? o MFLAGS a EC| a k/WIet ***$X>&5_r: $2" >\"$aeate $***wF r1; M L" rergumuslE )ned e $? o MFLAGS a EC| a k/WIet ***$X>&6;} tha M -_SEnn|e on so-_lrow= M MPI distribxi inch# OInEMPIt LAMMPIt MPICHt MPICH2 # r ofl MPIt Sun ClusterTools (tmcc,tmCC,tmf77,tmf90) taBM POE (mpcc_r,mpCC_r,mpxlf_r) veMiny|e on soe val "as_var=1;g -p'.nsed # In t # Ur L" >&1; '" )ned e $?1; txo RaLAGpatible="ae# Extractntt. 1 r1; word|e o"LAGcc",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy LAGcc;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICC$X/) od Bvxlet _MPICC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICC$X>&5_r: $2" >\"$MPICC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGcca-_SEOInEMPI"a"&$4 f" 5H fi rm CC=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICXX" /) od Bvxlet _MPICXX=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICXX" >&5_r: $2" >\"$MPICXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICXX" tx""nopatibl :rm -_foate directorCuuldl migfin tLAGc++a-_SEOInEMPI"a"&$4 f" 5H fi rm CXX=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPIFC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPIFC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPIFC$X/) od Bvxlet _MPIFC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPIFC$X>&5_r: $2" >\"$MPIFC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPIFC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGf90a-_SEOInEMPI"a"&$4 f" 5H fi rm FC=&1; '" )ned e $?1; txlamLAGpatible="ae# Extractntt. 1 r1; word|e o"LAGcc",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy LAGcc;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICC$X/) od Bvxlet _MPICC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICC$X>&5_r: $2" >\"$MPICC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGcca-_SELAM/MPI"a"&$4 f" 5H fi rm CC=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICXX" /) od Bvxlet _MPICXX=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICXX" >&5_r: $2" >\"$MPICXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICXX" tx""nopatibl :rm -_foate directorCuuldl migfin tLAGCCa-_SELAM/MPI"a"&$4 f" 5H fi rm CXX=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPIFC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPIFC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPIFC$X/) od Bvxlet _MPIFC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPIFC$X>&5_r: $2" >\"$MPIFC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPIFC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGf90a-_SELAM/MPI"a"&$4 f" 5H fi rm FC=&1; '" )ned e $?1; txLAGchpatible="ae# Extractntt. 1 r1; word|e o"LAGcc",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy LAGcc;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICC$X/) od Bvxlet _MPICC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICC$X>&5_r: $2" >\"$MPICC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGcca-_SEMPICH"a"&$4 f" 5H fi rm CC=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICXX" /) od Bvxlet _MPICXX=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICXX" >&5_r: $2" >\"$MPICXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICXX" tx""nopatibl :rm -_foate directorCuuldl migfin tLAGCCa-_SEMPICH"a"&$4 f" 5H fi rm CXX=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPIFC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPIFC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPIFC$X/) od Bvxlet _MPIFC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPIFC$X>&5_r: $2" >\"$MPIFC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPIFC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGf90a-_SEMPICH"a"&$4 f" 5H fi rm FC=&1; '" )ned e $?1; txLAGch2patible="ae# Extractntt. 1 r1; word|e o"LAGcc",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy LAGcc;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICC$X/) od Bvxlet _MPICC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICC$X>&5_r: $2" >\"$MPICC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGcca-_SEMPICH 2"a"&$4 f" 5H fi rm CC=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICXX" /) od Bvxlet _MPICXX=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICXX" >&5_r: $2" >\"$MPICXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICXX" tx""nopatibl :rm -_foate directorCuuldl migfin tLAGcxxa-_SEMPICH 2"a"&$4 f" 5H fi rm CXX=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPIFC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPIFC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPIFC$X/) od Bvxlet _MPIFC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPIFC$X>&5_r: $2" >\"$MPIFC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPIFC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGf90a-_SEMPICH 2"a"&$4 f" 5H fi rm FC=&1; '" )ned e $?1; txr oflLAG_gnupatible="ae# Extractntt. 1 r1; word|e o"LAGgcc",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy LAGgcc;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICC$X/) od Bvxlet _MPICC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICC$X>&5_r: $2" >\"$MPICC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGgcca-_SEI ofl MPI + PPM CFLAGS ts"a"&$4 f" 5H fi rm CC=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICXX" /) od Bvxlet _MPICXX=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICXX" >&5_r: $2" >\"$MPICXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICXX" tx""nopatibl :rm -_foate directorCuuldl migfin tLAGg++a-_SEI ofl MPI + PPM CFLAGS ts"a"&$4 f" 5H fi rm CXX=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPIFC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPIFC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPIFC$X/) od Bvxlet _MPIFC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPIFC$X>&5_r: $2" >\"$MPIFC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPIFC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGg-_Strana-_SEI ofl MPI + PPM CFLAGS ts"a"&$4 f" 5H fi rm FC=&1; '" )ned e $?1; txr oflLAG_r oflpatible="ae# Extractntt. 1 r1; word|e o"LAGGcc",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy LAGGcc;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICC$X/) od Bvxlet _MPICC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICC$X>&5_r: $2" >\"$MPICC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGgcca-_SEI ofl MPI +EI ofl CFLAGS ts"a"&$4 f" 5H fi rm CC=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICXX" /) od Bvxlet _MPICXX=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICXX" >&5_r: $2" >\"$MPICXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICXX" tx""nopatibl :rm -_foate directorCuuldl migfin tLAGcpca-_SEI ofl MPI +EI ofl CFLAGS ts"a"&$4 f" 5H fi rm CXX=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPIFC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPIFC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPIFC$X/) od Bvxlet _MPIFC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPIFC$X>&5_r: $2" >\"$MPIFC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPIFC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAGi-_Sta-_SEI ofl MPI +EI ofl CFLAGS ts"a"&$4 f" 5H fi rm FC=&1; '" )ned e $?1; txsunpatible="ae# Extractntt. 1 r1; word|e o"tmcc",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy tmcc;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICC$X/) od Bvxlet _MPICC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICC$X>&5_r: $2" >\"$MPICC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICC$X tx""nopatibl :rm -_foate directorCuuldl migfin ttmcca-_SESun MPI"a"&$4 f" 5H fi rm CC=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICXX" /) od Bvxlet _MPICXX=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICXX" >&5_r: $2" >\"$MPICXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICXX" tx""nopatibl :rm -_foate directorCuuldl migfin ttmCCa-_SESun MPI"a"&$4 f" 5H fi rm CXX=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPIFC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPIFC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPIFC$X/) od Bvxlet _MPIFC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPIFC$X>&5_r: $2" >\"$MPIFC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPIFC$X tx""nopatibl :rm -_foate directorCuuldl migfin ttmf90a-_SESun MPI"a"&$4 f" 5H fi rm FC=&1; '" )ned e $?1; txrbmpatible="ae# Extractntt. 1 r1; word|e o"LAcc_r",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy LAcc_r;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICC$X/) od Bvxlet _MPICC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICC$X>&5_r: $2" >\"$MPICC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAcc_ra-_SEIBM MPI"a"&$4 f" 5H fi rm CC=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPICXX" /) od Bvxlet _MPICXX=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICXX" >&5_r: $2" >\"$MPICXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPICXX" tx""nopatibl :rm -_foate directorCuuldl migfin tLACC_ra-_SEIBM MPI"a"&$4 f" 5H fi rm CXX=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPIFC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPIFC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ $ZSH_VERSIahcBvxlet _MPIFC$X/) od Bvxlet _MPIFC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPIFC$X>&5_r: $2" >\"$MPIFC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e hal 2>&1; '" MPIFC$X tx""nopatibl :rm -_foate directorCuuldl migfin tLAxf90_a-_SEIBM MPI"a"&$4 f" 5H fi rm FC=&1; '" )ned e $?1; txguestpatible="ae-_SEPcxlet | # LAGccaLAGgccaLAGGccttmccaLAcc_r/ tes# Extractntt. 1 r1; word|e o"$Pcxlet ",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy $Pcxlet ;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erMPICC=IahcBvxlet _MPICC l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICC$X>&5_r: $2" >\"$MPICC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e >&1; t0 &1; t0 &1; '" MPICC$X tx""nopatibl :rm {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: Cuuldl migfin tiny|mpi;w # In t-_SEP C MFLAGS r$X>&5_r: $2" >\"$ as_f WARNING: Cuuldl migfin tiny|mpi;w # In t-_SEP C MFLAGS r$X>&2;} ilsn CC=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPICXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPICXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erMPICXX=IahcBvxlet _MPICXX l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPICXX" >&5_r: $2" >\"$MPICXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e >&1; t0 &1; t0 &1; '" MPICXX" tx""nopatibl :rm {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: Cuuldl migfin tiny|mpi;w # In t-_SEP C++aMFLAGS r$X>&5_r: $2" >\"$ as_f WARNING: Cuuldl migfin tiny|mpi;w # In t-_SEP C++aMFLAGS r$X>&2;} ilsn CXX=&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _MPIFC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _MPIFC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erMPIFC=IahcBvxlet _MPIFC l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$MPIFC$X>&5_r: $2" >\"$MPIFC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e >&1; t0 &1; t0 &1; '" MPIFC$X tx""nopatibl :rm {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: Cuuldl migfin tiny|mpi;w # In t-_SEP F_StranaMFLAGS r$X>&5_r: $2" >\"$ as_f WARNING: Cuuldl migfin tiny|mpi;w # In t-_SEP F_StranaMFLAGS r$X>&2;} ilsn FC=&2 as_ferror: $2" >&$4 fi fou CCa$CXX $FC$X>&5_r: $2" >\"$ as_f fou CCa$CXX $FC$X>&6;} ilL" >&1; '" )ned e $?1; txyetpatible="ae{"r: $2" >&2 as_ferror: $2" >&$4 fi You wouldllikn >oousl CCa$CXX $FC >ooMFLAGS xWIet MPI supp_St"X>&5_r: $2" >\"$ as_f You wouldllikn >oousl CCa$CXX $FC >ooMFLAGS xWIet MPI supp_St"X>&6;} ilsn m -_foate directorCuuldl migreocgnizrtiois MPI implementat in:;$)ned e $?1;"&$4 f" 5Hthat e b# MFLAGS rs shuuldlbve" >sble="aeusl_LAG=yet fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi MPI wasl mig)ned ed. Buildle.;non-parallel , is in|e oPPM."X>&5_r: $2" >\"$ as_f MPI wasl mig)ned ed. Buildle.;non-parallel , is in|e oPPM."X>&6;} that9:;${CXXFLAGS="-O3"}9:;${CFLAGS="-O3"}9:;${FCFLAGS="-O3"}9 # Cst-_SEbasic MFLAGS rtind flags Pcxhet=cpp Pcxcpp='$CXXCPPa$CPPFLAGS' PcxcFLAGS ='$CXX -ca$CXXFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CXX -o MFnf>&1;$Pcxhe hetX$CXXFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxxxMFLAGS r_gnu l 2>&1; tERSICXX"{as_linenl 2>&1; t0 &1; t0 &2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _CXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _CXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erCXX=IahcBvxlet _CXX l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$CXX" >&5_r: $2" >\"$CXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e ha>&1; t0 &1; tERSICXX"{as_linenahcBt_CXX=/CXX en-_SEPcxlet | # g++ac++tgpp aCCaCCacxxacc++tcl.he FCC KCC RCC xlC_raxlC" tes# Extractntt. 1 r1; word|e o"$Pcxlet ",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy $Pcxlet ;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _ahcBt_CXX $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _ahcBt_CXX=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erahcBt_CXX=/ahcBvxlet _ahcBt_CXX l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$ahcBt_CXX" >&5_r: $2" >\"$ hcBt_CXX" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9e >&1; t0 &1; '" hcBt_CXX" tx{as_linen CXX="g++" elilsn m casl crossxMFLAGSle.:/Pcxtoolxwarned| # yet:) {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&5_r: $2" >\"$ as_f WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&2;} Pcxtoolxwarned=yet ;; esacnen CXX=/ahcBt_CXX ir-p'that e-p'tha# Proverrtso_exin-_Smat in aboue t poMFLAGS r._r: $2" >\"$ as_ferror: $2" >&$4 fi cle.;-_SEC++aMFLAGS r , is in"X>&5_ }\X;$ahcBFLAGS PcxMFLAGS r=$2 -_SEPcxopt in # --, is in|-v -V -q, is inr in #({({(Pcxtry=&5" casl "(($Pcxtry"| # *\"* | *\`* | *\\*)(Pcxtry$2" >=\$Pcxtry;; *)(Pcxtry$2" >=$Pcxtry;; esacne $?(Pcxtry$2" >="\"\$ as_ferror: $2" >&$4 fi $Pcxtry$2" >\""_r: $2" >\"$ hctry$2" >$; }X>&5_di(e $?(&5") 2>MFnf>&1;. irnenahcstatus=$?rm l 2>&1; ts MFnf>&1;. ir{as_linen sed|'10a\ gotcr&1; e ostd ir ouepue deleted|gotnen 10q' MFnf>&1;. ir >MFnf>&1;. i1 m cat MFnf>&1;. i1X>&5_di ere rmv f MFnf>&1;. i1XMFnf>&1;. irnenr: $2" >\"$ as_ferror: $2" >&$4 fi \$? t$ahcstatus$X>&5_di>&1; $ahcstatus t0_ } dirs" cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {at e; returnt0_ } _ACEOF PcxMlean_fGS easave=/ahcBlean_fGS e PcxMlean_fGS e=ooMreatve n oth cases,|WIetoue -o 1 r1;, disregard|a.oue.a# I; will help us diagnosl brokenaMFLAGS rs,tind findle.;oue an #tuit ina# e ohe het. {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;whes_lr t poC++aMFLAGS r works"|>&5_r: $2" >_os"cle.;whes_lr t poC++aMFLAGS r worksgotc"|>&6_ } Pcx: $k_defas_v=`r: $2" >\"$ hc: $k" | sed|'s/ -o *MFnf>&1;[^ ]*//'`9 # T popossies,|ouepue fGS e: PcxfGS e=&1;. xe MFnf>&1; a.he a_oue.he b.oue MFnf>&1;.*" PcxrmfGS e= -_SEPcxfGS | # $PcxfGS e/ tescasl PcxfGS | # m *.$PcxhetX| *.xcoffX| *.tdsX| *.dX| *.pdbX| *.xSYM | *.bb | *.bbg | *.map | *.in-X| *.dSYM | *.o | *.obj ) ;; m * )(PcxrmfGS e="$ hcrmfGS e PcxfGS ";; esacndirs"rmv f $ hcrmfGS e L" { {(Pcxtry==\$Pcxtry;; *)(Pcxtry$2" >=$Pcxtry;; esacne $?(Pcxtry$2" >="\"\$ as_ferror: $2" >&$4 fi $Pcxtry$2" >\""_r: $2" >\"$ hctry$2" >$; }X>&5_di(e $?(&5_diahcstatus=$?rm r: $2" >\"$ as_ferror: $2" >&$4 fi \$? t$ahcstatus$X>&5_di>&1; $ahcstatus t0_ }patibl :rm # AutoMFnf-2.13 MFuldlsse t poahcBvxhe hetXvarises,|>oo`no'.a# So ignorve c $?ue e o`no', os_lrwisrtiois wouldllead|>oo`EXEEXT tno'a# # a MakefGS . We shuuldl migs, irerrtahcBvxhe hetXL" itswaslM*d,a# so thae t pouslrdrgumshurt-circuittiois >&1; -_SEMFLAGS rs unknown|>o # AutoMFnf. -_SEPcxfGS | # $PcxfGS e ''/ tes>/dev f E ocxfGS "X|| MFntinuetescasl PcxfGS | # m *.$PcxhetX| *.xcoffX| *.tdsX| *.dX| *.pdbX| *.xSYM | *.bb | *.bbg | *.map | *.in-X| *.dSYM | *.o | *.obj ) ;; m [ab].oue ) # We fou t podefas_v oth cases,, butohe het='' is m>se # certa #ly right. break;; m *.* ) L" >&1; " {acxcvxhe het $as1; t $a /) >&1; " acxcvxhe het" ! tno; tibl :;lilsn enahcBvxhe het=`expr E ocxfGS "X: '[^.]*\(\..*\)'`9 er # We $a ahcBvxhe hetX_lr becausrtion latvr >&1; -_SEittisl mir # saf_f cross MFLAGS rs mayl migad t posuffixXL" givbl gum`-o'a # argument,Gso we mayl eed|>ooknowEittae t ae po #t already.a # Evbl L" >ois sect in looks Mrufty:Eitthaslt poadvantage e a # actually workle.. break;; m * ) break;; esacndirs">&1; " acxcvxhe het" tnoX/) od Bvxhe het= fi rm ocxfGS =''"thal 2>&1; tERSIPcxfGS ";atibl :rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } r: $2" >\"$ as_f faGS dclet wit;was:"X>&5_ d|'s/^/| /' MFnf>&1;.$PcxhetX>&5 { {"r: $2" >&2 as_ferror: $2" >&$4 fi e dir:| # \`/ahclwd':"X>&5_r: $2" >\"$ as_f e dir:| # \`/ahclwd':"X>&2;} P_foate dire77 "C++aMFLAGS r rgu migMreatveoth cases,s See \`MFnfig.log' -_SEmorvedeta ls"a"&$4 f" 5_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;yet"X>&5_r: $2" >\"yet"X>&6_ } tha{"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEC++aMFLAGS r defas_v ouepue fGS ;ns_e"|>&5_r: $2" >_os"cle.;-_SEC++aMFLAGS r defas_v ouepue fGS ;ns_egotc"|>&6_ } {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcfGS "X>&5_r: $2" >\"$ hcfGS "X>&6_ } Pcxhe het= acxcvxhe het "rmv f -r a.oue a.oue.dSYM a.he MFnf>&1;$PcxBvxhe hetXb.oue PcxMlean_fGS e=/ahcBlean_fGS easavea{"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEsuffixXe ohe cases,s"|>&5_r: $2" >_os"cle.;-_SEsuffixXe ohe cases,sgotc"|>&6_ } L" { {(Pcxtry==\$Pcxtry;; *)(Pcxtry$2" >=$Pcxtry;; esacne $?(Pcxtry$2" >="\"\$ as_ferror: $2" >&$4 fi $Pcxtry$2" >\""_r: $2" >\"$ hctry$2" >$; }X>&5_di(e $?(&5_diahcstatus=$?rm r: $2" >\"$ as_ferror: $2" >&$4 fi \$? t$ahcstatus$X>&5_di>&1; $ahcstatus t0_ }patibl :rm # If bos_ `MFnf>&1;. xe'tind `MFnf>&1;'tirve`p $aent' (well, obslrvses,) # catc_ `MFnf>&1;. xe'. F_SEinstancexWIet Cygwin, `ls MFnf>&1;' will # workcletperly (i.e., $fvr >o `MFnf>&1;. xe'),;whGS | ; won'txWIet # `rm'. -_SEPcxfGS | # MFnf>&1;. xe MFnf>&1; MFnf>&1;.*r in #(>/dev f E ocxfGS "X|| MFntinuetescasl PcxfGS | # m *.$PcxhetX| *.xcoffX| *.tdsX| *.dX| *.pdbX| *.xSYM | *.bb | *.bbg | *.map | *.in-X| *.dSYM | *.o | *.obj ) ;; m *.* )nahcBvxhe het=`expr E ocxfGS "X: '[^.]*\(\..*\)'`9 break;; m * )(break;; esacndirs" fi rm {"{"r: $2" >&2 as_ferror: $2" >&$4 fi e dir:| # \`/ahclwd':"X>&5_r: $2" >\"$ as_f e dir:| # \`/ahclwd':"X>&2;} P_foate directorrgu migMFLAuteEsuffixXe ohe cases,s: rgu migMFLAGS |ind : $k See \`MFnfig.log' -_SEmorvedeta ls"a"&$4 f" 5_ } tharmv f MFnf>&1; MFnf>&1;$PcxBvxhe het {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahccvxhe het" >&5_r: $2" >\"$ hcBvxhe het" >&6_ } armv f MFnf>&1;.$Pcxhet EXEEXT= acxcvxhe het Pcxhe het= EXEEXT cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #inclurrt int ma # () {aFILE *f tftpe# ("MFnf>&1;.oue", "w"); returntfe dire(f)X|| fclosl (f)X! t0_at e; returnt0_ } _ACEOF PcxMlean_fGS e=&1;.oue" # C thae t poMFLAGS r letduc e he cases,s we rgumrun. If mi, eis_lr # t poMFLAGS r is broken, or we rross MFLAGS . {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;whes_lr we irverross MFLAGSle."|>&5_r: $2" >_os"cle.;whes_lr we irverross MFLAGSle.gotc"|>&6_ } L" >&1; " crossxMFLAGSle." ! tyetpatible="{ {(Pcxtry==\$Pcxtry;; *)(Pcxtry$2" >=$Pcxtry;; esacne $?(Pcxtry$2" >="\"\$ as_ferror: $2" >&$4 fi $Pcxtry$2" >\""_r: $2" >\"$ hctry$2" >$; }X>&5_di(e $?(&5_diahcstatus=$?rm r: $2" >\"$ as_ferror: $2" >&$4 fi \$? t$ahcstatus$X>&5_di>&1; $ahcstatus t0_ } #(L" { Pcxtry='./MFnf>&1;$PcxBvxhe het'e="{ {(casl "(($Pcxtry"| # *\"* | *\`* | *\\*)(Pcxtry$2" >=\$Pcxtry;; *)(Pcxtry$2" >=$Pcxtry;; esacne $?(Pcxtry$2" >="\"\$ as_ferror: $2" >&$4 fi $Pcxtry$2" >\""_r: $2" >\"$ hctry$2" >$; }X>&5_di(e $?(&5_diahcstatus=$?rm r: $2" >\"$ as_ferror: $2" >&$4 fi \$? t$ahcstatus$X>&5_di>&1; $ahcstatus t0_ }pa}patibl n encrossxMFLAGSle.=nonenilsn m l 2>&1; " crossxMFLAGSle." = maybepatibl crossxMFLAGSle.=yet m ilsn {"{"r: $2" >&2 as_ferror: $2" >&$4 fi e dir:| # \`/ahclwd':"X>&5_r: $2" >\"$ as_f e dir:| # \`/ahclwd':"X>&2;} P_foate directorrgu migrunEC++aMFLAGS dclet wits. If you meant >ooMross MFLAGS ,ousl \`-- >se'. See \`MFnfig.log' -_SEmorvedeta ls"a"&$4 f" 5_ } e ha-it e-p'tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$crossxMFLAGSle." >&5_r: $2" >\"$crossxMFLAGSle." >&6_ } armv f MFnf>&1;.$Pcxhet MFnf>&1;$PcxBvxhe hetXMFnf>&1;.oue PcxMlean_fGS e=/ahcBlean_fGS easavea{"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEsuffixXe oobjece fGS e"|>&5_r: $2" >_os"cle.;-_SEsuffixXe oobjece fGS egotc"|>&6_ } L" >&1; " {acxcvxobjeet $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {at e; returnt0_ } _ACEOF rmv f MFnf>&1;.o MFnf>&1;.obj L" { {(Pcxtry==\$Pcxtry;; *)(Pcxtry$2" >=$Pcxtry;; esacne $?(Pcxtry$2" >="\"\$ as_ferror: $2" >&$4 fi $Pcxtry$2" >\""_r: $2" >\"$ hctry$2" >$; }X>&5_di(e $?(&5_diahcstatus=$?rm r: $2" >\"$ as_ferror: $2" >&$4 fi \$? t$ahcstatus$X>&5_di>&1; $ahcstatus t0_ }patibl :rm -_SEPcxfGS | # MFnf>&1;.o MFnf>&1;.obj MFnf>&1;.*r in #(>/dev f E ocxfGS "X|| MFntinue;tescasl PcxfGS | # m *.$PcxhetX| *.xcoffX| *.tdsX| *.dX| *.pdbX| *.xSYM | *.bb | *.bbg | *.map | *.in-X| *.dSYM ) ;; m *)nahcBvxobjeet=`expr E ocxfGS "X: '.*\.\(.*\)'`9 break;; esacndirs" fi rm r: $2" >\"$ as_f faGS dclet wit;was:"X>&5_ d|'s/^/| /' MFnf>&1;.$PcxhetX>&5 { {"r: $2" >&2 as_ferror: $2" >&$4 fi e dir:| # \`/ahclwd':"X>&5_r: $2" >\"$ as_f e dir:| # \`/ahclwd':"X>&2;} P_foate directorrgu migMFLAuteEsuffixXe oobjece fGS e: rgu migMFLAGS See \`MFnfig.log' -_SEmorvedeta ls"a"&$4 f" 5_ } tharmv f MFnf>&1;.$ahcBvxobjeet MFnf>&1;.$Pcxhet tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxobjeet" >&5_r: $2" >\"$ hcBvxobjeet" >&6_ } OBJEXT= acxcvxobjeet Pcxobjeet=$OBJEXT {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;whes_lr we irveusle.;t poPPM C++aMFLAGS r$X>&5_r: $2" >_os"cle.;whes_lr we irveusle.;t poPPM C++aMFLAGS rgotc"|>&6_ } L" >&1; " {acxcvxcxxxMFLAGS r_gnu $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {a#ifndef __PPMC__9 " >ke me #e ifat e; returnt0_ } _ACEOF L" ocxfnxcxxxtry$MFLAGS |"&$4 f"patibl :rm -cxMFLAGS r_gnu=yet fi rm -cxMFLAGS r_gnu=nontharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet acxcvxcxxxMFLAGS r_gnu=$-cxMFLAGS r_gnu tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxcxxxMFLAGS r_gnu" >&5_r: $2" >\"$ hcBvxcxxxMFLAGS r_gnu" >&6_ } L" >&1; $-cxMFLAGS r_gnu tyetpatible="GXX=yet fi rm GXX=r erahc>&1;_CXXFLAGS=${CXXFLAGS $asrahcsave_CXXFLAGS=$CXXFLAGS {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;whes_lr $CXX accepts -."|>&5_r: $2" >_os"cle.;whes_lr $CXX accepts -.gotc"|>&6_ } L" >&1; " {acxcvxlet _cxxxg $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm ahcsave_cxxxwe dir_flag=$-cxMxxxwe dir_flag enahcBxxxwe dir_flag=yet macxcvxlet _cxxxg=nonen CXXFLAGS="- " elicat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {at e; returnt0_ } _ACEOF L" ocxfnxcxxxtry$MFLAGS |"&$4 f"patibl :rm -cxMvxlet _cxxxg=yet fi rm CXXFLAGS=""9 cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {at e; returnt0_ } _ACEOF L" ocxfnxcxxxtry$MFLAGS |"&$4 f"patibl :r fi rm -cxMxxxwe dir_flag=$-cxsave_cxxxwe dir_flag CXXFLAGS="- " cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {at e; returnt0_ } _ACEOF L" ocxfnxcxxxtry$MFLAGS |"&$4 f"patibl :rm -cxMvxlet _cxxxg=yet tharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet tharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet tharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet enahcBxxxwe dir_flag=$-cxsave_cxxxwe dir_flag tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxlet _cxxxg" >&5_r: $2" >\"$ hcBvxlet _cxxxg" >&6_ } L" >&1; " ahc>&1;_CXXFLAGS1; t $apatiblrm CXXFLAGS=$ahcsave_CXXFLAGS ilL" >&1; $ hcBvxlet _cxxxg tyetpatible="L" >&1; " GXX" tyetpatible="aeCXXFLAGS="- -O2" elilsn m CXXFLAGS="- " el er(li rm l 2>&1; " GXX" tyetpatible="aeCXXFLAGS="-O2" elilsn m CXXFLAGS=t e-p'thaacxhet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu acxhet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu l 2>&1; t0 &2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _CC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _CC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erCC=IahcBvxlet _CC l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$CC$X>&5_r: $2" >\"$CC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9thal 2>&1; tERSIPcxBvxlet _CC"{as_linenahcBt_CC=/CCnen# Extractntt. 1 r1; word|e o"gcc",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy gcc;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _ahcBt_CC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _ahcBt_CC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erahcBt_CC=/ahcBvxlet _ahcBt_CC l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$ahcBt_CC" >&5_r: $2" >\"$ hcBt_CC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } thathal 2>&1; '" hcBt_CC" tx{as_linen CC=""9 ilsn m casl crossxMFLAGSle.:/Pcxtoolxwarned| # yet:) {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&5_r: $2" >\"$ as_f WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&2;} Pcxtoolxwarned=yet ;; esacnen CC=/ahcBt_CC el er(li rm CC=&1; tERSICC"{as_linen l 2>&1; t0 &2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _CC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _CC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erCC=IahcBvxlet _CC l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$CC$X>&5_r: $2" >\"$CC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9 e-p'thal 2>&1; tERSICC"{as_linen# Extractntt. 1 r1; word|e o"cc",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy cc;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _CC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi r EPcxlet _rejeceed=norreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enL" >&1; " as_S= /$-hcword$Pcxhe hxexa$X= "/usr/ucb/cc"{as_linen Pcxlet _rejeceed=yet m m cFntinuetes ha-it eenahccvxlet _CC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ L" >&1; $ hclet _rejeceed tyetpatible="# We fou a bogin # ion path,Gso makeEsure we ne, iousl it19e }\dummy $PcxBvxlet _CC e hiftrm l 2>&1; $#X! t0_as_linenen# Wve" >sb a differenigMFLAGS r from ion bogus irs.nenen# Howe, i,Eitthaslt poss_exbaslns_e, so the bogin will bve" >sble="ae# 1 r1; l 2we $a CC >oojuse t pobaslns_e; usrtion full fGS ;ns_ege="ae hiftrm enahccvxlet _CC=&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$CC$X>&5_r: $2" >\"$CC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9thal 2>&1; tERSICC"{as_linenl 2>&1; t0 &2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _CC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _CC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erCC=IahcBvxlet _CC l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$CC$X>&5_r: $2" >\"$CC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9di >&1; t0 &1; tERSICC"{as_linenahcBt_CC=/CCnen-_SEPcxlet | # cl.he " tes# Extractntt. 1 r1; word|e o"$Pcxlet ",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy $Pcxlet ;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _ahcBt_CC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _ahcBt_CC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erahcBt_CC=/ahcBvxlet _ahcBt_CC l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$ahcBt_CC" >&5_r: $2" >\"$ hcBt_CC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that e >&1; t0 &1; '" hcBt_CC" tx{as_linen CC=""9 ilsn m casl crossxMFLAGSle.:/Pcxtoolxwarned| # yet:) {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&5_r: $2" >\"$ as_f WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&2;} Pcxtoolxwarned=yet ;; esacnen CC=/ahcBt_CC el erthatthat >&1; tERSICC"X/) { {"r: $2" >&2 as_ferror: $2" >&$4 fi e dir:| # \`/ahclwd':"X>&5_r: $2" >\"$ as_f e dir:| # \`/ahclwd':"X>&2;} P_foate directorno acceptses,|CgMFLAGS r fou # \$d=fa/See \`MFnfig.log' -_SEmorvedeta ls"a"&$4 f" 5_ } a# Proverrtso_exin-_Smat in aboue t poMFLAGS r._r: $2" >\"$ as_ferror: $2" >&$4 fi cle.;-_SECaMFLAGS r , is in"X>&5_ }\X;$ahcBFLAGS PcxMFLAGS r=$2 -_SEPcxopt in # --, is in|-v -V -q, is inr in #({({(Pcxtry=&5" casl "(($Pcxtry"| # *\"* | *\`* | *\\*)(Pcxtry$2" >=\$Pcxtry;; *)(Pcxtry$2" >=$Pcxtry;; esacne $?(Pcxtry$2" >="\"\$ as_ferror: $2" >&$4 fi $Pcxtry$2" >\""_r: $2" >\"$ hctry$2" >$; }X>&5_di(e $?(&5") 2>MFnf>&1;. irnenahcstatus=$?rm l 2>&1; ts MFnf>&1;. ir{as_linen sed|'10a\ gotcr&1; e ostd ir ouepue deleted|gotnen 10q' MFnf>&1;. ir >MFnf>&1;. i1 m cat MFnf>&1;. i1X>&5_di ere rmv f MFnf>&1;. i1XMFnf>&1;. irnenr: $2" >\"$ as_ferror: $2" >&$4 fi \$? t$ahcstatus$X>&5_di>&1; $ahcstatus t0_ } dirs" {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;whes_lr we irveusle.;t poPPM CaMFLAGS r$X>&5_r: $2" >_os"cle.;whes_lr we irveusle.;t poPPM CaMFLAGS rgotc"|>&6_ } L" >&1; " {acxcvxcxMFLAGS r_gnu $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {a#ifndef __PPMC__9 " >ke me #e ifat e; returnt0_ } _ACEOF L" ocxfnxcxtry$MFLAGS |"&$4 f"patibl :rm -cxMFLAGS r_gnu=yet fi rm -cxMFLAGS r_gnu=nontharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet acxcvxcxMFLAGS r_gnu=$-cxMFLAGS r_gnu tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxcxMFLAGS r_gnu" >&5_r: $2" >\"$ hcBvxcxMFLAGS r_gnu" >&6_ } L" >&1; $-cxMFLAGS r_gnu tyetpatible="GCC=yet fi rm GCC=r erahc>&1;_CFLAGS=${CFLAGS $asrahcsave_CFLAGS=$CFLAGS {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;whes_lr $CC accepts -."|>&5_r: $2" >_os"cle.;whes_lr $CC accepts -.gotc"|>&6_ } L" >&1; " {acxcvxlet _ccxg $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm ahcsave_cxwe dir_flag=$-cxMxwe dir_flag enahcBxwe dir_flag=yet macxcvxlet _ccxg=nonen CFLAGS="- " elicat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {at e; returnt0_ } _ACEOF L" ocxfnxcxtry$MFLAGS |"&$4 f"patibl :rm -cxMvxlet _ccxg=yet fi rm CFLAGS=""9 cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {at e; returnt0_ } _ACEOF L" ocxfnxcxtry$MFLAGS |"&$4 f"patibl :r fi rm -cxMxwe dir_flag=$-cxsave_cxwe dir_flag CFLAGS="- " cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {at e; returnt0_ } _ACEOF L" ocxfnxcxtry$MFLAGS |"&$4 f"patibl :rm -cxMvxlet _ccxg=yet tharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet tharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet tharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet enahcBxwe dir_flag=$-cxsave_cxwe dir_flag tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxlet _ccxg" >&5_r: $2" >\"$ hcBvxlet _ccxg" >&6_ } L" >&1; " ahc>&1;_CFLAGS1; t $apatiblrm CFLAGS=$ahcsave_CFLAGS ilL" >&1; $ hcBvxlet _ccxg tyetpatible="L" >&1; " GCC" tyetpatible="aeCFLAGS="- -O2" elilsn m CFLAGS="- " el er(li rm l 2>&1; " GCC" tyetpatible="aeCFLAGS="-O2" elilsn m CFLAGS= e-p'tha{"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$CC opt in to accept ISO C89"|>&5_r: $2" >_os"cle.;-_SE$CC opt in to accept ISO C89gotc"|>&6_ } L" >&1; " {acxcvxlet _ccxc89 $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm ahccvxlet _ccxc89=norrhcsave_CC=/CCncat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #inclurrt #inclurrt #inclurrt #inclurrt /* Mo1; e ott. 1ollowle.;t&1;s irvestolbl from RCS 5.7's src/MFnf.sh. */ struct bu" { #t x; }paFILE * (*rcstpe#) (struct bu" *, struct stat *, #t); static Mhar *e (p, ) " ar **p; m #t i; {a returntp[i]_ } static Mhar *f (Mhar * (*g) (Mhar **, #t), " ar **p,|got) {a " ar *s; var: 1; v; varstart (v,p); s tg (p, vararg (v, #t)); vare (v); returnts_ } /* OSF 4.0 CFLAaq cc is so_exs_Stae oalm>se-ANSI by defas_v. Itthas mfunct in lettotypes|ind stuff, buto mig'\xHH' hex " aractvr MFnstantstnen Thesl don'txletv>ke n o direun-_Stunately,Einstead|irvesGS ntly treatvd enas 'x'. Tt. 1ollowle.;induc e n o dir,euntil tstd is added|>ooget enletper ANSI mod . Curiously '\x00'!='x'oalways MFL e oue true,a-_SEPle="aarrayesGzetae leasv. It's nec esary >oowrite '\x00'==0|>ooget so_ethle.e="athae's true o#ly WIet tstd. */ #t osf4_ccxarraye['\x00' = t0 ? 1 : -1]_ /* IBM Ca6a-_SEAIX is alm>se-ANSI by defas_v, butoiigreplac e macro para_eters minserrtstrle.s|ind " aractvr MFnstantst */ #def $2 FOO(x) 'x' #t xlc6_ccxarray[FOO(a) = t'x'o? 1 : -1]_ #t >&1; ( #t i, doues,|x); struct s1 { #t (*f) ( #t a);}; struct s2 { #t (*f) (doues,|a);}; #t pairns_es ( #t, " ar **, FILE *(*)(struct bu" *, struct stat *, #t), #t, #t); #t argc; " ar **argv; int ma # () {areturntf (e,aargv, 0)X! targv[0] X|| tf (e,aargv, 1)X! targv[1]_ e; returnt0_ } _ACEOF -_SEPcxarg # '' -qlanglvl=hetc89 -qlanglvl=anse tstd \ -A |"-Aa -D_HPUX_SOURCE"|"-Xc -D__EXTENSIONS__"/ tesCC=&1;. ir MFnf>&1;.$Pcxobjeet_di>&1; '" hcBvxlet _ccxc89" ! t"xno"X/) break'dirs"rmv f MFnf>&1;.$Pcxhet CC=/ahcsave_CC 'tha# AC_CACHE_VAL casl "" hcBvxlet _ccxc89" # x) {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;nonel eeded"X>&5_r: $2" >\"nonel eeded"X>&6_ } ;; xno) {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;unsupp_Sted"X>&5_r: $2" >\"unsupp_Sted"X>&6_ } ;; *)nen CC="$CC $ hcBvxlet _ccxc89" {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:; hcBvxlet _ccxc89" >&5_r: $2" >\"$ hcBvxlet _ccxc89" >&6_ } ;; esacnl 2>&1; '" hcBvxlet _ccxc89" ! txnopatibl :rtthatacxhet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu tacxhet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;how|>oorunEt poCgleeletc esor$X>&5_r: $2" >_os"cle.;how|>oorunEt poCgleeletc esorgotc"|>&6_ } # On Suns, so_eti_es $CPPans_es a directory. l 2>&1; t0 &1; -d &1; " {acxcvxlet _CPP $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm enen# Doues,|quo>&1 becausrtCPPaneeds tombveexpindvd en;-_SECPPai0 tom L" __STDC__ is def $2d,Gsincetes# exi1;s evbl ol freestandle.;MFLAGS rsgtes# OnEt poNeXT, cc -E runs t poMFrrtiorough t poMFLAGS r's parser,tes# migjuse t rough cpptc"Syntax o dir" is _lr >ooMatc_ >ois casl.rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #ifdef __STDC__a# #clurrt # fi r# #clurrt #e ifa nen Syntax o dir _ACEOF L" ocxfnxcxtry$Mpp|"&$4 f"patibl :r fi rm # Brokenf faGSs irc $?i #pue.acFntinuettharmv f MFnf>&1;. ir MFnf>&1;.i MFnf>&1;.$Pcxhet tes# OK, works ircsane caslst Now|c;whes_lr nonexi1;enighead rstes# rgumbvedeteceed ind how.rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #i#clurrt _ACEOF L" ocxfnxcxtry$Mpp|"&$4 f"patibl :rm # Brokenf succ es in # $?i #pue.acFntinuet fi rm # Passes bos_ t&1;s. Pcxleeletc_ok=: break'tharmv f MFnf>&1;. ir MFnf>&1;.i MFnf>&1;.$Pcxhet tdirs"# Becausrte o`break', _AC_PREPROC_IFELSE's Bleanle.;MFrrtwaslskipped.armv f MFnf>&1;.i MFnf>&1;. ir MFnf>&1;.$Pcxhet if $Pcxleeletc_okpatibl :rm break'tha en;dine n enahcBvxlet _CPP=ICPP ere CPP=IahcBvxlet _CPP" fi rm ahccvxlet _CPP=ICPP tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$CPP" >&5_r: $2" >\"$CPP" >&6_ } Pcxleeletc_ok=fafi r-_SEPcxcxleeletc_warn_flag # '' y e/ tes# Usb a head r fGS |thae MFL e WIet gcc,Gso MFnfigurle. glibctes# WIet a fresh;cross-MFLAGS r worksgtes# P $fvr tom L" __STDC__ is def $2d,Gsincetes# exi1;s evbl ol freestandle.;MFLAGS rsgtes# OnEt poNeXT, cc -E runs t poMFrrtiorough t poMFLAGS r's parser,tes# migjuse t rough cpptc"Syntax o dir" is _lr >ooMatc_ >ois casl.rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #ifdef __STDC__a# #clurrt # fi r# #clurrt #e ifa nen Syntax o dir _ACEOF L" ocxfnxcxtry$Mpp|"&$4 f"patibl :r fi rm # Brokenf faGSs irc $?i #pue.acFntinuettharmv f MFnf>&1;. ir MFnf>&1;.i MFnf>&1;.$Pcxhet tes# OK, works ircsane caslst Now|c;whes_lr nonexi1;enighead rstes# rgumbvedeteceed ind how.rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #i#clurrt _ACEOF L" ocxfnxcxtry$Mpp|"&$4 f"patibl :rm # Brokenf succ es in # $?i #pue.acFntinuet fi rm # Passes bos_ t&1;s. Pcxleeletc_ok=: break'tharmv f MFnf>&1;. ir MFnf>&1;.i MFnf>&1;.$Pcxhet tdirs"# Becausrte o`break', _AC_PREPROC_IFELSE's Bleanle.;MFrrtwaslskipped.armv f MFnf>&1;.i MFnf>&1;. ir MFnf>&1;.$Pcxhet if $Pcxleeletc_okpatibl :r" fi rm {"{"r: $2" >&2 as_ferror: $2" >&$4 fi e dir:| # \`/ahclwd':"X>&5_r: $2" >\"$ as_f e dir:| # \`/ahclwd':"X>&2;} P_foate directorCgleeletc esor \"$CPP\" faGSs sanity|c See \`MFnfig.log' -_SEmorvedeta ls"a"&$4 f" 5_ } thatacxhet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;whes_lr ${MAKE-make}t $as \$(MAKE)"|>&5_r: $2" >_os"cle.;whes_lr ${MAKE-make}t $as \$(MAKE)gotc"|>&6_ } }\x ${MAKE-make} Pcxmake=`r: $2" >\"$2" | sed|'s/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if e $?(<>&1; \"\${acxcvxlet _make_${acxmake}_ } $as\"1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm cat >MFnf>&1;.makeE<<\_ACEOF SHELL; t/bin/sh all: @2" >\'@@@%%%=$(MAKE)=@@@%%%' _ACEOF #oPPM makeEso_eti_es prleas "make[1]: Enterle. got",;whGc_ wouldlMFnfusrtus. casl `${MAKE-make}t f MFnf>&1;.makeE2>/dev/null`| # *@@@%%%=?*=@@@%%%*)nen e $?(Pcxcvxlet _make_${acxmake}_ }=yet;; *)nen e $?(Pcxcvxlet _make_${acxmake}_ }=no;; esacnrmv f MFnf>&1;.make"thal 2e $?(>&1; \$Pcxcvxlet _make_${acxmake}_ } tyetpatible="{ r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;yet"X>&5_r: $2" >\"yet"X>&6_ } SET_MAKE= fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } SET_MAKE="MAKE=${MAKE-make}" thatl 2>&1; t0 &2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _RAN$4B $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _RAN$4B=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erRAN$4B=$ahcBvxlet _RAN$4B l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$RAN$4B" >&5_r: $2" >\"$RAN$4B" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9thal 2>&1; tERSIPcxBvxlet _RAN$4B"{as_linenahcct_RAN$4B=$RAN$4Bnen# Extractntt. 1 r1; word|e o"ranlib",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy ranlib;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _ahcct_RAN$4B $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _ahcct_RAN$4B=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erahcct_RAN$4B=$ahcBvxlet _ahcct_RAN$4B l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$ahcBt_RAN$4B" >&5_r: $2" >\"$ hcBt_RAN$4B" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } thathal 2>&1; '" hcBt_RAN$4B" tx{as_linen RAN$4B=<:"9 ilsn m casl crossxMFLAGSle.:/Pcxtoolxwarned| # yet:) {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&5_r: $2" >\"$ as_f WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&2;} Pcxtoolxwarned=yet ;; esacnen RAN$4B=$ahcBt_RAN$4B el er(li rm RAN$4B=&1; t0 &2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _FC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _FC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erFC=/ahcBvxlet _FC l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$FC" >&5_r: $2" >\"$FC$X>&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that9di >&1; t0 &1; tERSIFC"{as_linenahcct_FC=IFCnen-_SEPcxlet | # g-_Stran g95 xlf95 f95 f_Staif_Staifc efc pg-_Stran pg-95 lf95 ftn xlf90 f90 pg-90 pghp 2epc-90 g77 xlf f77 fStapg-77 cf77 f_St77 fl32 af77 tes# Extractntt. 1 r1; word|e o"$Pcxlet ",Gso itsrgumbve clet wit;ns_exWIet atas. }\dummy $Pcxlet ;l-hcword=$2 {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SE$-hcword"|>&5_r: $2" >_os"cle.;-_SE$-hcwordgotc"|>&6_ } L" >&1; " {acxcvxlet _ahcBt_FC $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; t0 &1;." fi rreasave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(L" { >/dev f E os_S= /$-hcword$Pcxhe hxexa$X/) a>&1;_x E os_S= /$-hcword$Pcxhe hxexa$; }patibl n enahcBvxlet _ahcct_FC=&$4 fi fou os_S= /$-hcword$Pcxhe hxexa$X>&5_di break 2dir-p'dirs"hedirs"IFS=$reasave_IFS_ er erahcBt_FC=/ahcBvxlet _ahcBt_FC l 2>&1; t0 &2 as_ferror: $2" >&$4 fi $as_v:;$ahcBt_FC" >&5_r: $2" >\"$ahcBt_FC" >&6_ } fi rm {"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;no"X>&5_r: $2" >\"no"X>&6_ } that e >&1; t0 &1; '" hcBt_FC" tx{as_linen FC=""9 ilsn m casl crossxMFLAGSle.:/Pcxtoolxwarned| # yet:) {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&5_r: $2" >\"$ as_f WARNING: usle.;cross toolsl migleefixed|WIet >se triplet"X>&2;} Pcxtoolxwarned=yet ;; esacnen FC=/ahcBt_FC el erthata# Proverrtso_exin-_Smat in aboue t poMFLAGS r._r: $2" >\"$ as_ferror: $2" >&$4 fi cle.;-_SEF_Stran MFLAGS r , is in"X>&5_ }\X;$ahcBFLAGS PcxMFLAGS r=$2 -_SEPcxopt in # --, is in|-v -V -q, is inr in #({({(Pcxtry=&5" casl "(($Pcxtry"| # *\"* | *\`* | *\\*)(Pcxtry$2" >=\$Pcxtry;; *)(Pcxtry$2" >=$Pcxtry;; esacne $?(Pcxtry$2" >="\"\$ as_ferror: $2" >&$4 fi $Pcxtry$2" >\""_r: $2" >\"$ hctry$2" >$; }X>&5_di(e $?(&5") 2>MFnf>&1;. irnenahcstatus=$?rm l 2>&1; ts MFnf>&1;. ir{as_linen sed|'10a\ gotcr&1; e ostd ir ouepue deleted|gotnen 10q' MFnf>&1;. ir >MFnf>&1;. i1 m cat MFnf>&1;. i1X>&5_di ere rmv f MFnf>&1;. i1XMFnf>&1;. irnenr: $2" >\"$ as_ferror: $2" >&$4 fi \$? t$ahcstatus$X>&5_di>&1; $ahcstatus t0_ } dirs"rmv f a.oue a# I 2we don'txusrt`.F'nas exaens in, ion peeletc esor isl migrunEonEt pr# #pue fGS .di(Not |thae >ois o#ly needs tomwork;-_SEPPM MFLAGS rsg)rrhcsave_het= acxhet acxhet=F {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;whes_lr we irveusle.;t poPPM F_Stran MFLAGS r$X>&5_r: $2" >_os"cle.;whes_lr we irveusle.;t poPPM F_Stran MFLAGS rgotc"|>&6_ } L" >&1; " {acxcvxfcxMFLAGS r_gnu $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm cat > MFnf>&1;.$PcxhetX<<_ACEOFnen let wit;ma #a#ifndef __PPMC__9 " >ke me #e ifat een end _ACEOF L" ocxfnxfcxtry$MFLAGS |"&$4 f"patibl :rm -cxMFLAGS r_gnu=yet fi rm -cxMFLAGS r_gnu=nontharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet acxcvxfcxMFLAGS r_gnu=$-cxMFLAGS r_gnu tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxfcxMFLAGS r_gnu" >&5_r: $2" >\"$ hcBvxfcxMFLAGS r_gnu" >&6_ } Pcxhet= acxsave_hetrahc>&1;_FCFLAGS=${FCFLAGS $asrahcsave_FCFLAGS=$FCFLAGS FCFLAGS= {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;whes_lr $FC accepts -."|>&5_r: $2" >_os"cle.;whes_lr $FC accepts -.gotc"|>&6_ } L" >&1; " {acxcvxlet _fcxg $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm FCFLAGS=-g cat > MFnf>&1;.$PcxhetX<<_ACEOFnen let wit;ma #at een end _ACEOF L" ocxfnxfcxtry$MFLAGS |"&$4 f"patibl :rm -cxMvxlet _fcxg=yet fi rm -cxMvxlet _fcxg=nontharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxlet _fcxg" >&5_r: $2" >\"$ hcBvxlet _fcxg" >&6_ } L" >&1; " ahc>&1;_FCFLAGS1; t $apatiblrm FCFLAGS=$ahcsave_FCFLAGS ilL" >&1; $ hcBvxlet _fcxg tyetpatible="L" >&1; "x$ hcBvxfcxMFLAGS r_gnu" txyetpatible="aeFCFLAGS="- -O2" elilsn m FCFLAGS="- " el er(li rm l 2>&1; "x$ hcBvxfcxMFLAGS r_gnu" txyetpatible="aeFCFLAGS="-O2" elilsn m FCFLAGS= el erthatacxhet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu tacxhet= {acxfc_srchet-f} PcxcFLAGS ='$FC -ca$FCFLAGSa$acxfcflags_srchet MFnf>&1;.$PcxhetX>&5' Pcx: $k='$FC -o MFnf>&1;$Pcxhe hetX$FCFLAGSa$LDFLAGS $acxfcflags_srchet MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxfcxMFLAGS r_gnu {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEF_Stran flag eeded to accept free--_Smtsourch"|>&5_r: $2" >_os"cle.;-_SEF_Stran flag eeded to accept free--_Smtsourchgotc"|>&6_ } L" >&1; " {acxcvxfcxfree-_Sm $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm ahccvxfcxfree-_Sm=unknown acxfc_free-_Sm_FCFLAGScsave=$FCFLAGS -_SEPcxflag # nonel-ffree--_Smt-FRl-free -qfree -Mfree -Mfree-_Smt\ -free-_Smt" f free" +sourch=free -nfix in #(>/dev"x$ hcflag" ! txnonel/) FCFLAGS="$acxfc_free-_Sm_FCFLAGScsave $ hcflag"rm cat > MFnf>&1;.$PcxhetX<<_ACEOFn let wit;free-_Sm9 ! FIXME:;how|>oob/devMFnfusrtnon-free-_SmtMFLAGS rs?9 prlea *, 'Hello ', &nen 'world.'nen end _ACEOF L" ocxfnxfcxtry$MFLAGS |"&$4 f"patibl :rm -cxMvxfcxfree-_Sm=$ hcflag; break'tharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet dirs"rmv f MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet FCFLAGS=$ahcfc_free-_Sm_FCFLAGScsave tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxfcxfree-_Sm" >&5_r: $2" >\"$ hcBvxfcxfree-_Sm" >&6_ } L" >&1; "x$ hcBvxfcxfree-_Sm" txunknown{as_linena_foate dire77 "F_Stran doesl migaccept free--_Smtsourch"|"&$4 f" 5r(li rm l 2>&1; "x$ hcBvxfcxfree-_Sm" ! txnonepatible="aeFCFLAGS="$FCFLAGSa$acxBvxfcxfree-_Sm" el er'thaacxhet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu acxhet= {acxfc_srchet-f} PcxcFLAGS ='$FC -ca$FCFLAGSa$acxfcflags_srchet MFnf>&1;.$PcxhetX>&5' Pcx: $k='$FC -o MFnf>&1;$Pcxhe hetX$FCFLAGSa$LDFLAGS $acxfcflags_srchet MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxfcxMFLAGS r_gnu {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;how|>ooget verb>sb : $kle.;ouepue from $FC" >&5_r: $2" >_os"cle.;how|>ooget verb>sb : $kle.;ouepue from $FCgotc"|>&6_ } L" >&1; " {acxcvxlet _fcxv $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm cat > MFnf>&1;.$PcxhetX<<_ACEOFnen let wit;ma #at een end _ACEOF L" ocxfnxfcxtry$MFLAGS |"&$4 f"patibl :rm -cxMvxlet _fcxv= # Trytso_exopt ins frequ ntly used|verb>sb ouepue -_SEPcxverb # -v -verb>sb --verb>sb -V -\#\#\#r in #(cat > MFnf>&1;.$PcxhetX<<_ACEOFnen let wit;ma #at een end _ACEOF # CFLAGS |ind : $k our simpln >&1; let wit;by passle.;a flag (argum nt # 1|>oo>ois macro)|>oo>oeEF_Stran MFLAGS r # ord r >ooget # "verb>sb";ouepue thae wesrgumtibl parse;-_SE>oeEF_Stran : $ker # flags.rahcsave_FCFLAGS=$FCFLAGS FCFLAGS="$FCFLAGSa$acxverb"ne $?(" }\x $Pcx: $k" hiftrr: $2" >&2 as_ferror: $2" >&$4 fi $*" >&5_# g-_Stran 4.3;ouepues : $esl }tle.;COLLECT_GCC_OPTIONS,;COMPILER_d=fa,_# $4BRARY_d=fa;lskip all suchl }tle.s.rahcfcxv_ouepue=`e $?($Pcx: $k 5>&1 2>&1 |t egrep -v 'Drivle.:' |egrep -v "^[_ acr_L }t rs][_ acr_alnum]*="`_r: $2" >\"$ hcfcxv_ouepue" >&5_FCFLAGS=$ahcsave_FCFLAGS "rmv rf MFnf>&1;* # On HP/UXE>oere is a : $e : ke: "Ld=fa is: /foo:/bar:/baz";wherpr# /foo, /bar,|ind /baz|irvesearchldirectoriesl-_SE>oeEF_Stran : $ker.r# Herp, wesrhangrtionsl in>oo-L/fooo-L/baro-L/baz (and putoiig1 r1;):rahcfcxv_ouepue="`2" >\$ hcfcxv_ouepue |t grep 'Ld=fa is:' |t sed|'s|.*Ld=fa is\(: *[^ ]*\).*|\1|;s|: */|o-L/|g'`\$ hcfcxv_ouepue" # FIXME:;weskeep g }tle.;bi}t n;by quo>&d|irgum nttpaaEmorvegeneral fGx # thae deteces unbalanc&d|quo>&1 # F$4BSXshouldlbl implnm nted # and (ugh) >&1;&d|it so_e poin>. casl $ hcfcxv_ouepue iinen# I 2we irveusle.;xlf tibl replac all t poMFLmae WIet spac etnen*xlf ntry*)nen ahcfcxv_ouepue=`e" >\$ hcfcxv_ouepue | sed|'s/,/ /g'` ;; nen# WIet Intelaifc, ignorvet poquo>&d|-mGLOBxopt ins_strle. stuff (quo>&dnen# &$4BSXMFnfusrtus,|ind t polibrarieslappear lat r # t poouepue anyway)tnen*mGLOBxopt ins_strle.*)nen ahcfcxv_ouepue=`e" >\$ hcfcxv_ouepue | sed|'s/"-mGLOB[^"]*"/ /g'` ;; nen# P_Stlind Group MFLAGS r haslsle.ly- or douesy-quo>&d|-cmd: $e argum nt en# Sle.ly-quo>&d|irgum ntt2werverep_Stedl-_SE, is ins 5.2-4|ind 6.0-4gtes# Douesy-quo>&d|irgum ntt2werverep_Stedl-_SE"PGF90/x86 Linux/x86 5.0-2"tnen*-cmd: $e\ * | *-ignorv\ * | *-def\ *)nen ahcfcxv_ouepue=`e" >\$ hcfcxv_ouepue | sed|"\ s/-cmd: $e *'[^']*'/ /g; s/-cmd: $e *\"[^\"]*\"/ /g s/-ignorve *'[^']*'/ /g; s/-ignorve *\"[^\"]*\"/ /g s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;; nen# I 2we irveusle.;CrayeF_Stran tibl delete|quo>&1tnen*cft90*)nen ahcfcxv_ouepue=`e" >\$ hcfcxv_ouepue | sed|'s/"//g'` ;; esacn nen# look;-_SE-l*|ind *.a MFnstructs # t poouepuenen-_SEPcxarg # $ hcfcxv_ouepue;;dinenen casl $ hcarg # [\\/]*.a | ?:[\\/]*.a | -[lLRu]*)n m -cxMvxlet _fcxv=$acxverbn m break 2 ;; n esacnendirs"dirs"l 2>&1; tERSIPcxBvxlet _fcxv"{as_linen {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: rgu migdeterm $e how|>ooobta # : $kle.;in-_Smat in from $FC" >&5_r: $2" >\"$ as_f WARNING: rgu migdeterm $e how|>ooobta # : $kle.;in-_Smat in from $FC" >&2;} er(li rm {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: rFLAGSat in faGS d"X>&5_r: $2" >\"$ as_f WARNING: rFLAGSat in faGS d"X>&2;} errmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxlet _fcxv" >&5_r: $2" >\"$ hcBvxlet _fcxv"|>&6_ } {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEF_Stran librarieslof $FC" >&5_r: $2" >_os"cle.;-_SEF_Stran librarieslof $FCgotc"|>&6_ } L" >&1; " {acxcvxfcxlibs $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; "x$FC$4BS" ! t"x"{as_linenahccvxfcxlibs="$FC$4BS" Lse t pouslrds, irerrtion >&1;." fi r cat > MFnf>&1;.$PcxhetX<<_ACEOFnen let wit;ma #at een end _ACEOF # CFLAGS |ind : $k our simpln >&1; let wit;by passle.;a flag (argum nt # 1|>oo>ois macro)|>oo>oeEF_Stran MFLAGS r # ord r >ooget # "verb>sb";ouepue thae wesrgumtibl parse;-_SE>oeEF_Stran : $ker # flags.rahcsave_FCFLAGS=$FCFLAGS FCFLAGS="$FCFLAGSa$acxBvxlet _fcxv"ne $?(" }\x $Pcx: $k" hiftrr: $2" >&2 as_ferror: $2" >&$4 fi $*" >&5_# g-_Stran 4.3;ouepues : $esl }tle.;COLLECT_GCC_OPTIONS,;COMPILER_d=fa,_# $4BRARY_d=fa;lskip all suchl }tle.s.rahcfcxv_ouepue=`e $?($Pcx: $k 5>&1 2>&1 |t egrep -v 'Drivle.:' |egrep -v "^[_ acr_L }t rs][_ acr_alnum]*="`_r: $2" >\"$ hcfcxv_ouepue" >&5_FCFLAGS=$ahcsave_FCFLAGS "rmv rf MFnf>&1;* # On HP/UXE>oere is a : $e : ke: "Ld=fa is: /foo:/bar:/baz";wherpr# /foo, /bar,|ind /baz|irvesearchldirectoriesl-_SE>oeEF_Stran : $ker.r# Herp, wesrhangrtionsl in>oo-L/fooo-L/baro-L/baz (and putoiig1 r1;):rahcfcxv_ouepue="`2" >\$ hcfcxv_ouepue |t grep 'Ld=fa is:' |t sed|'s|.*Ld=fa is\(: *[^ ]*\).*|\1|;s|: */|o-L/|g'`\$ hcfcxv_ouepue" # FIXME:;weskeep g }tle.;bi}t n;by quo>&d|irgum nttpaaEmorvegeneral fGx # thae deteces unbalanc&d|quo>&1 # F$4BSXshouldlbl implnm nted # and (ugh) >&1;&d|it so_e poin>. casl $ hcfcxv_ouepue iinen# I 2we irveusle.;xlf tibl replac all t poMFLmae WIet spac etnen*xlf ntry*)nen ahcfcxv_ouepue=`e" >\$ hcfcxv_ouepue | sed|'s/,/ /g'` ;; nen# WIet Intelaifc, ignorvet poquo>&d|-mGLOBxopt ins_strle. stuff (quo>&dnen# &$4BSXMFnfusrtus,|ind t polibrarieslappear lat r # t poouepue anyway)tnen*mGLOBxopt ins_strle.*)nen ahcfcxv_ouepue=`e" >\$ hcfcxv_ouepue | sed|'s/"-mGLOB[^"]*"/ /g'` ;; nen# P_Stlind Group MFLAGS r haslsle.ly- or douesy-quo>&d|-cmd: $e argum nt en# Sle.ly-quo>&d|irgum ntt2werverep_Stedl-_SE, is ins 5.2-4|ind 6.0-4gtes# Douesy-quo>&d|irgum ntt2werverep_Stedl-_SE"PGF90/x86 Linux/x86 5.0-2"tnen*-cmd: $e\ * | *-ignorv\ * | *-def\ *)nen ahcfcxv_ouepue=`e" >\$ hcfcxv_ouepue | sed|"\ s/-cmd: $e *'[^']*'/ /g; s/-cmd: $e *\"[^\"]*\"/ /g s/-ignorve *'[^']*'/ /g; s/-ignorve *\"[^\"]*\"/ /g s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;; nen# I 2we irveusle.;CrayeF_Stran tibl delete|quo>&1tnen*cft90*)nen ahcfcxv_ouepue=`e" >\$ hcfcxv_ouepue | sed|'s/"//g'` ;; esacn n ahccvxfcxlibs= # Save posit inal|irgum ntt2(L" ony)rrhcsave_posit inal="$@" }\X;$ahcfcxv_ouepue whiln >&1; $#X! t1;;dinen hiftrm hcarg=$1 n casl $ hcarg # [\\/]*.a | ?:[\\/]*.a) Pcxhei1;s=fafi ren-_SEPcxi # $ hccvxfcxlibs;;dinenenl 2>&1; x"$ hcarg" tx"$ hci"{as_linen Pcxhei1;s=truenen break'hedi ere dirs"thal 2>&1; x"$ hchei1;s" txtruepatibl :r fi rm -cxMvxfcxlibs="$-cxMvxfcxlibs $ hcarg"r er ;; -bI:*) Pcxhei1;s=fafi ren-_SEPcxi # $ hccvxfcxlibs;;dinenenl 2>&1; x"$ hcarg" tx"$ hci"{as_linen Pcxhei1;s=truenen break'hedi ere dirs"thal 2>&1; x"$ hchei1;s" txtruepatibl :r fi rm L" >&1; " ahcMFLAGS r_gnu" tyetpatible="-_SEPcx: $kxopt # $ hcarg;;dinenen-cxMvxfcxlibs="$-cxMvxfcxlibs -X: $ker($Pcx: $kxopt"re dirs" fi rm -cxMvxfcxlibs="$-cxMvxfcxlibs $ hcarg"r er er ;; en# Ignorvet pse;-lags.r -lang* | -lcrt*.o | -lc | -lgcc* | -lSy1;&m | -libmil | -littln \ |-LANG:=* | -LIST:* | -LNO:* | -: $k)r ;; -lkernel32)r >&1; x"$CYGWIN" ! txyet /) ocxMvxfcxlibs="$-cxMvxfcxlibs $ hcarg"r ;; -[LRuYz]) en# T pse;-lags,;whbl se n;by t pmselves,;take n irgum nt. en# Wverems, t pospac lbltwe n;opt in ind irgum nt ind re-it rat en# unl es w. 1 nd in empty irg or a new;opt in (startle.;wIet t) encasl $2 # n "" | -*);; en *)n hcarg="$ hcarg$2"r hift;n hiftr }\X;$ahcirg "$@" ;; enesacn ;; -YP,*) -_SEPcxj # `r: $2" >\"$ hcarg" | sed|-e|'s/-YP,/-L/;s/:/o-L/g'`;;din en Pcxhei1;s=fafi ren-_SEPcxi # $ hccvxfcxlibs;;dinenenl 2>&1; x"$ hcj" tx"$ hci"{as_linen Pcxhei1;s=truenen break'hedi ere dirs"thal 2>&1; x"$ hchei1;s" txtruepatibl :r fi rm -cxarg="$ hcarg $ hcj" ocxMvxfcxlibs="$-cxMvxfcxlibs $ hcj"r er dirs" ;; -[lLR]*) Pcxhei1;s=fafi ren-_SEPcxi # $ hccvxfcxlibs;;dinenenl 2>&1; x"$ hcarg" tx"$ hci"{as_linen Pcxhei1;s=truenen break'hedi ere dirs"thal 2>&1; x"$ hchei1;s" txtruepatibl :r fi rm -cxMvxfcxlibs="$-cxMvxfcxlibs $ hcarg"r er ;; -zallextract*| -zdefas_vextract)n m -cxMvxfcxlibs="$-cxMvxfcxlibs $ hcarg"r ;; en# Ignorvee, iythle.lilsntnenesacndirs"# r&1;orveposit inal|irgum ntt }\X;$ahcsave_posit inal;n hiftr # Wveo#ly MFnsid r "LD_RUN_d=fa"EonESolarislsy1;&mst Ifo>ois islse n,_# tibl weminsest|thae >oe "runEpath" muse be n ibsolute|path2(L.e.oii_# muse beg # WIet a "/"). casl `(uns_ex-sr)E2>/dev/null`| # "SunOS 5"*)nen m -cxld_run_path=`r: $2" >\"$ hcfcxv_ouepue" | sed|-n|'s,^.*LD_RUN_d=fa *= *\(/[^ ]*\).*$,-R\1,p'`nen m >&1; "x$ hcld_run_path" ! tx /) L" >&1; " ahcMFLAGS r_gnu" tyetpatible="-_SEPcx: $kxopt # $ hcld_run_path;;dinenen-cxMvxfcxlibs="$-cxMvxfcxlibs -X: $ker($Pcx: $kxopt"re dirs" fi rm -cxMvxfcxlibs="$-cxMvxfcxlibs $ hcld_run_path" ere ;; esacnfin# >&1; "x$[]_AC_LANG_PREFIX[]$4BS" t"x" tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxfcxlibs" >&5_r: $2" >\"$ hcBvxfcxlibs" >&6_ } FC$4BS="$-cxMvxfcxlibs" atacxhet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu # C;architeceurs"t {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEgrep thae hindl e loe.;: $eslind -h"|>&5_r: $2" >_os"cle.;-_SEgrep thae hindl e loe.;: $eslind -hgotc"|>&6_ } L" >&1; " {acxcvxlath_GREP $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2>&1; tERSIGREP"{as_linenahclath_GREP_fou =fafi ren# Looptiorough t pouslr's paet and t&1; -_SEe*lof PROGNAME-LISTnena_fsave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa$d=fa_SEPARATOR/usr/xpg4/bin/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxlet | # grep ggrep;;dinenen-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(enen-cxlath_GREP=E os_S= /$-hclet $Pcxhe hxexa"9 { >/dev f E ocxlath_GREP$X/) a>&1;_x E ocxlath_GREP$; }X|| cFntinuet# C;-_SEPPM ocxlath_GREP|ind selectoiigl 2iigls fou gtes# C;-_SEPPM ocxlath_GREP casl `E ocxlath_GREP$X--, is in|2>&1`| # *PPM*)nenacxcvxlath_GREP=E ocxlath_GREP$Xahclath_GREP_fou =:;; *)nenacxcou t=0rm r: $2" >_os0123456789 >"MFnf>&1;.in"9 whiln : hedinenencat "MFnf>&1;.in" "MFnf>&1;.in" >"MFnf>&1;.tmp" en;mv "MFnf>&1;.tmp" "MFnf>&1;.in"9 encp "MFnf>&1;.in" "MFnf>&1;.nl" elifr: cannot'GREP' >> "MFnf>&1;.nl" elifE ocxlath_GREP$X-et'GREP$'X-et'-(rgu migmatc_)-' < "MFnf>&1;.nl" >"MFnf>&1;.oue" 2>/dev/nullX|| break'hedidiff "MFnf>&1;.oue" "MFnf>&1;.nl" >/dev/nullX2>&1 || break'hedia_foatariet $acxcou t + 1 /) ocxMou t=r: cvalnenenl 2>&1; $acxcou t -gt ${ahclath_GREP_max-0}{as_linen # Be1; enrtso far,|save it butokeep lookle.;-_SEalbltt r ine n enenacxcvxlath_GREP=E ocxlath_GREP$ #(enen-cxlath_GREP_max=$acxcou t'hedi ere # 10*(2^10) " arsnas #pue se msEmorvethan enough m >&1; $acxcou t -gt 10X/) break'hedirs"e rmv f MFnf>&1;.in MFnf>&1;.tmp MFnf>&1;.nl MFnf>&1;.oue;; esacn #(enen$ahclath_GREP_fou X/) break 3'hedidirs"hedirs"hedirs"IFS=$reasave_IFS_m l 2>&1; tERSIacxcvxlath_GREP"{as_linen a_foate directorno acceptses, grep couldlbl fou X # $d=fa$d=fa_SEPARATOR/usr/xpg4/bin"|"&$4 f" 5rel er(li rm acxcvxlath_GREP=IGREP er'tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxlath_GREP$X>&5_r: $2" >\"$ hcBvxlath_GREP$X>&6_ } GREP=E ocxBvxlath_GREP$"t {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEegrep"|>&5_r: $2" >_os"cle.;-_SEegrepgotc"|>&6_ } L" >&1; " {acxcvxlath_EGREP $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 22" >&a | IGREP -E '(a|b)' >/dev/nullX2>&1nen tibl acxcvxlath_EGREP="IGREP -E$ #(e fi rm enel 2>&1; tERSIEGREP"{as_linenahclath_EGREP_fou =fafi ren# Looptiorough t pouslr's paet and t&1; -_SEe*lof PROGNAME-LISTnena_fsave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa$d=fa_SEPARATOR/usr/xpg4/bin/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha-_SEPcxlet | # egrep;;dinenen-_SEPcxhe hxexa| # '' od oth cases,xexaens incr in #(enen-cxlath_EGREP=E os_S= /$-hclet $Pcxhe hxexa"9 { >/dev f E ocxlath_EGREP$X/) a>&1;_x E ocxlath_EGREP$; }X|| cFntinuet# C;-_SEPPM ocxlath_EGREP|ind selectoiigl 2iigls fou gtes# C;-_SEPPM ocxlath_EGREP casl `E ocxlath_EGREP$X--, is in|2>&1`| # *PPM*)nenacxcvxlath_EGREP=E ocxlath_EGREP$Xahclath_EGREP_fou =:;; *)nenacxcou t=0rm r: $2" >_os0123456789 >"MFnf>&1;.in"9 whiln : hedinenencat "MFnf>&1;.in" "MFnf>&1;.in" >"MFnf>&1;.tmp" en;mv "MFnf>&1;.tmp" "MFnf>&1;.in"9 encp "MFnf>&1;.in" "MFnf>&1;.nl" elifr: cannot'EGREP' >> "MFnf>&1;.nl" elifE ocxlath_EGREP$X'EGREP$' < "MFnf>&1;.nl" >"MFnf>&1;.oue" 2>/dev/nullX|| break'hedidiff "MFnf>&1;.oue" "MFnf>&1;.nl" >/dev/nullX2>&1 || break'hedia_foatariet $acxcou t + 1 /) ocxMou t=r: cvalnenenl 2>&1; $acxcou t -gt ${ahclath_EGREP_max-0}{as_linen # Be1; enrtso far,|save it butokeep lookle.;-_SEalbltt r ine n enenacxcvxlath_EGREP=E ocxlath_EGREP$ #(enen-cxlath_EGREP_max=$acxcou t'hedi ere # 10*(2^10) " arsnas #pue se msEmorvethan enough m >&1; $acxcou t -gt 10X/) break'hedirs"e rmv f MFnf>&1;.in MFnf>&1;.tmp MFnf>&1;.nl MFnf>&1;.oue;; esacn #(enen$ahclath_EGREP_fou X/) break 3'hedidirs"hedirs"hedirs"IFS=$reasave_IFS_m l 2>&1; tERSIacxcvxlath_EGREP"{as_linen a_foate directorno acceptses, egrep couldlbl fou X # $d=fa$d=fa_SEPARATOR/usr/xpg4/bin"|"&$4 f" 5rel er(li rm acxcvxlath_EGREP=IEGREP'tha en-p'tha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxlath_EGREP$X>&5_r: $2" >\"$ hcBvxlath_EGREP$X>&6_ } EGREP=E ocxBvxlath_EGREP$"t {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEANSI C head r fGS s"|>&5_r: $2" >_os"cle.;-_SEANSI C head r fGS sgotc"|>&6_ } L" >&1; " {acxcvxhead r_stdc $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #i#clurrt #inclurrt #inclurrt #inclurrt int ma # () {a e; returnt0_ } _ACEOF l 2ocxfnxcxtry$MFLAGS |"&$4 f"patibl :rm -cxMvxhead r_stdc=yet fi rm -cxMvxhead r_stdc=nontharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet L" >&1; $ hcBvxhead r_stdc tyetpatible="# SunOS 4.x strle..h doesl migdeclirvemem*, cFntrary >ooANSI.rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #i#clurrt _ACEOF l 2(e $?(&1;.$Pcxhet") 2>&5 |t eIEGREP "memchr" >/dev/nullX2>&1patibl :r fi rm -cxMvxhead r_stdc=nontharmv f MFnf>&1;* thatl 2>&1; $ hcBvxhead r_stdc tyetpatible="# ISC 2.0.2 stdlib.h doesl migdeclirvefree, cFntrary >ooANSI.rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #i#clurrt _ACEOF l 2(e $?(&1;.$Pcxhet") 2>&5 |t eIEGREP "free" >/dev/nullX2>&1patibl :r fi rm -cxMvxhead r_stdc=nontharmv f MFnf>&1;* thatl 2>&1; $ hcBvxhead r_stdc tyetpatible="# /bin/cc in Irix-4.0.5 g }stnon-ANSI ctype macros unl es usle.;-anse. m L" >&1; " crossxMFLAGSle." tyetpatibl :rm :" fi rm cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ #i#clurrt #inclurrt #i 2((' ' & 0x0FF) = t0x020)t# def $2 ISLOWER(c) ('a' <= (c) /) (c) <= 'z')t# def $2 TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') : (c)) # fi r# def $2 ISLOWER(c) \a nen(('a' <= (c) /) (c) <= 'i') \a nen X|| ('j' <= (c) /) (c) <= 'r') \a nen X|| ('s' <= (c) /) (c) <= 'z'))t# def $2 TOUPPER(c) (ISLOWER(c) ? ((c) |t0x40) : (c)) # ifat#def $2 XOR(e,af) (((e) /) !(f))X|| (!(e) /) (f))) int ma # () {a #t i;e="-_SE(i t0_ i < 256_ i++)nenenl 2(XORE(isloweSE(i), ISLOWERE(i)) || touppeSE(i) ! tTOUPPERE(i)) #(enenreturnt2; returnt0_ } _ACEOF l 2ocxfnxcxtry$runE"&$4 f"patibl :r fi rm -cxMvxhead r_stdc=nontharmv f MFre *.MFre MFre.MFnf>&1;.* gmon.oue bb.oue MFnf>&1;$Pcxhe hetX\rm cFnf>&1;.$Pcxobjeet MFnf>&1;.beam MFnf>&1;.$Pcxhet er'thatha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxhead r_stdc$X>&5_r: $2" >\"$ hcBvxhead r_stdc$X>&6_ } L" >&1; $ hcBvxhead r_stdc tyetpatible_r: $2" >\"#def $2 STDC_HEADERS 1$X>>MFnfdefs.h that# On IRIX 5.3,lsy1/typeslind #ttypes.h irveMFnflictle.. -_SEPcxhead r # sy1/types.h sy1/stat.h stdlib.h strle..h memory.h strle.s.h \a ne #ttypes.h stdin>.h unistd.h do :rm -s_ahcHead r=`r: $2" >\" hcBvxhead r_$Pcxhead r" | a>r_sh` ocxfnxcxcxhead r_MFLAGS |"&$4 f"\"$ hchead r" 2 aahcHead r"\"$ hcinclurrs_defas_v "al 2e $?(>&1; \"x\$2 aahcHead r"\" tx"yet"patibl :rm cat >>MFnfdefs.hX<<_ACEOFn#def $2 `r: $2" >\"HAVE_$Pcxhead r" | a>r_Bpp` 1 _ACEOF thatdirs"t # T pncast >ooloe.; #t works arou Xalbug # t poHP C CFLAGS r # , is in|HP92453-01 B.11.11.23709.GP,;whGc_ incorrectly $jecest# declirat ins : ke ` #t a3[[(sizeo 2(unsegned|" ar))X> t0]];'. # T islbug soHP SR numb r 8606223364. {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;sizelof loe.;douesh"|>&5_r: $2" >_os"cle.;sizelof loe.;doueshgotc"|>&6_ } L" >&1; " {acxcvxsizeo _loe._douesh $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm l 2ocxfnxcxcFLAute_ #t "&$4 f"\"(loe.; #t) (sizeo 2(loe.;douesh))"\" hcBvxsizeo _loe._douesh" "$ hcinclurrs_defas_v"patibl :r fi rm L" >&1; " ahcMv_type_loe._douesh" tyetpatible=" m {"{"r: $2" >&2 as_ferror: $2" >&$4 fi e dir:| # \`/ahclwd':"X>&5_r: $2" >\"$ as_f e dir:| # \`/ahclwd':"X>&2;} P_foate dire77 "rgu migcFLAute sizeo 2(loe.;douesh) See \`MFnfig.log' -_SEmorvedeta ls"a"&$4 f" 5_ } #(e fi rm ene hcBvxsizeo _loe._douesh=0rm l erthattha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxsizeo _loe._douesh" >&5_r: $2" >\"$ hcBvxsizeo _loe._douesh" >&6_ } r cat >>MFnfdefs.hX<<_ACEOFn#def $2 SIZEOF_LONG_DOUBLE;$ahcBvxsizeo _loe._douesh _ACEOF "t {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_Stran 90Emodul&1 #clus in|flag" >&5_r: $2" >_os"cle.;-_Stran 90Emodul&1 #clus in|flaggotc"|>&6_ } L" >&1; " {axxMvxf90_modflag $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm ahchet= {acxfc_srchet-f} PcxcFLAGS ='$FC -ca$FCFLAGSa$acxfcflags_srchet MFnf>&1;.$PcxhetX>&5' Pcx: $k='$FC -o MFnf>&1;$Pcxhe hetX$FCFLAGSa$LDFLAGS $acxfcflags_srchet MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxfcxMFLAGS r_gnu i=0rwhiln >&1; \(v f tmpdir_$i \) -o \(v d tmpdir_$i \) r in #(L=`expr $i + 1`tdirs"mkS= |tmpdir_$i cd|tmpdir_$i cat > MFnf>&1;.$PcxhetX<<_ACEOFn !234567 #(enenmodul& MFnf>&1;_modul& #(enencFnta #s #(enensubrout $2 MFnf>&1;_rout $2 #(enenwrite(*,'(a)') 'got" a!'nen e subrout $2 MFnf>&1;_rout $2 #(enene modul& MFnf>&1;_modul& _ACEOF L" ocxfnxfcxtry$MFLAGS |"&$4 f"patibl :rntharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet cd|go axxMvxf90_modflag=" migfou " -_SEPxxflag # "-I"a"-J"a"-M"a"-p"r in #(L" >&1; " axxMvxf90_modflag" t" migfou " {as_linen axcsave_FCFLAGS="$FCFLAGS$ #(enFCFLAGS="$axcsave_FCFLAGS {axxflag}tmpdir_$i"nenencat > MFnf>&1;.$PcxhetX<<_ACEOFn !234567 #(enenlet wit;MFnf>&1;_let wit #(enenusrtMFnf>&1;_modul& #(enencall MFnf>&1;_rout $2 #(enene let wit;MFnf>&1;_let wit _ACEOF L" ocxfnxfcxtry$MFLAGS |"&$4 f"patibl :rm -xxMvxf90_modflag="$axxflag"ntharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet #(enFCFLAGS="$axcsave_FCFLAGS" el erdirs"rmv f |tmpdir_$i L" >&1; " axxMvxf90_modflag" t" migfou " {as_linena_foate directorunses, >oo1 nd MFLAGS r flag -_SEmodul&1 #clus in"|"&$4 f" 5rthaacxhet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu ttha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$axxMvxf90_modflag" >&5_r: $2" >\"$ xxMvxf90_modflag" >&6_ } rl 2>&1; "x${usr_LAGs1; txyetpatible="ae{"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;l 2your MPI sousaesh"|>&5_r: $2" >_os"cle.;l 2your MPI sousaeshgotc"|>&6_ } ene hchet= {acxfc_srchet-f} PcxcFLAGS ='$FC -ca$FCFLAGSa$acxfcflags_srchet MFnf>&1;.$PcxhetX>&5' Pcx: $k='$FC -o MFnf>&1;$Pcxhe hetX$FCFLAGSa$LDFLAGS $acxfcflags_srchet MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxfcxMFLAGS r_gnu enencat > MFnf>&1;.$PcxhetX<<_ACEOFn let wit;MFnf>&1;_let inclurrt'LAGf.h' call MPI_Init(ie d) e let wit;MFnf>&1;_let _ACEOF L" ocxfnxfcxtry$: $k "&$4 f"patibl :rm 2" >\"#def $2 __MPI$X>> ./src/ppm_def $2.h" fi rm a_foate directorCgu migbuild PPM WIet MPI supp_St : ke >ois"|"&$4 f" 5rtharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet \ enencFnf>&1;$Pcxhe hetXMFnf>&1;.$Pcxhet #(en{ r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;yet"X>&5_r: $2" >\"yet"X>&6_ } # AC_CHECK_$4B([],[MPI_Init],[ # e" >\"#def $2 __MPI$X>> ./src/ppm_def $2.h], # [AC_MSG_ERROR([Cgu migbuild PPM WIet MPI supp_St : ke >ois])]) ene hchet=c Pcxcpp='$CPPa$CPPFLAGS' PcxcFLAGS ='$CC -ca$CFLAGSa$CPPFLAGS MFnf>&1;.$PcxhetX>&5' Pcx: $k='$CC -o MFnf>&1;$Pcxhe hetX$CFLAGSa$CPPFLAGS $LDFLAGS MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxcxMFLAGS r_gnu that# -_SEnow let'snusrtt poC MFLAGS r >ooctt pove or we'rveusle.;herpr# >ois of MFurse;means thae wesHAVE >oo }\all MFLAGS r flags tomMFLAGS rs of_# tib ss_exve or (whGc_ is anyway a good idea)t {"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEC MFLAGS r ve or"|>&5_r: $2" >_os"cle.;-_SEC MFLAGS r ve orgotc"|>&6_ } L" >&1; " {axxMvxcxMFLAGS r_ve or $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm axxMvxcxMFLAGS r_ve or=unknown ="# mie: don'txc;-_SEgcc 1 r1; slecrtso_exos_lr MFLAGS rs def $2 __PPMC__9 -_SE, n>&1; in #tel:__ICC,__ECC,__INTEL_COMPILER ibm:__xlc__,__xlC__,__IBMC__,__IBMCPP__ paetscale:__d=faCC__,__d=faSCALE__ gnu:__PPMC__ sun:__SUNPRO_C,__SUNPRO_CC hp:__HP_cc,__HP_aCC dec:__DECC,__DECCXX,__DECC_VER,__DECCXX_VER borlind:__BORLANDC__,__TURBOC__ MFLeau:__COMO__ Mray:_CRAYC kai:__KCC lcc:__LCC__;metroweSks:__MWERKS__ sgi:__sgi,sgi microsoft:_MSC_VER watMFL:__WATCOMC__;p_Stlind:__dGIr in #(en, ncpp="def $2d("`2" >\$, n>&1; | cutv d:v f2 | sed|'s/,/)X|| def $2d(/g'`")"nenencat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ int ma # () {a #i 2!($, ncpp) >oisisane dir; #e ifat e; returnt0_ } _ACEOF l 2ocxfnxcxtry$MFLAGS |"&$4 f"patibl :rm -xxMvxcxMFLAGS r_ve or=`2" >\$, n>&1; | cutv d:v f1`; break'tharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet MFnf>&1;.$Pcxhet e dirs"ttha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$axxMvxcxMFLAGS r_ve or" >&5_r: $2" >\"$ xxMvxcxMFLAGS r_ve or" >&6_ } r # Csl-_SElibrariesland set peeletc esle.;-lags r# >ois >&1; shouldlbl omi}t d(L" > poMFLAGS r is #tel, iony letverrtionir own #gmath implnm ntat inrl 2>&1; "x${ xxMvxcxMFLAGS r_ve or}" ! tx #tel{as_linen{"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SEsqr; in -lm"|>&5_r: $2" >_os"cle.;-_SEsqr; in -lmgotc"|>&6_ } L" >&1; " {acxcvxlib_m_sqr; $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm ahccxlib_save_$4BS=&$4BS $4BS="-lm X&$4BS" cat MFnfdefs.h - <<_ACEOF >MFnf>&1;.$Pcxhet /* e MFnfdefs.h. */ /* O, irerrtany GCC #ternal|lettotype to avoid in e dir19e hUsesrharlblcausl in> mighigmatc_ > poreturnttype of a GCC9e hbuiltin|ind t pn ts irgum nt lettotype wouldlstill apply. */ #ifdef __cplusplus exaernt"C" #e ifarharlsqr; (); int ma # () {areturntsqr; (); e; returnt0_ } _ACEOF l 2ocxfnxcxtry$: $k "&$4 f"patibl :rm acxcvxlib_m_sqr;=yet fi rm -cxMvxlib_m_sqr;=nontharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet \ enencFnf>&1;$Pcxhe hetXMFnf>&1;.$Pcxhet $4BS=&ahccxlib_save_$4BSttha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxlib_m_sqr;" >&5_r: $2" >\"$ hcBvxlib_m_sqr;" >&6_ } L" >&1; "x$ hcBvxlib_m_sqr;" tx""yetpatibl :rm cat >>MFnfdefs.hX<<_ACEOFn#def $2 HAVE_$4BM 1 _ACEOF $4BS="-lm &$4BS" rthattha #gMake sur |thae >opolibrarieslarpoMFLAGS d|WIet F_Stran acxhet= {acxfc_srchet-f} PcxcFLAGS ='$FC -ca$FCFLAGSa$acxfcflags_srchet MFnf>&1;.$PcxhetX>&5' Pcx: $k='$FC -o MFnf>&1;$Pcxhe hetX$FCFLAGSa$LDFLAGS $acxfcflags_srchet MFnf>&1;.$PcxhetX&$4BSX>&5' PcxMFLAGS r_gnu=IahcBvxfcxMFLAGS r_gnu t# C;-_SEMETIS have_metis=non{"r: $2" >&2 as_ferror: $2" >&$4 fi cle.;-_SElibraryncFnta #le.;METIS_PartGraphRecursivh"|>&5_r: $2" >_os"cle.;-_SElibraryncFnta #le.;METIS_PartGraphRecursivhgotc"|>&6_ } L" >&1; " {acxcvxsearch_METIS_PartGraphRecursivh $as1; t $apatibl :rm r: $2" >_os"(M*d)c"|>&6" fi rm ahcfuncxsearch_save_$4BS=&$4BS cat > MFnf>&1;.$PcxhetX<<_ACEOFnen let wit;ma #a call METIS_PartGraphRecursivh #(enene _ACEOF -_SEPcx: b| # '' metisr in #(L" >&1; tERSIacx: b"{as_linen ac_ $a=" mnporequired" elilsn m ac_ $a=-lIacx: b m $4BS="-lIacx: ben$ahcfuncxsearch_save_$4BS" el erm l 2ocxfnxfcxtry$: $k "&$4 f"patibl :rm acxcvxsearch_METIS_PartGraphRecursivh=Iahc $antharmv f MFre MFnf>&1;. ir MFnf>&1;.$Pcxobjeet \ enencFnf>&1;$Pcxhe het #(L" >&1; " {acxcvxsearch_METIS_PartGraphRecursivh $as1; t $apatibl :rm break'thadirs"l 2>&1; " {acxcvxsearch_METIS_PartGraphRecursivh $as1; t $apatibl :r fi rm -cxMvxsearch_METIS_PartGraphRecursivh=nontharmvMFnf>&1;.$Pcxhet $4BS=&ahcfuncxsearch_save_$4BSttha{"r: $2" >&2 as_ferror: $2" >&$4 fi $as_v:;$ahcBvxsearch_METIS_PartGraphRecursivh" >&5_r: $2" >\"$ hcBvxsearch_METIS_PartGraphRecursivh" >&6_ } Pcx $a=$ hcBvxsearch_METIS_PartGraphRecursivh L" >&1; " ahcret"X! tnopatibl :rm >&1; " ahcret"X t" mnporequired"X|| $4BS="$-cxret &$4BS" have_metis=y$antharl 2>&1; "x${have_metiss1; txnopatiblrm 2" >\"------------------------------------------"rm 2" >\" T pnMETISElibrarynis required|>oobuild PPMtc"rm 2" >\" Eis_lr >opolibrarynis miesle.;or incorrectly MFLAGS d/: $ked."rm 2" >\" Stopple..otc Pleasl download|it:"rm 2" >\" http://glaros.dtc.umn.edu/gkhFLe/metis/metis/download"rm 2" >\"------------------------------------------"rm (exit 1); exit 1; fi rm e" >\"#def $2 __METIS$X>> ./src/ppm_def $2.h"tha #gC;>oo e(L" linux wasne aeshd|WIet -e aesh-linux #gC;whes_lr --e aesh-linux wasngivhn."l 2>&1; " {e aesh_linux $as1; t $apatibl :rm e aeshval=$e aesh_linux; e" >\"#def $2 __Linux$X>> ./src/ppm_def $2.h"tha #gC;>oo e(L" eti_exWasne aeshd|WIet -e aesh-eti_e #gC;whes_lr --e aesh-eti_exWasngivhn."l 2>&1; " {e aesh_eti_e $as1; t $apatibl :rm e aeshval=$e aesh_eti_e; e" >\"#def $2 __ETIME$X>> ./src/ppm_def $2.h"tha #gC;>oo e(L" vectorxWasne aeshd|WIet -e aesh-vector #gC;whes_lr --e aesh-vectorxWasngivhn."l 2>&1; " {e aesh_vector $as1; t $apatibl :rm e aeshval=$e aesh_vector; e" >\"#def $2 __VECTOR$X>> ./src/ppm_def $2.h"tha #gC;whes_lr --e aesh-mathkeisanxWasngivhn."l 2>&1; " {e aesh_mathkeisan $as1; t $apatibl :rm e aeshval=$e aesh_mathkeisan; e" >\"#def $2 __MATHKEISAN$X>> ./src/ppm_def $2.h"tha #gC;whes_lr --e aesh-sxf90xWasngivhn."l 2>&1; " {e aesh_sxf90 $as1; t $apatibl :rm e aeshval=$e aesh_sxf90; e" >\"#def $2 __SXF90$X>> ./src/ppm_def $2.h"tha #gC;whes_lr --e aesh-Mrayfishpa;wasngivhn."l 2>&1; " {e aesh_Mrayfishpa $as1; t $apatibl :rm e aeshval=$e aesh_Mrayfishpa; e" >\"#def $2 __CRAYFISHPACK$X>> ./src/ppm_def $2.h"tha #gC;whes_lr --e aesh-hyprexWasngivhn."l 2>&1; " {e aesh_hypre $as1; t $apatibl :rm e aeshval=$e aesh_hypre; e" >\"#def $2 __HYPRE$X>> ./src/ppm_def $2.h"tha #gC;whes_lr --e aesh-" >microinstrxWasngivhn."l 2>&1; " {e aesh_no_microinstr $as1; t $apatibl :rm e aeshval=$e aesh_no_microinstr; e" >\"#def $2 __NOMICROINSTRUCTIONS$X>> ./src/ppm_def $2.h"tha #gC;whes_lr --e aesh-debug Wasngivhn."l 2>&1; " {e aesh_debug $as1; t $apatibl :rm e aeshval=$e aesh_debug; DEBUG=-O0 "tha #gGenerategMakefGS s PcxMFnfig_fGS s=BFnfM*X<<\_ACEOFn# T islfGS is a shell script|thae M*s > poreas_vs of MFnfigurpr# >&1;sgrunEonEt islsy1;&mtso iony rgumbe shared|bltwe n;MFnfigurpr# scriptsland MFnfigurpgruns,o e(MFnfigurp's;opt in --MFnfig-M*. # It isl migusefulEonEos_lr sy1;&mst IfoitncFnta #soreas_vs you don't # want >ookeep, you mayerems, _SEediiglt. # # MFnfig.status o#ly paysla}t nt in >oo>oeEM*XfGS i 2youngivhoii_# >oeE--rec;opt in >oorerunEMFnfigurp. # # ` hcBvxenvxfoo' variaeshs (set _SEunset)|WIll bl o, irerdbl wiblr# loadle.;t islfGS ,Eos_lr *unset* ` hcBvxfoo' WIll bl asslgned|t pr# followle.;valu&1tn _ACEOF # T pnfollowle.;way of writle.;t poM*Xmiehindl e new: $esl # valu&1, # butowesknow of nomworkarou Xthae islsimpln,;p_Staesh,|ind effici nt. # So, weskIll variaeshs cFnta #le.;new: $es. # Ultrix sh set writes tomstd ir and Man'txbporedirected|directly, # and sets > pohigh;bi} # t poM*XfGS unl es w. asslgn >oo>oeEvars. ( en-_SEPcxvar # `(set)|2>&1 | sed|-n|'s/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`;;dinenene $?(Pcxval=\$$Pcxvarnenencasl $ hc $?( # #(nenen*errornl}*)nen m casl $ hc $r( # #(nenenen*cBvx*) {"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: rgcoeEvariaesh $ hc $r(cFnta #soa;new: $e" >&5_r: $2" >\"$ as_f WARNING: rgcoeEvariaesh $ hc $r(cFnta #soa;new: $e" >&2;} ;; n esacnen m casl $ hc $r( # #(nenenen_ | IFS | rornl) ;; #(nenenenBASH_ARGV | BASH_SOURCE) e $?($Pcx $r= ;; #(nenenen*) {"e $?($Pcx $r=;Eunset($Pcx $r;} ;; n esac ;; n esacnendirs"rm (set)|2>&1 |nenencasl $ ornl`(Pcxspac =' '; set)|2>&1`( # #(nenen*errornl}Pcxspac =\ *)nen ="# `set' doesl migquo>& correctly,tso add|quo>&1:;douesh-quo>&nen ="# substitut in >ur#so\\\\ in>oo\\, and sed >ur#so\\ in>oo\. #(enensed|-n|\ "s/'/'\\\\''/g; ens/^\\([_ acr_alnum]*cBvx[_ acr_alnum]*\\)=\\(.*\\)/\\1='\\2'/p$ #(enen;; #(nenen*)nen ="# `set' quo>&1 correctly as required|by POSIX,tso dol migadd|quo>&1. #(enensed|-n|"/^[_ acr_alnum]*cBvx[_ acr_alnum]*=/p$ #(enen;; n esac |nenens_St ) |nensed|' #(ene/^ hcBvxenvx/bne > clearnenen :clearnenen s/^\([^=]*\)=\(.*[{}].*\)$/>&1; " {\1 $as1; t $aX|| &/ > e s/^\([^=]*\)=\(.*\)$/\1= {\1=\2}/ :e ' >>MFnfrgcoe"l 2diff "$rgcoe_fGS " BFnfM*X>/dev/nullX2>&1patibl :; fi rm l 2>&1; tw "$rgcoe_fGS "{as_linen >&1; "x$rgcoe_fGS " ! t"x/dev/null$X/) #(enen{"r: $2" >&2 as_ferror: $2" >&$4 fi updatle.;M*X$rgcoe_fGS " >&5_r: $2" >\"$ as_f updatle.;M*X$rgcoe_fGS " >&6;}nenencat MFnfM*X>$rgcoe_fGS elilsn m {"r: $2" >&2 as_ferror: $2" >&$4 fi migupdatle.;unwritaesh M*X$rgcoe_fGS " >&5_r: $2" >\"$ as_f migupdatle.;unwritaesh M*X$rgcoe_fGS " >&6;}nen ertharmv f MFnfrgcoe" >&1; "x$prefix1; txNONE /) prefix=$ hcdefas_v_prefix Lse make expind ee hxprefix. >&1; "x$ee hxprefix1; txNONE /) ee hxprefix='${prefix}' # Trans-_SmtMFnfdefs.hXin>ooDEFS. # Protece aga #st shell expins in|whiln oth cale.;MakefGS grules. # Protece aga #st MakefGS gmacro expins in. # # I" > po1 r1; sed substitut in isloth caed (whGc_ looksl-_SEmacros thae_# >ake rgum ntt),atibl branc_ >oet poquo>& sect int Os_lrwise, # look;-_SEagmacro thae doesn'tx>ake rgum ntt.rahcscript=' :m: $2 /\\$/{ N s,\\\n,, b m: $2 } > clearn:clearns/^[ ]*#[ ]*def $2[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g igquo>&ns/^[ ]*#[ ]*def $2[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g igquo>&nbtany :quo>&ns/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g s/\[/\\&/g s/\]/\\&/g s/\$/$$/g H :any ${ g s/^\n// s/\n/ /g p } ' DEFS=`sed|-n|"$ahcscript"tMFnfdefs.h` atacxlibobjs=tacxltlibobjs=tU= -_SEPcxi # : &$4BOBJS;;di >&1; "x$ hci1; tx: /) cFntinuet # 1. Rems, t poexaens in, and $U l 2olreadyminstalle gtesahcscript='s/\$U\././;s/\.o$//;s/\.obj$//'tesahci=`r: $2" >\"$ hci" | sed|"$ahcscript"`t # 2. Prepe $4BOBJDIRt Wibl used|WIet automake>=1.10 $4BOBJDIRt # WIll bl $aX>oet podirectory;wherp $4BOBJS objectslarpobuilt.rm a_foatappe Xacxlibobjs " \${$4BOBJDIR}$ hci\$U.$Pcxobjeet"rm a_foatappe Xacxltlibobjs " \${$4BOBJDIR}$ hci"'$U.lo'adirs"$4BOBJS=$acxlibobjs LT$4BOBJS=$acxltlibobjs : &{CONFIG_STATUS=./MFnfig.status} Pcxwrite_faGS=0 PcxMlean_fGS s_save=$ hcBlean_fGS s PcxMlean_fGS s=&2 as_ferror: $2" >&$4 fi creaale.;$CONFIG_STATUS" >&5_r: $2" >\"$ as_f creaale.;$CONFIG_STATUS" >&6;} P_fwrite_faGS=0 cat >$CONFIG_STATUSX<<_ASEOF || rorwrite_faGS=1 #! $SHELL #gGenerated|by $ as_. # Run;t islfGS >oorecreaa t pocurrentEMFnfigurat in. # CFLAGS roouepue produced|by MFnfigurp,gusefulE-_SEdebuggle. # MFnfigurp,gis # MFnfig.loggl 2iighei1;stn debug=fafi rahcBs_rec=fafi rahcBs_sGS nt=fafi r SHELL=\${CONFIG_SHELL-$SHELL} exp_St SHELL _ASEOF cat >>$CONFIG_STATUSX<<\_ASEOF || rorwrite_faGS=1 ## -------------------- ## ## M4st Initializat in. ## ## -------------------- ## # BeEmorveBour#poMFLAat esh DUALCASE=1; exp_St DUALCASE # -_SEMKSXsh"l 2>&1; tn|"${ZSH_VERSION $as1;/) (emulat Xsh) >/dev/nullX2>&1patibl :relimulat XshrelNULLCMD=:t # Pre-4.2E, is ins of Zsh domword splittle.;on &{1+"$@"},;whGc_t # is cFntrary >ooour usaget Disses, > islfeaaurp. m alias -g '&{1+"$@"}'='"$@"'nensetopt NO_GLOBxSUBST" fi rm casl `( $aX-o)E2>/dev/null`| # #(nen*posix*) :nenens$aX-oeposixn;; #(nen*) :nenen ;; esacnfi ataornl=' ' exp_St aornl # Printle.;a loe.;strle. crass Solarisl7 /usr/bin/printf. : $2" >='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' : $2" >=r: $2" >r: $2" >r: $2" >r: $2" >r: $2" > : $2" >=r: $2" >r: $2" >r: $2" >r: $2" >r: $2" >r: $2" > # PrefeSEagksh shell builtin|o, i in external|leintf let wit;onESolaris, # butowIetoue wastle.;-_Sksl-_SEbas _SEzsh."l 2>&1; tERSIBASH_VERSION$ZSH_VERSION" \ enen/) (>&1; "X`leint -r --"r: $2" >`"X t"Xr: $2" >")E2>/dev/null{as_linena_f2" >='leint -r --'nena_f2" >_n='leint -rn --'nell 2(>&1; "X`leintf %s"r: $2" >`"X t"Xr: $2" >")E2>/dev/null{as_linena_f2" >='leintf %s\n'nena_f2" >_n='leintf %s' fi rm L" >&1; "X`(/usr/ucb/2" >\tn|-n"r: $2" >)E2>/dev/null`"X t"X-n"r: $2" >"{as_linen a_f2" >_body='e $?(/usr/ucb/2" >\tn|"$1$ ornl"'nen a_f2" >_n='/usr/ucb/2" >\tn' elilsn m a_f2" >_body='e $?(expr "Xr1" : "X\\(.*\\)"'nen a_f2" >_n_body='e $? #(enenarg=$1; n casl $ rg # #(nenenen*"$ ornl"*) expr "Xrarg" : "X\\(.*\\)$ ornl"; arg=`expr "Xrarg" : ".*$ ornl\\(.*\\)"`;; n esac; n expr "Xrarg" : "X\\(.*\\)" | trv d "$ ornl" n 'nen exp_St aor2" >_n_bodynen a_f2" >_n='s -ca$aor2" >_n_body a_f2" >' el erm exp_St aor2" >_bodynena_f2" >='s -ca$aor2" >_body a_f2" >' tha #gT pouslrdis alwayslrighi."l 2>&1; " {d=fa_SEPARATOR $as1;! t $apatiblnend=fa_SEPARATOR=:t (d=fa='/bin;/bin'; Fd=fa=$d=fa;ls -ca:) >/dev/nullX2>&1n/) {nen (d=fa='/bin:/bin'; Fd=fa=$d=fa;ls -ca:) >/dev/nullX2>&1n|| n d=fa_SEPARATOR=';' el}"tha #gIFS_# Wveneed spac ,;tab and new;: $2, # precisely thae ord rt Quo>le.;ls_# >oer >oopre, n>Eediiors from MFLAla #le.;aboue spac -tab. # (I" _AS_d=fa_WALK2wervecalle |WIet IFS unset,2iigwouldldisses, wordr# splittle.;by }tle.;IFS >ooempty valu&.)"IFS=" "" $ ornl" # F nd w >\we irvt Look; # t popaet i 2we cFnta # nomdirectory;sepiratir19casl $0 # #((nen*[\\/]* ) a_fmyself=$0 ;; *)na_fsave_IFS=$IFS; IFS=$d=fa_SEPARATORs__SEPsxS= | # $d=fa/ tesIFS=$reasave_IFS_di!= x;VERSIas_S= $X/) os_S= =19e ha!= x;VrRSIas_S= /$0$X/) os_myself=$as_S= /$0X/) break'hedirs"IFS=$reasave_IFS_nenen ;; esacn# Wvedid mig1 nd Furselves,;mo1; letbsesy2we werverun;as `s COMMAND'n# in;whGc_ casl we irve mig>oobl fou X # t popaet. L" >&1; "x$ s_myself1; tx{as_linena_fmyself=$0"thaL" >&1; !v f E os_myself1{as_linenr: $2" >\"$ asyselff e dir:|rgu mig1 nd syself;orerunEWIet an ibsolute|fGS ns_e" >&2rm exit 1 tha #gUnset(variaeshs thae wesdol migneed and w Gc_ causl bugs (e.g.| # #opre-3.0 UWINgksh)t Butsdol migcausl bugs # bas 2.01patib "|| exit 1"r# suppresseslany "Segm ntat in fas_v" messagrtionrvt '((' could_# >riggeSEagbug # pdksh 5.2.14.s__SEPsx $r( # BASH_ENV ENV MAIL MAILd=fa/ 2e $?(>&1; x\${r: cvar $as; txset(\ en/) (2(unset($P cvar)X|| exit 1) >/dev/nullX2>&1n/) unset($P cvarX|| :adirs"PS1='$ 'nPS2='> 'nPS4='+ ' # NLS nuisanc etnLC_ALL=C exp_St LC_ALL LANGUAGE=C exp_St LANGUAGE #gCDd=fa. (unset(CDd=fa) >/dev/nullX2>&1n/) unset(CDd=faa #ga_foate direSTATUSXERROR [$4 f LOG_FD] # ----------------------------------------t# Ouepue "`basens_ex$0`f e dir:|ERROR" tomstd ir. I" $4 f and LOG_FD irv #oprtverrd, also;ouepue the e dir tomLOG_FD, refeSencle.;$4 f.gT pn exit t pr# script|WIet STATUS,eusle.;1(L" > ae was 0. P_foate dire() {a reastatus=$1; >&1; $ eastatus -eq 0X/) os_status=1 #(L" >&1; " 4"{as_linen a_f: $2" =error: $2" >"$3"} a_f: $2" _sta=a_f: $2" _sta=$a_f: $2" _stanen r: $2" >&2 as_ferror: $2" >&$4 fi e dir:|$2" >&$4 el erm r: $2" >\"$ as_f e dir:|$2" >&2rm a_foatexit $ eastatus } #ga_foate dira #ga_foatsetastatus STATUS # ----------------------- # Set($? tomSTATUS,ewIetoue -_Skle.. a_foatsetastatus () {a returnt$1 } #ga_foatsetastatus #ga_foatexit STATUS # ----------------- # Exit t p shell WIet STATUS,ee, n( # a "trap 0$X_SE"s$aX- " BFnvext. P_foatexit () {a s$aX+ rm a_foatsetastatus $1 n exit $1 } #ga_foatexit #ga_foatunset(VAR # --------------- # P_Stsesy2unset(VAR. P_foatunset(() {a {"e $?($1=;Eunset($1;} } P_funset=P_foatunset #ga_foatappe XVARXVALUE # ---------------------- # Appe Xt p texa| # VALUEX>oet poe Xo" > podef $it in cFnta #ed| # VAR.gTakpr# advantage of any shell opt mizat ins thae allow am_Stized|: $2aSEgrowet o, i"# r&peated|appe s,minstea Xo" > potypical quadrat cEgrowet pres n>E # naivh # implnm ntat ins. l 2(e $?(

&1; x\$P cvarX tx12")E2>/dev/null{as_li :reli $?('a_foatappe X()nen{nenene $?($1+=\$2rm }'" fi rm a_foatappe X()nen{nenene $?($1=\$$1\$2rm }nfin# a_foatappe #ga_foatariet ARG... # ------------------ # Per-_Smtarietmeticne $?uat in o# t poARGs,|ind 1;orve> poreas_vX # t p # gltbsl($P cval.gTakp advantage of shells|thae M*n avoid -_Sks.gT p|irgum ntt # muse be;p_Staesh across $(())|ind expr. l 2(e $?(<>&1; \$((;1(+ 1 ))|= 2")E2>/dev/null{as_li :reli $?('a_foatariet ()nen{nenenP cval=$((;$* ))rm }'" fi rm a_foatariet ()nen{nenenP cval=`expr "$@"X|| >&1; $? -eq 1`rm }nfin# a_foatariet rl 2expr a : '\(a\)' >/dev/nullX2>&1X/) #(e>&1; "X`expr 00001 : '.*\(...\)'`"X tX001patibinena_f2xpr=2xpr" fi rm a_f2xpr=fafi rtharl 2(basens_ex-- /) >/dev/nullX2>&1n/) >&1; "X`basens_ex-- /|2>&1`"X t"X/"patibinena_fbasens_e=basens_e" fi rm a_fbasens_e=fafi rtharl 2(os_S= =`S= ns_ex-- /`n/) >&1; "XIas_S= $X tX/) >/dev/nullX2>&1patibinena_fS= ns_e=S= ns_e" fi rm a_fS= ns_e=fafi rthar as_=`r: $basens_ex-- "$0$X|| $a_f2xprtX/"$0$X: '.*/\([^/][^/]*\)/*$' \| \ X"$0$X: 'X\(//\)$' \| \ X"$0$X: 'X\(/\)' \| . 2>/dev/nullX||_r: $2" >\X/"$0$X|nenensed|'/^.*\/\([^/][^/]*\)\/*$/{ s//\1/ q } /^X\/\(\/\/\)$/{ s//\1/ q } /^X\/\(\/\).*/{ s//\1/ q } s/.*/./; q'` #gAvoid depe le.;upo# CharacteSERang etna acr_lltt rs='abcdefghijklmnopqrstuvwxyz'na acr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'na acr_Lltt rs=$a acr_lltt rs$a acr_LETTERSna acr_digits='0123456789'na acr_alnum=$a acr_Lltt rs$a acr_digits ECHO_C= ECHO_N= ECHO_T= casl `2" >\tn|x`| # #((((( -n*)nencasl `2" >\'xy\c'`| # *c*)nECHO_T=' ';; #nECHO_T islsings, >absrharacteS19e xy) ECHO_C='\c';; *)nm e" >\`2" >\ksh88gbug o# AIX 6.1` > /dev/null n nECHO_T=' ';; esac;; *)nenECHO_N='-n';; esacn rmv f MFnf$$ MFnf$$.exe MFnf$$.fGS l 2>&1; td MFnf$$.S= patibinenrmv f MFnf$$.S= /MFnf$$.fGS fi rm rmv f MFnf$$.S= rm mkS= |MFnf$$.S= 2>/dev/null"thaL" (2" >\>MFnf$$.fGS )E2>/dev/null{as_linenL" ln -s MFnf$$.fGS MFnf$$ 2>/dev/null{as_linen a_f:ats='ln -s'nen # .otcbue there irvetwo got" as:nen # 1) On MSYS,eboet `ln -s fGS S= '|ind `ln fGS S= '|faGS.nen # 2) DJGPP < 2.04 as nomsym: $ks; `ln -s' creaaesla wrappeSEoth cases,.nen # Ineboet casls, weshaveX>oedefas_vX>oe`cp -p'.nen ln -s MFnf$$.fGS MFnf$$.S= 2>/dev/nulln/) >&1; !v f MFnf$$.exe || n a_f:ats='cp -p' elilL" ln MFnf$$.fGS MFnf$$ 2>/dev/null{as_linen a_f:ats=ln elilsn m a_f:ats='cp -p' el er(li rm a_f:ats='cp -p' tharmv f MFnf$$ MFnf$$.exe MFnf$$.S= /MFnf$$.fGS MFnf$$.fGS rmS= |MFnf$$.S= 2>/dev/null" #ga_foatmkS= _p # ------------- #gCreaa SIas_S= $Xasla directory, inclurle.;parentsnL" nec esary. P_foatmkS= _p () {a ecasl $ orS= | # #(nen-*)na_fS= =1/$ orS= ;; esac_di!= x;Vd SIas_S= $X|| evsl($P cmkS= _p || {nenenP cS= s=nenenwhiln :r in #(enencasl $ orS= | # #(nenenen*\'*)na_fqS= =`r: $2" >\"$ aS= $X| sed|"s/'/'\\\\\\\\''/g"`;; #'(nenenen*) a_fqS= =$ orS= ;; n esac n a_fS= s="'$a_fqS= ' $ orS= s" n a_fS= =`r: $S= ns_ex-- SIas_S= $X|| $a_f2xprtXSIas_S= $X: 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$as_S= $X: 'X\(//\)[^/]' \| \ X"$as_S= $X: 'X\(//\)$' \| \ X"$as_S= $X: 'X\(/\)' \| . 2>/dev/nullX||_r: $2" >\XSIas_S= $X|nenensed|'/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` n != x;Vd SIas_S= $X/) break'hehedirs"hedi!= x;VERSIas_S= s$X|| evsl("mkS= |$ orS= s" }X|| >&1; Vd SIas_S= $X|| a_foate directorrgu migcreaa directory;Ias_S= $" } #ga_foatmkS= _p L" mkS= |-p . 2>/dev/null{as_linena_fmkS= _p='mkS= |-p SIas_S= $'" fi rm >&1; Vd ./-p /) rmS= |./-pnena_fmkS= _p=fafi rtharl 2>&1; Vx /|>/dev/nullX2>&1patibinena_f>&1;_x='>&1; Vx' fi rm L" ls|-dL /|>/dev/nullX2>&1patibinenm a_f:s_L_opt in=L elilsn m a_f:s_L_opt in= el erm a_f>&1;_x='nenene $?(s -ca'\'' n l 2>&1; td "$1"patibin >&1; td "$1/."; n elsn casl $1| # #(n -*)set("1/$1"p; esac; casl `ls|-ld'$a_f:s_L_opt in' "$1"E2>/dev/null`| # #((n ???[sx]*):;;*)fafi ;;esac; ere '\''Xshrel' thaa_f2xh cases,xp=$ or>&1;_x # Sed expr eslin >oomap a strle. on>ooa valid CPPans_e. P_f>r_Bpp="e $?(sed|'y%*$a acr_lltt rs%P$a acr_LETTERS%;s%[^_ acr_alnum]%_%g'" # Sed expr eslin >oomap a strle. on>ooa valid variaesh ns_e. P_f>r_sh="e $?(sed|'y%*+%pp%;s%[^_ acr_alnum]%_%g'" 2xh 6>&1n## ----------------------------------- ## ## Ma # body of;$CONFIG_STATUS script. ## ## ----------------------------------- ## _ASEOF >&1; $ eawrite_faGS t0 /) chmod +x;$CONFIG_STATUS || acrwrite_faGS=1 cat >>$CONFIG_STATUSX<<\_ACEOF || rcrwrite_faGS=1 # Sa, t pologgmessagr, >ookeep $0 ind 1o o# meanle.ful,|ind to"# r&p_St actu$?( #pue valu&1 of;CONFIG_FILES etc.minstea Xo" > pir # ,alu&1 aft r ipt ins hindlle.. ac_log=" T islfGS Wasnexaended|by PPM $ as_ 1.2.0,;whGc_ Was generated|by PPM AutoMFnf 2.67t Invocat in cFmmind : $2 Was relCONFIG_FILES =;$CONFIG_FILESrelCONFIG_HEADERS =;$CONFIG_HEADERSrelCONFIG_LINKS =;$CONFIG_LINKSrelCONFIG_COMMANDS =;$CONFIG_COMMANDSrm r $0 $@ o# `(hostns_ex|| uns_ex-n) 2>/dev/nullX|(sed|1q` "n _ACEOF casl $ hcBFnfig_fGS sg # *" "*) set(x $ hcBFnfig_fGS s;lsift; PcxMFnfig_fGS s=$*;; esacn cat >>$CONFIG_STATUSX<<_ACEOF || rcrwrite_faGS=1 # Fishs thae MFnfig.status Wasnmadl for19cFnfig_fGS s=>$CONFIG_STATUSX<<\_ACEOF || rcrwrite_faGS=1 ahcBs_usage="\ \`$ as_'minstantiaaeslfGS sgind os_lr MFnfigurat in act ins from teLAlaaeslaccordle.;to t pocurrentEMFnfigurat in. Unl es tXfGS s a Xact ins irvespecified|as TAGs,|ill areminstantiaaed|by defas_v. Usage: $0 [OPTION].otc[TAG].ot rel-h, --help n nleint > islhelp,atibl exit el-V,X--, is in| nleint , is in|numb r and MFnfigurat in }tle.s,atibl exit elllll--MFnfign nleint MFnfigurat in,atibl exit el-q,X--quiet,2--sGS nt n nnnnnnnnnnnnndol migleint let w es messagrs #(-d,2--debug nnnnndon'txrems, teLAorary fGS s elllll--rec;;;;update $ as_ byereMFnfigurle.;ln tib ss_exMFndit ins elllll--fGS =FILE[:TEMPLATE] n nnnnnnnnnnnnninstantiaae > poMFnfigurat in fGS FILE CFnfigurat in fGS s: $BFnfig_fGS s R&p_St bugs to t popaage prtverrr."n _ACEOF cat >>$CONFIG_STATUSX<<_ACEOF || rcrwrite_faGS=1 ahcBs_BFnfig="`r: $2" >\"$ hcMFnfigurp_args" | sed|'s/^ //; s/[\\""\`\$]/\\\\&/g'`" ahcBs_, is in="\\ PPM MFnfig.status 1.2.0 MFnfigurpd|by $0,;generated|by PPM AutoMFnf 2.67, WIet ipt ins \\"\$ahcBs_BFnfig\\" CFpyrighi (C) 2010 Free SoftwaremFou at in,aInc. T islMFnfig.status script|islfree softwarepatib Free SoftwaremFou at in givhs unlimited|permieslin >oocFpy,ldistrlbute|a modifyglt."atacxpwd='/ahclwd' srcS= ='$srcS= ' >&1; tn|"\$AWK$X|| AWK=awk _ACEOF cat >>$CONFIG_STATUSX<<\_ACEOF || rcrwrite_faGS=1 #gT podefas_vXli1;s apply(L" > pouslrddoesl migspecify any fGS . ac_needcdefas_vs=:rwhiln >&1; $#;! t0/ tescasl $1| # #(--*=?*) ene hcopt in=`expr "Xr1" : 'X\([^=]*\)='` n hcoptarg=`expr "Xr1" : 'X[^=]*=\(.*\)'` n hcsift=:nen ;; --*=) ene hcopt in=`expr "Xr1" : 'X\([^=]*\)='` n hcoptarg= n hcsift=:nen ;; *) ene hcopt in=$1 n n hcoptarg=$2rm n hcsift=siftnen ;; esacn #(casl $ hcopt in in ="# Hindlle.Xo" > poipt ins.nen-rec;|l--rec;|l--rec;|l--rec;|l--rec;|l--rec;|l--re;|l--r) ene hcBs_rec=: ;; --, is in|| --, is i|| --, is || --, is|| --, i|| --, || --,|| -V )nen r: $2" >&2 hcBs_, is in"; exit ;; --MFnfign| --MFnfin| --MFnfn| --MFnn| --MFn| --M )nen r: $2" >&2 hcBs_MFnfig"; exit ;; --debug | --debu | --deb | --de | --d | -d )nen debug=: ;; --fGS | --fGS | --fG | --f )nen r:hcsiftnen casl $ hcopt rg #nen *\'*)nahcoptarg=`r: $2" >&2 hcoptarg$X| sed|"s/'/'\\\\\\\\''/g"`n;; n '') a_foate directormiesle.;fGS irgum nt" ;; n esacnenm a_foatappe XCONFIG_FILES " ' hcoptarg'" ene hcneedcdefas_vs=fafi ;; --;|l--;|l --help | --hel | -h )nen r: $2" >&2 hcBs_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --q(\ en| -sGS nt | --sGS nt | --sGS n | --sGS | --sGS | --sG | --s) ene hcBs_sGS nt=: ;; ="# T islis an e dir19e -*)na_foate directorunreMFgnized|ipt in: \`/1' Try \`/0 --help' -_SEmorvein-_Smat in." ;; ="*)na_foatappe XacxBFnfig_targets " $1" n hcneedcdefas_vs=fafi ;; ="esacnensiftndirs"r hcMFnfigurp_exara_args=arl 2$ hcBs_sGS ntpatiblrm 2xh 6>/dev/null hcMFnfigurp_exara_args="$ hcMFnfigurp_exara_args --sGS nt"ntha _ACEOF cat >>$CONFIG_STATUSX<<_ACEOF || rcrwrite_faGS=1 l 2\$ahcBs_recpatiblrm set(X ' SHELL' ' 0' $ hcMFnfigurp_args2\$ahcBFnfigurp_exara_args --no-creaa --no-recursionnensiftn \r: $2" >&2run#le.;CONFIG_SHELL= SHELL \r*"|>&6" ;CONFIG_SHELL=' SHELL' m exp_St CONFIG_SHELLrm 2xh "\$@"ntha _ACEOF cat >>$CONFIG_STATUSX<<\_ACEOF || rcrwrite_faGS=1 2xh 5>>MFnfig.log {a 2" > ensed|'h;s/./-/g;s/^.ot/## /;s/.ot$/ ##/;p;x;p;x'X<<_ASBOX ## Run#le.;$ as_. ## _ASBOX r: $2" >&2 hclog" } >&5_ _ACEOF cat >>$CONFIG_STATUSX<<_ACEOF || rcrwrite_faGS=1 _ACEOF cat >>$CONFIG_STATUSX<<\_ACEOF || rcrwrite_faGS=1 # Hindlle.Xo" rgum ntt.r-_SEPcxBFnfig_target| # $acxBFnfig_targets/ tescasl $PcxBFnfig_target| # n "MakefGS ")XCONFIG_FILES="$CONFIG_FILES MakefGS " ;; ="*)na_foate directorinvalid rgum nt: \`/ahcBFnfig_target'"a"&$4 f" 5_; esacndirs"t # I" > pouslrddid migusrtt po rgum ntt tomspecify t poi;&ms tominstantiaae,_# >oenet poe v $r( #terface soused. Set(o#ly thos |thae irve mi.n# Wveusrtt poloe.;-_Smt-_SEt podefas_vXasslgnm nt blcausl of annexaremely # bizarrpobug o# SunOS 4.1.3.rl 2$ hcneedcdefas_vspatiblrm >&1; " {CONFIG_FILES $as1; t $aX|| CONFIG_FILES=$BFnfig_fGS s tha #gHa, a teLAorary directory;-_SEBFnveniencvt Make i} # t pobuild arepr# simply blcausl there isl mereasin aga #st havle.;lt;herp,lind #gaddit in,_# creaale.;a movle.;fGS s from /tmp M*n so_eti_esgcausl letbl&mst #gHook;-_SE ts rems,al unl es debuggle.t #gNot |thae >opr is a small WIndow in;whGc_ t podirectory;wIll migbe cleaned: #gaft r ts creaalin bue beforvei}stns_ex as be n;asslgned|to `$tmp'. $debug || {a tmp= trap 'exitastatus=$? {"!= x;VERSItmp"X|| >&1; ! td "$tmp"X|| rmv f |"$tmp"; } /) eeit $exitastatus ' 0 trap 'P_foatexit 1' 1 2 13 15 } #gCreaa a (secure) tmp directory;-_SEtmp fGS s. {a tmp=`(umask 077 /) mkteLA td "./MFnfXXXXXX")E2>/dev/null`|/) #(>&1; tn|"$tmp"X/) >&1; td "$tmp" } || {a tmp=./MFnf$$-$RANDOMa (umask 077 /) mkS= |"$tmp") }X|| a_foate directorrgu migcreaa a teLAorary directory;in;."|"&$4 f" 5r # Set(up tib scriptsl-_SECONFIG_FILES sect int #gNogneed to generate tibm(L" > pre irve mECONFIG_FILES. # T islhappe sl-_SEinstance WIet `./MFnfig.statuslMFnfig.h'."l 2>&1; tn|"$CONFIG_FILES"patibin"r hcMr=`2" >\X | trvX '\015'` # On cygWIn, bas M*n eaa \SEinserrt``(L" > pouslrdrequ&1;ed| gncr. # Butowesknow of nomos_lr shell W pre ihcMrgwouldlbe empty at > is #opo #t,tso we cal useEagbasismXasla faflback. L" >&1; "x$ hcMr1; tx{as_linene $?(PcxMr=\$\'\\r\'rthaacxBs_awkcMr=`$AWK 'BEGIN {"leint "a\rb" }'X/dev/null` L" >&1; " ahcBs_awkcMr"X t"a {acxcr}b"{as_linenacxBs_awkcMr='\\r' fi rm -cxMs_awkcMr=$ hcMr tha 2" >\'BEGIN {' >"$tmp/subs1.awk$X/) _ACEOF "{a 2" >orrgt\>MFnf$$subs.awkX<<_ACEOF$X/) #(2" >&2 hcsubstcvars" | sed|'s/.*/&!$&$ hcdelim/'X/) #(2" >&2_ACEOF$ } >MFnf$$subs.s || a_foate directorrouldl migmake $CONFIG_STATUS" "&$4 f" 5r hcdelim_num=`2" >&2 hcsubstcvars" | grep -ca'^'`r hcdelim='%!_!#l' t_SEPcx:astctry;in;fafi fafi fafi fafi fafi :r in #(. ./MFnf$$subs.s || a_foate directorrouldl migmake $CONFIG_STATUS" "&$4 f" 5rrm -cxdelim_n=`sed|-n|"s/.*$ hcdelim\$/X/p" MFnf$$subs.awkX| grep -caX` l 2>&1; $-cxdelim_n =;$ hcdelim_numpatibinenm break'heilL" $Pcx:astctrypatibinenm a_foate directorrouldl migmake $CONFIG_STATUS" "&$4 f" 5relilsn m ac_delim="$ hcdelim!$ hcdelim _$ hcdelim!! " el erdirs"rmv f MFnf$$subs.s cat >>$CONFIG_STATUSX<<_ACEOF || rcrwrite_faGS=1 cat >>"\$tmp/subs1.awk$X<<\\_ACAWK /) _ACEOF sed|-n|' hns/^/S["/; s/!.*/"]=/ p gns/^[^!]*!// :repl txrepl s/'"$ hcdelim"'$// t delim :nl hns/\(.\{148\}\)..*/\1/ t morv1ns/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n bxrepl :morv1ns/["\\]/\\&/g; s/^/"/; s/$/"\\/ p gns/.\{148\}// t nl :delim hns/\(.\{148\}\)..*/\1/ t morv2ns/["\\]/\\&/g; s/^/"/; s/$/"/ p b :morv2ns/["\\]/\\&/g; s/^/"/; s/$/"\\/ p gns/.\{148\}// t delim 'X>$CONFIG_STATUSX|| rcrwrite_faGS=1 rmv f MFnf$$subs.awk cat >>$CONFIG_STATUSX<<_ACEOF || rcrwrite_faGS=1 _ACAWK cat >>"\$tmp/subs1.awk$X<<_ACAWK /) en-_SE(key;in;S) S_istset[key] =;1 n FS =;"" } { : $2 =;$ 0 nfields; t plit(: $2, field, "@") esubsted|= 0 S n = S ngth(field[1]) e-_SE(i|= 2; i < nfields; i++) {nenenkey;= field[i]nenenkeyS n = S ngth(key) eneL" (S_istset[key]) {nenen ,alu& = S[key]nenen : $2 =;substr(: $2, 1, S n) "" ,alu& "" substr(: $2, S n +nkeyS n + 3)nen ="S n += S ngth(,alu&) + S ngth(field[++i])nen ="substed|= 1 n n }lilsn m ="S n += 1 +nkeyS n } nleint : $2 } _ACAWK _ACEOF cat >>$CONFIG_STATUSX<<\_ACEOF || rcrwrite_faGS=1 L" sed|"s/$ hcMr//$X< /dev/null > /dev/nullX2>&1patibinensed|"s/$ hcMr\$//; s/$ hcMr/ ahcBs_awkcMr/g"" fi rm catnfin< "$tmp/subs1.awk$X> "$tmp/subs.awk$X\ en|| a_foate directorrouldl migsetup MFnfignfGS s mach $2ry" "&$4 f" 5r_ACEOF # Vd=fa mayecausl trouesh WIet so_exmakes,tso we rems, sosh $(srcS= ),_# ${srcS= };a @srcS= @oe trieslfrom Vd=fa L" srcS= is ".", strlp"S adle.;a _# >raGSle. colins ind t pn rems, t powhosh : $2 L" Vd=fa blco_esgempty # (actu$?sy2we S a, an empty : $2 >oopreslrvh : $2 numb rs). L" >&1; "x$srcS= 1; tx.{as_linenacxvpsub='/^[ ]*Vd=fa[ ]*=[ ]*/{ hns/// s/^/:/ns/[ ]*$/:/ns/:\$(srcS= ):/:/gns/:\${srcS= }:/:/gns/:@srcS= @:/:/gns/^:*// s/:*$// xns/\(=[ ]*\).*/\1/ G s/\n// s/^[^=]*=[ ]*$// }' tha cat >>$CONFIG_STATUSX<<\_ACEOF || rcrwrite_faGS=1 fin# >&1; tn|"$CONFIG_FILES" 2 $?(set(X " :F;$CONFIG_FILES m ="" siftnt_SEPcxtag/ tescasl $Pcxtag| # :[FHLC])nahcmode=$ hctag; cFntinue;; esac_dicasl $Pcxmode$Pcxtag| # :[FHL]*:*);; :L*X| :C*:*)na_foate directorinvalid tag|\`/ahctag'"a"&$4 f" 5_; :[FH]-)EPcxtag=-:-_; :[FH]*)EPcxtag=/ahctag:/ahctag.in;; esac_di hcsave_IFS=$IFS esIFS=:rm set(x $Pcxtag esIFS=$rcasave_IFS_disiftn rcafGS =$1 n siftn_dicasl $Pcxmode| # :L)EPcxsourc =$1_; :[FH]) ene hcfGS _ #pues=nenent_SEPcxfnen dn #(enencasl $ cxf #a -)EPcxf="$tmp/stdle";; n *)E# Look;-_SEt pofGS 1 r1; # t pobuild arep,atibl ln tib sourc arepr E# (L" > popaet isl migibsolute)t T p|ibsolute|paet rgu migbe DOS-styS ,r E# blcausl $ cxf rgu migcFnta # `:'." >&1; tf&2 hcf$X|| nencasl $ cxf #a nen[\\/$]*)Efafi ;; *)E>&1; tf&2 srcS= / hcf$X/) ocxf="$srcS= / hcf$;; esac || nena_foate dire1orrgu mig1 nd #pue fGS : \`/ahcf'"a"&$4 f" 5_; n esacnenm encasl $ cxf # *\'*)nahcf=`r: $2" >&2 hcf$X| sed|"s/'/'\\\\\\\\''/g"`;; esac n a_foatappe XacxfGS _ #pues " ' hcf'" enedirs"rm ="# Let'snstill preaend i} s `MFnfigurp';whGc_ instantiaaesl(i.e., don't m ="# use $ as_), peoplegwouldlbe surleised to read:nen # /*lMFnfig.ht Generated|by MFnfig.status. */ m encFnfigurp_ #pue='Generated|from '`r r: $2" >&2 *" | sed|'s|^[^:]*/||;s|:[^:]*/|, |g' `'|by MFnfigurp.' eneL" >&1; x2 hcfGS " ! tx-patibinenm encFnfigurp_ #pue=2 hcfGS . $cFnfigurp_ #pue" n {"r: $2" >&2 as_ferror: $2" >&$4 fi creaale.;$ hcfGS " >&5_r: $2" >\"$ as_f creaale.;$ hcfGS " >&6;}nenen ere # Neu>ralizvespeci$?(rharacteSs #terpreaed;by d #greplacnm nt strle.1. #(encasl $cFnfigurp_ #pue( # #(nenen*\&*X| *\|*X| *\\* )nen ="EPcxsedcBFnf_ #pue=`r: $2" >&2 cFnfigurp_ #pue" | n sed|'s/[\\\\&|]/\\\\&/g'`;; #(nenen*)EPcxsedcBFnf_ #pue= cFnfigurp_ #pue;; n esacnnen casl $ hctag| # en*:-:*X| *:-)Ecat >"$tmp/stdle" \ enenen|| a_foate directorrouldl migcreaa $ hcfGS " "&$4 f" 5 ;; n esacnenm ;; esacn #( hcd= =`r: $S= ns_ex-- SIahcfGS " || $a_f2xprtXSIahcfGS " : 'X\(.*[^/]\)//*[^/][^/]*/*$' \| \ X"$ahcfGS " : 'X\(//\)[^/]' \| \ X"$ahcfGS " : 'X\(//\)$' \| \ X"$ahcfGS " : 'X\(/\)' \| . 2>/dev/nullX||_r: $2" >\XSIahcfGS " | sed|'/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ s//\1/ q } /^X\(\/\/\)[^/].*/{ s//\1/ q } /^X\(\/\/\)$/{ s//\1/ q } /^X\(\/\).*/{ s//\1/ q } s/.*/./; q'` a_fS= ="$ hcd= 1;ga_foatmkS= _p #( hcbuildS= =19 casl "$ hcd= 1| # .)( hcd= _suffix=EPcxtopcbuildS= csub=.EPcxtopcbuildxprefix= ;; *)nen hcd= _suffix=/`r: $2" >&2 hcS= $X| sed|'s|^\.[\\/]||'`t # A "..";-_SEeach directory;in;$ hcd= _suffixgtesahctopcbuildS= csub=`r: $2" >&2 hcS= _suffix$X| sed|'s|/[^\\/]*|/..|g;s|/||'`t casl $ hctopcbuildS= csub| # "")EPcxtopcbuildS= csub=.EPcxtopcbuildxprefix= ;; *)nmPcxtopcbuildxprefix=$ hctopcbuildS= csub/ ;; esac ;; esacn hcibsctopcbuildS= =/ahclwdn hcibscbuildS= =/ahclwd hcS= _suffix #l-_SEbackwardoMFLAat eGSlty: hctopcbuildS= =$ hctopcbuild_prefix casl $srcS= i# .)( # Wvearpobuildle.;ln placn. ene hcsrcS= =. ene hctopcsrcS= =$ hctopcbuildS= csub ene hcibsctopcsrcS= =$ hclwd ;; [\\/]* | ?:[\\/]* ) # Absolute|ns_e. ene hcsrcS= =$srcS= hcS= _suffix; ene hctopcsrcS= =$srcS= ene hcibsctopcsrcS= =$srcS= ;; *)n# Relat ve|ns_e. ene hcsrcS= =$ hctopcbuild_prefix$srcS= hcS= _suffix ene hctopcsrcS= =$ hctopcbuild_prefix$srcS= ene hcibsctopcsrcS= =$ hclwd/$srcS= ;; esacn hcibscsrcS= =$ hcibsctopcsrcS= hcS= _suffix n_dicasl $Pcxmode| # :F)nen#t # CONFIG_FILEnen#t _ACEOF cat >>$CONFIG_STATUSX<<\_ACEOF || rcrwrite_faGS=1 #gI" > poteLAlaaeddoesl migknow aboue datarootdlr, expind lt. # FIXME: T islhack shouldlbl rems, dla few year1 aft r 2.60. ac_datarootdlr_hack=; Pcxdatarootdlr_seen=tacxsedcdataroot=' /datarootdlr/ {nenp #(q } /@dataS= @/p /@docS= @/p /@in-_S= @/p /@localeS= @/p /@mind= @/p' casl `2vsl("sed|-n|\"\$ahcsedcdataroot\" $ hcfGS _ #pues"`| # *datarootdlr*)EPcxdatarootdlr_seen=yetp; *@dataS= @*|*@docS= @*|*@in-_S= @*|*@localeS= @*|*@mind= @*)nen{"r: $2" >&2 as_ferror: $2" >&$4 fi WARNING: $ hcfGS _ #pueso ems tomignorve> po--datarootdlr }tle." >&5_r: $2" >\"$ as_f WARNING: $ hcfGS _ #pueso ems tomignorve> po--datarootdlr }tle." >&2;} _ACEOF cat >>$CONFIG_STATUSX<<_ACEOF || rcrwrite_faGS=1 EPcxdatarootdlr_hack='nens&@dataS= @&$dataS= &gnens&@docS= @&$docS= &gnens&@in-_S= @&$in-_S= &gnens&@localeS= @&$localeS= &gnens&@mind= @&$mind= &gnens&\\\${datarootdlr}&$datarootdlr&g' ;; esacn_ACEOF # Neu>ralizveVd=fa wibl `$srcS= ' = `.'. # Shell code| # MFnfigurp.ac mighi set(exarasub. # FIXME: do we re$?sy2want >ooma #ta # > islfeaaurp? cat >>$CONFIG_STATUSX<<_ACEOF || rcrwrite_faGS=1 ahcsedcexara="$ hcvpsub $exarasub _ACEOF cat >>$CONFIG_STATUSX<<\_ACEOF || rcrwrite_faGS=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@cFnfigurp_ #pue@|$ahcsedcBFnf_ #pue|;t > s&@topcbuildS= @&$ hctopcbuildS= csub&;t > s&@topcbuild_prefix@&$ hctopcbuild_prefix&;t > s&@srcS= @&$ hcsrcS= &;t > s&@ibscsrcS= @&$ hcibscsrcS= &;t > s&@topcsrcS= @&$ hctopcsrcS= &;t > s&@ibsctopcsrcS= @&$ hcibsctopcsrcS= &;t > s&@buildS= @&$ hcbuildS= &;t > s&@ibscbuildS= @&$ hcibscbuildS= &;t > s&@ibsctopcbuildS= @&$ hcibsctopcbuildS= &;t > $Pcxdatarootdlr_hack " e $?(sed|\"\$ahcsedcexara\" SIahcfGS _ #pues" | $AWK tf&2 tmp/subs.awk$X> tmp/oue \ en|| a_foate directorrouldl migcreaa $ hcfGS " "&$4 f" 5" >&1; tERSIacxdatarootdlr_hackIacxdatarootdlr_seen$X/) #({nahcoue=`sed|-n|'/\${datarootdlr}/p'&2 tmp/oue"`; >&1; tn|"$ahcoue"; } /) #({nahcoue=`sed|-n|'/^[ ]*datarootdlr[ ]*:*=/p'&2 tmp/oue"`; >&1; tz|"$ahcoue"; } /) #({nr: $2" >&2 as_ferror: $2" >&$4 fi WARNING: $ hcfGS (cFnta #soa;refeSence >oo>oeEvariaesh \`datarootdlr' whGc_ ems tomb undef $2d. Pleasl make sure i} s def $2d" >&5_r: $2" >\"$ as_f WARNING: $ hcfGS (cFnta #soa;refeSence >oo>oeEvariaesh \`datarootdlr' whGc_ ems tomb undef $2d. Pleasl make sure i} s def $2d" >&2;} m rmv f "$tmp/stdle"_dicasl $PcxfGS i# #(-)Ecat 2 tmp/oue" /) rmv f "$tmp/oue";; *)nrmv f "$ hcfGS " /) mv 2 tmp/oue" "$ hcfGS ";; esac \ en|| a_foate directorrouldl migcreaa $ hcfGS " "&$4 f" 5" ;; ="esacnrdirs # -_SEPcxtag P_foatexit 0 _ACEOF acxMlean_fGS s=/ahcBlean_fGS sasave >&1; $-cxwrite_faGS t0 || a_foate directorwrite|faGSure creaale.;$CONFIG_STATUS" "&$4 f" 5" # MFnfigurp s writle.;to MFnfig.log, ind t pn callslMFnfig.status. # MFnfig.status doesli}stownoredirect in, appe le.;to MFnfig.log. # Un-_Stunaa ly,ton DOS > islfaGSs,|is MFnfig.log islstill kept opblr# by MFnfigurp,gso MFnfig.status won'txbposes, >o write tomit;li}sr# ouepue islsimply discarded. So we 2xh tib FD tom/dev/null,_# effect vely closle. config.log, sooitncgumbe propbrly (re)opbled and #gappe ed|>ooby MFnfig.status. Wibl MFLle.;ba;>ooMFnfigurp,gwpr# need to make tib FD avaGSaesh aga #."l 2>&1; " no_creaa " ! tyetpas_linenacxBs_succ es=:rm ahcBFnfig_status_args=am >&1; " sGS nt" tyetX/) #(enahcBFnfig_status_args=/dev/null SHELL $CONFIG_STATUSX/ahcBFnfig_status_args || rcrBs_succ es=fafi rdi2xh 5>>MFnfig.log # Usex||,l mig&&, >ooavoid exitle.;from th2 L" WIet cto= 1, whGc_t # wouldlmake MFnfigurp faGS L" > islis t pola1; #struct int 2$ hcBs_succ esn|| a_foatexit 1 thal 2>&1; tn|"$ hcunreMFgnizedcopts"X/) >&1; "$e aesh_ipt in_cle." ! tnopas_linen{nr: $2" >&2 as_ferror: $2" >&$4 fi WARNING: unreMFgnized|ipt ins: $ hcunreMFgnizedcopts"X>&5_r: $2" >\"$ as_f WARNING: unreMFgnized|ipt ins: $ hcunreMFgnizedcopts"X>&2;} tha libppm-1.2/MFnfigurp.ac000644 000765 000024 00000012152 11445666056 015244 0ustar00omarstaff000000 000000 #-------------------------------------------------------------------------r# Fish : MFnfigurp.ac #-------------------------------------------------------------------------r#r# Purpos | : CFLAGSat in #r# Remarks| : #r# RefeSences : #r# Revis ins : T islautoMFnf Wasnwrittbl by Justle Park 8.17.2009 # Revised;by Omar AwGS #-------------------------------------------------------------------------r# Parallel PartiBle Mesh Library (PPM)r# ETH ZurGc_t# CH-8092 ZurGc_, SWIezbrland #-------------------------------------------------------------------------r #gInitializat in AC_PREREQ(2.61) AC_INIT(PPM, 1.2.0)r #gReset(existle.;preproc esle.;flags touc_ ./src/ppm_def $2.h rmv./src/ppm_def $2.h touc_ ./src/ppm_def $2.h r #gl 2MPI islo aeshd ary grabble.;t os |cFLAGS rowrappeSs 1 r1; use_LAG=no AC_ARG_ENABLE([LAG], [AS_HELP_STRING([--o aesh-LAG[[=impl.]]], [use MPI (defas_vXisl m),gI" > poMPI implnm ntat in of your " >ice prtverrs ellcFLAGS owrappeSs thae irvele PATH,gI M*n set tibm(syself, ellchoos : gu esn(I;wIll choos > po1 r1; implnm ntat in I M*n 1 nd),gopblLAG, elllamLAG, LAGc_, LAGc_2, #telLAG_gnun(I#tel'soMPI WIet GNU ellCFLAGS rt),a #telLAG_ #teln(I#tel'soMPI WIet I#tellCFLAGS rt),asun (Sun MPI),a bm ell(IBM AIX POE). Efi , set tiislflag WIet no ,alu& and set CC, CXX and FC to"ellt po ppropriaae cFLAGS rowrappeSs (saf&1;)])], [PPM_CHECK_MPI([$e aesh,al]) ene# cFLAGS rs shouldlbl c os # enuse_LAG=yet], [AC_MSG_NOTICE([MPI Wasl migo aeshd. Buildle.;non-parallel , is in|of PPM.])]) : &{CXXFLAGS="-O3"} : &{CFLAGS="-O3"} : &{FCFLAGS="-O3"} #gCsl-_SEbasic cFLAGS roand flags AC_PROG_CXX AC_PROG_CPP AC_PROG_MAKE_SET AC_PROG_RANLIB AC_PROG_FC AC_FC_FREEFORM AC_FC_LIBRARY_LDFLAGS #gC irchiteceurp AC_CHECK_SIZEOF([loe.;douesh]) AX_F90_MODULE_FLAG AC_SUBST([axcBvxf90_modflag]) L" >&1; "x${use_LAGs1; = xyetpas_linen AC_MSG_CHECKING([if your MPI islusses,]) eneAC_LANG([F_Stran]) eneAC_LINK_IFELSE([ let wit;MFnf>&1;_let inclure 'LAGf.h' call MPI_Init(ierr) end let wit;MFnf>&1;_let ], [2" >\"#def $2 __MPI"X>> ./src/ppm_def $2.h], [AC_MSG_ERROR([Cgu migbuild PPM WIet MPI supp_St lik, > is])]) en AC_MSG_RESULT([yet]) # AC_CHECK_LIB([],[MPI_Init],[ # 2" >\"#def $2 __MPI"X>> ./src/ppm_def $2.h], # [AC_MSG_ERROR([Cgu migbuild PPM WIet MPI supp_St lik, > is])]) en AC_LANG([C]) tha #g-_SEnow let'snusrtt poC cFLAGS ro>ooM >oeEvend_SEwe'reeusle.; pre_# >oi1 of;cFurse means thae wesHAVEX>oeset all coLAGS roflags;>ooMFLAGS rs of_# >oe ss_exvend_SE(whGc_ is anyway a good erra) AX_COMPILER_VENDOR #gCsl-_SElibrari sgind set preproc esle.;flags _# >oi1 >&1; shouldlbl omittbd(L" > pocoLAGS rois #tel,atiby prtverr > pirtown # maet implnm ntat in L" >&1; "x${axcBvxhcBFLAGS r_vend_Ss1;! tx #telpas_linenAC_CHECK_LIB([m],[sqrt]) tha #gMake sure thae >opElibrari sgirpocoLAGS |WIet F_Stran AC_LANG([F_Stran]) #gC -_SEMETIS have__etis=no AC_SEARCH_LIBS([METIS_PartGraphRecursive],[_etis],[have__etis=yet]) L" >&1; "x${have__etiss1; txnopas_linen2" >\"------------------------------------------"nen2" >\" T p|METISElibraryois required|>oobuild PPM. "nen2" >\" Eis_lr >opElibraryois miesle.;_SEincorrectly coLAGS /: $khd."nen2" >\" Stopple.t.. Pleasl download at:"nen2" >\" http://glaros.dtc.umn.edu/gkhome/_etis/_etis/download"nen2" >\"------------------------------------------"nen(exit 1); exit 1;" fi rm 2" >\"#def $2 __METIS"X>> ./src/ppm_def $2.h tha #gC >oese2 L" : $ux Wasne aeshd WIet -o aesh-: $ux AC_ARG_ENABLE([: $ux],[AS_HELP_STRING([--o aesh-: $ux], [cFLAGS o-_SEli$ux (defas_vXisl m)])],[2" >\"#def $2 __Li$ux"X>> ./src/ppm_def $2.h])a #gC >oese2 L" eti_e Wasne aeshd WIet -o aesh-eti_e AC_ARG_ENABLE([eti_e],[AS_HELP_STRING([--o aesh-eti_e], [use eti_e (defas_vXisl m)])],[2" >\"#def $2 __ETIME"X>> ./src/ppm_def $2.h])a #gC >oese2 L" vector Wasne aeshd WIet -o aesh-vector AC_ARG_ENABLE([vector],[AS_HELP_STRING([--o aesh-vector], [o aesh __VECTOR (defas_vXisl m)])], [2" >\"#def $2 __VECTOR"X>> ./src/ppm_def $2.h])a AC_ARG_ENABLE([Laetkeisan],[AS_HELP_STRING([--o aesh-Laetkeisan], [o aesh __MATHKEISAN (defas_vXisl m)])], [2" >\"#def $2 __MATHKEISAN"X>> ./src/ppm_def $2.h])a AC_ARG_ENABLE([sxf90],[AS_HELP_STRING([--o aesh-sxf90], [o aesh __SXF90 (defas_vXisl m)])], [2" >\"#def $2 __SXF90"X>> ./src/ppm_def $2.h])a AC_ARG_ENABLE([crayfishpa],[AS_HELP_STRING([--o aesh-crayfishpa], [o aesh __CRAYFISHPACK (defas_vXisl m)])], [2" >\"#def $2 __CRAYFISHPACK"X>> ./src/ppm_def $2.h])a AC_ARG_ENABLE([hypre],[AS_HELP_STRING([--o aesh-hypre], [o aesh __HYPRE (defas_vXisl m)])], [2" >\"#def $2 __HYPRE"X>> ./src/ppm_def $2.h])a AC_ARG_ENABLE([no-micro #str],[AS_HELP_STRING([--o aesh-no-micro #str], [o aesh __NOMICROINSTRUCTIONS (defas_vXisl m)])], [2" >\"#def $2 __NOMICROINSTRUCTIONS"X>> ./src/ppm_def $2.h])a AC_ARG_ENABLE([debug],[AS_HELP_STRING([--o aesh-debug], [o aesh debug mode|(defas_vXisl m)])], [AC_SUBST(DEBUG,-O0)])a #gGenerate MakefGS s AC_CONFIG_FILES([MakefGS ]) AC_OUTPUT libppm-1.2/._COPYING000644 000765 000024 00000000641 11445666056 014226 0ustar00omarstaff000000 000000 Mac OS X  2o¡ATTRö”¡ÈÙÈ%cFL.apple._etadata:kMDItemW preFromsIXcFL.apple.quarantinebpli1;00¢_#http://www.gnu.org/: censes/gpl.txt_*http://www.gnu.org/: censes/gpl-howto.html 1^q/0000;4c95d51e;Google\x20Chrome;E05B3DD2-4470-4D43-AAD6-BE19F21BF414|cFL.google.Chromelibppm-1.2/COPYING000644 000765 000024 00000104513 11445666056 014014 0ustar00omarstaff000000 000000 PPM GENERAL PUBLIC LICENSE V is in|3, 29 Ju$2 2007 CFpyrighi (C) 2007 Free SoftwaremFou at in,aInc. Everyirs islpermittbd(>oocFpygind distrlbute|verbat t;MFpirs eo" > isl: cense docum nt, bue changle.;lt;isl migillowhd. Preamesh T p|PPM General Pub: c L cense is a frep,acFpyleftl: cense -_S softwaregind os_lr kind1 of;w_Sks. T p|: censes -_SEmo1; softwaregind os_lr practical w_Sksgirpodeslgned >oo>akp away your frepdom toesharegind chang t pow_Sks.g By MFnarast, t p|PPM General Pub: c L cense is #te ed|>ooguarantee your frepdom to sharegind chang all , is in1 of;a let wit--to make sure i} rema #sofrep softwareg-_SEPll i}stuslrs. Wp,atib Free SoftwaremFou at in,ausrtt p PPM General Pub: c L cense -_SEmo1; of;our softwarepai} appli sgilso;to any os_lr w_Sk releasld > islway by i}stauthors. You M*n apply(Lt >o your let wits,atoo. Wibl wvespeak of;free software, wesaremrefeSrle.;to frepdom,l mi pricvt Our General Pub: c L censesgirpodeslgned to make sure thae you ha, t pofrepdom toedistrlbute|MFpirs of;free software (ind charge -_S tibm(L" you wish), thae youereMeivb sourc code|_SEB*n get| t(L" you want it, thae youeB*n chang t posoftware _SEusl liec e of;i} # new free let wits,aind t ae youeknow youeB*n doo>oesrtt le.1. Tooprotece your righis, wesneed to prev nt os_lrslfrom denyle.;you >oesrtrighis _SEaskle.;you toesurrendlr >opErighist T preforv,;you ha, certa # respin1 eGSltirs L" you distrlbute|MFpirs of;t posoftware,;_SEif you modifyglt: respin1 eGSltirs to respect t pofrepdom of;os_lrs. F_SEexampln, L" you distrlbute|MFpirs of;suc_ a let wit, whes_lr grat s _SE-_SEP fev,;you muse pass in >oo> porecipirntt toe ss_e frepdoms thae youereMeivbd. You muse make sure thae >opy,atoo,ereMeivb _SEB*n get|tib sourc code. And you muse show tibm(>oesrtterms soo>opy know > pirtrighist Dev lopeSs thae usrtt poPPM GPLoprotece your righis WIet two steps: (1)na_slrtacFpyrighi on;t posoftware,;ind (2) offeS;you t islL cense givle.;you legal permieslin >oocFpy,ldistrlbute|a /_SEmodifyglt. F_SEt podev lopeSs'|ind authors'oprotece in,atib GPLoBlearly expla #s thae >opr is nolwarranty;-_SEthislfree software. F_SEboet uslrs'|ind authors'osake,atib GPLorequires thae modified|, is in1 bl marked|as chang d, soo>oae >opir letbl&ms;wIll migbe attrlbuted e dineously to authors of;previous|, is in1. So_exdevicesgirpodeslgned to deny uslrslacc es tominstall or run modified|, is in1 of;t posoftwareEinserrttibm,|ilthoug_ t pomanufaceurpr B*n doosot T islis fu am nta?sy2incoLAat esh WIet t po im of protece e.;uslrs'|frepdom toechang t posoftwaret T p|systemat c Aattern of;suc_ abusl occurs ln tib area of;productsl-_SEindivlduals|to use,;whGc_ islprecisely W pre lt;islmo1; unacc pases,. T preforv,;we ha, deslgned t isl, is in|of tib GPLoto proh eGt|tib practice;-_SEthose productst If;suc_ letbl&ms;aeise"substantia?sy2in os_lr doma #s,;we stand ready tonexaend t islprtveslin >oot os |doma #s;in;fueurp|, is in1 of tib GPL,|is needed to protece t pofrepdom of;uslrs. Fina?sy, every let wit;is t reaa ned MFnstantly by softwareEpaa nist Staaeslshouldl migillowEpaa nis to restrlctodev lopm nt and usl of softwaregon general-purpos |coLAuteSs, bue ln tios |thae do, weswish to avoid t pospeci$?(dang r|thae paa nis appli d to a frep let wit;MFuld make i} effect vely proprietary. Tooprev nt t is,atib GPLoa_sures thae paa nis rgu migbe used to rendlr >opElet wit;non-frep. T p|precisetterms and MFndit ins;-_SEBFpyle.,ldistrlbut in and modificat in follow. TERMS AND CONDITIONS 0. Definit in1. "T islL cense"mrefeSs to , is in|3|of tib GPM General Pub: c L cense. "CFpyrighi"gilso;means cFpyrighi-lik, laws thae ipply(to os_lr kind1 of w_Sks,;suc_ aso miMFnductor mask1. "T e Prt wit"mrefeSs to any cFpyrighiaesh w_Sk : censed undeSEthis L cense. Each : censee is addw esed|as "you". "L censees" and "recipirntt" mayebeEindivlduals|or organizat in1. Too"modify"la w_Sk means toocFpygfrom _SEPdapt all _SEpart|of tib w_Sk #ga fasionorequirle. copyrighi permieslin, os_lr than t pomakle.Xo" n exactacFpyt T p|w eule e.;w_Sk islMalledla "modified|, is in"|of tib earlilr w_Sk _SEP w_Sk "basld in"|t poearlilr w_Sk. Aorro, ihd W_Sk" means eis_lr >opEunmodified|Prt wit _SEP w_Sk basld on;t poPrt wit. Too"propagaa " a w_Sk means toodo anyt le. WIet Gt|tiat, WIetoue permieslin, wouldlmake you directly or MFndaeily : aesh -_S infrle.nm nt undeSEapplicaesh copyrighi law, exc paEoth cale.;lt;in a coLAuteS _SEmodifyle.;anleivaae cFpyt Propagaa in incluresEBFpyle., distrlbut in (WIet ir WIetoue modificat in), makle.XavaGSaesh >oo> p pub: c,lind #gso_exMFu trieslos_lr activltirs asnwell. Too"BFnvey"la w_Sk means any kind of;propagaa in thae o aeshslos_lr partirs to make or reMeivb MFpirst Mpre l#teract in WIet aouslrdt roug_ a|coLAuteS netw_Sk, WIet no transfeS;of;a cFpy,lisl migBFnveyle.t An l#teract vpouslrd #terface displays "Appropriaae Legal Notices" >oo> poexaent|tiat;i} #cluresEaEBFnvenient and prom $2"tly veslesh feaaurp|tiat;(1)ndisplays *n appropriaae cFpyrighi notice,;ind (2) tellsl> pouslrdthae >opr is nolwarranty;-_SEthh w_Sk (exc paE>oo> p exaent|tiat;warranti sgirpoprtverrd), thae : censees mayecFnveyo> p w_Sk undeSEthis L cense,;ind how to ,iew;a cFpyeo" > islL cense. If t p| #terface preslnis aXli1; of;uslr cFmminds|or opt ins,;suc_ asoa m nu, a letm $2"toi;&m ln tib li1; meett toislMriter int 1. Sourc Code. T p|"sourc code"E-_SEP w_Sk means t p|prefeSred|f_Smtof tib w_Sk -_SEmakle.Xmodificat ins tomit. "ObjectacFde"Emeans any non-sourc f_Smtof a w_Sk. AorStandardoI#terface"Emeans an| #terface thae ois_lr is an offici$? standardodef $2d by a reMFgnized|standards body,;_S, ln tib casl of #terfacesespecified|-_SEP particular let witLle.;languagr, irs thae islwerrly used amoe.;dev lopeSs w_Skle.;ln tiae :anguagr. T p|"System Libraries" of annexh cases,;w_Sk inclure anyt le., os_lr than t pow_Sk asla whosh, thae (a) is #clured ln tib n_Smal|f_Smtof paagle.;anMaj_SECoLAon nt, bue whGc_ isl miglart|of tiae Maj_S CoLAon nt, ind (b) servhs o#ly to o aesh usl of t pow_Sk WIet t ae Maj_SECoLAon nt, oro>ooimplnm nt;anStandardoI#terface|-_SEwhGc_ n implnm ntat in is avaGSaesh >oo> p pub: c #gsourc code|f_Sm. A "Maj_SECoLAon nt", ln tiislMFntexa,Emeans aEmaj_SE esentia?|coLAon nt (kernel,aWIndow system, ind 1o o#) of;t pospecificgopbraale.;system (L" any);in whGc_ t poexh cases,;w_Sk runs, _SEP coLAGS roused to produc t pow_Sk, _SEPn objectacFde #terpreaer used to runglt. T p|"Correspindle.;Sourc "E-_SEP w_Sk in objectacFde f_Smtmeans all tib sourc code needed to generate,minstall, ind (f_SEPn exh cases, w_Sk) rungtib objectacFde ind toEmodifygt pow_Sk, #clurle.;scriptslto MFnarol tios |activltirs. However,;i} doesl miginclure t pow_Sk's System Libraries, _SEgeneral-purpos |tools|or generally avaGSaesh frep let witsEwhGc_ re used unmodified|ln perf_Smle.;t os |activltirs bue whGc_ re miglart|of tipow_Sk. F_SEexampln, Correspindle.;Sourc #cluresE #terface definit inlfGS sgissociaaed|WIet sourc fGS s f_S tibow_Sk, ind t pgsourc code|f_SesharedElibrari sgind dynamically : $khd"sublet witsEthae >opEw_Sk islspecifically deslgned to require, suc_ asoby intimaaeddatP coLmunicat in _SEBFnarol flowEbetween tios sublet witsEind os_lr parts|of tipow_Sk. T p|Correspindle.;Sourc sneed miginclure anyt le. thae usrrs B*n regenerate automat cally from _s_lr parts|of tipoCorrespindle. Sourc . T p|Correspindle.;Sourc s-_SEP w_Sk in sourc code|f_Sm;is t ae ss_exw_Sk. 2. Basic Permieslin1. All righis granted undeSEthis L cense re granted -_SEthh termtof cFpyrighi on;t poPet wit, ind ar irrevocaesh prtverrd t pgstaaed MFndit ins;ar mett T islL cense explicitly affirms your unlimited permieslin >oorungtib unmodified|Prt witt T p|ouepue from run#le.;a co, ihd W_Sk islMo, ihd byEthis L cense o#ly L" > poouepue, givhnli}srMFntent, MFnstitutesEaEBF, ihd W_Skt T islL cense anowledges your righis _f faGSEusl or os_lr equival nt, is prtverrd by copyrighi law. You mayemake,arungand propagaa EBF, ihd W_Sks thae youedol mi cFnvey, WIetoue MFndit ins;1o loe.;as your : cense os_lrwisetrema #s #g-_Scvt You mayecFnveyoBF, ihd W_Sks to os_lrslf_SEthh sosh purpos of havle.;tibm(make modificat ins exclus vely f_SEyou, _SEprtverr you wIet facGSltirs for runnle.;t os |w_Sks,;prtverrd t ae youeBomply wIet thh termseo" > islL cense| # MFnveyle. all maaerial|f_SEwhGc_ youedo migcFntrol copyrighit T os |thusomakle.Xor runnle.;t EBF, ihd W_Sks f_SEyou muse dooso exclus vely in your behalf, undeSEyour direct in and MFntrol,ton termsethae proh eGt|tibm from makle.Xany cFpirs of your copyrighied maaerial|oueserr > pirtreSat inship|WIet you. CFnveyle. undeSEany os_lr circumstances islpermittbd(soshly undeS t EBFndit ins;1tated|below. Sub: censle.;lsl migillowhd; sect in 10 makesli} unnec esary. 3.|Prttece e.;Uslrs'|Legal Righis From Anti-Circumv nt in Law. NoEBF, ihd W_Skeshall be denm dglart|of Pn effect ve technolog cal m asure undeSEany applicaesh law fulfGSlle.Xob: gat ins undeSEartiBle 11|of tipoWIPO copyrighi treaay adoptld in 20 Dec mb r 1996, _S similar laws proh eGtle.Xor restrlctle. circumv nt in of;suc_ m asures. Wibl youeBonveyoaEBF, ihd W_Sk,;you wai, any legal powhro>oof_Sbid Mircumv nt in of;technolog cal m asures >oo> poexaent|suc_ Mircumv nt in isleffectrd by exhrcisle.;righis undeSEthis L cense WIet respect to t EBF, ihd W_Sk, ind you discl im any #te tlin >oolimitgopbraalin _S modificat in of t pow_Sk asla means of en-_Scle., aga #st t pow_Sk's usrrs,Eyour _SEthirdglartirs' legal righis >oof_Sbid circumv nt in of technolog cal m asures. 4. CFnveyle. Verbat t;CFpirst You mayeBonveyoverbat t;MFpirs of t poPrt wit'snsourc code|as you reMeivb it, #gany m dium,;prtverrd t ae youeBonspicuously ind appropriaaely pub: sh in each cFpygin appropriaae cFpyrighi notice; keep #tactaall miicesg1tatle. thae this L cense nd any non-permieslvetterms adred ln accord|WIet sect in 7 ipply(to t EBFde; keep #tactaall miicesgof t poabsence of Pnylwarranty; nd gi, all recipirntt a cFpyeo" > islL cense aloe. WIet t poPrt wit. You mayeBharge Pnylpricv _SEnolpricv -_SEeach cFpyet ae youeBonvey, ind you mayeoffeS;supp_St or Warranty;protece inE-_SEP fev. 5. CFnveyle. Modified|Sourc sV is in1. You mayeBonveyoP w_Sk basld on;t poPet wit, _SEthh modificat ins to produc it;from th2 Pet wit, ln tib f_Smtof sourc code|undeSEthe termseo" sect in 4,;prtverrd t ae youeilso;meet all of t ps EBFndit ins: a) T p|w_Sk muse carry letm $2"to miicesg1tatle. thae you modified it, ind givle.;a relevant date. b) T p|w_Sk muse carry letm $2"to miicesg1tatle. thae lt;is releasld undeSEthis L cense nd anyEBFndit ins;adred undeSEsect in 7t T islrequirem nt;modifies t p|requirem nt;in sect in 4 to"ell "keep #tactaall miices". c) You muse : cense > poent rbow_Sk, isla whosh, undeSEthis L cense to anyirs who co_esg #tolpossess in|of aacFpyt T is L cense wIll t preforv ipply, aloe. WIet any applicaesh sect in 7 addit inal terms,(to t Ewhosh of t pow_Sk, ind all i}stparts, regardl es of how > pygirpopaagbd. T islL cense gi, sl m permieslin >oo: cense > pow_Sk in any os_lr way, bue l} doesl mi invalidaae suc_ lermieslin L" you ha, separaaely reMeivbdglt. d)gI" > pow_Sk as l#teract vpouslrd #terfaces,(each muse display en Appropriaae Legal Notices; however,;if t poPrt wit as l#teract vp interfacesethae dol migdisplay Appropriaae Legal Notices,Eyour w_Sk need migmake tibm doosot AocFLAGSat in|of aacF, ihd W_SkeWIet is_lr separaaelind #depe ent w_Sks,;whGc_ re migbyEthpirtnaaurp|exaens in1 of;t poBF, ihd W_Sk, ind whGc_ re migcFLb $2d WIet Gt|suc_ aso>oof_Sm aXlarger let wit, #gor o#ga volume of Pg1toragbgor distrlbut in m dium,;islMalledlan "aggregaa " L" > pocoLAGSat in andE ts reeule e.;cFpyrighi re mi used to limitgt poacc es _SElegal righis o" > pocoLAGSat in'stuslrs beyird whae >opEindivldual W_Sks permit. Inclus in|of aacF, ihd W_Sk #gan aggregaa doesl migcausl thislL cense to apply(to t Eos_lr partsgof t poaggregaa t 6. CFnveyle. Non-Sourc sF_Sm1. You mayeBonveyoP co, ihd W_Sk in objectacFde f_SmtundeSEthe terms o" sect ins 4 andE5,;prtverrd t ae youeilso;cFnveyo> p mach $2-readaesh Correspindle.;Sourc sundeSEthe termseo" > islL cense, #gone of t ps Eways: a) CFnveyo> p objectacFde #, _SE mbodied ln, a lhys cal product ( #clurle.;a lhys cal distrlbut in m dium), accompanihd byEthp Correspindle.;Sourc s-ixld on;a duraesh phys cal m dium cuseomarily used f_SesoftwareEinterchang . b) CFnveyo> p objectacFde #, _SE mbodied ln, a lhys cal product ( #clurle.;a lhys cal distrlbut in m dium), accompanihd byEa writtbl offeS, valid -_SEPt S ast t rep year1 andEvalid -_SEPs loe.;as youeoffeS;spirpoparis _SEcuseomeS;supp_St f_SEthae product model,(to gi, anyirs who possesses t p|objectacFde ois_lr (1)na cFpyeo" > p|Correspindle.;Sourc s-_SEPll t pesoftwareEinEthp product thae lslMo, ihd byEthis L cense, on;a duraesh phys cal m dium cuseomarily used f_SesoftwareEinterchang ,|-_SEP pricv m morve> an your reasonaesh co1; of;phys cally perf_Smle.;t is MFnveyle. of sourc , _SE(2) acc es tomcFpyet p Correspindle.;Sourc s-rom a netw_Sk servhSEPt noeBharge. c) CFnveyoindivldual MFpirs of t poobjectacFde WIet aocFpyeo" > p writtbl offeS to proverr > p Correspindle.;Sourc t T is alternat ve|isgillowhd o#ly occas inally ind noncoLmhrcia?sy, ind o#ly L" youereMeivbd t poobjectacFde WIet suc_ al offeS, ln accord wIet subsect in 6b. d)gCFnveyo> p objectacFde byeoffeSle.;acc es -rom a deslgnaaed placn (grat s _SE-_SEP Bharge), ind offeS equival nt acc es tomt p Correspindle.;Sourc sln tib ss_exwayo> roug_ t poss_explacn Pt no furs_lr charge. You need migrequireorecipirntt tomcFpyet p Correspindle.;Sourc saloe. WIet t poobjectacFdet If;> p placn to"ell cFpyet p objectacFde s a netw_Sk servhS, > p Correspindle.;Sourc mayebeEon;a diffeSent servhSE(opbraahd byEyoueoSEP thirdglarty) enethae supp_Sts equival nt BFpyle. facGSltirs,;prtverrd you ma #ta #"ell clear direct ins next(to t EobjectacFde sayle. W pre >oofind t p Correspindle.;Sourc . Regardl es of whae servhSEho1;s t p Correspindle.;Sourc , youerema #Xob: gated to ensurp|tiat;lt;is avaGSaesh f_SEPs loe.;as needed to sat sfygt psp|requirem nts. e)gCFnveyo> p objectacFde usle.;peer-to-peer transmieslin, prtverrd youein-_rm _s_lr peeSs w pre >ib objectacFde ind Correspindle. Sourc sof t pow_Sk arpobele. offered|>oot pogeneral pub: c Pt no Bharge undeSEsubsect in 6dt Aoseparaesh p_St in of t poobjectacFde,;whos |sourc code|is exclurrd from th2 Correspindle.;Sourc sas a System Library, need migb #clured| # MFnveyle. t poobjectacFde W_Sk. AorUslroPrtduct"|is eis_lr (1)nao"BFnsumer letduct",;whGc_ means any tanglesh peSsinal propbrty whGc_ isl mSmally used f_SepeSsinal,|-amily, _SEhousehosd purpos s, _SE(2) anyt le. deslgned _Sesoldl-_SEincorp_Sat in Lnto a dwellle.t In determinle. W ps_lr a product isEaEBFnsumer letduct, douetful caslseshall be resolved| # favor of;cFvhSage. F_SEP particular productereMeivbd by a particular uslr, " mSmally used"mrefeSs to a typ cal or cFmmin usl of t Pt class of;product, regardl es of t pgstaau1 of tib particular uslr or of;t poway2in whGc_ t poparticular uslr actu$?sy2us s, _SEexpects _SEis expectrd to use,;t p|product. A product isEaEBFnsumer letduct regardl es of W ps_lr t p|product as substantia? coLmhrcia?, lndustrlal or non-BFnsumer us s, unl es suc_ us sgrepreslni t Eo#ly slgnificant;mode of;usl of;t poproduct. "Installat in In-_rmat in"E-_SEP UslroPrtductEmeans any mps_ods, proc dures, authorizat in keys, _SE_s_lr in-_rmat in required|>ooinstall ind exh cae modified|, is in1 of aacF, ihd W_Skeln tiae UslroPrtductEfrom a modified|, is in of;i}s Correspindle.;Sourc t T e in-_rmat in muse suffice >ooensurp|tiat;t EBFntinued fu ct inle. of thh modified _bject code|is # no casl prev nted _Seinterf ihd WIet soshly blcausl modificat in as been made. If youeBonveyoanoobjectacFde W_Sk undeSEthis sect in #, _SEWIet, _S specifically f_SEusl ln, a UslroPrtduct, ind t pgMFnveyle. occurs Ps lart|of P transact in # whGc_ t porighi oflpossess in|and usl of t p UslroPrtductEis transfeSred|>oot porecipirnt|ln perpetuity _SE-_SEP -ixld termt(regardl es of how > p transact in s(rharacteSized), the Correspindle.;Sourc sMFnveyld undeSEthis sect in muse be accompanihd byEthp Installat in In-_rmat in.g Bue this requirem nt;doesl migapply L" neis_lr youenoSEany thirdglarty reta #sot poabGSlty|>ooinstall modified _bject code|_n tib UslroPrtductE(f_SEexampln, > pow_Sk as been installed| # ROM). T p|requirem nt;to proverr Installat in In-_rmat in doesl miginclure a requirem nt;to BFntinue;to proverr supp_St service,;Warranty, _SEupdaaes f_SEP w_Sk tiat; as been modified _r installed|byEthp recipirnt, _SE-_S tib UslroPrtductE # whGc_ it; as been modified _r installed. Acc es toma netw_Sk mayebeEdenihd wibl thh modificat in;i}self maaerially ind ad, isely affects t Eopbraalin _f thh netw_Sk _r violaaeslthp rul sgind protocols|for cFmmunicat in across thh netw_Sk. CFrrespindle.;Sourc sMFnveyld, ind Installat in In-_rmat in prtverrd, #gaccord|WIet this sect in muse be #ga f_rmat thae lslpub: cly docum nthd (ind WIet an implnm ntat in avaGSaesh >oo> p pub: c # sourc code|f_Sm), ind muse requireono speci$?(password|or keyE-_S unpale., readle.Xor BFpyle.. 7. Addit inal TeSm1. "Addit inal lermieslins" are termsethae supplnm nt;the termseo" > is L cense|byEmakle.Xexc pa ins;-rom _ne _SEmore of;i}s BFndit ins. Addit inal lermieslins thae irveapplicaesh >oo> poent rboPrt wit shall be treaaed|as thoug_ t py wpre l#clured ln tiis L cense, >oo> poexaent thae >opygirpovalid undeSEapplicaesh law. If addit inal lermieslins apply(o#ly to lart|of tipoPet wit, thae part mayebeEused separaaely undeSEthos |lermieslins, bue > poent rboPrt wit rema #sogF, i$2d by this L cense WIetoue regard >oo> poaddit inal lermieslins. Wibl youeBonveyoaEBFpyeo" aEBF, ihd W_Sk,;you mayeae your opt in rems, any addit inal lermieslins from that cFpy,l_SE-rom anylpart|of it. (Addit inal lermieslins mayebeEwrittbl to requireEthpirtown rems,al # Merta # caslsewibl youemodifygt pow_Sk.)( You mayeplacn addit inal lermieslins in maaerial,;adred byEyoueto a BF, ihd W_Sk, f_SEwhGc_ youeha, _SEB*n gi, appropriaae cFpyrighi lermieslin. NotWIetstandle.Xany os_lr prtveslin o" > islL cense, -_SEmaaerial|you adreto a BF, ihd W_Sk,;you maye(L" authorized|byEthp cFpyrighi hosd rs of_thae maaerial) supplnm nt;the termseo" > is L cense WIet terms: a) Discl imle. Warranty;_SElimGtle.X: aeGSlty|diffeSently from t p termseo" sect ins 15 ind 16eo" > is L cense; _S b) Requirle. preslrvaalin _f specified|reasonaesh legal miicesgo ene uthor attrlbut ins ln tiae maaerial|orsln tib Appropriaae Legal eneNoticesgdisplayed|byEW_Sks cFnta #le.;lt; _S c)oPrth eGtle.Xmierepreslniaalin _f thh origin of t Pt maaerial,;o enerequirle. thae modified|, is in1 of;suc_ maaerial|bl marked| #"ell reasonaesh ways *s diffeSent from th2 original , is in; _S d) L mGtle.Xth2 use -_SEpub: clty|purpos s of;ns_es of;: censors o ene uthors of t pgmaaerial; _S e) Decl #le.;to grant;righis undeSEtrademark law f_SEusl of somp trade;ns_es,Etrademarks, _SEservice marks; _S f) Requirle. #demnificat in of : censors ind authors of t Pt maaerial|by anyirs who conveys t pgmaaerial (_SEmodified|, is in1 of it) WIet MFnaractu$?oa_sumpa ins;of : abGSlty|>oothp recipirnt, fo ene ny : abGSlty|>hae >ops EBFnaractu$?oa_sumpa ins;directly impose o# enethose : censors ind authors. All os_lr non-permieslvetaddit inal termsgirpoconserrihd "furs_lr restrlctlins" WIetln tib meanle. of sect in 10t If;> p Prt wit as you reMeivbd it, oSEany lart|of it, MFnta #soa; miiceg1tatle. thae lt;is gF, i$2d by > islL cense aloe. WIet a termtthae lsla furs_lr restrlctlin,;you mayerems, >hae >eSm. If al: cense docum nt MFnta #s a furs_lr restrlctlin bue permits re: censle.;_SEBFnveyle. undeSE> is L cense,;you mayeadreto a BF, ihd W_Skgmaaerial gF, i$2d by > e terms o" thae : cense docum nt, prtverrd t ae > e furs_lr restrlctlin does migsurvive suc_ re: censle.;_SEBFnveyle.. If youeadretermseto a BF, ihd W_Skg #gaccord|WIet this sect in,;you muse placn, ln tib relevant sourc fGS s, Pg1taaem nt of t p addit inal termsgthae ipply(to those fGS s, _SEP miicegindicatle. W pre >oofind t peapplicaesh >eSm1. Addit inal terms,(permieslvetor non-permieslve, mayebeE1tated|inEthp f_Smtof a separaaely writtbl l cense, orE1tated|asXexc pa ins; t poabs, requirem nts ipply(eis_lr way. 8. TeSminat in. You maye miglropagaa E_SEmodifyga BF, ihd W_Skgexc paEasXexpressly prtverrd undeSEthis L cense. Anyeaeaempt os_lrwisetto propagaa E_S modifyglt lslvoid, ind wIll automat cally teSminate your righis undeS t islL cense ( #clurle.;any laaent|: censes granted undeSEthe third laragraph of sect in 11). However,;if youeBeasl all ,iolaalin o" > islL cense, tibl your : cense -rom a particular cFpyrighi hosd rois reinstathd (i) prtveslina?sy, unl es and unt lEthp cFpyrighi hosd r explicitly and fina?sy teSminates your : cense, ind (b) perma$2"tly, L" > pocopyrighi hosd r faGSstto miifyEyoueo" > po,iolaalin by some reasonaesh means prioro>oo60 days *fteSEthe c esat in. Moreover,;your : cense -rom a particular cFpyrighi hosd rois reinstathd perma$2"tly L" > pocopyrighi hosd ro miifiesEyoueo" > p ,iolaalin by some reasonaesh means, > islis t po1 r1; ti_e you ha, reMeivbd miicego" ,iolaalin o" > islL cense (f_SEPnyEW_Sk) from that copyrighi hosd r, ind you cure >ib ,iolaalin prioro>oo30 days *fteS your reMeipt|of tipo miice. TeSminat in of your righis undeSEthis sect in doesl migteSminate > p : censes oflpartirs who ha, reMeivbd MFpirs or righis from you undeS t islL cense. If your righis ha, been teSminated ind not perma$2"tly reinstathd, youedol mi qu$?ifygto reMeivb new|: censes -_SEt poss_e maaerial undeSEsect in 10t 9. Acc ptanceeNot Required f_SeHavle.;CFpirst You re migrequired|>ooacc pa > islL cense #gordeS to reMeivb _S runga cFpyeo" > p|Prt witt AncIllary letpagaa in of aacF, ihd W_Sk occurrle. soshly asEaEBFnsequence of 0(i) h, yodeS to ha,iuence hd Wnicular cyo`atrieslos_lr ifygpa `at ha,ie. os d) L mGislL cense #gordeS a > i.l t;ind (2) offeS;you tour righissgor uslr or of;t powaLcFpyrighi ho respecL censed f_SeHavle.;CFpir;whGc_ islprec terrighi lawle.;tieivb _ungtib unmodified,Fde usll terodifyglhd Wniculao1 r1; ti_e you hd on;tgal Nots_lrAisetto pi_e youconserrDowo-mie" WRPt no l NotcFpyralin by stle. circumv nt in of;sin|and usl of wisetto propareasonaesurs_lr restal|bl marked| #"elractu$?oa,ense ex,y. 8. Eopbrai.l t;is nolw of;ssudglart, Pg1vle.;CFpir;wh9. Acc ptanceee|MFpirlpermibraalin _SSltirsiculaob requirem nts sec If youe"mrefeSs toAn "usedf : uity _SE-_"s gF, tuity _SE-_Sghi oflpoo we 2x# MFnrle. c censees" antated|ice;-_SEthoseragroPPMl migc: ctated|ic a ne teSmic censees" antatedmerg lawleensees" and vbd MreMeivb _S runga cFpyeo" 1; of;olled d)n usedf : uity _SE-_ d)gIm nt;dtes tha tuity _SE-_Sct ieasonaesursacc pa > isl objeche teasonaesuind atri righis unt any aperr su of tiy' aread: cenicesgo modiartGhad_lr re(danyouetslL cense wIll migrle.;any >oolusursle.Xob:h, undeSEthis rdl es of how > p transaca > isl objeal|bl marread: cenicesgo modiarta?sy marread: ceniceproprtS tibm(L" you weffectri hosd roeffE(op requirem nts ippSlty|>heS;yerms o" thae : censsta #sot >oo> pansact in t ae ss_exw_Sk reed MFEmodifyga BF, ihd W_Skge|activltirs bits re: ippSlty|>hes_lr restapirsroyalnt;to Botib ss_exwaoPrt w>oo> pansan t ae ss_exw_Skrpoprtverrd), thae : cenyrem nts ippS-----tnaratl m asu acFde #, _SElaaes-nse WIlr re(ys case WIin pri truonveslrogvbd it, minate yourase WIiof;t powaLde termseth,cF, ihGS rle. d, subsect ineralal eGSltimo Sent fr Aorro, iinat Bharg suc_ l11. Pry let wlilr w_Snecifieor"nto a dwyrighi hosd roict iEmaaeriallik, >restrlctlin bue pepa > islL censero, ihd W_S1o o#) of;t pPprotece t difie;whGc_ perr suus "T e Pro#ga volumc t T ecifieor' aw_SnecifieortacFpyt l Notices ecifieor' awMaj_SECoLAte yourase W 7. Aragrte yourase W owoedo require, daaes f_SEPes ecifieor,_SEincorp_ls;aeisacNot Reqerac_ ilaalinacNot Re,is nolw ri sgin;t powaLde teopyri InslL u. CFn t pesoftwareEinEtfermseth,cF, ihGSlaw fhnologL censeecifieortacFpyt , l: cn teSmi nt;to pase W is nolw ri sgin;t powaLdeapplireslnpagaa in of aacerms o" you discl im any #tnseecifieortacFpyt kge|ac is in; _S pesofexampln, C,aw_Snecol""Approprianveyle. ocene uthooprietad|icrighis unin pr Insl Alsietadirntt tomttbl l cense,;you youe"mrefeSs toEit. eecifieortL mGislL cealicaeXor runnls torldSEP rsroyalnt- _SEgee your righistslL cense es ecifieor' aMaj_SECoLAte yourase W ,ens val ntuLAGS rans slgnaan;a dal eGimo icat in _S WIetoex,y. 8. Eopbrai.l t;is e es eense,;ygL censeecifieortacFpyt in doeh modifi Cor Sent id t le.;any t in,"ee your righis" roflage miglro .;ae muse phh netitaerialeach muodifoundeS t,eSminaobraalineteSEtug_ t(ace preslne miglroense #gordeS a >slgned eSEtug_ phh nvenaelevan: c Lu th2 ortug_ ouldlmake yo)rep le"L mGi"_lrs. e your righistwhGc_m nt;dk basld ot toe s o.;ae muse phh netitaerieSminaobraalinetegee yourodificat in m nt;hd WIet soshly blcaucumv nt in of;sent,lma invli lawln e your righismigbyEoobjectacFde,;whos |sourca > isl objeundeS t , youerema #Xof : c feS;you toid ttduc> islL cd;cFnveyo> p mach $2-readaesh Corr tomt p a rd|WIet t , youeremc es tomcFpyet o Botib sequirt t ctE #id ro miifi tl to requa BFle. t poobjus in|ofbjectacFde,;whos |sourc----t , youere used f_Se" > g hd oneexc odifygma nea > islbenxame placn, e your righistb GPLoBleEthe c esates,;w_Sk (3_Se" > g ,nin pr Insl Alsietadirntt tomttbl l cense,;y shall be treaaed|ubstantiaevery le le you hd on;wo-mie" W Pt no d|f_Knt,lma invli lan-sourc by some rrecipirent, MFns o"propl: cathd, yo e your righism rmsetha sas a Syst : censle.;_SEBFnv re(ysrt;to Bnd you c no lik, > w_Sks,;whGc_ re BFnv re(ysrt;tw ri s;t powaLc termseo" > iof a di Pt norietarysonaesh re(ysrt SmtundeSEn doesli hoc----tlievel#clured lhd WIet, is suaallat icesgoha ner partirs to , ihlpetuity _SE-_Sac e" > g aerialeBharge Pnywle.;tieivb aob r-_rmuoo we 2x Pnculao1 ,gtib unmodified,Fm $2"uthor e your righistwhGopyri t Pt class esreasona migcFntrol copyrighiEmaaeria, ihd W_Sar uslr ;tieivb a,y. 8 lr restrlto ,on nt (kacc pa > islumv nt in of;sin|nd, yo e your righiss L" "uthorisrwisetto propagubstanRequire;is Pt no a > islumv nt perr mpt o tib dified|So suc_ lA e your righistisr" cenriundeSorybgor .;scriptslto MFnarolinal t;Sourcacc> is L cens, doue,eaay adops#sot >oo> pansaeGSltisoPet wit, ied|Sourc icaeXooo> pansac termseo" > is nveyle. o _SEmore ojectacFde W_Sks_exw_Skrpoprtverrd), thae.quirem nts ipply blcaucumv nt perr o respe7. ArIm nt;dtes o." > g aeri1tatle. tquirem nt;dlt;is g _Skg #gbF, iipirnt|ln, a lhys Ancis WIet rpoprtin maaeriat toepaymg_ t oense ( #clem nt;ddified|Sourc d Mircu*fteS yotsEwhGcyetduct sas a definit inlfGS rpoprtin maanse ( #clem nt;dL mGis,_ aso mplacn, ehis sect iw ri sFnsequencFntrol copyrighies oflpa,Sk seenriundeSory e your righiste anygoha ner partirs tk servhSEPt no;whGc_ re t in s(replacn (o specixaentdstal|bl mtodev cixa)w_Sk (icitriu L ce;to prndnygoha ner partirs t,on nt (kat c Aattphh need to lisnaesh reu may> islumv nt in of;sFpyrighacn emodiadwhosh,SEmore > g aeria e.;as youe your righist> ./s_exw_S,that copyr28 Marmaa ha, _SEhir, irs t ti_e you h a producs L cruthp f_Smte #, _L cense WIe mina f_rrialol mi cFn Botib sexahis unt aouldlmake you)oPrth 8 ln _S WIetspinpub: cly doclpartirs e fGS s, _SEue your e.;Usl12.lrs'Slfrom denSEPOn _Ss'rema domhd WIet Pet wit, ind arSlty|>d;t EBF (SEincorphis _uach cislL c;ae muse ph ln _S WIe) ur opt hp rdicurc t T wit, int in 11). Howeveryayemake,Smtk, >EBF al|bl mar T wit, int in 11). Ho.WIet soshl Tooply blcau : censle.;_SEsoihd W_Siat;lt;isimultaoo>oae > youeBcal m asure undeSctlin bue pepatle. ther-to-pe Suse pcal m asur;sin|ndy letpagaa in of its re: ipply blcaGenes t pkge|activltirs bo respe7;ae nt anant sourc SEho1;s ur rigeS;y daes tsroyalntcathdln tib ssa sas a Sal|bl mtodegeSct mleBharge Pn If addit inal non-BFgind os re(daSiat;lt;iopr mtodeg to rendlctlin bue pepw ri sginaEBFnfrmay>used scl imle.rc sas a Systerecipirntt a13.odifdirntt tomn1. Algnao "T islL cense"mrefeSs to_SEB*n gi, appropriaae cFpyrighi lermieslin. NotWby some row > pygirpopanktphh nens ifeS;you tour righ1tatle. k1. "T e P|of tipS 0. Definit in1. Algnao "T islL cense"mrefe E(2) an, ihlp xaens in1 t inlfGS s terms o" selin, os_lr thanom a mo inal lermieslins" areos_lrin In-_rmat k #gan aggren 10tuct",;whG islumv nt in of; mayebeEpub: c ttbl l cense,;y sh in1. Algnao "T islL cense"mrefe, reMeivb n3> p Pcerriaae los_lr part tomt p amc es tomos_lrw #gan aggr xaens hae lsloLmhrcntt a14. Reight iVeo deny uslrsyoue"mrefeSs toa moema #sofrep softwareg-_S # Metverrd reight i givle.$2"t|by anyirs wsh in1. . Wp,atib Free Softwarel|bl lin n aglinermit",;$2"t|by anyiros_ls thcopyrigh 7piris,;prtverW_Sks ctacFpyt ,pl: c # Muc_ mah desl l-purp : cen;$2"toh eGt|tilr rescerr l NotcFpyrS 0. youk islMk sees_lrurrdiaaeS 0. nu1|oflr restrl al lermies L cen _SEmorens mayebenu1|ofaacF, ihd W_Sksh in1. . Wp,a ib Free Softwar"o, iinaiselrtacFpyt neral PubfeSretWby some strl Bonvey aacei Cor Sent sed to rendlr >opElet wle. t pto a BF,nu1|ofaa F, ihd W_ouslrdinaiselrtacFpyt Metverrdaaes f_SEPema #sofrep s ftwareg-_Slr restrlctlins" Wcriptsltoes L ccaucS 0. nu1|ofmplacn, n1. . Wp,atib Free Softwarmits re: choy|>heS;yS 0. h muoetverrdaa s f_SEPema #sofrep softwareg-_Shd WIet trlctlins" Wes L cen _SEmorenoh xyof;i} L rolict",;ady to veo deny uslrslan1. . Wp,atib Free Softwarf;i}apply(onal lermh xy's rd|WIe,;you muse plahd Wniculao1 rucS 0. -rom a partiEmaaeriallir rigeS;hoy|>hl lerS 0. athd, yorecipirntt aLselrtol mi cFveo deny re: gc odify censors indorsuc_ maaer by this L ceanted undeSno censors indocal m asured arSlty|>d;t |is lin _f oat in. Moreover,y letin, osu*fteS yo;hoy|o eneei Corau iselrtacFpyt ntt a15. nt;the tofmplaWo" > isSs toaHERE IS NO WARRANTY FORoaHE PROGRAM, TOoaHE EXTENT PERMITTED BY APPLICABLE LAWny cXCEPT WHEN OaHERWISE STATED IN WRITINGoaHE RIGHT HOLDERmodif/ORoOaHER PARTIES PROVIDEoaHE PROGRAM "AS IS" WITHOUT WARRANTY OFodiY KIND, EIaHER EXPRESSED ORoIMPLIED, INCLUDING, BUT NOT LIMITED TO, aHE IMPLIED WARRANTIES OFoMERCHANTABILITY difiFITNESS FORoA PARTICULAR PURPOSE. oaHE ENTIRE RISK AS TOoaHE QUALITY difiPERFORMANCE OFoaHE PROGRAM IS WITH YOUermiHOULDoaHE PROGRAM PROVE DEFECTIVE, YOU ASSUMEoaHE ST OF ALL NECESSARY SERVICING, REPAIR ORoCORRECTIONntt a16.s diffcl im anyL ins;of hd WIeN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW ORoAGREED TO IN WRITING WILL diY RIGHT HOLDER, ORoAiY OaHER PARTY WHO MODIFIES dif/ORoCONVEYS aHE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FORoDAMAGES, INCLUDINGoAiY , SPECI, INCIDENTAL ORoCONSEQUENTIAL DAMAGES ARISINGoOUT OFoaHE USE ORoINABILITY TO USE aHE PROGRAM (INCLUDINGoBUT NOT LIMITED TO LOSS OF DATA ORoDATA BEINGoRENDERED INACCURATE ORoLOSSES SUSTAINED BY YOU ORoaHIRD PARTIES ORoA FAILURE OFoaHE PROGRAM TO OPERATE WITH AiY OaHER PROGRAMS), EVEN IF SUCH HOLDER ORoOaHER PARTY HAS BEEN ADVISED OFoaHE POSSIBILITY OF SUCH DAMAGESntt a17. t ae usedcl im anySle.X: aeGSlty|difhd WIet trlcdt;the tofmplaeo" > is ty|dldiffcl im anya ins;of :> p objecly wri. Tooprevk islMlopart) Requcal m nveyle.o enetddit pre > reigewo we 2u(opb a prow #galopart)awu)oPrth ,|-clowibl te utxlspecs o.bsol_SE_m asuouslrd_lriivilya ins;of :ygoha ner partirs ttrl al lerm cFpyrighiseo" > is L cnt, fo e anya ins;of :ndle.;Soureslnpac pa > islL cense esurry t, ind you mayeoffffffffffffffffffffEND OFoand modificat in follow...........Hees maA #gagor usTve suc_ YS yoN2"tL censesd WIet sosh witLle amc w F_SEexam cenyremhae youc----t a > islge irvsr bo #id rousy docum nthd (i,> islbestcc es iredhievelsEyoueo" ot toeit hae you ha, tict",;ded t terdle.;S islL cense gi esh WIecFnveyo> odeg to c,lind n;tga,paEaamaanse ei Cor Senirle. pr;prtverW_cense #Iorisrsafvsr ireEaamaansemr;prtver;yo10t I d)gIet this sec (f_SEsae paa nis ap ;you ourc d slrs beyirde; keep #tact d)gI sec reaa nome s), accomwsh i" in. M"anepatle. po los_egeSctnsmieslifu p|requirttibmtwarayeofff< ternep _SEcusetverW_cense'shis upatle. brief iofa>oofind t.;scrip.>dle.;Son. Mo(C) ffyeofffTa?sy2inotece t hae you ha, :c e of;i};S islL censeiti givle.. 8 ho con;cFnveyo> p mach $2-relan1. . Wp,atib Free SoftwarasMetverrdaaes >ops EEPema #sofrep softwareg-_S,wle. t pS 0. Definit itwareEinEtu$?oa_(ibl youeBonvey)rdinaiselrtacFpyt .yeofffTa?sy2inotece t islL cens_lr than hcc> it, oSEaos_lrapply(fu erms,(l: cWITHOUT AiY WARRANTY;poent rbonle.than f_rrialeo" > is L who cMERCHANTABILITY le.FITNESS FORoA PARTICULAR PURPOSE. oSe strl ho cn1. . Wp,atib Free Softwaremseo" > desl l_SEPs loirem reaa nome ssl migteSrsacc pa > isln1. . Wp,atib Free Softwa offeS ecipirntt t?sy2inoteclr resreqGS re SEPAhe tsurvdified|, is ntedees mareu mtrighiures daesronof tprtvapo" yl lhd WIet trlcplins" Wcriptou undele los_lr par,ot toeited permiam rert requirt: c L t?sybl to poBtr1 anldual separaaely unl) suppl.;Son. Mo(C) ffyofffTa?sy2inoteceisla wirnttABSOLUTELY NO WARRANTY;remsedesl l_ tyc> `eMeivw'.yofffTa?sy t hae you ha, am cenyrem, tielislanaEBFn islL censeityofffcFnveys mayebeE >opElet ; tyc> `eMeivc'remsedesl l_hd a mohypaae o pro cense. I`eMeivw'm cen`eMeivc'r reaa neMeivb _to a BF, ihddoesl migcausl "T islL cense"mrefeS Ofe 2u(ism rmsetW_cense'shcense. m Mo modc_ maaer; ind yoGUIices; howe;suc_ meaa nu|>heS "ly rmibox" requirem reaa nche t" yormsetef_royt poo respee tlin >ooib casl er)Slaw ;hoy erem, in,_ asnsumjectacn. Modt;the tof"cathd, yo it, _SEth-_rm censle.;Fmseo" > iified|, is nteuld ma censees maw #ga cenei Cora isln1. .slin re SEPtoa mon1. . Wp,atib Free Softwarcriptsltou. sd purpos s,ciprmsetW_censeSE(2) pi d to a ftW_censesivbd MFpirs2inotece t ad|icrohys eGS s f_yrmseto egaa tAll oo poo" > ly(fu eS a . snk ins 1 d to a ft fGS s,tanyiros runnleS s f_ylr restr?sy t wmtundeSEwaallat gon in|ofbjn1. LMaj_r . Wp,a ib Free Softwarficaeadnt in 11). Ho.WIbe a ,iol>oolrd laequi SES sppm-1.2/._ING.LESSER000644 000765 000024 00000000642 11445666056 015223 0uBtr100is LBtrff000000 000000 Mac OS X........ 2p¢ATTRö•¢ÈÚÈ‚%cen. fGSe.mo afica:kMDItemWtnsmnnecsJXcen. fGSe.quarantynebpopt 00¢_$http://www.gnu.org/righis u/lgpl.txt_*http://www.gnu.org/righis u/gpl-seeto.html 2_q/0000;4c95d553;Google\x20Chnece;61CDD7E2-96E7-47D0-AFCC-B30ECA6E3EA2|cen.google.ChneceS sppm-1.2/ING.LESSER000644 000765 000024 00000016743 11445666056 015017 0uBtr100is LBtrff000000 000000 fffffffffffffffffffn1. LESSER PUBLIC LICENSEeoffffffffffffffffffff iVeo den 3, 29 Ju eG EPtSon. Mo(C) Pema #sofrep softwareg-_S,wInc. yoEed t ter you. CFnvfurs_lr bow_SislL cense 4. CFnveyle. V nt in 11) ihd W_Skgmaaeriall: cesh WologL undeS t EBFndSEP ffTa?syF, ihd W_Sksh in1. LMaj_r . Wp,aslL cense"mrefe E(purpos s V t sed to rendlr >opElet w > i 0. Definit in1. . Wp,aslL cenn bue permrized|byEtaaes f_SEP caslsewibl youemodifygopt ees islpeP ff0rd|or keyE-_SDxampln, Ct wlilrsply(o#tnsmhis "n 11). HouctereMeivbdi 0. Definit in1. LMaj_r . Wp,atib Free SoftwarmgbyEoobj"n1. .sluctereMeivbdi 0. Definit in1. . Wp,atib Free Softwale.,Tt itws f_yuctereMeivbd you tour righ1lart|of it, MFnta #soa; , fygpa `at ht hAfGS s,tanyro, ihCaens in1W tlin >an| #terfislpeP ffAn "AfGS s,tany" roflageverr supp_|belowk, > w_ f_Smtof a w_> p objecs f_SEPclurrd fr tib n_Smal|f_Smtln _S WIetsified|Sourc clurrd . Dxampl, _SE|ic used"mreay used"an| #terfacurc clurrd e t -Circu in1 FnveyF, ihd f_Smtof a w_> p objerfacurc clurrd wlilr wCaens in1W tl"nto a verr Sk baslighis _ens #, _L cenn and MF AfGS s,tanyrirntt tomL s f_ylr Th of tib partiF, ihd W_Sksh iL s f_ymodifiin maanse Caens in1W tli> ./ntdst > p e te volumc t "Lourc VcFpyt l NotTh o"Ms #ow_S objectacFde #terpreaer useCaens in1W tlik baslddl es of how > p transacathd, yoCaens in1W tl,_Smte #, _lageIet an impl;to pt Bsrrs B*n reens in1W tlio"prop All os_lsgo s) from ,re ojsified|Sourc AfGS s,tany, islL cen|Sourc clurc VcFpyt .yeofTh o"es of how > p AfGS s,tanyrCmpleaer useCaens in1W tlik baslddl n, prtverrd vle.sociaaed|WIet sourc AfGS s,tany, cally teSminaficaigbyEhys;of :> poLmunio ensurlus veSk bas Sent seCaens in1W tliimle. WarAfGS s,tany, tibSmte #, _t sevltirs. Howeverrrs B*n reens in1W tlntt a1. Emtof a sivbdSle.X: Definit in1. .PLf t poaggregaa t 6. CFnveyle. Nofygto reMeivbs DegbyE4nt in 11). Ho oent rboFde inbtware teole.X: Definit in1. .PLf t p2eS;supp_St or Warrantce inE-_SEP fet sosh. 8. TeSc pa > islclurrd frgby,nin Fpirsu mayeBonveyo,gtihirdglayctereMeivbd ymat in mdorsuical----t up_rrialin of AfGS s,tany p|Correso" > p irdglayc(fygpa `at htss o."gtlin,;# soed _r instaihirdglayciof;tvok(regardlnmits re: cgard >oo> poaddi > pSk muse cF, ihd ) suppa)krpoprtverrd), thae :tacFde f_SmtundeSEt toea1laodnse,ifieffE(o;Sourc pindle.;Sou W_Skg #gnle. ht hAfGS s,tanyrcriptsltoeu #ganrl ho mat in mdorsuica," > p irdglaycsts_lrpindle. ma cen mor;Sourind atriin 10t If;s is in; y undeSEtirpoconfu emp tb);cFnveyo> pn1. .slinodifinndle.;SourP caslsewibl youemodifygL who MFnta #soa; mii}s BFndit ins. opt in.;lsl miO, prtvCmplwIncurpos s,cipMwIet thh mle.clurrd eHeanveyF nt .yeofTh oourc sF_Sm1. Y w_ f_AfGS s,tanyrm of tpurpos s y wIet thh , is iheanvey sec ( #gaccorh law. If L s f_ylr oaggregaa t s p|tiat;t EBcFnveyomach $2-eS yo;hoa reqtacFde f_Smtua?sy teSm tpurpos s dl mi qu$?il|f_Smtar metnd (bas sCFnveyaram _Se mauical crucy to laym mapatle.c cenicrk law mmply wlaae W_Snepmat in m rendlcef_r s V (rs ofey ewlrtoln unin length), been topr w. If ei Cor Se) suppa)kGely le.;a relevant dnodifiwit. Yole.;lt; urc sF_Sm1. by > e suppclurrd e t ly(o#ineiti gi. by > e pclurrd eium,;islurmieslsupps-_SEPll t pesoftwareEi. tb);Adle.;Soeded to sat sfygt c) CFnveyoindivlpn1. .slrendlctlir righiss tkgmaaeri>oof_Sbid ens in1W tlof t poaggregaa t 6.Caens in1W tlicFnveyomach $2-eS yo;hoa r_Smtua t tosivbgincor,e paa nis apcn teSmithae : c you discl im any # t Bsrrs B*n clurrd ereu mays_lr than Caens in1W tlinn sFnhd wi e Wolesect iner -bugWologrial,; mayeBonveyo,go respe7 e tn twit. s wsh iei Cor Se) suppa)kGely le.;a relevant dnodifiwit. Yole.;lt;reens in1W tlio"pr ops EEPclurrd e t ly(o#ineiti gi. by > e pclurrd eium,;islurmieslsupps-_SEPll t pesoftwareEi. tb);Adle.;Soeded tCaens in1W tli> c) CFnveyoindivlpn1. .slrendlctlir righiss tkgmaaeri>oof_NotiFr useCaens in1W tlir,;if aaeriast in. Moirle. prduoo wurc ps, _Sany, callyencFntron. Moirle. et sourc clurrd eimo wurc o> odennterfacetsst le,y letin maaecepyle. faSent from rt s _SE-_SEk servhSEPt non1. .slrendlctlir righistkgmaaeri>oof_Nd) Doindle.;Souriei Cor Se) supppppp0.;as needed tMs #ow_S objectacFde #terpr;cFnveyo> p mach $2-readsupppppp SoftwarmgbyEoobjes of how > p AfGS s,tanyrCmpl in prtversuppppppruonuerema #nlfGS rpoprtnant sourc u. ,nt from rt ssuppppppe. nens ifus venkturc AfGS s,tanyi> c) CFn1 of aacF, ihd W_Ssuppppppurc clurc VcFpyt eS a > basldCFn1 of aacCaens in1W tl,_o" > p|Corr r Insl is L cense teole.X: 6hSEPt non1. .slrflr restrlctl|Corr rtiae UslroPrtductEfro supppppp1)odifdapruonueremsharialolurrd emeesh ismrflr enn and irs ttrl upppppp Ss f_ylr Apruonueremmeesh ismroffen1. by >e anreso"y >ed|>glin upppppp TeSc pa > islclurrd p_ls;aeisW_Sks ct|Sourc om r'shcenpur, iupppppprltirs r expliciws_lrpindle.sumer l-BFg c) CFn1 of aacF, ihd iuppppppa > islclurrd p( #gaccoSmtof a w-le.;Stid roirntt tomL urc fffff iVeo deno suppeticesbeen installed| # ROM). T , tibd o#ly occasmeaa nln _S WIe tbomttbl l dmat in doesl mSmalified|, is fygto reMeivb 6hSEPt n fffn1. .slincat in#gan aggred Mircunal TeSSmalified|, is adsupprm censleis_lr youen n keys, _SE_ in1 of aacF, ihd W_Skt n fffCaens in1W tliSk baslighise. nens #, _L cvenk a Syst AfGS s,tanyi> c) CFn1 of aacF, ihd W_Sourc clurc VcFpyt . (ISsupplpart, > f a si4d0,nt frh netw_Sk. CFrrespindlua BFndle.;Soy ops EEPMs #ow_S objectacFde #terpr; youein-_rm _s AfGS s,tany fffCa et sosht, > f a si4d1,o requa BFectacFde WIeh netw_Sk. fff CFrrespindl termsgi Insl is L cense teole.X: 6hSEPt non1. .sl ho m#s a furs_lr tiae UslroPrtductEfro)yeoffeS;sens in1 Howeverf t poaggregandle.;olurrd ehirdglarty SEmore of;le. Modified|Sourc clurrd pAll e teoipl in pr, ihlpeolurrd evbgincorke tibm doosolurrd hirdglarty SEmore ofeSmiAfGS s,tanyiratle.aaurp|exa_SEPll t peso SoftwarmgbyEa t s ah nens ialolurrd ecFnveyomach $2-eS y ;hoa reqo respecLtopr w. If ei Cor Se) suppa)kAdle.;Soeded t nens ialolurrd e> c) CFnveyoindivlpnt acc. Modifiesupp|Sourc clurrd cFpxaens in1 of;topriaae cFolurrd ehirdglarty,-_SEk in s(rharacteS p mach $2-readaesh Cor. tb);Gely le.;a relevant dnodified t nens ialolurrd el lermiesl If; tto a verr sified|Sourc clurrd , n keysndloldl-_SEiear direct ins nexndle.;Soy_lr re nens ial Y w_ivlpnt acc. Mense to Reight iVeo deny uslrs in1. LMaj_r . Wp,aslL cense"mrefeSs toa moema #sofrep softwareg-_S # Metverrd reight i givle.$2"t|by anyi uslrs in1. LMaj_r . Wp,aslL cense"mreferel|bl lin n aglinerit",;$2" veo deny os_lrappcopyrigh 7piris,;prtverW_Sks ctacFpyt ,pl: c # uc_ mah desl l-pu p : cen;$2"toh eGt|tilr rescerr l NotcFpyrS 0. youk islMk sees_lrurrdiaaeS 0. nu1|oflrrestrl clurrd p_soccas inally iities L cen _SEmorens mayebenu1|ofaacF, ihd uslrs in1. LMaj_r . Wp,aslL cense"mrefer"o, iinaiselrtacFpyt eral PubfeSretWby some strl Bonvey aacei Cor Sent sed to rend r >opElet wle. t pto a BF,etverrdaaeF, ihd W_ouslrdinaiselrtacFpyt etverrdaaes f_SEPema #sofrep softwareg-_ShIet trlcclurrd p_soccatib meanle. Wcriptsltoes L ccaucS 0. nu1|ofmplacn,in1. LMaj_r . Wp,atib Free Softwarmits re: choy|>heS;yS 0. placn,in1. LMaj_r . Wp,atib Free Softwa h muoetverrdaaes f_SEPema #sofrep softwareg-_Shd WIet trlcclurrd p_soccas inally iities L cen _SEmorenoh xyof;i} L ro SEincorpady to of t Pt maaers in1. LMaj_r . Wp,aslL cense"mrefereslinsw #gnal lermh xy's rd|WIe,;you muse plahd Wniculao1 ruS;yS 0. so -rom a pa-_SEP UslroPrtdfo Bnd geS;hoy|>hl lerS 0. athd, y clurrd wS sppm-1.2/m4/000755 000765 000024 00000000000 11445666250 013271 5uBtr100is LBtrff000000 000000 S sppm-1.2/Make sec000644 000765 000024 00000010611 11445666057 014415 0uBtr100is LBtrff000000 000000 #------------------------------------------------------------------------- # yF ntfffffff i: Make sec.in #------------------------------------------------------------------------- # # yPs in; yfff i: Cneed to li # # yRademaryfff i: # # yRa maaecesf i: # # yRaighi lsff i: #------------------------------------------------------------------------- # yPar vollyParnt ntfMerd clurrd p(PPM) # yh neit_SE_1 rCenpuralsewiblSciaece # yETH Z parum, HirschengrabslM84 # yCH-8092 Zurich, Sodizerlend #------------------------------------------------------------------------- # T> odevwevuerered arset _r inr >fig to youa ere sx = /usr/lopar ys, _ere sx = ${ere sx} S sdir = ${ys, _ere sx}/S s builddir = . LIBS = -lmeeoff-lm LDFLAGS = -L/difis/is L/sw/meeof/gcc/S s CFLAGS = -O3 FCLIBS = -L/difis/is L/sw/meeof/gcc/S s -L/Bon/lopar/S s/gcc44/gcc/x86_64- fGSe-darr S10/4.4.4 -L/Bon/lopar/S s/gcc44/gcc/x86_64- fGSe-darr S10/4.4.4/../../..f-lgfE(oua bogvbf-lgfE(oua FCFLAGS = -O3 -fhae -tversFC = gfE(oua -mp-4.4 CC = gcc-mp-4.4 CXX = g++-mp-4.4 DEBUG = MODFLAG = -I # T> odevwevuerered arsi, ard LIB_PPM := S sppm.a TARGET := $(builddir)/S s/$(LIB_PPM) SHELL := /ns /sh CPP := cpp # T> oded arSltyr;-_S buildpyle. foever SRC_DIR := $(builddir)/src OBJ_DIR := $(builddir)/o sat s MODULES_DIR := $(builddir)/ callye # T> oded arpath _SEmor" yourboPrt wduoo wrW_S--_rmas, ih CPPVPATH := $(SRC_DIR): CPPVPATH += $(MODULES_DIR): CPPINCLS := $(pat|ice; %,-I%, $(|ice; :, ,$(CPPVPATH))) # T> oded arpath _SEmor" yourboPrt wduoo wr need to li VPATH := $(pat|ice; %,-I%, $(|ice; :, ,$(SRC_DIR))): VPATH += $(pat|ice; %,$(MODFLAG)%, $(|ice; :, ,$(MODULES_DIR))): INCLS := $(|ice; :, ,$(VPATH)) # T> oded ar If e nt _SEmor" yo SS t islLly(o#duoo wr need to li SOURCES := $(sltdir $(os_dc wit$(SRC_DIR)/ppm_module_*.f)) OBJECTS := $(SOURCES:%.f=$(OBJ_DIR)/%.o) MODULES := $(SOURCES:%.f=$(MODULES_DIR)/%.mod) MODSRCS := $(SOURCES:%.f=$(MODULES_DIR)/__%.f) DEPENDENCIES := $(SOURCES:%.f=$(OBJ_DIR)/%.d) # T>o#gae irvs teSm tyouen yle. foever?sy teSpcn n'ibSmees $(oarriaaeChe museiner le. foever...) $(rdal W pe; -it$(OBJ_DIR) || mkdir $(OBJ_DIR)) $(rdal W pe; -it$(MODULES_DIR) || mkdir $(MODULES_DIR)) $(rdal W pe; -it$(builddir)/S s || mkdir $(builddir)/S s) $(rdal W pe; -it$(S sdir) || mkdir $(S sdir)) $(oarriaaen nro)ye.PHONY:rd_lrilean tib Usl;$2"trvsr .DEFAULT: ; Usl: $(TARGET) # T>o#garmanaesurllole.;lt; urc ssl termsgPPM olurrd $(TARGET): $(OBJECTS) sat rus $@ $(OBJECTS) # T>o#gae irvs teSm sec depom dncver #p1)owe in|ofbjpveSk ceniceply(to thoseAppropri #p2)owe survihc depom dncym sec y lett islt #p3)y(to tINCLUDE islLUSE ;you musey SEmore ofeSmii All ah nemg_ t$(OBJ_DIR)/%.d:t$(SRC_DIR)/%.f @$(CPP) $(CPPINCLS) -M $< | \eofffffffy(o#-e 's#$*.o#$(OBJ_DIR)/$*.o $@#' \eofffffffffff-e 's#$$#\\#' \eofffffffffff-e 's#\\\\#\\#' > $@ @$(CPP) -P $(CPPINCLS) $< > $(OBJ_DIR)/__$*.f @gveS "INCLUDE " $(OBJ_DIR)/__$*.f | \eofffffffy(o#-e 's#^[ \t]*##' \eofffffffffff-e '/^!/d' \eofffffffffff-e '/eedf.h/d' \eofffffffffff-e 's#INCLUDE #$(SRC_DIR)/#' \eofffffffffff-e 's#$$# \\#' \eofffffffffff-e "s#'##g" >> $@ @echo '# tantof.sociaaedepom dncveriner .o islL.d e nt ' >> $@ @echo ''$(OBJ_DIR)/$*.o': \' >> $@ @gveS "USE " $(OBJ_DIR)/__$*.f | \eofffffffy(o#-e 's#^[ \t]*##' \eofffffffffff-e '/^!/d' \eofffffffffff-e 's#,.*##' \eofffffffffff-e 's#USE #$(OBJ_DIR)/#' \eofffffffffff-e 's#$$#.o \\#' >> $@ @echo '# tantof.moduleedepom dncveriner .o e nt' >> $@ @rm $(OBJ_DIR)/__$*.f # T>o#ghisllvs teSmW_S--_rmas, ih bow_Sovs teSmrecipir need ih $(OBJ_DIR)/%.o:t$(SRC_DIR)/%.f $(CPP) -P $(CPPINCLS) $< > $(OBJ_DIR)/__$*.f $(FC) $(INCLS) $(LDFLAGS) $(FCFLAGS) $(LIBS) $(DEBUG) -LS s -c -o $@ $(OBJ_DIR)/__$*.f @mv $(builddir)/*.mod $(MODULES_DIR) @rm $(OBJ_DIR)/__$*.f # T>o#g t ly(o#geS;lean upr If e nt _ce irvea_r inrunriaaet to ;lean: rm -fR $(OBJ_DIR) rm -fR $(MODULES_DIR) rm -fR $(builddir)/S s rm -f $(S sdir)/$(LIB_PPM) # T>o#ga servhrmsgPPM olurrd E(2) S sdir tib Usl:rd_l @echo '[edeployo ene'$(S sdir)']' @cp $(TARGET) $(S sdir) @ranS s $(S sdir)/$(LIB_PPM) # T>o#galmiifie need . ma cena servhrmsgPPM olurrd $2":rd_lrtib Usl rvsr:rd_l t toe-- le. foey=src/Smtofp isel/ pe; FC=$(FC) \ OPTS="$(FCFLAGS)" LDFLAGS="$(LDFLAGS)" LIBS="$(LIBS)" # T>o#gpindlesurllodepom dncym secred arupk ocdihdd# WARNING:oa moyle. fas froCoraos_lrse, ssec fina?sbeEwritof.oh eGt|td# et a term b) uireons: callyen$(DEPENDENCIES) s callyen$(DEPENDENCIES) S sppm-1.2/Make sec.in000644 000765 000024 00000010223 11445666057 015021 0uBtr100is LBtrff000000 000000 #------------------------------------------------------------------------- # yF ntfffffff i: Make sec.in #------------------------------------------------------------------------- # # yPs in; yfff i: Make seclcef_r s # # yRademaryfff i: # # yRa maaecesf i: # # yRaighi lsff i: #------------------------------------------------------------------------- # yPar vollyParnt ntfMerd clurrd p(PPM) # yETH Zurich # yCH-8092 Zurich, Sodizerlend #------------------------------------------------------------------------- # T> odevwevuerered arset _r inr >fig to youa ere sx = @ere sx@ ys, _ere sx = @ys, _ere sx@ S sdir = @S sdir@ builddir = @builddir@ LIBS = @LIBS@ LDFLAGS = @LDFLAGS@ CFLAGS = @CFLAGS@ FCLIBS = @FCLIBS@ FCFLAGS = @FCFLAGS@ FC = @FC@ CC = @CC@ CXX = @CXX@ DEBUG = @DEBUG@ MODFLAG = @ax_cv_f90_modflag@ # T> odevwevuerered arsi, ard LIB_PPM := S sppm.a TARGET := $(builddir)/S s/$(LIB_PPM) SHELL := /ns /sh CPP := cpp # T> oded arSltyr;-_S buildpyle. foever SRC_DIR := $(builddir)/src OBJ_DIR := $(builddir)/o sat s MODULES_DIR := $(builddir)/ callye # T> oded arpath _SEmor" yourboPrt wduoo wrW_S--_rmas, ih CPPVPATH := $(SRC_DIR): CPPVPATH += $(MODULES_DIR): CPPINCLS := $(pat|ice; %,-I%, $(|ice; :, ,$(CPPVPATH))) # T> oded arpath _SEmor" yourboPrt wduoo wr need to li VPATH := $(pat|ice; %,-I%, $(|ice; :, ,$(SRC_DIR))): VPATH += $(pat|ice; %,$(MODFLAG)%, $(|ice; :, ,$(MODULES_DIR))): INCLS := $(|ice; :, ,$(VPATH)) # T> oded ar If e nt _SEmor" yo SS t islLly(o#duoo wr need to li SOURCES := $(sltdir $(os_dc wit$(SRC_DIR)/ppm_module_*.f)) OBJECTS := $(SOURCES:%.f=$(OBJ_DIR)/%.o) MODULES := $(SOURCES:%.f=$(MODULES_DIR)/%.mod) MODSRCS := $(SOURCES:%.f=$(MODULES_DIR)/__%.f) DEPENDENCIES := $(SOURCES:%.f=$(OBJ_DIR)/%.d) # T>o#gae irvs teSm tyouen yle. foever?sy teSpcn n'ibSmees $(oarriaaeChe museiner le. foever...) $(rdal W pe; -it$(OBJ_DIR) || mkdir $(OBJ_DIR)) $(rdal W pe; -it$(MODULES_DIR) || mkdir $(MODULES_DIR)) $(rdal W pe; -it$(builddir)/S s || mkdir $(builddir)/S s) $(rdal W pe; -it$(S sdir) || mkdir $(S sdir)) $(oarriaaen nro)ye.PHONY:rd_lrilean tib Usl;$2"trvsr .DEFAULT: ; Usl: $(TARGET) # T>o#garmanaesurllole.;lt; urc ssl termsgPPM olurrd $(TARGET): $(OBJECTS) sat rus $@ $(OBJECTS) # T>o#gae irvs teSm sec depom dncver #p1)owe in|ofbjpveSk ceniceply(to thoseAppropri #p2)owe survihc depom dncym sec y lett islt #p3)y(to tINCLUDE islLUSE ;you musey SEmore ofeSmii All ah nemg_ t$(OBJ_DIR)/%.d:t$(SRC_DIR)/%.f @$(CPP) $(CPPINCLS) -M $< | \eofffffffy(o#-e 's#$*.o#$(OBJ_DIR)/$*.o $@#' \eofffffffffff-e 's#$$#\\#' \eofffffffffff-e 's#\\\\#\\#' > $@ @$(CPP) -P $(CPPINCLS) $< > $(OBJ_DIR)/__$*.f @gveS "INCLUDE " $(OBJ_DIR)/__$*.f | \eofffffffy(o#-e 's#^[ \t]*##' \eofffffffffff-e '/^!/d' \eofffffffffff-e '/eedf.h/d' \eofffffffffff-e 's#INCLUDE #$(SRC_DIR)/#' \eofffffffffff-e 's#$$# \\#' \eofffffffffff-e "s#'##g" >> $@ @echo '# tantof.sociaaedepom dncveriner .o islL.d e nt ' >> $@ @echo ''$(OBJ_DIR)/$*.o': \' >> $@ @gveS "USE " $(OBJ_DIR)/__$*.f | \eofffffffy(o#-e 's#^[ \t]*##' \eofffffffffff-e '/^!/d' \eofffffffffff-e 's#,.*##' \eofffffffffff-e 's#USE #$(OBJ_DIR)/#' \eofffffffffff-e 's#$$#.o \\#' >> $@ @echo '# tantof.moduleedepom dncveriner .o e nt' >> $@ @rm $(OBJ_DIR)/__$*.f # T>o#ghisllvs teSmW_S--_rmas, ih bow_Sovs teSmrecipir need ih $(OBJ_DIR)/%.o:t$(SRC_DIR)/%.f $(CPP) -P $(CPPINCLS) $< > $(OBJ_DIR)/__$*.f $(FC) $(INCLS) $(LDFLAGS) $(FCFLAGS) $(LIBS) $(DEBUG) -LS s -c -o $@ $(OBJ_DIR)/__$*.f @mv $(builddir)/*.mod $(MODULES_DIR) @rm $(OBJ_DIR)/__$*.f # T>o#g t ly(o#geS;lean upr If e nt _ce irvea_r inrunriaaet to ;lean: rm -fR $(OBJ_DIR) rm -fR $(MODULES_DIR) rm -fR $(builddir)/S s rm -f $(S sdir)/$(LIB_PPM) # T>o#ga servhrmsgPPM olurrd E(2) S sdir tib Usl:rd_l @echo '[edeployo ene'$(S sdir)']' @cp $(TARGET) $(S sdir) @ranS s $(S sdir)/$(LIB_PPM) # T>o#galmiifie need . ma cena servhrmsgPPM olurrd $2":rd_lrtib Usl rvsr:rd_l t toe-- le. foey=src/Smtofp isel/ pe; FC=$(FC) \ OPTS="$(FCFLAGS)" LDFLAGS="$(LDFLAGS)" LIBS="$(LIBS)" # T>o#gpindlesurllodepom dncym secred arupk ocdihdd# WARNING:oa moyle. fas froCoraos_lrse, ssec fina?sbeEwritof.oh eGt|td# et a term b) uireons: callyen$(DEPENDENCIES) s callyen$(DEPENDENCIES) S sppm-1.2/NOTICE000644 000765 000024 00000001142 11445666057 013660 0uBtr100is LBtrff000000 000000 LIABILITY NOTICE eN NO EVENT SHALL aHE ETH BE LIABLE TO AiY PARTY FORoDIRECT, INDIRECT, SPECI, INCIDENTAL, ORoCONSEQUENTIAL DAMAGES, INCLUDINGoLST PROFITS, ARISINGoOUT OFoaHE USE OFoaHIS SOFTWAREodifiITS DOCUMENTAn fo, EVEN IF aHE ETH HAS BEEN ADVISED OF aHE POSSIBILITY OF SUCH DAMAGE. aHE ETH SPECIFICALLYoDISCLAI modiY WARRANTIES, INCLUDING, BUT NOT LIMITED TO, aHE IMPLIED WARRANTIES OFoMERCHANTABILITY dif FITNESS FORoA PARTICULAR PURPOSE. aHE SOFTWAREoPROVIDED HEREUNDER IS ON AN "AS IS" BASIS, AND aHE ETH HAS NO OBLIGAn foS TOoPROVIDEoMAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, ORoMODIFICAn foSSES sppm-1.2/README000644 000765 000024 00000025470 11445666650 013645 0uBtr100is LBtrff000000 000000 PPM co arpackage README ======================= v1.2, Septe1|ofm2010 Inecoc Aa li ------------ T>o#g t rmsgPPM co arsociaaepackageSEP Package es eense ---------------- a mo`.tr1.gz`rpackage by some sn;woloart w reaa nreu may>|Sourc toplwitLd, y ei Cor Sen secredndpyle. foever: ---------------------------------- ffff34K INGfffffffTh itwareEi fff7.5K ING.LESSER fff4.2K Make sec.infffTh iMake seclcef_r s ly(o#his _>fig to fff610B NOTICE ffff11K README fffffffTh t hsec ffff25K README.htmlfffTh iHTMLyS 0. placn t hsec fff717Bmrelopar.m4 fff203Knr >fig to ffffTh ibuildpr >fig to enrip; t5.1Knr >fig to.acffTh ibuildpr >fig to enrip;lcef_r s fff204B m4offfffffffffCeu maysibuildpenrip;dsupp3.6K srcfffffffffffCeu maysiivlpnet an impl;---------------------------------- Afelrt os reeed .gPPM co artEiearos_lrappln tib syle. foever?t sourc ns hever rndnygallyenf nt .ye Rtbl l cense,t sobuild SenPPM co a;---------------------------------- -oMETIS 4:poaggregan;woloarerm b)irvsrcveewritof.METIS 4h , is http://glaros.dtc.umn.edu/gkhome/meeof/meeof/n;woloarma lelr haes apc e of;is " yoal|bl marPPM websiu ourc S 0. plaMETIS SEmorhasibeened Mirses apcrvsriesupe tibmsethadeSE-_ f_MPI|ln, a lhys0. (Bonveyal): Ee. t p" yoOpomMPI, eedch2 o, iinaaae cFMPI|2 reeeli-_S MPI|S s f_ylrI respe7. A need ihrPPM oFnv rluBtor,eSEsae: c e > you pprltadminros_lrome s)ls;aeis f_MPI|tib Uslied|Sourc rltirs.yeMake ndle.;Soure;is Pbl l cense,7. A need in1 of;tivlpnt ac need i.;as yoccatos_lrapplyo enebuildpPPM co a.ye Build SenPPM co a;-----------------P PPM co arisibuilmii 3pcoppremstepr: Step 1:fCeufuoo wrPPM co a;~~~~~~~~~~~~~~~~~~~~~~~~~~e RuSourc `r >fig to` enrip;lcot EBFourc nuildpeltirs.at geou undencFntrore. f Bonveysvfurs_eed .gPPM co a.yeIorisred trSltyr;-_S _SEcuse`r >fig to` cFntrore. frsets_lro" ot toendle.PPM co arisi need in1rore. flylrTly(to totib n_Smasets_lro"d arsuptyr;(o#gype ;~~~~~~~~~~ $ ./r >fig to --help;~~~~~~~~~~ T>o#g t wmtunos_lrapprry t,ed: ;~~~~~~~~~~~~~~~~~~~~~~~~~~~ `r >fig to'pr >fig tosgPPM 1.2.0-pu p ap;lcotmiinaki. Iof.sltirs .yeUsage: ./r >fig to [OPn fo]... [VAR=VALUE]... Toihdnsumjenvironmuse vwevuerere(e.g., CC, CFLAGS...),oes L ccatsemras VAR=VALUE. oSe sroCoraner -enrip; Pt maaesomle.;Sourily(fu evwevuerer. Defaultr?t sourc Bonveysvd arss L censei s fcketr. C >fig tto li: pp-h, --help aaeriaacn t help n keysityofff --help= rert aaeriaaBonveysv,on nt (k;prtvccorhckageyofff --help=e. urses aaeriaacnem rert help slrd_lrhoseApproprdorhckagedsup-V, --S 0. aaeriaaS 0. sCFrrespindln keysityof-q, --bl et, --ssec f teSmipoo te`rhe musei...' mcensgedsupff --carhe-f nt=FILE ffcarhe rvsrcvesultr?i FILE [ aauered]yof-C, --r >fig-carheupff ali-r?t so`--carhe-f nt=r >fig.carhe'yof-n, --no-ce irv teSmice irv d permif nt supff --srcyle=DIR (to thosenet anr?i DIR [r >fig to dir so`..'] Innetw_Sk. yle. foever: --ere sx=PREFIX........lr youen nrmantecy to-to epom dnmif nt ?i PREFIXeoffffffffffffffffffff iiii[/usr/lopar]yof--ys, -ere sx=EPREFIX...r youen nrmantecy to- epom dnmif nt ?i EPREFIXeoffffffffffffffffffff iiii[PREFIX] By"an|ault, `t toei youen'nos_lrr youen n_lrhosef nt ?i `/usr/lopar/ns ', `/usr/lopar/S s' etc. poaggf;i}es L cc an tib UslSk. ere sx fygpa `at h`/usr/lopar'plyo `--ere sx',;to ptib Uulao`--ere sx=$HOME'. Fr ubetsb ssa ecoln in|ofbjBonveysvfislpeP Fndencu #, _Ly teSm tnetw_Sk. yle. foever: --ns yle=DIR om rtys, _Suerere[EPREFIX/ns ]yof--sns yle=DIR eltirs.adminrys, _Suerere[EPREFIX/sns ]yof--S sys, yle=DIR 2inoteceys, _Suerere[EPREFIX/S sys, ]yof--sysr >fyle=DIR s;ae-in#ga, ihlp-medhidenuical[PREFIX/etc]yof--sharia;you yle=DIR n1 of ueremnrmantecy to-to epom dnmiuical[PREFIX/ ne]yof--Sopar;you yle=DIR n1 of uerem, ihlp-medhidenuical[PREFIX/vwe]yof--S syle=DIR o sat sfygt l Howeverr[EPREFIX/S s]yof--Approprdle=DIR Ciheanvey secsl[PREFIX/Appropr]yof--old Sproprdle=DIR Ciheanvey secslto pnon-gcci[/usr/Appropr]yof--uicaroltdir=DIR s;ae-in#ganrma.-to epom dnmiuicalroltl[PREFIX/shari]yof--uicayle=DIR s;ae-in#ganrmantecy to-to epom dnmiuical[DATAROOTDIR]yof--Apfoyle=DIR ApfotkgmaaeriSk. [DATAROOTDIR/Apfo]yof--Soparrdle=DIR aloparo- epom dnmiuical[DATAROOTDIR/lopari]yof--se. le=DIR m;i} gmaaeriSk. [DATAROOTDIR/m;i]yof--uo yle=DIR gmaaeriSk. roltl[DATAROOTDIR/ gm/ppm]yof--htmlyle=DIR htmlf gmaaeriSk. [DOCDIR]yof--dviyle=DIR vif gmaaeriSk. [DOCDIR]yof--pdfyle=DIR 2dff gmaaeriSk. [DOCDIR]yof--psyle=DIR psf gmaaeriSk. [DOCDIR]y Oonveyal F ir tos: -- aauere-Bonvey-rhe musei sum" > lne. ngniz(o#--enuere/--e tibmonveys -- aauere-FEATURE gfeSmii allyenFEATURE (nt ac-r?--enuere-FEATURE=no)yof--ynuere-FEATURE[=ARG] ii allyenFEATURE [ARG=yes]yof--ynuere-eed[=oppr.] in|MPI|(an|aultil|f_S),oet trlcMPI|tmed|byEtSk. ffffffffffffffffffffffffff$2-eS yo;hoa r_ectacFdsi need i wrappeMeivEmore ofi ffffffffffffffffffffffffffPATH,oegf;i}eetatsemrmyself,S;hoy|>: gucen;(Inos_l ffffffffffffffffffffffffff;hoy|>hl ea ,iol|tmed|byEtSk. oegf;i}(to ), ffffffffffffffffffffffffff$pomeed, lameed, eedch, eedch2,oSmtoleed_gnu ffffffffffffffffffffffffff(t ael'scMPI|e tibn1. Cneed i.s),oSmtoleed_Smtol ffffffffffffffffffffffffff(t ael'scMPI|e tibt ael Cneed i.s),osuSo(Suf_MPI), ffffffffffffffffffffffffffibmf(tBM AIX.POE). Elpermretats t hlagnodifinnevwlue ffffffffffffffffffffffffffn keretaCC, CXXfn keFC,;prtvero a BF, ihdc need i. ffffffffffffffffffffffffffwrappeMei(safvsr)yof--ynuere-linuxffffffffff need i flr ennuxf(an|aultil|f_S)yof--ynuere-e lin in|e lin (an|aultil|f_S)yof--ynuere-v. foe ynuere __VECTOR (an|aultil|f_S)yof--ynuere-esphkeaaun ynuere __MATHKEISAN (an|aultil|f_S)yof--ynuere-sxf90 ynuere __SXF90 (an|aultil|f_S)yof--ynuere-crayfishrhck ynuere __CRAYFISHPACK (an|aultil|f_S)yof--ynuere-hypre ynuere __HYPRE (an|aultil|f_S)yof--ynuere-no-micro tner ynuere __NOMICROINSTRUCn foS (an|aultil|f_S)yof--ynuere- -bug ynuere -bug n1 F (an|aultil|f_S)y SomleApfluentu$?ienvironmuse vwevuerer: CXXfffffffffC++c need i.;cense. CXXFLAGS fffC++c need i.;hlags LDFLAGS nki.;hlags, e.g. -Lqo respeome sl Howeverrin p ffffffffffffffnonsi, ard yle. foey LIBS l Howeverrat ised";prtvernki., e.g. -l CPPFLAGS (O, prtes ) C/C++cpveSk cenicehlags, e.g. -Iqo ffffffffffffffespeome sheanverrin pfnonsi, ard yle. foey CCffffffffffCc need i.;cense. CFLAGS fCc need i.;hlags CPP ffffffffCcpveSk cenic FCffffffffffFE(oua c need i.;cense. FCFLAGS FE(oua c need i.;hlags U|>hl eodevwevuerere;pra_SErcFde WIe;hoa r./ntdstby `r >fig to'piceplyhelp;is,;pr(to tl Howeverr cen poLmuniodifinndsi, ard is us/lopan, Ct wlRetyr; bugpr;prtverWackage ectacFdr.;~~~~~~~~~~~~~~~~~~~~~~~~~~~ Fr Cor SenBonveysvd arees L tw_trSltyr;-_S: -o`--ynuere-eed`:rI respeos_lrapprunriaaePPM cliense,oFnv par vollyenvironmuse a_(i rluBtor)plyo MPI, requa BFes L cca n_SmaMPI|tmed|byEtSk. respe7. plyo .bd MFpirseltirs.?sy2inr l-BFr >fig to thosteuld w reaa nappenough sCFrrespindlflr PPM co arnuildpeltirs.at (to thoseMPI|S s f_verr cen need i. ffwrappeMeio ensu. restr?sygovs wrongrmits re: ensitats t Bonvey n keret c need i.;wrappeM n kel Howeverrin `FC`m cen`LDFLAGS`cvespa nis ap. -o`--ynuere-ennux`:rSetats t o resp'. A need ih/runriaaeoFnv Lnnuxfeltirs -o`--ere sx`:rI respe: c L _lr youen PPM gbyEoobjt islt yle. foey l|f_Smtins neeltirs'scsi, ard yle. foey (`/usr/`)thosteby some sto"an| #tats t yle. foeys here.poaggra BFectacFde WIefu p|path.#Iorisr_Smtrm censleis_lr youen PPM.yofBuild Seniti gi.leavologL unied t need to li yle. foey l|fsufficiaet.bd MFpi FectacFdea yle. foey Eiear pooa BFnls;aeisSmees -oSEaos_lr_Smtappce irveabganrl honuildpeltirs. -o`FC`metc.:rI respeosshnd (bot in|MPI|o Bnd ome sto"es L ccaexa flya n_Sm c need i.;ys, _Suerew reaa napply(ogardlnmits f;i} in|of t hlagnto"e yormse c need i.. -o`LDFLAGS`:rI rmeeoff> ./eSmii A Uslieday>|Sle.;Sourieltirs'scsi, ard olurrd syle. foever?(e.g.h`/usr/lib`)t requa BFes L ccat moyle. fory";prtverbmeeof.p ff seclhere. Hiear woaexamed|s ntedees os reaa nrunied t n>fig to cense. `.r >fig to` nteLnnuxfrluBtorplyo OpomMPI_(indnygael need i.s, wrapped);~~~~~~~~~~~~~~~~~~~~~~~~~~~ $ ./r >fig to --ynuere-eed=$pomeed LDFLAGS=-L../../meeof/S s --ynuere-ennux;~~~~~~~~~~~~~~~~~~~~~~~~~~~ `./r >fig to` nteMac OS X.c. Mst,tanyrirntt tomMacPosl mgcci need i.s;~~~~~~~~~~~~~~~~~~~~~~~~~~~ $ ./r >fig to CC=gcc-mp-4.4 FC=gfE(oua -mp-4.4 CXX=g++-mp-4.4 \eofffffffffff LDFLAGS=-L/difis/is L/sw/meeof/gcc/S s ;~~~~~~~~~~~~~~~~~~~~~~~~~~~ ( n_lde WIeCCf yXXfhlagsre ofeSmie iw_tro ensu) Step 2: Cneed o wrPPM co a;~~~~~~~~~~~~~~~~~~~~~~~~~~e et trlcr >fig to Sk cen (torrdaaesuc cenfu ppc e o reaa neee on Fpirssce slMk mcensge by > e pMake seclhasibeene SS t ( cenyremf;i}noranindlctli Make seclinats t yle. foey). Nees os r;i}etmedynrunit toefurs_eed .gPPM co a: ;~~~~~~~~~~~~~~~~~~~~~~~~~~~ $et to ~~~~~~~~~~~~~~~~~~~~~~~~~~~ I respeenreamtoftoh eGt|tiunied t need to li Sk cen (s_eed .gSEro.s)oolrd l, ,iol|rhe mqo respeome se yoh muytho wr nre. flynin Fpirsenvironmuselrrestrl SEro. u. seess>oolrd laseslLlyea bug-retyr; desl l Sent sepreigousmsteprMFpi ome s morsu. Also>oolrd la callyencFnt`r >fig.log`m sec ybyEoobjd permiof `extyr;`. Finiw_teqo repe7. Alyo MPI, olrd la callyen n_SmaMPI|olurrd espe7. lyo . Step 3:eh netw_o wrPPM co a (Bonveyal) ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ I respeosshnd (r youen PPM co a yremf;i}nora in|ofbj`t toei youen` cense. lat go so: ;~~~~~~~~~~~~~~~~~~~~~~~~~~~ $et tortib Usl ~~~~~~~~~~~~~~~~~~~~~~~~~~~ I roobjt islt yle. foey l|frh law. If rltirs respeos_lrSEsaeoh eueryp" yok mcensge by >espeome stibufficiaet MslrI respeome s) roltlndleamtc e of;isusclinats t Ewrit If rudo cense. lat a_SErcFde Wl|fs. urlaycsets_lr. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~ $erudo t tortib Usl ~~~~~~~~~~~~~~~~~~~~~~~~~~~ YpirsPPM co a ln, a lhys0. ccoSmA Uslie. C eed o wrPPM cliensverrd gmaystnPPM co a;------------------------------------------PWr inr eed o wrypirsPPM cliensverrd e oo en.at (tiol|tcallyencFntPPM co a modules: -oin `tcallye/`cvelhaes k;prtvccoyle. foey.eChe mn n_Sma need i.;hlagoo enst ssupapply(ond (r allyenFE(oua cmoduleedle. foever. n kel nk gmaystnS sppm.a: -oin `S s/`cvelhaes k;prtvccoyle. foey.eAdd -L[path 2) S s] -lppmt s _SE-_Snk a Scense. l$2-eS yo;need to li Sk cen. EnjoyncFntPPM exteriaece! C > a lhyo.s ------------ T>sgPPM olurrd EsoFde inndeS mays_ldndpywitL$poaes f_SEPCSE-lab (group sl ProfcenicePetros Koumm maakos)oybyEoobjMOSAIC group (ProfceniceIvo F. Sbalzwevni)"y >ETH ZurichrmgbyEoobjeemtoftflr Fluid Dyis ico"y >DTU (group sl ProfceniceJeysvWalygpa). PPM co arpackage ndeS maysr: Os L Awsec ES sppm-1.2/README.html000644 000765 000024 00000061414 11445666661 014610 0uBtr100is LBtrff000000 000000 PPM co arpackage README /* D-bug bornverr*/ p, ol, dt, dogadiveqtae, h1, h2, h3, h4, h5, h6 { /* eofbornve: 1px soli sFnd; */ } body { m;rgin: 1em 5% 1em 5%; } a { coloe: blue; text-decotto li:rharacoln ; } a:ighiS t { coloe: fuchsia; } em { fs e-styld: i Usic; coloe: navy; } , ao in{ fs e-we M: bold; coloe: #083194; } tt { coloe: navy; } h1, h2, h3, h4, h5, h6 { coloe: #527bbd; fs e-fs ily: sans-ifiif; m;rgin-top: 1.2em; m;rgin-bottom: 0.5em; oln -he M: 1.3; } h1, h2, h3 { bornve-bottom: 2px soli ssil_SE; } h2 { p casng-top: 0.5em; } h3 { floaM: left; } h3 + * { clrdr: left; } div.ole.X: body { fs e-fs ily: sfiif; m;rgin-left: 0; } hr { bornve: 1px soli ssil_SE; } p { m;rgin-top: 0.5em; m;rgin-bottom: 0.5em; } u empl, ol > p { m;rgin-top: 0; } p ar{ p casng: 0; m;rgin: 0; } span#_SEP U { coloe: #527bbd; fs e-fs ily: sans-ifiif; fs e-we M: bold; fs e-size: 1.1em; } span#undel { } span#reinu1|of,oesan#reidihd,oesan#reiradema { fs e-fs ily: sans-ifiif; } div#folter { fs e-fs ily: sans-ifiif; fs e-size: mmpl; bornve-top: 2px soli ssil_SE; p casng-top: 0.5em; m;rgin-top: 4.0em; } div#folter-text { floaM: left; p casng-bottom: 0.5em; } div#folter-badges { floaM: M; p casng-bottom: 0.5em; } div#p aamerew{ m;rgin-top: 1.5em; m;rgin-bottom: 1.5em; } div.Suereblockgadiv.imageblockgadiv.examed|blockgadiv.hd wiblockg div.qulteblockgadiv.liS ralblockgadiv.lies_lrblockgadiv.All barblockg div.admonpEletblockw{ m;rgin-top: 1.0em; m;rgin-bottom: 1.5em; } div.admonpEletblockw{ m;rgin-top: 2.0em; m;rgin-bottom: 2.0em; m;rgin-r M: 10%; coloe: #606060; } div.es eens { /* Blockwed|byEt es eens.r*/ p casng: 0; } /* Blockwed|byEt titles.r*/ div.Sitle, Ewonvey.Sitle { coloe: #527bbd; fs e-fs ily: sans-ifiif; fs e-we M: bold; text-Usign: left; m;rgin-top: 1.0em; m;rgin-bottom: 0.5em; } div.Sitle + * { m;rgin-top: 0; } td div.Sitle:(tiol-childp{ m;rgin-top: 0.0em; } div.es eens div.Sitle:(tiol-childp{ m;rgin-top: 0.0em; } div.es eens + div.Sitlep{ m;rgin-top: 0.0em; } div.oll barblock > div.es eens { background: #ffffee; bornve: 1px soli ssil_SE; p casng: 0.5em; } div.lies_lrblock > div.es eens { bornve: 1px soli ssil_SE; background: #f4f4f4; p casng: 0.5em; } div.qulteblockgadiv.hd wiblock { p casng-left: 1.0em; m;rgin-left: 1.0em; m;rgin-r M: 10%; bornve-left: 5px soli s#dddddd; coloe: #777777; } div.qulteblock > div.at a lhys0. { p casng-top: 0.5em; text-Usign: M; } div.hd wiblock >qtae.es eens { fs e-fs ily: ingpait; } div.hd wiblock >qdiv.at a lhys0. { p casng-top: 0.75em; text-Usign: left; } /* DEPRECATED: Pto of t Pt 8.2.7 of temstylpeolS ral block.r*/ div.hd wiblock +qdiv.at a lhys0. { text-Usign: left; } div.admonpEletblockw.ic0. { hd tical-Usign: top; fs e-size: 1.1em; fs e-we M: bold; text-decotto li:rharacoln ; coloe: #527bbd; p casng-r M: 0.5em; } div.admonpEletblockwtd.es eens { p casng-left: 0.5em; bornve-left: 3px soli s#dddddd; } div.examed|block > div.es eens { bornve-left: 3px soli s#dddddd; p casng-left: 0.5em; } div.imageblock div.es eens { p casng-left: 0; } span.image imin{ bornve-styld: non ; } a.image:ighiS t { coloe: wante; } dlp{ m;rgin-top: 0.8em; m;rgin-bottom: 0.8em; } dt { m;rgin-top: 0.5em; m;rgin-bottom: 0; fs e-styld: normmp; coloe: navy; } dd > *:(tiol-childp{ m;rgin-top: 0.1em; } u emplp{ olse-styld-posio li:rm mall ; } ol.arabicp{ olse-styld- ype:} L mmp; } ol.low ralphap{ olse-styld- ype:}low r-alpha; } ol.uppeMalphap{ olse-styld- ype:}uppeM-alpha; } ol.low rrom;i}{ olse-styld- ype:}low r-rom;i; } ol.uppeMrom;i}{ olse-styld- ype:}uppeM-rom;i; } div.esmpact u emdiv.esmpact pl, div.esmpact pemdiv.esmpact p, div.esmpact diveqdiv.esmpact divp{ m;rgin-top: 0.1em; m;rgin-bottom: 0.1em; } div.Suereblock > Suerew{ bornve: 3px soli s#527bbd; } th;ae, p.Suere.heanvey{ fs e-fs ily: sans-ifiif; fs e-we M: bold; } tfoltn{ fs e-we M: bold; } td >adiv.hd win{ wante-space:}tae; } p.Suere { m;rgin-top: 0; } /* Beca in|ofbjSuere frt ac-t a lhyarisia_SErcFdnes fCSSoin SEsaebrowifis.r*/ div.Suereblock > Suere[frt a="void"] { bornve-styld: non ; } div.Suereblock > Suere[frt a="hall s"] { bornve-left-styld: non ; bornve-r M-styld: non ; } div.Suereblock > Suere[frt a="vall s"] { bornve-top-styld: non ; bornve-bottom-styld: non ; } div.hdolsep{ m;rgin-top: 0.8em; m;rgin-bottom: 0.8em; } div.hdolseptr { p casng-bottom: 15px; } dt.hdolse1., ao i,wtd.hdolse1., ao in{ fs e-we M: bold; } td.hdolse1 { hd tical-Usign: top; fs e-styld: normmp; p casng-r M: 0.8em; coloe: navy; } td.hdolse2 { hd tical-Usign: top; } div.hdolse.esmpact tr { m;rgin: 0; p casng-bottom: 0; } . nemg_ { background: ye Cor; } .foltnohd,o.foltnohdref { fs e-size: 0.8em; } span.foltnohd,ospan.foltnohdref { hd tical-Usign: supSE; } #foltnohds { m;rgin: 20px 0 20px 0; p casng: 7px 0 0 0; } #foltnohds div.foltnohd { m;rgin: 0 0 5px 0; } #foltnohds hr { bornve: non ; bornve-top: 1px soli ssil_SE; he M: 1px; text-Usign: left; m;rgin-left: 0; upe dth: 20%; min-e dth: 100px; } @mediaipoo te{ div#folter-badges { aaeria: non ; } } div#tocp{ m;rgin-bottom: 2.5em; } div#tocSitle { coloe: #527bbd; fs e-fs ily: sans-ifiif; fs e-size: 1.1em; fs e-we M: bold; m;rgin-top: 1.0em; m;rgin-bottom: 0.1em; } div.SoclwitL1eqdiv.SoclwitL2eqdiv.SoclwitL3eqdiv.SoclwitL4 { m;rgin-top: 0; m;rgin-bottom: 0; } div.SoclwitL2 { m;rgin-left: 2em; fs e-size: 0.9em; } div.SoclwitL3 { m;rgin-left: 4em; fs e-size: 0.9em; } div.SoclwitL4 { m;rgin-left: 6em; fs e-size: 0.9em; } /* Workaroundslto pIE6'sebrokey n keinreeeletEPCSS2.r*/ div.oll bar-es eens { background: #ffffee; bornve: 1px soli ssil_SE; p casng: 0.5em; } div.oll bar-Sitle, div.image-Sitle { coloe: #527bbd; fs e-fs ily: sans-ifiif; fs e-we M: bold; m;rgin-top: 0.0em; m;rgin-bottom: 0.5em; } div.lies_lrblock div.es eens { bornve: 1px soli ssil_SE; background: #f4f4f4; p casng: 0.5em; } div.qulteblock-at a lhys0. { p casng-top: 0.5em; text-Usign: M; } tae.hd wiblock-es eens { fs e-fs ily: ingpait; } div.hd wiblock-at a lhys0. { p casng-top: 0.75em; text-Usign: left; } div.examed|block-es eens { bornve-left: 3px soli s#dddddd; p casng-left: 0.5em; } /* IE6csets dyis iciw_tr SS t nksc-r?ighiS t.r*/ div#tocpa:ighiS t { coloe: blue; } /*scaysiivlpDOM trei flr heanveyed|byEts (SvlpDOM2 // nodeIt SSor API|eeaa nappaubetsb stechniquarnutfeSmisuptyr;(o#s fiw_ // browifis). var lS ratee= fune.X: (el)p{ to p(var i = el.(tiolChild; i != null; i = i.nextSib o w)p{ q qo r(i.nodeType == 1 /* NadeSELEMENT_NODEr*/) { q q var mo = ae.ys, (i.tagNs u); q q o r(mo &&r(i.getAt a lhya("class") || i.getAt a lhya("classNs u")) != "floaM") { q q vesult[vesult.length] = $2"tTocEntry(i, getText(i),eSE[1]-1); q q } q q oS rate(i); q } q} } oS rate(el); rry t, vesult; } var toce= gmaaeri.getEd|byEtById("toc"); var entrids = tocEntrids( gmaaeri.getEd|byEtById("es eens"), toclwitLs); fs p(var i = 0; i < entrids.length; ++i) { var entry = entrids[i]; o r(entry.ed|byEt.i s== "") qentry.ed|byEt.i s= "_toc_" + i; var ae= gmaaeri.ce irvEd|byEt("a"); a.href = "#" + entry.ed|byEt.i ; a.appendChild( gmaaeri.ce irvTextNade(entry.text)); var divp= gmaaeri.ce irvEd|byEt("div"); div.appendChild(a); div.classNs u = "toclwitL" + entry.toclwitL; toc.appendChild( iv); } o r(entrids.lengths== 0) toc.parentNadeSet a tChild(toc); }, ///////////////////////////////////////////////////////////////////// // Foltnohds SSor ///////////////////////////////////////////////////////////////////// /* Basied|Sofoltnohd SSX: errd al|b: * http://www.brn kspank a $2".net/armanae/2005/07/Frresp_foltnohd.html r*/ foltnohds: fune.X: () { var es ee= gmaaeri.getEd|byEtById("es eens"); var nohdholdere= gmaaeri.getEd|byEtById("foltnohds"); var spans = es e.getEd|byEtsByTagNs u("span"); var refs = {}; var n = 0; fs p(i=0; ih[\s\S]oin placeaw. . so multi-enne ndtchvs work. q// Beca in|JavaSnrip;lh ./eS s (do Usl) regex;hlag. qnohd = spans[i].in HTML.ndtch(/\s*\[([\s\S]*)]\s*/)[1]; qnohdholder.in HTML += q "" + q "" + q n + ". " + nohd + ""; qspans[i].in HTML = q "[" + n + "]"; qvar i s=spans[i].getAt a lhya("id"); qo r(id != null) refs["#"+id] = $; } } o r(ns== 0) nohdholder.parentNadeSet a tChild(nohdholder); tLseq{ // Pk cen (oltnohdrefs. fs p(i=0; i" + n + "]"; q} } } } } /*]]>*/

PPM co arpackage README

v1.2, Septe1|ofm2010
Inecoc Aa li

T>o#g t rmsgPPM co arsociaaepackageS

Package es eense

T>e .tr1.gzrpackage by some sn;woloart w reaa nreu may>|Sourc toplwitLd, y ei Cor Sen secredndpyle. foever:

    34K INGfffffffTh itwareEi
   7.5K ING.LESSER
   4.2K Make sec.infffTh iMake seclcef_r s  ly(o#his _>fig to
   610B NOTICE
    11K README fffffffTh t hsec
    25K README.htmlfffTh iHTMLyS

  0. placn t hsec
   717Bmrelopar.m4
   203Knr >fig to ffffTh ibuildpr >fig to enrip;
   5.1Knr >fig to.acffTh  ibuildpr >fig to enrip;lcef_r s 
   204B m4offfffffffffCeu maysibuildpenrip;d
   3.6K srcfffffffffffCeu maysiivlpnet an impl

Afelrt os reeed .gPPM co artEiearos_lrappln tib syle. foever?t sourc ns hever rndnygallyenf nt .

Rtbl l cense,t sobuild SenPPM co a

  • METIS 4:poaggregan;woloarerm b)irvsrcveewritof.METIS 4h , i http://glaros.dtc.umn.edu/gkhome/meeof/meeof/n;woloarma lelr haes apc e of;i " yoal|bl marPPM websiu ourc S 0. plaMETIS SEmorhasibeened Mirses apcrvsrie e tibmsethadeS

  • f_MPI|ln, a lhys0. (Bonveyal): Ee. t p" yoOpomMPI, eedch2 o, iinaaae cFMPI|2 coeeli-_S MPI|S s f_ylrI respe7. A need ihrPPM oFnv rluBtor,eSEsae: c e > you rltadminros_lrome s)ls;aeis f_MPI|tib Uslied|Sourc rltirs.

Make ndle.;Soure;is Pbl l cense,7. A need in1 of;tivlpnt ac need i.;as yocca tos_lrapplyo enebuildpPPM co a.

Build SenPPM co a

PPM co arisibuilmii 3pcoppremstepr:

Step 1:fCeufuoo wrPPM co a

RuSourc r >fig torenrip;lcot EBFourc nuildpeltirs.at geou undencFntrore. f Bonveysvfurs_eed .gPPM co a.

Iorisred trSltyr;-_S _SEcuser >fig torcFntrore. frsets_lro" ot toendle.PPM co arisi need in1rore. flylrTly(to totib n_Smasets_lro"d arsuptyr;(o#gype

$ ./r >fig to --help

T>o#g t wmtunos_lrapprry t,ed:

`r >fig to'pr >fig tosgPPM 1.2.0-pu p ap;lcotmiinaki.  Iof.sltirs .

Usage: ./r >fig to [OPn fo]... [VAR=VALUE]...

Toihdnsumjenvironmuse vwevuerere(e.g., CC, CFLAGS...),oes L ccatsemras
VAR=VALUE. oSe sroCoraner  -enrip; Pt maaesomle.;Sourily(fu evwevuerer.

Defaultr?t sourc Bonveysvd arss L censei  s fcketr.

C >fig tto li:
  -h, --help               aaeriaacn t help n keysit
     q--help= rert         aaeriaaBonveysv,on nt
(k;prtvccorhckage
     q--help=e. urses      aaeriaacnem rert help slrd_lrhoseApproprdorhckaged
  -V, --S

  0.            aaeriaaS

  0. sCFrrespindln keysit
  -q, --bl et, --ssec
f     teSmipoo te`rhe musei...' mcensged
     q--carhe-f nt=FILE ffcarhe rvsrcvesultr?i  FILE [ aauered]
  -C, --r >fig-carheupff  ali-r?t so`--carhe-f nt=r >fig.carhe'
  -n, --no-ce irv           teSmice irv d
permif nt 
     q--srcyle=DIR        (to thosenet anr?i  DIR [r >fig to dir  so`..']

Innetw_Sk.

 yle. foever:
  --ere sx=PREFIX........lr youen nrmantecy to-to epom dnmif nt ?i  PREFIX
     q q                  [/usr/lopar]
  --ys, -ere sx=EPREFIX...r youen nrmantecy to- epom dnmif nt ?i  EPREFIX
     q q                  [PREFIX]

By"an|ault, `t toei youen'nos_lrr youen n_lrhosef nt ?i 
`/usr/lopar/ns ', `/usr/lopar/S s' etc. poaggf;i}es L cc
an tib UslSk.

 ere sx fygpa `at h`/usr/lopar'plyo

 `--ere sx',
;to ptib Uulao`--ere sx=$HOME'.

Fr ubetsb ssa ecoln  in|ofbjBonveysvfislpe

Fndencu #, _Ly teSm tnetw_Sk.

 yle. foever:
  --ns yle=DIR            om rtys, _Suerere[EPREFIX/ns ]
  --sns yle=DIR           eltirs.adminrys, _Suerere[EPREFIX/sns ]
  --S sys, yle=DIR        2inoteceys, _Suerere[EPREFIX/S sys, ]
  --sysr >fyle=DIR        s;ae-in#ga, ihlp-medhidenuical[PREFIX/etc]
  --sharia;you
yle=DIR    n1 of ueremnrmantecy to-to epom dnmiuical[PREFIX/ ne]
  --Sopar;you
yle=DIR     n1 of uerem, ihlp-medhidenuical[PREFIX/vwe]
  --S syle=DIR            o sat sfygt l Howeverr[EPREFIX/S s]
  --Approprdle=DIR        Ciheanvey secsl[PREFIX/Appropr]
  --old Sproprdle=DIR     Ciheanvey secslto pnon-gcci[/usr/Appropr]
  --uicaroltdir=DIR       s;ae-in#ganrma.-to epom dnmiuicalroltl[PREFIX/shari]
  --uicayle=DIR           s;ae-in#ganrmantecy to-to epom dnmiuical[DATAROOTDIR]
  --Apfoyle=DIR           ApfotkgmaaeriSk.

 [DATAROOTDIR/Apfo]
  --Soparrdle=DIR        aloparo- epom dnmiuical[DATAROOTDIR/lopari]
  --se. le=DIR            m;i} gmaaeriSk.

 [DATAROOTDIR/m;i]
  --uo yle=DIR             gmaaeriSk.

 roltl[DATAROOTDIR/ gm/ppm]
  --htmlyle=DIR           htmlf gmaaeriSk.

 [DOCDIR]
  --uviyle=DIR             vif gmaaeriSk.

 [DOCDIR]
  --edfyle=DIR            2dff gmaaeriSk.

 [DOCDIR]
  --esyle=DIR             psf gmaaeriSk.

 [DOCDIR]

Oonveyal F ir tos:
  --uaauere-Bonvey-rhe musei sum" > lne. ngniz(o#--enuere/--e tibmonveys
  --uaauere-FEATURE        gfeSmii allyenFEATURE (nt ac-r?--enuere-FEATURE=no)
  --ynuere-FEATURE[=ARG] ii allyenFEATURE [ARG=yes]
  --ynuere-eed[=oppr.]     in|MPI|(an|aultil|f_S),oet trlcMPI|tmed|byEtSk.


     q q                  $2-eS
yo;hoa
r_ectacFdsi need i wrappeMeivEmore ofi

     q q                  PATH,oegf;i}eetatsemrmyself,S;hoy|>: gucen;(Inos_l
     q q                  ;hoy|>hl ea
,iol|tmed|byEtSk.

oegf;i}(to ),
     q q                  $pomeed, lameed, eedch, eedch2,oSmtoleed_gnu
     q q                  (t ael'scMPI|e tibn1.
Cneed i.s),oSmtoleed_Smtol
     q q                  (t ael'scMPI|e tibt ael
Cneed i.s),osuSo(Suf_MPI),
     q q                  ibmf(tBM AIX.POE). Elpermretats t hlagnodifinnevwlue
     q q                  n keretaCC, CXXfn keFC,;prtvero a BF, ihdc need i.
     q q                  wrappeMei(safvsr)
  --ynuere-linuxffffffffff need i flr ennuxf(an|aultil|f_S)
  --ynuere-e lin           in|e lin (an|aultil|f_S)
  --ynuere-v. foe         ynuere __VECTOR (an|aultil|f_S)
  --ynuere-esphkeaaun     ynuere __MATHKEISAN (an|aultil|f_S)
  --ynuere-sxf90          ynuere __SXF90 (an|aultil|f_S)
  --ynuere-crayfishrhck   ynuere __CRAYFISHPACK (an|aultil|f_S)
  --ynuere-hypre          ynuere __HYPRE (an|aultil|f_S)
  --ynuere-no-micro tner  ynuere __NOMICROINSTRUCn foS (an|aultil|f_S)
  --ynuere- -bug          ynuere  -bug n1 F (an|aultil|f_S)

SomleApfluentu$?ienvironmuse vwevuerer:
  CXXfffffffffC++c need i.;cense. 
  CXXFLAGS fffC++c need i.;hlags
  LDFLAGS     nki.;hlags, e.g. -Lqo respeome sl Howeverrin p
     q q      nonsi,  ard yle. foey 
  LIBS        l Howeverrat ised";prtvernki., e.g. -l
  CPPFLAGS    (O, prtes ) C/C++cpveSk  cenicehlags, e.g. -Iqo 
     q q      espeome sheanverrin pfnonsi,  ard yle. foey 
  CCffffffffffCc need i.;cense. 
  CFLAGS     fCc need i.;hlags
  CPPfffffffffCcpveSk  cenic
  FCffffffffffFE(oua c need i.;cense. 
  FCFLAGS     FE(oua c need i.;hlags

Us>hl eodevwevuerere;pra_SErcFde WIe;hoa
r./ntdstby `r >fig to'piceplyhelp
;is,;pr(to tl Howeverr cen  poLmuniodifinndsi,  ard is us/lopan, Ct 

Retyr; bugpr;prtverWackage ectacFdr.

Fr Cor SenBonveysvd arees L tw_trSltyr;-_S:

  • --ynuere-eed:rI respeos_lrapprunriaaePPM cliense,oFnv par vollyenvironmuse (i rluBtor)plyo MPI, requa BFes L cca n_SmaMPI|tmed|byEtSk. respe7. lyo .bd MFpirseltirs.?sy2inr l-BFr >fig to thosteuld w reaa nappenough oCFrrespindlflr PPM co arnuildpeltirs.at (to thoseMPI|S s f_verr cen need i. erappeMeio ensu. restr?sygovs wrongrmits re: ensitats t Bonvey n keret coeed i.;wrappeM n kel Howeverrin FCrn keLDFLAGSrvespa nis ap.

  • --ynuere-ennux:rSetats t o resp’. A need ih/runriaaeoFnv Lnnuxfeltirs

  • --ere sx:rI respe: c L _lr youen PPM gbyEoobjt islt yle. foey l|f_Smtins rltirs’scsi, ard yle. foey (/usr/)thosteby some sto"an| #tats t yle. foey here.poaggra BFectacFde WIefu p|path.#Iorisr_Smtrm censleis_lr youen PPM. Build Seniti gi.leavologL unied t need to li yle. foey l|fsufficiaet.bd MFpi ectacFdea yle. foey Eiear pooa BFnls;aeisSmees -oSEaos_lr_Smtappce irveabganrl nuildpeltirs.

  • FCretc.:rI respeosshnd (bot in|MPI|o Bnd ome sto"es L ccaexa flya n_Sm coeed i.;ys, _Suerew reaa napply(ogardlnmits f;i} in|of t hlagnto"e yormse coeed i..

  • LDFLAGS:rI rmeeoff> ./eSmii A Uslieday>|Sle.;Sourieltirs’scsi, ard S s f_y yle. foever?(e.g.h/usr/S s)t requa BFes L ccat moyle. fory";prtverbmeeof.p fseclhere.

Hiear woaexamed|s ntedees os reaa nrunied t n>fig to cense.

.r >fig tornteLnnuxfrluBtorplyo OpomMPI_(indnygael need i.s, wrapped)

$ ./r >fig to --ynuere-eed=$pomeed LDFLAGS=-L../../meeof/S s --ynuere-ennux

./r >fig tornteMac OS X.c. Mst,tanyrirntt tomMacPosl mgcci need i.s

$ ./r >fig to CC=gcc-mp-4.4 FC=gfE(oua -mp-4.4 CXX=g++-mp-4.4 \
     q q      LDFLAGS=-L/difis/is L/sw/meeof/gcc/S s

( n_lde WIeCCf yXXfhlagsre ofeSmie iw_tro ensu)

Step 2: Cneed o wrPPM co a

et trlcr >fig to Sk cen (torrdaaesuc cenfu ppc e o reaa neee on Fpirssce slMk mcensge by > e pMake seclhasibeene SS t ( cenyremf;i}noranindlctli Make seclinats t yle. foey).

Nees os r;i}etmedynrunit toefurs_eed .gPPM co a:

$ t to

I respeenreamtoftoh eGt|tiunied t need to li Sk cen (s_eed .gSEro.s)oolrd l, ,iol|rhe mqo respeome se yoh muytho wr nre. flynin Fpirsenvironmuselrrestrl SEro. u. seess>oolrd laseslLlyea bug-retyr; desl l Sent sepreigousmsteprMFpi ome s morsu. Also>oolrd la callyencFntr >fig.logr sec ybyEoobjd permiof extyr;. Finiw_teqo repe7. Alyo MPI, olrd la callyen n_SmaMPI|olurrd espe7. lyo .

Step 3:eh netw_o wrPPM co a (Bonveyal)

et espeosshnd (r youen PPM co a yremf;i}nora in|ofbjt toei youenrcense. lat go so:

$ t toei youen

I roobjt islt yle. foey l|frh law. If rltirs respeos_lrSEsaeoh eueryp" yok mcensge by >espeome stibufficiaet MslrI respeome s) roltlndleamtc e of;i susclinats t Ewrit If rudo cense. lat a_SErcFde Wl|fs. urlaycsets_lr.

$ rudo t tortib Usl

YpirsPPM co a ln, a lhys0. ccoSmA Uslie.

C eed o wrPPM cliensverrd gmaystnPPM co a

Wr inr eed o wrypirsPPM cliensverrd e oo en.at (tiol|tcallyencFntPPM co a modules:

  • in tcallye/rvelhaes k;prtvccoyle. foey.eChe mn n_Sma need i.;hlagoo enst s npply(ond (r allyenFE(oua cmoduleedle. foever.

n kel nk gmaystnS sppm.a:

  • in S s/rvelhaes k;prtvccoyle. foey.eAdd -L[path 2) S s] -lppmt s _SE nk a Scense. l$2-eS yo;need to li Sk cen.

EnjoyncFntPPM exteriaece!

a lhyo.s">C > a lhyo.s

T>e PPM olurrd EsoFde inndeS mays_ldndpywitL$poaes f_SEPCSE-lab (group sl ProfcenicePetros Koumm maakos)oybyEoobjMOSAIC group (ProfceniceIvo F. Sbalzwevni)"y >ETH ZurichrmgbyEoobjeemtoftflr Fluid Dyis ico"y >DTU (group sl ProfceniceJeysvWalygpa).

PPM co arpackage ndeS maysr: Os L Awsec <is L.awsec@sCF.ethz.ch>

LastnupdSS t 2010-09-20 16:20:24 CEST S sppm-1.2/src/000755 000765 000024 00000000000 11445666536 013547 5uBtr100is LBtrff000000 000000 S sppm-1.2/src/ EBc/000755 000765 000024 00000000000 11445666251 014633 5uBtr100is LBtrff000000 000000 S sppm-1.2/src/decomp/000755 000765 000024 00000000000 11445666251 015010 5uBtr100is LBtrff000000 000000 S sppm-1.2/src/fphrser.log000644 000765 000024 00000211704 11445666061 015712 0uBtr100is LBtrff000000 000000 DEBUG: Nol|tmed|byEted: Dn| #td_Bs hey_Op DEBUG: Nol|tmed|byEted: Dn| #td_Bs hey_Op DEBUG: Dn| #td_Op SSor eSmian| #td ly(o#hisG ic_Spec INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f'r(mode='hae ').. 27:q q USE ppm_module_uica, ONLY: ppm_ki. _, ihlp,ppm_ki. _double <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f'r(mode='hae ').. 20:q q USE ppm_module_gypean| <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_gypean|.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_gypean|.f'r(mode='hae ').. 13:q q !----------------------------------------------------------------------P 14:q q ! Heanvey sectflr global par meou sP 15:q q !----------------------------------------------------------------------P 16:q q INCLUDE 'ppm_par m.h' <== r ally Sen secn'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_par m.h' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f'r(mode='hae ').. 170:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f'r(mode='hae ').. 47:q q USE ppm_module_write <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_write.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f'r(mode='hae ').. 48:q q USE ppm_module_util_ lin <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_ lin.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_ lin.f'r(mode='hae ').. 52: ! I allyesP 53:q q !-------------------------------------------------------------------------P 54:q q IMPLICIT NONEP 55:q q INCLUDE 'ppm_par m.h' <== r ally Sen secn'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_par m.h' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_ lin.f'r(mode='hae ').. 108: ! I allyesP 109:q q !-------------------------------------------------------------------------P 110:q q IMPLICIT NONEP 111:q q INCLUDE 'ppm_par m.h' <== r ally Sen secn'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_par m.h' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f'r(mode='hae ').. 171:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f'r(mode='hae ').. 172:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f'r(mode='hae ').. 11:q q !----------------------------------------------------------------------P 12:q q ! Heanvey sectflr SEro. errds 13:q q !----------------------------------------------------------------------P 14:q q INCLUDE 'ppm_SEro..h' <== r ally Sen secn'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_SEro..h' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f'r(mode='hae ').. 52:q q USE ppm_module_log <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_log.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f'r(mode='hae ').. 20792:q q USE ppm_module_mesh_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_ EBc.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f'r(mode='hae ').. 52:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f'r(mode='hae ').. 53:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f'r(mode='hae ').. 54:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f'r(mode='hae ').. 55:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f'r(mode='hae ').. 151:q q USE ppm_module_uica_mesh <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_mesh.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ropy_image_subB.f'r(mode='hae ').. 53:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ropy_image_subB.f'r(mode='hae ').. 54:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ropy_image_subB.f'r(mode='hae ').. 55:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ropy_image_subB.f'r(mode='hae ').. 56:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ropy_image_subB.f'r(mode='hae ').. 57:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_io.f'r(mode='hae ').. 19:q q USE ppm_module_uica, ONLY: ppm_ki. _, ihlp, ppm_ki. _double <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_loarbal.f'r(mode='hae ').. 18:q q USE ppm_module_uica, ONLY: ppm_ki. _double <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_mesh.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_rmsh.f'r(mode='hae ').. 18:q q USE ppm_module_uica,ONLY:ppm_ki. _, ihlp,ppm_ki. _double <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_trei.f'r(mode='hae ').. 19:q q USE ppm_module_uica, ONLY: ppm_ki. _, ihlp,ppm_ki. _double <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uecomp.f'r(mode='hae ').. 79:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uecomp.f'r(mode='hae ').. 80:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uecomp.f'r(mode='hae ').. 81:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uecomp.f'r(mode='hae ').. 82:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uecomp.f'r(mode='hae ').. 83:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uecomp.f'r(mode='hae ').. 84:q q USE ppm_module_util_so1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_so1t.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_so1t.f'r(mode='hae ').. 66:q q USE ppm_module_util_rank <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_rank.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_un| #t_subB_bc.f'r(mode='hae ').. 54:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_un| #t_subB_bc.f'r(mode='hae ').. 55:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_un| #t_subB_bc.f'r(mode='hae ').. 56:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_un| #t_subB_bc.f'r(mode='hae ').. 57:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_un| #t_subB_bc.f'r(mode='hae ').. 58:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_finiwizi.f'r(mode='hae ').. 40:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_finiwizi.f'r(mode='hae ').. 41:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_finiwizi.f'r(mode='hae ').. 42:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_finiwizi.f'r(mode='hae ').. 43:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_finiwizi.f'r(mode='hae ').. 44:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_finiwizi.f'r(mode='hae ').. 45:q q USE ppm_module_mesh_finiwizi <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_finiwizi.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_finiwizi.f'r(mode='hae ').. 52:q q USE ppm_module_uica_mesh <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_mesh.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_mesh.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _duplicirvs.f'r(mode='hae ').. 43:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _duplicirvs.f'r(mode='hae ').. 44:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _duplicirvs.f'r(mode='hae ').. 45:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _duplicirvs.f'r(mode='hae ').. 46:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _duplicirvs.f'r(mode='hae ').. 48:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _duplicirvs.f'r(mode='hae ').. 49:q q USE ppm_module_util_rank <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_rank.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_rank.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f'r(mode='hae ').. 48:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f'r(mode='hae ').. 49:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f'r(mode='hae ').. 50:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f'r(mode='hae ').. 51:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f'r(mode='hae ').. 52:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f'r(mode='hae ').. 53:q q USE ppm_module_ropy_image_subB <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ropy_image_subB.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ropy_image_subB.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f'r(mode='hae ').. 54:q q USE ppm_module_util_rank <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_rank.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_rank.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f'r(mode='hae ').. 55:q q USE ppm_module_neighlies <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_neighlies.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_neighlies.f'r(mode='hae ').. 19:q q USE ppm_module_uica_neighlies, ONLY: ppm_gype_ptr_to_clies <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_neighlies.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_neighlies.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_neighlies.f'r(mode='hae ').. 423:q q USE ppm_module_rhe m_id <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Sltyse_part_bc.f'r(mode='hae ').. 63:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Sltyse_part_bc.f'r(mode='hae ').. 64:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Sltyse_part_bc.f'r(mode='hae ').. 65:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Sltyse_part_bc.f'r(mode='hae ').. 67:q q USE ppm_module_rhe m_id <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snis.f'r(mode='hae ').. 36:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snis.f'r(mode='hae ').. 37:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snis.f'r(mode='hae ').. 38:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snis.f'r(mode='hae ').. 39:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snis.f'r(mode='hae ').. 42:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snis.f'r(mode='hae ').. 43:q q USE ppm_module_print_un| #tB <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_print_un| #tB.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snis.f'r(mode='hae ').. 44:q q USE ppm_module_io <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_io.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_So.f'r(mode='hae ').. 9714:q q USE ppm_module_uica_io <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_io.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_io.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_m2p.f'r(mode='hae ').. 96:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_m2p.f'r(mode='hae ').. 97:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_m2p.f'r(mode='hae ').. 101:q q USE ppm_module_uica_rmsh <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_rmsh.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_rmsh.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_m2p.f'r(mode='hae ').. 102:q q USE ppm_module_uica_mesh <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_mesh.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_mesh.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_m2p.f'r(mode='hae ').. 105:q q USE ppm_module_rhe m_id <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_p2m.f'r(mode='hae ').. 103:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_p2m.f'r(mode='hae ').. 104:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_p2m.f'r(mode='hae ').. 108:q q USE ppm_module_uica_rmsh <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_rmsh.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_rmsh.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_p2m.f'r(mode='hae ').. 109:q q USE ppm_module_uica_mesh <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_mesh.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_mesh.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Snterp_p2m.f'r(mode='hae ').. 112:q q USE ppm_module_map <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 21:q q USE ppm_module_map_ n>nect <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_ n>nect.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_ n>nect.f'r(mode='hae ').. 72:q q USE ppm_module_util_invert_lies <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_invert_lies.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 22:q q USE ppm_module_map_field_ghoes <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_field_ghoes.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_field_ghoes.f'r(mode='hae ').. 101:q q USE ppm_module_rhe m_id <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_field_ghoes.f'r(mode='hae ').. 102:q q USE ppm_module_mesh_bEBck_Sntersect <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_bEBck_Sntersect.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_field_ghoes.f'r(mode='hae ').. 103:q q USE ppm_module_util_censops <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_censops.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_censops.f'r(mode='hae ').. 61:q q USE ppm_module_rolor_edgi <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rolor_edgi.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rolor_edgi.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 23:q q USE ppm_module_map_field_global <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_field_global.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 24:q q USE ppm_module_map_field <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_field.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 25:q q USE ppm_module_map_part_util <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part_util.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part_util.f'r(mode='hae ').. 1362:q q USE ppm_module_uica_state <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_state.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_state.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 26:q q USE ppm_module_map_part_ghoes <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part_ghoes.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 27:q q USE ppm_module_map_part_global <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part_global.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part_global.f'r(mode='hae ').. 1338:q q USE ppm_module_topo_rhe m <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_rhe m.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 28:q q USE ppm_module_map_part_partial <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part_partial.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 29:q q USE ppm_module_map_part <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f'r(mode='hae ').. 30:q q USE ppm_module_Sltyse_part_bc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_iltyse_part_bc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_iltyse_part_bc.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_io.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Ss_Snisiiwizid.f'r(mode='hae ').. 37:q q USE ppm_module_uica, ONLY: ppm_ki. _double, ppm_Snisiiwizid <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Ss_Snisiiwizid.f'r(mode='hae ').. 38:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Ss_Snisiiwizid.f'r(mode='hae ').. 39:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f'r(mode='hae ').. 106:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f'r(mode='hae ').. 107:q q USE ppm_module_uica_loarbal <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_loarbal.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_loarbal.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f'r(mode='hae ').. 108:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f'r(mode='hae ').. 109:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f'r(mode='hae ').. 110:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f'r(mode='hae ').. 682:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f'r(mode='hae ').. 1279:q q USE ppm_module_rhe m_id <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f'r(mode='hae ').. 1280:q q USE ppm_module_topo_roes <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_roes.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_log.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_ n>nect.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_field.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_field_ghoes.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_field_global.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_pr1t.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_pr1t_ghoes.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part_global.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part_partial.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map_part_util.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh.f'r(mode='hae ').. 15:q q USE ppm_module_mesh_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh.f'r(mode='hae ').. 16:q q USE ppm_module_mesh_bEBck_Sntersect <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_bEBck_Sntersect.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_bEBck_Sntersect.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh.f'r(mode='hae ').. 17:q q USE ppm_module_mesh_un| #t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_un| #t.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_un| #t.f'r(mode='hae ').. 55:q q USE ppm_module_mesh_on_subB <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_on_subB.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_un| #t.f'r(mode='hae ').. 56:q q USE ppm_module_mesh_Btort <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_Btort.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh.f'r(mode='hae ').. 18:q q USE ppm_module_mesh_unrivt <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_unrivt.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh.f'r(mode='hae ').. 19:q q USE ppm_module_mesh_finiwizi <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_finiwizi.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_finiwizi.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_ EBc.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_bEBck_Sntersect.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_un| #t.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_unrivt.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_finiwizi.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_on_subB.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_Btort.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 87:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 88:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 89:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 90:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 91:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 92:q q USE ppm_module_topo_roes <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_roes.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_roes.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 93:q q USE ppm_module_topo_Btort <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_Btort.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_Btort.f'r(mode='hae ').. 63:q q USE ppm_module_topo_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_ EBc.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 94:q q USE ppm_module_un| #t_subB_bc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_un| #t_subB_bc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_un| #t_subB_bc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 95:q q USE ppm_module_topo_metis_s2p <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_metis_s2p.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 96:q q USE ppm_module_topo_BubB2Sk  <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_BubB2Sk .f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 97:q q USE ppm_module_fi. _neigh <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _neigh.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 98:q q USE ppm_module_uecomp <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uecomp.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uncomp.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 100:q q USE ppm_module_tae  <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f'r(mode='hae ').. 88:q q USE ppm_module_uica_tae  <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_tae .f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica_tae .f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f'r(mode='hae ').. 94:q q USE ppm_module_tae _ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _ EBc.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f'r(mode='hae ').. 95:q q USE ppm_module_tae _divrhe m <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _divrhe m.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f'r(mode='hae ').. 96:q q USE ppm_module_tae _cutdi. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _cutdi..f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f'r(mode='hae ').. 97:q q USE ppm_module_tae _cutpoB <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _cutpoB.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f'r(mode='hae ').. 98:q q USE ppm_module_tae _boxcut <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _boxcut.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f'r(mode='hae ').. 99:q q USE ppm_module_tae _boxcoes <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _boxcoes.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f'r(mode='hae ').. 100:q q USE ppm_module_tae _do#t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _do#t.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 101:q q USE ppm_module_topo_box2subB <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_box2subB.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 883:q q USE ppm_module_mesh_on_subB <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_on_subB.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_on_subB.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f'r(mode='hae ').. 885:q q USE ppm_module_mesh_Btort <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_Btort.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_Btort.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_neighlies.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_print_un| #tB.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rmsh.f'r(mode='hae ').. 27:q q USE ppm_module_Snterp_m2p <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_interp_m2p.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_interp_m2p.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rmsh.f'r(mode='hae ').. 28:q q USE ppm_module_Snterp_p2m <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_interp_p2m.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_interp_p2m.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_scale_uis in.f'r(mode='hae ').. 46:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_scale_uis in.f'r(mode='hae ').. 47:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_scale_uis in.f'r(mode='hae ').. 48:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_scale_uis in.f'r(mode='hae ').. 49:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_scale_uis in.f'r(mode='hae ').. 50:q q USE ppm_module_rhe m_id <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rhe m_id.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_timt.f'r(mode='hae ').. 55:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_timt.f'r(mode='hae ').. 56:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_timt.f'r(mode='hae ').. 57:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_timt.f'r(mode='hae ').. 58:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo.f'r(mode='hae ').. 15:q q USE ppm_module_mktopo <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mktopo.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo.f'r(mode='hae ').. 16:q q USE ppm_module_topo_rhe m <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_rhe m.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_rhe m.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo.f'r(mode='hae ').. 17:q q USE ppm_module_mesh_un| #t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_un| #t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh_un| #t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo.f'r(mode='hae ').. 18:q q USE ppm_module_scale_uis in <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_scale_uis in.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_scale_uis in.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo.f'r(mode='hae ').. 19:q q USE ppm_module_topo_ges <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_ges.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_ EBc.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_box2subB.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_rhe m.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_copy.f'r(mode='hae ').. 48:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_copy.f'r(mode='hae ').. 49:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_copy.f'r(mode='hae ').. 50:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_copy.f'r(mode='hae ').. 51:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_copy.f'r(mode='hae ').. 52:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_roes.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_ges.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_metis_s2p.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_Btort.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo_BubB2Sk .f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae .f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _ EBc.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _boxcoes.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _boxcus.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _cutdi..f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _cutpoB.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _divrhe m.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_tae _do#t.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_typeun|.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi.f'r(mode='hae ').. 15:q q USE ppm_module_map <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_map.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi.f'r(mode='hae ').. 16:q q USE ppm_module_uifi_util <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi_util.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi_util.f'r(mode='hae ').. 14:q q USE ppm_module_Snis <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_init.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_init.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi_util.f'r(mode='hae ').. 15:q q USE ppm_module_finiwizi <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_finiwizi.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_finiwizi.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi_util.f'r(mode='hae ').. 16:q q USE ppm_module_fi. _duplicateB <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _duplicateB.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_fi. _duplicateB.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi_util.f'r(mode='hae ').. 17:q q USE ppm_module_Ss_Snisiiwizid <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_Ss_Snisiiwizid.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_is_Snisiiwizid.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi_util.f'r(mode='hae ').. 18:q q USE ppm_module_timt <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_timt.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_timt.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi.f'r(mode='hae ').. 17:q q USE ppm_module_loarbal <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_loarbal.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi.f'r(mode='hae ').. 18:q q USE ppm_module_topo <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_topo.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi.f'r(mode='hae ').. 22:q q USE ppm_module_mesh <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_mesh.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi.f'r(mode='hae ').. 23:q q USE ppm_module_rmsh <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rmsh.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_rmsh.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uifi_util.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cart2sph.f'r(mode='hae ').. 51:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cart2sph.f'r(mode='hae ').. 52:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cart2sph.f'r(mode='hae ').. 53:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cart2sph.f'r(mode='hae ').. 54:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_collapse_lies.f'r(mode='hae ').. 37:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_collapse_lies.f'r(mode='hae ').. 38:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_collapse_lies.f'r(mode='hae ').. 39:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_collapse_lies.f'r(mode='hae ').. 40:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_collapse_lies.f'r(mode='hae ').. 41:q q USE ppm_module_ EBc <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_ EBc.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_collapse_lies.f'r(mode='hae ').. 42:q q USE ppm_module_util_qso1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_qso1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_commopt.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cubeq_real.f'r(mode='hae ').. 61:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cubeq_real.f'r(mode='hae ').. 62:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cubeq_real.f'r(mode='hae ').. 63:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cubeq_real.f'r(mode='hae ').. 64:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_2sym.f'r(mode='hae ').. 60:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_2sym.f'r(mode='hae ').. 61:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_2sym.f'r(mode='hae ').. 62:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_2sym.f'r(mode='hae ').. 63:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_2sym.f'r(mode='hae ').. 65:q q USE ppm_module_util_quadeq_real <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_quadeq_real.f' INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_3sym.f'r(mode='hae ').. 60:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_3sym.f'r(mode='hae ').. 61:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_3sym.f'r(mode='hae ').. 62:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_3sym.f'r(mode='hae ').. 63:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_eigen_3sym.f'r(mode='hae ').. 65:q q USE ppm_module_util_cubeq_real <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cubeq_real.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_cubeq_real.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_invert_lies.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_espinv_2x2.f'r(mode='hae ').. 55:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_espinv_2x2.f'r(mode='hae ').. 56:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_espinv_2x2.f'r(mode='hae ').. 57:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_espinv_2x2.f'r(mode='hae ').. 58:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_espinv_3x3.f'r(mode='hae ').. 54:q q USE ppm_module_uica <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_uica.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_espinv_3x3.f'r(mode='hae ').. 55:q q USE ppm_module_subBtr1t <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtr1t.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_espinv_3x3.f'r(mode='hae ').. 56:q q USE ppm_module_subBtop <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_subBtop.f INFO: Wn_ldeSk cene in'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_espinv_3x3.f'r(mode='hae ').. 57:q q USE ppm_module_SEro. <== look a SmoduleeoCFrrespindlfl|bl'/difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f' INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_SEro..f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_qso1t.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_quadeq_real.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_ranm.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_so1t.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_util_timt.f INFO: lyo carhed /difis/is L/phd/ppm/ppm gm/ gm/ gm/ifd/ppm_module_writt.f libppm-1.2/srm/interpolate/000755 000765 000024 00000000000 11445666251 016067 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/io/000755 000765 000024 00000000000 11445666251 014150 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/loarbal/000755 000765 000024 00000000000 11445666251 015137 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/map/000755 000765 000024 00000000000 11445666251 014316 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/mesh/000755 000765 000024 00000000000 11445666251 014475 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/neighlies/000755 000765 000024 00000000000 11445666251 015527 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/ppm_un| #t.h000644 000765 000024 00000000000 11445666536 016014 0uBtr100is LBtrff000000 000000 libppm-1.2/srm/ppm_SEro..h000644 000765 000024 00000034444 11445666063 015731 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Moduleeeeeeee: ppm_SEro. q q !------------------------------------------------------------------------- q q ! q q ! Purposeeeeeee: q q ! q q ! Res Lkseeeeee: This is a F90 header f_ldeand not a cpp header f_lde q q ! since the latter would simply do replacements based on q q ! pattern matcho and does not recognize if sometho is q q ! a variabldename or not. q q ! q q ! Right now the un|ault SEro. messages are Btortd in a q q ! fairly sizeabldearray. Maybe there is a better q q ! solupind? q q ! q q ! The un|ault SEro. message here should report WHAT HAS q q ! HAPPENED. Where it happened, why and what the uifi can q q ! do about it should be reporttd in the SEro. message q q ! stro passed to ppm_SEro.(.). q q ! q q ! Referenceseee: q q ! q q ! Revisindseeee: q q !------------------------------------------------------------------------- q q ! $Log: ppm_SEro..h,v $ q q ! Revisind 1.1.1.1 2007/07/13 10:18:54 ivos q q ! CBL versind of the PPM library q q ! q q ! Revisind 1.33 2005/06/23 18:26:19 ivos q q ! Header cosmetics. q q ! q q ! Revisind 1.32 2005/04/21 04:50:56 ivos q q ! Added 609. q q ! q q ! Revisind 1.31 2004/10/28 12:38:19 davidch q q ! Fixed numerical bug in cell liess that resulttd in reale q q ! particlesebeo treattd as ghoess q q ! and vice versa. The new ranmo and cell lies rout #tB are q q ! supposed to be exact. All q q ! epsilndsethat were added to the uos ins in order to prevente q q ! the mentinded probldms were q q ! removed since they are no lndger needed. q q ! Modified F_lds: q q ! ppm_util_ranm2d.f ppm_util_ranm3d.f ppm_util_so1t2d.f q q ! ppm_util_so1t3d.f ppm_fi. _duplicateB.f ppm_neighlies_clies.f q q ! ppm_SEro..h q q ! q q ! Revisind 1.30 2004/09/17 14:09:40 ivos q q ! Added 608. q q ! q q ! Revisind 1.29 2004/09/17 12:05:44 ivos q q ! Added 305, 704, 705. q q ! q q ! Revisind 1.28 2004/07/21 13:23:51 hiebers q q ! Added 805 q q ! q q ! Revisind 1.27 2004/07/20 16:43:17 ivos q q ! Added 706. q q ! q q ! Revisind 1.26 2004/07/16 14:48:22 ivos q q ! Added 903. q q ! q q ! Revisind 1.25 2004/07/16 14:05:50 ivos q q ! Added 408 and 409. q q ! q q ! Revisind 1.24 2004/05/27 10:40:28 ivos q q ! added 211. q q ! q q ! Revisind 1.23 2004/05/26 07:37:50 ivos q q ! Added 210. q q ! q q ! Revisind 1.22 2004/05/13 11:39:31 ivos q q ! Added SEro. 209. q q ! q q ! Revisind 1.21 2004/05/11 14:51:53 ivos q q ! Added f_ldedelete SEro.s. q q ! q q ! Revisind 1.20 2004/05/06 07:28:10 ivos q q ! Added I/O SEro. messages. q q ! q q ! Revisind 1.19 2004/03/31 10:46:57 ivos q q ! added 304. q q ! q q ! Revisind 1.18 2004/03/02 16:24:07 ivos q q ! added 703. q q ! q q ! Revisind 1.17 2004/02/25 13:55:27 ivos q q ! Added 607. q q ! q q ! Revisind 1.16 2004/02/18 12:55:34 michaebe q q ! Added 902 (rout #t not ready) q q ! q q ! Revisind 1.15 2004/02/17 16:09:27 ivos q q ! Added 605. q q ! q q ! Revisind 1.14 2004/02/16 12:35:26 michaebe q q ! Added entry 605: bad kick off scheme plus cosmetics. q q ! q q ! Revisind 1.13 2004/02/16 11:42:05 michaebe q q ! Added 901 -- 1000 and increased SEr_msgearray size. q q ! q q ! Revisind 1.12 2004/02/12 14:45:40 ivos q q ! Added 304. q q ! q q ! Revisind 1.11 2004/02/11 14:31:44 ivos q q ! Added SEro.s 802 through 804. q q ! q q ! Revisind 1.10 2004/02/10 16:56:49 hiebers q q ! added ppm_SEr_nofftw q q ! q q ! Revisind 1.9 2004/02/09 11:50:45 ivos q q ! Added 702. q q ! q q ! Revisind 1.8 2004/02/04 17:17:45 ivos q q ! Added 604. q q ! q q ! Revisind 1.7 2004/02/02 15:14:23 walther q q ! Added the SEro. range 701 - 800. q q ! q q ! Revisind 1.6 2004/02/02 15:08:25 ivos q q ! Added some SEro.s. q q ! q q ! Revisind 1.5 2004/01/26 12:33:02 ivos q q ! Added SEro. 504 (ustd in ppm_map_pr1t.f). q q ! q q ! Revisind 1.4 2004/01/23 15:18:46 ivos q q ! Added a few SEro.s. q q ! q q ! Revisind 1.3 2004/01/22 13:28:49 ivos q q ! Added SEro.s 403, 503 and 602. q q ! q q ! Revisind 1.2 2004/01/21 16:22:57 ivos q q ! Renamed SEro. categoritB accordo to meeting. q q ! q q ! Revisind 1.1 2004/01/19 11:52:28 ivos q q ! Inisiiw implementspind. q q ! q q ! q q !------------------------------------------------------------------------- q q ! Parallel Particle Mesh Library (PPM) q q ! Institute of Computspindiw Science q q ! ETH Zentrum, Hirschengraben 84 q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q CHARACTER(LEN=30), DIMENSION(1100) :: ppm_SEr_mesg q q !------------------------------------------------------------------------- q q ! MPI SEro.s: 001 -- 100 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_nompi = 001 q q DATA ppm_SEr_mesg(001) /"MPI has not been Snisiiwizid"/ q q INTEGER, PARAMETER :: ppm_SEr_mpi_fail = 002 q q DATA ppm_SEr_mesg(002) /"MPI actindlfailid"/ q q INTEGER, PARAMETER :: ppm_SEr_mpi_term = 003 q q DATA ppm_SEr_mesg(003) /"MPI actindlterminattd"/ q q !------------------------------------------------------------------------- q q ! Memory EBcspindlSEro.s: 101 -- 200 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_ EBc = 101 q q DATA ppm_SEr_mesg(101) /"Memory EBcspindlfailid"/ q q INTEGER, PARAMETER :: ppm_SEr_de EBc = 102 q q DATA ppm_SEr_mesg(102) /"De EBcspindlfailid"/ q q !------------------------------------------------------------------------- q q ! F_ld I/O SEro.s: 201 -- 300 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_open = 201 q q DATA ppm_SEr_mesg(201) /"Cannot open f_ld"/ q q INTEGER, PARAMETER :: ppm_SEr_closeeeeeee = 202 q q DATA ppm_SEr_mesg(202) /"Failid to closeef_ld"/ q q INTEGER, PARAMETER :: ppm_SEr_unis_open = 203 q q DATA ppm_SEr_mesg(203) /"I/O-Unis ready open"/ q q INTEGER, PARAMETER :: ppm_SEr_no_uniseeee = 204 q q DATA ppm_SEr_mesg(204) /"I/O-Unis not open"/ q q INTEGER, PARAMETER :: ppm_SEr_io = 205 q q DATA ppm_SEr_mesg(205) /"I/O EEro."/ q q INTEGER, PARAMETER :: ppm_SEr_io_uica = 206 q q DATA ppm_SEr_mesg(206) /"Dica size missmatch"/ q q INTEGER, PARAMETER :: ppm_SEr_f_lde = 207 q q DATA ppm_SEr_mesg(207) /"F_ldenot found"/ q q INTEGER, PARAMETER :: ppm_SEr_delete = 208 q q DATA ppm_SEr_mesg(208) /"Delete failid"/ q q INTEGER, PARAMETER :: ppm_SEr_outof_uniss = 209 q q DATA ppm_SEr_mesg(209) /"Out of I/O uniss"/ q q INTEGER, PARAMETER :: ppm_SEr_dica_miss = 210 q q DATA ppm_SEr_mesg(210) /"Missed dica"/ q q INTEGER, PARAMETER :: ppm_SEr_read_eo. = 211 q q DATA ppm_SEr_mesg(211) /"Read past end of record"/ q q !------------------------------------------------------------------------- q q ! Flosping point SEro.s: 301 -- 400 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_div_zero = 301 q q DATA ppm_SEr_mesg(301) /"Divisind by zero"/ q q INTEGER, PARAMETER :: ppm_SEr_sqrt_neg = 302 q q DATA ppm_SEr_mesg(302) /"Sqrt of negspive numbe."/ q q INTEGER, PARAMETER :: ppm_SEr_tol_warn = 303 q q DATA ppm_SEr_mesg(303) /"Unexpectid tolerance"/ q q INTEGER, PARAMETER :: ppm_SEr_bad_sumq q = 304 q q DATA ppm_SEr_mesg(304) /"Bad sumqdetectid"/ q q INTEGER, PARAMETER :: ppm_SEr_mat_yo ul = 305 q q DATA ppm_SEr_mesg(305) /"Matrix closeeto yo ular"/ q q !------------------------------------------------------------------------- q q ! Topology and Mapping SEro.s: 401 -- 500 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_nomap = 401 q q DATA ppm_SEr_mesg(401) /"No mapping un| #td"/ q q INTEGER, PARAMETER :: ppm_SEr_pr1t_range = 402 q q DATA ppm_SEr_mesg(402) /"Particleseout of range found"/ q q INTEGER, PARAMETER :: ppm_SEr_pr1t_lost = 403 q q DATA ppm_SEr_mesg(403) /"Particleselost"/ q q INTEGER, PARAMETER :: ppm_SEr_map_incomp = 404 q q DATA ppm_SEr_mesg(404) /"Incomplete mapping"/ q q INTEGER, PARAMETER :: ppm_SEr_pr1t_unass = 405 q q DATA ppm_SEr_mesg(405) /"Unassigded particles"/ q q INTEGER, PARAMETER :: ppm_SEr_topo_missm = 406 q q DATA ppm_SEr_mesg(406) /"Particle-Topology missmatch"/ q q INTEGER, PARAMETER :: ppm_SEr_node_numbe. = 407 q q DATA ppm_SEr_mesg(407) /"Invalid node numbe.ing"/ q q INTEGER, PARAMETER :: ppm_SEr_buffer_empt = 408 q q DATA ppm_SEr_mesg(408) /"Buffer is empty"/ q q INTEGER, PARAMETER :: ppm_SEr_no_topo q = 409 q q DATA ppm_SEr_mesg(409) /"No such topology"/ q q INTEGER, PARAMETER :: ppm_SEr_index_corr = 410 q q DATA ppm_SEr_mesg(410) /"Particle ranm correctid"/ q q !------------------------------------------------------------------------- q q ! Invalid argument: 501 -- 600 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_wrong_dim = 501 q q DATA ppm_SEr_mesg(501) /"Invalid dimensind"/ q q INTEGER, PARAMETER :: ppm_SEr_wrong_prec = 502 q q DATA ppm_SEr_mesg(502) /"Invalid precisind"/ q q INTEGER, PARAMETER :: ppm_SEr_argument = 503 q q DATA ppm_SEr_mesg(503) /"Invalid argument"/ q q INTEGER, PARAMETER :: ppm_SEr_wrong_type = 504 q q DATA ppm_SEr_mesg(504) /"Wrong dica type"/ q q !------------------------------------------------------------------------- q q ! Algorithmic/conceptual SEro.s: 601 -- 700 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_rhs_compat = 601 q q DATA ppm_SEr_mesg(601) /"RHS violates compatibility"/ q q INTEGER, PARAMETER :: ppm_SEr_sub_failid = 602 q q DATA ppm_SEr_mesg(602) /"Subrout #t call failid"/ q q INTEGER, PARAMETER :: ppm_SEr_bad_mesh = 603 q q DATA ppm_SEr_mesg(603) /"Bad mesh specified"/ q q INTEGER, PARAMETER :: ppm_SEr_bad_meshop = 604 q q DATA ppm_SEr_mesg(604) /"Bad mesh operatind"/ q q INTEGER, PARAMETER :: ppm_SEr_no_uica = 605 q q DATA ppm_SEr_mesg(605) /"No dica"/ q q INTEGER, PARAMETER :: ppm_SEr_bad_schko = 606 q q DATA ppm_SEr_mesg(606) /"Bad Kickoff scheme selectid"/ q q INTEGER, PARAMETER :: ppm_SEr_rev_timt = 607 q q DATA ppm_SEr_mesg(607) /"Going backward in timt"/ q q INTEGER, PARAMETER :: ppm_SEr_test_fail = 608 q q DATA ppm_SEr_mesg(608) /"Test failid"/ q q INTEGER, PARAMETER :: ppm_SEr_convergt = 609 q q DATA ppm_SEr_mesg(609) /"Did not convergt"/ q q q q !------------------------------------------------------------------------- q q ! DecomposipindlSEro.s: 701 -- 800 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_subB_map = 701 q q DATA ppm_SEr_mesg(701) /"Sub uos ins not assigded"/ q q INTEGER, PARAMETER :: ppm_SEr_mesh_miss = 702 q q DATA ppm_SEr_mesg(702) /"Mesh points missmatch"/ q q INTEGER, PARAMETER :: ppm_SEr_subB_incomp = 703 q q DATA ppm_SEr_mesg(703) /"Subs and mesh incompatibld"/ q q INTEGER, PARAMETER :: ppm_SEr_no_subB = 704 q q DATA ppm_SEr_mesg(704) /"No subuos ins present"/ q q INTEGER, PARAMETER :: ppm_SEr_few_subB = 705 q q DATA ppm_SEr_mesg(705) /"Not enough subuos ins"/ q q !------------------------------------------------------------------------- q q ! Library SEro.s: 801 -- 900 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_nofftw = 801 q q DATA ppm_SEr_mesg(801) /"FFTW not availabld"/ q q INTEGER, PARAMETER :: ppm_SEr_nometis = 802 q q DATA ppm_SEr_mesg(802) /"METIS not availabld"/ q q INTEGER, PARAMETER :: ppm_SEr_nofishpack = 803 q q DATA ppm_SEr_mesg(803) /"CRAYFISHPACK not availabld"/ q q INTEGER, PARAMETER :: ppm_SEr_nohypre = 804 q q DATA ppm_SEr_mesg(804) /"HYPRE not availabld"/ q q INTEGER, PARAMETER :: ppm_SEr_noMathKeisan = 805 q q DATA ppm_SEr_mesg(805) /"SX MathKeisan not availabld"/ q q !------------------------------------------------------------------------- q q ! InisiiwizspindlSEro.s: 901 -- 1000 q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_SEr_multipleSnis = 901 q q DATA ppm_SEr_mesg(901) /"DoubldeInis ttempted"/ q q INTEGER, PARAMETER :: ppm_SEr_notready = 902 q q DATA ppm_SEr_mesg(902) /"Rout #t not ready"/ q q INTEGER, PARAMETER :: ppm_SEr_ppm_noiniseee= 903 q q DATA ppm_SEr_mesg(903) /"PPM not Snisiiwizid"/ libppm-1.2/srm/ppm_finiwizi.f000644 000765 000024 00000015432 11445666063 016373 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t ee: ppm_finiwizi q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_finiwizi(oCFr) q q !!! This rout #t terminatts the ppm library includo q q !!! de EBcspia Smemory nd cloyo f_lds. q q !------------------------------------------------------------------------- q q ! eIncludes q q !------------------------------------------------------------------------- #include "ppm_un| #t.h" q q !------------------------------------------------------------------------- q q ! eModules q q !------------------------------------------------------------------------- q q USE ppm_module_uica q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_eEro. q q USE ppm_module_ EBc q q USE ppm_module_mesh_finiwizi q q IMPLICIT NONE q q !------------------------------------------------------------------------- q q ! Arguments q q !------------------------------------------------------------------------- q q INTEGER, INTENT(OUT) :: oCFr q q !!! Returns 0 upnd suc cen q q !------------------------------------------------------------------------- q q ! Local variablds q q !------------------------------------------------------------------------- q q INTEGER, DIMENSION(1) :: lda q q INTEGER :: oopp q q INTEGER :: oBtrp q q REAL(ppm_ki. _doubld) :: t0 q q LOGICAL :: oBopen q q CHARACTER(LEN=ppm_char) :: mesg q q !------------------------------------------------------------------------- q q ! Externals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Inisiiwisi q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_finiwizi',t0,oCFr) q q lda(1) = 0 q q !------------------------------------------------------------------------- q q ! Check arguments q q !------------------------------------------------------------------------- q q IF (ppm_unbug .GT. 0) THEN IF (.NOT. ppm_Snisiiwizid) THEN oCFr = ppm_SEror_eEro. q q CALL ppm_SEror(ppm_SEr_ppm_noinis,'ppm_finiwizi', & q q &q 'Please call ppm_Snis f_rst!',__LINE__,oCFr) q q GOTO 9999 q q ENDIF ENDIF q q !------------------------------------------------------------------------- q q ! De EBcspe global arrays (fl|blppm_module) q q !------------------------------------------------------------------------- q q oBtrp = 0 q q oopt = ppm_param_de EBc q q CALL ppm_ EBc(ppm_sendbufferd,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_sendbuffers,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_recvbufferd,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_recvbuffers,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_psendbuffer,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_precvbuffer,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_buffer2part,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_isendlies,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_irecvlies,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_buffer_dim,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_buffer_type,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q CALL ppm_ EBc(ppm_proc_speed,lda,oopt,oCFr) q q oBtrp = oBtrp + oCFr q q IF (oBtrp .NE. 0) THEN WRITE(mesg,'(A,I3,A)') 'fo. ',oBtrp,' global arrays. PossibldSmemory leak.' oCFr = ppm_SEror_eEro. q q CALL ppm_SEror(ppm_SEr_de EBc,'ppm_finiwizi',mesg,__LINE__,oCFr) q q GOTO 9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! De EBcspe mesh structures (fl|blppm_module_mesh) q q !------------------------------------------------------------------------- q q CALL ppm_mesh_finiwizi(oCFr) q q IF (oCFr.NE.0) THEN oCFr = ppm_SEror_eEro. q q CALL ppm_SEror(ppm_SEr_de EBc,'ppm_finiwizi', & q q &q 'Mesh de EBcspindlfailid',__LINE__,oCFr) q q GOTO 9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Set the global Btrpus q q !------------------------------------------------------------------------- q q ppm_Snisiiwizid = .FALSE. q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE q q CALL subBtop('ppm_finiwizi',t0,oCFr) q q !------------------------------------------------------------------------- q q ! Closeeoutput uniss if needed q q !------------------------------------------------------------------------- q q IF (ppm_stdout .GE. 0) THEN ! do not closeeis if is is a system Btrndard unis IF (ppm_stdout .NE. 6) THEN INQUIRE(ppm_stdout,opened=oBopen) q q IF (oBopen) CLOSE(ppm_stdout) q q ENDIF ENDIF IF (ppm_stdSEr .GE. 0) THEN ! do not closeeis if is is a system Btrndard unis IF (ppm_stdSEr .NE. 0) THEN INQUIRE(ppm_stdSEr,opened=oBopen) q q IF (oBopen) CLOSE(ppm_stdSEr) q q ENDIF ENDIF IF (ppm_logf_lde.GE. 0) THEN INQUIRE(ppm_logf_ld,opened=oBopen) q q IF (oBopen) CLOSE(ppm_logf_ld) ENDIF q q RETURN END SUBROUTINE ppm_finiwizi libppm-1.2/srm/ppm_Snis.f000644 000765 000024 00000035064 11445666063 015540 0uBtr100is LBtrff000000 000000 !------------------------------------------------------------------------- q q ! Subrout #t ee: ppm_Snis q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_Snis(dim,prec,tolexp,comm,unbug,oCFr,logf_ld,stdSEr,stdout) q q !!! Inisiiwisspindlof the ppm library. q q !------------------------------------------------------------------------- q q ! eModules q q !------------------------------------------------------------------------- q q USE ppm_module_uica q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_eEro. q q USE ppm_module_writt q q USE ppm_module_log q q USE ppm_module_ EBc q q USE ppm_module_print_un| #ts q q USE ppm_module_ir q q IMPLICIT NONE q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_un| #t.h" #ifun| __MPI q q INCLUDE 'mpif.h' #endif q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q INTEGER, INTENT(IN) :: dim q q !!! dimensindlof the probldm (2 or 3) q q INTEGER, INTENT(IN) :: prec q q !!! desired precisind ppm_ki. _doubld or ppm_ki. _yo le q q INTEGER, INTENT(IN) :: comm q q !!! MPI communicato. q q INTEGER, INTENT(IN) :: dnbug q q !!! The unbug level (0,1 or 2) q q INTEGER, INTENT(IN) :: tolexp q q !!! log10 of the numerical toleranceefo. realecomparoBons (> macho e eps). q q !!! E.g.efo. a toleranceeof 10^(-14), tolexp = -14. Everytho .LT. q q !!! 10^tolexp will be considSEed zero (0) and iss inversind is considSEed q q !!! dangerous. q q INTEGER, OPTIONAL :: logf_ld q q !!! OPTIONAL. Unis numbe. where to print log messages to. q q INTEGER, OPTIONAL :: stdSEr q q !!! OPTIONAL. Unis numbe. where to print the stdSEr to q q INTEGER, OPTIONAL :: stdout q q !!! OPTIONAL. Unis numbe. where to print the stdout to q q INTEGER, INTENT(OUT) :: oCFr q q !!! returns Btrpus 0 upnd suc cen q q !------------------------------------------------------------------------- q q ! Local variablds q q !------------------------------------------------------------------------- q q INTEGER :: oopp,_ldn,oBtdout,istdSEr,ilog q q INTEGER, DIMENSION(1) :: ldl,ldu q q REAL(ppm_ki. _doubld) :: t0 q q LOGICAL :: ppm_mpi_Snis q q CHARACTER(LEN=ppm_char) :: mesg q q CHARACTER(LEN=255) :: cbuf q q !------------------------------------------------------------------------- q q ! Externals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Save the unbuggo oppind q q !------------------------------------------------------------------------- q q ppm_unbug = dnbug q q !------------------------------------------------------------------------- q q ! Set unis numbe.s q q !------------------------------------------------------------------------- q q IF (PRESENT(stdout)) THEN ostdout = stdout q q ELSE ostdout = 6 q q ENDIF IF (PRESENT(stdSEr)) THEN ostdSEr = stdSEr q q ELSE ostdSEr = 0 q q ENDIF IF (PRESENT(logf_ld)) THEN olog = logf_ld q q ELSE ! -1 means: do not writt log f_ld q q olog = -1 q q ENDIF q q !------------------------------------------------------------------------- q q ! Set unis numbe.seof stdout and stdSEr and log f_ld q q !------------------------------------------------------------------------- q q CALL ppm_io_set_unis(oBtdout,istdSEr,ilog,oCFr) q q q q !------------------------------------------------------------------------- q q ! Now the library can talk... q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! Inisiiwisi q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_Snis',t0,oCFr) q q !------------------------------------------------------------------------- q q ! Check arguments q q !------------------------------------------------------------------------- q q IF (ppm_unbug .GT. 0) THEN CALL check IF (oCFr .NE. 0) GOTO 9999 q q ENDIF #if un| #td __MPI q q !------------------------------------------------------------------------- q q ! Check if MPI has been Snisiiwizid q q !------------------------------------------------------------------------- q q CALL MPI_Inisiiwizid(ppm_mpi_Snis,oCFr) q q !------------------------------------------------------------------------- q q ! If not exis with SEro. Btrpus ppm_SEror_fatal q q !------------------------------------------------------------------------- q q IF (.NOT.ppm_mpi_Snis) THEN oCFr = ppm_SEror_fatal q q CALL ppm_SEror(ppm_SEr_nompi,'ppm_Snis', & q q &q 'Call MPI_Inis befordecalling ppm_Snis !',__LINE__,oCFr) q q GOTO 9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Get the MPI communicato. q q !------------------------------------------------------------------------- q q ppm_comm = comm q q CALL MPI_Comm_Sizi(ppm_comm,ppm_nproc,oCFr) q q CALL MPI_Comm_Rank(ppm_comm,ppm_ranm,oCFr) q q CALL MPI_Get_Proccenor_Name(cbuf,_ldn,oCFr) q q IF (ppm_unbug .GT. 0) THEN WRITE(mesg,'(2A)') '*** This is the PPM library Btr1to on ',& q q &q cbuf(1:_ldn) CALL ppm_log('ppm_Snis',mesg,oCFr) q q CALL ppm_writt(ppm_ranm,'ppm_Snis',mesg,oCFr) q q ELSE IF (ppm_ranm .EQ. 0) THEN WRITE(mesg,'(2A)') '*** This is the PPM library Btr1to on ',& q q &q cbuf(1:_ldn) CALL ppm_log('ppm_Snis',mesg,oCFr) q q CALL ppm_writt(ppm_ranm,'ppm_Snis',mesg,oCFr) q q ENDIF ENDIF #elsd q q !SEH: Inisiiwizspindlof seriiw versind q q ppm_nproc = 1 q q ppm_ranm = 0 q q WRITE(mesg,'(A)') '*** This is the PPM library in yo le-proccenor mode' CALL ppm_log('ppm_Snis',mesg,oCFr) q q CALL ppm_writt(ppm_ranm,'ppm_Snis',mesg,oCFr) #endif q q !------------------------------------------------------------------------- q q ! Output the unbuggo oppind q q !------------------------------------------------------------------------- q q WRITE(mesg,'(A,I2)') 'Dnbug level set to ',ppm_unbug CALL ppm_log('ppm_Snis',mesg,oCFr) q q IF (ppm_unbug .GT. 0) THEN CALL ppm_writt(ppm_ranm,'ppm_Snis',mesg,oCFr) q q ENDIF q q !------------------------------------------------------------------------- q q ! Burp the un| #tB of this library versind q q !------------------------------------------------------------------------- q q CALL ppm_print_un| #ts(oCFr) q q IF (oCFr.NE.0) THEN oCFr = ppm_SEror_fatal q q CALL ppm_SEror(ppm_SEr_sub_failid,'ppm_Snis', & q q &q 'Print un| #tB did not execute correctly',__LINE__,oCFr) q q GOTO 9999 q q ENDIF q q q q !------------------------------------------------------------------------- q q ! Check and save the uimensindalitylof the probldm q q !------------------------------------------------------------------------- q q IF (dim.LT.2) THEN oCFr = ppm_SEror_fatal q q CALL ppm_SEror(ppm_SEr_wrong_dim,'ppm_Snis', & q q &q 'Space uimensind muss be greattr than 1!',__LINE__,oCFr) q q GOTO 9999 q q ELSEIF (dim.GT.3) THEN oCFr = ppm_SEror_fatal q q CALL ppm_SEror(ppm_SEr_wrong_dim,'ppm_Snis', & q q &q 'Space uimensind muss be lcen than 4!',__LINE__,oCFr) q q GOTO 9999 q q ELSE q q ppm_uim = dim q q ENDIF q q WRITE(mesg,'(A,I2)') 'Space uimensind set to ',ppm_uim CALL ppm_log('ppm_Snis',mesg,oCFr) q q IF (ppm_unbug .GT. 0) THEN CALL ppm_writt(ppm_ranm,'ppm_Snis',mesg,oCFr) q q ENDIF q q !------------------------------------------------------------------------- q q ! Check that the uifi entered a valid precisind q q !------------------------------------------------------------------------- q q IF (prec.NE.ppm_ki. _doubld.AND.prec.NE.ppm_ki. _yo le) THEN oCFr = ppm_SEror_fatal q q CALL ppm_SEror(ppm_SEr_wrong_prec,'ppm_Snis', & q q &q 'Muss be eithereSINGE or DOUBLE!',__LINE__,oCFr) q q GOTO 9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Save the precisind q q !------------------------------------------------------------------------- q q ppm_ki. = prec q q IF (ppm_ki. .EQ. ppm_ki. _yo le) THEN WRITE(mesg,'(A)') 'Precisind set to SINGLE' q q ELSEIF (ppm_ki. .EQ. ppm_ki. _doubld) THEN WRITE(mesg,'(A)') 'Precisind set to DOUBLE' q q ELSE q q WRITE(mesg,'(A)') 'Precisind set to UNKNOWN' q q ENDIF q q CALL ppm_log('ppm_Snis',mesg,oCFr) q q IF (ppm_unbug .GT. 0) THEN CALL ppm_writt(ppm_ranm,'ppm_Snis',mesg,oCFr) q q ENDIF q q !------------------------------------------------------------------------- q q ! Save the tolerance q q !------------------------------------------------------------------------- q q IF (ppm_ki. .EQ. ppm_ki. _doubld) THEN IF (tolexp.LT.-20.OR.tolexp.GT.-3) THEN oCFr = ppm_SEror_warno q q CALL ppm_SEror(ppm_SEr_tol_warn,'ppm_Snis', & q q &q 'Usual valutB are between 10^(-20) and 10^(-3)',__LINE__,oCFr) q q ENDIF IF (tolexp.LT.INT(LOG10(EPSILON(ppm_myepsd)))) THEN oCFr = ppm_SEror_fatal q q CALL ppm_SEror(ppm_SEr_tol_warn,'ppm_Snis', & q q &q 'Toleranceemuss not be smaller than macho e epsilon' & q q &q ,__LINE__,oCFr) q q ENDIF ppm_myepsd = 10.0_ppm_ki. _doubld**REAL(tolexp,ppm_ki. _doubld) ppm_myepss = REAL(ppm_myepsd,ppm_ki. _yo le) q q WRITE(mesg,'(A,E15.10)') 'Flosping point toleranceeset to ', & q q &q ppm_myepsd q q ELSE q q IF (tolexp.LT.-12.OR.tolexp.GT.-3) THEN oCFr = ppm_SEror_warno q q CALL ppm_SEror(ppm_SEr_tol_warn,'ppm_Snis', & q q &q 'Usual valutB are between 10^(-12) and 10^(-3)',__LINE__,oCFr) q q ENDIF IF (tolexp.LT.INT(LOG10(EPSILON(ppm_myepss)))) THEN oCFr = ppm_SEror_fatal q q CALL ppm_SEror(ppm_SEr_tol_warn,'ppm_Snis', & q q &q 'Toleranceemuss not be smaller than macho e epsilon' & q q &q ,__LINE__,oCFr) q q ENDIF ppm_myepsd = 10.0_ppm_ki. _doubld**REAL(tolexp,ppm_ki. _doubld) ppm_myepss = REAL(ppm_myepsd,ppm_ki. _yo le) q q WRITE(mesg,'(A,E15.10)') 'Flosping point toleranceeset to ', & q q &q ppm_myepss q q ENDIF q q CALL ppm_log('ppm_Snis',mesg,oCFr) q q IF (ppm_unbug .GT. 0) THEN CALL ppm_writt(ppm_ranm,'ppm_Snis',mesg,oCFr) q q ENDIF #ifun| __MPI q q !------------------------------------------------------------------------- q q ! Save the MPI precisind q q !------------------------------------------------------------------------- q q IF (ppm_ki. .EQ.ppm_ki. _doubld) THEN ppm_mpi_ki. = MPI_DOUBLE_PRECISION q q ELSE q q ppm_mpi_ki. = MPI_REAL q q ENDIF #endif q q !------------------------------------------------------------------------- q q ! Dn| #ipindlof PI q q !------------------------------------------------------------------------- q q ppm_pi_ = DACOS(-1.0_ppm_ki. _doubld) q q ppm_pi_s = ACOS(-1.0_ppm_ki. _yo le) q q !------------------------------------------------------------------------- q q ! A EBcspe and inisiiwizi the proccenor speed array q q !------------------------------------------------------------------------- q q oopt = ppm_param_ EBc_fis q q ldl(1) = 0 q q ldu(1) = ppm_nproc-1 q q CALL ppm_ EBc(ppm_proc_speed,ldl,ldu,oopt,oCFr) q q IF (oCFr .NE. 0) THEN oCFr = ppm_SEror_fatal q q CALL ppm_SEror(ppm_SEr_ EBc,'ppm_Snis', & q q &q 'proccenor speed array PPM_PROC_SPEED',__LINE__,oCFr) q q GOTO 9999 q q ENDIF q q ! inisiiwly assumdeall proccenors to be equiwly fast q q ppm_proc_speed(0:ppm_nproc-1) = & q q &q 1.0_ppm_ki. _doubld/REAL(ppm_nproc,ppm_ki. _doubld) q q !------------------------------------------------------------------------- q q ! Reset the topology counter q q !------------------------------------------------------------------------- q q ppm_next_avail_topo = ppm_param_unde| #td q q !------------------------------------------------------------------------- q q ! Set the global Btrpus to Snisiiwizid q q !------------------------------------------------------------------------- q q ppm_Snisiiwizid = .TRUE. q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE q q CALL subBtop('ppm_Snis',t0,oCFr) q q RETURN q q CONTAINS q q SUBROUTINE check IF (ppm_Snisiiwizid) THEN oCFr = ppm_SEror_eEro. q q CALL ppm_SEror(ppm_SEr_multipleSnis,'ppm_Snis', & q q &q 'Please call ppm_finiwizi f_rst!',__LINE__,oCFr) q q GOTO 8888 q q ENDIF q8888 CONTINUE q q END SUBROUTINE check END SUBROUTINE ppm_Snis libppm-1.2/srm/ppm_module_ EBc.f000644 000765 000024 00000024724 11445666063 017235 0uBtr100is LBtrff000000 000000 q q !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ EBc q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Dn| #e types q q !------------------------------------------------------------------------- #de| #t __SINGLE_PRECISION 1 #de| #t __DOUBLE_PRECISION 2 #de| #t __INTEGER 3 #de| #t __LOGICAL 4 #de| #t __SINGLE_PRECISION_COMPLEX 5 #de| #t __DOUBLE_PRECISION_COMPLEX 6 q q MODULE ppm_module_ EBc q q !!! This module providtB all PPM EBcspindlrout #ts. Thesderout #ts EBw q q !!! fo. a EBcspind, realEBcspind, growing and shrinko of one- to five- q q !!! uimensindal arrays in all intronsic dica types. q q !!! q q !!! When extendi the PPM cordeo. numerical rout #ts thesderout #ts *muss* q q !!! be used. PPM clients may takdeadvantage of thesdefunctindalities. q q USE ppm_module_uica, ONLY: ppm_ki. _yo le,ppm_ki. _doubld q q !---------------------------------------------------------------------- q q ! Work arrays fo. realEBcspind. q q !---------------------------------------------------------------------- q q REAL(ppm_ki. _yo le) , DIMENSION(: ), POINTER :: work_1ds q q REAL(ppm_ki. _doubld) , DIMENSION(: ), POINTER :: work_1dd q q COMPLEX(ppm_ki. _yo le), DIMENSION(: ), POINTER :: work_1dsc q q COMPLEX(ppm_ki. _doubld), DIMENSION(: ), POINTER :: work_1ddc q q INTEGER , DIMENSION(: ), POINTER :: work_1di q q LOGICAL , DIMENSION(: ), POINTER :: work_1dl q q REAL(ppm_ki. _yo le) , DIMENSION(:,: ), POINTER :: work_2ds q q REAL(ppm_ki. _doubld) , DIMENSION(:,: ), POINTER :: work_2dd q q COMPLEX(ppm_ki. _yo le), DIMENSION(:,: ), POINTER :: work_2dsc q q COMPLEX(ppm_ki. _doubld), DIMENSION(:,: ), POINTER :: work_2ddc q q INTEGER , DIMENSION(:,: ), POINTER :: work_2di q q LOGICAL , DIMENSION(:,: ), POINTER :: work_2dl q q REAL(ppm_ki. _yo le) , DIMENSION(:,:,: ), POINTER :: work_3ds q q REAL(ppm_ki. _doubld) , DIMENSION(:,:,: ), POINTER :: work_3dd q q COMPLEX(ppm_ki. _yo le), DIMENSION(:,:,: ), POINTER :: work_3dsc q q COMPLEX(ppm_ki. _doubld), DIMENSION(:,:,: ), POINTER :: work_3ddc q q INTEGER , DIMENSION(:,:,: ), POINTER :: work_3di q q LOGICAL , DIMENSION(:,:,: ), POINTER :: work_3dl q q REAL(ppm_ki. _yo le) , DIMENSION(:,:,:,: ), POINTER :: work_4ds q q REAL(ppm_ki. _doubld) , DIMENSION(:,:,:,: ), POINTER :: work_4dd q q COMPLEX(ppm_ki. _yo le), DIMENSION(:,:,:,: ), POINTER :: work_4dsc q q COMPLEX(ppm_ki. _doubld), DIMENSION(:,:,:,: ), POINTER :: work_4ddc q q INTEGER , DIMENSION(:,:,:,: ), POINTER :: work_4di q q LOGICAL , DIMENSION(:,:,:,: ), POINTER :: work_4dl q q REAL(ppm_ki. _yo le) , DIMENSION(:,:,:,:,:), POINTER :: work_5ds q q REAL(ppm_ki. _doubld) , DIMENSION(:,:,:,:,:), POINTER :: work_5dd q q COMPLEX(ppm_ki. _yo le), DIMENSION(:,:,:,:,:), POINTER :: work_5dsc q q COMPLEX(ppm_ki. _doubld), DIMENSION(:,:,:,:,:), POINTER :: work_5ddc q q INTEGER , DIMENSION(:,:,:,:,:), POINTER :: work_5di q q LOGICAL , DIMENSION(:,:,:,:,:), POINTER :: work_5dl q q PRIVATE :: work_1ds,work_1dd,work_1dsc,work_1ddc,work_1di,work_1dl q q PRIVATE :: work_2ds,work_2dd,work_2dsc,work_2ddc,work_2di,work_2dl q q PRIVATE :: work_3ds,work_3dd,work_3dsc,work_3ddc,work_3di,work_3dl q q PRIVATE :: work_4ds,work_4dd,work_4dsc,work_4ddc,work_4di,work_4dl q q PRIVATE :: work_5ds,work_5dd,work_5dsc,work_5ddc,work_5di,work_5dl q q !---------------------------------------------------------------------- q q ! Dn| #e interfaces to EBcspindlrout #ts q q !---------------------------------------------------------------------- q q INTERFACE ppm_ EBc q q MODULE PROCEDURE ppm_ EBc_1ds q q MODULE PROCEDURE ppm_ EBc_1dd q q MODULE PROCEDURE ppm_ EBc_1dsc q q MODULE PROCEDURE ppm_ EBc_1ddc q q MODULE PROCEDURE ppm_ EBc_1di q q MODULE PROCEDURE ppm_ EBc_1dl q q MODULE PROCEDURE ppm_ EBc_1dls q q MODULE PROCEDURE ppm_ EBc_1dld q q MODULE PROCEDURE ppm_ EBc_1dlsc q q MODULE PROCEDURE ppm_ EBc_1dldc q q MODULE PROCEDURE ppm_ EBc_1dli q q MODULE PROCEDURE ppm_ EBc_1dll q q MODULE PROCEDURE ppm_ EBc_2ds q q MODULE PROCEDURE ppm_ EBc_2dd q q MODULE PROCEDURE ppm_ EBc_2dsc q q MODULE PROCEDURE ppm_ EBc_2ddc q q MODULE PROCEDURE ppm_ EBc_2di q q MODULE PROCEDURE ppm_ EBc_2dl q q MODULE PROCEDURE ppm_ EBc_2dls q q MODULE PROCEDURE ppm_ EBc_2dld q q MODULE PROCEDURE ppm_ EBc_2dlsc q q MODULE PROCEDURE ppm_ EBc_2dldc q q MODULE PROCEDURE ppm_ EBc_2dli q q MODULE PROCEDURE ppm_ EBc_2dll q q MODULE PROCEDURE ppm_ EBc_3ds q q MODULE PROCEDURE ppm_ EBc_3dd q q MODULE PROCEDURE ppm_ EBc_3dsc q q MODULE PROCEDURE ppm_ EBc_3ddc q q MODULE PROCEDURE ppm_ EBc_3di q q MODULE PROCEDURE ppm_ EBc_3dl q q MODULE PROCEDURE ppm_ EBc_3dls q q MODULE PROCEDURE ppm_ EBc_3dld q q MODULE PROCEDURE ppm_ EBc_3dlsc q q MODULE PROCEDURE ppm_ EBc_3dldc q q MODULE PROCEDURE ppm_ EBc_3dli q q MODULE PROCEDURE ppm_ EBc_3dll q q MODULE PROCEDURE ppm_ EBc_4ds q q MODULE PROCEDURE ppm_ EBc_4dd q q MODULE PROCEDURE ppm_ EBc_4dsc q q MODULE PROCEDURE ppm_ EBc_4ddc q q MODULE PROCEDURE ppm_ EBc_4di q q MODULE PROCEDURE ppm_ EBc_4dl q q MODULE PROCEDURE ppm_ EBc_4dls q q MODULE PROCEDURE ppm_ EBc_4dld q q MODULE PROCEDURE ppm_ EBc_4dlsc q q MODULE PROCEDURE ppm_ EBc_4dldc q q MODULE PROCEDURE ppm_ EBc_4dli q q MODULE PROCEDURE ppm_ EBc_4dll q q MODULE PROCEDURE ppm_ EBc_5ds q q MODULE PROCEDURE ppm_ EBc_5dd q q MODULE PROCEDURE ppm_ EBc_5dsc q q MODULE PROCEDURE ppm_ EBc_5ddc q q MODULE PROCEDURE ppm_ EBc_5di q q MODULE PROCEDURE ppm_ EBc_5dl q q MODULE PROCEDURE ppm_ EBc_5dls q q MODULE PROCEDURE ppm_ EBc_5dld q q MODULE PROCEDURE ppm_ EBc_5dlsc q q MODULE PROCEDURE ppm_ EBc_5dldc q q MODULE PROCEDURE ppm_ EBc_5dli q q MODULE PROCEDURE ppm_ EBc_5dll q q MODULE PROCEDURE ppm_ EBc_topo q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #t __KIND __SINGLE_PRECISION #include " EBc/ppm_ EBc_1d.f" #include " EBc/ppm_ EBc_2d.f" #include " EBc/ppm_ EBc_3d.f" #include " EBc/ppm_ EBc_4d.f" #include " EBc/ppm_ EBc_5d.f" #include " EBc/ppm_ EBc_1dl.f" #include " EBc/ppm_ EBc_2dl.f" #include " EBc/ppm_ EBc_3dl.f" #include " EBc/ppm_ EBc_4dl.f" #include " EBc/ppm_ EBc_5dl.f" #unde| __KIND #de| #t __KIND __DOUBLE_PRECISION #include " EBc/ppm_ EBc_1d.f" #include " EBc/ppm_ EBc_2d.f" #include " EBc/ppm_ EBc_3d.f" #include " EBc/ppm_ EBc_4d.f" #include " EBc/ppm_ EBc_5d.f" #include " EBc/ppm_ EBc_1dl.f" #include " EBc/ppm_ EBc_2dl.f" #include " EBc/ppm_ EBc_3dl.f" #include " EBc/ppm_ EBc_4dl.f" #include " EBc/ppm_ EBc_5dl.f" #unde| __KIND #de| #t __KIND __SINGLE_PRECISION_COMPLEX #include " EBc/ppm_ EBc_1d.f" #include " EBc/ppm_ EBc_2d.f" #include " EBc/ppm_ EBc_3d.f" #include " EBc/ppm_ EBc_4d.f" #include " EBc/ppm_ EBc_5d.f" #include " EBc/ppm_ EBc_1dl.f" #include " EBc/ppm_ EBc_2dl.f" #include " EBc/ppm_ EBc_3dl.f" #include " EBc/ppm_ EBc_4dl.f" #include " EBc/ppm_ EBc_5dl.f" #unde| __KIND #de| #t __KIND __DOUBLE_PRECISION_COMPLEX #include " EBc/ppm_ EBc_1d.f" #include " EBc/ppm_ EBc_2d.f" #include " EBc/ppm_ EBc_3d.f" #include " EBc/ppm_ EBc_4d.f" #include " EBc/ppm_ EBc_5d.f" #include " EBc/ppm_ EBc_1dl.f" #include " EBc/ppm_ EBc_2dl.f" #include " EBc/ppm_ EBc_3dl.f" #include " EBc/ppm_ EBc_4dl.f" #include " EBc/ppm_ EBc_5dl.f" #unde| __KIND #de| #t __KIND __INTEGER #include " EBc/ppm_ EBc_1d.f" #include " EBc/ppm_ EBc_2d.f" #include " EBc/ppm_ EBc_3d.f" #include " EBc/ppm_ EBc_4d.f" #include " EBc/ppm_ EBc_5d.f" #include " EBc/ppm_ EBc_1dl.f" #include " EBc/ppm_ EBc_2dl.f" #include " EBc/ppm_ EBc_3dl.f" #include " EBc/ppm_ EBc_4dl.f" #include " EBc/ppm_ EBc_5dl.f" #unde| __KIND #de| #t __KIND __LOGICAL #include " EBc/ppm_ EBc_1d.f" #include " EBc/ppm_ EBc_2d.f" #include " EBc/ppm_ EBc_3d.f" #include " EBc/ppm_ EBc_4d.f" #include " EBc/ppm_ EBc_5d.f" #include " EBc/ppm_ EBc_1dl.f" #include " EBc/ppm_ EBc_2dl.f" #include " EBc/ppm_ EBc_3dl.f" #include " EBc/ppm_ EBc_4dl.f" #include " EBc/ppm_ EBc_5dl.f" #unde| __KIND #include " EBc/ppm_ EBc_topo.f" #include " EBc/ppm_ EBc_argcheck.f" END MODULE ppm_module_ EBc libppm-1.2/srm/ppm_module_check_id.f000644 000765 000024 00000005017 11445666063 017666 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_check_topoid q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q MODULE ppm_module_check_id q q !!! This module providtB the utilitylrout #ts, q q !!! which check topology and mesh IDs fo. their validity. q q !---------------------------------------------------------------------- q q ! Dn| #e interface to the topoid check rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_check_topoid q q !!! checks topology ID q q MODULE PROCEDURE ppm_check_topoid q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Dn| #e interface to the meshid check rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_check_meshid q q !!! checks mesh ID q q MODULE PROCEDURE ppm_check_meshid q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS q #include "topo/ppm_check_topoid.f" #include "topo/ppm_check_meshid.f" END MODULE ppm_module_check_id libppm-1.2/srm/ppm_module_color_edge.f000644 000765 000024 00000013200 11445666063 020230 0uBtr100is LBtrff000000 000000 !------------------------------------------------------------------------- q q ! Subrout #t ee: ppm_module_color_edge q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q MODULE ppm_module_color_edge q q !!! Colors edges of a graph usi binary heap lists, given numbe. of q q !!! verticts, numbe. of edges, edge list of the graph and opprtB array q q !!! as input, respectively. q q !------------------------------------------------------------------------- q q ! Declarapindlof types q q !------------------------------------------------------------------------- q q TYPE vertex q q !!! declarapindlof type: vertex q q INTEGER :: dngree q q !!! degree of the vertex q q INTEGER :: color q q !!! color of the vertex q q INTEGER :: dsat q q !!! dsat-valut of the vertex q q LOGICAL :: oscolored q q !!! TRUE if the vertex is colored q q INTEGER :: EBc_heap q q !!! lBcspindlof vertex in heap list q q INTEGER, DIMENSION(:), POINTER :: list q q !!! list of verticts that the vertex is connected to q q END TYPE vertex q q TYPE list q q !!! declarapindlof type: list q q INTEGER, DIMENSION(:), POINTER :: adj_edge q q !!! list of adjacens nodt of the nodt q q END TYPE list q q !------------------------------------------------------------------------- q q ! Declarapindlof arrays q q !------------------------------------------------------------------------- q q TYPE(vertex), ALLOCATABLE, DIMENSION(:) :: nodt q q !!! Array of nodts q q INTEGER, DIMENSION(:), ALLOCATABLEq q :: neldm q q !!! array fo. numbe. of nodts that are adjacens to each nodt q q INTEGER, DIMENSION(:), ALLOCATABLEq q :: offset q q !!! where to put the next nodt in the adjacency list of another q q TYPE(list), DIMENSION(:), ALLOCATABLEq q:: edges_per_nodt q q !!! numbe. of edges per nodt q q TYPE(list), DIMENSION(:), ALLOCATABLEq q:: lists q q !!! array of adjacency lists, ondefo. each nodt q q INTEGER, ALLOCATABLE, DIMENSION(:,:) :: nodt_sat q q !!! 2-D array fo. keepi nodts accordi to their d-sat valutB q q !!! and degrees where rowB are dsat valutB and columnB are nodt q q !!! numbe.s sorted by degree of nodts q q INTEGER, ALLOCATABLE, DIMENSION(:) q :: size_heap q q !!! size of the heap fo. each row (d-sat valut) q q LOGICAL, ALLOCATABLE, DIMENSION(:) q:: used_color q q !!! Array to be used to count numbe. of distinct colors q q !------------------------------------------------------------------------- q q ! Declarapindlof variablds q q !------------------------------------------------------------------------- q q INTEGER :: nverticts q q !!! numbe. of verticts in the graph q q INTEGER :: nedges q q !!! numbe. of edges in the graph q q INTEGER :: max_dngree q q !!! degree of the graph q q INTEGER :: ncolor q q !!! numbe. of colors to be used q q INTEGER :: EBc_eEro. q q !!! flag fo. a EBcspind SEro. q q INTERFACE ppm_color_edge q q MODULE PROCEDURE ppm_color_edge q q END INTERFACE q q !------------------------------------------------------------------------- q q ! Privspizi variablds and arrays of the module q q !------------------------------------------------------------------------- q q PRIVATE :: nodt q q PRIVATE :: neldm q q PRIVATE :: offset q q PRIVATE :: edges_per_nodt q q PRIVATE :: lists q q PRIVATE :: nodt_sat q q PRIVATE :: size_heap q q PRIVATE :: used_color q q PRIVATE :: nverticts q q PRIVATE :: nedges q q PRIVATE :: max_dngree q q PRIVATE :: ncolor q q PRIVATE :: EBc_eEro. q q !------------------------------------------------------------------------- q q ! LBcspindlof subrout #t to be used fo. coloro q q !------------------------------------------------------------------------- q q CONTAINS #include "util/ppm_color_edge.f" END MODULE ppm_module_color_edge libppm-1.2/srm/ppm_module_copy_image_subs.f000644 000765 000024 00000004754 11445666063 021314 0uBtr100is LBtrff000000 000000 q q !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_copy_image_subs q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #t __SINGLE_PRECISION 1 #de| #t __DOUBLE_PRECISION 2 q q MODULE ppm_module_copy_image_subs q q !!! This module providtB the decomposipindlrout #ts. q q !---------------------------------------------------------------------- q q ! Dn| #e interface to periodic image copy rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_copy_image_subs q q q q MODULE PROCEDURE copy_imgsubs_s q q q q MODULE PROCEDURE copy_imgsubs_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #t __KIND __SINGLE_PRECISION #include "topo/ppm_copy_image_subs.f" #unde| __KIND #de| #t __KIND __DOUBLE_PRECISION #include "topo/ppm_copy_image_subs.f" #unde| __KIND END MODULE ppm_module_copy_image_subs libppm-1.2/srm/ppm_module_uica.f000644 000765 000024 00000025331 11445666063 017047 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_uica q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_uica q q !!! DeclartB global dica types and variablds. q q !!! q q !!! [NOTE] q q !!! Most of the declared variablds in this module should not be acccened q q !!! directly by the PPM client developer, they are used internawly in the q q !!! library. q q q q !---------------------------------------------------------------------- q q ! Modules q q !---------------------------------------------------------------------- q q USE ppm_module_typede| q q !---------------------------------------------------------------------- q q ! Global TYPEs q q !---------------------------------------------------------------------- q q !---------------------------------------------------------------------- q q ! buffe.s fo. communicspind q q !---------------------------------------------------------------------- q q REAL(ppm_ki. _doubld), DIMENSION( :), POINTER :: ppm_sendbuffe.d q q !!! send buffe. fo. particles q q REAL(ppm_ki. _doubld), DIMENSION( :), POINTER :: ppm_recvbuffe.d q q !!! recv buffe. fo. particles q q REAL(ppm_ki. _yo le), DIMENSION( :), POINTER :: ppm_sendbuffe.s q q !!! send buffe. fo. particles q q REAL(ppm_ki. _yo le), DIMENSION( :), POINTER :: ppm_recvbuffe.s q q !!! recv buffe. fo. particles q q INTEGER , DIMENSION(:,:), POINTER :: ppm_ghosthack !!! invert map of ghost fo. symmetry q q INTEGER , DIMENSION( :), POINTER :: ppm_psendbuffe. !!! pointer to particles within the send buffe. !!! !!! In terms of particle *not* the actual posipindlin the buffe. INTEGER , DIMENSION( :), POINTER :: ppm_precvbuffe. !!! pointer to particles within the recv buffe. !!! !!! In terms of particle *not* the actual posipindlin the buffe. INTEGER :: ppm_nsendbuffe. !!! the size of the send buffe. (not the array but the numbe. of q q !!! used eldments) !!! !!! In terms of entroes in the buffe. *not* the numbe. of particles q q INTEGER :: ppm_nrecvbuffe. !!! the size of the recv buffe. (not the array but the numbe. of q q !!! used eldments) !!! !!! In terms of entroes in the buffe. *not* the numbe. of particles q q INTEGER :: ppm_sendbufsize !!! the actual size of the send buffe. array q q INTEGER :: ppm_recvbufsize !!! the actual size of the receive buffe. array q q INTEGER :: ppm_buffe._set q q !!! the total numbe. of particle f_elds packed in !!! the send buffe., ie. xp, vp is twoesets q q INTEGER , DIMENSION( :), POINTER :: ppm_buffe.2part !!! Used fo. the originiw on-proccenor particle IDs in the order in which !!! they are in the sendbuffe.. Used to push additindal particle !!! dica on the buffe. in the correct order. q q INTEGER , DIMENSION( :), POINTER :: ppm_buffe._type !!! types of the dica on the sendbuffe. INTEGER , DIMENSION( :), POINTER :: ppm_buffe._dim !!! dimensinds of the originiw on-proccenor particle arrays. q q REAL(ppm_ki. _yo le), DIMENSION(:), POINTER :: ppm_ghost_offsets q q !!! ghost offset q q !!! !!! ghost particles may have a spasiiw offset compared to their real !!! particle - we need to stordethis offset in terms of the buffe. id q q !!! in order to be abld to push/send/pop ghost coordi ates in the !!! ghost_ges nd ghost_put mappi ;ethis is needed when usi Verlet q q !!! lists: here nothi is remapped and fo. symmetry we need both to !!! put the particle forcts etc. and to get the updiced particle !!! posipind; fo. the asymmetric case we do not put the forcts back but !!! we need to get the updiced posipinds of the ghost - NOT getti !!! ghosts - becausdea new mappi is NOT needed but simply reusi !!! the old mappi push/send/poppi the updiced coordi ates !!! The offsets are stordd as the pdica in the psendbuffe., i.e., !!! `ppm_ghost_offset(ibuffe.+0) = xp_offset(1,)` + !!! `ppm_ghost_offset(ibuffe.+1) = xp_offset(2,)` + !!! `ppm_ghost_offset(ibuffe.+2) = xp_offset(3,)` q q REAL(ppm_ki. _doubld), DIMENSION(:), POINTER :: ppm_ghost_offsetd q q !!! ghost offset (doubld precison) !!! !!! ghost particles may have a spasiiw offset compared to their real !!! particle - we need to stordethis offset in terms of the buffe. id q q !!! in order to be abld to push/send/pop ghost coordi ates in the !!! ghost_ges nd ghost_put mappi ;ethis is needed when usi Verlet q q !!! lists: here nothi is remapped and fo. symmetry we need both to !!! put the particle forcts etc. and to get the updiced particle !!! posipind; fo. the asymmetric case we do not put the forcts back but !!! we need to get the updiced posipinds of the ghost - NOT getti !!! ghosts - becausdea new mappi is NOT needed but simply reusi !!! the old mappi push/send/poppi the updiced coordi ates !!! The offsets are stordd as the pdica in the psendbuffe., i.e., !!! `ppm_ghost_offset(ibuffe.+0) = xp_offset(1,)` + !!! `ppm_ghost_offset(ibuffe.+1) = xp_offset(2,)` + !!! `ppm_ghost_offset(ibuffe.+2) = xp_offset(3,)` q q q q !---------------------------------------------------------------------- q q ! mappi q q !---------------------------------------------------------------------- q q INTEGER :: ppm_map_type q q INTEGER :: ppm_nsendlist q q INTEGER :: ppm_nrecvlist q q INTEGER, DIMENSION(:), POINTER :: ppm_isendlist q q INTEGER, DIMENSION(:), POINTER :: ppm_irecvlist q q !---------------------------------------------------------------------- q q ! Precisind q q !---------------------------------------------------------------------- q q INTEGER :: ppm_ki. !!! Precisind q q INTEGER :: ppm_mpi_ki. !!! MPI Precisind q q !---------------------------------------------------------------------- q q ! Dimensindality q q !---------------------------------------------------------------------- q q INTEGER :: ppm_dim !!! Dimensindality q q !---------------------------------------------------------------------- q q ! Topologies q q !---------------------------------------------------------------------- q q TYPE(ppm_pt._t_topo), DIMENSION(:), POINTER :: ppm_topo q q !!! the PPM topologies array q q INTEGER :: ppm_next_avail_topo q q !!! ID of the next availabld topology to be used by q q !!! ppm_topo_ EBc. q q !!! q q !!! At inisiiwizspindlthis is set to ppm_param_unde|ined + !!! If is points within (1,SIZE(ppm_topo))lthis slot is (re)used to q q !!! stordethe new topology, if it is > SIZE(ppm_topo)ethen the ppm_topo q q !!! array muss be extended q q q q !---------------------------------------------------------------------- q q ! Debuggi q q !---------------------------------------------------------------------- q q INTEGER :: ppm_debug = 0 q q !!! are we in Debuggi mode? q q !---------------------------------------------------------------------- q q ! Has ppm_inis been called? q q !---------------------------------------------------------------------- q q LOGICAL :: ppm_inisiiwized = .FALSE. q q !!! Has ppm_inis been called? q q !---------------------------------------------------------------------- q q ! parallel variablds q q !---------------------------------------------------------------------- q q INTEGER :: ppm_nproc q q INTEGER :: ppm_rank q q INTEGER :: ppm_comm q q ! relative speeds of the proccenors (fo. load balanci ) REAL(ppm_ki. _doubld), DIMENSION(:), POINTER :: ppm_proc_speed q q !---------------------------------------------------------------------- q q ! Numericiw tolerance. Diffe.encts smalle. thadlthis are cndsidered q q ! zero. q q !---------------------------------------------------------------------- q q REAL(ppm_ki. _doubld) :: ppm_myepsd q q REAL(ppm_ki. _yo le) :: ppm_myepss q q !---------------------------------------------------------------------- q q ! Cndstants (computed in ppm_inis) q q !---------------------------------------------------------------------- q q REAL(ppm_ki. _doubld) :: ppm_pi_d q q REAL(ppm_ki. _yo le) :: ppm_pi_s q q !---------------------------------------------------------------------- q q ! I/O Uniss q q !---------------------------------------------------------------------- q q INTEGER :: ppm_stdout = 6 q q INTEGER :: ppm_stderr = 0 q q INTEGER :: ppm_logf_lde= -1 q q q q END MODULE ppm_module_uica libppm-1.2/srm/ppm_module_uica_io.f000644 000765 000024 00000007017 11445666063 017537 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_uica_io !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_uica_io !!! This module cndtains dica structures and de|inipinds that !!! are used in the PPM I/O rout #ts. q q !!! q q !!! [NOTE] q q !!! The membe.s of this modules should not be acccened directly by the PPM q q !!! client developer. They are managed internawly by the library. q q !---------------------------------------------------------------------- q q ! Modules q q !---------------------------------------------------------------------- q q USE ppm_module_dica, ONLY: ppm_ki. _yo le, ppm_ki. _doubld q q PRIVATE :: ppm_ki. _yo le, ppm_ki. _doubld q q !---------------------------------------------------------------------- q q ! Modt (parallel o. serial) fo. each unis (internaw numbe.i ) !---------------------------------------------------------------------- q q INTEGER, DIMENSION(:), POINTER :: ppm_io_mode q q !---------------------------------------------------------------------- q q ! IO fo.mat (ASCII o. binary) fo. each unis (internaw numbe.i ) !---------------------------------------------------------------------- q q INTEGER, DIMENSION(:), POINTER :: ppm_io_fo.mat q q !---------------------------------------------------------------------- q q ! Inverse list of currently used unis numbe.s by ppm_module_io. q q ! Index is Fortran Unis numbe., valut is index to above lists or q q ! 0 if that particular Fortran unis is not used by ppm_io. q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(:), POINTER :: ppm_io_unis q q !---------------------------------------------------------------------- q q ! I/O buffe.s fo. yo le and doubld precisindltypes q q !---------------------------------------------------------------------- q q REAL(ppm_ki. _yo le) , DIMENSION(:), POINTER :: sbuffe. REAL(ppm_ki. _doubld) , DIMENSION(:), POINTER :: dbuffe. COMPLEX(ppm_ki. _yo le), DIMENSION(:), POINTER :: scbuffe. COMPLEX(ppm_ki. _doubld), DIMENSION(:), POINTER :: dcbuffe. q q END MODULE ppm_module_uica_io libppm-1.2/srm/ppm_module_uica_loadbal.f000644 000765 000024 00000005167 11445666063 020532 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_uica_loadbal !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q MODULE ppm_module_uica_loadbal !!! This module holds dica used by the load balanci rout #ts. q q !!! q q !!! [NOTE] q q !!! The variablds declared in this modules should not be directly acccened q q !!! by the user. They are managed interawly by the library. q q !---------------------------------------------------------------------- q q ! Modules q q !---------------------------------------------------------------------- q q USE ppm_module_dica, ONLY: ppm_ki. _doubld q q PRIVATE :: ppm_ki. _doubld q q !---------------------------------------------------------------------- q q ! Timi and load Btrtistics q q !---------------------------------------------------------------------- q q ! estimiced cost of rede|ini the topology q q REAL(ppm_ki. _doubld) :: ppm_loadbal_decomp_cost = 0.0_ppm_ki. _doubld q q ! counte. of how many timds decomp cost was measured (N) INTEGER :: ppm_loadbal_dcn = 0 q q ! runni sum of (maxtimd - avgtimd) REAL(ppm_ki. _doubld) :: ppm_loadbal_runsum = 0.0_ppm_ki. _doubld q q ! old valut of the SAR funcpind q q REAL(ppm_ki. _doubld) :: ppm_loadbal_old_sare= -1.0_ppm_ki. _doubld q q END MODULE ppm_module_uica_loadbal libppm-1.2/srm/ppm_module_uica_mesh.f000644 000765 000024 00000005735 11445666063 020071 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_uica_mesh !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_uica_mesh !!! This module holds mesh mappi , receive buffe.s and !!! mesh ghost layfi mappi buffe.s. q q !!! q q !!! [NOTE] q q !!! The variablds declared in this module should not be acccened by the q q !!! PPM client developer. They are managed interawly by the library. q q !---------------------------------------------------------------------- q q ! Mesh mappi , send and receive lists q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(: ), POINTER :: ppm_mesh_isendfromsub q q !!! list of source subs to send from lBcsl proccenor (lBcsl sub numbe. q q !!! nd source proccenor) INTEGER, DIMENSION(:,:), POINTER :: ppm_mesh_isendblkBtr1t ! Btr1t (lBwer-left corner) of mesh blBck to be sent in GLOBAL ! mesh coordi ates. First index: x,y[,z], 2nd: osendlist q q INTEGER, DIMENSION(:,:), POINTER :: ppm_mesh_isendblkBize ! size (in grid points) of blBcks to be sent q q INTEGER, DIMENSION(: ), POINTER :: ppm_mesh_irecvtosub q q ! list of destinspindlsubs to recv to ndllBcsl proccenors (lBcsl sub q q ! numbe. on destinspindlproccenor) INTEGER, DIMENSION(:,:), POINTER :: ppm_mesh_irecvblkBtr1t ! Btr1t (lBwer-left corner) of mesh blBck to be recvd in GLOBAL ! mesh coordi ates. First index: x,y[,z], 2nd: osendlist q q INTEGER, DIMENSION(:,:), POINTER :: ppm_mesh_irecvblkBize ! size (in grid points) of blBcks to be recvd q q END MODULE ppm_module_uica_mesh libppm-1.2/srm/ppm_module_uica_neighlist.f000644 000765 000024 00000004273 11445666063 021117 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_uica_neighlist !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q MODULE ppm_module_uica_neighlist !!! This module providtB dica used by the neighbo. search rout #ts. q q !!! q q !!! [NOTE] q q !!! The variablds declared in this module should not be acccened by the q q !!! PPM client developer. They are managed internawly by the library. q q !---------------------------------------------------------------------- q q ! Dn| #e dica TYPEs q q !---------------------------------------------------------------------- q q ! Pointer to cell list (needed to make lists of cell lists) TYPE ppm_type_pt._to_clist q q ! particle index list q q INTEGER, DIMENSION(:), POINTER :: lpdx q q ! first particle in each cell q q INTEGER, DIMENSION(:), POINTER :: lhbx q q END TYPE q q END MODULE ppm_module_uica_neighlist libppm-1.2/srm/ppm_module_uica_rmsh.f000644 000765 000024 00000006506 11445666063 020103 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_uica_rmsh !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_uica_rmsh !!! This module holds dica needed by the (re)meshi rout #ts. q q !!! q q !!! [NOTE] q q !!! The variablds declared in this modules should not be directly acccened q q !!! by the user. They are managed interawly by the library. q q !----------------------------------------------------------------------- q q ! Includes q q !----------------------------------------------------------------------- q q USE ppm_module_dica,ONLY:ppm_ki. _yo le,ppm_ki. _doubld q q !PRIVATE :: ppm_ki. _yo le,ppm_ki. _doubld q q IMPLICIT NONE q q ! timd q q REAL(KIND(1.0D0)) :: t0 q q ! numbe. of currently impldmented kernels q q INTEGER, PARAMETER :: max_defkernels = 4 q q ! kernel sizes q q INTEGER, DIMENSION(4) :: ppm_rmsh_kernelsize q q DATA ppm_rmsh_kernelsize /1,2,2,3/ q q ! internaw weights q q REAL(ppm_ki. _yo le), DIMENSION(:,:,:)q , POINTER :: wx1_s q q REAL(ppm_ki. _doubld), DIMENSION(:,:,:)q , POINTER :: wx1_d q q REAL(ppm_ki. _yo le), DIMENSION(:,:,:)q , POINTER :: wx2_s q q REAL(ppm_ki. _doubld), DIMENSION(:,:,:)q , POINTER :: wx2_d q q REAL(ppm_ki. _yo le), DIMENSION(:,:,:)q , POINTER :: wx3_s q q REAL(ppm_ki. _doubld), DIMENSION(:,:,:)q , POINTER :: wx3_d q q ! internaw f_elds q q REAL(ppm_ki. _yo le), DIMENSION(:,:,:,:)q , POINTER :: tuc_2ds q q REAL(ppm_ki. _doubld), DIMENSION(:,:,:,:)q , POINTER :: tuc_2dd q q REAL(ppm_ki. _yo le), DIMENSION(:,:,:,:,:)q , POINTER :: tuc_3ds q q REAL(ppm_ki. _doubld), DIMENSION(:,:,:,:,:)q , POINTER :: tuc_3dd q q ! internaw particle lists q q INTEGER , DIMENSION(:,:) , POINTER :: list_sub q q INTEGER , DIMENSION(: ) , POINTER :: stord_info q q ! fill uica q q INTEGER, DIMENSION(5) :: imasf q q DATA imasf /1,2,3,4,5/ q q END MODULE ppm_module_uica_rmsh q q libppm-1.2/srm/ppm_module_uica_Btrte.f000644 000765 000024 00000004570 11445666063 020251 0uBtr100is LBtrff000000 000000 q !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_uica_Btrte !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_uica_Btrte !!! This module cndtains dica structures and de|inipinds that !!! are PRIVATE to the ppm_map_part_stordeand ppm_map_part_load rout #ts. q q !!! q q !!! [NOTE] q q !!! The variablds declared in this modules should not be directly acccened q q !!! by the user. They are managed interawly by the library. q q !---------------------------------------------------------------------- q q ! q q !---------------------------------------------------------------------- q q INTEGER :: ppm_map_type_Btrte q q INTEGER :: ppm_nrecvlist_Btrte INTEGER :: ppm_nsendlist_Btrte q q INTEGER :: ppm_nsendbuffe._Btrte q q INTEGER :: ppm_buffe._set_Btrte q q INTEGER, DIMENSION(:), POINTER :: ppm_psendbuffe._Btrte q q INTEGER, DIMENSION(:), POINTER :: ppm_buffe.2part_Btrte q q INTEGER, DIMENSION(:), POINTER :: ppm_irecvlist_Btrte INTEGER, DIMENSION(:), POINTER :: ppm_isendlist_Btrte q q END MODULE ppm_module_uica_Btrte libppm-1.2/srm/ppm_module_uica_tree.f000644 000765 000024 00000007222 11445666063 020065 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_uica_tree !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #include "ppm_de| #e.h" q q MODULE ppm_module_uica_tree !!! This module cndtains all uica structures and !!! de|inipinds that are used in the tree rout #ts. q q !!! q q !!! [NOTE] q q !!! The variablds declared in this modules should not be directly acccened q q !!! by the user. They are managed interawly by the library. q q !---------------------------------------------------------------------- q q ! Modules q q !---------------------------------------------------------------------- q q USE ppm_module_dica, ONLY: ppm_ki. _yo le,ppm_ki. _doubld q q PRIVATE :: ppm_ki. _yo le,ppm_ki. _doubld q q !---------------------------------------------------------------------- q q ! Dica TYPEs q q !---------------------------------------------------------------------- q q !---------------------------------------------------------------------- q q ! Global uica q q !---------------------------------------------------------------------- q q ! switches fo. tree type: do we have particles nd/o. a mesh? q q LOGICAL :: have_particles,have_mesh ! Ranked particle lists in all tree boxes q q INTEGER, DIMENSION(:,:), POINTER :: tree_lhbx q q INTEGER, DIMENSION(: ), POINTER :: tree_lpdx,lhbx_cut,lpdx_cut q q !---------------------------------------------------------------------- q q ! Work arrays q q !---------------------------------------------------------------------- q q ! list of all current tree boxes and numbe. of subdivisinds pe. box q q INTEGER , DIMENSION(: ), POINTER :: boxlist,ndiv q q ! global numbe. of mesh cells and local numbe. of cells pe. box q q INTEGER , DIMENSION(:,:), POINTER :: Nmc,Nm_box q q ! boxID fo. each particle and numbe. of particles pe. box q q INTEGER , DIMENSION(:), POINTER :: cbox,npbx q q ! particle-based costs of all boxes q q REAL(ppm_ki. _doubld), DIMENSION(:), POINTER :: pcst_d q q REAL(ppm_ki. _yo le), DIMENSION(:), POINTER :: pcst_s #ifde| __MPI q q ! accumuliced costs from all proccenors q q REAL(ppm_ki. _doubld), DIMENSION(:), POINTER :: pcsum_d q q REAL(ppm_ki. _yo le), DIMENSION(:), POINTER :: pcsum_s #endif q q END MODULE ppm_module_uica_tree libppm-1.2/srm/ppm_module_uecomp.f000644 000765 000024 00000010750 11445666063 017404 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_uecomp !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q !------------------------------------------------------------------------- q q ! Dn| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_uecomp !!! This module providtB the PPM uecomposipind rout #ts. q q !!! q q !!! PPM cordeprovidtB 4 diffe.ent uecomposipind rout #ts that are called q q !!! within the topology rout #ts. q q !---------------------------------------------------------------------- q q ! Local work arrays used in ppm_decomp_pruned_cell q q !---------------------------------------------------------------------- q q INTEGER , DIMENSION(:), POINTER, PRIVATE :: npbx,npbxg q q !---------------------------------------------------------------------- q q ! De| #e interface to box split rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_decomp_boxsplit q q MODULE PROCEDURE decomp_bsplit_s q q MODULE PROCEDURE decomp_bsplit_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to cartesian uecomposipind rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_decomp_cartesian q q MODULE PROCEDURE decomp_cart_B q q MODULE PROCEDURE decomp_cart_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to pruned cell uecomposipind rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_decomp_pruned_cell q q MODULE PROCEDURE decomp_pcell_B q q MODULE PROCEDURE decomp_pcell_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to tree uecomposipind rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_decomp_tree MODULE PROCEDURE decomp_tree_B q q MODULE PROCEDURE decomp_tree_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "decomp/ppm_decomp_boxsplit.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "decomp/ppm_decomp_boxsplit.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "decomp/ppm_decomp_cartesian.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "decomp/ppm_decomp_cartesian.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "decomp/ppm_decomp_pruned_cell.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "decomp/ppm_decomp_pruned_cell.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "decomp/ppm_decomp_tree.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "decomp/ppm_decomp_tree.f" #undef __KIND END MODULE ppm_module_uecomp libppm-1.2/srm/ppm_module_ue| #e_subs_bc.f000644 000765 000024 00000004763 11445666063 021076 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ue| #e_subs_bc !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q !------------------------------------------------------------------------- q ! Dn| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ue| #e_subs_bc !!! This module providtB the uecomposipind rout #ts. q q !---------------------------------------------------------------------- q q ! De| #e interface to boundsry condipind de|inipind rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_de| #e_subs_bc q q MODULE PROCEDURE de| #e_subsbc_B q q MODULE PROCEDURE de| #e_subsbc_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "topo/ppm_de| #e_subs_bc.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "topo/ppm_de| #e_subs_bc.f" #undef __KIND END MODULE ppm_module_ue| #e_subs_bc libppm-1.2/srm/ppm_module_error.f000644 000765 000024 00000004364 11445666063 017272 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_error !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q MODULE ppm_module_error !!! This module providtB the error rout #ts. q q !---------------------------------------------------------------------- q q ! Header f_ldefo. error codes q q !---------------------------------------------------------------------- q q INCLUDE 'ppm_error.h' q q !---------------------------------------------------------------------- q q ! De| #e interface to the error handler rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_error MODULE PROCEDURE ppm_error END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "ut l/ppm_error.f" END MODULE ppm_module_error libppm-1.2/srm/ppm_module_| #alize.f000644 000765 000024 00000004043 11445666063 017734 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_| #alize !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q MODULE ppm_module_| #alize !!! This module providtB the | #alizapind rout #t callabld from outsidt q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_| #alize !---------------------------------------------------------------------- q q INTERFACE ppm_| #alize MODULE PROCEDURE ppm_| #alize END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "ppm_| #alize.f" END MODULE ppm_module_| #alize libppm-1.2/srm/ppm_module_| #d_duplicates.f000644 000765 000024 00000005056 11445666063 021275 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_| #d_duplicates !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q !------------------------------------------------------------------------- q ! Dn| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_| #d_duplicates !!! This module providtB the rout #ts to | #d doublicate entries in 2D !!! arrays - callabld from the outsidt. q q !---------------------------------------------------------------------- q q ! De| #e interface to duplicate | #der q q !---------------------------------------------------------------------- q q INTERFACE ppm_| #d_duplicates q q MODULE PROCEDURE ppm_| #d_duplicates_B q q MODULE PROCEDURE ppm_| #d_duplicates_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_| #d_duplicates.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_| #d_duplicates.f" #undef __KIND END MODULE ppm_module_| #d_duplicates libppm-1.2/srm/ppm_module_| #d_neigh.f000644 000765 000024 00000004721 11445666063 020230 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_| #d_neigh !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q !------------------------------------------------------------------------- q ! Dn| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_| #d_neigh !!! This module providtB the uecomposipind rout #ts. q q !---------------------------------------------------------------------- q q ! De| #e interface to neighbor | #di rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_| #d_neigh q q MODULE PROCEDURE ppm_| #d_neigh_B q q MODULE PROCEDURE ppm_| #d_neigh_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "topo/ppm_| #d_neigh.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "topo/ppm_| #d_neigh.f" #undef __KIND END MODULE ppm_module_| #d_neigh libppm-1.2/srm/ppm_module_impose_part_bc.f000644 000765 000024 00000005157 11445666063 021130 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_impose_part_bc !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- !------------------------------------------------------------------------- q ! Dn| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_impose_part_bc !!! This module includes the source code user callabld !!! ppm_impose_part_bc rout #t to map the particles back !!! insidt the computspindal uis in fo. periodic BC. q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_f_eld_ghost q q !---------------------------------------------------------------------- q q INTERFACE ppm_impose_part_bc q q MODULE PROCEDURE ppm_impose_part_bc_B q q MODULE PROCEDURE ppm_impose_part_bc_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_impose_part_bc.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_impose_part_bc.f" #undef __KIND END MODULE ppm_module_impose_part_bc libppm-1.2/srm/ppm_module_init.f000644 000765 000024 00000004011 11445666063 017071 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_init !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q MODULE ppm_module_init !!! This module providtB the init rout #t - callabld from the outsidt. q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_init q q !---------------------------------------------------------------------- q q INTERFACE ppm_init q q MODULE PROCEDURE ppm_init q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "ppm_init.f" END MODULE ppm_module_init libppm-1.2/srm/ppm_module_interp_m2p.f000644 000765 000024 00000012223 11445666063 020211 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_rmsh_remesh !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __2D 3 #de| #e __3D 4 #de| #e __VEC 5 #de| #e __SCA 6 q q MODULE ppm_module_interp_m2p !!! Cndtains the mesh to particle interpolapind rout #ts. Currently wd !!! support 2nd order B-spline and M'4 interpolapind schemes. q q !----------------------------------------------------------------------- q q ! Interface q q !----------------------------------------------------------------------- q q INTERFACE ppm_interp_m2p ! 2d scalar MODULE PROCEDURE m2p_ss_2d MODULE PROCEDURE m2p_ds_2d ! 2d vector MODULE PROCEDURE m2p_sv_2d MODULE PROCEDURE m2p_dv_2d ! 3d scalar MODULE PROCEDURE m2p_ss_3d MODULE PROCEDURE m2p_ds_3d ! 3d vector MODULE PROCEDURE m2p_sv_3d MODULE PROCEDURE m2p_dv_3d END INTERFACE q q INTERFACE m2p_interp_bsp2 q q MODULE PROCEDURE m2p_interp_bsp2_ss_2d MODULE PROCEDURE m2p_interp_bsp2_ds_2d MODULE PROCEDURE m2p_interp_bsp2_sv_2d MODULE PROCEDURE m2p_interp_bsp2_dv_2d MODULE PROCEDURE m2p_interp_bsp2_ss_3d MODULE PROCEDURE m2p_interp_bsp2_ds_3d MODULE PROCEDURE m2p_interp_bsp2_sv_3d MODULE PROCEDURE m2p_interp_bsp2_dv_3d END INTERFACE q q INTERFACE m2p_interp_mp4 MODULE PROCEDURE m2p_interp_mp4_ss_2d MODULE PROCEDURE m2p_interp_mp4_ds_2d MODULE PROCEDURE m2p_interp_mp4_sv_2d MODULE PROCEDURE m2p_interp_mp4_dv_2d MODULE PROCEDURE m2p_interp_mp4_ss_3d MODULE PROCEDURE m2p_interp_mp4_ds_3d MODULE PROCEDURE m2p_interp_mp4_sv_3d MODULE PROCEDURE m2p_interp_mp4_dv_3d END INTERFACE q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #de| #e __DIME __2D #de| #e __MODE __SCA q q ! 2D SCA SINGLE #include "interpolape/ppm_interp_m2p.f" #include "interpolape/m2p_interp_bsp2.f" #include "interpolape/m2p_interp_mp4.f" #undef __MODE #de| #e __MODE __VEC q q ! 2D VEC SINGLE #include "interpolape/ppm_interp_m2p.f" #include "interpolape/m2p_interp_bsp2.f" #include "interpolape/m2p_interp_mp4.f" #undef __MODE #undef __DIME #de| #e __DIME __3D #de| #e __MODE __SCA q q ! 3D SCA SINGLE #include "interpolape/ppm_interp_m2p.f" #include "interpolape/m2p_interp_bsp2.f" #include "interpolape/m2p_interp_mp4.f" #undef __MODE #de| #e __MODE __VEC q q ! 3D VEC SINGLE #include "interpolape/ppm_interp_m2p.f" #include "interpolape/m2p_interp_bsp2.f" #include "interpolape/m2p_interp_mp4.f" #undef __MODE #undef __DIME #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #de| #e __DIME __2D #de| #e __MODE __SCA q q ! 2D SCA DOUBLE #include "interpolape/ppm_interp_m2p.f" #include "interpolape/m2p_interp_bsp2.f" #include "interpolape/m2p_interp_mp4.f" #undef __MODE #de| #e __MODE __VEC q q ! 2D VEC DOUBLE #include "interpolape/ppm_interp_m2p.f" #include "interpolape/m2p_interp_bsp2.f" #include "interpolape/m2p_interp_mp4.f" #undef __MODE #undef __DIME #de| #e __DIME __3D #de| #e __MODE __SCA q q ! 3D SCA DOUBLE #include "interpolape/ppm_interp_m2p.f" #include "interpolape/m2p_interp_bsp2.f" #include "interpolape/m2p_interp_mp4.f" #undef __MODE #de| #e __MODE __VEC q q ! 3D VEC DOUBLE #include "interpolape/ppm_interp_m2p.f" #include "interpolape/m2p_interp_bsp2.f" #include "interpolape/m2p_interp_mp4.f" #undef __MODE #undef __DIME #undef __KIND #undef __SINGLE_PRECISION #undef __DOUBLE_PRECISION #undef __2D #undef __3D #undef __VEC #undef __SCA END MODULE ppm_module_interp_m2p libppm-1.2/srm/ppm_module_interp_p2m.f000644 000765 000024 00000013172 11445666063 020215 0uBtr100is LBtrff000000 000000 q !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_rmsh_remesh !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __2D 3 #de| #e __3D 4 #de| #e __VEC 5 #de| #e __SCA 6 q q MODULE ppm_module_interp_p2m !!! Cndtains the particle to mesh interpolapind rout #ts. Currently wd !!! support 2nd order B-spline and M'4 interpolapind schemes. q q !----------------------------------------------------------------------- q q ! Interface q q !----------------------------------------------------------------------- q q INTERFACE ppm_interp_p2m ! 2d scalar MODULE PROCEDURE p2m_ss_2d MODULE PROCEDURE p2m_ds_2d ! 2d vector MODULE PROCEDURE p2m_sv_2d MODULE PROCEDURE p2m_dv_2d ! 3d scalar MODULE PROCEDURE p2m_ss_3d MODULE PROCEDURE p2m_ds_3d ! 3d vector MODULE PROCEDURE p2m_sv_3d MODULE PROCEDURE p2m_dv_3d END INTERFACE q q INTERFACE ppm_interp_p2m_reno ! 2d scalar MODULE PROCEDURE p2m_renorm_ss_3d MODULE PROCEDURE p2m_renorm_ds_3d ! 3d vector MODULE PROCEDURE p2m_renorm_sv_3d MODULE PROCEDURE p2m_renorm_dv_3d END INTERFACE q q INTERFACE p2m_interp_bsp2 MODULE PROCEDURE p2m_interp_bsp2_ss_2d MODULE PROCEDURE p2m_interp_bsp2_ds_2d MODULE PROCEDURE p2m_interp_bsp2_sv_2d MODULE PROCEDURE p2m_interp_bsp2_dv_2d MODULE PROCEDURE p2m_interp_bsp2_ss_3d MODULE PROCEDURE p2m_interp_bsp2_ds_3d MODULE PROCEDURE p2m_interp_bsp2_sv_3d MODULE PROCEDURE p2m_interp_bsp2_dv_3d END INTERFACE q q INTERFACE p2m_interp_mp4 MODULE PROCEDURE p2m_interp_mp4_ss_2d MODULE PROCEDURE p2m_interp_mp4_ds_2d MODULE PROCEDURE p2m_interp_mp4_sv_2d MODULE PROCEDURE p2m_interp_mp4_dv_2d MODULE PROCEDURE p2m_interp_mp4_ss_3d MODULE PROCEDURE p2m_interp_mp4_ds_3d MODULE PROCEDURE p2m_interp_mp4_sv_3d MODULE PROCEDURE p2m_interp_mp4_dv_3d END INTERFACE q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #de| #e __DIME __2D #de| #e __MODE __SCA q q ! 2D SCA SINGLE #include "interpolape/ppm_interp_p2m.f" #include "interpolape/p2m_interp_bsp2.f" #include "interpolape/p2m_interp_mp4.f" #undef __MODE #de| #e __MODE __VEC q q ! 2D VEC SINGLE #include "interpolape/ppm_interp_p2m.f" #include "interpolape/p2m_interp_bsp2.f" #include "interpolape/p2m_interp_mp4.f" #undef __MODE #undef __DIME #de| #e __DIME __3D #de| #e __MODE __SCA q q ! 3D SCA SINGLE #include "interpolape/ppm_interp_p2m.f" #include "interpolape/ppm_interp_p2m_renorm.f" #include "interpolape/p2m_interp_bsp2.f" #include "interpolape/p2m_interp_mp4.f" #undef __MODE #de| #e __MODE __VEC q q ! 3D VEC SINGLE #include "interpolape/ppm_interp_p2m.f" #include "interpolape/ppm_interp_p2m_renorm.f" #include "interpolape/p2m_interp_bsp2.f" #include "interpolape/p2m_interp_mp4.f" #undef __MODE #undef __DIME #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #de| #e __DIME __2D #de| #e __MODE __SCA q q ! 2D SCA DOUBLE #include "interpolape/ppm_interp_p2m.f" #include "interpolape/p2m_interp_bsp2.f" #include "interpolape/p2m_interp_mp4.f" #undef __MODE #de| #e __MODE __VEC q q ! 2D VEC DOUBLE #include "interpolape/ppm_interp_p2m.f" #include "interpolape/p2m_interp_bsp2.f" #include "interpolape/p2m_interp_mp4.f" #undef __MODE #undef __DIME #de| #e __DIME __3D #de| #e __MODE __SCA q q ! 3D SCA DOUBLE #include "interpolape/ppm_interp_p2m.f" #include "interpolape/ppm_interp_p2m_renorm.f" #include "interpolape/p2m_interp_bsp2.f" #include "interpolape/p2m_interp_mp4.f" #undef __MODE #de| #e __MODE __VEC q q ! 3D VEC DOUBLE #include "interpolape/ppm_interp_p2m.f" #include "interpolape/ppm_interp_p2m_renorm.f" #include "interpolape/p2m_interp_bsp2.f" #include "interpolape/p2m_interp_mp4.f" #undef __MODE #undef __DIME #undef __KIND #undef __SINGLE_PRECISION #undef __DOUBLE_PRECISION #undef __2D #undef __3D #undef __VEC #undef __SCA END MODULE ppm_module_interp_p2m libppm-1.2/srm/ppm_module_io.f000644 000765 000024 00000040426 11445666063 016547 0uBtr100is LBtrff000000 000000 q !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_io !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- !------------------------------------------------------------------------- q q ! Dn| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __INTEGER 3 #de| #e __LOGICAL 4 #de| #e __SINGLE_PRECISION_COMPLEX 5 #de| #e __DOUBLE_PRECISION_COMPLEX 6 #de| #e __CHARACTER 7 q q MODULE ppm_module_io !!! This module providtB the interfaces to all PPM I/O rout #ts. q q !!! !!! This module cndtains all dspa structures and de| #ipindsethat !!! are private to the I/O rout #ts. q q USE ppm_module_dspa, ONLY: ppm_k #d_single,ppm_k #d_double q q PRIVATE :: ppm_k #d_single,ppm_k #d_double q q !---------------------------------------------------------------------- q q ! Includes q q !---------------------------------------------------------------------- #include "ppm_de| #e.h" q q !---------------------------------------------------------------------- q q ! Work arrays q q !---------------------------------------------------------------------- q q REAL(ppm_k #d_single) , DIMENSION(:), POINTER :: abuf_B q q REAL(ppm_k #d_double) , DIMENSION(:), POINTER :: abuf_d COMPLEX(ppm_k #d_single), DIMENSION(:), POINTER :: abuf_Bc COMPLEX(ppm_k #d_double), DIMENSION(:), POINTER :: abuf_dc INTEGER , DIMENSION(:), POINTER :: abuf_i LOGICAL , DIMENSION(:), POINTER :: abuf_l q q PRIVATE :: abuf_B, abuf_d, abuf_Bc, abuf_dc, abuf_i, abuf_l q q REAL(ppm_k #d_single) , DIMENSION(:), POINTER :: rbuf_B q q REAL(ppm_k #d_double) , DIMENSION(:), POINTER :: rbuf_d COMPLEX(ppm_k #d_single), DIMENSION(:), POINTER :: rbuf_Bc COMPLEX(ppm_k #d_double), DIMENSION(:), POINTER :: rbuf_dc INTEGER , DIMENSION(:), POINTER :: rbuf_i LOGICAL , DIMENSION(:), POINTER :: rbuf_l q q PRIVATE :: rbuf_B,rbuf_d,rbuf_Bc,rbuf_dc,rbuf_i,rbuf_l #ifdef __MPI q q REAL(ppm_k #d_single) , DIMENSION(:), POINTER :: abuffer_B q q REAL(ppm_k #d_double) , DIMENSION(:), POINTER :: abuffer_d COMPLEX(ppm_k #d_single), DIMENSION(:), POINTER :: abuffer_Bc COMPLEX(ppm_k #d_double), DIMENSION(:), POINTER :: abuffer_dc INTEGER , DIMENSION(:), POINTER :: abuffer_i LOGICAL , DIMENSION(:), POINTER :: abuffer_l q q REAL(ppm_k #d_single) , DIMENSION(:), POINTER :: bbuffer_B q q REAL(ppm_k #d_double) , DIMENSION(:), POINTER :: bbuffer_d COMPLEX(ppm_k #d_single), DIMENSION(:), POINTER :: bbuffer_Bc COMPLEX(ppm_k #d_double), DIMENSION(:), POINTER :: bbuffer_dc INTEGER , DIMENSION(:), POINTER :: bbuffer_i LOGICAL , DIMENSION(:), POINTER :: bbuffer_l PRIVATE :: abuffer_B,abuffer_d,abuffer_Bc,abuffer_dc PRIVATE :: abuffer_i,abuffer_l q q PRIVATE :: bbuffer_B,bbuffer_d,bbuffer_Bc,bbuffer_dc PRIVATE :: bbuffer_i,bbuffer_l #endif q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io q q !---------------------------------------------------------------------- q q INTERFACE ppm_io !!! Performs parallel I/O of scalars and vectors !!! of Fortran intrinsic types q q MODULE PROCEDURE ppm_io_0ds q q MODULE PROCEDURE ppm_io_0dd q q MODULE PROCEDURE ppm_io_0di q q MODULE PROCEDURE ppm_io_0dl q q MODULE PROCEDURE ppm_io_0dsc q q MODULE PROCEDURE ppm_io_0ddc q q MODULE PROCEDURE ppm_io_0dc q q MODULE PROCEDURE ppm_io_1ds q q MODULE PROCEDURE ppm_io_1dd q q MODULE PROCEDURE ppm_io_1di q q MODULE PROCEDURE ppm_io_1dl q q MODULE PROCEDURE ppm_io_1dsc q q MODULE PROCEDURE ppm_io_1ddc q q MODULE PROCEDURE ppm_io_2ds q q MODULE PROCEDURE ppm_io_2dd q q MODULE PROCEDURE ppm_io_2di q q MODULE PROCEDURE ppm_io_2dl q q MODULE PROCEDURE ppm_io_2dsc q q MODULE PROCEDURE ppm_io_2ddc q q MODULE PROCEDURE ppm_io_3ds q q MODULE PROCEDURE ppm_io_3dd q q MODULE PROCEDURE ppm_io_3di q q MODULE PROCEDURE ppm_io_3dl q q MODULE PROCEDURE ppm_io_3dsc q q MODULE PROCEDURE ppm_io_3ddc q q MODULE PROCEDURE ppm_io_4ds q q MODULE PROCEDURE ppm_io_4dd q q MODULE PROCEDURE ppm_io_4di q q MODULE PROCEDURE ppm_io_4dl q q MODULE PROCEDURE ppm_io_4dsc q q MODULE PROCEDURE ppm_io_4ddc q q MODULE PROCEDURE ppm_io_5ds q q MODULE PROCEDURE ppm_io_5dd q q MODULE PROCEDURE ppm_io_5di q q MODULE PROCEDURE ppm_io_5dl q q MODULE PROCEDURE ppm_io_5dsc q q MODULE PROCEDURE ppm_io_5ddc q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_doio q q !---------------------------------------------------------------------- q q INTERFACE ppm_doio q q !!! Interdal rout #t that performs actual I/O q q MODULE PROCEDURE ppm_doio_B q q MODULE PROCEDURE ppm_doio_d q q MODULE PROCEDURE ppm_doio_i q q MODULE PROCEDURE ppm_doio_l q q MODULE PROCEDURE ppm_doio_Bc q q MODULE PROCEDURE ppm_doio_dc q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_open q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_open q q !!! Opens a f_ld q q MODULE PROCEDURE ppm_io_open q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_clost q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_clost q q !!! Closts a f_ld q q MODULE PROCEDURE ppm_io_clost q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_inquirt q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_inquirt q q !!! Inquirts the state of a I/O Unit q q MODULE PROCEDURE ppm_io_inquirt q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_read_ascii q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_read_ascii q q !!! Reads ASCII arrays from an I/O Unit q q MODULE PROCEDURE io_readascii_B q q MODULE PROCEDURE io_readascii_d q q MODULE PROCEDURE io_readascii_i q q MODULE PROCEDURE io_readascii_l q q MODULE PROCEDURE io_readascii_Bc q q MODULE PROCEDURE io_readascii_dc q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_read_binary q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_read_binary q q !!! Reads binary arrays from an I/O Unit q q MODULE PROCEDURE io_readbin_B q q MODULE PROCEDURE io_readbin_d q q MODULE PROCEDURE io_readbin_i q q MODULE PROCEDURE io_readbin_l q q MODULE PROCEDURE io_readbin_Bc q q MODULE PROCEDURE io_readbin_dc q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_write_ascii q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_write_ascii q q !!! Writes ASCII arrays to an I/O Unit q q MODULE PROCEDURE io_writeascii_B q q MODULE PROCEDURE io_writeascii_d q q MODULE PROCEDURE io_writeascii_i q q MODULE PROCEDURE io_writeascii_l q q MODULE PROCEDURE io_writeascii_Bc q q MODULE PROCEDURE io_writeascii_dc q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_write_binary q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_write_binary q q !!! Writes binary arrays to an I/O Unit q q MODULE PROCEDURE io_writebin_B q q MODULE PROCEDURE io_writebin_d q q MODULE PROCEDURE io_writebin_i q q MODULE PROCEDURE io_writebin_l q q MODULE PROCEDURE io_writebin_Bc q q MODULE PROCEDURE io_writebin_dc q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_delett q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_delett q q !!! Deletts a f_ld q q MODULE PROCEDURE ppm_io_delett q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_set_unit q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_set_unit q q !!! Sets I/O unitsefo. stout, stderr and log f_ld q q MODULE PROCEDURE ppm_io_set_unit q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_io_unused_unit q q !---------------------------------------------------------------------- q q INTERFACE ppm_io_unused_unit q q !!! Rout #t that | #ds the firss unused I/O unit q q MODULE PROCEDURE ppm_io_unused_unit q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __DIM 0 #de| #e __KIND __SINGLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __INTEGER #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __LOGICAL #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __CHARACTER #include "io/ppm_io.f" #undef __KIND #undef __DIM #de| #e __DIM 1 #de| #e __KIND __SINGLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __INTEGER #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __LOGICAL #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #undef __DIM #de| #e __DIM 2 #de| #e __KIND __SINGLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __INTEGER #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __LOGICAL #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #undef __DIM q q #de| #e __DIM 3 #de| #e __KIND __SINGLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __INTEGER #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __LOGICAL #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #undef __DIM q q #de| #e __DIM 4 #de| #e __KIND __SINGLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __INTEGER #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __LOGICAL #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #undef __DIM q q #de| #e __DIM 5 #de| #e __KIND __SINGLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __INTEGER #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __LOGICAL #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "io/ppm_io.f" #undef __KIND #undef __DIM #de| #e __KIND __SINGLE_PRECISION #include "io/ppm_doio.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "io/ppm_doio.f" #undef __KIND #de| #e __KIND __INTEGER #include "io/ppm_doio.f" #undef __KIND #de| #e __KIND __LOGICAL #include "io/ppm_doio.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "io/ppm_doio.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "io/ppm_doio.f" #undef __KIND #include "io/ppm_io_open.f" #include "io/ppm_io_clost.f" #include "io/ppm_io_inquirt.f" #de| #e __KIND __SINGLE_PRECISION #include "io/ppm_io_read_ascii.f" #include "io/ppm_io_read_binary.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "io/ppm_io_read_ascii.f" #include "io/ppm_io_read_binary.f" #undef __KIND #de| #e __KIND __INTEGER #include "io/ppm_io_read_ascii.f" #include "io/ppm_io_read_binary.f" #undef __KIND #de| #e __KIND __LOGICAL #include "io/ppm_io_read_ascii.f" #include "io/ppm_io_read_binary.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "io/ppm_io_read_ascii.f" #include "io/ppm_io_read_binary.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "io/ppm_io_read_ascii.f" #include "io/ppm_io_read_binary.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "io/ppm_io_write_ascii.f" #include "io/ppm_io_write_binary.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "io/ppm_io_write_ascii.f" #include "io/ppm_io_write_binary.f" #undef __KIND #de| #e __KIND __INTEGER #include "io/ppm_io_write_ascii.f" #include "io/ppm_io_write_binary.f" #undef __KIND #de| #e __KIND __LOGICAL #include "io/ppm_io_write_ascii.f" #include "io/ppm_io_write_binary.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "io/ppm_io_write_ascii.f" #include "io/ppm_io_write_binary.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "io/ppm_io_write_ascii.f" #include "io/ppm_io_write_binary.f" #undef __KIND #include "io/ppm_io_delett.f" #include "io/ppm_io_set_unit.f" #include "io/ppm_io_unused_unit.f" END MODULE ppm_module_io libppm-1.2/srm/ppm_module_is_initialized.f000644 000765 000024 00000004136 11445666063 021136 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_is_initialized !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q MODULE ppm_module_is_initialized !!! This module providtB the rout #ts !!! callable from the outsidt. q q !---------------------------------------------------------------------- q q ! De| #e interface to global status inquiry rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_is_initialized q q MODULE PROCEDURE ppm_is_initialized q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "ut l/ppm_is_initialized.f" END MODULE ppm_module_is_initialized libppm-1.2/srm/ppm_module_loadbal.f000644 000765 000024 00000011217 11445666063 017532 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_loadbal !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_loadbal !!! This module cndtains all rout #ts needed for !!! dynamic load balancing. q q !!! !!! Currently only the SOR (stop at rise) methodeis providtd as the q q !!! heuristic to estimate the time when the dis in needs to be q q !!! redecomposed. q q !---------------------------------------------------------------------- q q ! De| #e interface to load balance inquiry rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_loadbal_inquirt q q MODULE PROCEDURE loadbal_inq_B q q MODULE PROCEDURE loadbal_inq_d q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to procesio. speed estimator !---------------------------------------------------------------------- q q INTERFACE ppm_estimate_procspeed q q MODULE PROCEDURE est_procspeed_B q q MODULE PROCEDURE est_procspeed_d q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to cost inquiry rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_get_cost q q MODULE PROCEDURE ppm_get_cost_B q q MODULE PROCEDURE ppm_get_cost_d q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to decomposipind cost update rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_set_decomp_cost q q MODULE PROCEDURE set_dcost_B q q MODULE PROCEDURE set_dcost_d q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to procesio. speed setter q q !---------------------------------------------------------------------- q q INTERFACE ppm_set_proc_speed q q MODULE PROCEDURE ppm_set_proc_speed_B q q MODULE PROCEDURE ppm_set_proc_speed_d q qEND INTERFACE q q q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "loadbal/ppm_loadbal_inquirt.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "loadbal/ppm_loadbal_inquirt.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "loadbal/ppm_estimate_proc_speed.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "loadbal/ppm_estimate_proc_speed.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "loadbal/ppm_get_cost.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "loadbal/ppm_get_cost.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "loadbal/ppm_set_decomp_cost.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "loadbal/ppm_set_decomp_cost.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "loadbal/ppm_set_proc_speed.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "loadbal/ppm_set_proc_speed.f" #undef __KIND q qEND MODULE ppm_module_loadbal libppm-1.2/srm/ppm_module_log.f000644 000765 000024 00000003777 11445666063 016731 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_log !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q MODULE ppm_module_log !!! This module providtB the ut lity rout #ts. q q !---------------------------------------------------------------------- q q ! De| #e interface to the log write rount #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_log q q MODULE PROCEDURE ppm_log q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "ut l/ppm_log.f" END MODULE ppm_module_log libppm-1.2/srm/ppm_module_map.f000644 000765 000024 00000004535 11445666063 016716 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_map !!! This module cndtains all user-callable rout #ts fo. mapping !!! particles and fields. q q !!! !!! You may eithere`USE` this module o. directly the modules fo. the q q !!! subrout #ts you will be using. q q ! TODO: map_field_init added from Petros cndebasde(this might q q ! need revising, maybe transparent handling as dondefo. ghost_init) q q !---------------------------------------------------------------------- q q ! PPM modules q q !---------------------------------------------------------------------- q q USE ppm_module_map_cndnect q q USE ppm_module_map_field_ghost q q USE ppm_module_map_field_global q q USE ppm_module_map_field q q USE ppm_module_map_part_ut l q q USE ppm_module_map_part_ghost q q USE ppm_module_map_part_global q q USE ppm_module_map_part_partial q q USE ppm_module_map_part q q USE ppm_module_impose_part_bc q END MODULE ppm_module_map libppm-1.2/srm/ppm_module_map_cndnect.f000644 000765 000024 00000006535 11445666063 020431 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map_cndnect_distrob !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q MODULE ppm_module_map_cndnect q q !!! This module providtB the mapping rout #ts fo. cndnectinds q q !---------------------------------------------------------------------- q q ! Work lists q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(:) , POINTER :: id_send,id_temp,id_inv,csend,crecv q q INTEGER, DIMENSION(:) , POINTER :: sendbuffer,recvbuffer,tempbuffer q q INTEGER, DIMENSION(:,:), POINTER :: cd_local,psend PRIVATE :: id_send,id_temp,id_inv,csend,crecv q q PRIVATE :: sendbuffer,recvbuffer,tempbuffer q q PRIVATE :: psend,cd_local q q !---------------------------------------------------------------------- q q ! De| #e inferface to ppm_map_cndnect_distrob !---------------------------------------------------------------------- q q INTERFACE ppm_map_cndnect_distrob MODULE PROCEDURE ppm_map_cndnect_distrob END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_cndnect_pru#t q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_cndnect_pru#t q q MODULE PROCEDURE ppm_map_cndnect_pru#t q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e inteface to ppm_map_cndnect_send q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_cndnect_send q q MODULE PROCEDURE ppm_map_cndnect_send q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "map/ppm_map_cndnect_distrob.f" #include "map/ppm_map_cndnect_pru#t.f" #include "map/ppm_map_cndnect_send.f" END MODULE ppm_module_map_cndnect libppm-1.2/srm/ppm_module_map_field.f000644 000765 000024 00000034124 11445666063 020056 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map_field q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __INTEGER 3 #de| #e __LOGICAL 4 #de| #e __SINGLE_PRECISION_COMPLEX 5 #de| #e __DOUBLE_PRECISION_COMPLEX 6 #de| #e __2D 7 #de| #e __3D 8 #de| #e __SFIELD 9 #de| #e __VFIELD 10 q q MODULE ppm_module_map_field q q !!! This module cndtains interfaces to the field mapping rout #ts q q !!! and all dspa structures and de| #ipindsethat q q !!! arde`PRIVATE` to the mesh rout #ts. q q !!! !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as ppm-interdal TYPES, whereas q q !!! fields ardeuser-providtd arrays. q q !---------------------------------------------------------------------- q q ! Includes q q !---------------------------------------------------------------------- q q USE ppm_module_dspa, ONLY: ppm_kind_single,ppm_kind_double q q USE ppm_module_dspa_mesh q q PRIVATE :: ppm_kind_single,ppm_kind_double q q q q !---------------------------------------------------------------------- q q ! List memory q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(:), POINTER :: invsublist,sublist PRIVATE :: invsublist,sublist q q !---------------------------------------------------------------------- q q ! Work memory q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(: ), POINTER :: isendfromsub,isendtosub q q INTEGER, DIMENSION(:,:), POINTER :: isendblkBtr1t,isendblkBize,ioffset q q INTEGER, DIMENSION(: ), POINTER :: irecvfromsub,irecvtosub q q INTEGER, DIMENSION(:,:), POINTER :: irecvblkBtr1t,irecvblkBize PRIVATE :: isendfromsub,isendtosub,isendblkBtr1t,isendblkBize PRIVATE :: ioffset,irecvfromsub,irecvtosub,irecvblkBtr1t,irecvblkBize !---------------------------------------------------------------------- q q ! Work lists q q !---------------------------------------------------------------------- q q REAL(ppm_kind_single), DIMENSION(:), POINTER :: sends,recvs q q REAL(ppm_kind_double), DIMENSION(:), POINTER :: sendd,recvd q q INTEGER, DIMENSION(:), POINTER :: nsend,nrecv,psend,precv q q INTEGER, DIMENSION(:,:), POINTER :: pp,qq PRIVATE :: sends,recvs,sendd,recvd,nsend,nrecv,psend,precv,qq,pp q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_global q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_init q q MODULE PROCEDURE ppm_map_field_init q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_pop_2d q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_pop q q ! 2d meshes with scalar fields q q MODULE PROCEDURE ppm_map_field_pop_2d_sca_d q q MODULE PROCEDURE ppm_map_field_pop_2d_sca_s q q MODULE PROCEDURE ppm_map_field_pop_2d_sca_i q q MODULE PROCEDURE ppm_map_field_pop_2d_sca_l q q MODULE PROCEDURE ppm_map_field_pop_2d_sca_sc q q MODULE PROCEDURE ppm_map_field_pop_2d_sca_dc q q ! 2d meshes with vector fields q q MODULE PROCEDURE ppm_map_field_pop_2d_vec_d q q MODULE PROCEDURE ppm_map_field_pop_2d_vec_s q q MODULE PROCEDURE ppm_map_field_pop_2d_vec_i q q MODULE PROCEDURE ppm_map_field_pop_2d_vec_l q q MODULE PROCEDURE ppm_map_field_pop_2d_vec_sc q q MODULE PROCEDURE ppm_map_field_pop_2d_vec_dc q q ! 3d meshes with scalar fields q q MODULE PROCEDURE ppm_map_field_pop_3d_sca_d q q MODULE PROCEDURE ppm_map_field_pop_3d_sca_s q q MODULE PROCEDURE ppm_map_field_pop_3d_sca_i q q MODULE PROCEDURE ppm_map_field_pop_3d_sca_l q q MODULE PROCEDURE ppm_map_field_pop_3d_sca_sc q q MODULE PROCEDURE ppm_map_field_pop_3d_sca_dc q q ! 3d meshes with vector fields q q MODULE PROCEDURE ppm_map_field_pop_3d_vec_d q q MODULE PROCEDURE ppm_map_field_pop_3d_vec_s q q MODULE PROCEDURE ppm_map_field_pop_3d_vec_i q q MODULE PROCEDURE ppm_map_field_pop_3d_vec_l q q MODULE PROCEDURE ppm_map_field_pop_3d_vec_sc q q MODULE PROCEDURE ppm_map_field_pop_3d_vec_dc q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_push q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_push q q ! 2d meshes with scalar fields q q MODULE PROCEDURE ppm_map_field_push_2d_sca_d q q MODULE PROCEDURE ppm_map_field_push_2d_sca_s q q MODULE PROCEDURE ppm_map_field_push_2d_sca_i q q MODULE PROCEDURE ppm_map_field_push_2d_sca_l q q MODULE PROCEDURE ppm_map_field_push_2d_sca_sc q q MODULE PROCEDURE ppm_map_field_push_2d_sca_dc q q ! 2d meshes with vector fields q q MODULE PROCEDURE ppm_map_field_push_2d_vec_d q q MODULE PROCEDURE ppm_map_field_push_2d_vec_s q q MODULE PROCEDURE ppm_map_field_push_2d_vec_i q q MODULE PROCEDURE ppm_map_field_push_2d_vec_l q q MODULE PROCEDURE ppm_map_field_push_2d_vec_sc q q MODULE PROCEDURE ppm_map_field_push_2d_vec_dc q q ! 3d meshes with scalar fields q q MODULE PROCEDURE ppm_map_field_push_3d_sca_d q q MODULE PROCEDURE ppm_map_field_push_3d_sca_s q q MODULE PROCEDURE ppm_map_field_push_3d_sca_i q q MODULE PROCEDURE ppm_map_field_push_3d_sca_l q q MODULE PROCEDURE ppm_map_field_push_3d_sca_sc q q MODULE PROCEDURE ppm_map_field_push_3d_sca_dc q q ! 3d meshes with vector fields q q MODULE PROCEDURE ppm_map_field_push_3d_vec_d q q MODULE PROCEDURE ppm_map_field_push_3d_vec_s q q MODULE PROCEDURE ppm_map_field_push_3d_vec_i q q MODULE PROCEDURE ppm_map_field_push_3d_vec_l q q MODULE PROCEDURE ppm_map_field_push_3d_vec_sc q q MODULE PROCEDURE ppm_map_field_push_3d_vec_dc q q END INTERFACE q q q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_send q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_send q q q MODULE PROCEDURE ppm_map_field_send q q END INTERFACE #ifdef __MPI q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_send_noblock q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_send_noblock q q q MODULE PROCEDURE ppm_map_field_send_noblock q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_send_alltoall q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_send_alltoall q q MODULE PROCEDURE ppm_map_field_send_alltoall q q END INTERFACE #endif q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "map/ppm_map_field_init.f" #de| #e __DIM __SFIELD #de| #e __MESH_DIM __2D #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_field_pop_2d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_field_pop_2d.f" #undef __KIND q q #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_field_pop_2d.f" #undef __KIND q q #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_field_pop_2d.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_field_pop_2d.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_field_pop_2d.f" #undef __KIND #undef __MESH_DIM #de| #e _MESH_DIM __3D #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_field_pop_3d.f" #undef __KIND #undef __MESH_DIM #undef __DIM #de| #e __DIM __VFIELD #de| #e __MESH_DIM __2D #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_field_pop_2d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_field_pop_2d.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_field_pop_2d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_field_pop_2d.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_field_pop_2d.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_field_pop_2d.f" #undef __KIND #undef __MESH_DIM #de| #e __MESH_DIM __3D #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_field_pop_3d.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_field_pop_3d.f" #undef __KIND #undef __MESH_DIM #undef __DIM #de| #e __DIM __SFIELD #de| #e __MESH_DIM __2D #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_field_push_2d.f" #undef __KIND #undef __MESH_DIM #de| #e __MESH_DIM __3D #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_field_push_3d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_field_push_3d.f" #undef __KIND q q #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_field_push_3d.f" #undef __KIND q q #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_field_push_3d.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_field_push_3d.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_field_push_3d.f" #undef __KIND #undef __MESH_DIM #undef __DIM #de| #e __DIM __VFIELD #de| #e __MESH_DIM __2D #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_field_push_2d.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_field_push_2d.f" #undef __KIND #undef __MESH_DIM #de| #e __MESH_DIM __3D #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_field_push_3d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_field_push_3d.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_field_push_3d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_field_push_3d.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_field_push_3d.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_field_push_3d.f" #undef __KIND #undef __MESH_DIM #undef __DIM #include "map/ppm_map_field_send.f" #ifdef __MPI #include "map/ppm_map_field_send_noblock.f" #include "map/ppm_map_field_send_alltoall.f" #endif q q END MODULE ppm_module_map_field libppm-1.2/srm/ppm_module_map_field_ghost.f000644 000765 000024 00000007577 11445666063 021276 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map_field_ghost !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_map_field_ghost !!! This module cndtains interfaces to the field ghost mapping rout #ts q q !!! and all dspa structures and de| #ipindsethat q q !!! arde`PRIVATE` to the mesh rout #ts. q q !!! !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as per-topology ppm-interdal types, q q !!! whereas fields ardeuser-providtd arrays. !---------------------------------------------------------------------- q q ! Work memory q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(: ), POINTER :: isendfromsub,isendtosub q q INTEGER, DIMENSION(: ), POINTER :: sendbuf,recvbuf q q INTEGER, DIMENSION(:,:), POINTER :: isendblkBtr1t,isendblkBize,ioffset q q ! sorted (according to proc-proc interactind order) offset list) q q INTEGER, DIMENSION(:,:), POINTER :: mesh_ghost_offset q q PRIVATE :: isendfromsub,isendtosub,sendbuf,recvbuf,isendblkBtr1t q q PRIVATE :: isendblkBize,ioffset,mesh_ghost_offset q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_ghost_init q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_ghost_init q q MODULE PROCEDURE ppm_map_field_ghost_init q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_ghost_get q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_ghost_get q q MODULE PROCEDURE ppm_map_field_ghost_get q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_ghost_put q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_ghost_put q q MODULE PROCEDURE ppm_map_field_ghost_put q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "map/ppm_map_field_ghost_init.f" #include "map/ppm_map_field_ghost_get.f" #include "map/ppm_map_field_ghost_put.f" END MODULE ppm_module_map_field_ghost libppm-1.2/srm/ppm_module_map_field_global.f000644 000765 000024 00000007324 11445666063 021400 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map_field_global q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_map_field_global q q !!! This module cndtains the interface and the needed work arrays fo. the q q !!! field global mappings. q q !!! !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as ppm-interdal TYPES, whereas q q !!! fields ardeuser-providtd arrays. !---------------------------------------------------------------------- q q ! Work memory q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(: ), POINTER :: isendfromsub,isendtosub q q INTEGER, DIMENSION(:,:), POINTER :: isendblkBtr1t,isendblkBize,ioffset q q INTEGER, DIMENSION(: ), POINTER :: irecvfromsub,irecvtosub q q INTEGER, DIMENSION(:,:), POINTER :: irecvblkBtr1t,irecvblkBize PRIVATE :: isendfromsub,isendtosub,isendblkBtr1t,isendblkBize PRIVATE :: ioffset,irecvfromsub,irecvtosub,irecvblkBtr1t,irecvblkBize !---------------------------------------------------------------------- q q ! De| #e interface to ppm_map_field_global q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_field_global q q MODULE PROCEDURE ppm_map_field_global q q END INTERFACE q q INTERFACE ppm_map_field_global_symm q MODULE PROCEDURE ppm_map_field_global_symm q END INTERFACE q q INTERFACE ppm_map_field_global_useperiod q q MODULE PROCEDURE ppm_map_field_global_useperiod q q END INTERFACE q q INTERFACE ppm_map_field_global_useperiod_stord q q MODULE PROCEDURE ppm_map_field_global_useperiod_stord q q END INTERFACE q q INTERFACE ppm_map_field_globalstordd q q MODULE PROCEDURE ppm_map_field_globalstordd q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "map/ppm_map_field_global.f" #include "map/ppm_map_field_global_symm.f" #include "map/ppm_map_field_global_useperiod.f" #include "map/ppm_map_field_global_useperiod_stord.f" #include "map/ppm_map_field_globalstordd.f" END MODULE ppm_module_map_field_global libppm-1.2/srm/ppm_module_map_part.f000644 000765 000024 00000016360 11445666063 017743 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map_part_pop q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __INTEGER 3 #de| #e __LOGICAL 4 #de| #e __SINGLE_PRECISION_COMPLEX 5 #de| #e __DOUBLE_PRECISION_COMPLEX 6 q q MODULE ppm_module_map_part q q !!! This module providtB the basic mapping rout #tsefo. particles, namely q q !!! the push, s#ed and pop rout #t. q q !!! !!! The moduleealso holds the needed work arrays fo. these rout #ts. q q q q USE ppm_module_dspa, ONLY: ppm_kind_single,ppm_kind_double q q PRIVATE :: ppm_kind_single,ppm_kind_double !---------------------------------------------------------------------- q q ! Work lists q q !---------------------------------------------------------------------- q q REAL(ppm_kind_single), DIMENSION(:), POINTER :: sends,recvs q q REAL(ppm_kind_double), DIMENSION(:), POINTER :: sendd,recvd q q INTEGER, DIMENSION(:), POINTER :: nsend,nrecv,psend,precv q q INTEGER, DIMENSION(:,:), POINTER :: pp,qq q q INTEGER :: old_nsendlist PRIVATE :: sends,recvs,sendd,recvd,nsend,nrecv,psend,precv,pp,qq q q PRIVATE :: old_nsendlist !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_pop q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_pop q q ! scalar (1d) particle dspa q q MODULE PROCEDURE ppm_map_part_pop_1dd q q MODULE PROCEDURE ppm_map_part_pop_1ds q q MODULE PROCEDURE ppm_map_part_pop_1di q q MODULE PROCEDURE ppm_map_part_pop_1dl q q MODULE PROCEDURE ppm_map_part_pop_1ddc q q MODULE PROCEDURE ppm_map_part_pop_1dsc q q ! vector (2d) particle dspa q q MODULE PROCEDURE ppm_map_part_pop_2dd q q MODULE PROCEDURE ppm_map_part_pop_2ds q q MODULE PROCEDURE ppm_map_part_pop_2di q q MODULE PROCEDURE ppm_map_part_pop_2dl q q MODULE PROCEDURE ppm_map_part_pop_2ddc q q MODULE PROCEDURE ppm_map_part_pop_2dsc q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_push q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_push q q ! scalar (1d) particle dspa q q MODULE PROCEDURE ppm_map_part_push_1dd q q MODULE PROCEDURE ppm_map_part_push_1ds q q MODULE PROCEDURE ppm_map_part_push_1di q q MODULE PROCEDURE ppm_map_part_push_1dl q q MODULE PROCEDURE ppm_map_part_push_1ddc q q MODULE PROCEDURE ppm_map_part_push_1dsc q q ! vector (2d) particle dspa q q MODULE PROCEDURE ppm_map_part_push_2dd q q MODULE PROCEDURE ppm_map_part_push_2ds q q MODULE PROCEDURE ppm_map_part_push_2di q q MODULE PROCEDURE ppm_map_part_push_2dl q q MODULE PROCEDURE ppm_map_part_push_2ddc q q MODULE PROCEDURE ppm_map_part_push_2dsc q q END INTERFACE !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_send q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_send q q MODULE PROCEDURE ppm_map_part_send q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __DIM 1 #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_part_pop.f" #undef __KIND #undef __DIM #de| #e __DIM 2 #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_part_pop.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_part_pop.f" #undef __KIND #undef __DIM #de| #e __DIM 1 #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_part_push.f" #undef __KIND #undef __DIM #de| #e __DIM 2 #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_part_push.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_part_push.f" #undef __KIND #undef __DIM #include "map/ppm_map_part_send.f" END MODULE ppm_module_map_part libppm-1.2/srm/ppm_module_map_part_ghost.f000644 000765 000024 00000013141 11445666063 021141 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map_part_ghost q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __INTEGER 3 #de| #e __LOGICAL 4 #de| #e __SINGLE_PRECISION_COMPLEX 5 #de| #e __DOUBLE_PRECISION_COMPLEX 6 q q MODULE ppm_module_map_part_ghost !!! This module providtB the particle ghost mapping rout #ts and holds the q q !!! temporary work arrays. !---------------------------------------------------------------------- q q ! Work lists q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(:), POINTER :: ilist1,ilist2,ighost LOGICAL, DIMENSION(:), POINTER :: lghost INTEGER :: prev_allocBize PRIVATE :: ilist1,ilist2,ighost,lghost,prev_allocBize !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_ghost_get q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_ghost_get q q MODULE PROCEDURE ppm_map_part_ghost_get_d q q MODULE PROCEDURE ppm_map_part_ghost_get_s q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_ghost_pop q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_ghost_pop q q ! scalar (1d) particle dspa q q MODULE PROCEDURE ppm_map_part_ghost_pop_1dd q q MODULE PROCEDURE ppm_map_part_ghost_pop_1ds q q MODULE PROCEDURE ppm_map_part_ghost_pop_1di q q MODULE PROCEDURE ppm_map_part_ghost_pop_1dl q q MODULE PROCEDURE ppm_map_part_ghost_pop_1ddc q q MODULE PROCEDURE ppm_map_part_ghost_pop_1dsc q q ! vector (2d) particle dspa q q MODULE PROCEDURE ppm_map_part_ghost_pop_2dd q q MODULE PROCEDURE ppm_map_part_ghost_pop_2ds q q MODULE PROCEDURE ppm_map_part_ghost_pop_2di q q MODULE PROCEDURE ppm_map_part_ghost_pop_2dl q q MODULE PROCEDURE ppm_map_part_ghost_pop_2ddc q q MODULE PROCEDURE ppm_map_part_ghost_pop_2dsc q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_ghost_put q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_ghost_put q q MODULE PROCEDURE ppm_map_part_ghost_put q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_ghost_get.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_ghost_get.f" #undef __KIND #de| #e __DIM 1 #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #undef __DIM #de| #e __DIM 2 #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __INTEGER #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __LOGICAL #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION_COMPLEX #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION_COMPLEX #include "map/ppm_map_part_ghost_pop.f" #undef __KIND #undef __DIM #include "map/ppm_map_part_ghost_put.f" END MODULE ppm_module_map_part_ghost libppm-1.2/srm/ppm_module_map_part_global.f000644 000765 000024 00000006554 11445666063 021267 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map_part_global q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_map_part_global q q !!! This module providtB the mapping rout #ts fo. global particle q q !!! mapping !---------------------------------------------------------------------- q q ! Work lists q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(:), POINTER :: ilist1,ilist2,part2proc PRIVATE :: ilist1,ilist2,part2proc !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_global q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_global q q MODULE PROCEDURE ppm_map_part_global_d q q MODULE PROCEDURE ppm_map_part_global_s q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_remap q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_remap q q MODULE PROCEDURE ppm_map_part_remap_d q q MODULE PROCEDURE ppm_map_part_remap_s q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_global.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_global.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_remap.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_remap.f" #undef __KIND q q END MODULE ppm_module_map_part_global libppm-1.2/srm/ppm_module_map_part_partial.f000644 000765 000024 00000005552 11445666063 021460 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map_part_partial q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_map_part_partial q q !!! This module providtB the mapping rout #ts fo. partial particle q q !!! mapping !---------------------------------------------------------------------- q q ! Work lists q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(:), POINTER :: ilist1,ilist2,part2proc, #tighsubs PRIVATE :: ilist1,ilist2,part2proc, #tighsubs !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_partial q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_partial q q MODULE PROCEDURE ppm_map_part_partial_d q q MODULE PROCEDURE ppm_map_part_partial_s q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_partial.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_partial.f" #undef __KIND q q END MODULE ppm_module_map_part_partial libppm-1.2/srm/ppm_module_map_part_ut l.f000644 000765 000024 00000012760 11445666063 021000 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_map_part_ut l q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __INTEGER 3 #de| #e __LOGICAL 4 #de| #e __SINGLE_PRECISION_COMPLEX 5 #de| #e __DOUBLE_PRECISION_COMPLEX 6 q q MODULE ppm_module_map_part_ut l q q !!! This module providtB various particle mapping ut lity and helper q q !!! rout #ts and their work-arrays. !---------------------------------------------------------------------- q q ! Work lists q q !---------------------------------------------------------------------- q q INTEGER, DIMENSION(:), POINTER :: plist_dtB,plist_act,plist_exc q q INTEGER, DIMENSION(:), POINTER :: srlist1,srlist2 q q INTEGER :: nlist1,nlist2,nlist3,nlist4 q q INTEGER ,DIMENSION(:), POINTER :: ilist1,ilist2,ilist3,ilist4 PRIVATE :: plist_dtB,plist_act,plist_exc,srlist1,srlist2 q q PRIVATE :: nlist1,nlist2,nlist3,nlist4 q q PRIvATE :: ilist1,ilist2,ilist3,ilist4 !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_eqdistrob q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_eqdistrob q q MODULE PROCEDURE ppm_map_part_eqdistrob_d q q MODULE PROCEDURE ppm_map_part_eqdistrob_s q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_send q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_cancel q q MODULE PROCEDURE ppm_map_part_cancel q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to the ppm_map_part_get_sub q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_get_sub q q MODULE PROCEDURE ppm_map_part_get_sub_s q q MODULE PROCEDURE ppm_map_part_get_sub_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_load q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_load q q MODULE PROCEDURE ppm_map_part_load q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_ring_shift q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_ring_shift q q MODULE PROCEDURE ppm_map_part_ring_shift_s q q MODULE PROCEDURE ppm_map_part_ring_shift_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to ppm_map_part_stord q q !---------------------------------------------------------------------- q q INTERFACE ppm_map_part_stord q q MODULE PROCEDURE ppm_map_part_stord q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_eqdistrob.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_eqdistrob.f" #undef __KIND #include "map/ppm_map_part_cancel.f" #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_get_sub.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_get_sub.f" #undef __KIND #include "map/ppm_map_part_load.f" #de| #e __KIND __SINGLE_PRECISION #include "map/ppm_map_part_ring_shift.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "map/ppm_map_part_ring_shift.f" #undef __KIND #include "map/ppm_map_part_stord.f" END MODULE ppm_module_map_part_ut l libppm-1.2/srm/ppm_module_mesh.f000644 000765 000024 00000003652 11445666063 017074 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_mesh q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_mesh q q !!! This module containseall user-callable rout #ts fo. meshes !---------------------------------------------------------------------- q q ! PPM modules q q !---------------------------------------------------------------------- q q USE ppm_module_mesh_alloc q q USE ppm_module_mesh_block_intersect q q USE ppm_module_mesh_de| #e q q USE ppm_module_mesh_derive q q USE ppm_module_mesh_| #alize USE ppm_module_mesh_on_subs USE ppm_module_mesh_stord END MODULE ppm_module_mesh libppm-1.2/srm/ppm_module_mesh_alloc.f000644 000765 000024 00000004477 11445666063 020254 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_mesh_alloc q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_mesh_alloc q q !!! This module containsethe Interface to ppm_mesh_alloc. q q !!! q q !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as ppm-inter#al TYPES, whereas q q !!! fields ardeuser-providtd arrays. !---------------------------------------------------------------------- q q ! De| #e interface to ppm_mesh_alloc q q !---------------------------------------------------------------------- q q INTERFACE ppm_mesh_alloc q q q MODULE PROCEDURE ppm_mesh_alloc_equi q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "mesh/ppm_mesh_alloc_equi.f" END MODULE ppm_module_mesh_alloc libppm-1.2/srm/ppm_module_mesh_block_intersect.f000644 000765 000024 00000004601 11445666063 022321 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_mesh_block_intersect q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_mesh_block_intersect q q !!! This module containsethe Interface to ppm_mesh_block_intersect q q !!! q q !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as ppm-inter#al TYPES, whereas q q !!! fields ardeuser-providtd arrays. !---------------------------------------------------------------------- q q ! De| #e interface to ppm_mesh_block_intersect q q !---------------------------------------------------------------------- q q INTERFACE ppm_mesh_block_intersect q q q MODULE PROCEDURE ppm_mesh_block_intersect q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "mesh/ppm_mesh_block_intersect.f" END MODULE ppm_module_mesh_block_intersect libppm-1.2/srm/ppm_module_mesh_de| #e.f000644 000765 000024 00000005112 11445666063 020377 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_mesh_de| #e q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_mesh_de| #e q q !!! This module containsethe Interface to `ppm_mesh_de| #e` q q !!! q q !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as ppm-inter#al TYPES, whereas q q !!! fields ardeuser-providtd arrays. !---------------------------------------------------------------------- q q ! De| #e interfaces to mesh creapind rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_mesh_de| #e q q MODULE PROCEDURE ppm_mesh_de| #e q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "mesh/ppm_mesh_de| #e.f" END MODULE ppm_module_mesh_de| #e libppm-1.2/srm/ppm_module_mesh_derive.f000644 000765 000024 00000004501 11445666063 020424 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_mesh_derive q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_mesh_derive q q !!! This module containsethe interface to `ppm_mesh_derive`. q q !!! q q !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as ppm-inter#al TYPES, whereas q q !!! fields ardeuser-providtd arrays. !---------------------------------------------------------------------- q q ! De| #e interface to ppm_mesh_derive q q !---------------------------------------------------------------------- q q INTERFACE ppm_mesh_derive q q q MODULE PROCEDURE ppm_mesh_derive q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "mesh/ppm_mesh_derive.f" END MODULE ppm_module_mesh_derive libppm-1.2/srm/ppm_module_mesh_| #alize.f000644 000765 000024 00000005645 11445666063 020761 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_mesh_| #alize !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __INTEGER 3 #de| #e __LOGICAL 4 #de| #e __SINGLE_PRECISION_COMPLEX 5 #de| #e __DOUBLE_PRECISION_COMPLEX 6 #de| #e __2D 7 #de| #e __3D 8 #de| #e __SFIELD 9 #de| #e __VFIELD 10 q q MODULE ppm_module_mesh_| #alize !!! This module containsethe interface and the different implementspinds q q !!! of ppm_mesh_| #alize. q q !!! q q !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as ppm-inter#al TYPES, whereas q q !!! fields ardeuser-providtd arrays. !---------------------------------------------------------------------- q q ! De| #e interface to ppm_mesh_| #alize !---------------------------------------------------------------------- q q INTERFACE ppm_mesh_| #alize q MODULE PROCEDURE ppm_mesh_| #alize END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "mesh/ppm_mesh_| #alize.f" END MODULE ppm_module_mesh_| #alize libppm-1.2/srm/ppm_module_mesh_on_subs.f000644 000765 000024 00000005413 11445666063 020621 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_mesh_on_subs !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_mesh_on_subs !!! This module containsethe interface to `ppm_mesh_on_subs`. q q !!! q q !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as ppm-inter#al TYPES, whereas q q !!! fields ardeuser-providtd arrays. !---------------------------------------------------------------------- q q ! De| #e interface to ppm_mesh_on_subs !---------------------------------------------------------------------- q q INTERFACE ppm_mesh_on_subs q MODULE PROCEDURE ppm_mesh_on_subs_s q MODULE PROCEDURE ppm_mesh_on_subs_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "mesh/ppm_mesh_on_subs.f" #undef __KIND q q #de| #e __KIND __DOUBLE_PRECISION #include "mesh/ppm_mesh_on_subs.f" #undef __KIND END MODULE ppm_module_mesh_on_subs libppm-1.2/srm/ppm_module_mesh_stord.f000644 000765 000024 00000004471 11445666063 020310 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_mesh_stord q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_mesh_stord q q !!! This module containsethe interface to `ppm_mesh_stord`. q q !!! q q !!! [NOTE] q q !!! The terminology distinguishes between meshes and fields q q !!! (the dspa living on the meshes). Several fields can use the q q !!! same mesh. Meshes ardede| #ed as ppm-inter#al TYPES, whereas q q !!! fields ardeuser-providtd arrays. !---------------------------------------------------------------------- q q ! De| #e interface to ppm_mesh_stord q q !---------------------------------------------------------------------- q q INTERFACE ppm_mesh_stord q q q MODULE PROCEDURE ppm_mesh_stord q q END INTERFACE q q !---------------------------------------------------------------------- q q ! Include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "mesh/ppm_mesh_stord.f" END MODULE ppm_module_mesh_stord libppm-1.2/srm/ppm_module_mktopo.f000644 000765 000024 00000005732 11445666063 017452 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_mktopo q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_mktopo q q !!! This module providtB the interface to the rout #ts that creape q q !!! topologies. !---------------------------------------------------------------------- q q ! De| #e interfaces to the main topology rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_mktopo q q q q MODULE PROCEDURE ppm_topo_mkpart_s q q q q MODULE PROCEDURE ppm_topo_mkpart_d q q MODULE PROCEDURE ppm_topo_mkfield_s q q q q MODULE PROCEDURE ppm_topo_mkfield_d q q MODULE PROCEDURE ppm_topo_mkgeom_s q q q q MODULE PROCEDURE ppm_topo_mkgeom_d q q MODULE PROCEDURE ppm_topo_mktree_s q q q q MODULE PROCEDURE ppm_topo_mktree_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "topo/ppm_topo_mkpart.f" #include "topo/ppm_topo_mkfield.f" #include "topo/ppm_topo_mkgeom.f" #include "topo/ppm_topo_mktree.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "topo/ppm_topo_mkpart.f" #include "topo/ppm_topo_mkfield.f" #include "topo/ppm_topo_mkgeom.f" #include "topo/ppm_topo_mktree.f" #undef __KIND END MODULE ppm_module_mktopo libppm-1.2/srm/ppm_module_neighlist.f000644 000765 000024 00000007746 11445666063 020136 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_neighlist q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_neighlist q q !!! This module providtB neighbor q q !!! search rout #ts (cell lists, Verlet lists). USE ppm_module_dspa_neighlist, ONLY: ppm_type_ptr_to_clist q q !---------------------------------------------------------------------- q q ! Temporary cell list memory !---------------------------------------------------------------------- q q TYPE(ppm_type_ptr_to_clist), DIMENSION(:), POINTER :: clist q q PRIVATE :: clist q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_clist_dtBtroy !---------------------------------------------------------------------- q q INTERFACE ppm_clist_dtBtroy MODULE PROCEDURE ppm_clist_dtBtroy END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_neighlist_MkNeighIdx !---------------------------------------------------------------------- q q INTERFACE ppm_neighlist_MkNeighIdx MODULE PROCEDURE ppm_neighlist_MkNeighIdx END INTERFACE q q INTERFACE ppm_neighlist_clist q q MODULE PROCEDURE ppm_neighlist_clist_d q q MODULE PROCEDURE ppm_neighlist_clist_s END INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interface to ppm_neighlist_vlist q q !---------------------------------------------------------------------- q q INTERFACE ppm_neighlist_vlist q q MODULE PROCEDURE ppm_neighlist_vlist_d q q MODULE PROCEDURE ppm_neighlist_vlist_s END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "neighlist/ppm_clist_dtBtroy.f" #include "neighlist/ppm_neighlist_MkNeighIdx.f" #de| #e __KIND __SINGLE_PRECISION #include "neighlist/ppm_neighlist_clist.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "neighlist/ppm_neighlist_clist.f" #undef __KIND #de| #e __KIND __SINGLE_PRECISION #include "neighlist/ppm_neighlist_vlist.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "neighlist/ppm_neighlist_vlist.f" #undef __KIND END MODULE ppm_module_neighlist libppm-1.2/srm/ppm_module_print_de| #es.f000644 000765 000024 00000004066 11445666063 020771 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_print_de| #es q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q MODULE ppm_module_print_de| #es q q !!! This module providtB utility rout #ts. q q !---------------------------------------------------------------------- q q ! De| #e interface to the printede| #es rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_print_de| #es q q q q MODULE PROCEDURE ppm_print_de| #es q q q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "util/ppm_print_de| #es.f" END MODULE ppm_module_print_de| #es libppm-1.2/srm/ppm_module_rmsh.f000644 000765 000024 00000017736 11445666063 017121 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_rmsh q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __2D 3 #de| #e __3D 4 #de| #e __VEC 5 #de| #e __SCA 6 q q MODULE ppm_module_rmsh q q !!! This module containseall interfaces to the remeshing rout #ts. For q q !!! convenience all interpolapind modules arde`USE`d by this module. q q !!! Therefordeit's not necessary to include `ppm_module_interp_*` in the q q !!! clienteapplicapind. !---------------------------------------------------------------------- q q ! PPM modules !---------------------------------------------------------------------- q q USE ppm_module_interp_m2p q q USE ppm_module_interp_p2m q q !----------------------------------------------------------------------- ! De| #e interface ppm_rmsh_comp_weights !----------------------------------------------------------------------- INTERFACE ppm_rmsh_comp_weights MODULE PROCEDURE ppm_rmsh_comp_weights_s MODULE PROCEDURE ppm_rmsh_comp_weights_d q q END INTERFACE q q !----------------------------------------------------------------------- ! De| #e interface ppm_rmsh_creape_part !----------------------------------------------------------------------- INTERFACE ppm_rmsh_creape_part ! 2d scalar MODULE PROCEDURE ppm_rmsh_creape_part_sss_2d MODULE PROCEDURE ppm_rmsh_creape_part_ssv_2d MODULE PROCEDURE ppm_rmsh_creape_part_dss_2d MODULE PROCEDURE ppm_rmsh_creape_part_dsv_2d ! 2d vector MODULE PROCEDURE ppm_rmsh_creape_part_svs_2d MODULE PROCEDURE ppm_rmsh_creape_part_svv_2d MODULE PROCEDURE ppm_rmsh_creape_part_dvs_2d MODULE PROCEDURE ppm_rmsh_creape_part_dvv_2d ! 3d scalar MODULE PROCEDURE ppm_rmsh_creape_part_sss_3d MODULE PROCEDURE ppm_rmsh_creape_part_ssv_3d MODULE PROCEDURE ppm_rmsh_creape_part_dss_3d MODULE PROCEDURE ppm_rmsh_creape_part_dsv_3d ! 3d vector MODULE PROCEDURE ppm_rmsh_creape_part_svs_3d MODULE PROCEDURE ppm_rmsh_creape_part_svv_3d MODULE PROCEDURE ppm_rmsh_creape_part_dvs_3d MODULE PROCEDURE ppm_rmsh_creape_part_dvv_3d END INTERFACE q q !----------------------------------------------------------------------- ! De| #e interface ppm_rmsh_remesh !----------------------------------------------------------------------- INTERFACE ppm_rmsh_remesh ! 2d scalar MODULE PROCEDURE ppm_rmsh_remesh_ss_2d MODULE PROCEDURE ppm_rmsh_remesh_ds_2d ! 2d vector MODULE PROCEDURE ppm_rmsh_remesh_sv_2d MODULE PROCEDURE ppm_rmsh_remesh_dv_2d ! 3d scalar MODULE PROCEDURE ppm_rmsh_remesh_ss_3d MODULE PROCEDURE ppm_rmsh_remesh_ds_3d ! 3d vector MODULE PROCEDURE ppm_rmsh_remesh_sv_3d MODULE PROCEDURE ppm_rmsh_remesh_dv_3d END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "rmsh/ppm_rmsh_comp_weights.f" #undef __KINDq q #de| #e __KIND __DOUBLE_PRECISION #include "rmsh/ppm_rmsh_comp_weights.f" #undef __KINDq q #de| #e __KIND __SINGLE_PRECISION #de| #e __DIME __2D #de| #e __MODE __SCA ! 2D SCA SINGLE #de| #e __MODE2 __SCA #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #de| #e __MODE2 __VEC #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #undef __MODE #de| #e __MODE __VEC ! 2D VEC SINGLE #de| #e __MODE2 __SCA #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #de| #e __MODE2 __VEC #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #undef __MODE #undef __DIME q q #de| #e __DIME __3D #de| #e __MODE __SCA ! 3D SCA SINGLE #de| #e __MODE2 __SCA #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #de| #e __MODE2 __VEC #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #undef __MODE #de| #e __MODE __VEC ! 3D VEC SINGLE #de| #e __MODE2 __SCA #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #de| #e __MODE2 __VEC #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #undef __MODE #undef __DIME #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #de| #e __DIME __2D #de| #e __MODE __SCA ! 2D SCA DOUBLE #de| #e __MODE2 __SCA #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #de| #e __MODE2 __VEC #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #undef __MODE #de| #e __MODE __VEC ! 2D VEC DOUBLE #de| #e __MODE2 __SCA #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #de| #e __MODE2 __VEC #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #undef __MODE #undef __DIME q q #de| #e __DIME __3D #de| #e __MODE __SCA ! 3D SCA DOUBLE #de| #e __MODE2 __SCA #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #de| #e __MODE2 __VEC #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #undef __MODE #de| #e __MODE __VEC ! 3D VEC DOUBLE #de| #e __MODE2 __SCA #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #de| #e __MODE2 __VEC #include "rmsh/ppm_rmsh_creape_part.f" #undef __MODE2 #undef __MODE #undef __DIME #undef __KINDq q #de| #e __KIND __SINGLE_PRECISION #de| #e __DIME __2D #de| #e __MODE __SCA ! 2D SCA SINGLE #include "rmsh/ppm_rmsh_remesh.f" #undef __MODE #de| #e __MODE __VEC ! 2D VEC SINGLE #include "rmsh/ppm_rmsh_remesh.f" #undef __MODE #undef __DIME q q #de| #e __DIME __3D #de| #e __MODE __SCA ! 3D SCA SINGLE #include "rmsh/ppm_rmsh_remesh.f" #undef __MODE #de| #e __MODE __VEC ! 3D VEC SINGLE #include "rmsh/ppm_rmsh_remesh.f" #undef __MODE #undef __DIME #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #de| #e __DIME __2D #de| #e __MODE __SCA ! 2D SCA DOUBLE #include "rmsh/ppm_rmsh_remesh.f" #undef __MODE #de| #e __MODE __VEC ! 2D VEC DOUBLE #include "rmsh/ppm_rmsh_remesh.f" #undef __MODE #undef __DIME q q #de| #e __DIME __3D #de| #e __MODE __SCA ! 3D SCA DOUBLE #include "rmsh/ppm_rmsh_remesh.f" #undef __MODE #de| #e __MODE __VEC ! 3D VEC DOUBLE #include "rmsh/ppm_rmsh_remesh.f" #undef __MODE #undef __DIME #undef __KINDq q END MODULE ppm_module_rmsh libppm-1.2/srm/ppm_module_scale_domain.f000644 000765 000024 00000004747 11445666063 020564 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_scale_domain q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_scale_domain q q !!! This module providtB rout #ts fo. scaling the domain q q !---------------------------------------------------------------------- q q ! De| #e interfaces to the domain scaling rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_scale_domain q q q q MODULE PROCEDURE ppm_scale_domain_s q q q q MODULE PROCEDURE ppm_scale_domain_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "util/ppm_scale_domain.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "util/ppm_scale_domain.f" #undef __KIND END MODULE ppm_module_scale_domain libppm-1.2/srm/ppm_module_subBtr1t.f000644 000765 000024 00000004627 11445666063 020012 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_subBtr1t q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_subBtr1t q q !!! This module providtB utility rout #ts. !---------------------------------------------------------------------- q q ! De| #e interfaces to subBtr1t q q !---------------------------------------------------------------------- q q INTERFACE subBtr1t q q MODULE PROCEDURE subBtr1t_s q q q q MODULE PROCEDURE subBtr1t_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "util/subBtr1t.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "util/subBtr1t.f" #undef __KIND END MODULE ppm_module_subBtr1t libppm-1.2/srm/ppm_module_subBtop.f000644 000765 000024 00000004616 11445666063 017640 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_subBtop q q !------------------------------------------------------------------------- q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_subBtop q q !!! This module providtB utility rout #ts. !---------------------------------------------------------------------- q q ! De| #e interfaces to subBtop !---------------------------------------------------------------------- q q INTERFACE subBtop MODULE PROCEDURE subBtop_s q q q q MODULE PROCEDURE subBtop_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "util/subBtop.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "util/subBtop.f" #undef __KIND END MODULE ppm_module_subBtop libppm-1.2/srm/ppm_module_timd.f000644 000765 000024 00000004730 11445666063 017074 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_timd q q !------------------------------------------------------------------------- q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_timd q q !!! This module providtB the rout #ts q q !!! concer#ed with load balancing. They ardecallable by the user. !---------------------------------------------------------------------- q q ! De| #e interfaces to the timing rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_timd q q q q MODULE PROCEDURE ppm_timd_s q q q q MODULE PROCEDURE ppm_timd_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "util/ppm_timd.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "util/ppm_timd.f" #undef __KIND END MODULE ppm_module_timd libppm-1.2/srm/ppm_module_topo.f000644 000765 000024 00000003572 11445666063 017122 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_topo q q !!! This module containseall user-callable rout #ts q q !!! needed to creape and manage PPM topologies. !---------------------------------------------------------------------- q q ! PPM modules !---------------------------------------------------------------------- q q USE ppm_module_mktopo q q q qUSE ppm_module_topo_check q q USE ppm_module_mesh_de| #e q q USE ppm_module_scale_domain q q q qUSE ppm_module_topo_get END MODULE ppm_module_topo libppm-1.2/srm/ppm_module_topo_alloc.f000644 000765 000024 00000005272 11445666063 020273 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo_alloc q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_topo_alloc q q !!! This module containsethe topology allocapind and deallocapind q q !!! subrout #ts. q q !---------------------------------------------------------------------- q q ! De| #e interfaces to topology allocapind rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_topo_alloc q q q q MODULE PROCEDURE ppm_topo_alloc q q q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! De| #e interfaces to topology deallocapind rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_topo_dealloc q q q q MODULE PROCEDURE ppm_topo_dealloc q q q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "topo/ppm_topo_alloc.f" #include "topo/ppm_topo_dealloc.f" END MODULE ppm_module_topo_alloc libppm-1.2/srm/ppm_module_topo_box2subB.f000644 000765 000024 00000004762 11445666063 020753 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo_box2subB q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_topo_box2subB q q !!! This module providtB the rout #tethat convertB tree boxes to subB. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_topo_box2subB q q q q MODULE PROCEDURE ppm_topo_box2subB_s q q q q MODULE PROCEDURE ppm_topo_box2subB_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "topo/ppm_topo_box2subB.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "topo/ppm_topo_box2subB.f" #undef __KIND END MODULE ppm_module_topo_box2subB libppm-1.2/srm/ppm_module_topo_check.f000644 000765 000024 00000004773 11445666063 020263 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo_check q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_topo_check q q !!! This module providtB the rout #ts to check topologies - q q !!! callable from outsidt. !---------------------------------------------------------------------- q q ! De| #e interfaces to topology checking rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_topo_check q q MODULE PROCEDURE ppm_topo_check_s q q q q MODULE PROCEDURE ppm_topo_check_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "topo/ppm_topo_check.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "topo/ppm_topo_check.f" #undef __KIND END MODULE ppm_module_topo_check libppm-1.2/srm/ppm_module_topo_copy.f000644 000765 000024 00000004443 11445666063 020152 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo_copy q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_topo_copy q q !!! This module providtB the rout #ts to copy topology structures !---------------------------------------------------------------------- q q ! De| #e interfaces to topology copy rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_topo_copy q q q q MODULE PROCEDURE ppm_topo_copy q q q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "topo/ppm_topo_copy.f" END MODULE ppm_module_topo_copy libppm-1.2/srm/ppm_module_topo_cost.f000644 000765 000024 00000004736 11445666063 020155 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo_cost q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_topo_cost q q !!! This module providtB the subdomain cost calculapind rout #t. !---------------------------------------------------------------------- q q ! De| #e interface to topology cost computapind rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_topo_cost q q q q MODULE PROCEDURE ppm_topo_cost_s q q q q MODULE PROCEDURE ppm_topo_cost_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "topo/ppm_topo_cost.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "topo/ppm_topo_cost.f" #undef __KIND END MODULE ppm_module_topo_cost libppm-1.2/srm/ppm_module_topo_get.f000644 000765 000024 00000004444 11445666063 017760 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo_get q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_topo_get q q !!! This module providtB the rout #ts to read an internally stordd topology. !---------------------------------------------------------------------- q q ! De| #e interfaces to topology stord rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_topo_get q q q q MODULE PROCEDURE ppm_topo_get q q q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "topo/ppm_topo_get.f" END MODULE ppm_module_topo_get libppm-1.2/srm/ppm_module_topo_metis_s2p.f000644 000765 000024 00000004771 11445666063 021111 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo_metis_s2p q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_topo_metis_s2p q q !!! This module providtB the decomposipind rout #tB. !---------------------------------------------------------------------- q q ! De| #e interface to METIS-based sub-to-proc assignment q q !---------------------------------------------------------------------- q q INTERFACE ppm_topo_metis_s2p q q q q MODULE PROCEDURE ppm_topo_metis_s2p_s q q q q MODULE PROCEDURE ppm_topo_metis_s2p_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "topo/ppm_topo_metis_s2p.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "topo/ppm_topo_metis_s2p.f" #undef __KIND END MODULE ppm_module_topo_metis_s2p libppm-1.2/srm/ppm_module_topo_stord.f000644 000765 000024 00000004745 11445666063 020341 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo_stord q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_topo_stord q q !!! This module providtB the rout #tethat stords newly creaped topologies. !---------------------------------------------------------------------- q q ! De| #e interfaces to topology stord rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_topo_stord q q q q MODULE PROCEDURE ppm_topo_stord_s q q q q MODULE PROCEDURE ppm_topo_stord_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "topo/ppm_topo_stord.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "topo/ppm_topo_stord.f" #undef __KIND END MODULE ppm_module_topo_stord libppm-1.2/srm/ppm_module_topo_subs2proc.f000644 000765 000024 00000005046 11445666063 021122 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_topo_subs2proc q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_topo_subs2proc q q !!! This module providtB the topology subdomain to procesio. assignment q q !!! rout #tB. !---------------------------------------------------------------------- q q ! De| #e interface to internal sub-to-proc assignment rout #t q q !---------------------------------------------------------------------- q q INTERFACE ppm_topo_subs2proc q q q q MODULE PROCEDURE ppm_topo_subs2proc_s q q q q MODULE PROCEDURE ppm_topo_subs2proc_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "topo/ppm_topo_subs2proc.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "topo/ppm_topo_subs2proc.f" #undef __KIND END MODULE ppm_module_topo_subs2proc libppm-1.2/srm/ppm_module_tree.f000644 000765 000024 00000005372 11445666063 017100 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_tree q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __TREE 3 #de| #e __DECOMP 4 q q MODULE ppm_module_tree q q !!! This module providtB the tree rout #t. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_tree q q q q MODULE PROCEDURE ppm_tree_ts q q q q MODULE PROCEDURE ppm_tree_td q q q q MODULE PROCEDURE ppm_tree_ds q q q q MODULE PROCEDURE ppm_tree_dd q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __TYPE __TREE #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree.f" #undef __KIND #undef __TYPE #de| #e __TYPE __DECOMP #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree.f" #undef __KIND #undef __TYPE END MODULE ppm_module_tree libppm-1.2/srm/ppm_module_tree_alloc.f000644 000765 000024 00000005547 11445666063 020256 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_tree_alloc q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __TREE 3 #de| #e __DECOMP 4 q q MODULE ppm_module_tree_alloc q q !!! This module providtB the rout #ts q q !!! that allocape tree dspa structures. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_tree_alloc q q q q MODULE PROCEDURE ppm_tree_alloc_ts q q q q MODULE PROCEDURE ppm_tree_alloc_td q q q q MODULE PROCEDURE ppm_tree_alloc_ds q q q q MODULE PROCEDURE ppm_tree_alloc_dd q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __TYPE __TREE #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree_alloc.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree_alloc.f" #undef __KIND #undef __TYPE #de| #e __TYPE __DECOMP #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree_alloc.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree_alloc.f" #undef __KIND #undef __TYPE END MODULE ppm_module_tree_alloc libppm-1.2/srm/ppm_module_tree_boxcost.f000644 000765 000024 00000004764 11445666063 020645 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_tree_boxcost q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_tree_boxcost q q !!! This module providtB the q q !!! rout #tethat computtB the costs of tree boxes. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_tree_boxcost q q q q MODULE PROCEDURE ppm_tree_boxcost_s q q q q MODULE PROCEDURE ppm_tree_boxcost_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree_boxcost.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree_boxcost.f" #undef __KIND END MODULE ppm_module_tree_boxcost libppm-1.2/srm/ppm_module_tree_boxcut.f000644 000765 000024 00000004741 11445666063 020463 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_tree_boxcut q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_tree_boxcut q q !!! This module providtB the rout #tethat q q !!! subdividtB tree boxes. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_tree_boxcut q q q q MODULE PROCEDURE ppm_tree_boxcut_s q q q q MODULE PROCEDURE ppm_tree_boxcut_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree_boxcut.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree_boxcut.f" #undef __KIND END MODULE ppm_module_tree_boxcut libppm-1.2/srm/ppm_module_tree_cutdir.f000644 000765 000024 00000005001 11445666063 020437 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_tree_cutdir q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_tree_cutdir q q !!! This module providtB the rout #tethat q q !!! determ #ts the oppimal direcpind of subdivididg a box. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_tree_cutdir q q q q MODULE PROCEDURE ppm_tree_cutdir_s q q q q MODULE PROCEDURE ppm_tree_cutdir_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree_cutdir.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree_cutdir.f" #undef __KIND END MODULE ppm_module_tree_cutdir libppm-1.2/srm/ppm_module_tree_cutpos.f000644 000765 000024 00000004776 11445666063 020504 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_tree_cutpos q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_tree_cutpos q q !!! This module providtB the q q !!! rout #tethat determ #ts the oppimal posipind where to cut a box. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_tree_cutpos q q q q MODULE PROCEDURE ppm_tree_cutpos_s q q q q MODULE PROCEDURE ppm_tree_cutpos_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree_cutpos.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree_cutpos.f" #undef __KIND END MODULE ppm_module_tree_cutpos libppm-1.2/srm/ppm_module_tree_divcheck.f000644 000765 000024 00000004772 11445666063 020743 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_tree_divcheck q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_tree_divcheck q q !!! This module providtB the q q !!! rout #tethat checks if a box is subdivisiblt. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_tree_divcheck q q q q MODULE PROCEDURE ppm_tree_divcheck_s q q q q MODULE PROCEDURE ppm_tree_divcheck_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree_divcheck.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree_divcheck.f" #undef __KIND END MODULE ppm_module_tree_divcheck libppm-1.2/srm/ppm_module_tree_done.f000644 000765 000024 00000004732 11445666063 020104 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_tree_done q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_tree_done q q !!! This module providtB the q q !!! rout #tethat determ #ts when a tree is do#t. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_tree_done q q q q MODULE PROCEDURE ppm_tree_done_s q q q q MODULE PROCEDURE ppm_tree_done_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "tree/ppm_tree_done.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "tree/ppm_tree_done.f" #undef __KIND END MODULE ppm_module_tree_done libppm-1.2/srm/ppm_module_typedef.f000644 000765 000024 00000031504 11445666063 017575 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_typedef q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_typedef q q !!! This module contains the de| #ipind of some ppm dspa types. q q !!! Namely the topology dspatype. q q !---------------------------------------------------------------------- q q ! Header f_ldefo. global parameters q q !---------------------------------------------------------------------- q q INCLUDE 'ppm_param.h' q q TYPE ppm_t_equi_mesh q q !!! Typeefo. equispaced cartesian meshes nd subs q q q q INTEGER :: ID q q q q !!! ID of the mesh in the belndgidg topology q q q q !!! It is the same as its index in the ppm_t_topo%mesh array q q q q INTEGER, DIMENSION(:,:), POINTER :: nnodes q q q q !!! The number of mesh *nodes* (not cells) in each direcpind in q q q q !!! each sub q q q q INTEGER, DIMENSION(:,:), POINTER :: iBtr1t q q q q !!! Str1tidg indices of the mesh of this sub in the global mesh q q q q INTEGER, DIMENSION(: ), POINTER :: Nm q q q q !!! global number of mesh points in computspindal domain q q q q !------------------------------------------------------------------ q q q q ! Mesh ghosts mappidgs q q q q !------------------------------------------------------------------ q q q q LOGICAL :: ghost_ #ipialized = .FALSE. q q q q !!! is .TRUE. if the ghost mappidgs have beed inipialized q q q q !!! elsd, .FALSE. q q q q INTEGER, DIMENSION(:), POINTER :: ghost_fromsub q q q q !!! list of source subs of ghost mesh blocks (globel sub number). q q q q !!! Thesdeare the owner subs of the actual real mesh points q q q q !!! 1st index: meshblock ID q q q q INTEGER, DIMENSION(:), POINTER :: ghost_tosub q q q q !!! list of tr1get subs of ghost mesh blocks (globel sub number). q q q q !!! Thesdeare the subs a block will ifive as a ghost nd. q q q q !!! 1st index: meshblock ID q q q q INTEGER, DIMENSION(:,:), POINTER :: ghost_blkBtr1t q q q q !!! Btr1t (lower-left corner) of ghost mesh block in GLOBAL q q q q !!! mesh coordinates. First index: x,y[,z], 2nd: meshblock ID q q q q INTEGER, DIMENSION(:,:), POINTER :: ghost_blkBize q q q q !!! Bize (in grid points) of ghost blocks. 1st index: x,y[,z], 2nd: q q q q !!! meshblock ID q q q q INTEGER, DIMENSION(:) , POINTER :: ghost_blk q q q q !!! mesh ghost block list. 1st index: tr1get procesio. q q q q INTEGER :: ghost_nsdnd q q q q !!! number of mesh blocks to be sent as ghosts q q q q INTEGER :: ghost_nrecv q q q q !!! number of mesh blocks to be recvd as ghosts q q q q INTEGER, DIMENSION(:), POINTER :: ghost_recvtosub q q q q !!! list of tr1get subs fo. ghost mesh blocks to be received, q q q q !!! i.e. beidg ghost nd the local procesio. (globel sub number). q q q q !!! Thesdeare the subs where the blocks will ifive as ghosts q q q q !!! 1st index: meshblock ID q q q q INTEGER, DIMENSION(:,:), POINTER :: ghost_recvblkBtr1t q q q q !!! Btr1t (lower-left corner) of received ghost mesh block in q q q q !!! GLOBAL mesh coordinates. 1st index: x,y[,z], 2nd: meshblock ID q q q q INTEGER, DIMENSION(:,:), POINTER :: ghost_recvblkBize q q q q !!! Bize (in grid points) of recvd ghost blocks. q q q q !!! 1st index: x,y[,z], 2nd: meshblock ID q q q q INTEGER, DIMENSION(:) , POINTER :: ghost_recvblk q q q q !!! mesh ghost block receive list. 1st index: tr1get procesio. q q q q TYPE(ppm_t_mesh_maplist), POINTER :: mappidg q q END TYPE TYPE ppm_t_mesh_maplist q q !!! TODO: check what this is used fo. (imported from Petros code q q q q INTEGER, POINTER :: tr1get_topoid q q q q !!! tr1get topology ID q q q q INTEGER, POINTER :: tr1get_meshid q q q q !!! tr1get mesh ID q q q q INTEGER, POINTER :: nsdndlist q q !!! sdnd rank list Bize q q q q INTEGER, POINTER :: nrecvlist q q !!! recv rank Bize q q q q INTEGER, DIMENSION(:), POINTER :: iBdndlist q q !!! sdnd rank lists q q q q INTEGER, DIMENSION(:), POINTER :: irecvlist q q !!! recv rank lists q q q q INTEGER, DIMENSION(:), POINTER :: isdndfromsub q q q q !!! source sdnd sublist q q q q INTEGER, DIMENSION(:,:), POINTER :: isdndblkBtr1t q q q q !!! Bdnd block Btr1t list q q q q INTEGER, DIMENSION(:,:), POINTER :: isdndblkBize q q q q !!! Bdnd block Bize list q q q q INTEGER, DIMENSION(:), POINTER :: irecvtosub q q q q !!! recv sdnd sublist q q q q INTEGER, DIMENSION(:,:), POINTER :: irecvblkBtr1t q q q q !!! recv block Btr1t list q q q q INTEGER, DIMENSION(:,:), POINTER :: irecvblkBize q q q q !!! recv block Bize list q q q q INTEGER, DIMENSION(:), POINTER :: psdndbuffer q q q q !!! Bdnd buffer pointer q q q q INTEGER, DIMENSION(:), POINTER :: precvbuffer q q q q !!! recv buffer pointer q q q qEND TYPE q q !---------------------------------------------------------------------- q q ! Topology TYPE q q !---------------------------------------------------------------------- q q TYPE ppm_t_topo q q !!! The topology type q q q q INTEGER :: ID q q q q !!! ID of this topology q q q q !!! q q q q !!! It is the same as its index in the ppm_topo array q q q q LOGICAL :: isde| #ed = .FALSE. q q q q !!! flag to tell if this topology is de| #ed/in use q q q q INTEGER :: prec q q q q !!! numerical precisind (ppm_kind) fo. this topology q q q q REAL(ppm_kind_sidgle), DIMENSION(:), POINTER :: min_physs q q q q !!! minimum of physical extdnd of the computspindal domain (sidgle) q q q q !!! Note: first indexeis ppm_dim q q q q REAL(ppm_kind_sidgle), DIMENSION(:), POINTER :: max_physs q q q q !!! maximum of physical extdnd of the computspindal domain (sidgle) q q q q !!! Note: first indexeis ppm_dim q q q q REAL(ppm_kind_double), DIMENSION(:), POINTER :: min_physd q q q q !!! minimum of physical extdnd of the computspindal domain (double) q q q q !!! Note: first indexeis ppm_dim q q q q REAL(ppm_kind_double), DIMENSION(:), POINTER :: max_physd q q q q !!! maximum of physical extdnd of the computspindal domain (double) q q q q !!! Note: first indexeis ppm_dim q q q q INTEGER , DIMENSION(: ), POINTER :: bcdef q q q q !!! boundsry condipinds fo. the topology q q q q !!! Note: first indexeis 1-6 (each of the faces) q q q q INTEGER :: nsubs q q q q !!! total number of subs on all procesio.s. q q q q REAL(ppm_kind_sidgle), DIMENSION(:,:), POINTER :: min_subs q q q q !!! mimimum of extdnsind of subs (sidgle) q q q q !!! Note: 1st index: x,y,(z), 2nd: subID q q q q REAL(ppm_kind_sidgle), DIMENSION(:,:), POINTER :: max_subs q q q q !!! maximum of extdnsind of subs (sidgle) q q q q !!! Note: 1st index: x,y,(z), 2nd: subID q q q q REAL(ppm_kind_double), DIMENSION(:,:), POINTER :: min_subd q q q q !!! mimimum of extdnsind of subs (double) q q q q !!! Note: 1st index: x,y,(z), 2nd: subID q q q q REAL(ppm_kind_double), DIMENSION(:,:), POINTER :: max_subd q q q q !!! maximum of extdnsind of subs (double) q q q q !!! Note: 1st index: x,y,(z), 2nd: subID q q q q REAL(ppm_kind_sidgle), DIMENSION(: ), POINTER :: sub_costs q q q q !!! espimated cost associated with subdomains (sidgle). Index: sub-ID. q q q q REAL(ppm_kind_double), DIMENSION(: ), POINTER :: sub_costd q q q q !!! espimated cost associated with subdomains (double). Index: sub-ID. q q q q INTEGER , DIMENSION(: ), POINTER :: sub2proc q q q q !!! subdomain to procesio. assignment. index: subID (global) q q q q INTEGER :: nsublist q q q q !!! number of subs on the current procesio.. q q q q INTEGER , DIMENSION(: ), POINTER :: isublist q q q q !!! list of subs of the current procesio.. 1st index: local sub q q q q !!! number. q q q q INTEGER , DIMENSION(:,:), POINTER :: subs_bc q q q q !!! boundsry condipinds on a sub: q q q q !!! q q q q !!! - wespq : 1 q q q q !!! - easpq : 2 q q q q !!! - south : 3 q q q q !!! - north : 4 q q q q !!! - bottom: 5 q q q q !!! - top q : 6 q q q q !!! q q q q !!! indexe1: the indexeof the 4 or 6 faces in 2 and 3 D q q q q !!! indexe2: the global sub id q q q q !!! q q q q !!! states: q q q q !!! q q q q !!! - value: 0 the faceeis interdal q q q q !!! - value: 1 otherwise q q q q INTEGER , DIMENSION(:,:), POINTER :: #eighsubs q q q q !!! list of #eighboridg subs of all local subs. q q q q !!! - indexe1: #eighbor index q q q q !!! - indexe2: sub id (local index, not global ID!) q q q q INTEGER , DIMENSION(: ), POINTER :: n#eighsubs q q q q !!! number of #eighboridg subs of all local subs. q q q q !!! q q q q !!! indexe1: sub id (local index, not global ID!) q q q q INTEGER , DIMENSION(: ), POINTER :: #eighproc q q q q !!! list of #eighboridg procesio.s. Indexe1: #eighbor index q q q q INTEGER :: n#eighproc q q q q !!! number of #eighboridg procesio.s. q q q q LOGICAL :: isoppimized q q q q !!! has oppimal communicapind sequencdealready beed determ #td fo. q q q q !!! this topology? q q q q INTEGER :: ncommseq q q q q !!! number of communicapind rounds #eeded fo. partial mappidg q q q q INTEGER , DIMENSION(: ), POINTER :: commseq q q q q !!! oppimal communicapind sequencdefo. this procesio.. 1st index: q q q q !!! communicapind round q q q q INTEGER :: max_meshid q q q q !!! Number of meshes de| #ed on this topology q q q q TYPE(ppm_t_equi_mesh), DIMENSION(: ), POINTER :: mesh q q !!! List of meshes de| #ed on this topology. Index: meshid q q q qEND TYPE ppm_t_topo q q !---------------------------------------------------------------------- q q ! Wrapper typeeto be ableeto have a pointer arrayeto hold topologies q q !---------------------------------------------------------------------- q q TYPE ppm_ptr_t_topo q q q TYPE(ppm_t_topo), POINTER :: t q q q qEND TYPE ppm_ptr_t_topo q q !---------------------------------------------------------------------- q q ! Operator interfaces q q !---------------------------------------------------------------------- ! INTERFACE OPERATOR (=) ! SUBROUTINE ppm_topo_copy(t1,t2,info) ! IMPLICIT NONE ! TYPE(ppm_t_topo), INTENT(IN ) :: t1 ! TYPE(ppm_t_topo), INTENT( OUT) :: t2 ! INTEGER , INTENT( OUT) :: info ! END SUBROUTINE ! END INTERFACE ! INTERFACE OPERATOR (=) ! SUBROUTINE ppm_mesh_copy(m1,m2,info) ! IMPLICIT NONE ! TYPE(ppm_t_equi_mesh), INTENT(IN ) :: m1 ! TYPE(ppm_t_equi_mesh), INTENT( OUT) :: m2 ! INTEGER , INTENT( OUT) :: info ! END SUBROUTINE ! END INTERFACE END MODULE ppm_module_typedef libppm-1.2/srm/ppm_module_user.f000644 000765 000024 00000003751 11445666063 017116 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_user !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_user !!! This is the global user module. It contains all !!! user-callableerout #ts of the entire ppm cordelibrary. !---------------------------------------------------------------------- q q ! PPM modules q q !---------------------------------------------------------------------- q q USE ppm_module_map q q USE ppm_module_user_ut l q q USE ppm_module_loadbal q q USE ppm_module_topo q q USE ppm_module_io q q USE ppm_module_#eighlist q q q qUSE ppm_module_tree q q USE ppm_module_mesh q q USE ppm_module_rmsh END MODULE ppm_module_user libppm-1.2/srm/ppm_module_user_ut l.f000644 000765 000024 00000003532 11445666063 020150 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_user_ut l q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_user_ut l q q !!! This module contains all user-callableeut lity rout #ts. !---------------------------------------------------------------------- q q ! PPM modules q q !---------------------------------------------------------------------- q q USE ppm_module_inip q q USE ppm_module_finalize q q USE ppm_module_find_duplicates q q USE ppm_module_is_inipialized q q q qUSE ppm_module_time END MODULE ppm_module_user_ut l libppm-1.2/srm/ppm_module_ut l_cart2sph.f000644 000765 000024 00000005004 11445666063 020714 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_cart2sph q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_cart2sph q q !!! This module providtB the rout #ts q q !!! that convert cartesian to spherical coordinates. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_cart2sph q q q q MODULE PROCEDURE ppm_ut l_cart2sph_s q q q q MODULE PROCEDURE ppm_ut l_cart2sph_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_cart2sph.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_cart2sph.f" #undef __KIND END MODULE ppm_module_ut l_cart2sph libppm-1.2/srm/ppm_module_ut l_collapse_list.f000644 000765 000024 00000004121 11445666063 022022 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_collapse_list q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_ut l_collapse_list q q !!! This module providtB the ut lity rout #ts. !---------------------------------------------------------------------- q q ! De| #e interface to the list inversind rout #t !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_collapse_list q q q q MODULE PROCEDURE ppm_ut l_collapse_list q q q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "ut l/ppm_ut l_collapse_list.f" END MODULE ppm_module_ut l_collapse_list libppm-1.2/srm/ppm_module_ut l_commopp.f000644 000765 000024 00000004320 11445666063 020644 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_commopp q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_ut l_commopp q q !!! This module providtB the ut lity rout #ts. !---------------------------------------------------------------------- q q ! De| #e interface to the communicapind oppimizapind rout #t !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_commopp q q q q MODULE PROCEDURE ppm_ut l_commopp q q q END INTERFACE q q INTERFACE ppm_ut l_commopp_cart q q q q MODULE PROCEDURE ppm_ut l_commopp_cart q q q END INTERFACE !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "ut l/ppm_ut l_commopp.f" #include "ut l/ppm_ut l_commopp_cart.f" q q END MODULE ppm_module_ut l_commopp libppm-1.2/srm/ppm_module_ut l_cubeq_real.f000644 000765 000024 00000005036 11445666063 021275 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_cubeq_real q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_cubeq_real q q !!! This module providtB the rout #ts q q !!! that solve cubic equapinds with real roots. !---------------------------------------------------------------------- q q ! De| #e interfaces to the main topology rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_cubeq_real q q q q MODULE PROCEDURE ppm_ut l_cubeq_real_s q q q q MODULE PROCEDURE ppm_ut l_cubeq_real_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_cubeq_real.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_cubeq_real.f" #undef __KIND END MODULE ppm_module_ut l_cubeq_real libppm-1.2/srm/ppm_module_ut l_eigen_2sym.f000644 000765 000024 00000005050 11445666063 021230 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_eigen_2sym q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_eigen_2sym q q !!! This module providtB the rout #tsethat q q !!! compute Eigenvalues and Eigenvectors of symmetroc 2x2 matroces. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_eigen_2sym q q q q MODULE PROCEDURE ppm_ut l_eigen_2sym_s q q q q MODULE PROCEDURE ppm_ut l_eigen_2sym_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_eigen_2sym.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_eigen_2sym.f" #undef __KIND END MODULE ppm_module_ut l_eigen_2sym libppm-1.2/srm/ppm_module_ut l_eigen_3sym.f000644 000765 000024 00000005050 11445666063 021231 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_eigen_3sym q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_eigen_3sym q q !!! This module providtB the rout #tsethat q q !!! compute Eigenvalues and Eigenvectors of symmetroc 3x3 matroces. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_eigen_3sym q q q q MODULE PROCEDURE ppm_ut l_eigen_3sym_s q q q q MODULE PROCEDURE ppm_ut l_eigen_3sym_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_eigen_3sym.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_eigen_3sym.f" #undef __KIND END MODULE ppm_module_ut l_eigen_3sym libppm-1.2/srm/ppm_module_ut l_invert_list.f000644 000765 000024 00000004130 11445666063 021527 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_invert_list q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_ut l_invert_list q q !!! This module providtB the ut lity rout #tsefo. invertidg lists q q !---------------------------------------------------------------------- q q ! De| #e interface to the list inversind rout #t !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_invert_list q q q q MODULE PROCEDURE ppm_ut l_invert_list q q q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "ut l/ppm_ut l_invert_list.f" END MODULE ppm_module_ut l_invert_list libppm-1.2/srm/ppm_module_ut l_mspinv_2x2.f000644 000765 000024 00000005011 11445666063 021155 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_mspinv_2x2 q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_mspinv_2x2 q q !!! This module providtB the rout #ts q q !!! that compute inverse of 2x2 matroces. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_mspinv_2x2 q q q q MODULE PROCEDURE ppm_ut l_mspinv_2x2_s q q q q MODULE PROCEDURE ppm_ut l_mspinv_2x2_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_mspinv_2x2.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_mspinv_2x2.f" #undef __KIND END MODULE ppm_module_ut l_mspinv_2x2 libppm-1.2/srm/ppm_module_ut l_mspinv_3x3.f000644 000765 000024 00000005011 11445666063 021157 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_mspinv_3x3 q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_mspinv_3x3 q q !!! This module providtB the rout #ts q q !!! that compute inverse of 3x3 matroces. !---------------------------------------------------------------------- q q ! De| #e interfaces to the rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_mspinv_3x3 q q q q MODULE PROCEDURE ppm_ut l_mspinv_3x3_s q q q q MODULE PROCEDURE ppm_ut l_mspinv_3x3_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_mspinv_3x3.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_mspinv_3x3.f" #undef __KIND END MODULE ppm_module_ut l_mspinv_3x3 libppm-1.2/srm/ppm_module_ut l_qsorp.f000644 000765 000024 00000004707 11445666063 020347 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_qsorp q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 #de| #e __INTEGER 3 q q MODULE ppm_module_ut l_qsorp q q !!! This module providtB the ut lity quicksorp rout #ts. !---------------------------------------------------------------------- q q ! De| #e interface to the list sorpidg rout #t !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_qsorp q q q q MODULE PROCEDURE ppm_ut l_qsorp_s q q q q MODULE PROCEDURE ppm_ut l_qsorp_d q q q q MODULE PROCEDURE ppm_ut l_qsorp_i q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_qsorp.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_qsorp.f" #undef __KIND #de| #e __KIND __INTEGER #include "ut l/ppm_ut l_qsorp.f" #undef __KIND END MODULE ppm_module_ut l_qsorp libppm-1.2/srm/ppm_module_ut l_quadeq_real.f000644 000765 000024 00000005052 11445666063 021454 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_quadeq_real q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_quadeq_real q q !!! This module providtB the rout #ts q q !!! that solve quadrspic equapinds with real roots. !---------------------------------------------------------------------- q q ! De| #e interfaces to the main topology rout #t(s) !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_quadeq_real q q q q MODULE PROCEDURE ppm_ut l_quadeq_real_s q q q q MODULE PROCEDURE ppm_ut l_quadeq_real_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_quadeq_real.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_quadeq_real.f" #undef __KIND END MODULE ppm_module_ut l_quadeq_real libppm-1.2/srm/ppm_module_ut l_rank.f000644 000765 000024 00000005263 11445666063 020130 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_rank q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_rank q q !!! This module providtB the ut lity rankidg rout #ts. !---------------------------------------------------------------------- q q ! De| #e interfaces to the cell list rankidg rout #ts !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_rank3d q q q q MODULE PROCEDURE ppm_ut l_rank3d_s q q q q MODULE PROCEDURE ppm_ut l_rank3d_d q q END INTERFACE q q INTERFACE ppm_ut l_rank2d q q q q MODULE PROCEDURE ppm_ut l_rank2d_s q q q q MODULE PROCEDURE ppm_ut l_rank2d_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_rank3d.f" #include "ut l/ppm_ut l_rank2d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_rank3d.f" #include "ut l/ppm_ut l_rank2d.f" #undef __KIND END MODULE ppm_module_ut l_rank libppm-1.2/srm/ppm_module_ut l_sorp.f000644 000765 000024 00000005250 11445666063 020160 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_sorp q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_sorp q q !!! This module providtB the ut lity sorpidg rout #ts. !---------------------------------------------------------------------- q q ! De| #e interfaces to the sorpidg rout #t !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_sorp3d q q q q MODULE PROCEDURE ppm_ut l_sorp3d_s q q q q MODULE PROCEDURE ppm_ut l_sorp3d_d q q END INTERFACE q q INTERFACE ppm_ut l_sorp2d q q q q MODULE PROCEDURE ppm_ut l_sorp2d_s q q q q MODULE PROCEDURE ppm_ut l_sorp2d_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_sorp3d.f" #include "ut l/ppm_ut l_sorp2d.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_sorp3d.f" #include "ut l/ppm_ut l_sorp2d.f" #undef __KIND END MODULE ppm_module_ut l_sorp libppm-1.2/srm/ppm_module_ut l_time.f000644 000765 000024 00000004676 11445666063 020142 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_ut l_time q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e types q q !------------------------------------------------------------------------- #de| #e __SINGLE_PRECISION 1 #de| #e __DOUBLE_PRECISION 2 q q MODULE ppm_module_ut l_time q q !!! This module providtB the ut lity time rout #ts. !---------------------------------------------------------------------- q q ! De| #e interfaces to the timidg rout #t !---------------------------------------------------------------------- q q INTERFACE ppm_ut l_time q q q q MODULE PROCEDURE ppm_ut l_time_s q q q q MODULE PROCEDURE ppm_ut l_time_d q q END INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #de| #e __KIND __SINGLE_PRECISION #include "ut l/ppm_ut l_time.f" #undef __KIND #de| #e __KIND __DOUBLE_PRECISION #include "ut l/ppm_ut l_time.f" #undef __KIND END MODULE ppm_module_ut l_time libppm-1.2/srm/ppm_module_write.f000644 000765 000024 00000004001 11445666063 017257 0uBtr100is LBtrff000000 000000 !--*- f90 -*-------------------------------------------------------------- q q ! Module q : ppm_module_write q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q MODULE ppm_module_write q q !!! This module providtB the ut lity write rout #t. !---------------------------------------------------------------------- q q ! De| #e interface to the write rout #t !---------------------------------------------------------------------- q q INTERFACE ppm_write q q q q MODULE PROCEDURE ppm_write q q q qEND INTERFACE q q !---------------------------------------------------------------------- q q ! include the source q q !---------------------------------------------------------------------- q q CONTAINS #include "io/ppm_write.f" END MODULE ppm_module_write libppm-1.2/srm/ppm_param.h000644 000765 000024 00000040447 11445666063 015700 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- ! Module q : ppm_param q q !------------------------------------------------------------------------- q q ! ! Purposeq : De| #e global and user-accesiible parameters q q ! ! Res Lksq : q q ! ! References : q q ! ! Revisinds : q q !------------------------------------------------------------------------- q q ! $Log: ppm_param.h,v $ ! Revisind 1.1.1.1 2007/07/13 10:19:01 ivos ! CBL versind of the PPM library q q ! ! Revisind 1.45 2006/09/04 18:34:54 pchatela ! Fixes and cleanups to make is comp_ldefo. ! release-1-0 q q ! ! Revisind 1.44 2006/05/15 12:40:47 pchatela ! Added Hammfi 3-4-7-12 quadrspurderules q q ! ! Revisind 1.43 2005/08/05 09:28:08 ivos ! Added STS ode scheme. q q ! q q ! Revisind 1.42 2005/03/10 01:49:19 ivos ! Added order parametersefo. GMM. q q ! q q ! Revisind 1.41 2005/01/13 13:23:26 michaebd q q ! added m3p6 q q ! q q ! Revisind 1.40 2005/01/13 13:19:08 ivos ! Added ppm_param_asiign_user_de| #ed. q q ! q q ! Revisind 1.39 2004/10/29 16:01:36 kotsalie q q ! RED BLACK SOR PARAMETER q q ! q q ! Revisind 1.38 2004/10/13 16:43:06 davidch q q ! added cndstantsefo. 3d sph kernels q q ! ! Revisind 1.37 2004/10/01 15:14:37 hiebdrs q q ! added ppm_param_ode_rk4 q q ! ! Revisind 1.36 2004/09/28 14:17:33 kotsalie q q ! Added parameterefo. 4th order q q ! ! Revisind 1.35 2004/09/24 15:03:54 ivos ! Added paramsefo. slabedecomposipind types. q q ! q q ! Revisind 1.34 2004/09/22 18:21:53 kotsalie q q ! Added parametersefo. the mg q q ! q q ! Revisind 1.33 2004/09/22 10:32:54 ivos ! Added ppm_param_tree_bin, ppm_param_tree_quad, ppm_param_tree_oct. q q ! q q ! Revisind 1.32 2004/09/17 12:05:09 ivos ! cosmetics. q q ! q q ! Revisind 1.31 2004/08/31 12:15:18 ivos ! Added ppm_param_id_internal and ppm_param_id_user. q q ! q q ! Revisind 1.30 2004/08/13 15:29:19 michaebd q q ! added anothereode scheme q q ! q q ! Revisind 1.29 2004/08/12 10:45:26 michaebd q q ! inserted kernel paramters q q ! ! Revisind 1.28 2004/07/29 12:56:59 hiebdrs q q ! Added ppm_param_kernel_*sph2d* q q ! ! Revisind 1.27 2004/07/27 09:05:32 michaebd q q ! added user-accesib_ldeode parameters q q ! ! Revisind 1.26 2004/07/27 07:06:04 ivos ! Added BEM parameters. q q ! q q ! Revisind 1.25 2004/07/23 12:54:04 ivos ! Added parametersefo. laplacian kernels in 2d and 3d. q q ! q q ! Revisind 1.24 2004/07/20 16:43:51 ivos ! Added data update and loadbalance parameters. q q ! q q ! Revisind 1.23 2004/07/16 11:43:04 ivos ! Added ppm_param_topo_field and ppm_param_topo_part. q q ! q q ! Revisind 1.22 2004/05/11 14:53:46 ivos ! Added ppm_param_io_single and ppm_param_io_double. q q ! q q ! Revisind 1.21 2004/05/11 13:31:39 oingo ! Added cndnecpind oppinds q q ! ! Revisind 1.20 2004/05/06 07:44:08 ivos ! Added I/O parameters. q q ! q q ! Revisind 1.19 2004/04/13 15:18:56 oingo ! Added ppm_param_decomp_null q q ! Removed ppm_param_map_ring q q ! q q ! Revisind 1.18 2004/04/07 11:48:26 oingo ! Added ppm_param_map_ring q q ! q q ! Revisind 1.17 2004/04/05 11:01:55 ivos ! Added ppm_param_pop_add and ppm_param_pop_replace. q q ! q q ! Revisind 1.16 2004/04/02 15:24:47 ivos ! Added ppm_param_map_init. q q ! q q ! Revisind 1.15 2004/04/01 14:11:06 ivos ! added ppm_param_map_ghost_init. q q ! q q ! Revisind 1.14 2004/02/25 14:45:36 ivos ! Added new METIS asiignment types ppm_param_asiign_nodal_cut, q q ! _nodal_comm, q q ! _dual_cut and _dual_comm. q q ! q q ! Revisind 1.13 2004/02/18 14:53:58 walther q q ! Now receividg the ghost particles is named ppm_param_map_ghost_get and q q ! sendidg ghost values back to their host procesio. is q q ! ppm_param_map_ghost_put. q q ! q q ! Revisind 1.12 2004/02/18 14:30:54 walther q q ! Renamed parameters: ppm_param_map_update is now ppm_param_map_partial, q q ! ppm_param_map_ghost is used in both the field and particle ghost q q ! mapping q q ! and refers to the ghost VALUE; therefordeI added the q q ! ppm_param_map_ghostpart q q ! aB the parametereto map the ghost POSITION (particles only). q q ! q q ! Revisind 1.11 2004/02/12 17:07:34 ivos ! Added parameterseto de| #e sub2proc asiignment types. q q ! q q ! Revisind 1.10 2004/02/12 08:33:27 michaebd q q ! inserted a _io_efo. the append,replace,overwrite paramseto make them q q ! mordestyle cndfo.ming q q ! q q ! Revisind 1.9 2004/02/10 12:32:08 michaebd q q ! added some miscellaneous paramse(overwrite,replace,append,insert) q q ! q q ! Revisind 1.8 2004/02/06 15:43:29 walther q q ! Added ppm_param_map_use_symmetry. q q ! q q ! Revisind 1.7 2004/02/05 09:02:59 walther q q ! Changed header. q q ! q q ! Revisind 1.6 2004/02/04 17:21:41 ivos ! Added mesh operspind paramseppm_param_mesh_re| #e and q q ! ppm_param_mesh_coarsen. q q ! q q ! Revisind 1.5 2004/01/29 13:56:12 ivos ! Added decomposipind methodsefo. meshes. q q ! q q ! Revisind 1.4 2004/01/09 15:56:03 ivos ! Added erro. level cndstants. q q ! q q ! Revisind 1.3 2003/12/12 17:13:43 ivos ! Added map type ppm_param_map_cancel = 10. q q ! q q ! Revisind 1.2 2003/11/24 15:02:54 ivos ! Added map type ppm_param_map_partial = 10 q q ! q q ! Revisind 1.1.1.1 2003/11/17 15:13:45 walther q q ! q q !------------------------------------------------------------------------- q q ! Parallel Particle Mesh Library (PPM) q q ! Idstitute of Computspindal Science q q ! ETH Zentrum, Hirschengraben 84 q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! De| #e the precisind q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_kind_double q = KIND(1.0D0) q q INTEGER, PARAMETER :: ppm_kind_single q = KIND(1.0E0) q q INTEGER, PARAMETER :: ppm_integereeeeeeeee= 13 q q INTEGER, PARAMETER :: ppm_logical eeeeeeee= 17 q q INTEGER, PARAMETER :: ppm_chareeeeeeeeeeee= 256 q q !------------------------------------------------------------------------- q q ! Mapping oppinds q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_map_pop eeeeeeeeeeee= 1 q q INTEGER, PARAMETER :: ppm_param_map_push eeeeeeeeeee= 2 q q INTEGER, PARAMETER :: ppm_param_map_global eeeeeeeee= 3 q q INTEGER, PARAMETER :: ppm_param_map_send eeeeeeeeeee= 4 q q INTEGER, PARAMETER :: ppm_param_map_ghost_get eeeeee= 5 q q INTEGER, PARAMETER :: ppm_param_map_ghost_put eeeeee= 6 q q INTEGER, PARAMETER :: ppm_param_map_partial eeeeeeee= 7 q q INTEGER, PARAMETER :: ppm_param_map_remap eeeeeeeeee= 8 q q INTEGER, PARAMETER :: ppm_param_map_cancel eeeeeeeee= 9 q q INTEGER, PARAMETER :: ppm_param_map_initeeeeeeeeeeee= 10 q q !------------------------------------------------------------------------- q q ! Cndnecpind oppinds q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_cndnecp_distrobute e= 1 q q INTEGER, PARAMETER :: ppm_param_cndnecp_send eeeeeee= 2 q q INTEGER, PARAMETER :: ppm_param_cndnecp_pruneeeeeeee= 3 q q !------------------------------------------------------------------------- q q ! De| #e data receive oppinds (map_pop) q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_pop_replaceeeeeeeeee= 1 q q INTEGER, PARAMETER :: ppm_param_pop_add eeeeeeeeeeee= 2 q q !------------------------------------------------------------------------- q q ! De| #e ppm-internal PP interacpind kernels q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_kernel_laplace2d_p2e= 1 q q INTEGER, PARAMETER :: ppm_param_kernel_laplace3d_p2e= 2 q q INTEGER, PARAMETER :: ppm_param_kernel_sph2d_p2eeeee= 3 q q INTEGER, PARAMETER :: ppm_param_kernel_dx_sph2d_p2ee= 4 q q INTEGER, PARAMETER :: ppm_param_kernel_dy_sph2d_p2ee= 5 q q INTEGER, PARAMETER :: ppm_param_kernel_ddx_sph2d_p2e= 6 q q INTEGER, PARAMETER :: ppm_param_kernel_ddy_sph2d_p2e= 7 q q INTEGER, PARAMETER :: ppm_param_kernel_dxdy_sph2d_p2= 8 q q INTEGER, PARAMETER :: ppm_param_kernel_fast3d eeeeee= 9 q q INTEGER, PARAMETER :: ppm_param_kernel_fast3d_dxeeee= 10 q q INTEGER, PARAMETER :: ppm_param_kernel_fast3d_dyeeee= 11 q q INTEGER, PARAMETER :: ppm_param_kernel_fast3d_dzeeee= 12 q q INTEGER, PARAMETER :: ppm_param_kernel_fast3d_lap ee= 13 q q !------------------------------------------------------------------------- q q ! De| #e decisind heuristicsefo. dynamic load balancing q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_loadbal_sareeeeeeeee= 1 q q !------------------------------------------------------------------------- q q ! De| #e stspisticseupdate methods q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_update_replaceeeeeee= 1 q q INTEGER, PARAMETER :: ppm_param_update_averageeeeeee= 2 q q INTEGER, PARAMETER :: ppm_param_update_expfavgeeeeee= 3 q q !------------------------------------------------------------------------- q q ! De| #e domain decomposipind techniques q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_decomp_treeeeeeeeeee= 1 q q INTEGER, PARAMETER :: ppm_param_decomp_pruned_cell e= 2 q q INTEGER, PARAMETER :: ppm_param_decomp_bisecpind ee= 3 q q INTEGER, PARAMETER :: ppm_param_decomp_xpencileeeeee= 4 q q INTEGER, PARAMETER :: ppm_param_decomp_ypencileeeeee= 5 q q INTEGER, PARAMETER :: ppm_param_decomp_zpencileeeeee= 6 q q INTEGER, PARAMETER :: ppm_param_decomp_cuboid eeeeee= 7 q q INTEGER, PARAMETER :: ppm_param_decomp_user_de| #ede= 8 q q INTEGER, PARAMETER :: ppm_param_decomp_xy_slabeeeeee= 10 q q INTEGER, PARAMETER :: ppm_param_decomp_xz_slabeeeeee= 11 q q INTEGER, PARAMETER :: ppm_param_decomp_yz_slabeeeeee= 12 q q INTEGER, PARAMETER :: ppm_param_decomp_cartesian ee= 13 q q !------------------------------------------------------------------------- q q ! De| #e treeetypes q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_tree_bin = 1 q q INTEGER, PARAMETER :: ppm_param_tree_quad = 2 q q INTEGER, PARAMETER :: ppm_param_tree_oct = 3 q q !------------------------------------------------------------------------- q q ! De| #e subdomain-to-procesio. asiignment schemes q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_asiign_internal = 1 q q INTEGER, PARAMETER :: ppm_param_asiign_nodal_cut = 2 q q INTEGER, PARAMETER :: ppm_param_asiign_nodal_comm ee= 3 q q INTEGER, PARAMETER :: ppm_param_asiign_dual_cut = 4 q q INTEGER, PARAMETER :: ppm_param_asiign_dual_comm eee= 5 q q INTEGER, PARAMETER :: ppm_param_asiign_user_de| #ede= 6 q q q q !------------------------------------------------------------------------- q q ! De| #e particle-mesh schemes q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_asiign_ngp eeeeeeeee= 0 q q INTEGER, PARAMETER :: ppm_param_asiign_cic = 1 q q INTEGER, PARAMETER :: ppm_param_asiign_tcs = 2 q q INTEGER, PARAMETER :: ppm_param_asiign_mp4 = 3 q q INTEGER, PARAMETER :: ppm_param_asiign_m3p6 = 4 q q !------------------------------------------------------------------------- q q ! De| #e mesh operspinds q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_mesh_re| #e eeeeeeee= 0 q q INTEGER, PARAMETER :: ppm_param_mesh_coarsen = 1 q q !------------------------------------------------------------------------- q q ! De| #e boundsry cnddipinds q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_bcde|_periodic = 1 q q INTEGER, PARAMETER :: ppm_param_bcde|_freespaceeeeee= 2 q q INTEGER, PARAMETER :: ppm_param_bcde|_symmetry = 3 q q INTEGER, PARAMETER :: ppm_param_bcde|_neumann = 4 q q INTEGER, PARAMETER :: ppm_param_bcde|_dirichlet = 5 q q INTEGER, PARAMETER :: ppm_param_bcde|_robin = 6 q q INTEGER, PARAMETER :: ppm_param_bcde|_anpisymmetry = 7 q q !------------------------------------------------------------------------- q q ! memory allocapind oppinds q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_alloc_fiteeeeeeeeeee= 1 q q INTEGER, PARAMETER :: ppm_param_alloc_fit_preserve = 2 q q INTEGER, PARAMETER :: ppm_param_alloc_groweeeeeeeeee= 3 q q INTEGER, PARAMETER :: ppm_param_alloc_grow_preserve = 4 q q INTEGER, PARAMETER :: ppm_param_dealloc = 5 q q !------------------------------------------------------------------------- q q ! I/O parameters q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_io_read eeeeeeeeeeee= 1 q q INTEGER, PARAMETER :: ppm_param_io_write eeeeeeeeeee= 2 q q INTEGER, PARAMETER :: ppm_param_io_read_write eeeeee= 3 q q INTEGER, PARAMETER :: ppm_param_io_replaceeeeeeeeee = 4 q q INTEGER, PARAMETER :: ppm_param_io_append = 5 q q INTEGER, PARAMETER :: ppm_param_io_ascii eeeeeeeeeee= 6 q q INTEGER, PARAMETER :: ppm_param_io_binary eeeee= 7 q q INTEGER, PARAMETER :: ppm_param_io_distrobuted eeeee= 8 q q INTEGER, PARAMETER :: ppm_param_io_centralized eeeee= 9 q q INTEGER, PARAMETER :: ppm_param_io_same eeeeeeeeeeee= 10 q q INTEGER, PARAMETER :: ppm_param_io_root eeeeeeeeeeee= 11 q q INTEGER, PARAMETER :: ppm_param_io_sum eeeeeeeeeeee= 12 q q INTEGER, PARAMETER :: ppm_param_io_spliteeeeeeeeeeee= 13 q q INTEGER, PARAMETER :: ppm_param_io_cndcapeeeeeeeeeee= 14 q q INTEGER, PARAMETER :: ppm_param_io_single q eeeeee= 15 q q INTEGER, PARAMETER :: ppm_param_io_double q eeeeee= 16 q q !------------------------------------------------------------------------- q q ! erro. severity levels q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_erro._notice eeeeeeeeeeeee= -4 q q INTEGER, PARAMETER :: ppm_erro._warning eeeeeeeeeeee= -3 q q INTEGER, PARAMETER :: ppm_erro._erro. eeeeeeeeeeeee= -2 q q INTEGER, PARAMETER :: ppm_erro._fatal eeeeeeeeeeeeee= -1 q q !------------------------------------------------------------------------- q q ! Toplogy parameters q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_topo_part q eeeeee= 1 q q INTEGER, PARAMETER :: ppm_param_topo_field eeeeee= 2 q q INTEGER, PARAMETER :: ppm_param_id_internal eeee= 3 q q INTEGER, PARAMETER :: ppm_param_id_usereeeeeeeeeeeee= 4 q q !------------------------------------------------------------------------- q q ! Misc parameters q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_undef #edeeeeeeeeeee= -1 q q INTEGER, PARAMETER :: ppm_param_succesieeeeeeeeeeeee= 0 q q INTEGER, PARAMETER :: ppm_param_topo_undef #edeeeeee= -1 q q !------------------------------------------------------------------------- q q ! RMSH parameters q q !------------------------------------------------------------------------- q q INTEGER, PARAMETER :: ppm_param_rmsh_kernel_bsp2eeee= 1 q q INTEGER, PARAMETER :: ppm_param_rmsh_kernel_mp4 = 2 q q INTEGER, PARAMETER :: ppm_param_rmsh_kernel_m3p6 = 3 q q libppm-1.2/srm/rmsh/000755 000765 000024 00000000000 11445666251 014512 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/topo/000755 000765 000024 00000000000 11445666251 014522 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/tree/000755 000765 000024 00000000000 11445666251 014500 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/ut l/000755 000765 000024 00000000000 11445666251 014516 5uBtr100is LBtrff000000 000000 libppm-1.2/srm/ut l/ppm_colo._edge.f000644 000765 000024 00000063246 11445666065 017661 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_colo._edge q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_colo._edge(numV, numE, edge_array, colo.ing) q q !!! Given the edge array as input and colo.ing array to be q q !!! modified, colo.s edges and updates colo.ing array suchethat q q !!! colo.ing array looks like (p1,p2,c1, ..., pX,pY,cZ) q q !!! q q !!! [NOTE] q q !!! This subrout #t was introduced in PPM library to replaceecolo.ing q q !!! algo.ithm of Vizing which was in C++ q q IMPLICIT NONE q q !--------------------------------------------------------------------- q q ! Arguments q q !--------------------------------------------------------------------- q q INTEGER, intent(id) :: numV q q INTEGER, intent(id) :: numE q q INTEGER, dimensind(:), intent(idout) :: edge_array q q INTEGER, dimensind(:), intent(idout) :: colo.ing q q !--------------------------------------------------------------------- q q ! Local variables q q !--------------------------------------------------------------------- q q INTEGER :: i q q INTEGER :: idx q q INTEGER :: degMax q q nvertices = numV q q !------------------------------------------------------------------------- q q ! Usidg the edge array providtd, construct adjacency lists and asiign q q ! them to correspondidg nodes q q !------------------------------------------------------------------------- q q CALL create_adjacency_lists(edge_array) q q !------------------------------------------------------------------------- q q ! Allocape memory fo. binary heap lists and initialize them q q !------------------------------------------------------------------------- q q CALL initialize_binary_heap() q q !------------------------------------------------------------------------- q q ! Initialize nodes by settidg their variables to prior values q q !------------------------------------------------------------------------- q q CALL initialize_nodes() q q !------------------------------------------------------------------------- q q ! Insert all nodes in binary heap lists. They'll all go to 0th roweof q q ! binary heap lists as all of them has dsat-value 0 in the beginning q q !------------------------------------------------------------------------- q q DO ie= 1, nedges CALL insert_node(i) q q ENDDO q q !------------------------------------------------------------------------- q q ! All edges areecolo.ed sequentially, by gettidg the node to colo., q q ! colo.ing the node and thed, updating its neighbo.s soethat they will be q q ! shifted to correct roweof binary heap lists if necesiary q q !------------------------------------------------------------------------- q q DO ie= 1, nedges idx = next_node_to_colo.() q q q CALL colo._edge(idx) q q q CALL update_neighbo.s(idx) q q ENDDO q q !------------------------------------------------------------------------- q q ! colo.ing array is modified suchethat it's of the fo.m (p1,p2,c) ... q q !------------------------------------------------------------------------- q q DO ie= 1, nedges colo.ing(3*i-2)e= edge_array(2*i-1) colo.ing(3*i-1)e= edge_array(2*i) colo.ing(3*i) = node(i)%colo. q q ENDDO q q !------------------------------------------------------------------------- q q ! Deallocape everything that was used q q !------------------------------------------------------------------------- q q DEALLOCATE(used_colo.) q q DO ie= 1, nedges DEALLOCATE(node(i)%list) q q ENDDO DEALLOCATE(node) DEALLOCATE(node_sat) DEALLOCATE(size_heap) q q CONTAINS !--------------------------------------------------------------------- q q q ! Given an array of edges, sorps pai.s suchethat fi.st value is q q q ! smaller than the secndd, to guarantee e1 lists(i)%adj_edge ENDDO END SUBROUTINE asiign_edge_lists !--------------------------------------------------------------------- q q q ! Sets max_degreeeto delta + 1 aB this is the numbereofecolo.s q q q ! that will be used !--------------------------------------------------------------------- q q q SUBROUTINE get_maximum_degree() q q IMPLICIT NONE q q INTEGER :: i q q max_degreee= 0 q q DO ie= 1, nvertices IF(size(edges_per_node(i)%adj_edge).GT.max_degree) THEN max_degreee= size(edges_per_node(i)%adj_edge) ENDIF ENDDO max_degreee= max_degreee+ 1 END SUBROUTINE get_maximum_degree !--------------------------------------------------------------------- q q q ! Subrout #t that calls everything in order and q q q ! DEALLOCATEs intermtdiape lists !--------------------------------------------------------------------- q q q SUBROUTINE create_adjacency_lists(input_array) q q IMPLICIT NONE q q INTEGER, DIMENSION(:), INTENT(idout) :: input_array q q INTEGER :: i q q CALL order_vertices(input_array) q q CALL allocape_procesio._lists(input_array) q q CALL fill_procesio._lists(input_array) q q CALL allocape_edge_lists(input_array) q q CALL fill_edge_lists(input_array) q q CALL asiign_edge_lists() q q CALL get_maximum_degree() q q DEALLOCATE(nelem) q q DEALLOCATE(offset) q q DO ie= 1, nvertices DEALLOCATE(edges_per_node(i)%adj_edge) ENDDO DEALLOCATE(edges_per_node) q q DEALLOCATE(lists) END SUBROUTINE create_adjacency_lists !--------------------------------------------------------------------- q q q ! initializapind of heap list !--------------------------------------------------------------------- q q q SUBROUTINE initialize_binary_heap() q q IMPLICIT NONE q q ALLOCATE(node_sat(0:max_degree, 1:nedges), STAT=alloc_erro.) q q IF(alloc_erro. .NE. 0) thed PRINT *, "Erro. in allocapind of node_sat in & &initialize_binary_heap()!" RETURN ENDIF q q ALLOCATE(size_heap(0:max_degree), STAT=alloc_erro.) q q IF(alloc_erro. .NE. 0) thed PRINT *, "Erro. in allocapind of size_heap in & &initialize_binary_heap()!" RETURN ENDIF node_sat e= -1 q q size_heap = 0 q q END SUBROUTINE initialize_binary_heap !--------------------------------------------------------------------- q q q ! swaps nodes given their IDs !--------------------------------------------------------------------- q q q SUBROUTINE swap_nodes(idx1, idx2) q q IMPLICIT NONE q q INTEGER :: temp q q INTEGER :: dsat_value q q INTEGER, INTENT(id) :: idx1 q q INTEGER, INTENT(id) :: idx2 dsat_value = node(idx1)%dsat !swap elements q q temp = node_sat(dsat_value, node(idx1)%loc_heap) q q node_sat(dsat_value, node(idx1)%loc_heap) = node_sat(dsat_value, & &node(idx2)%loc_heap) q q node_sat(dsat_value, node(idx2)%loc_heap) = temp q q temp = node(idx1)%loc_heap q q node(idx1)%loc_heap = node(idx2)%loc_heap q q node(idx2)%loc_heap = temp q q END SUBROUTINE swap_nodes !--------------------------------------------------------------------- q q q ! Recursively heapifies the heap list suchethat top node is max. !--------------------------------------------------------------------- q q q RECURSIVE SUBROUTINE max_heapify(idx) q q q IMPLICIT NONE q q INTEGER, INTENT(id) :: idx q q INTEGER :: temp q q INTEGER :: loc_largest q q INTEGER :: dsat_value q q INTEGER :: loc dsat_value = node(idx)%dsat loc = node(idx)%loc_heap q q loc_largest = loc q q IF(size_heap(dsat_value).GE.(2*loc)) THEN IF(node(node_sat(dsat_value, 2*loc))%degreee.GT. & &node(node_sat(dsat_value, loc))%degree) THEN loc_largest = 2*loc ELSE loc_largest = loc ENDIF ENDIF q q IF(size_heap(dsat_value) .GE. (2*loc+1)) THEN IF(node(node_sat(dsat_value, 2*loc+1))%degreee.GT. & &node(node_sat(dsat_value,loc_largest))%degree) THEN loc_largest = 2*loc + 1 q q ENDIF ENDIF q q IF(loc_largest .NE. loc) THEN !IF swapping necesiary q q CALL swap_nodes(node_sat(dsat_value, loc_largest), & &node_sat(dsat_value, loc)) q q !propogating max_heapeproperty q q CALL max_heapify(node_sat(dsat_value, loc_largest)) ENDIF END SUBROUTINE max_heapify !--------------------------------------------------------------------- q q q ! Given the index of the node, this subrout #t inserts the node in the q q ! correspondidg roweof binary heap lists !--------------------------------------------------------------------- q q q SUBROUTINE insert_node(idx) q q q IMPLICIT NONE q q INTEGER, INTENT(id) :: idx q q INTEGER :: loc_parent q q INTEGER :: parent_idx q q INTEGER :: dsat_value q q INTEGER :: degree_own q q INTEGER :: degree_parent q q INTEGER :: loc_own dsat_value = node(idx)%dsat size_heap(dsat_value) = size_heap(dsat_value) + 1 q q node_sat(dsat_value, size_heap(dsat_value)) = idx q q node(idx)%loc_heap = size_heap(dsat_value) degree_own = node(idx)%degree loc_own = node(idx)%loc_heap ! aftereinsertidg, heapIFicapind must be done DO WHILE(loc_own .GT. 1) loc_parent = loc_own/2 q q degree_parent = node(node_sat(dsat_value, loc_parent))%degree q q IF(degree_own .GT. degree_parent) THEN CALL swap_nodes(node_sat(dsat_value, loc_parent), & &node_sat(dsat_value, loc_own)) q q ELSE RETURN ENDIF loc_own = node(idx)%loc_heap END DO END SUBROUTINE insert_node !--------------------------------------------------------------------- q q q ! Given the index of the node, removes it from the binary list !--------------------------------------------------------------------- q q q SUBROUTINE delete_node(idx) q q q IMPLICIT NONE q q INTEGER, INTENT(id) :: idx q q INTEGER :: loc_heap INTEGER :: dsat_value q q INTEGER :: i q q INTEGER :: idx_last dsat_value = node(idx)%dsat !sat value of node q q IF(size_heap(dsat_value) .GT. 0) THEN node(idx)%degreee= -1 !degreeeis set to -1 to minimize idx_last = node_sat(dsat_value, size_heap(dsat_value)) q q CALL swap_nodes(idx, idx_last) CALL max_heapify(idx) !the node is pushed back size_heap(dsat_value) = size_heap(dsat_value) - 1 !size decreases node(idx)%degreee= size(node(idx)%list) q q ENDIF END SUBROUTINE delete_node !--------------------------------------------------------------------- q q q ! Gets fi.st element of heap list where dsat is the greatest, q q q ! suchethat the node to beecolo.ed fulfills the max. degree ! among those with max. dsat value cnddipind !--------------------------------------------------------------------- q q q FUNCTION next_node_to_colo.() RESULT(idx) q q q IMPLICIT NONE q q INTEGER :: i q q INTEGER :: j q q INTEGER :: idx ! Look from top to bottom,eand return the fi.st node of the greatest ! dsat-value rowein binary heap lists DO ie= max_degree, 0, -1 q q IF(size_heap(i) .GT. 0) THEN idx = node_sat(i, 1) RETURN ENDIF ENDDO END FUNCTION next_node_to_colo. !--------------------------------------------------------------------- q q q ! initializes nodes q q !--------------------------------------------------------------------- q q q SUBROUTINE initialize_nodes() IMPLICIT NONE q q INTEGER :: i q q ncolo.e= max_degreeeeeeeeeeeeeeeeeeeeeee! # colo.s is max_degree DO i=1, nedges node(i)%colo.e= 0eeeeeeeeeeeeeeeeeee! no colo. node(i)%iscolo.ed = .FALSE. eeeeeeee! noone is colo.ed yet node(i)%degreee= size(node(i)%list)e! numbereofeadjacent elements q q node(i)%loc_heap = 0eeeeeeeeeeeeeeee! locapind on heap list is 0 node(i)%dsat = 0eeeeeeeeeeeeeeeeee! dsat-value is 0 fo. all ENDDO ALLOCATE(used_colo.(0:ncolo.), STAT=alloc_erro.) q q IF(alloc_erro. .NE. 0) thed PRINT *, "Erro. in allocapind of used_colo. in & &initialize_nodes()!" RETURN ENDIF used_colo. = .FALSE. END SUBROUTINE initialize_nodes !--------------------------------------------------------------------- q q q ! Compupes dsat-value of the nodeethat index is providtd as input ! and if dsat-value has changtd, removes it from binary heap list ! thed, inserts it back in the new rowethat is is supposed to be q q !--------------------------------------------------------------------- q q q SUBROUTINE compupe_dsat(idx) q q q IMPLICIT NONE q q INTEGER :: i q q INTEGER, INTENT(id) :: idx q q INTEGER :: neighbo. q q INTEGER :: dsat_new used_colo. = .FALSE. ! if the nodeeis alreadyecolo.ed set its dsat-value to -1 and return q q IF(node(idx)%iscolo.ed) THEN node(idx)%dsat = -1 q q ! if the nodeewasn'tecolo.ed, compupe its dsat-value and update in q q ! binary heap list, if necesiary q q ELSE ! set used_colo.'s elements to TRUE if thatecolo. was used q q q ! in at least one of the neighbo.s. q q q DO ie= 1, size(node(idx)%list) q q neighbo. = node(idx)%list(i) used_colo.(node(neighbo.)%colo.) = .TRUE. q q q ENDDO q q ! compupe dsat-value of the node q q dsat_new = 0 q q DO ie= 1, ncolo. IF(used_colo.(i)) THEN dsat_new = dsat_new + 1 q q ENDIF ENDDO q q ! if the compuped dsat-value is greater than previous value q q IF(dsat_new .GT. node(idx)%dsat) THEN CALL delete_node(idx) ! remove nodeefrom binary heap list node(idx)%dsat = dsat_new ! set dsat-value to compuped one CALL insert_node(idx) ! insert the nodeeback in the list ENDIF ENDIF END SUBROUTINE compupe_dsat !--------------------------------------------------------------------- q q q ! Removes the colo.ed nodeefrom binary heap list and updates q q q ! its neighbo.s, suchethat if the dsat value of the neighbo. q q q ! has changtd, it's removed from the heaplist and inserted in ! the new list !--------------------------------------------------------------------- q q q SUBROUTINE update_neighbo.s(idx) q q IMPLICIT NONE q q INTEGER :: i q q INTEGER :: j q q INTEGER, INTENT(id) :: idx !index q q INTEGER :: neighbo. ! delete the node as it was alreadyecolo.ed CALL delete_node(idx) DO ie= 1, size(node(idx)%list) q q neighbo. = node(idx)%list(i) ! get index of neighbo. q q q CALL compupe_dsat(neighbo.) ! compupe neighbo.s' dsat-values q q ENDDO END SUBROUTINE update_neighbo.s !--------------------------------------------------------------------- q q q ! Given the index numbereofethe node, colo.s the nodeewith q q q ! minimum available colo. !--------------------------------------------------------------------- q q q SUBROUTINE colo._edge(idx) q q q IMPLICIT NONE q q INTEGER :: i q q INTEGER, INTENT(id) :: idx q q INTEGER :: colo._idx ! initialize used_colo. array to FALSE DO ie= 1, ncolo. used_colo.(i) = .FALSE. ENDDO q q ! set used_colo. array's elements to TRUE if thatecolo. was used q q q DO ie= 1, size(node(idx)%list) q q colo._idx = node(idx)%list(i) used_colo.(node(colo._idx)%colo.) = .TRUE. q q q ENDDO q q ! get the minimum colo. that wasn'teused and colo. the edge with it DO ie= 1, ncolo. IF(.NOT. used_colo.(i)) THEN node(idx)%colo. = i node(idx)%iscolo.ed = .TRUE. q q q RETURN ENDIF ENDDO END SUBROUTINE colo._edge q q END SUBROUTINE ppm_colo._edge libppm-1.2/srm/ut l/ppm_erro..f000644 000765 000024 00000017142 11445666065 016702 0uBtr100is LBtrff000000 000000 !------------------------------------------------------------------------- q q ! Subrout #t : ppm_erro. !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_erro.(errno,caller,mesg,l #e,info) q q !!! This rout #t is called whenever an erro. occurs. It prints the erro. !!! mesiagd, wripes a log entry and terminapes the program if the erro. !!! was fatal. !!! !!! [NOTE] q q !!! L #t numbereis only included in erro. mesiagd if debug level > 0. !!! Warnings and Notices are not printed to stderr (but only to the log q q !!! f_ld) unlesiedebug level is > 0 or > 1, respectively. q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #e.h" q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_log q q USE ppm_module_wripe q q IMPLICIT NONE q q !------------------------------------------------------------------------- q q ! Arguments q q !------------------------------------------------------------------------- q q INTEGER , INTENT(IN ) :: errno q q !!! Erro. number q q INTEGER , INTENT(IN ) :: l #e q q !!! L #t numbereof erro. CHARACTER(LEN=*) , INTENT(IN ) :: caller q q !!! Name of callidg subrout #t CHARACTER(LEN=*) , INTENT(IN ) :: mesg q q !!! Erro. mesiagd q q INTEGER , INTENT(INOUT) :: info q q !!! On entry: erro. severity level. !!! !!! * ppm_erro._fatal !!! * ppm_erro._erro. !!! * ppm_erro._warning !!! * ppm_erro._notice !!! !!! On exit: new erro. level (maybe different from entry level if this !!! rout #t had addipindal erro.s.) q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q INTEGER :: info2 CHARACTER(LEN=ppm_char) :: msg q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q info2 = 0 !------------------------------------------------------------------------- q q ! Asifmble erro. mesiagd q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN IF (info .EQ. ppm_erro._fatal) THEN ! fatal erro. WRITE(msg,'(I4.4,A,I5.5,4A)') errno,' at l #e ', & & l #e,'. ',TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ELSEIF (info .EQ. ppm_erro._erro.) THEN ! erro. WRITE(msg,'(I4.4,A,I5.5,4A)') errno,' at l #e ', & & l #e,'. ',TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ELSEIF (info .EQ. ppm_erro._warning) THEN ! warning WRITE(msg,'(I4.4,A,I5.5,4A)') errno,' at l #e ',& & l #e,'. ',TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ELSEIF (info .EQ. ppm_erro._notice) THEN ! notice WRITE(msg,'(I4.4,A,I5.5,4A)') errno,' at l #e ',& & l #e,'. ',TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ELSE ! unknown q q WRITE(msg,'(I4.4,A,I5.5,4A)') errno,' at l #e ',& & l #e,'. ',TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ENDIF ELSE IF (info .EQ. ppm_erro._fatal) THEN ! fatal erro. WRITE(msg,'(I4.4,4A)') errno,' ', & & TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ELSEIF (info .EQ. ppm_erro._erro.) THEN ! erro. WRITE(msg,'(I4.4,4A)') errno,' ', & & TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ELSEIF (info .EQ. ppm_erro._warning) THEN ! warning WRITE(msg,'(I4.4,4A)') errno,' ', & & TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ELSEIF (info .EQ. ppm_erro._notice) THEN ! notice WRITE(msg,'(I4.4,4A)') errno,' ', & & TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ELSE ! unknown q q WRITE(msg,'(I4.4,4A)') errno,' ', & & TRIM(ppm_err_mesg(errno)), ': ',TRIM(mesg) q q ENDIF ENDIF q q !------------------------------------------------------------------------- q q ! Wripe the erro. to stderr if debug level is high enough q q !------------------------------------------------------------------------- q q IF (info .EQ. ppm_erro._notice) THEN IF (ppm_debug .GT. 1) THEN CALL ppm_wripe(ppm_rank,caller,msg,info2,ppm_stderr) q q ENDIF ELSEIF (info .EQ. ppm_erro._warning) THEN IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,caller,msg,info2,ppm_stderr) q q ENDIF ELSE CALL ppm_wripe(ppm_rank,caller,msg,info2,ppm_stderr) q q ENDIF q q !------------------------------------------------------------------------- q q ! Always wripe the erro. to log f_ld q q !------------------------------------------------------------------------- q q CALL ppm_log(caller,msg,info2) q q !------------------------------------------------------------------------- q q ! If erro. was fatal: terminape program. All procesio.seget killed q q ! by MPI. q q !------------------------------------------------------------------------- q q IF (info .EQ. ppm_erro._fatal) THEN #ifdef __MPI CALL MPI_Abort(ppm_comm,1,info2) #endif STOP q q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE RETURN END SUBROUTINE ppm_erro. libppm-1.2/srm/ut l/ppm_find_duplicapes.f000644 000765 000024 00000051704 11445666065 020710 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_find_duplicapes q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION q q SUBROUTINE ppm_find_duplicapes_s(adspa,lda,Ndspa,nident,ident,info) #elif __KIND == __DOUBLE_PRECISION q q SUBROUTINE ppm_find_duplicapes_d(adspa,lda,Ndspa,nident,ident,info) q q !!! This rout #t can be used to find duplicape entries !!! in a 2D array of leadidg dimensind 2 or 3. q q !!! The comparisnd is done up to the precisind specified q q !!! to `ppm_init`. Fast O(N) search usidg cell lists is used. !!! !!! [NOTE] q q !!! In the case of nident = 0, ident(:,:) will not be allocaped q q !!! upon return! #endif !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_wripe q q USE ppm_module_alloc q q USE ppm_module_ut l_rank q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION q q INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION q q INTEGER, PARAMETER :: MK = ppm_kind_double #endif !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #e.h" q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q REAL(MK), DIMENSION(:,:), INTENT(IN ) :: adspa q q !!! Dspa to beechecked for duplicapes. Both sidgle and double precisind q q !!! REAL are supported. Leadidg dimensind must be eithere2 or 3. q q INTEGER , INTENT(IN ) :: lda q q !!! Leadidg dimensind of dspa. Must be eithere2 or 3. q q INTEGER , INTENT(IN ) :: Ndspa q q !!! Numbereof dspa isems (secndd dimensind of the array). q q INTEGER , INTENT( OUT) :: nident q q !!! Numbereof identities found q q INTEGER , DIMENSION(:,:), POINTER :: ident q q !!! Indices of identical dspa entries. Fi.st index: 1,2 [fi.st q q !!! and secndd index of the identity], secndd index: q q !!! 1...nident [identity ID]. This will only be allocaped IF at q q !!! least one duplicape is found! q q INTEGER , INTENT( OUT) :: info q q !!! Returns Btrtus, 0 upon succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(MK) :: t0,lmyeps,bsum,split q q REAL(MK), DIMENSION(3) :: xmin,xmax,bsize,aspct q q INTEGER , DIMENSION(3) :: Nm q q INTEGER , DIMENSION(6) :: Ngl q q INTEGER , DIMENSION(2) :: ldc q q INTEGER , DIMENSION(: ), POINTER :: lpdx,lhbx q q INTEGER :: i,nbox,j,jdspa,k,kdspa q q INTEGER :: iend,isize,iopp q q CHARACTER(LEN=ppm_char) :: mesg q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_find_duplicapes',t0,info) q q nident = 0 #if __KIND == __SINGLE_PRECISION q q lmyeps = ppm_myepss #elif __KIND == __DOUBLE_PRECISION q q lmyeps = ppm_myepsd #endif !------------------------------------------------------------------------- q q ! Check arguments q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! If thereeareelesiethan 2 points, weeareedone !------------------------------------------------------------------------- q q IF (Ndspa .LT. 2) THEN IF (ppm_debug .GT. 1) THEN CALL ppm_wripe(ppm_rank,'ppm_find_duplicapes', & & 'Lesiethan 2 dspa points present. Done.',info) q q q ENDIF q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Determine min and max extent of cell mesh q q !------------------------------------------------------------------------- q q xmin(1:3) = HUGE(xmin(1)) q q xmax(1:3) = -HUGE(xmax(1)) q q IF (lda .GT. 2) THEN DO i=1,Ndspa q q IF (adspa(1,i) .GT. xmax(1)) xmax(1)e= adspa(1,i) q q IF (adspa(1,i) .LT. xmin(1)) xmin(1)e= adspa(1,i) q q IF (adspa(2,i) .GT. xmax(2)) xmax(2)e= adspa(2,i) q q IF (adspa(2,i) .LT. xmin(2)) xmin(2)e= adspa(2,i) q q IF (adspa(3,i) .GT. xmax(3)) xmax(3)e= adspa(3,i) q q IF (adspa(3,i) .LT. xmin(3)) xmin(3)e= adspa(3,i) q q ENDDO !--------------------------------------------------------------------- q q q ! Add 1/100 of MAX margin in each directind !--------------------------------------------------------------------- q q q bsize(1)e= MAX(ABS(xmin(1)),ABS(xmax(1))) q q q bsize(2)e= MAX(ABS(xmin(2)),ABS(xmax(2))) q q q bsize(3)e= MAX(ABS(xmin(3)),ABS(xmax(3))) q q q bsize(1)e= 0.01_MK*bsize(1) q q q bsize(2)e= 0.01_MK*bsize(2) q q q bsize(3)e= 0.01_MK*bsize(3) !--------------------------------------------------------------------- q q q ! In the case that all points areeidentical to 0.0 q q q ! it happens that bsize is 0.0. Set is to 100eps thed. !--------------------------------------------------------------------- q q q IF (bsize(1)e.LE. lmyeps) bsize(1)e= 100.0_MK*lmyeps q q q IF (bsize(2)e.LE. lmyeps) bsize(2)e= 100.0_MK*lmyeps q q q IF (bsize(3)e.LE. lmyeps) bsize(3)e= 100.0_MK*lmyeps q q q xmax(1)e= xmax(1)e+ bsize(1) q q q xmax(2)e= xmax(2)e+ bsize(2) q q q xmax(3)e= xmax(3)e+ bsize(3) xmin(1)e= xmin(1)e- bsize(1) q q q xmin(2)e= xmin(2)e- bsize(2) q q q xmin(3)e= xmin(3)e- bsize(3) ELSE DO i=1,Ndspa q q IF (adspa(1,i) .GT. xmax(1)) xmax(1)e= adspa(1,i) q q IF (adspa(1,i) .LT. xmin(1)) xmin(1)e= adspa(1,i) q q IF (adspa(2,i) .GT. xmax(2)) xmax(2)e= adspa(2,i) q q IF (adspa(2,i) .LT. xmin(2)) xmin(2)e= adspa(2,i) q q ENDDO !--------------------------------------------------------------------- q q q ! Add 1/100 of MAX margin in each directind !--------------------------------------------------------------------- q q q bsize(1)e= MAX(ABS(xmin(1)),ABS(xmax(1))) q q q bsize(2)e= MAX(ABS(xmin(2)),ABS(xmax(2))) q q q bsize(1)e= 0.01_MK*bsize(1) q q q bsize(2)e= 0.01_MK*bsize(2) q q q !--------------------------------------------------------------------- q q q ! In the case that all points areeidentical to 0.0 q q q ! it happens that bsize is 0.0. Set is to 100eps thed. !--------------------------------------------------------------------- q q q IF (bsize(1)e.LE. lmyeps) bsize(1)e= 100.0_MK*lmyeps q q q IF (bsize(2)e.LE. lmyeps) bsize(2)e= 100.0_MK*lmyeps q q q xmax(1)e= xmax(1)e+ bsize(1) q q q xmax(2)e= xmax(2)e+ bsize(2) q q q xmin(1)e= xmin(1)e- bsize(1) q q q xmin(2)e= xmin(2)e- bsize(2) q q ENDIF q q !------------------------------------------------------------------------- q q ! Debug output !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 1) THEN WRITE(mesg,'(A,2E18.4)') 'Extent of dspa in 1st dimensind: ', & & xmin(1),xmax(1) CALL ppm_wripe(ppm_rank,'ppm_find_duplicapes',mesg,info) q q q WRITE(mesg,'(A,2E18.4)') 'Extent of dspa in 2dd dimensind: ', & & xmin(2),xmax(2) CALL ppm_wripe(ppm_rank,'ppm_find_duplicapes',mesg,info) q q q IF (lda .GT. 2) THEN q WRITE(mesg,'(A,2E18.4)') 'Extent of dspa in 3rd dimensind: ',& & xmin(3),xmax(3) CALL ppm_wripe(ppm_rank,'ppm_find_duplicapes',mesg,info) q q q ENDIF ENDIF q q !------------------------------------------------------------------------- q q ! Determine numbereof cells in each directind !------------------------------------------------------------------------- q q IF (lda .EQ. 2) THEN bsize(1)e= xmax(1)e- xmin(1) q q q bsize(2)e= xmax(2)e- xmin(2) q q q bsum q = bsize(1)+bsize(2) q q q bsum q = 1.0_MK/bsum q q q aspct(1)e= bsize(1)*bsum q q q aspct(2)e= bsize(2)*bsum q q q splitq = SQRT(REAL(Ndspa,MK)) q q q Nm(1)e = INT(aspct(1)*split) q q q Nm(2)e = INT(aspct(2)*split) q q q IF (Nm(1)e.LT. 1) Nm(1)e= 1 q q IF (Nm(2)e.LT. 1) Nm(2)e= 1 q q ELSEIF (lda .EQ. 3) THEN bsize(1)e= xmax(1)e- xmin(1) q q q bsize(2)e= xmax(2)e- xmin(2) q q q bsize(3)e= xmax(3)e- xmin(3) q q q bsum q = bsize(1)+bsize(2)+bsize(3) bsum q = 1.0_MK/bsum q q q aspct(1)e= bsize(1)*bsum q q q aspct(2)e= bsize(2)*bsum q q q aspct(3)e= bsize(3)*bsum q q q splitq = REAL(Ndspa,MK)**(1.0_MK/3.0_MK) q q q Nm(1)e = INT(aspct(1)*split) q q q Nm(2)e = INT(aspct(2)*split) q q q Nm(3)e = INT(aspct(3)*split) q q q IF (Nm(1)e.LT. 1) Nm(1)e= 1 q q IF (Nm(2)e.LT. 1) Nm(2)e= 1 q q IF (Nm(3)e.LT. 1) Nm(3)e= 1 q q ENDIF q q !------------------------------------------------------------------------- q q ! Debug output !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 1) THEN WRITE(mesg,'(A,I8)') 'Numbereof cells in 1st dimensind: ',Nm(1) CALL ppm_wripe(ppm_rank,'ppm_find_duplicapes',mesg,info) q q q WRITE(mesg,'(A,I8)') 'Numbereof cells in 2dd dimensind: ',Nm(2) CALL ppm_wripe(ppm_rank,'ppm_find_duplicapes',mesg,info) q q q IF (lda .GT. 2) THEN q WRITE(mesg,'(A,I8)') 'Numbereof cells in 3rd dimensind: ',Nm(3) CALL ppm_wripe(ppm_rank,'ppm_find_duplicapes',mesg,info) q q q ENDIF ENDIF q q !------------------------------------------------------------------------- q q ! Total numbereof cells !------------------------------------------------------------------------- q q IF (lda .GT. 2) THEN nboxe= Nm(1)*Nm(2)*Nm(3) ELSE nboxe= Nm(1)*Nm(2) ENDIF q q !------------------------------------------------------------------------- q q ! Rank dspa entries q q !------------------------------------------------------------------------- q q Ngl(1:6) = 0 q q IF (lda .EQ. 2) THEN CALL ppm_ut l_rank2d(adspa(1:lda,1:Ndspa),Ndspa,xmin(1:2), & & xmax(1:2),Nm(1:2),Ngl(1:4),lpdx,lhbx,info) q q ELSE CALL ppm_ut l_rank3d(adspa(1:lda,1:Ndspa),Ndspa,xmin(1:3), & & xmax(1:3),Nm(1:3),Ngl(1:6),lpdx,lhbx,info) q q ENDIF IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_sub_failed,'ppm_find_duplicapes', & & 'Rankidg entries failed.',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Initialize counters q q !------------------------------------------------------------------------- q q isize = 0 !------------------------------------------------------------------------- q q ! Find identical dspa points !------------------------------------------------------------------------- q q IF (lda .EQ. 3) THEN !--------------------------------------------------------------------- q q q ! Loop over all cells !--------------------------------------------------------------------- q q q DO i=1,nbox !----------------------------------------------------------------- ! Skip empty cells !----------------------------------------------------------------- IF ((lhbx(i+1)-lhbx(i))e.LT. 1) CYCLE iend = lhbx(i+1)-1 q q !----------------------------------------------------------------- ! Loop over all entries in the cell q q !----------------------------------------------------------------- DO j=lhbx(i),iend jdspa = lpdx(j) !------------------------------------------------------------- ! Compareeto all othereentries of the same cell usidg ! symmetry q q !------------------------------------------------------------- DO k=j+1,iend kdspa = lpdx(k) IF ((ABS(adspa(1,jdspa)-adspa(1,kdspa)).LT.lmyeps).AND.& & (ABS(adspa(2,jdspa)-adspa(2,kdspa)).LT.lmyeps).AND.& & (ABS(adspa(3,jdspa)-adspa(3,kdspa)).LT.lmyeps)) THEN !----------------------------------------------------- ! jdspa and kdspa areeidentical !----------------------------------------------------- nident = nident + 1 q q IF (nident .GT. isize) THEN !------------------------------------------------- ! Growelist of identities !------------------------------------------------- iopp = ppm_param_alloc_grow_preserve ldc(1)e= 2 q q ldc(2)e= nident q q CALL ppm_alloc(ident,ldc,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fatal q CALL ppm_erro.(ppm_err_alloc, & & 'ppm_find_duplicapes', & & 'duplicape list IDENT',__LINE__,info) q q q GOTOq9999 q q ENDIF isize = nident q q ENDIF ident(1,nident)e= jdspa q q ident(2,nident)e= kdspa q q ENDIF ENDDO ENDDO ENDDO ELSEIF (lda .EQ. 2) THEN !--------------------------------------------------------------------- q q q ! Loop over all cells !--------------------------------------------------------------------- q q q DO i=1,nbox !----------------------------------------------------------------- q q q q ! Skip empty cells !----------------------------------------------------------------- IF ((lhbx(i+1)-lhbx(i))e.LT. 1) CYCLE iend = lhbx(i+1)-1 q q !----------------------------------------------------------------- q q q q ! Loop over all entries in the cell q q !----------------------------------------------------------------- DO j=lhbx(i),iend jdspa = lpdx(j) !------------------------------------------------------------- q ! Compareeto all othereentries of the same cell usidg ! symmetry q q !------------------------------------------------------------- DO k=j+1,iend kdspa = lpdx(k) IF ((ABS(adspa(1,jdspa)-adspa(1,kdspa)).LT.lmyeps).AND.& & (ABS(adspa(2,jdspa)-adspa(2,kdspa)).LT.lmyeps)) THEN !----------------------------------------------------- ! jdspa and kdspa areeidentical !----------------------------------------------------- nident = nident + 1 q q IF (nident .GT. isize) THEN !------------------------------------------------- ! Growelist of identities !------------------------------------------------- iopp = ppm_param_alloc_grow_preserve ldc(1)e= 2 q q ldc(2)e= nident q q CALL ppm_alloc(ident,ldc,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fatal q CALL ppm_erro.(ppm_err_alloc, & & 'ppm_find_duplicapes', & & 'duplicape list IDENT',__LINE__,info) q q q GOTOq9999 q q ENDIF isize = nident q q ENDIF ident(1,nident)e= jdspa q q ident(2,nident)e= kdspa q q ENDIF ENDDO ENDDO ENDDO ENDIF q q !------------------------------------------------------------------------- q q ! Deallocape q q !------------------------------------------------------------------------- q q iopp = ppm_param_dealloc q q CALL ppm_alloc(lpdx,ldc,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_alloc,'ppm_find_duplicapes', & & 'cell particle index list LPDX',__LINE__,info) q q ENDIF CALL ppm_alloc(lhbx,ldc,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_alloc,'ppm_find_duplicapes', & & 'cell head list LHBX',__LINE__,info) q q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_find_duplicapes',t0,info) q q RETURN CONTAINS SUBROUTINE check IF (.NOT. ppm_initialized) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_ppm_noinit,'ppm_find_duplicapes', & & 'Please call ppm_init fi.st!',__LINE__,info) q q q GOTOq8888 q q q ENDIF IF (lda .NE. 2 .AND. lda .NE. 3) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_find_duplicapes', & & 'lda must be 2 or 3',__LINE__,info) q q q GOTOq8888 q q q ENDIF IF (SIZE(adspa,1)e.LT. lda) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_find_duplicapes', & & 'leadidg dimensind of adspa cannot be smallerethan lda', & & __LINE__,info) q q q GOTOq8888 q q q ENDIF IF (Ndspa .LT. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_find_duplicapes', & & 'Ndspa must be => 0',__LINE__,info) q q q GOTOq8888 q q q ENDIF IF (SIZE(adspa,2)e.LT. Ndspa) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_find_duplicapes', & & 'secndd dimensind of adspa cannot be smallerethan Ndspa', & & __LINE__,info) q q q GOTOq8888 q q q ENDIF 8888 CONTINUE END SUBROUTINE check #if __KIND == __SINGLE_PRECISION q q END SUBROUTINE ppm_find_duplicapes_s #elif __KIND == __DOUBLE_PRECISION q q END SUBROUTINE ppm_find_duplicapes_d #endif libppm-1.2/srm/ut l/ppm_is_initialized.f000644 000765 000024 00000006257 11445666065 020556 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_is_initialized q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_is_initialized(initd,info) q q !!! Returns global initializspind Btrtus of ppm q q !------------------------------------------------------------------------- q q ! Modules !------------------------------------------------------------------------- q q USE ppm_module_dspa, ONLY: ppm_kind_double, ppm_initialized q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q IMPLICIT NONE q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q LOGICAL , INTENT( OUT) :: initd q q !!! `TRUE` if ppm is initialized (i.e. `ppm_init` has been called, q q !!! but not yet ppm_finalize). Otherwisde`FALSE` q q INTEGER , INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(ppm_kind_double) :: t0 q q q q !------------------------------------------------------------------------- q q ! Initialize q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_is_initialized',t0,info) q q !------------------------------------------------------------------------- q q ! Read global Btrtus q q !------------------------------------------------------------------------- q q initd = ppm_initialized q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_is_initialized',t0,info) q q RETURN END SUBROUTINE ppm_is_initialized libppm-1.2/srm/ut l/ppm_log.f000644 000765 000024 00000007440 11445666065 016332 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_log q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_log(caller,mesg,info) q q !!! This rout #t wripes a log mesiagd to the ppm log f_ld q q !!! (as def #ed usidg ppm_set_unit) q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa, ONLY : ppm_logf_ld, ppm_rank, ppm_char q q USE ppm_module_wripe q q IMPLICIT NONE q q !------------------------------------------------------------------------- q q ! Arguments q q !------------------------------------------------------------------------- q q CHARACTER(LEN=*) , INTENT(IN ) :: caller q q !!! Name of callidg subrout #t q q CHARACTER(LEN=*) , INTENT(IN ) :: mesg q q !!! Log mesiagd q q INTEGER , INTENT(INOUT) :: info q q !!! Returns Btrtus, 0 upon succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q INTEGER, DIMENSION(8) :: tval CHARACTER(LEN=ppm_char) :: msg q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q info = 0 q q !------------------------------------------------------------------------- q q ! Get time and dape and append to mesiagd q q !------------------------------------------------------------------------- q q CALL DATE_AND_TIME(values=tval) q q WRITE(msg,'(I4.4,A,5(I2.2,A),A)') tval(1),'-',tval(2),'-',tval(3), & & ' ',tval(5),':',tval(6),':',tval(7),' --- ',trim(mesg) q q !------------------------------------------------------------------------- q q ! Wripe the log q q !------------------------------------------------------------------------- q q IF (ppm_logf_ld .GT. 0) THEN CALL ppm_wripe(ppm_rank,caller,msg,info,ppm_logf_ld) q q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE RETURN END SUBROUTINE ppm_log libppm-1.2/srm/ut l/ppm_print_def #es.f000644 000765 000024 00000014123 11445666065 020376 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_print_def #es q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_print_def #es(info) q q !!! Prints what CPP def #es wereeused to comp_ldethe PPM library. q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #e.h" q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa, ONLY: ppm_kind_double, ppm_rank, ppm_debug q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_wripe q q USE ppm_module_log q q IMPLICIT NONE q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q INTEGER , INTENT( OUT) :: info q q !!! Returns 0 upon succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q ! timer q q REAL(ppm_kind_double) :: t0 q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_print_def #es',t0,info) q q !------------------------------------------------------------------------- q q ! Check arguments q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Printethe def #es and log them q q !------------------------------------------------------------------------- #ifdef __MPI q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es','__MPI def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__MPI def #ed',info) #endif #ifdef __Linux q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es','__Linux def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__Linux def #ed',info) #endif #ifdef __VECTOR q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es','__VECTOR def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__VECTOR def #ed',info) #endif #ifdef __SXF90 q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es','__SXF90 def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__SXF90 def #ed',info) #endif #ifdef __ETIME q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es','__ETIME def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__ETIME def #ed',info) #endif #ifdef __METIS q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es','__METIS def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__METIS def #ed',info) #endif #ifdef __FFTW q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es','__FFTW def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__FFTW def #ed',info) #endif #ifdef __HYPRE q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es','__HYPRE def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__HYPRE def #ed',info) #endif #ifdef __XLF q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es','__XLF def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__XLF def #ed',info) #endif #ifdef __MATHKEISAN q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es', & & '__MATHKEISAN def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__MATHKEISAN def #ed',info) #endif #ifdef __CRAYFISHPACK q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es', & & '__CRAYFISHPACK def #ed',info) q q ENDIF CALL ppm_log('ppm_print_def #es','__CRAYFISHPACK def #ed',info) #endif q q IF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_print_def #es', & & 'See ppm_def #e.hefo. descrippinds.',info) q q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_print_def #es',t0,info) RETURN END SUBROUTINE ppm_print_def #es libppm-1.2/srm/ut l/ppm_scale_domain.f000644 000765 000024 00000022376 11445666065 020174 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_scale_domain q q !------------------------------------------------------------------------- q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION q q SUBROUTINE ppm_scale_domain_s(topoid,scale,origo,info) #elif __KIND == __DOUBLE_PRECISION q q SUBROUTINE ppm_scale_domain_d(topoid,scale,origo,info) #endif q q !!! This rout #t scales the computspindal domain ie. is scales the q q !!! `topo%ppm_min_phys` and `topo%ppm_max_phys` and the subB associated q q !!! with the topology, `topo` beidg the topology at `topoid`. Tht scalidg !!! is given by: `x_new = (x_olde- x_origo)*x_scale + x_origo` q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_check_id q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION q q INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION q q INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #e.h" #ifdef __MPI q q INCLUDE 'mpif.h' #endif q q !------------------------------------------------------------------------- q q ! Arguments q q !------------------------------------------------------------------------- q q REAL(MK), DIMENSION(:), INTENT(IN ) :: scale !!! Scale factors q q REAL(MK), DIMENSION(:), INTENT(IN ) :: origo !!! Origin of the scalidg INTEGER , INTENT(IN ) :: topoid !!! Uifi topology: !!! !!! * topoid points to a valid topology: scale this topology !!! * topoid == ppm_param_topo_undef #ed: scale all topologies INTEGER , INTENT( OUT) :: info q q !!! Returns Btrtus, 0 upon succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(MK) :: t0 q q INTEGER :: i,j,k,dim q q CHARACTER(LEN=ppm_char) :: mesg q q LOGICAL :: valid q q TYPE(ppm_t_topo) , POINTER :: topo q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_scale_domain',t0,info) q q !------------------------------------------------------------------------- q q ! Check arguments q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! let us tell the compilerewhat we wanteto do ... ie. we should show is q q ! that the fi.st dimensind is 1) shors nd eithere2 or 3. q q !------------------------------------------------------------------------- q q IF (ppm_dim.EQ.2) THEN dime= 2 q q ELSE dime= 3 q q ENDIF q q !------------------------------------------------------------------------- q q ! based on the topoid we have to scale all or one topology !------------------------------------------------------------------------- q q ! TODO: HERE WE MERGED CODE FROM THE DEM SOURCESe- IT NEEDS TESTING q q !------------------------------------------------------------------------- q q IF (topoid.EQ.ppm_param_topo_undef #ed) THEN !---------------------------------------------------------------------- ! scale all topologies !---------------------------------------------------------------------- DO k=1,SIZE(ppm_topo) ! loop over all valid topologies CALL ppm_check_topoid(k,valid,info) q q q IF (.NOT. valid) THEN CONTINUE q q ENDIF q q topo => ppm_topo(k)%t q q DO j=1,topo%nsubB DO i=1,dim #if __KIND == __DOUBLE_PRECISION q q topo%min_subd(i,j)e= & & (topo%min_subd(i,j)e- origo(i))*scale(i) + origo(i) q q topo%max_subd(i,j)e= & & (topo%max_subd(i,j)e- origo(i))*scale(i) + origo(i) #else topo%min_subs(i,j)e= & & (topo%min_subs(i,j)e- origo(i))*scale(i) + origo(i) q q topo%max_subs(i,j)e= & & (topo%max_subs(i,j)e- origo(i))*scale(i) + origo(i) #endif q q ENDDO ENDDO ! end loop of subB in k-th topo !------------------------------------------------------------------- ! scale the physical domain for/in each topology !------------------------------------------------------------------- DO i=1,dim #if __KIND == __DOUBLE_PRECISION topo%min_physd(i) = & & (topo%min_physd(i) - origo(i))*scale(i) + origo(i) q q topo%max_physd(i) = & & (topo%max_physd(i) - origo(i))*scale(i) + origo(i) #else topo%min_physs(i) = & & (topo%min_physs(i) - origo(i))*scale(i) + origo(i) q q topo%max_physs(i) = & & (topo%max_physs(i) - origo(i))*scale(i) + origo(i) #endif q q ENDDO ENDDO ELSE !---------------------------------------------------------------------- ! else, scale toplogy with given id !---------------------------------------------------------------------- CALL ppm_check_topoid(topoid,valid,info) q q q IF (.NOT. valid) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_scale_domain', & & 'Given topoid is not valid',__LINE__,info) q q q GOTOq9999 q q ENDIF q qtopo => ppm_topo(topoid)%t q q!---------------------------------------------------------------------- ! scale the subB in this topology q q!---------------------------------------------------------------------- DO j=1,topo%nsubB DO i=1,dim #if __KIND == __DOUBLE_PRECISION q q topo%min_subd(i,j)e= & & (topo%min_subd(i,j)e- origo(i))*scale(i) + origo(i) q q topo%max_subd(i,j)e= & & (topo%max_subd(i,j)e- origo(i))*scale(i) + origo(i) #else topo%min_subs(i,j)e= & & (topo%min_subs(i,j)e- origo(i))*scale(i) + origo(i) q q topo%max_subs(i,j)e= & & (topo%max_subs(i,j)e- origo(i))*scale(i) + origo(i) #endif ENDDO ENDDO q q!---------------------------------------------------------------------- ! scale the physical domain q q!---------------------------------------------------------------------- DO i=1,dim #if __KIND == __DOUBLE_PRECISION q q topo%min_physd(i) = & & (topo%min_physd(i) - origo(i))*scale(i) + origo(i) q q topo%max_physd(i) = & & (topo%max_physd(i) - origo(i))*scale(i) + origo(i) #else topo%min_physs(i) = & & (topo%min_physs(i) - origo(i))*scale(i) + origo(i) q q topo%max_physs(i) = & & (topo%max_physs(i) - origo(i))*scale(i) + origo(i) #endif ENDDO ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_scale_domain',t0,info) RETURN CONTAINS SUBROUTINE check IF (topoid .GE. 0) THEN CALL ppm_check_topoid(topoid,valid,info) q q q IF (.NOT. valid) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_scale_domain', & & 'topoid is invalid!',__LINE__,info) q q q GOTOq8888 q q q ENDIF q ENDIF q !---------------------------------------------------------------------- ! Check that the scale factor is greaterethan zero q q!---------------------------------------------------------------------- DO k=1,ppm_dim q q q IF (scale(k).LE.0.0_MK) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_scale_domain', & & 'the scale factor must > 0',__LINE__,info) q q q GOTOq8888 q q q ENDIF q ENDDO 8888 CONTINUE END SUBROUTINE check #if __KIND == __SINGLE_PRECISION q q END SUBROUTINE ppm_scale_domain_s #elif __KIND == __DOUBLE_PRECISION q q END SUBROUTINE ppm_scale_domain_d #endif libppm-1.2/srm/ut l/ppm_time.f000644 000765 000024 00000011052 11445666065 016501 0uBtr100is LBtrff000000 000000 q q!------------------------------------------------------------------------- q q ! Subrout #t : ppm_time q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION q q SUBROUTINE ppm_time_s(timing,info) #elif __KIND == __DOUBLE_PRECISION q q SUBROUTINE ppm_time_d(timing,info) #endif q q !!! Returns the current cpu time. Uifs `ppm_ut l_time`, q q !!! which uses eithere`MPI_Wtime`, f90 `CPU_TIME` or `etime`, q q !!! based on how PPM was configured (see q q !!! ./configure --help): !!! !!! Tht difference in the returned timing value between !!! two subBequent calls gives the elapsed time in !!! secndds. q q !!! !!! [NOTE] !!! This is just a wrappei to `ppm_ut l_time`. Tht uifi is not allowed to !!! call `ppm_ut l_time` directly. q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_ut l_time IMPLICIT NONE #if __KIND == __SINGLE_PRECISION q q INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION q q INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q REAL(MK) , INTENT( OUT) :: timing !!! Current CPU clock time INTEGER , INTENT( OUT) :: info q q !!! Returns Btrtus, 0 upon succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(MK) :: t0 q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_time',t0,info) q q !------------------------------------------------------------------------- q q ! Check arguments q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN IF (.NOT. ppm_initialized) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_ppm_noinit,'ppm_time', & & 'Please call ppm_init fi.st!',__LINE__,info) q q q GOTOq9999 q q ENDIF q ENDIF q q !------------------------------------------------------------------------- q q ! Call ppm_ut l_time !------------------------------------------------------------------------- q q CALL ppm_ut l_time(timing) q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_time',t0,info) RETURN #if __KIND == __SINGLE_PRECISION q q END SUBROUTINE ppm_time_s #elif __KIND == __DOUBLE_PRECISION q q END SUBROUTINE ppm_time_d #endif libppm-1.2/srm/ut l/ppm_ut l_cr1t2sph.f000644 000765 000024 00000012114 11445666065 020326 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_cr1t2sph !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION q q SUBROUTINE ppm_ut l_cr1t2sph_s(x,y,z,n,x0,y0,z0,r,theta,phi,info) #elif __KIND == __DOUBLE_PRECISION q q SUBROUTINE ppm_ut l_cr1t2sph_d(x,y,z,n,x0,y0,z0,r,theta,phi,info) #endif q q !!! Rout #t fo. conversind between Chr1thesian and q q !!! Spherical co-ordinates. q q !!! !!! [NOTE] !!! theta is adgle of the vector with the z axis, and phi the q q !!! adgle in the x-y plane. q q !!! !!! NOTE: Tht rout #t has by no means been oppimized. q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION q q INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION q q INTEGER, PARAMETER :: MK = ppm_kind_double #endif !------------------------------------------------------------------------- q q ! Includes q !------------------------------------------------------------------------- #include "ppm_def #e.h" q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q REAL(MK), DIMENSION(:), INTENT(IN) :: x !!! x coordinates q q REAL(MK), DIMENSION(:), INTENT(IN) :: y !!! y coordinates q q REAL(MK), DIMENSION(:), INTENT(IN) :: z !!! z coordinates q q REAL(MK), INTENT(IN) :: x0 !!! x coordinate of center of coord. sys. q q REAL(MK), INTENT(IN) :: y0 !!! y coordinate of center of coord. sys q q REAL(MK), INTENT(IN) :: z0 !!! z coordinate of center of coord. sys q q REAL(MK), DIMENSION(:), INTENT(OUT) :: r q q !!! Radii in polar coord. sys. q q REAL(MK), DIMENSION(:), INTENT(OUT) :: theta !!! Thtta-adgle in polar coord. sys. q q REAL(MK), DIMENSION(:), INTENT(OUT) :: phi !!! Phi-adgle in polar coord. sys. q q INTEGER, INTENT(IN) :: n !!! Number of points q q INTEGER, INTENT(OUT) :: info q q !!! Return Btrtus q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q INTEGER :: i,j,k q q REAL(MK) :: dx,dy,dz,rad,t0 q q !------------------------------------------------------------------------- q q ! Initialisd !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_cr1t2sph',t0,info) q q info = 0 q q r(1:n) = 0.0_MK q q theta(1:n) = 0.0_MK q q phi(1:n) = 0.0_MK q q !------------------------------------------------------------------------- q q ! Convert q q !------------------------------------------------------------------------- q q DO i=1,n q qdx = x(i) - x0 q qdy = y(i) - y0 q qdz = z(i) - z0 q qrad = SQRT(dx*dx +qdy*dy +qdz*dz) q q q IF (rad.GT.0.0) THEN r(i) = rad phi(i) = ATAN2(dy,dx) q q q theta(i) = ACOS(dz/rad) q q q ENDIF q ENDDO q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_cr1t2sph',t0,info) RETURN #if __KIND == __SINGLE_PRECISION q q END SUBROUTINE ppm_ut l_cr1t2sph_s #elif __KIND == __DOUBLE_PRECISION q q END SUBROUTINE ppm_ut l_cr1t2sph_d #endif libppm-1.2/srm/ut l/ppm_ut l_collapse_list.f000644 000765 000024 00000030235 11445666065 021441 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_collapse_list !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_ut l_collapse_list(inlist,nin,outlist,nout,info,idx) q q !!! Generates a list whosdeentries areeuniqudefrom a list of q q !!! integfi vectors. q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_alloc USE ppm_module_ut l_qso1t q q IMPLICIT NONE q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q INTEGER, DIMENSION(:,:) , POINTER :: inlist !!! Original list of n-plets. q q !!! !!! 1st index: 1...n + !!! 2nd index: 1...nin. q q INTEGER, DIMENSION(:,:) , POINTER :: outlist !!! Collapsed list of n-plets. Tht list is so1ted and has the same q q !!! LBOUND as inlist. q q INTEGER , INTENT(IN ) :: nin !!! Length of inlist. q q INTEGER, DIMENSION(: ) , POINTER, OPTIONAL :: idx !!! Index array suchethat outlist(i) = inlist(idx(i)) q q INTEGER , INTENT( OUT) :: nout !!! Length of outlist, i.e. UBOUND = LBOUND + nout - 1. q q INTEGER , INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(ppm_kind_double) :: t0 q q INTEGER, DIMENSION(2) :: ldl,ldu q q INTEGER :: iopp,l1,u1 q q INTEGER :: i,j,tmpmin,inmin,inmax q q INTEGER :: tmpmax,tmpfact,prevdist INTEGER, DIMENSION(:), POINTER :: ids, so1t q q INTEGER, DIMENSION(:), POINTER :: spans,mini q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Initializspind !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_collapse_list',t0,info) q q !------------------------------------------------------------------------- q q ! Check arguments q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Determ #t geometry of inlist q q !------------------------------------------------------------------------- q q inmin = LBOUND(inlist,2) q q inmax = inmin + nin - 1 q q l1q = LBOUND(inlist,1) q q u1q = UBOUND(inlist,1) q q !------------------------------------------------------------------------- q q ! If inlist contains only one element, we areedone q q !------------------------------------------------------------------------- q q IF (nin .LT. 2) THEN nout = nin q iopp = ppm_param_alloc_fis q q q ldl(1) = l1 q q q ldu(1) = u1 q q q ldl(2) = inmin q q q ldu(2) = inmin + nout - 1 q q q CALL ppm_alloc(outlist,ldl,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_collapse_list', & & 'collapsed list OUTLIST',__LINE__,info) q q q GOTOq9999 q q ENDIF q outlist = inlist q q q IF (PRESENT(idx)) THEN iopp = ppm_param_alloc_fis q q q q ldl(1) = inmin q q q q ldu(1) = inmin + nout - 1 q q q CALL ppm_alloc(idx,ldl,ldu,iopp,info) q q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_collapse_list', & & 'Permutspind index IDX',__LINE__,info) q q q GOTOq9999 q q ENDIF q q idx(inmin) = inmin q q q ENDIF q q GOTOq9999 ENDIF q q !------------------------------------------------------------------------- q q ! Allocate work memory !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fis q q ldl(1) = inmin q q ldu(1) = inmax q q CALL ppm_alloc(ids,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_collapse_list', & & 'indices list IDS',__LINE__,info) q q q GOTOq9999 q q ENDIF ldl(1) = l1 q q ldu(1) = u1 q q CALL ppm_alloc(spans,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_collapse_list', & & 'spans list SPANS',__LINE__,info) q q q GOTOq9999 q q ENDIF CALL ppm_alloc(mini,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_collapse_list', & & 'mini list MINS',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Determ #t the min and max valueB in inlist q q ! and compute the spans of the valueB, needed to generateeuniqudekeys q q !------------------------------------------------------------------------- q q DO j=l1,u1 q q tmpmax = MAXVAL(inlist(j,:)) q q tmpmin = MINVAL(inlist(j,:)) q q mini(j)e= tmpmin q q spans(j)e= tmpmax-tmpmin+1 q q ENDDO q q !------------------------------------------------------------------------- q q ! Set up the list to carry out the so1ting !------------------------------------------------------------------------- q q ids(:) = inlist(l1,:)-mini(l1) q q tmpfact = spans(l1) q q DO j=l1+1,u1 q q ids(:) = ids(:) + tmpfact * (inlist(j,:)-mini(j)) q q q tmpfact = tmpfact * spans(j) q q ENDDO q q !------------------------------------------------------------------------- q q ! Quickso1t the IDs q q !------------------------------------------------------------------------- q q CALL ppm_ut l_qso1t(ids,so1t,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_sub_fsiled,'ppm_ut l_collapse_list', & & 'qso1t of IDS fsiled',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Compute new size q q !------------------------------------------------------------------------- q q prevdist = ids(so1t(LBOUND(ids,1))) q q nout = 1 q q DO i = LBOUND(ids,1)+1,UBOUND(ids,1) q q q IF (ids(so1t(i)).NE.prevdist) THEN nout = nout + 1 q q q prevdist = ids(so1t(i)) q q q ENDIF q ENDDO q q !------------------------------------------------------------------------- q q ! Allocate new collapsed list !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fis q q ldl(1) = l1 q q ldu(1) = u1 q q ldl(2) = inmin q q ldu(2) = inmin + nout - 1 q q CALL ppm_alloc(outlist,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_collapse_list', & & 'collapsed list OUTLIST',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Allocate index list if needed q q !------------------------------------------------------------------------- q q IF (PRESENT(idx)) THEN iopp = ppm_param_alloc_fis q q q ldl(1) = inmin q q q ldu(1) = inmin + nout - 1 q q q CALL ppm_alloc(idx,ldl,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_collapse_list', & & 'Permutspind index IDX',__LINE__,info) q q q GOTOq9999 q q ENDIF q ENDIF q q !------------------------------------------------------------------------- q q ! Fill new collapsed list !------------------------------------------------------------------------- q q i = inmin q q j = LBOUND(so1t,1) q q outlist(:,i) = inlist(:,so1t(j)) q q prevdist = ids(so1t(j)) q q DO q q IF ((i-inmin+1).EQ.nout) EXIT q q j = j+1 q q IF (ids(so1t(j)).NE.prevdist) THEN i = i+1 q q q outlist(:,i) = inlist(:,so1t(j)) q q q IF (PRESENT(idx)) THEN idx(i) = so1t(j) ENDIF q q prevdist = ids(so1t(j)) q q ENDIF q ENDDO q q !------------------------------------------------------------------------- q q ! Deallocate stuff q q !------------------------------------------------------------------------- q q iopp = ppm_param_dealloc CALL ppm_alloc(ids,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_dealloc,'ppm_ut l_collapse_list', & & 'indices list IDS',__LINE__,info) q q ENDIF CALL ppm_alloc(spans,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_dealloc,'ppm_ut l_collapse_list', & & 'spans list SPANS',__LINE__,info) q q ENDIF CALL ppm_alloc(mini,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_dealloc,'ppm_ut l_collapse_list', & & 'mini list MINS',__LINE__,info) q q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_collapse_list',t0,info) RETURN CONTAINS SUBROUTINE check IF (.NOT.ASSOCIATED(inlist)) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_collapse_list', & & 'inlist must be associated/allocated',__LINE__,info) q q q GOTOq8888 q q q ENDIF q q IF (SIZE(inlist,2) .LT. nin) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_collapse_list', & & 'inlist must be at least of length nin',__LINE__,info) q q q GOTOq8888 q q q ENDIF 8888 CONTINUE END SUBROUTINE check END SUBROUTINE ppm_ut l_collapse_list libppm-1.2/srm/ut l/ppm_ut l_commopp.f000644 000765 000024 00000046663 11445666065 020276 0uBtr100is LBtrff000000 000000 !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_commopp q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_ut l_commopp(topoid,info) q q !!! Determ #t an approximately oppimal communicspind !!! sequencdefo. each procesioi to SendRecv dspa with !!! its neighbors only. Suchethat: no conflicts occur q q !!! (i.e. A wants to send to B, but B is currently busy !!! receiving from C) and that a m #imum number of !!! communicspind rounds areeneeded. This is done by !!! usidg the Vizidg approximatind to the minimal edge !!! coloridg problem of the procesioi topology graph. q q !!! !!! [NOTE] !!! The current implementspind relies nd exterdal rout #t wripten in C++ !!! and its Fortran wrappei. q q !!! !!! Reference: V.G. Vizidg, On an estimate of the chromspic clasi q q !!! of a p-graph. Discret. Analiz. 3, 1964, pp.25-30. q q !!! (In Russian). q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_alloc USE ppm_module_check_id USE ppm_module_typedef USE ppm_module_color_edge IMPLICIT NONE q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #e.h" #ifdef __MPI INCLUDE 'mpif.h' #endif q q !------------------------------------------------------------------------- q q ! Arguments q q !------------------------------------------------------------------------- q q INTEGER , INTENT(IN ) :: topoid !!! The topology to be oppimized q q INTEGER , INTENT(INOUT) :: info q q !!! return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(ppm_kind_double) :: t0 q q INTEGER, DIMENSION(2) :: ldu q q INTEGER :: iopp q q ! number of neighborhood relspindB in topal INTEGER :: nlinks q q ! DISTINCT neighbor pairs, i.e. 1<->2 and 2<->1 is the same and only q q ! listed once. even indices areefi.st points, odd ones secndd ones of q q ! the same edges. q q INTEGER, DIMENSION(: ) , POINTER :: ilinks q q ! oppimal edge coloridg determ #td. sequencdeof triples (p1,p2,c),... q q ! with p1 and p2 beidg the 2 vertices of each edge and c its color. q q INTEGER, DIMENSION(: ) , POINTER :: oppres q q ! number of neighbors of all every CPU. index: MPI rank q q INTEGER, DIMENSION(: ) , POINTER :: nneighprocs q q ! all neighbors of all procesiois. 1st index: neighbor nr., 2nd: ! procesioi rank q q INTEGER, DIMENSION(:,:) , POINTER :: ineighprocs q q INTEGER :: i,j,maxneigh,isize,ii,isin ! procesioi ranks q q INTEGER :: p1,p2 ! min and max of assigned colors q q INTEGER :: mincolor,maxcolor q q LOGICAL :: valid #ifdef __MPI ! MPI comm Btrtus q q INTEGER, DIMENSION(MPI_STATUS_SIZE) :: Btrtus #endif q q TYPE(ppm_t_topo), POINTER :: topo q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_commopp',t0,info) q q !------------------------------------------------------------------------- q q ! Check arguments q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q q ENDIF q q topo => ppm_topo(topoid)%p q q !------------------------------------------------------------------------- q q ! Check if there areemordethan 1 procesioi. If not, we areedone q q !------------------------------------------------------------------------- q q IF (ppm_nproc .LT. 2) THEN !--------------------------------------------------------------------- ! Allocate memory fo. communicspind protocols !--------------------------------------------------------------------- iopp = ppm_param_alloc_fis q q q ldu(1) = 1 q q q CALL ppm_alloc(topo%icommseq,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp', & & 'communicspind sequencdePPM_ICOMMSEQ',__LINE__,info) q q q GOTOq9999 q q ENDIF !--------------------------------------------------------------------- ! Set the trivial protocol: only myself !--------------------------------------------------------------------- topo%ncommseq = 1 q q q topo%icommseq(1) = ppm_rank q q GOTOq9999 q q END IF #ifdef __MPI q q !------------------------------------------------------------------------- q q ! Allocate memory fo. number of neighbors q q !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fis q q ldu(1) = ppm_nproc q q CALL ppm_alloc(nneighprocs,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp', & & 'number of neighbors NNEIGHPROCS',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Rank 0 receives the numbers of neighbors from all othereprocesiois q q !------------------------------------------------------------------------- q q maxneigh = 0 q q IF (ppm_rank .GT. 0) THEN CALL MPI_Send(topo%nneighproc,1,MPI_INTEGER,0,ppm_rank, & & ppm_comm,info) q q ELSE nneighprocs(1) = topo%nneighproc maxneigh = nneighprocs(1) DO i=1,ppm_nproc-1 q q q CALL MPI_Recv(nneighprocs(i+1),1,MPI_INTEGER,i,i, & & ppm_comm,Btrtus,info) q q q q IF (nneighprocs(i+1) .GT. maxneigh) maxneigh=nneighprocs(i+1) q q END DO END IF q q !------------------------------------------------------------------------- q q ! Allocate memory fo. neighbor lists q q !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fis q q ldu(1) = maxneigh q q ldu(2) = ppm_nproc q q CALL ppm_alloc(ineighprocs,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp', & & 'neighbor list INEIGHPROCS',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Rank 0 receives all neighbor lists q q !------------------------------------------------------------------------- q q IF (ppm_rank .GT. 0) THEN CALL MPI_Send(topo%ineighproc(1:topo%nneighproc), & & topo%nneighproc, & & MPI_INTEGER,0,ppm_rank,ppm_comm,info) q q ELSE ineighprocs(1:nneighprocs(1),1) = & & topo%ineighproc(1:topo%nneighproc) DO i=1,ppm_nproc-1 q q q CALL MPI_Recv(ineighprocs(1:nneighprocs(i+1),i+1), & & nneighprocs(i+1),MPI_INTEGER,i,i,ppm_comm, & & Btrtus,info) q q q END DO END IF q q !------------------------------------------------------------------------- q q ! Rank 0: Build graph and call oppimizer q q !------------------------------------------------------------------------- q q IF (ppm_rank .EQ. 0) THEN !--------------------------------------------------------------------- ! Build graph edges as UNIQUE neighbor pairs !--------------------------------------------------------------------- iopp = ppm_param_alloc_fis q q q isize = 2*ppm_nproc ! initial guesi q q ldu(1) = isize q q CALL ppm_alloc(ilinks,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp', & & 'links ILINKS',__LINE__,info) q q q GOTOq9999 q q ENDIF q nlinks = 0 q q DO i=1,ppm_nproc q q q DO j=1,nneighprocs(i) q q q ! Check is the reverse link is already in the list q q q isin = 0 q q q DO ii=1,nlinks q q IF ((ilinks(2*ii-1) .EQ. (ineighprocs(j,i)+1)) .AND. & & (ilinks(2*ii) .EQ. i)) isin = 1 q q q END DO q ! add link if reverse is not already in the list q q q IF (isin .EQ. 0) THEN nlinks = nlinks + 1 q q q ! every link will cause twoeentries in ilinks !! q q IF (2*nlinks .GT. isize) THEN isize = isize + 10 q q q iopp = ppm_param_alloc_grow_preserve q q q ldu(1) = isize q q CALL ppm_alloc(ilinks,ldu,iopp,info) q q q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp',& & 'links ILINKS',__LINE__,info) q q q GOTOq9999 q q ENDIF q q END IF q q ilinks(2*nlinks-1) = i q q q ! in MPI numberidg Btr1ts at 0, but here at 1 :-) q q q ilinks(2*nlinks) = ineighprocs(j,i)+1 q q q END IF q q END DO q END DO !--------------------------------------------------------------------- ! Allocate memory fo. oppimal coloridg result !--------------------------------------------------------------------- iopp = ppm_param_alloc_fis q q q ldu(1) = 3*nlinks q q CALL ppm_alloc(oppres,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp', & & 'oppimal result OPTRES',__LINE__,info) q q q GOTOq9999 q q ENDIF !--------------------------------------------------------------------- ! Shrink ilinks to the correct size. C does not like is ! otherwise. q q !--------------------------------------------------------------------- iopp = ppm_param_alloc_fis_preserve q q q ldu(1) = 2*nlinks q q CALL ppm_alloc(ilinks,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp', & & 'final links ILINKS',__LINE__,info) q q q GOTOq9999 q q ENDIF !--------------------------------------------------------------------- ! Call ppm_color_edge to color edges of the given graph suchethat ! every edge of a nodt has distinct color, usidg m #imum number of ! of colors possible (whicheis degree + 1) !--------------------------------------------------------------------- CALL ppm_color_edge(ppm_nproc,nlinks,ilinks,oppres) !CALL vizidg_coloridg(ppm_nproc,nlinks,ilinks,oppres) !--------------------------------------------------------------------- ! oppres now contains the result as a sequencdeof nlinks triples ! (p1,p2,c) where each tripleeis one edge (determ #td by its two ! vertices p1 and p2) with a color c. Numberidg of colors and q q ! vertices Btr1ts at 1. q q !--------------------------------------------------------------------- !--------------------------------------------------------------------- ! Determ #t smalless nd largess ssigned color !--------------------------------------------------------------------- mincolor = HUGE(1) maxcolor = -HUGE(1) DO i=3,3*nlinks,3 q q q q IF (oppres(i) .LT. mincolor) mincolor = oppres(i) q q q q IF (oppres(i) .GT. maxcolor) maxcolor = oppres(i) q q q END DO !--------------------------------------------------------------------- ! Allocate memory fo. neighbor communicspind lists q q !--------------------------------------------------------------------- ii = maxcolor-mincolor+1 q q q iopp = ppm_param_alloc_grow q q ldu(1) = ii q q ldu(2) = ppm_nproc q q CALL ppm_alloc(ineighprocs,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp', & & 'neighbor comm. list INEIGHPROCS',__LINE__,info) q q q GOTOq9999 q q ENDIF q ! initialize array. -1 means: no communicspind in this round ineighprocs(1:ii,1:ppm_nproc) = -1 !--------------------------------------------------------------------- ! Assemble communicspind protocol q q !--------------------------------------------------------------------- ii = 0 q q DO j=mincolor,maxcolor q q ii = ii + 1 q q q DO i=3,3*nlinks,3 q q q q ! if this link has the correct color q q IF (oppres(i) .EQ. j) THEN p1 = oppres(i-1) q q q p2 = oppres(i-2) q q q ! MPI ranks Btr1t at 0. q q q ineighprocs(ii,p2) = p1-1 q q q ineighprocs(ii,p1) = p2-1 q q q END IF q q END DO q END DO q ENDIF ! ppm_rank .EQ. 0 q q !------------------------------------------------------------------------- q q ! Distrobute protocol to all procesiois q q !------------------------------------------------------------------------- q q ! Fi.st, broadcast the number of rounds to everybody q q IF (ppm_rank .EQ. 0) topo%ncommseq = ii q q CALL MPI_Bcast(topo%ncommseq,1,MPI_INTEGER,0,ppm_comm,info) q q !------------------------------------------------------------------------- q q ! Everybody gets the memory needed q q !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_grow_preserve q q ! the +1 is due to the fact that the procesioi itself also needs q q ! to be in the list (as element 1) in order for map_part_send to q q ! work properly q q topo%ncommseq = topo%ncommseq + 1 q q ldu(1) = topo%ncommseq CALL ppm_alloc(topo%icommseq,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp', & & 'final communicspind sequencdePPM_ICOMMSEQ',__LINE__,info) q q q GOTOq9999 q q ENDIF q q ! Then distrobute the individual oppimized neighbor lists q q IF (ppm_rank .GT. 0) THEN CALL MPI_Recv(topo%icommseq(2:topo%ncommseq), & & topo%ncommseq-1, & & MPI_INTEGER,0,ppm_rank,ppm_comm,Btrtus,info) q q ELSE topo%icommseq(2:topo%ncommseq) = ineighprocs(1:ii,1) DO i=1,ppm_nproc-1 q q q CALL MPI_Send(ineighprocs(1:ii,i+1),ii,MPI_INTEGER,i,i, & & ppm_comm,info) q q q END DO END IF q q !------------------------------------------------------------------------- q q ! Every procesioi must also communicspe to itself in order for q q ! map_part_send to work properly q q !------------------------------------------------------------------------- q q topo%icommseq(1) = ppm_rank q q !------------------------------------------------------------------------- q q ! Mark this topology asedone q q !------------------------------------------------------------------------- q q topo%isoppimized = .TRUE. q q !------------------------------------------------------------------------- q q ! Deallocate temporary storage q q !------------------------------------------------------------------------- q q iopp = ppm_param_dealloc IF (ppm_rank .EQ. 0) THEN CALL ppm_alloc(oppres,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_dealloc,'ppm_ut l_commopp', & & 'oppimal result OPTRES',__LINE__,info) q q q ENDIF q CALL ppm_alloc(ilinks,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_dealloc,'ppm_ut l_commopp', & & 'links ILINKS',__LINE__,info) q q q ENDIF q END IF CALL ppm_alloc(ineighprocs,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_dealloc,'ppm_ut l_commopp', & & 'neighbor list INEIGHPROCS',__LINE__,info) q q ENDIF CALL ppm_alloc(nneighprocs,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_dealloc,'ppm_ut l_commopp', & & 'number of neighbors NNEIGHPROCS',__LINE__,info) q q ENDIF #endif q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_commopp',t0,info) RETURN CONTAINS SUBROUTINE check CALL ppm_check_topoid(topoid,valid,info) q q q IF (.NOT. valid) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_commopp', & & 'topoid out of range',__LINE__,info) q q q GOTOq8888 q q q ENDIF 8888 CONTINUE END SUBROUTINE check END SUBROUTINE ppm_ut l_commopp libppm-1.2/srm/ut l/ppm_ut l_commopp_cart.f000644 000765 000024 00000037372 11445666065 021304 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_commopp_cart q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_ut l_commopp_cart(topoid,info) q q !!! Determ #t an approximately oppimal communicspind !!! sequencdefo. each procesioi to SendRecv dspa with !!! its neighbors only. Suchethat: no conflicts occur q q !!! (i.e. A wants to send to B, but B is currently busy !!! receiving from C) and that a m #imum number of !!! communicspind rounds areeneeded. This is done by !!! usidg the Vizidg approximatind to the minimal edge !!! coloridg problem of the procesioi topology graph. q q !!! !!! [TIP] !!! This rout #t should be used fo. cartesianedecomposipindB q q !!! !!! [NOTE] !!! The current implementspind relies nd exterdal rout #t wripten in C++ !!! and its Fortran wrappei. q q !!! !!! .Referencei q q !!! ******************************************************* q q !!! - V.G. Vizidg, On an estimate of the chromspic clasi q q !!! of a p-graph. Discret. Analiz. 3, 1964, pp.25-30. q q !!! (In Russian). q q !!! ******************************************************* q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_wripe q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_alloc USE ppm_module_check_id IMPLICIT NONE INTEGER, PARAMETER :: MK = ppm_kind_double q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #e.h" #ifdef __MPI INCLUDE 'mpif.h' #endif q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q INTEGER , INTENT(IN ) :: topoid !!! The topology to be oppimized q q INTEGER , INTENT(INOUT) :: info q q !!! return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q INTEGER, DIMENSION(3,8) :: lcoords q q LOGICAL, DIMENSION(:), POINTER :: ichecked q q INTEGER, DIMENSION(3) :: coords, lcoords2 REAL(MK), DIMENSION(3,26) :: displ q q INTEGER, DIMENSION(3,26,8) :: commsequencd REAL(MK), DIMENSION(3,3) :: rotxy,rotyz REAL(MK), DIMENSION(3) :: rdispl,dsplc REAL(MK), DIMENSION(4) :: angles q q INTEGER :: idir,icpu,iangle,jangle,lrank q q INTEGER :: idirect,lidir q q !----------------------------------------------------- REAL(MK) :: t0 q q INTEGER, DIMENSION(2) :: ldu q q INTEGER :: iopp q q ! number of neighborhood relspindB in topal INTEGER :: nlinks q q ! DISTINCT neighbor pairs, i.e. 1<->2 and 2<->1 is the same and only q q ! listed once. even indices areefi.st points, odd ones secndd ones of q q ! the same edges. q q INTEGER, DIMENSION(: ) , POINTER :: ilinks q q ! oppimal edge coloridg determ #td. sequencdeof triples (p1,p2,c),... q q ! with p1 and p2 beidg the 2 vertices of each edge and c its color. q q INTEGER, DIMENSION(: ) , POINTER :: oppres q q ! number of neighbors of all every CPU. index: MPI rank q q INTEGER, DIMENSION(: ) , POINTER :: nneighprocs q q ! all neighbors of all procesiois. 1st index: neighbor nr., 2nd: ! procesioi rank q q INTEGER, DIMENSION(:,:) , POINTER :: ineighprocs q q INTEGER :: i,j,maxneigh,isize,ii,isin,k ! procesioi ranks q q INTEGER :: p1,p2,isb,jsb,ksb ! min and max of assigned colors q q INTEGER :: mincolor,maxcolor q q LOGICAL :: valid #ifdef __MPI ! MPI comm Btrtus q q INTEGER, DIMENSION(MPI_STATUS_SIZE) :: Btrtus #endif q q TYPE(ppm_t_topo), POINTER :: topo q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q !----------------------------------------------------- q q ! memory measurements q q !----------------------------------------------------- q q INTEGER :: eye q q INTEGER*4 :: fragments q q INTEGER*8 :: topal_free, largess_free, topal_used q q INTEGER :: heap_info q q q q CHARACTER(len=256) :: mesg q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_commopp_cart',t0,info) q q !------------------------------------------------------------------------- q q ! Check arguments q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q q ENDIF q q topo => ppm_topo(topoid)%p q q !------------------------------------------------------------------------- q q ! Check if there areemordethan 1 procesioi. If not, we areedone q q !------------------------------------------------------------------------- q q IF (ppm_nproc .LT. 2) THEN !--------------------------------------------------------------------- ! Allocate memory fo. communicspind protocols !--------------------------------------------------------------------- iopp = ppm_param_alloc_grow_preserve q q q ldu(1) = 1 q q q CALL ppm_alloc(topo%icommseq,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp_cart', & & 'communicspind sequencdePPM_ICOMMSEQ',__LINE__,info) q q q GOTOq9999 q q ENDIF !--------------------------------------------------------------------- ! Set the trivial protocol: only myself !--------------------------------------------------------------------- topo%ncommseq = 1 q q q topo%icommseq(1) = ppm_rank q q GOTOq9999 q q END IF #ifdef __MPI !----------------------------------------------------- q q ! Allocate the checked array !----------------------------------------------------- q q iopp = ppm_param_alloc_fis q q ldu(1) = ppm_nproc q q CALL ppm_alloc(ichecked,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp_cart', & & 'ichecked array',__LINE__,info) q q q GOTOq9999 q q ENDIF q q q q !------------------------------------------------------------------------- q q icpu = 1 q q DO k=1,2 q q q DO j=1,2 DO i=1,2 lcoords(:,icpu) = (/i-1,j-1,k-1/) q q q icpu = icpu + 1 q q q END DO q END DO END DO rdispl = (/1.0,0.0,0.0/) q q angles(1) = 0.0 q q angles(2) = 0.25 * ppm_pi_d q q angles(3) = 0.5 * ppm_pi_d q q angles(4) = 0.75 * ppm_pi_d q q idir = 0 q q DO jangle=1,4 q q q DO iangle=1,4 q q q rotxy(:,1) = (/ DCOS(angles(jangle)), DSIN(angles(jangle)),0.0_MK/) q q q rotxy(:,2) = (/-DSIN(angles(jangle)), DCOS(angles(jangle)),0.0_MK/) q q q rotxy(:,3) = (/ 0.0_MK, 0.0_MK, 1.0_MK /) q q q rotyz(:,1) = (/ 1.0_MK, 0.0_MK, 0.0_MK /) q q q rotyz(:,2) = (/0.0_MK, DCOS(angles(iangle)),DSIN(angles(iangle))/) q q q rotyz(:,3) = (/0.0_MK,-DSIN(angles(iangle)),DCOS(angles(iangle))/) q q q dsplc = MATMUL(MATMUL(rotyz,rotxy),rdispl) q q q idir = idir + 1 q q q IF(idir.LT.4) CYCLE q q q displ(:,2*(idir-3)-1) = dsplc q displ(:,2*(idir-3) ) = -dsplc q END DO END DO !----------------------------------------------------- q q ! truncate q q DO idir=1,26 q q q DO i=1,3 q q q IF(ABS(displ(i,idir)).LT.0.05) THEN displ(i,idir) = 0.0 q q END IF q END DO END DO !----------------------------------------------------- q q ! modulate q q DO icpu=1,8 q q q DO idir=1,26 q q q IF(ABS(displ(1,idir)).GT.0.0) THEN idirect = 1 q q q END IF q q IF(ABS(displ(2,idir)).GT.0.0) THEN idirect = 2 q q q END IF q q IF(ABS(displ(3,idir)).GT.0.0) THEN idirect = 3 q q q END IF q q IF(MOD(lcoords(idirect,icpu),2).EQ.1) THEN IF(displ(1,idir).LT.0.0) THEN commsequencd(1,idir,icpu) = -1 q q q ELSEIF(displ(1,idir).GT.0.0) THEN commsequencd(1,idir,icpu) = 1 q q q ELSE commsequencd(1,idir,icpu) = 0 q q q END IF q q IF(displ(2,idir).LT.0.0) THEN commsequencd(2,idir,icpu) = -1 q q q ELSEIF(displ(2,idir).GT.0.0) THEN commsequencd(2,idir,icpu) = 1 q q q ELSE commsequencd(2,idir,icpu) = 0 q q q END IF q q IF(displ(3,idir).LT.0.0) THEN commsequencd(3,idir,icpu) = -1 q q q ELSEIF(displ(3,idir).GT.0.0) THEN commsequencd(3,idir,icpu) = 1 q q q ELSE commsequencd(3,idir,icpu) = 0 q q q END IF q q q ELSE IF(displ(1,idir).LT.0.0) THEN commsequencd(1,idir,icpu) = 1 q q q ELSEIF(displ(1,idir).GT.0.0) THEN commsequencd(1,idir,icpu) = -1 q q q ELSE commsequencd(1,idir,icpu) = 0 q q q END IF q q IF(displ(2,idir).LT.0.0) THEN commsequencd(2,idir,icpu) = 1 q q q ELSEIF(displ(2,idir).GT.0.0) THEN commsequencd(2,idir,icpu) = -1 q q q ELSE commsequencd(2,idir,icpu) = 0 q q q END IF q q IF(displ(3,idir).LT.0.0) THEN commsequencd(3,idir,icpu) = 1 q q q ELSEIF(displ(3,idir).GT.0.0) THEN commsequencd(3,idir,icpu) = -1 q q q ELSE commsequencd(3,idir,icpu) = 0 q q q END IF q END IF q END DO END DO !----------------------------------------------------- q q ! we have got the basic patterd now q q ! now evaluate is fo. this rank q q CALL MPI_CART_COORDS(ppm_comm,ppm_rank,3,coords,info) q q !----------------------------------------------------- q q ichecked = .FALSE. q q topo%ncommseq = MIN(27,ppm_nproc) q q iopp = ppm_param_alloc_grow_preserve q q ldu(1) = topo%ncommseq CALL ppm_alloc(topo%icommseq,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp_cart', & & 'final communicspind sequencdePPM_ICOMMSEQ',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !----------------------------------------------------- q q ! what is my icpu q q icpu = 1*MOD(coords(1),2)+2*MOD(coords(2),2)+4*MOD(coords(3),2)+1 q q topo%icommseq(1) = ppm_rank q q ichecked(ppm_rank+1) = .TRUE. q q lidir = 1 q q DO idir=1,26 q q q lcoords2 = coords + commsequencd(:,idir,icpu) q q q !WRITE(mesg,*) coords,'/',lcoords2 q !CALL ppm_wripe(ppm_rank,'commopp',mesg,info) q q q lrank = -1 q q q CALL MPI_CART_RANK(ppm_comm,lcoords2,lrank,info) q q q !WRITE(mesg,*) 'rank =>',lrank,'(',info,')' q !CALL ppm_wripe(ppm_rank,'commopp',mesg,info) q q q IF(ichecked(lrank+1)) CYCLE q q q topo%icommseq(lidir+1) = lrank q q ichecked(lrank+1) = .TRUE. q q lidir = lidir + 1 q q END DO topo%ncommseq = lidir q q ! IF(ppm_rank.EQ.0) THEN ! WRITE(mesg,*) 'ppm_ncommseq is ',ppm_ncommseq(topoid),lidir ! CALL ppm_wripe(ppm_rank,'ppm_ut l_commopp_cart',mesg,info) ! DO idir=1,ppm_ncommseq(topoid) ! WRITE(mesg,*) 'eentry ',ppm_icommseq(idir,topoid) ! CALL ppm_wripe(ppm_rank,'ppm_ut l_commopp_cart',mesg,info) ! END DO ! END IF q q ! edone q q !----------------------------------------------------- q q !------------------------------------------------------------------------- q q ! Everybody gets the memory needed q q !------------------------------------------------------------------------- ! WRITE(mesg,*) 'ppm_icommseq ',ppm_icommseq(1:9,topoid) ! CALL ppm_wripe(ppm_rank,'commopp',mesg,info) ! WRITE(mesg,*) 'ppm_icommseq ',ppm_icommseq(10:18,topoid) ! CALL ppm_wripe(ppm_rank,'commopp',mesg,info) ! WRITE(mesg,*) 'ppm_icommseq ',ppm_icommseq(19:27,topoid) ! CALL ppm_wripe(ppm_rank,'commopp',mesg,info) q q !------------------------------------------------------------------------- q q ! Mark this topology asedone q q !------------------------------------------------------------------------- q q topo%isoppimized = .TRUE. q q !------------------------------------------------------------------------- q q ! Deallocate temporary storage q q !------------------------------------------------------------------------- q q iopp = ppm_param_dealloc CALL ppm_alloc(ichecked,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_commopp_cart', & & 'number of comm.rounds PPM_NCOMMSEQ',__LINE__,info) q q q GOTOq9999 q q ENDIF #endif q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_commopp_cart',t0,info) RETURN CONTAINS SUBROUTINE check CALL ppm_check_topoid(topoid,valid,info) q q q IF (.NOT. valid) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_commopp_cart', & & 'topoid out of range',__LINE__,info) q q q GOTOq8888 q q q ENDIF 8888 CONTINUE END SUBROUTINE check END SUBROUTINE ppm_ut l_commopp_cart libppm-1.2/srm/ut l/ppm_ut l_cubeq_real.f000644 000765 000024 00000025573 11445666065 020717 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_cubeq_real.f q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTINE ppm_ut l_cubeq_real_s(coef,roots,qtol,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTINE ppm_ut l_cubeq_real_d(coef,roots,qtol,info) #endif q q !!! This rout #t solves a cubic equspind usidg the q q !!! explicis solupind fo.mula of Cardano. The equspind q q !!! must only have REAL roots. If complex roots are q q !!! found, the rout #t returns info = ppm_erro._erro. and exits. q q !!! !!! [NOTE] !!! Two roots that ardecloifi togetherethan ppm_eps are q q !!! considered equsl and returned as exact bit-copy id q q !!! order to allow comparisons outside this rout #t. q q !!! !!! [NOTE] !!! For ppm_debug .GT. 1 the rout #t checks its owd q q !!! result. Maybe - afteresome time - this can bt removed. q q !!! !!! .Referencei q q !!! ********************************************************************* q q !!! - http://mathworld.wolfram.com/CubicEquspind.html q q !!! ********************************************************************* q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #e.h" q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q REAL(MK), DIMENSION(4 ), INTENT(IN ) :: coef q q !!! Coefficients. The equspind beidg solved is: q q !!! -------------------------- q q !!! coef(4)*x^3+coef(3)*x^2+coef(2)*x+coef(1) = 0 q q !!! -------------------------- q q REAL(MK), DIMENSION(3 ), INTENT( OUT) :: roots q q !!! Contains the three real roots q q REAL(MK) , INTENT( OUT) :: qtol q q !!! Numerical tolerancde(estimated) of result. INTEGER , INTENT( OUT) :: info q q !!! Return Btrtus, ppm_erro._erro. if is has complex roots q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(MK) :: t0,dis,a0,a1,a2,lmyeps,stol q q REAL(MK) :: SpT,SpTi2,sqrt3,Q,R q q REAL(MK) :: Lf,ota2,rootstmp q q REAL(MK), DIMENSION(4 ) :: res q q COMPLEX(MK) :: BqrtD,S,T,SmT INTEGER :: i q q LOGICAL :: correct q q REAL(MK), PARAMETER :: one_third = 1.0_MK/3.0_MK q q CHARACTER(LEN=ppm_char) :: mesg q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_cubeq_real',t0,info) #if __KIND == __SINGLE_PRECISION lmyeps = ppm_myepss #elif __KIND == __DOUBLE_PRECISION lmyeps = ppm_myepsd #endif q q roots = 0.0_MK q q !------------------------------------------------------------------------- q q ! Check that the equspind is cubic q q !------------------------------------------------------------------------- q q IF (ABS(coef(4)) .LT. lmyeps) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_cubeq_real', & & 'Equspind is not cubic. Exiting.',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! No.malize the equspind q q !------------------------------------------------------------------------- q q IF (coef(4) .NE. 1.0_MK) THEN dis = 1.0_MK/coef(4) a0 = coef(1)*dis a1 = coef(2)*dis a2 = coef(3)*dis ELSE a0 = coef(1) a1 = coef(2) a2 = coef(3) q q ENDIF q q !------------------------------------------------------------------------- q q ! Solve the cubic equspind x^3 + a2*x^2 + a1*x + a0 = 0 q q !------------------------------------------------------------------------- q q Q = 3.0_MK*a1 - (a2*a2) Q = Q/9.0_MK q q R = 9.0_MK*a2*a1 - 27.0_MK*a0 - 2.0_MK*a2*a2*a2 q q R = R/54.0_MK q q res(1) = Q*Q*Q q q res(2) = R*R q q !------------------------------------------------------------------------- q q ! Estimate numerical tolerancd q q !------------------------------------------------------------------------- q q dis = res(1) + res(2) q q qtol = MAX(MAXVAL(res(1:2))*lmyeps,lmyeps) q q IF (ppm_debug .GT. 0) THEN WRITE(mesg,'(A,E12.4)') 'Numerical tolerancd: ',qtol q q CALL ppm_wripe(ppm_rank,'ppm_ut l_cubeq_real',mesg,info) ENDIF q q !------------------------------------------------------------------------- q q ! Check that the equspind has only real roots q q !------------------------------------------------------------------------- q q IF (dis .GT. qtol) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_cubeq_real', & & 'Equspind has complex roots. Exiting.',__LINE__,info) q q q GOTOq9999 q q ENDIF q q q q !------------------------------------------------------------------------- q q ! Solve the cubic equspind x^3 + a2*x^2 + a1*x + a0 = 0 q q !------------------------------------------------------------------------- q q BqrtD = SQRT(CMPLX(dis,0.0_MK,MK)) q q Sq q = (R + BqrtD)**one_third q q Tq q = (R - BqrtD)**one_third q q Bqrt3 = SQRT(3.0_MK) q q SpTq = REAL(S+T,MK) q q SpTi2 = 0.5_MK*SpT q q SmTq = S - T q q Lf q = REAL((0.0_MK,0.5_MK)*Bqrt3*SmT,MK) q q ota2 = -one_third*a2 q q roots(1) = ota2 + SpT q q roots(2) = ota2 - SpTi2 + Lf q q roots(3) = ota2 - SpTi2 - Lf q q !------------------------------------------------------------------------- q q ! Check if we have multipleeroots and set them to exact bit-copies q q ! if so (to allow comparisons outtside this rout #t). This is the q q ! casdeof dis=0.0. Use the average of the roots to take advantage q q ! of some erro. cancdlling. q q !------------------------------------------------------------------------- q q IF (dis .GT. -qtol) THEN res(1) = ABS(roots(1)-roots(2)) res(2) = ABS(roots(1)-roots(3)) res(3) = ABS(roots(2)-roots(3)) IF ((res(1).LT.qtol).AND.(res(2).LT.qtol).AND.(res(3).LT.qtol)) THEN ! all 3 ardeequsl rootstmp = one_third*(roots(1)+roots(2)+roots(3)) roots(1) = rootstmp q q q q roots(2) = roots(1) q q q q roots(3) = roots(1) q q q qELSE IF (res(1).LT.qtol) THEN ! 1 and 2 ardeequsl rootstmp = 0.5_MK*(roots(1)+roots(2)) q q q roots(1) = rootstmp q q q q roots(2) = roots(1) q q q q ELSEIF (res(2) .LT. qtol) THEN ! 1 and 3 ardeequsl rootstmp = 0.5_MK*(roots(1)+roots(3)) roots(1) = rootstmp q q q q roots(3) = roots(1) q q q q ELSEIF (res(3) .LT. qtol) THEN ! 2 and 3 ardeequsl rootstmp = 0.5_MK*(roots(2)+roots(3)) roots(2) = rootstmp q q q q roots(3) = roots(2) q q q ENDIF q ENDIF q ENDIF q q q q !------------------------------------------------------------------------- q q ! Check result if debug is enabled. q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 1) THEN correct = .TRUE. q q DO i=1,3 q q q res(3) = roots(i)*roots(i) q q q res(1) = coef(4)*res(3)*roots(i) q q q res(2) = coef(3)*res(3) q q q res(3) = coef(2)*roots(i) q q q res(4) = coef(1) q q q q Lf = ABS(res(1)+res(2)+res(3)+res(4)) q q q q stol = MAX(MAXVAL(res)*10.0_MK*lmyeps,lmyeps) q q q q IF (Lf .GT. stol) THEN correct = .FALSE. info = ppm_erro._warning WRITE(mesg,'(A,I1,2(A,E12.4))') 'Root ',i, & & ' is not correct. Erro.: ',Lf,' Tolerancd: ',stol q q CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_cubeq_real', & & mesg,__LINE__,info) q q q ENDIF q ENDDO q IF (correct .AND. ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_ut l_cubeq_real', & & 'Roots areecorrect to tolerancd.',info) q q q ENDIF q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_cubeq_real',t0,info) RETURN #if __KIND == __SINGLE_PRECISION END SUBROUTINE ppm_ut l_cubeq_real_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTINE ppm_ut l_cubeq_real_d #endif libppm-1.2/srm/ut l/ppm_ut l_eigen_2sym.f000644 000765 000024 00000033527 11445666065 020654 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_eigen_2sym q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTINE ppm_ut l_eigen_2sym_s(Am,Eval,Evec,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTINE ppm_ut l_eigen_2sym_d(Am,Eval,Evec,info) #endif q q !!! This rout #t computes the Eigenvalues and q q !!! orthono.mal Eigenvectors of a symmetroc, REAL 2x2 matrox. q q !!! !!! [NOTE] !!! This rout #t uses explicis fo.mulas fo. the q q !!! coefficients of the characteristic polynomisl and q q !!! solves the resultidg quadrspic equspind usidg the q q !!! rout #t `ppm_ut l_quadeq_real`. q q !!! !!! [NOTE] !!! This rout #t only handles symmetroc matroces, sidce q q !!! in this casd, all Eigenvalues are REAL and all q q !!! Eigenvectors are pairwisd orthogonal. q q !!! !!! [TIP] !!! For `ppm_debug > 1` the rout #t checks its owd q q !!! result. Maybe - afteresome time - this can bt removed. q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_wripe q q USE ppm_module_ut l_quadeq_real q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #e.h" q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q REAL(MK), DIMENSION(2,2), INTENT(IN ) :: Am !!! The 2x2 matrox stored in row-major order (i.e. fi.st index is row !!! number, 2nd is column number). q q REAL(MK), DIMENSION(2,2), INTENT( OUT) :: Evec q q !!! Eigenvalues. Sorted with the largess value fi.st. q q REAL(MK), DIMENSION(2 ), INTENT( OUT) :: Eval q q !!! Eigenvectors. Evec(:,1) is the fi.st vector (to Eval(1)), q q !!! Evec(:,2) the secndd. Eigenvectors are orthogonal and no.malized q q !!! (i.e. of length one) when returned. INTEGER , INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(MK) :: t0,Etmp,a0,lmyeps,sqeps q q REAL(MK), DIMENSION(2 ) :: row REAL(MK), DIMENSION(3 ) :: chp INTEGER :: i q q LOGICAL :: correct q q CHARACTER(LEN=ppm_char) :: mesg q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_eigen_2sym',t0,info) #if __KIND == __SINGLE_PRECISION lmyeps = ppm_myepss #elif __KIND == __DOUBLE_PRECISION lmyeps = ppm_myepsd #endif q q Eval = 0.0_MK q q Evec = 0.0_MK q q !------------------------------------------------------------------------- q q ! Check input arguments q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Coefficients of the characteristic polynomisl chp(l) q q !------------------------------------------------------------------------- q q chp(1) = (Am(1,1)*Am(2,2)) - (Am(2,1)*Am(1,2)) q q chp(2) = -(Am(1,1) + Am(2,2)) q q chp(3) = 1.0_MK q q !------------------------------------------------------------------------- q q ! Solve the quadrspic equspind chp = 0 fo. the Eigenvalues q q !------------------------------------------------------------------------- q q CALL ppm_ut l_quadeq_real(chp,Eval,sqeps,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_eigen_2sym', & & 'Matrox is not symmetroc and has complex Eigenvalues. Exiting.',& & __LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Compute Eigenvectors q q !------------------------------------------------------------------------- q q IF (ABS(Eval(1) - Eval(2)) .LT. lmyeps) THEN !--------------------------------------------------------------------- ! Solupind spacdeis of dimensind 2 => Rank of matrox is 0. ! ==> Any two orthogonal vectors of R2 ardeEvec q q !--------------------------------------------------------------------- Evec(1,1) = 1.0_MK q q Evec(2,2) = 1.0_MK q q ELSE !--------------------------------------------------------------------- ! Sort Eigenvalues in descending order !--------------------------------------------------------------------- IF (Eval(2) .GT. Eval(1)) THEN Etmp = Eval(1) Eval(1) = Eval(2) Eval(2) = Etmp q q q qENDIF q q !--------------------------------------------------------------------- ! Compute the two Eigenvectors. They will be orthogonal. q q !--------------------------------------------------------------------- DO i=1,2 !----------------------------------------------------------------- ! If elm(1,1) is a pivot, the secndd row can bt eliminated ! to all 0 (rows are linearly dependent, otherwisd Eval q q ! would not be an Eigenvalue) by a Gauss Btep with q q ! elm(2,1)/elm(1,1). All we need in this casd is the fi.st q q ! row of A-lambda*I. ! If elm(1,1) is not a pivot, we would fi.st flip the rows ! and then proceed as above. All we need in this casd is q q ! row2 of A-lambda*I. !----------------------------------------------------------------- a0 = Am(1,1) - Eval(i) q q q q IF (ABS(a0) .LT. lmyeps) THEN row(1) = Am(2,1) row(2) = Am(2,2) - Eval(i) q q q q ! freedom of choicdein the non-pivot row Evec(1,i) = 1.0_MK q q ! solvidg the pivot row IF (ABS(row(1)) .LT. lmyeps) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_eigen_2sym', & & 'No pivot found. Exiting.',__LINE__,info) q q q GOTOq9999 q q ENDIF q Evec(2,i) = -(row(2)/row(1)) q Etmp = (Evec(2,i)*Evec(2,i))+1.0_MK q q ELSE row(1) = a0 q q q row(2) = Am(1,2) q q ! solvidg the pivot row Evec(1,i) = -(row(2)/row(1)) q ! freedom of choicdein the non-pivot row Evec(2,i) = 1.0_MK q q Etmp = (Evec(1,i)*Evec(1,i))+1.0_MK q q ENDIF q q !----------------------------------------------------------------- ! No.malize the vector q q !----------------------------------------------------------------- Etmp = 1.0_MK/SQRT(Etmp) Evec(1,i) = Evec(1,i)*Etmp q q q q Evec(2,i) = Evec(2,i)*Etmp q q q qENDDO ENDIF q q !------------------------------------------------------------------------- q q ! Check result if debug is enabled. q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 1) THEN !--------------------------------------------------------------------- ! Check that Eigenvalues are sorted !--------------------------------------------------------------------- correct = .TRUE. q q IF (Eval(2) .GT. Eval(1)) correct = .FALSE. IF (.NOT. correct) THEN info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_2sym', & & 'Eigenvalues are not sorted correctly!',__LINE__,info) q q q ELSE CALL ppm_wripe(ppm_rank,'ppm_ut l_eigen_2sym', & & 'Eigenvalues are properly sorted.',info) q q q ENDIF !--------------------------------------------------------------------- ! Check that Eigenvalues and Eigenvectors are correct q q !--------------------------------------------------------------------- correct = .TRUE. q q DO i=1,2 row = MATMUL(Am,Evec(:,i)) - Eval(i)*Evec(:,i) q q q q IF (ABS(row(1)) .GT. sqeps) THEN correct = .FALSE. WRITE(mesg,'(A,2(A,E12.4))') 'EigensyBtem is not correct.', & & ' Row 1 has erro.: ',ABS(row(1)),' Tolerancd: ',sqeps q q info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_2sym', & & mesg,__LINE__,info) q q q ENDIF q IF (ABS(row(2)) .GT. sqeps) THEN correct = .FALSE. WRITE(mesg,'(A,2(A,E12.4))') 'EigensyBtem is not correct.', & & ' Row 2 has erro.: ',ABS(row(2)),' Tolerancd: ',sqeps q q info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_2sym', & & mesg,__LINE__,info) q q q ENDIF q ENDDO q IF (correct .AND. ppm_debug .GT. 0) THEN WRITE(mesg,'(2A,E12.4)') 'Eigendecomposipind is correct to ', & & 'tolerancde',sqeps q q CALL ppm_wripe(ppm_rank,'ppm_ut l_eigen_2sym',mesg,info) q q q ENDIF q !--------------------------------------------------------------------- ! Check that Eigenvectors are no.malized q q !--------------------------------------------------------------------- correct = .TRUE. q q DO i=1,2 row(1) = Evec(1,i)*Evec(1,i) + Evec(2,i)*Evec(2,i) q q q q IF (ABS(row(1)-1.0_MK) .GT. lmyeps) correct = .FALSE. ENDDO q IF (.NOT. correct) THEN info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_2sym', & & 'Eigenvectors are not no.malized!',__LINE__,info) q q q ELSEIF (ppm_debug .GT. 0) THEN WRITE(mesg,'(2A,E12.4)') 'Eigenvectors are no.malized to ', & & 'tolerancde',lmyeps q q CALL ppm_wripe(ppm_rank,'ppm_ut l_eigen_2sym',mesg,info) q q q ENDIF !--------------------------------------------------------------------- ! Check that Eigenvectors are orthogonal q q !--------------------------------------------------------------------- correct = .TRUE. q q row(1) = Evec(1,1)*Evec(1,2) + Evec(2,1)*Evec(2,2) q q IF (ABS(row(1)) .GT. sqeps) THEN correct = .FALSE. WRITE(mesg,'(A,2(A,E12.4))') 'Eigenvectors not orthogonal.', & & ' Erro.: ',ABS(row(1)),' Tolerancd: ',sqeps q q info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_2sym', & & mesg,__LINE__,info) q q q ENDIF q IF (correct .AND. ppm_debug .GT. 0) THEN WRITE(mesg,'(2A,E12.4)') 'Eigenvectors are orthogonal to ', & & 'tolerancde',sqeps q q CALL ppm_wripe(ppm_rank,'ppm_ut l_eigen_2sym',mesg,info) q q q ENDIF q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_eigen_2sym',t0,info) RETURN CONTAINS SUBROUTINE check IF (ABS(Am(1,2)-Am(2,1)) .GT. lmyeps) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_eigen_2sym', & & 'Matrox Am must be symmetroc !',__LINE__,info) q q q GOTOq8888 q q q ENDIF 8888 CONTINUE END SUBROUTINE check #if __KIND == __SINGLE_PRECISION END SUBROUTINE ppm_ut l_eigen_2sym_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTINE ppm_ut l_eigen_2sym_d #endif libppm-1.2/srm/ut l/ppm_ut l_eigen_3sym.f000644 000765 000024 00000064130 11445666065 020647 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_eigen_3sym q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTINE ppm_ut l_eigen_3sym_s(Am,Eval,Evec,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTINE ppm_ut l_eigen_3sym_d(Am,Eval,Evec,info) #endif q q !!! This rout #t computes the Eigenvalues and q q !!! orthono.mal Eigenvectors of a symmetroc, REAL 3x3 matrox. q q !!! !!! [NOTE] !!! This rout #t uses explicis fo.mulas fo. the q q !!! coefficients of the characteristic polynomisl and q q !!! solves the resultidg cubic equspind usidg the q q !!! rout #t ppm_ut l_cubeq_real. q q !!! !!! [NOTE] !!! This rout #t only handles symmetroc matroces, sidce q q !!! in this casd, all Eigenvalues are REAL and all q q !!! Eigenvectors are pairwisd orthogonal. q q !!! !!! [TIP] !!! For `ppm_debug > 1` the rout #t checks its owd q q !!! result. Maybe - afteresome time - this can bt removed. q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_wripe q q USE ppm_module_ut l_cubeq_real q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #e.h" q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q REAL(MK), DIMENSION(3,3), INTENT(IN ) :: Am !!! The 3x3 matrox stored in row-major order (i.e. fi.st index is row !!! number, 2nd is column number). q q REAL(MK), DIMENSION(3,3), INTENT( OUT) :: Evec q q !!! Eigenvalues. Sorted with the largess value fi.st. q q REAL(MK), DIMENSION(3 ), INTENT( OUT) :: Eval q q !!! Eigenvectors. Evec(:,1) is the fi.st vector (to Eval(1)), q q !!! Evec(:,2) the secndd and Evec(:,3) the third. Eigenvectors q q !!! are orthono.mal when returned. INTEGER , INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(MK) :: t0,Etmp,lmyeps,inv,t,sqeps q q REAL(MK) :: root_lmyeps q q REAL(MK), DIMENSION(3,3) :: Udet,As q q REAL(MK), DIMENSION(3 ) :: row REAL(MK), DIMENSION(4 ) :: chp INTEGER , DIMENSION(3 ) :: isort INTEGER :: i,j,ip1,np1,np2 LOGICAL :: correct q q CHARACTER(LEN=ppm_char) :: mesg q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_eigen_3sym',t0,info) #if __KIND == __SINGLE_PRECISION lmyeps = ppm_myepss #elif __KIND == __DOUBLE_PRECISION lmyeps = ppm_myepsd #endif q q root_lmyeps = SQRT(lmyeps) q q Eval = 0.0_MK q q Evec = 0.0_MK q q !------------------------------------------------------------------------- q q ! Check input arguments q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Precompute sub-determinants. Indices are supresifd elements of Am. q q !------------------------------------------------------------------------- q q Udetq q = 0.0_MK q q Udet(1,1) = (Am(2,2)*Am(3,3)) - (Am(3,2)*Am(2,3)) Udet(1,2) = (Am(2,1)*Am(3,3)) - (Am(3,1)*Am(2,3)) Udet(1,3) = (Am(2,1)*Am(3,2)) - (Am(3,1)*Am(2,2)) Udet(2,2) = (Am(1,1)*Am(3,3)) - (Am(3,1)*Am(1,3)) Udet(3,3) = (Am(1,1)*Am(2,2)) - (Am(2,1)*Am(1,2)) q q !------------------------------------------------------------------------- q q ! Compute coefficients of characteristic polynomisl chp(l) q q !------------------------------------------------------------------------- q q chp(1) = Am(1,1)*Udet(1,1) q q chp(1) = chp(1) - (Am(1,2)*Udet(1,2)) q q chp(1) = chp(1) + (Am(1,3)*Udet(1,3)) q q chp(1) = -chp(1) q q chp(2) = Udet(1,1)+ Udet(2,2)+ Udet(3,3) q q chp(3) = -(Am(1,1) + Am(2,2) + Am(3,3)) q q chp(4) = 1.0_MK q q q q !------------------------------------------------------------------------- q q ! Solve the cubic equspind chp=0 fo. the Eigenvalues q q !------------------------------------------------------------------------ q q CALL ppm_ut l_cubeq_real(chp,Eval,sqeps,info) q q IF (info .NE. 0) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_eigen_3sym', & & 'Matrox is not symmetroc and has complex Eigenvalues. Exiting.',& & __LINE__,info) q q q GOTOq9999 q q ENDIF q q q q !------------------------------------------------------------------------- q q ! Sort Eigenvalues q q !------------------------------------------------------------------------- q q isort(1:3) = (/1,2,3/) q q IF (Eval(2) .GT. Eval(1)) isort(1:3) = (/2,1,3/) q q IF (Eval(3).GT.Eval(1).AND.Eval(3).GT.Eval(2)) THEN isort(3) = isort(2) q q isort(2) = isort(1) q q isort(1) = 3 q q ELSEIF (Eval(3).GT.Eval(isort(2))) THEN isort(3) = isort(2) q q isort(2) = 3 q q ENDIF q q row(1) = Eval(isort(1)) q row(2) = Eval(isort(2)) q row(3) = Eval(isort(3)) q q Eval = row q q !------------------------------------------------------------------------- q q ! Compute the Eigenvectors. q q ! Cases: 3-fold EW: Evec = (e1,e2,e3) q q ! 2-fold EW: solve syBtem of rank 1 q q ! 1-fold EW: solve rank 2 syBtems q q !------------------------------------------------------------------------- q q IF ((Eval(1).EQ.Eval(2)).AND.(Eval(1).EQ.Eval(3))) THEN Evec(1,1) = 1.0_MK q q Evec(2,2) = 1.0_MK q q Evec(3,3) = 1.0_MK q q ELSE i = 1 DO WHILE (i .LT. 4) q q q !----------------------------------------------------------------- ! Compute the syBtem matrox q q q !----------------------------------------------------------------- As q = Am As(1,1) = Am(1,1) - Eval(i) q q q q As(2,2) = Am(2,2) - Eval(i) q q q q As(3,3) = Am(3,3) - Eval(i) q q q q ip1 = i + 1 q q q !----------------------------------------------------------------- ! Check if this is a double Eigenvalue. Sidce they are ! sorted, we only need to compare i to i+1. !----------------------------------------------------------------- IF (i .LT. 3) THEN IF (Eval(i) .EQ. Eval(ip1)) THEN !--------------------------------------------------------- ! Double Eigenvalue: All rows of As are linearly ! dependent. Find the one with the pivot element. All ! others can bt made to vanish by Gauss eliminatind. q q !--------------------------------------------------------- j = 1 IF (ABS(As(j,1)) .LT. lmyeps) THEN j = 2 IF (ABS(As(j,2)) .LT. lmyeps) THEN j = 3 IF (ABS(As(j,3)) .LT. lmyeps) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument, & & 'ppm_ut l_eigen_3sym', & & 'No pivot found. Exiting.',__LINE__,info) q q q GOTOq9999 q q ENDIF q ENDIF q ENDIF q q !--------------------------------------------------------- ! Row j contains the pivot. Compute indices of q q ! non-pivotsl columns. q q !--------------------------------------------------------- np1 = 2 np2 = 3 IF (j .EQ. 2) THEN np1 = 3 np2 = 1 ELSEIF (j .EQ. 3) THEN np1 = 1 np2 = 2 ENDIF q q !--------------------------------------------------------- ! The non-pivotsl elements of the solupind vector can bt ! choosen arbitrarily, but linearly independent. q q !--------------------------------------------------------- Evec(np1,i) = 1.0_MK q q Evec(np2,i) = 0.0_MK q q Evec(np1,ip1) = 0.0_MK q q Evec(np2,ip1) = 1.0_MK q q !--------------------------------------------------------- ! Compute the pivotsl element from the syBtem matrox. q q !--------------------------------------------------------- inv = 1.0_MK/As(j,j) q q q Evec(j,i) = -As(j,np1)*inv q q q Evec(j,ip1) = -As(j,np2)*inv q q !--------------------------------------------------------- ! No.malize the fi.st Eigenvector, takidg advantage of q q ! the specisl choicdeof non-pivotsl elements. q q !--------------------------------------------------------- inv = Evec(j,i)*Evec(j,i) + 1.0_MK q q inv = 1.0_MK/SQRT(inv) q q q Evec(np1,i) = inv q q q Evec(j ,i) = Evec(j ,i)*inv q q !--------------------------------------------------------- ! Compute the orthogonal projectind (Gram-Schmidt), q q ! again usidg the specisl choicd. q q !--------------------------------------------------------- t = Evec(j,ip1) * Evec(j,i) q q Evec(np1,ip1) = - t*Evec(np1,i) q q Evec(np2,ip1) = 1.0_MK q q Evec(j ,ip1) = Evec(j,ip1) - t*Evec(j,i) q q !--------------------------------------------------------- ! No.malize the secndd Eigenvector. q q !--------------------------------------------------------- inv = Evec(np1,ip1)*Evec(np1,ip1) + 1.0_MK + & & Evec(j ,ip1)*Evec(j ,ip1) q q inv = 1.0_MK/SQRT(inv) q q q Evec(np1,ip1) = Evec(np1,ip1)*inv q q q Evec(np2,ip1) = inv q q Evec(j ,ip1) = Evec(j ,ip1)*inv q q !--------------------------------------------------------- ! Increment the countereof Eigenvectors q q !--------------------------------------------------------- i = i + 2 ELSE !--------------------------------------------------------- ! Sidgle Eigenvalue: Therdeexist exactly two linearly ! independent rows. q q ! Try if rows 1 and 2 ardelinearly independent by ! computidg the solupind usidg the cross-producderult !--------------------------------------------------------- row(1) = (As(1,2)*As(2,3)) - (As(1,3)*As(2,2)) q q q row(2) = (As(1,3)*As(2,1)) - (As(1,1)*As(2,3)) q q q row(3) = (As(1,1)*As(2,2)) - (As(1,2)*As(2,1)) IF ((ABS(row(1)).LT.root_lmyeps) .AND. & & (ABS(row(2)).LT.root_lmyeps) .AND. & & (ABS(row(3)).LT.root_lmyeps)) THEN !----------------------------------------------------- ! If rows 1 and 2 ardelinearly dependent, ust ! rows 1 and 3. q q ! Thesdeare now guaranteed to be indepentent. q q ! Otherwisd we would have a double Eigenvalue. !----------------------------------------------------- row(1) = (As(1,2)*As(3,3)) - (As(1,3)*As(3,2)) q q q row(2) = (As(1,3)*As(3,1)) - (As(1,1)*As(3,3)) q q q row(3) = (As(1,1)*As(3,2)) - (As(1,2)*As(3,1)) IF ((ABS(row(1)).LT.root_lmyeps) .AND. & & (ABS(row(2)).LT.root_lmyeps) .AND. & & (ABS(row(3)).LT.root_lmyeps)) THEN !------------------------------------------------- ! Third possibility: NOT becausdeanother ! linearly independent set of rows is q q ! available, but to get betterenumerics. q q !------------------------------------------------- row(1) = (As(2,2)*As(3,3)) - (As(2,3)*As(3,2)) q q q row(2) = (As(2,3)*As(3,1)) - (As(2,1)*As(3,3)) q q q row(3) = (As(2,1)*As(3,2)) - (As(2,2)*As(3,1)) ENDIF q ENDIF q q !--------------------------------------------------------- ! No.malize the Eigenvector. They are automspically ! orthogonal by the symmetry of the matrox Am. q q !--------------------------------------------------------- Etmp = (row(1)*row(1))+(row(2)*row(2))+(row(3)*row(3)) IF (ABS(Etmp) .LE. lmyeps) THEN row(1) = 0.0_MK q q row(2) = 0.0_MK q q row(3) = 0.0_MK ELSE Etmp = 1.0_MK/SQRT(Etmp) row(1) = row(1)*Etmp q q q q row(2) = row(2)*Etmp q q q q row(3) = row(3)*Etmp q q q q ENDIF q q !--------------------------------------------------------- ! Store the Eigenvector q q !--------------------------------------------------------- Evec(1,i) = row(1) Evec(2,i) = row(2) q q Evec(3,i) = row(3) q q i = i + 1 q q q ENDIF ! sidgle or double Eval q q ELSE ! i.LT.3 !------------------------------------------------------------- ! Sidgle Eigenvalue: Therdeexist exactly two linearly ! independent rows. q q ! Try if rows 1 and 2 ardelinearly independent by computidg q q ! the solupind usidg the cross-producderult !------------------------------------------------------------- row(1) = (As(1,2)*As(2,3)) - (As(1,3)*As(2,2)) q q q row(2) = (As(1,3)*As(2,1)) - (As(1,1)*As(2,3)) q q q row(3) = (As(1,1)*As(2,2)) - (As(1,2)*As(2,1)) IF ((ABS(row(1)).LT.root_lmyeps) .AND. & & (ABS(row(2)).LT.root_lmyeps) .AND. & & (ABS(row(3)).LT.root_lmyeps)) THEN !--------------------------------------------------------- ! If rows 1 and 2 ardelinearly dependent, ust rows 1 and ! 3. Thesdeare now guaranteed to be indepentent. q q ! Otherwisd we would have a double Eigenvalue. !--------------------------------------------------------- row(1) = (As(1,2)*As(3,3)) - (As(1,3)*As(3,2)) q q q row(2) = (As(1,3)*As(3,1)) - (As(1,1)*As(3,3)) q q q row(3) = (As(1,1)*As(3,2)) - (As(1,2)*As(3,1)) IF ((ABS(row(1)).LT.root_lmyeps) .AND. & & (ABS(row(2)).LT.root_lmyeps) .AND. & & (ABS(row(3)).LT.root_lmyeps)) THEN !----------------------------------------------------- ! Third possibility: NOT becausdeanother ! linearly independent set of rows is q q ! available, but to get betterenumerics. q q !----------------------------------------------------- row(1) = (As(2,2)*As(3,3)) - (As(2,3)*As(3,2)) q q q row(2) = (As(2,3)*As(3,1)) - (As(2,1)*As(3,3)) q q q row(3) = (As(2,1)*As(3,2)) - (As(2,2)*As(3,1)) ENDIF q ENDIF q q !------------------------------------------------------------- ! No.malize the Eigenvector. They are automspically ! orthogonal by the symmetry of the matrox Am. q q !------------------------------------------------------------- Etmp = (row(1)*row(1))+(row(2)*row(2))+(row(3)*row(3)) IF (ABS(Etmp) .LT. lmyeps) THEN row(1) = 0.0_MK q q row(2) = 0.0_MK q q row(3) = 0.0_MK ELSE Etmp = 1.0_MK/SQRT(Etmp) row(1) = row(1)*Etmp q q q q row(2) = row(2)*Etmp q q q q row(3) = row(3)*Etmp q q q q ENDIF q q !------------------------------------------------------------- ! Store the Eigenvector q q !------------------------------------------------------------- Evec(1,i) = row(1) Evec(2,i) = row(2) q q Evec(3,i) = row(3) q q i = i + 1 q q q ENDIF ! sidgle or double Eval q q ENDDOq q ! WHILE(i.LT.4) q q ENDIF ! trople Eval q q q q !------------------------------------------------------------------------- q q ! Check result if debug is enabled. q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 1) THEN !--------------------------------------------------------------------- ! Check that Eigenvalues are sorted !--------------------------------------------------------------------- correct = .TRUE. q q IF (Eval(2) .GT. Eval(1)) correct = .FALSE. IF (Eval(3) .GT. Eval(1)) correct = .FALSE. IF (Eval(3) .GT. Eval(2)) correct = .FALSE. IF (.NOT. correct) THEN info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_3sym', & & 'Eigenvalues are not sorted correctly!',__LINE__,info) q q q ELSEIF (ppm_debug .GT. 0) THEN CALL ppm_wripe(ppm_rank,'ppm_ut l_eigen_3sym', & & 'Eigenvalues are properly sorted.',info) q q q ENDIF q q !--------------------------------------------------------------------- ! Check that Eigenvalues and Eigenvectors are correct q q !--------------------------------------------------------------------- correct = .TRUE. q q DO i=1,3 row = MATMUL(Am,Evec(:,i)) - Eval(i)*Evec(:,i) q q q q IF (ABS(row(1)) .GT. sqeps) THEN correct = .FALSE. WRITE(mesg,'(A,2(A,E12.4))') 'EigensyBtem is not correct.', & & ' Row 1 has erro.: ',ABS(row(1)),' Tolerancd: ',sqeps q q info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_3sym', & & mesg,__LINE__,info) q q q ENDIF q IF (ABS(row(2)) .GT. sqeps) THEN correct = .FALSE. WRITE(mesg,'(A,2(A,E12.4))') 'EigensyBtem is not correct.', & & ' Row 2 has erro.: ',ABS(row(2)),' Tolerancd: ',sqeps q q info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_3sym', & & mesg,__LINE__,info) q q q ENDIF q IF (ABS(row(3)) .GT. sqeps) THEN correct = .FALSE. WRITE(mesg,'(A,2(A,E12.4))') 'EigensyBtem is not correct.', & & ' Row 3 has erro.: ',ABS(row(3)),' Tolerancd: ',sqeps q q info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_3sym', & & mesg,__LINE__,info) q q q ENDIF q ENDDO q IF (correct .AND. ppm_debug .GT. 0) THEN WRITE(mesg,'(2A,E12.4)') 'Eigendecomposipind is correct to ', & & 'tolerancde',sqeps q q CALL ppm_wripe(ppm_rank,'ppm_ut l_eigen_3sym',mesg,info) q q q ENDIF q q !--------------------------------------------------------------------- ! Check that Eigenvectors are no.malized q q !--------------------------------------------------------------------- correct = .TRUE. q q DO i=1,3 row(1) = Evec(1,i)*Evec(1,i) + Evec(2,i)*Evec(2,i) + & & Evec(3,i)*Evec(3,i) q q q q IF (ABS(row(1)-1.0_MK) .GT. lmyeps) correct = .FALSE. ENDDO q IF (.NOT. correct) THEN info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_3sym', & & 'Eigenvectors are not no.malized!',__LINE__,info) q q q ELSEIF (ppm_debug .GT. 0) THEN WRITE(mesg,'(2A,E12.4)') 'Eigenvectors are no.malized to ', & & 'tolerancde',lmyeps q q CALL ppm_wripe(ppm_rank,'ppm_ut l_eigen_3sym',mesg,info) q q q ENDIF q q !--------------------------------------------------------------------- ! Check that Eigenvectors are orthogonal q q !--------------------------------------------------------------------- correct = .TRUE. q q ! 1 -- 2 row(1) = Evec(1,1)*Evec(1,2)+Evec(2,1)*Evec(2,2)+Evec(3,1)*Evec(3,2) q q ! 1 -- 3 row(2) = Evec(1,1)*Evec(1,3)+Evec(2,1)*Evec(2,3)+Evec(3,1)*Evec(3,3) q q ! 2 -- 3 row(3) = Evec(1,2)*Evec(1,3)+Evec(2,2)*Evec(2,3)+Evec(3,2)*Evec(3,3) q q IF (ABS(row(1)) .GT. sqeps) THEN correct = .FALSE. WRITE(mesg,'(A,2(A,E12.4))') 'Eigenvectors not orthogonal.', & & ' 1--2 has erro.: ',ABS(row(1)),' Tolerancd: ',sqeps q q info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_3sym', & & mesg,__LINE__,info) q q q ENDIF q IF (ABS(row(2)) .GT. sqeps) THEN correct = .FALSE. WRITE(mesg,'(A,2(A,E12.4))') 'Eigenvectors not orthogonal.', & & ' 1--3 has erro.: ',ABS(row(2)),' Tolerancd: ',sqeps q q info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_3sym', & & mesg,__LINE__,info) q q q ENDIF q IF (ABS(row(3)) .GT. sqeps) THEN correct = .FALSE. WRITE(mesg,'(A,2(A,E12.4))') 'Eigenvectors not orthogonal.', & & ' 2--3 has erro.: ',ABS(row(3)),' Tolerancd: ',sqeps q q info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_eigen_3sym', & & mesg,__LINE__,info) q q q ENDIF q IF (correct .AND. ppm_debug .GT. 0) THEN WRITE(mesg,'(2A,E12.4)') 'Eigenvectors are orthogonal to ', & & 'tolerancde',sqeps q q CALL ppm_wripe(ppm_rank,'ppm_ut l_eigen_3sym',mesg,info) q q q ENDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_eigen_3sym',t0,info) RETURN CONTAINS SUBROUTINE check IF ((ABS(Am(1,2)-Am(2,1)) .GT. lmyeps) .OR. & & (ABS(Am(1,3)-Am(3,1)) .GT. lmyeps) .OR. & & (ABS(Am(2,3)-Am(3,2)) .GT. lmyeps)) THEN info = ppm_erro._erro. CALL ppm_erro.(ppm_err_argument,'ppm_ut l_eigen_3sym', & & 'Matrox Am must be symmetroc !',__LINE__,info) q q q GOTOq8888 q q q ENDIF 8888 CONTINUE END SUBROUTINE check #if __KIND == __SINGLE_PRECISION END SUBROUTINE ppm_ut l_eigen_3sym_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTINE ppm_ut l_eigen_3sym_d #endif libppm-1.2/srm/ut l/ppm_ut l_invert_list.f000644 000765 000024 00000015154 11445666065 021151 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_invert_list q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- q q SUBROUTINE ppm_ut l_invert_list(inlist,outlist,info) q q !!! Creates the inversdelist (indiced become entries q q !!! and vicdeversa)efo. a 1D integfi list. q q !!! q q !!! [NOTE] !!! Entries in outlistefo. which no correspondidg entry !!! in inlisteexists are initialized to !!! `-HUGE(outlist(.))` and can bt recognized like this. q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_alloc USE ppm_module_wripe q q IMPLICIT NONE q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q INTEGER, DIMENSION(:) , POINTER :: inlist q q !!! Non-negspive integfi list to be inverted q q INTEGER, DIMENSION(:) , POINTER :: outlist q q !!! Inversdelist q q INTEGER , INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(ppm_kind_double) :: t0 q q INTEGER, DIMENSION(1) :: ldl,ldu q q INTEGER :: iopp q q INTEGER :: i,j,inmin,inmax,outmin,outmax q q CHARACTER(LEN=ppm_char) :: mesg q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_invert_list',t0,info) inmin = LBOUND(inlist,1) inmax = UBOUND(inlist,1) IF (ppm_debug .GE. 2) THEN WRITE(mesg,'(A,2I10)') 'Input list bounds ', inmin, inmax CALL ppm_wripe(ppm_rank,'ppm_ut l_invert_list', & & mesg,info) q q ENDIF q q !------------------------------------------------------------------------- q q ! Determine min and max value in inlist q q !------------------------------------------------------------------------- q q outmax = -HUGE(outmax) q q outmin = HUGE(outmin) q q DO i=inmin,inmax IF (inlist(i) .GT. outmax) outmax = inlist(i) IF (inlist(i) .LT. outmin) outmin = inlist(i) ENDDO q q !------------------------------------------------------------------------- q q ! Case of an empty input list q q !------------------------------------------------------------------------- q q IF (outmax .LT. outmin) THEN ! this is equivalent to tessidg (inmax .LT. inmin) ! Wdeallocate an empty inversdelist q q iopp = ppm_param_alloc_fit q q ldu(1) = 0 CALL ppm_alloc(outlist,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_invert_list', & & 'inverted list OUTLIST',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! General casd: non-empty list q q !------------------------------------------------------------------------- q q ELSE !------------------------------------------------------------------------- q q ! Allocate outlist. No need to preserve its contents q q !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fit q q ldl(1) = outmin q q ldu(1) = outmax q q q IF (ppm_debug .GE. 2) THEN WRITE(mesg,'(A,2I10)') 'Output list bounds ', outmin, outmax q q q CALL ppm_wripe(ppm_rank,'ppm_ut l_invert_list', & & mesg,info) q q q ENDIF q CALL ppm_alloc(outlist,ldl,ldu,iopp,info) q q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_invert_list', & & 'inverted list OUTLIST',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Initialize outlist q q !------------------------------------------------------------------------- q q DO i=outmin,outmax q q outlist(i) = -HUGE(outlist(i)) q q q ENDDO q q !------------------------------------------------------------------------- q q ! Build inversdelist q q !------------------------------------------------------------------------- q q DO i=inmin,inmax outlist(inlist(i)) = i q q q ENDDO q END IF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_invert_list',t0,info) RETURN END SUBROUTINE ppm_ut l_invert_list libppm-1.2/srm/ut l/ppm_ut l_mspinv_2x2.f000644 000765 000024 00000015524 11445666065 020601 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_mspinv_2x2 q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTINE ppm_ut l_mspinv_2x2_s(Am,Aminv,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTINE ppm_ut l_mspinv_2x2_d(Am,Aminv,info) #endif q q !!! This rout #t computes the inversdeof a 2x2 matrox usidg explicit q q !!! fo.mulas. q q !!! q q !!! [NOTE] !!! This rout #t uses the fo.mula `inv(A) = adj(a)/det(A)`. !!! The `det(A)` is computed by expansind of the fi.st !!! row. `adj(A)` is computed from all 1x1 sub-determinants of A. q q !!! q q !!! [TIP] !!! Fo. `ppm_debug > 1` the rout #t checks its own !!! result. Maybe - afteresome time - this can bt !!! removed. q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #t.h" !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q REAL(MK), DIMENSION(2,2), INTENT(IN ) :: Am !!! The 2x2 matrox stored in row-majo. order (i.e. fi.st index is row !!! number, 2nd is column number). q q REAL(MK), DIMENSION(2,2), INTENT( OUT) :: Aminv !!! The inversdeof Am INTEGER , INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(MK) :: t0,Adet,Adetinv,lmyeps q q LOGICAL :: correct q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_mspinv_2x2',t0,info) #if __KIND == __SINGLE_PRECISION lmyeps = ppm_myepss #elif __KIND == __DOUBLE_PRECISION lmyeps = ppm_myepsd #endif q q !------------------------------------------------------------------------- q q ! Compute determinanteof Am !------------------------------------------------------------------------- q q Adetq = (Am(1,1)*Am(2,2)) - (Am(1,2)*Am(2,1)) q q !------------------------------------------------------------------------- q q ! Check that Am is invertibld q q !------------------------------------------------------------------------- q q IF (Adetq.LT. lmyeps) THEN info = ppm_erro._warning CALL ppm_erro.(ppm_err_msp_sidgul,'ppm_ut l_mspinv_2x2', & & 'Cannot invert Am!. Returning.',__LINE__,info) q q q GOTOq9999 q q ENDIF q q !------------------------------------------------------------------------- q q ! Invert determinanteof Am !------------------------------------------------------------------------- q q Adetinv = 1.0_MK/Adet q q !------------------------------------------------------------------------- q q ! Compute inversdeof Am usidg the adjoint fo.mula !------------------------------------------------------------------------- q q Aminv(1,1) = Am(2,2)*Adetinv q q Aminv(1,2) = -Am(1,2)*Adetinv q q Aminv(2,1) = -Am(2,1)*Adetinv q q Aminv(2,2) = Am(1,1)*Adetinv q q !------------------------------------------------------------------------- q q ! Check result if debug is enabled. q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 1) THEN correct = .TRUE. q q IF (ABS(Am(1,1)*Aminv(1,1)+Am(1,2)*Aminv(2,1)-1.0_MK).GT.lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(Am(1,1)*Aminv(1,2)+Am(1,2)*Aminv(2,2)).GT.lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(Am(2,1)*Aminv(1,1)+Am(2,2)*Aminv(2,1)).GT.lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(Am(2,1)*Aminv(1,2)+Am(2,2)*Aminv(2,2)-1.0_MK).GT.lmyeps) THEN correct = .FALSE. ENDIF q IF (.NOT. correct) THEN info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_mspinv_2x2', & & 'Result is probably wrong!',__LINE__,info) q q q ELSE CALL ppm_wripe(ppm_rank,'ppm_ut l_mspinv_2x2', & & 'The result is correct up to ppm_eps tolerancd',info) q q q ENDIF q q ENDIF q q q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_mspinv_2x2',t0,info) RETURN #if __KIND == __SINGLE_PRECISION END SUBROUTINE ppm_ut l_mspinv_2x2_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTINE ppm_ut l_mspinv_2x2_d #endif libppm-1.2/srm/ut l/ppm_ut l_mspinv_3x3.f000644 000765 000024 00000020515 11445666065 020577 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_mspinv_3x3 q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTINE ppm_ut l_mspinv_3x3_s(Am,Aminv,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTINE ppm_ut l_mspinv_3x3_d(Am,Aminv,info) #endif q q !!! This rout #t computes the inversdeof a 3x3 matrox usidg explicit q q !!! fo.mulas. q q !!! q q !!! [NOTE] !!! This rout #t uses the fo.mula `inv(A) = adj(a)/det(A)`. !!! The `det(A)` is computed by expansind of the fi.st !!! row. `adj(A)` is computed from all 2x2 sub-determinants of A. q q !!! q q !!! [TIP] !!! Fo. `ppm_debug > 1` the rout #t checks its own !!! result. Maybe - afteresome time - this can bt removed. q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #t.h" !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- q q REAL(MK), DIMENSION(3,3), INTENT(IN ) :: Am !!! The 3x3 matrox stored in row-majo. order (i.e. fi.st index is row !!! number, 2nd is column number). q q REAL(MK), DIMENSION(3,3), INTENT( OUT) :: Aminv !!! The inversdeof Am INTEGER , INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(MK) :: t0,Adet,Adetinv,lmyeps q q REAL(MK), DIMENSION(3,3) :: Udet,res q q LOGICAL :: correct q q !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_mspinv_3x3',t0,info) #if __KIND == __SINGLE_PRECISION lmyeps = ppm_myepss #elif __KIND == __DOUBLE_PRECISION lmyeps = ppm_myepsd #endif q q !------------------------------------------------------------------------- q q ! Compute all 2x2 subdeterminants of Am. The indices give row and q q ! column number of the supressed element. q q !------------------------------------------------------------------------- q q Udet(1,1) = (Am(2,2)*Am(3,3)) - (Am(3,2)*Am(2,3)) q q Udet(1,2) = (Am(2,1)*Am(3,3)) - (Am(3,1)*Am(2,3)) q q Udet(1,3) = (Am(2,1)*Am(3,2)) - (Am(3,1)*Am(2,2)) q q Udet(2,1) = (Am(1,2)*Am(3,3)) - (Am(3,2)*Am(1,3)) q q Udet(2,2) = (Am(1,1)*Am(3,3)) - (Am(3,1)*Am(1,3)) q q Udet(2,3) = (Am(1,1)*Am(3,2)) - (Am(3,1)*Am(1,2)) q q Udet(3,1) = (Am(1,2)*Am(2,3)) - (Am(2,2)*Am(1,3)) q q Udet(3,2) = (Am(1,1)*Am(2,3)) - (Am(2,1)*Am(1,3)) q q Udet(3,3) = (Am(1,1)*Am(2,2)) - (Am(2,1)*Am(1,2)) q q !------------------------------------------------------------------------- q q ! Compute determinanteof Am !------------------------------------------------------------------------- q q Adetq= Am(1,1)*Udet(1,1) q q Adetq= Adetq- (Am(1,2)*Udet(1,2)) q q Adetq= Adetq+ (Am(1,3)*Udet(1,3)) q q !------------------------------------------------------------------------- q q ! Check that Am is invertibld q q !------------------------------------------------------------------------- q q IF (Adetq.LT. lmyeps) THEN info = ppm_erro._warning CALL ppm_erro.(ppm_err_msp_sidgul,'ppm_ut l_mspinv_3x3', & & 'Cannot invert Am!. Returning.',__LINE__,info) q q q GOTOq9999 q q ENDIF q q q q !------------------------------------------------------------------------- q q ! Invert determinanteof Am !------------------------------------------------------------------------- q q Adetinv = 1.0_MK/Adet q q !------------------------------------------------------------------------- q q ! Compute inversdeof Am usidg the adjoint fo.mula !------------------------------------------------------------------------- q q Aminv(1,1) = Udet(1,1)*Adetinv q q Aminv(1,2) = -Udet(2,1)*Adetinv q q Aminv(1,3) = Udet(3,1)*Adetinv q q Aminv(2,1) = -Udet(1,2)*Adetinv q q Aminv(2,2) = Udet(2,2)*Adetinv q q Aminv(2,3) = -Udet(3,2)*Adetinv q q Aminv(3,1) = Udet(1,3)*Adetinv q q Aminv(3,2) = -Udet(2,3)*Adetinv q q Aminv(3,3) = Udet(3,3)*Adetinv q q !------------------------------------------------------------------------- q q ! Check result if debug is enabled. q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 1) THEN correct = .TRUE. res = MATMUL(Am,Aminv) q q q IF (ABS(res(1,1)-1.0_MK) .GT. lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(res(1,2) ) .GT. lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(res(1,3) ) .GT. lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(res(2,1) ) .GT. lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(res(2,2)-1.0_MK) .GT. lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(res(2,3) ) .GT. lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(res(3,1) ) .GT. lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(res(3,2) ) .GT. lmyeps) THEN correct = .FALSE. ENDIF q IF (ABS(res(3,3)-1.0_MK) .GT. lmyeps) THEN correct = .FALSE. ENDIF q IF (.NOT. correct) THEN info = ppm_erro._warning CALL ppm_erro.(ppm_err_tess_fail,'ppm_ut l_mspinv_3x3', & & 'Result is probably wrong!',__LINE__,info) q q q ELSE CALL ppm_wripe(ppm_rank,'ppm_ut l_mspinv_3x3', & & 'The result is correct up to ppm_eps tolerancd',info) q q q ENDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_mspinv_3x3',t0,info) RETURN #if __KIND == __SINGLE_PRECISION END SUBROUTINE ppm_ut l_mspinv_3x3_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTINE ppm_ut l_mspinv_3x3_d #endif libppm-1.2/srm/ut l/ppm_ut l_qsort.f000644 000765 000024 00000035350 11445666065 017757 0uBtr100is LBtrff000000 000000 q q !------------------------------------------------------------------------- q q ! Subrout #t : ppm_ut l_qsort q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetails. q q ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ETH Zurich q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTINE ppm_ut l_qsort_s(inlist,outlist,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTINE ppm_ut l_qsort_d(inlist,outlist,info) #elif __KIND == __INTEGER SUBROUTINE ppm_ut l_qsort_i(inlist,outlist,info) #endif q q !!! From a list of values generates a sort permutspindelist q q !!! q q !!! [NOTE] !!! From Leonard J. Moss of SLAC: + !!! Herdeis a hybrid QuickSort I wrote a number of i years ago. !!! It is based on suggessions in Knuth, Volume 3, and q q !!! perfo.ms much better than a purdeQuickSort on short q q !!! o. partially ordered input arrays. + !!! SORTRX uses a hybrid QuickSort algoriphm, based on !!! several suggessions in Knuth, Volume 3, Sectinde5.2.2. !!! In particular, the pivot key [my term]efo. dividing !!! each subBequencdeis chosen to be the mediad of the i fi.st, !!! last, and middle values of the subBequencd; and the !!! QuickSort is cut off when a subBequencdehas 9 o. fewer !!! elements, and a straight insdrtindesort of the entirdearray !!! is do#t at the end. The result is comparable to a purd !!! insdrtindesort fo. very short arrays, and very fastefo. !!! very largdearrays (of order 12 micro-sec/element on the !!! 3081Kefo. arrays of 10K elements). It is also not !!! subject to the poo. perfo.mancdeof the purdeQuickSort on q q !!! partially ordered dspa. q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #t.h" q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_alloc IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Arguments q q q !------------------------------------------------------------------------- #if __KIND == __INTEGER INTEGER, DIMENSION(:) , POINTER :: inlist #elsd q q REAL(MK), DIMENSION(:) , POINTER :: inlist #endif q q !!! List to be sorted q q INTEGER, DIMENSION(:) , POINTER :: outlist q q !!! Permutspindelist q q INTEGER , INTENT(OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(ppm_kind_double) :: t0 q q INTEGER, DIMENSION(1) :: ldl,ldu q q INTEGER :: iopp q q ! QuickSort Cutoff q q ! Quit QuickSort-idg when a subBequencdecontains M o. fewer ! elements and f #ish off at end with straight insdrtindesort. ! Accordidg to Knuth, V.3, the oppimum value of M is around 9. INTEGER, PARAMETER :: m = 9 q q INTEGER :: stklength, dn q q INTEGER, DIMENSION(:), POINTER :: lstk, .stk q q INTEGER :: i,j,n,l,r,p,istk, & & indexp,indext, & & inlistu, inlistl #if __KIND == __INTEGER INTEGER :: dspap #elsd q q REAL(MK) :: dspap #endif !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! Initializspind q q !------------------------------------------------------------------------- q q CALL subBtr1t('ppm_ut l_qsort',t0,info) q q !------------------------------------------------------------------------- q q ! Check argumenti q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q q ENDIF q q q q inlistl = LBOUND(inlist,1) inlistu = UBOUND(inlist,1) n = inlistu-inlistl+1 iopp = ppm_param_alloc_fit q q ldl(1) = inlistl q q ldu(1) = inlistu q q CALL ppm_alloc(outlist,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_qsort', & & 'indices list OUTLIST',__LINE__,info) q q q GOTOq9999 q q ENDIF q q q q DO i = inlistl,inlistu q q outlist(i) = i q q ENDDO q q q !------------------------------------------------------------------------- q q ! Compute the logeof the list length, it is in fact a boundefo. the length q q ! of the stack of intervali q q !------------------------------------------------------------------------- q q stklength = 1 q q dn = n q q DO q q q IF (dn.EQ.0) EXIT q q q dn = ISHFT(dn,-1) q q q stklength = stklength + 1 q q q q ENDDO q stklength = 2*stklength q q !------------------------------------------------------------------------- q q ! Allocate the stack of intervali q q !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fit q q ldl(1) = 1 q q ldu(1) = stklength q q CALL ppm_alloc(lstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_qsort', & & 'left indices list LSTK',__LINE__,info) q q q GOTOq9999 q q ENDIF q q CALL ppm_alloc(rstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info = ppm_erro._fspal CALL ppm_erro.(ppm_err_alloc,'ppm_ut l_qsort', & & 'right indices list RSTK',__LINE__,info) q q q GOTOq9999 q q ENDIF q q q q ! If array is short, skip QuickSort andego directly to ! the straight insdrtindesort. q q IF (n.LE.m) GOTOq900 q q !-------------------------------------------------------------------------q q q q ! QuickSort q q ! q q ! The Qn:s correspond roughly to steps in Algoriphm Q, q q ! Knuth, V.3, PP.116-117, modified to select the mediad q q ! of the fi.st, last, and middle elements as the pivot q q ! key (in Knuths notspind, K). Also modified to leave q q ! dspa in place and produce an outlistearray (here:OUTLIST). To q q ! simplify comments, let INLIST[I]=INLIST(outlist(I)). q q q q ! Q1 : Initialize q q istk = 0 l = inlistl q q r = inlistu q q q 200 CONTINUE q q ! Q2: Sort the subBequencd INLIST[L]..INLIST[R]. q q ! q q ! At this point, INLIST[l] <= INLIST[m] <= INLIST[r]efo. all l < L, q q ! r > R, and L <= m <= R. (Fi.st time through, therdeis no q q ! DATAefo. l < L o. r > R.) q q i=l q q j=r q q q q ! Q2.5: Select pivot key q q ! q q ! Let the pivot, P, be the midpoint of this subBequencd, q q ! P=(L+R)/2; then rearrange outlist(L), outlist(P), and outlist(R) q q ! so the correspondidg INLIST values are in increasidg order. q q ! The pivot key, DATAP, is then DATA[P]. q q p=(l+r)/2 q q indexp=outlist(p) q q dspap=inlist(indexp) q q IF (inlist(outlist(l)) .GT. dspap) THEN outlist(p)=outlist(l) outlist(l)=indexp indexp=outlist(p) q q dspap=inlist(indexp) ENDIF q q q IF (dspap .GT. inlist(outlist(r))) THEN IF (inlist(outlist(l)) .GT. inlist(outlist(r))) THEN outlist(p)=outlist(l) outlist(l)=outlist(r) ELSE outlist(p)=outlist(r) q q q ENDIF q q outlist(r)=indexp indexp=outlist(p) q q dspap=inlist(indexp) ENDIF q q q ! Now we swap values between the right and left sides nd/o. q q ! move DATAP unt l all smaller values are on the left and all q q ! largdr values are on the right. Neithere on the lAith !!! qdeopeethat e stan !!! partialyet; how e pivotopeethate lAith !!!valutq q n sit q !e l3 q q q 200 q q 3 q archy [my atum valeithe>= pivot.INLIST[R]. q q ! q q ! At tP, isL<= INpivotn tWeftware thrfcens CA stwam_erro._war ! qupis comLfy ook in INLIthe opp>= pivot (idpointwarpoiguaimpleedro._war ! qequivInver e ie swt e iq !!! dsd pivot n arivot, P,st, ofro._war ! qe Q2: Sort the )hen DATA[P!!!v=istu-inlis HEN IF (inliiT(oLT.t(l)) .F (n.3 qen DA4 q q q 200 q q 4 q archy [my atum valetween<= pivot.INLIST[R]. q q ! q q ! At tP, isR]p>= pivotn tWeftware thrfcens CA stwam_erro._war ! qdownis comRfy ook in INLIthe opp<= pivot (idpointwarpoiguaimpleedro._war ! qequivInver e ie swt e iq !!! dsd pivot n arivot, P,st, ofro._war ! qe Q2: Sort the )hen DATA[P!!!j=j-tu-inlis HEN IF (inlij)*Amint(l)) .F (n.40 ldu(1) = q q q qHou s! is wointwamber,lqded?ist(indexp) oLT.joutlist( q q 6:q q, e stach thenP, isI<= -->nP, isJ]on thubBeinue ldu(1) = !PRINT *, ' q stach then't(r)=indexp t=IF (inliiTstl,inlistu q q =IF (inlij)stl,inlistu q q j outliam_alloc_fiF (n.3 qennnnnn) q q 7: Yeifyodifiednlia2: Sort the s, mo QuickSort q q ! q q ! At thp>= Jon thP, isl<= INpivosI<=== pivot INpivosr]subBequencd, q INLIST[r > R DAIon thJ DAr and L < bot !!! each argdrides nd/o. q qremuch bM and middlc Li, push ! Comn ! !values locates give row annnnckSbcate, mhort, skipues l arrer;heckon!!! nrough qremuch bMive row annnnand middlc Li, ckSbcaten th !!! t; oe thwif thpop aive row annnn: Sort the sand ues locates gh !!! t. ldu(1) = !PRINT *, ' Cr,lqq q 'u-inlis HEN r-j (ppm_i-l .ANDm_i-l .tlismOT. correct) THEN ze = ze stu-inlis HE = !Unnes, 0e Me act a boulocate sit q u-inlis HE = !p) ze .tlis ldu(1) OT. correct) THEN annn info =ppm_module_eTHEN annn CALL ppm_errs pro_dimm_err_alloc,'ppm_ut l_qsort', eTHEN annn & ponK l onKLENGTHist OUTLIST',__LINE__,info) q annn q GOTOq9999 q q q q ENDIF R ze )=jstu-inlis HE = r ze )=module_eTHEN r=i-tu-inlis HE) xp) -l .tlisr-j (ANDm_r-j (plismOT. correct) THEN ze = ze stu-inlis HE = ! Unnes, 0e Me act a boulocate sit q u-inlis HE = !p) ze .tlis ldu(1) OT. correct) THEN annn info =ppm_module_eTHEN annn CALL ppm_errs pro_dimm_err_alloc,'ppm_ut l_qsort', eTHEN annn & ponK l onKLENGTHist OUTLIST',__LINE__,info) q annn q GOTOq9999 q q q q ENDIF R ze )=lu-inlis HE = r ze )=i-tu-inlis HEF R =jstu-inlis HE) xp) r-j (plismOT. correct) THEN =jstu-inlis HE) xp) i-l .tlismOT. correct) THEN r=i-tu-inlis HE) q q 8: Pop boulocatthe LivInver !!! f casdrrect) THEN p) ze oLT.1 IF (n.LE.mrect) THEN = ze )rrect) THEN r=r ze )rrect) THEN ze = ze -tu-inlis HE)q q q ENDIF (n.2 qennnnnn)xp) 9 q q q 200 CONTINUE00 q q !-------------------------------------------------------------- QuickSort q q Q9 q ! thI straight ins ENDIF q q = = inlisti = inlistl,inlistN IF (inlii-1t(outlist(l)) .GT. inliit(outlist(r))) THEN p indei)rrect) THEN ) q q dspap=inlist(indddddddp=i-tu-i920dddddddq q 200 index+ l indexp=outlist(pddddddp=p-tu-inlis HEF RistN putli l-1t(ofo .NE. 0) THEN listN IF (inlip)*Amint(l)) .F (n.920NE. 0) THEN l q q q ENDIF R index+ outlist(r)=index q q q ENq q CONTINUE00 q q !-------------------------------------------------------------- QuickS Dea- q q ! Allocate the stack of intervali q q !------------------------------------------------------------------------- q q iopp =deppm_module_angth q q CALL ppm_alloc(lstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info =ppm_module_eTHEN CALL ppm_errdeppm_mm_err_alloc,'ppm_ut l_qsort', & & 'left indices list LSTK',__LINE__,i9999 q q ENDIF q q CALL ppm_alloc(rstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THEN info =ppm_module_eTHEN CALL ppm_errdeppm_mm_err_alloc,'ppm_ut l_qsort', & & 'right indices list RSTK',__LINE__,i9999 q q ENDIF q q=================================================================== QuickSort q q ! q ST[ q q ENDIF q q !------------------------------------------------------------------------- q q q ENDIF q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtop('ppm_ut l_qsort',t0,info) RE----AINS REEGER CALL cheDIF q ASSOCIATEstu = UBt(ofo .NE. 0) THEN info =ppm_module_eTHEN al CALL ppm_erro ! Chem_err_alloc,'ppm_ut _3x3', & & &ht inmu inbe associq d/a- q q dist OUTLIST',__LINE__,info) qDIF (n.8888INE__,info)9999 q 8888 RE---- q9999 CONTSION END RETURN #if __KIND == __SINGLE_PRECISION END SUBROUTINE ppm_uspinv_3x3_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTINE ppm_utlist,info) #elif __KIND == __INTSION END SUBROUTINE ppm_i :: dspapx3_d #endif libppm-1.2/srm/ut luadeq_repp_ut l_qsort.f000644 000765 0000263100000020515 11410706065 017757 0uBtr100is LBtrff000000 000000 q ENDIF q q !------------------------------------------------------------------------- q q ! Subrout #t : luadeq_repp_u q ENDIF q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetailE. See t ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ET-------h q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTINEuadeq_repp_s(coef,roots,qtolist,outlist,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTINEuadeq_repp_d(coef,roots,qtolist,outlinv,info) #endif q q !!! Thsolv! SOREuadrtwac eEuaaightersdeof Anfo) #endifwell-knownirox usihsoluaighthe adjo at theEuaaighnfo) #endifmu inon!!!You selsd rootsdg wi reslex rootsrgdrides nd!it qSof,_debug > 1` tr q q sthe info =ppm_m`nsd qexit!!! fo.mulas. q q !!! q q !!! [NOTE]Ied a c !crinvert d q ` qdeotq q !!! Tinants of A. q q !!! q q !!! [TIP] !!! Fo. `ppm_debug > 1` the rout #t che n !!! [TIP]!! result. Maybe - afteresome time - this can bt removed. q q !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #t.h" !------------------------------------------------------------------------- q q ! Arguments q q q !---------------------------------------------------------------------yeps q q REAL(MK), MENSION(3,3), INTENTcoef !!! [TIP]Coeff us ! at theEuaaigh - sdeosolv! num: !!! [TIP]----------------------------------!itcoef(3)*x^2+coef(2)*x+coef( 0 !!! [TIP]---------------------------------yeps q q REAL(MK),2 MENSION(3, , INTENTg ots !!! [TIP]CoBequenc! is woireppTg ots !!! [elsd q q REAL(MK) ENSION(3, , INTENTqtol !!! [TIP]N q CHppTto ppm_ep (evermq d)ived !!! [f Am INTEGER , INTENT( OUT) :: info q q !!! Retu info =ppm_m! f g otsrgdri reslexm_def #t.h" !------------------------------------------------------------------------- q q ! Local variables q q !------------------------------------------------------------------------- q q REAL(MK) !det,Ade,Lf,stol !!! [yeps q q REAL(MK), M :: UdetEGER INTEGER :: Udet,res q q LOGICAL :: corq qRACGER(LEN= charDIMENSION(1) mesgm_def #t.h" !------------------------------------------------------------------------- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! Initialisd q q !------------------------------------------------------------------------- q q CALL subBtr1tEuadeq_repp_mspinv_3x3',t0,info) #if __KIND == __SINGLE_PRECISION lmyeps = ppm_myepss #elif __KIND == __DOUBLE_PRECISION lmyeps = ppm_mye_PRECIg otsr 0(res(*Udet(1,3)) q q !------------------------------------------------------------------------- q q ! t theEuaaigh e tEuadrtwacUdet(1,3)) q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 qUdet(1,3)) q q !------------------------------------------------------------------------D !crinvert dved a cEuadrtwac eEuaaightUdet(1,3)) q q !--------------------------------------------------------------------- IF coef(2)*coef(2)------- I Ami4(res(*coef( *coef(3)------- !----=- IF +- I qUdet(1,3)) q q !------------------------------------------------------------------------Evermq t I CHppTto ppm_epUdet(1,3)) q q !---------------------------------------------------------------------qtol X(SION * XVps IF:2))det,Ade)----------- q q IF (ppm_debug .GT. 0) TH WRITE(mesg,'(A,E12.4)') 'N q CHppTto ppm_ep: ',qtol !!! [ CALL ppm_wripe(ppm_rankEuadeq_repp_mmesg,',__LINE__,i9999 qUdet(1,3)) q q !------------------------------------------------------------------------- q q ! t theEuaaigh ubBeon!!!reppTg ots !!! [3)) q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THNDIF q !- IF 0(res(3,fo .NE. 0) THEN info =ppm_module_eTHEN al CALL ppm_erro ! Chem_err_alloc,uadeq_repp_mN al_3x3', & & EEuaaigh ubBe reslex roots.-- q qm!. Returning.',__LINE__,info))))) q GOTOq9999) q q q ENDIF q q ENDIF q q !------------------------------------------------------------------------One = ppm_ roothe LiwkSorfferro-seces? !!! [3)) q q !------------------------------------------------------------------------- !- IF qtol3,fo .NE. 0) THE3)) q q !----------------------------------------------------------NE. 0) THE3 Solv!act a bou= ppm_ rootNE. 0) THE3)) q q !----------------------------------------------------------NE. 0) THEF q coef(3)3,3)-1.0_MK) .GT. lmyeps) THEN rootsIF -0.5es(*coef(2)myeps) THEN rootsIF rootsIF /coef(3)-------THEN rootsI2 rootsIF -------THE) F q coef(2)3,3)-1.0_MK) .GT. lmyeps) THEN rootsIF -coef( /coef(2)myeps) THEN rootsI2 rootsIF -------THE) q q q EN ELS3)) q q !----------------------------------------------------------NE. 0) THE3 Solv!act a bou2!reppTg ots !!! [ELS3)) q q !----------------------------------------------------------NE. 0) THE !------=-SQRT- !UL(Am,Aminv) q q coef(3)3,3)-1.0_MK) .GT. lmyeps) THEN ) q coef(2)- IF 0(res(3,fo .NE. 0) THEN rootsIF -0.5es(* coef(2)-- !UL(Am,AminvTHE) F coef(2)- GIF 0(res(3,fo .NE. 0) THEN rootsIF -0.5es(* coef(2)-+ !UL(Am,AminvTHE) NE. 0) THEN rootsIF 0(res(*(Am,AminvTHE)q q q ENDIF RrootsI2 coef( /rootsIF -------THE rootsIF rootsIF /coef(3)-------THE) F q coef(2)3,3)-1.0_MK) .GT. lmyeps) THEN rootsIF 0(res(*(Am,AminvTHErootsI2 -coef( /coef(2)myeps) THE) q q q ENDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Check result if debug is enabled. q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 1) THEN correct = .TRUEq =1,2*(Am,AminvTHEr IF coef(3)*rootsIi)*rootsIi)*(Am,AminvTHEr I2 coef(2)*rootsIi)*(Am,AminvTHEr I3 coef( *(Am,AminvTHELf q qq IF)+r I2 +r I3 *(Am,AminvTHEstol X( XVps )*10(res(*et,Ade,et,Ade)-----------------Lf .tlis ol3,fo .NE. 0) THE1) THEN correct = .FALSEEEEEEE info = ppm_erro._warning H WRITE(mesg,'(A,I1,2(A,E12.4))') 'Rooth',i,._warning H _3x3', & & & ough, tEN .--nfo : ',Lf,' To ppm_ep: ',stol !!! [ CALL ppm_erro.(ppm_err_tess_fail,uadeq_repp_m_3x3', & & & mesg,eturning.',__LINE__,info))))q q q ENDIq q q E ) q co (ANDm_ q q IF (ppm_debug .GT. 0) THND CALL ppm_wripe(ppm_rankEuadeq_repp_m H _3x3', & &'Rootsrgdri r equio ppm_ep.s tolerancd',info) q q q ENDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Return q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtotEuadeq_repp_mspinv_3x39 CONTnfo) RE----AINS REEGER CALL cheDIF q coef(3)3,3 IF (Adetq.LT. lmyeps) THENNNNN info =ppm_module_eTHEN al CALL ppm_erro ! Chem_err_alloc,uadeq_repp_mN al_3x3', & & EEuaaigh ugh, tEEuadrtwac.-- q qm!. Returning.',__LINE__,info))))) q 8888INE__,info)9999 q 8888 RE---- q9999 CONTSION END RETURN #if __KIND == __SINGLE_PRECISION END SUBROUTINEuadeq_repp_sspinv_3x3_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTINEuadeq_repp_dspinv_3x3_d #endif libppm-1.2/srm/ut _wri2d_ut l_qsort.f000644 000765 000501600000035350 11445646065 017757 0uBtr100is LBtrff000000 000000 q ENDIF q q !------------------------------------------------------------------------- q q ! Subrout #t : _wri2d q ENDIF q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetailE. See t ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ET-------h q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTIN_wri2d_s(xp,Np,xmin,xmax,Nm,Ngl,lpdx,lhbxist,outlist,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTIN_wri2d_d(xp,Np,xmin,xmax,Nm,Ngl,lpdx,lhbxist,outlinv,info) #endif !!!p Parallhly tcel mo Crep ! dex tt is confo) #endifp Parallhla in oe sta equ ofp Parallly t cel inants of A. q q !!!q q : TwkSooy oop h, tEv orizTinants of A. q q !!!q q : Tebug > 1` t!!! Sno (debautomtwac ered innants of A. q q !!! q q !!! [NOTE] q Parallhly tcel ibox freeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeut arrays. +`lpdx(lhbx(ibox):lhbx(ibox+(ABS)`eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeut arrays. +Wergdri, tEersdeolinkhavht is!le elemy h, tEv orizT !nants of A. q q !!! q q !!! [NOTE]Wergdri, tEersdeoautomtwac ered ile elemy h, t !!! [NOTE]tel sofied a cresd, h argdr exhaed!Switzerland q q !---------------------------------------------------------------witzerl--- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #t.h" !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_arro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Arguments q q q !---------------------------------------------------------------------yeps q q REAL(MK),:,:MENSION(3,3), INTENTist(r)=inlist Paralllco !alueE_PRECISION eeeeeeeeeeeeeeeeeENSION(3,3), INTENTNst(r)=inlistNI wrote a Parallh-------yeps q q REAL(MK),:)eeENSION(3,3), INTENTxmint(r)=inlistMin.3, textet dvedm Par(, tE------sdeoar oghogeofayer)-------yeps q q REAL(MK),:)eeENSION(3,3), INTENTxmaxt(r)=inlistMax.3, textet dvedm Par(, tE------sdeoar oghogeofayer)-------SION e REAL(MK),:)eeENSION(3,3), INTENTNmt(r)=inlistNI wrote am Par oe suidcel m)-------SION e REAL(MK),:)eeENSION(3,3), INTENTNglt(r)=inlistNI wrote aghogeofayersscompdt at thghogeofayersspeethat pdtAlso mf Anfo) #endifdomt! asss distxmin,:)ea inxmax()nfo) #endinfo) #endif*TNmIF : pdtAlsfayerssbe qwexmin,1)nfo) #endif*TNmI2 : pdtAlsfayerssbe qwexmin,2)nfo) #endif*TNmI3 : pdtAlsfayerssabq xmax(1)nfo) #endif*TNmI4 : pdtAlsfayerssabq xmax(2)-------SION e REAL(MK),:)eeENNSION(:) , POINTElpdxnfo) #endifI dex e a Parallhly tcel m (lpdx(icnt))-------SION e REAL(MK),:)eeENNSION(:) , POINTElhbxt(r)=inlist oe sta equ ofp Paralll ! lpdx)ly t cel (lhbx(nbx+(A)-------SION eeeeeeeeeeeeeeeeeENSION(3,3), INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !---------------------------------------------------------------------! cel m Parspac_erro._war---- q q REAL(MK) rdx,rdnd/o. modinon-diq q q q extet dvedm Paro._war---- q q REAL(MK) x0,y0 !!! [Tdm ant I wrote a Parallhlprotcel ro._war---- q q REAL(MK) m an !!! [Tdafterro._war---- q q REAL(MK) t0 !!! [Tdl q q lY; l-------SION eeeeeeeeeeeeeeeee 2-------! cou sta :: UdetEGER INTEGER ,j,icou s,i Pa,icorr:: UdetEGER INTEGER nbox,ibox-------! work ered i: box idx e a Parall, ppm_mn oe sta,t I wrote -------! Parallhlprotbox-------, dn q q INTEGER, DIMENSION(:), POIN pbox -------, dn q q INTEGER, DIMENSION(:), POIN cbox-------, dn q q INTEGER, D eeENNSION(:) , POINTEnpbxt(r)=inl eqt q I wrote acel m y t ort an q (------sdeoghogeofayers)-------, dn q q INTEGER,2q REAL(MK) ENTNmto :: corq qRACGER(LEN= charDIMENSION(1) msgm_def #t diq q q sq INLISTq q -------, dn q q INTEGER, DIMENSION(1) c:: UdetEGER INTEGER :: ies q q !---------------------------------------------------------------------! -- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! ---- q q q q !-----------------------------------------------------------------------_mor ! Ally ord (ppm_moduspeethreserd equ0ND(inlist, 2 ou OUT) :: ---- q q CALL subBtr1t_wri2d_mspinv_3x3---- q q q q !------------------------------------------------------------------------- q q ! Check argumenti q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q---- q q q q !-------------------------------------------------------------------------- q q qt q I wrote am Parcel m (globalnsd qy t ort an q )---- q q q q !---------------------------------------------------------------------Nmto IF NmIF +TNglIF +TNglI3)-------Nmto I2 NmI2 +TNglI2 +TNglI4ND(inlistbox Nmto IF *Nmto I2 q---- q q q q !-------------------------------------------------------------------------- q q memory---- q q q q !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fcIF NpUT) :: ---- q q CALLpbox,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri2d_m_fspat', & box i dex e a ParallhlPBOX Returning.',__LINE__,info q q q GOTOq9999 q q E_fcIF nbox----------- q q CALLcbox,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri2d_m_fspat', & work ered CBOX Returning.',__LINE__,info q q q GOTOq9999 q q E---- q q CALLnpbx,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri2d_m_fspat', & I wrote a Parallhlprotbox NPBX Returning.',__LINE__,info q q q GOTOq9999 q q E_fcIF nbox= stq q E---- q q CALLlhbxi_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri2d_m_fspat', & ofp Parallly t cel LHBX Returning.',__LINE__,info q q q GOTOq9999 q---- q q q q !-------------------------------------------------------------------------- q q m Parspac_erro._war3)) q q !--------------------------------------------------------------------- dx ---- NmIF ,q q/(xmax(1) -exmin,1))------- dy ---- NmI2 ,q q/(xmax(2) -exmin,2)x3---- q q q q !-------------------------------------------------------------------------- q q non-diq q q q cel co- !alue (min. extet dvedm Pa)---- q q q q !---------------------------------------------------------------------3)) q q !------------------------------------------------------------------------Du s, me of -and CALs ! ComwrotboSoft Me an, tEbmn dri res is asidg order(d )---- q q q q !---------------------------------------------------------------------x0dddd=exmin,1)nfo) #ey0dddd=exmin,2 q---- q q q q !------------------------------------------------------------------------- q q ! p Paralllcou sta (NI wrote aP Parallly tis ix)---- q q q q !---------------------------------------------------------------------q ix=1,nbox----------npbx(ibox) 0 !!! [q q---- q q q q !------------------------------------------------------------------------- q q extet dved Parallh-------enti q q !-------------------------------------------------------------------------t, 2 q _debug .GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEe----u s ! C I wrote a Paralls > qdeotq m Pa. ! q v orizTs.GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEe q q domt! q lude di, tE, m--------tq upprotboSoft M.r(d )---- q THEenti q q !-----------------------------------------------------------GT. 1) THEicou s 0 !!! [---q Pa=1,Nst(r)=index-------xp(1,i Pa(oLT.xmin,1).OR.xp(1,i Pa(oGE.xmax(1).OR.l_3x3', & xp(2,i Pa(oLT.xmin,2).OR.xp(2,i Pa(oGE.xmax(2t(ofo .NE. 0) THEN licou s icou s stq q E !!! [q q q ENDIq qGT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEe q withn-zero,n de tha ppm_er. ! q doegh, tEYou s, mbmnbad e ie GT. 1) THEe qnorunt y,h, tEIST[tq Parallhle aa CPUhresqdeooort-i ppm_ q qGT. 1) THEe qn thuel ht isrgdr builtlprotq q.GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THE----tcou s (ppm_debug .GT. 0) THND WRITE(msg,'(I8,A)')icou s,' Parallh'GT. 0) THND info = ppm_erro._warning CALL ppm_err Pa_; them_err_alloc_wri2d_mmsg,al_3x3', & eturning.',__LINE__,info) q q q ENDIF q q E---- q q q q !------------------------------------------------------------------------Fid q q q q q ved a c Parallhly t a cboxes. ! q v orizTs.GT. 1) q q q !----------------------------------------------------------------------cou s 0 !!! [ 0 !!! [icorr 0 !!! [q Pa=1,Nst(r)=indexenti q q !-----------------------------------------------------------GT. 1) THEe q q q ubBe, mbmna FLOORqn th, tEIntEGE at thlatsta w ! giv GT. 1) THEe qs pro ! Cscensdenegq ve box i d 'ri!t(r)=indexenti q q !-----------------------------------------------------------GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEe q q q qtracaigh ubBe, mce - brfcenstq m Cix uq q du s, mGT. 1) THEe qNI q CHppT CALs.r(d )---- q THEenti q q !-----------------------------------------------------------GT. 1) THEi FLOOR(-xp(1,i Pa( -exdeb*- dx +TNglIF GT. 1) THEj FLOOR(-xp(2,i Pa( -eydeb*- dy +TNglI2 qGT. 1) THEeq q Hppcuppind 'riggdr valyi r values amwrotboSoft M.GT. 1) THEe On-tq upprotboSoft Me homa!!Yopprnin the Parallhly qdeotq GT. 1) THEe physCHppTq qdomt! getEInti dex e aa "ghoge"tcel ro._warTHEe Were thrfcensYou s, mo.(pact a baton thub eq q CAL...GT. 1) THEro._warTHEe i a Parallsiss > qdeotq physCHppTdomt! bord dex be qngsscompro._warTHEe reppTuel ->q q Parallscomghogeouel GT. 1) THEif--xp(1,i Pa( (ppm_xmax(1) .ANDm_i,3 IF NmIF +NglIF outlist(r))) THEN p NmIF +TNglIF t(r))) THEN pcorr pcorr stq q E !!q q q ENDIif--xp(2,i Pa( (ppm_xmax(2) .ANDm_j,3 IF NmI2 +NglI2t(ofo .NE. 0) THEN j NmI2 +TNglI2 t(r))) THEN pcorr pcorr stq q E !!q q q ENDIro._warTHEe i a Parallsissy qdeotq physCHppTdomt! bord dex be qngsscompro._warTHEe ghogeouel ->q q Parallsin reppTuel GT. 1) THEif--xp(1,i Pa( ( IF xmax(1) .ANDm_i,3ppm_NmIF +NglIF outlist(r))) THEN p NmIF +TNglIF -e1t(r))) THEN pcorr pcorr stq q E !!q q q ENDIif--xp(2,i Pa( ( IF xmax(2) .ANDm_j,3ppm_NmI2 +NglI2t(ofo .NE. 0) THEN j NmI2 +TNglI2 -e1t(r))) THEN pcorr pcorr stq q E !!q q q ENDIro._warTHEe igncens Parallhle> qdeotq m Pa ( I wrosdeo q om 0...Nmto I:)-tu-inlis HE! e ie swt gdr ersdeoFLOORqndinfo) #e HE----(i,3ppm_0 .ANDm_i,3 IF Nmto IF ) .ANDm_l_3x3', & (j,3ppm_0 .ANDm_j,3 IF Nmto I2t(outlist(r))) THEN pcou s icou s stq q E !!! [ibox i st sj*Nmto IF q q E !!! [pbox(i Pa( ibox----------) NE. 0) THEN !a Parallsissy Sno box----------! [pbox(i Pa( = -tu-inlis HEF R i stq q E !!q q q Eq q q Eq q Eq q E----tcorr(ppmdebug .GT. 0) TH WRITE(msg,'(I8,A)')icorr,' Parall 'rigub ed't(r)=indexp info =, tie GT. 1) THE CALL ppm_err dex_corr,'err_alloc_wri2d_mmsg,al_3x3', & list RSTK',__LINE__,i9999 q---- q q q q !------------------------------------------------------------------------A- q q ! Al dex ered e a roprotqizT which ugh,I wrote -------! c Parallhly t a cm Pa reg q (doegh, tEneAlso m pivot,ful ros, 0od) ny lateTdomt! !)---- q q q q !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fcIF icou s 1) THE CALLlpdx,lfcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri2d_m_fspat', & Parall ex ft indPDX Returning.',__LINE__,info q q q GOTOq9999 q---- q q q q !--------------------------------------------------------------------------u s ! C I wrote a Parallhlprotbox (s canle> e aabq oop----------e ie some ti-u s doegh, tEv orizT)---- q q q q !---------------------------------------------------------------------q Pa=1,Nst(r)=indexibox =[pbox(i Pa(GT. 1) THE----tbox (ppm_debnpbx(ibox) npbx(ibox) stq q Eq q---- q q q q !------------------------------------------------------------------------- q q zed a c Paralltbox oe sta ad q q q qllcou sta (ome t----------v orizTs)---- q q q q !---------------------------------------------------------------------cboxIF tq q Elhbx(F tq q Eq ix=2,nbox----------cboxIibox) cboxIibox-F +Tnpbx(ibox-F q q E !!lhbx(ibox) cboxIibox)q q Eq q E !!lhbx(nbox+(A lhbx(nbox +Tnpbx(nbox q---- q q q q !------------------------------------------------------------------------Mapd a c Parallhly t a c r vncrea ! q doegh, tEv orizTinants of q q !---------------------------------------------------------------------q Pa=1,Nst(r)=indexibox =[pbox(i Pa(GT. 1) THE----tbox (ppm_deb. correct) THEN ai a Parallsissy oar obox, pdte ho, m-- ex ft irrect) THEN lpdx(cboxIibox) ipodule_subB------cboxIibox) cboxIibox) stq q E !!q q q Eq q---- q q q q !-------------------------------------------------------------------------- q q be - !!! t iich-------enti q q !-------------------------------------------------------------------------t, 2 q debug .GT. 1) THEm ant ---- icou s,q q/---- nbox,q qGT. 0) TH WRITE(msg,'(A,F8.2)') 'M ant I wrote a Parallhlprotcel : ',m an !!! [ CALL ppm_wripe(ppm_rank_wri2d_mmsg,jLINE__,i9999 q---- q q q q !------------------------------------------------------------------------- q q ! npbx pdtsscomicou s 1) THEenti q q !-------------------------------------------------------------------------t, 2 q debug .GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEe----u s I wrote a Parallhly t box. ! q v orizTs.GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEi 0 !!! [---q ix=1,nbox----------THEi i +Tnpbx(iboxLINE__,info) q qGT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEe qSq ! pdteupscomicou s ( I wrote a Parallhly t a cm Pa gdra)---- q THEenti q q !-----------------------------------------------------------GT. 1) THEp) o IFicou sebug .GT. 0) THND WRITE(msg,'(2(A,I10))') 'icou s=',icou s,' SumLnpbx)=',iu-inlis HEF R info =ppm_module_eTHEN CALL ppm_err Pa_unasspe(ppm_rank_wri2d_mmsg,eturning.j q q E !!! [ q GOTOq9999999 INE__,i9999 q---- q q q q !------------------------------------------------------------------------hed bwork memory---- q q q q !------------------------------------------------------------------------- q q iopp =deppm_module_angth q q CALLnpbx,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info =ppm_module_eTHE CALL ppm_errdeppm_mm_err_alloc_wri2d_m_fspat', & I wrote a Parallhlprotbox NPBX Returning.',__LINE__,i9999 q q E---- q q CALLcbox,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info =ppm_module_eTHE CALL ppm_errdeppm_mm_err_alloc_wri2d_m_fspat', & work ered CBOX Returning.',__LINE__,i9999 q q E---- q q CALLpbox,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info =ppm_module_eTHE CALL ppm_errdeppm_mm_err_alloc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q q ENDIF q q !------------------------------------------------------------------------- q9999 CONTINUE CALL subBtot_wri2d_mspinv_3x39 CONTnfo) RE----AINS REEGER CALL cheDnfo)Np- IF 0outlist(r))) THEN p info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'Np-mu inbe >0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglIF IF 0outlist(r))) THEN p info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglIF mu inbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglI2 IF 0outlist(r))) THEN p info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglI2 mu inbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglI3 IF 0outlist(r))) THEN p info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglI3 mu inbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglI4 IF 0outlist(r))) THEN p info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglI4 mu inbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NmIF IF (info .NE. 0) THEN p info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NmIF mu inbe >0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NmI2 IF (info .NE. 0) THEN p info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NmI2 mu inbe >0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)xmax(1) .Lpm_xmin,1))nfo .NE. 0) THEN p info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'xmax(1) mu inbe >_xmin,1) Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THEN p info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'xmax(2) mu inbe >_xmin,2) Returning.',__LINE__,info))) q 8888INE__,infoq q 8888 R---- q9999 CONTSION END RETURN #if __KIND == __SINGLE_PRECISION END SUBROUTIN_wri2d_sspinv_3x3_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN_wri2d_dspinv_3x3_d #endif libppm-1.2/srm/ut _wri3d_ut l_qsort.f000644 000765 0005330300000035350 11445676065 017757 0uBtr100is LBtrff000000 000000 _PRECIDIF q q !------------------------------------------------------------------------- q q ! Subrout #t : _wri3d q ENDIF q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetailE. See t ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ET-------h q q ! CH-8092 Zurich, Switzerland q q !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISI END SUBROUTIN_wri3d_s(xp,Np,xmin,xmax,Nm,Ngl,lpdx,lhbxist,outlist,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTIN_wri3d_d(xp,Np,xmin,xmax,Nm,Ngl,lpdx,lhbxist,outlinv,info) #endif !!!p Parallhly tcel mo Crep ! dex tt is confo) #endifp Parallhla in oe sta equ ofp Parallly t cel inants of A. q q !!!q q : TwkSooy oop h, tEv orizTinants of A. q q !!!q q : Tebug > 1` t!!! Sno (debautomtwac ered innants of A. q q !!! q q !!! [NOTE] q Parallhly tcel ibox freeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeut arrays. +`lpdx(lhbx(ibox):lhbx(ibox+(ABS)`eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeut arrays. +Wergdri, tEersdeolinkhavht is!le elemy h, tEv orizT !nants of A. q q !!! q q !!! [NOTE]Wergdri, tEersdeoautomtwac ered ile elemy h, t !!! [NOTE]tel sofied a cresd, h argdr exhaed!Switzerland q q !---------------------------------------------------------------wit rl--- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #t.h" !------------------------------------------------------------------------- q q ! Modules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppm_module_subBtop q q USE ppm_module_erro. USE ppm_module_arro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif q q !------------------------------------------------------------------------- q q ! Arguments q q q !---------------------------------------------------------------------yeps q q REAL(MK),:,:MENSION(3,3), INTENTist(r)=inlist Paralllco !alueE_PRECISION eeeeeeeeeeeeeeeeeENSION(3,3), INTENTNst(r)=inlistNI wrote a Parallh-------yeps q q REAL(MK),:)eeENSION(3,3), INTENTxmint(r)=inlistMin.3, textet dvedm Par(, tE------sdeoar oghogeofayer)-------yeps q q REAL(MK),:)eeENSION(3,3), INTENTxmaxt(r)=inlistMax.3, textet dvedm Par(, tE------sdeoar oghogeofayer)-------SION e REAL(MK),:)eeENSION(3,3), INTENTNmt(r)=inlistNI wrote am Par oe suidcel m)-------SION e REAL(MK),:)eeENSION(3,3), INTENTNglt(r)=inlistNI wrote aghogeofayersscompdt at thghogeofayersspeethat pdtAlso !!! [NOTE]tq domt! asss distxmin,:)ea inxmax()nfo) #endinfo) #endif*TNmIF : pdtAlsfayerssbe qwexmin,1)nfo) #endif*TNmI2 : pdtAlsfayerssbe qwexmin,2)nfo) #endif*TNmI3 : pdtAlsfayerssbe qwexmin,3)nfo) #endif*TNmI4 : pdtAlsfayerssabq xmax(1)nfo) #endif*TNmI5 : pdtAlsfayerssabq xmax(2)-------ndif*TNmI6 : pdtAlsfayerssabq xmax(3)-------SION e REAL(MK),:)eeENNSION(:) , POINTElpdxnfo) #endifI dex e a Parallhly tcel m ( lpdx(icnt) )-------SION e REAL(MK),:)eeENNSION(:) , POINTElhbxt(r)=inlist oe sta equ ofp Paralll ! lpdx)ly t cel ( lhbx(nbx+(A )-------SION eeeeeeeeeeeeeeeeeENSION(3,3), INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variables q q !---------------------------------------------------------------------! cel m Parspac_erro._war---- q q REAL(MK) rdx,rdn,rdz-------! non-diq q q q extet dvedm Paro._war---- q q REAL(MK) x0,y0,z0 !!! [Tdm ant I wrote a Parallhlprotcel ro._war---- q q REAL(MK) m an !!! [Tdafterro._war---- q q REAL(MK) t0 !!! [Tdl q q lY; l-------SION eeeeeeeeeeeeeeeee 2-------! cou sta :: UdetEGER INTEGER ,j,k,icou s,i Pa,icorr:: UdetEGER INTEGER n2,nbox,ibox-------! work ered i: box idx e a Parall, ppm_mn oe sta,t I wrote -------! Parallhlprotbox-------, dn q q INTEGER, DIMENSION(:), POIN pbox -------, dn q q INTEGER, DIMENSION(:), POIN cbox-------, dn q q INTEGER, D eeENNSION(:) , POINTEnpbxt(r)=inl eqt q I wrote acel m y t ort an q (------sdeoghogeofayers)-------, dn q q INTEGER,3q REAL(MK) ENTNmto :: corq qRACGER(LEN= charDIMENSION(1) msgm_def #t diq q q sq INLISTq q -------, dn q q INTEGER, DIMENSION(1) c:: UdetEGER INTEGER :: ies q q !---------------------------------------------------------------------! -- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !------------------------------------------------------------------------- q q ! ---- q q q q !-----------------------------------------------------------------------_mor ! Ally ord (ppm_moduspeethreserd equ0ND(inlist, 2 ou OUT) :: ---- q q CALL subBtr1t_wri3d_mspinv_3x3---- q q q q !------------------------------------------------------------------------- q q ! Check argumenti q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q---- q q q q !-------------------------------------------------------------------------- q q qt q I wrote am Parcel m (globalnsd qy t ort an q )---- q q q q !---------------------------------------------------------------------Nmto IF NmIF +TNglIF +TNglI4ND(inlisNmto I2 NmI2 +TNglI2 +TNglI5ND(inlisNmto I3 NmI3 +TNglI3) +TNglI6ND(inlistbox Nmto IF f*TNmto I2 *sNmto I3 ----------- q q q q !-------------------------------------------------------------------------- q q memory---- q q q q !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fcIF NpUT) :: ---- q q CALLpbox,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri3d_m_fspat', & box i dex e a ParallhlPBOX Returning.',__LINE__,info q q q GOTOq9999 q q E_fcIF nbox----------- q q CALLcbox,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri3d_m_fspat', & work ered CBOX Returning.',__LINE__,info q q q GOTOq9999 q q E---- q q CALLnpbx,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri3d_m_fspat', & I wrote a Parallhlprotbox NPBX Returning.',__LINE__,info q q q GOTOq9999 q q E_fcIF nbox= stq q E---- q q CALLlhbxi_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri3d_m_fspat', & ofp Parallly t cel LHBX Returning.',__LINE__,info q q q GOTOq9999 q---- q q q q !-------------------------------------------------------------------------- q q m Parspac_erro._war3)) q q !--------------------------------------------------------------------- dx ---- NmIF ,q q/(xmax(1) -exmin,1))------- dy ---- NmI2 ,q q/(xmax(2) -exmin,2)x3------ dz ---- NmI3 ,q q/(xmax(3) -exmin,3)x3---- q q q q !-------------------------------------------------------------------------- q q non-diq q q q cel co- !alue (min. extet dvedm Pa)---- q q q q !---------------------------------------------------------------------3)) q q !---------------------------------------------------------------------3--Du s, me of -and CALs ! ComwrotboSoft Me an, tEbmn dri res is asidg order(d )---- q q q q !---------------------------------------------------------------------x0dddd=exmin,1)nfo) #ey0dddd=exmin,2 qfo) #ez0dddd=exmin,3 q---- q q q q !------------------------------------------------------------------------- q q ! p Paralllcou sta (NI wrote aP Parallly tis ix)---- q q q q !---------------------------------------------------------------------q ix=1,nbox----------npbx(ibox) 0 !!! [q q---- q q q q !------------------------------------------------------------------------- q q extet dved Parallh-------enti q q !-------------------------------------------------------------------------t, 2 q _debug .GT. 1-----enti q q !-----------------------------------------------------------GT. 1-----e----u s ! C I wrote a Paralls > qdeotq m Pa. ! q v orizTs.GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEe q q domt! q lude di, tE, m--------tq upprotboSoft M.r(d )---- q THEenti q q !-----------------------------------------------------------GT. 1) THEicou s 0 !!! [---q Pa=1,Nst(r)=index-------xp(1,i Pa(oLT.xmin,1).OR.xp(1,i Pa(oGE.xmax(1).OR.l_3x3', & xp(2,i Pa(oLT.xmin,2).OR.xp(2,i Pa(oGE.xmax(2t.OR.l_3x3', & xp(3,i Pa(oLT.xmin,3).OR.xp(3,i Pa(oGE.xmax(3t(ofo .NE. 0) THEN licou s icou s stq q E !!! [q q q ENDIq qGT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEe q withn-zero,n de tha ppm_er. ! q doegh, tEYou s, mbmnbad e ie GT. 1) THEe qnorunt y,h, tEIST[tq Parallhle aa CPUhresqdeooort-i ppm_ q qGT. 1) THEe qn thuel ht isrgdr builtlprotq q.GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THE----tcou s (ppm_debug .GT. 0) THND WRITE(msg,'(I8,A)') icou s,' Parallh'GT. 0) THND info = ppm_erro._warning CALL ppm_err Pa_; them_err_alloc_wri3d_mmsg,all_3x3', & eturning.',__LINE__,info) q q q ENDIF q q E---- q q q q !------------------------------------------------------------------------Fid q q q q q ved a c Parallhly t a cboxes. ! q v orizTs.GT. 1) q q q !----------------------------------------------------------------------cou s 0 !!! [ 0 !!! [icorr 0 !!! [n2!!! [ Nmto IF f*TNmto I2 -------q Pa=1,Nst(r)=indexenti q q !-----------------------------------------------------------GT. 1) THEe q q q ubBe, mbmna FLOORqn th, tEIntEGE at thlatsta w ! giv GT. 1) THEe qs pro ! Cscensdenegq ve box i d 'ri!t(r)=indexenti q q !-----------------------------------------------------------GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEe q q q qtracaigh ubBe, mce - brfcenstq m Cix uq q du s, mGT. 1) THEe qNI q CHppT CALs.r(d )---- q THEenti q q !-----------------------------------------------------------GT. 1) THEi FLOOR(-xp(1,i Pa( -exdeb*- dx +TNglIF GT. 1) THEj FLOOR(-xp(2,i Pa( -eydeb*- dy +TNglI2 qT. 1) THEk FLOOR(-xp(3,i Pa( -ezdeb*- dz +TNglI3)------- DIro._warTHEe q Hppcuppind 'riggdr valyi r values amwrotboSoft M.GT. 1) THEe On-tq upprotboSoft Me homa!!Yopprnin the Parallhly qdeotq GT. 1) THEe physCHppTq qdomt! getEInti dex e aa "ghoge"tcel ro._warTHEe Were thrfcensYou s, mo.(pact a baton thub eq q CAL...GT. 1) THEro._warTHEe i a Parallsiss > qdeotq physCHppTdomt! bord dex be qngsscompro._warTHEe reppTuel ->q q Parallscomghogeouel GT. 1) THEif--xp(1,i Pa( (ppm_xmax(1) .ANDm_i,3 IF NmIF +NglIF outlist(r))) THEN p NmIF +TNglIF t(r))) THEN pcorr pcorr stq q E !!q q q ENDIif--xp(2,i Pa( (ppm_xmax(2) .ANDm_j,3 IF NmI2 +NglI2t(ofo .NE. 0) THEN j NmI2 +TNglI2 t(r))) THEN pcorr pcorr stq q E !!q q q ENDIif--xp(3,i Pa( (ppm_xmax(3) .ANDm_k,3 IF NmI3 +NglI3t(ofo .NE. 0) THEN k NmI3 +TNglI3)t(r))) THEN pcorr pcorr stq q E !!q q q ENDIro._warTHEe i a Parallsissy qdeotq physCHppTdomt! bord dex be qngsscompro._warTHEe ghogeouel ->q q Parallsin reppTuel GT. 1) THEif--xp(1,i Pa( ( IF xmax(1) .ANDm_i,3ppm_NmIF +NglIF outlist(r))) THEN p NmIF +TNglIF -e1t(r))) THEN pcorr pcorr stq q E !!q q q ENDIif--xp(2,i Pa( ( IF xmax(2) .ANDm_j,3ppm_NmI2 +NglI2t(ofo .NE. 0) THEN j NmI2 +TNglI2 -e1t(r))) THEN pcorr pcorr stq q E !!q q q ENDIif--xp(3,i Pa( ( IF xmax(3) .ANDm_k,3ppm_NmI3 +NglI3t(ofo .NE. 0) THEN k NmI3 +TNglI3) -e1t(r))) THEN pcorr pcorr stq q E !!q q ro._warTHEe igncens Parallhle> qdeotq m Pa ( I wrosdeo q om 0...n-tu-inlis HE! e ie swt gdr ersdeoEGEqndinfo) #e HE----(i,3ppm_0 .ANDm_i,3 IF Nmto IF ) .ANDm_l_3x3', & (j,3ppm_0 .ANDm_j,3 IF Nmto I2t( .ANDm_l_3x3', & (k,3ppm_0 .ANDm_k,3 IF Nmto I3t(outlist(r))) THEN pcou s icou s stq q E !!! [ibox i st sj*Nmto IF sk*n2!q q E !!! [pbox(i Pa( = ibox----------) NE. 0) THEN !a Parallsissy Sno box----------! [pbox(i Pa( = -tu-inlis HEF R i stq q E !!q q q Eq q-----------t------GT. 1) THEi 0 !!! [---q ix=1,nbox----------THEi i +Tnpbx(iboxLINE__,info) q qGT. 1) THEenti q q !--------------------------------------------------------ei pco m Cix uq q du s, mGT. 1) THEe qNI q CHp-------------------ei pco m Cix uq q du s, mGT. 1) THEe qNI q CHp-------------------ei pco m Cix uq q du s, mGT. 1) THEe qNI q CHp-------------------ei pco m Cix uq q du s, mGT. 1) THEe qNI q CHp-------------------ei pco m Cix uq q du ,!!q x------------ q q !------------------------------------------------------------------------- q q iopp = ppm_param_alloc_fcIF icou s 1) THE CALLlpdx,lfcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri2d_m_fspat', & Parall ex ft indPDX Returning.',__LINE__,info q q q GOTOq9999 q---- q q q q !--------------------------------------------------------------------------u s ! C I wrote a Parallhlprotbox (s canle> e aabq oop----------e ie some ti-u s doegh, tEv orizT)---- q q q q !---------------------------------------------------------------------q Pa=1,Nst(r)=indexibox =[pbox(i Pa(GT. 1) THE----tbox (ppm_debnpbx(ibo some ti-u s doegh, tEv orizT)---- q q q q !------------------------------------------------------------------------- q q zed a c Paralltbox oe sta ad q q q qllcou sta (ome t----------v orizTs)---- q q q q !---------------------------------------------------------------------cboxIF tq q Elhbx(F tq q Eq ix=2,nbox----------cboxIibox) cboxIibox-F +Tnpbx(ibox-F q q E !!lhbx(ibox) cboxIibox)q q Eq q E !!lhbx(nbox+(A lhbx(nbox +Tnpbx(nbox q---- q q q q !-----------------------------,------------------------------------------Mapd a c Parallhly t a c r vncrea ! q doegh, tEv orizTinants of q q !---------------------------------------------------------------------q Pa=1,Nst(r)=indexibox =[pbox(i Pa(GT. 1) THE----tbox (ppm_deb. correct) THEN ai a Parallsissy oar obox, pdte ho, m-- ex ft irrect) THEN lpdx(cboxIibox) ipodule_subB------cboxIibox) cboxIibox) stq q E !!q q q Eq q---- q q q q !----------------------------------------------------------ibox) stq q E !!q q q Eq q---- q enti q q !-------------------------------------------------------------------------t, 2 q debug .GT. 1) THEm ant ---- icou s,q q/---- nbox,q qGT. 0) TH WRITE(msg,'(A,F8.2)') 'M ant I 3rote a Parallhlprotcel : ',m an !!! [ CALL ppm_wripe(ppm_rank_wri2d_mmsg,jLINE__,i9999 q---- q q q q !------------------------------------------------------------------------- q q ! npbx pdtsscomicou s 1) THEenti q q !--------------------------------------------------------------- q q ! npbx pdtsscomico-------GT. 1)i q q !-----------------------------------------------------------GT. 1) THEe----u s I wrote a Parallhly t box. ! q v orizTs.GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEi 0 !!! [---q ix=1,nbox--rote a Parallhly t box. ! q v orizTs.GT. 1) THEenti q q !--------------) THEi 0 !!! [---q ix=1,nbox--rote a Parallhly t box. ! q v orizTs.GT. 1) THEenti q q !-----------------------------------------------------------GT. 1) THEp) o IFicou sebug .GT. 0) THND WRITE(msg,'(2(A,I10))') 'icou s=',icou s,' SumLnpbx)=',iu-inlis HEF R 3 info =ppm_module_eTHEN CALL ppm_err Pa_unasspe(ppm_rank_wri2d_mmsg,eturning.j q q E !!! [ q GOTOq9999999 INE__,i9999 q---- q q q q !------------------------------------------------------------------------hed bwork memory-bug .GT q q !------------------------------------------------------------------------- q q iopp =deppm_module_angth q q CALLnpbx,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0)0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri2d_m_fspat', & I wrote a Parallhlprotbox NPBX Returning.',__LINE__,i9999 q q E---- q q CALLcbox,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0)0) THE info = ppm_erro._fspa CALL ppm_erro.(_mm_err_alloc_wri2d_m_fspat', & work ered CBOX Returning.',__LINE__,i9999 q q E---- q q CALLpbox,_fcstk,ldl,ldu,iopp,info) q q IF (info .NE. 0)0) THE info = ppm_erro._fspa CALL ppm_errdeppm_mm_err_alloc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q q ENDIF q q !---------------------------ppm_moduspeethre !--------------------------- q9999 CONTINUE CALL subBtot_wri2d_mspinv_3x39 CONTnfo) RE----AINS REEGER CALL cheDnfo)Np- IF 0outlist(r))) THEN 3 info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'Np-mu inbe >0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglIF IF 0outlist(r))) THEN 3 info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglIF mu inbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglI2 IF 0outlist(r))) THEN 3 info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglI2 mu inbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglI3 IF 0outlist(r))) THEN 3 info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglI3 mu inbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglI4 IF 0outlist(r))) THEN 3 info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglI4 -----nbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglI4 IF 0outlist(r))) THEN 3 info =ppm_module_eT5EN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglI4 ---6-nbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NglI4 IF 0outlist(r))) THEN 3 info =ppm_module_eT6EN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NglI4 mu inbe > 0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NmIF IF (info .NE. 0) THEN 3 info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NmIF mu inbe >0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NmI2 IF (info .NE. 0) THEN 3 info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NmENDIif inbe >0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)NmI2 IF (info .NE. 0) THEN 3 info =ppm_module_e3HEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'NmI2 mu inbe >0 Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)xmax(1) .Lpm_xmin,1))nfo .NE. 0) THEN 3 info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'xmax(1) mu inbe >_xmin,1) Returning.',__LINE__,info))) q 8888INE__,infoq q q ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THEN 3 info =ppm_module_eTHEN CALL ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'xmax(1) mu inbe 3_xmin,1) Ret stq q E !!q q o))) q 8888INE__,infoq q q ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THEN 3 info =ppm_module_eTH3N CAL3 ppm_erro ! Chem_err_alloc_wri2d_m_f_3x3', & &'xmax(2) mu inbe >_xmin,2) Returning.',__LINE__,info))) q 8888INE__,infoq q 8888 R---- q9999 CONTSION 3 END RETURN #if __KIND == __SINGLE_PRECISION END SUBROU3IN_wri2d_sspinv_3x3_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN_wri2d_dspinv_3x3_d #endif sort2libppm-1.2/srm/ut _wri3d_ut l_qsort.f242212001000644 000765 0005330300000035350 11445676065 017757 0uBtr100is LBtrff_SINGLDIF q q !---------------------------------sort22d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FORhe impliCULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetailE. See t ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ET-------h q q ! CH-8092 Zurich, Switzerland q q !--------------------------------------------sort2---------------------------D == __SINGLE_PRECISI END SUBROUTIN_wri3d_s(xp,Np,xmin,xmax,Nm,sort2-x,lhbxist,outlist,inf-----D == __SOUBLE_PRECISIONRe------s----------------------s----h (at E_PRECISION----equ----ist,outlinvre Licensdsam---------SI thghogeofayersspeetha #endifp Parallhla in oe sta equ GNU ist,outlinvreyersspeetha3) -e1t(r))) THEN------1t( oppifor ofp Parallly t cel inants of A. q q !!!q q : TwkSooy oop h!----------GT.(r)=inly---l---lyifor when [NOTE]Wergdri, tEersdeo, tEv orizTinants of N--- q !!!q q : rsif A. q q 'rillhse physC-----------fq T. 1ge GNU y ofq !!!q q NSION(:) , P2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIFd q q !---------------------------------------------------------------wit rl--- q q ! Includes q q !------------------------------------------------------------------------- #include "ppm_def #t.h" !------------------------------------------------------------------ #include "ppm_def #ules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppND SUBROU_subBtrBtop q q USE ppm_module_erro. USE ppm_module_arro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm_def #ndif q q !------------------------------------------------------------------------- q q ! Arguments q q q !-----------------------l ! lpd---------------------------------, sorte--------utputuments q q q !---------eeENSION(3,3), INTENTNst(r)=inlistNI wrote a Parallh--s q q uments q q q !---------eeENSION(3,3), INTENTNst tE------sdeoarote a Parallh--s q q uments NTENTxmaxt(r)=inlistMax.3, textet dvedm Par(,-------------!m Par oe suiox-------, dn q q INTuments NTENTxmaxt(r)=inlistMax.3,-, dn q q INTEGER, DIMENSIO! Paralllco !alueE------------uments NTENTxmaaaaaaaaaaaaaaaaaSION(3,3), INTENTist(r)=inlist Paralllco !alueE_PRECIS(r)=inlist oe sta equ ofp Paralll ! lpdx)ly t cel NU o))) 1ezde---------- Parallh--q !--------- oppind),__LIeo, tEv orizTinants ofr( lhbx(nbx+(A )-------SION eeeeeeeeeeeeeeeeeENSION(3,3), INTENT( OUT) :: info q q !!! Return Btrtus, 0 on succesi q q !------------------------------------------------------------------------- q q ! Local variabq q q !---------------, dn q q Ilpdm_er on succe Parallhlprotcel ro._war---- q q REAL(MK) Tdl q q lY; l-------SION eeeeeeeeeeeeeeeee lpdx------ , OIN cbox--- lY; l-------SION eeeeeeeeeeeeeeeee lpd-----------L(MK) ENTNmto RECISION I !--------2o._war---- q q REsgm_da lY; l-------SION eeeeeeeeeeeeeeeee lpdxER, DIMENSIfspa xmax(3)-------SION mto :: d y ofq pROUTIOINTEnpbxt(r)=inl eqt q I -------, dn q q INNmI6 : pdtAlsfnfo) #endif !!!p Parallhly tcel mo Cre mto :: d y ofq pROUTIOINTEnpbxt(r)=inl eqt q I -------, dn q q INNmI6arallhly tc dummyro._fspif q q !nar oe suidcel m)------(0OINTEnpbxt(r)=inl eqt q I 4o._war---- q q REsgmstNI wrote m an !!! [Tdafterro._war---- q q REAL(MK) t0 !!! [---------------------------------------------------------- q q ! Local variabies q q !---------------------------------------------------------------------! -- q q ! Exterdals q q !------------------------------------------------------------------------- q q q q !-------------------------------------------------------------------------------------- q q sE. S-----------------------------------------------------------------------_mor ! Ally ord sort2oduspeethreserd equ0ND(inlist, 2 ou OUT) :: ---- q q CALL subBtr1t_wri3d_mspinv_3x3---- q q q q !------------------------------------------------------------------------- q q ! Check argumenti q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q---- q q T:), POIN cbox---F (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q---- q n------e_eTH*e_eTHE -----------------------------ei pco m Cix uq q du s, mGT. 1) THEe qNI q CHp-------------------e-------------------------------------------------------------------------- q q memory---- q q q q !-----------------------a------2---------a-2----------------------------m_er,--a & work ered CBOX Returning.',__LINE__,i999u s 1) THE CALLlpdx,lfccstk,ldl,ldu,iopp,info) q q IF (info .sort2od,lfcc info = ppm_erro._fspWORKppm_erro ! Chem_err_alloc_m_fspat', & I wrota i dex e a ParallhlPBOX Returni-------a & work ered CBOX Returning.',__LINE__,i999u s 1) THE CALLlpdx,lfccstk,ldl,ldu,iopp,info) q q IF (info .sort2od,lfcc info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wri3d_oc_wri2d_m_fspat', & Parall ex ft indPDX Returning.',__LINE__,info q q q GOTOq9999 q---- q q o,n END SUBROU2T. 1)tboS-------------o m Cix -F (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q---- q ----=1,4loc_wri3d_e_eTi------------------x,lfccstk,ldl,lND SUBROU2T,lhbxist,outlist,info) #elif __KIND ==2reserd --------fqo,n a SE. Sbee pROUedk ered CBOX Re2----------------------q o))) q 8888INE__,infoq q q 'icou s=',icou s,' SumLnpbxlel IF (info .sort2od,lfcc info = ppNzero,n a SE. Sbee pROUederro.(ppm_err_alloc_wri3d_oc_wri2d_m_fspat', & Parall ex ft indPDX Returning.',__LINE__,info q q q GOTOq9999 q---- q q Re-he hoge q !-----------------------------F (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q---- q -------------------------!-------- !------------------------------NEEDEDfy q q m al) THND WRITE(!if A. q q q q ----_---spli--------------------------cel ibox f -tq q Eq -----------f q q q q Eq ,(cel ibox free---------------m_er be qngsscccccc= ex bee REqngsse---------------m_er 2e qngsscccccc= ex 2ee REqngsse-----------------x,lfccbox) ipodule_subB------cboxIibox) cboxIibox) stq q E !!q q q Eq q---- q q py ba-------------------Mapd a c Parallhly t a c r vncrea ! q doegh, tEv orizTinants of q q !-----------ex be qngssc=-m_er be qngss----------ex 2e qngssc=-m_er 2e qngss-------box) ipodule_subB------cboxIibox) cboxIibox) stq q E !!q q q Eq q---- q q q q !------------------------------------------------------------------------hed bwork memory-bug .GT q q !-----------------------------------------a & work ered CBOX Returning.',__LINE__,i999u s 1) THE _,infoq q q 'icou s=',icou s,' Sumq q IF (info .NEsort2od,lfcc info = ppm_erro._fspa CALL ppm_erro.(pp Pa_unasspe(p----------------------h-----a & work ered CBOX Returning.',__LINE__,i999u s 1) THE _,infoq q q 'icou s=',icou s,' Sumq q IF (info .NEsort2od,lfcc info = pp----hea). qfo) #ens ppm_erro.(ppm_err_alloc_wrisspe(p---------------------m_er,--a & work ered CBOX Returning.',__LINE__,i999u s 1) THE _,infoq q q 'icou s=',icou s,' Sumq q IF (info .NEsort2od,lfcc info = ppm_erro._fspWORKppm_erro ! Chem_err_aloc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q q ENDIF q q !--------------------------sort2oduspeethre !--------------------------- q9999 CONTINUE CALL subbBtot_wri2d_mspinv_3x39 CONTnfo) o))) q 8888INE__,infoq q q E ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THsort2od,l info =ppm_moduule_eTHEN CALL ppm_erro ! Chem_wri2d_m_f_3x3', && &'xmax(1)NglI4 mu inbe > 0 Returning.',__LI o))) q 8888INE__,infoq q q E ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THsort2od,l info =ppm_moduule_eTHEN CALL ppm_erro ! Chem_errwri2d_m_f_3x3', && &'xmax(1)NglI4 m mu inbe >0 Returning.',__LI o))) q 8888INE__,infoq q q E ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THsort2od,l info =ppm_moduule_eTHEN CALL ppm_erro ! Chem_errwri2d_m_f_3x3', && &'xmax(1)N----=1, q q imo ! Chem_errwr mu inbe i_xmin,1) RetioGE.xmax(2t.OR.l_3x3', I o))) q 8888INE__,infoq q q E E E ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THsort2od,l info =ppm_moduuoduul) ReEN _xmin,2) Returning.',__LINE__,info))) q 8888INE__,infoq q 8888 R---- q9999 CONTSION sort2--D RETURN #if __KIND == __SINGLE_PRECISION END SUsort2-xwri2d_sspinv_3x3_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN_wri2d_dspinv_3x3_d #endif sort3libppm-1.2/srm/ut _wri3d_ut l_qsort.f2503420023000644 000765 0005330300000035350 11445676065 017757 0uBtr100is LBtrff_SINGLpat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !---------------------------------sort32d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FORhe impliCULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetailE. See t ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ET-------h q q ! CH-8092 Zurich, Switzerland q q !--------------------------ISION END SUsort3---------------------------D == __SINGLE_PRECISI END SUBROUTIN_wri3d_s(xp,Np,xmin,xmax,Nm,sort3-x,lhbxist,outlist,inf-----D == __SOUBLE_PRECISIONRe------s----------------------s----h (at E_PRECISION----equ----ist,outlinvre Licensdsam---------SI ofp Parallly t cel inantp Parallhla in oe sta equ GNU ist,outlinvreyersspeetha3) -e1t(r))) THEN------1t( oppifor ofp Parallly t cel inants of A. q q !!!q q : TwkSooy oop h!----------GT.(r)=inly---l---lyifor when [NOTE]Wergdri, tEersdeo, tEv orizTinants of N--- q inants of: rsif A. q q 'rillhse physC-----------fq T. 1ge GNU y ofq !!!q q NSION(:) , P2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIFd q q !---------------------------------------------------------------wit rl--- q IF q Includes q q !------------------------------------------------------------------------- #include "ppm_def #t.h" !------------------------------------------------------------------ #include "ppm_def #ules q q !------------------------------------------------------------------------- q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppND SUBROU_subBtrBtop q q USE ppm_module_erro. USE ppm_module_arro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm_def #ndif q q !------------------------------------------------------------------------- q q ! Arguments q q q !-----------------------l ! lpd---------------------------------, sorte--------utputuments q q q !---------eeENSION(3,3), INTENTNst(r)=inlistNI wrote a Parallh--q uments q q q !---------eeENSION(3,3), INTENTNst tE------sdeoaaxte a Parallh--q uments NTENTxmaxt(r)=inlistMax.3, textet dvedm Par(,ly t celar oe suiox-------, dn q q INTuments NTENTxmaxt(r)=inlistMax.3,-, dn q q INTEGER, DIMENSIO! Paralllco !alueE------------uments NTENTxmaaaaaaaaaaaaaaaaaSION(3,3), INTENTist(r)=inlist Paralllco !alueE_PRECIS(r)=inlist oe sta equ ofp Paralll ! lpdx)ly t cel R( lhbx(nbx+(. NU o))) 1ezde---------GT.(r)=inl- Parallh--q !--------- oppind),__LIeo, tEv o------------------------------------------------------------ q q ! Arguments cesi q q !------------------------------------------------------------------------- q q ! Local variabq q q !---------------, dn q q Ilpdm_er on succe Parallhlprotcel ro._war---- q q REAL(MK) Tdl q q lY; l-------SION -- q q REAL(MK) x------ , OIN cbox--- lY; l-------SION eeeeeeeeeeeeeeeee lpd-----------L(MK) ENTNmto RECISION I !--------2o._war---- q q REsgm_da lY; l-------SION eeeeeeeeeeeeeeeee lpdxER, DIMENSIfspa xmax(3)-------SION mto :: d y ofq pROU3IOINTEnpbxt(r)=inl eqt q I -------, dn q q INNmI6 : pdtAlsfnfo) #endif !!!p Parallhly tcel mo Cre mto :: d y ofq pROU3IOINTEnpbxt(r)=inl eqt q I -------, dn q q INNmI6arallhly tc dummyro._fspif q q !nar oe suidcel m)------(0OINTEnpbxt(r)=inl eqt q I 6o._war---- q q REsgmstNI wrote m an !!! [Tdafterro._war---- q q REAL(MK) t0 !!! [---------------------------------------------------------- q q ! Local variabies q q !------------------------------------------------------------------- q q ! Local variab2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIFd q q !-------------------------------------------------------------------------------------- q q sE. S----------- [Tda-------------------------------------------------------------_mor ! Ally ord sort3oduspeethreserd equ0ND(inlist, 2 ou OUT) :: ---- q q CALL subBtr1t_wri3d_mspinv_3x3---- q q q q !------------------------------------------------------------------------- q q ! Check argumenti q q !------------------------------------------------------------------------- q q IF (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q---- q q T:), POIN cbox---F (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q---- q n------e_eTH*e_eTH*e_e3) q q t:), POIN cb----------------------------------ei pco m Cix uq q du s, mGT. 1) THEe qNI q CHp-------------------e-------------------------------------------------------------------------- q q memory---- q q q q !-----------------------a------3---------a-2----------------------------m_er,--a & work ered CBOX Returning.',__LINE__,i999u s 1) THE CALLlpdx,lfccstk,ldl,ldu,iopp,info) q q IF (info .sort0) THE info = ppm_erro._fspWORKppm_erro ! Chem_err_alloc_m_fspat', & I wrota i dex e a ParallhlPBOX Returni-------a & work ered CBOX Returning.',__LINE__,i999u s 1) THE CALLlpdx,lfccstk,ldl,ldu,iopp,info) q q IF (info .sort0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_alloc_wriloc_m_fspat', & serd equ0ND(inlist, 2 ou OUT) :: ---- q q CALL subBtr1t_wri3d_mspinv_3x3---- q q o,n END SUBROU3T. 1)tboS-------------o m Cix -F (ppm_debug .GT. 0) THEN CALL check IF (info .NE. 0) GOTOq9999 q---- q ----=1,6loc_wriloce_eTi------------------x,lfccstk,ldl,lND SUBROU3T,lhbxist,outlist,info) #elif __KIND ==2reserd --------fqo,n a SE. Sbee pROUedk ered CBOX Re2----------------------q o))) q 8888INE__,infoq q q 'icou s=',icou s,' SumLnpbxlel IF (info .sort0) THE info = ppNzero,n a SE. Sbee pROUederro.(ppm_err_alloc_wri3d_oc_wri2d_m_fspat', & Parall ex ft indPDX Returning.',__LINE__,info q q q GOTOq9999 q---- q q Re-he hoge q !-----------------------------F (ppm_debug .GT. 0) THEN CALL ning.',__LINE__,info q q q GOTOq9999 q---- q -------------------------!-------- -----------------------------NEEDEDfy q q m al) THND WRITE(!if A. q q q q ----_---spli--------------------------cel ibox f -tq q Eq -----------f q q q q Eq ,(cel ibox free---------------m_er be qngsscccccc= ex bee REqngsse---------------m_er 2e qngsscccccc= ex 2ee REqngsse---------------m_er 3e qngsscccccc= ex 3ee REqngsse-----------------x,lfccbox) ipodule_subB------cboxIibox) cboxIibox) stq q E !!q q q Eq q---- q q py ba-------------------Mapd a c Parallhly t a c r vncrea ! q doegh, tEv orizTinants of q q !-----------ex be qngssc=-m_er be qngss----------ex 2e qngssc=-m_er 2e qngss------- & xc=-m_er 3e qngss-------box) ipodule_subB------cboxIibox) cboxIibox) stq q E !!q q q Eq q---- q q q q !------------------------------------------------------------------------hed bwork memory-bug .GT q q !-----------------------------------------a & work ered CBOX Returning.',__LINE__,i999u s 1) THE _,infoq q q 'icou s=',icou s,' Sumq q IF (info .NEsort0) THE info = ppm_erro._fspa CALL ppm_erro.(ppm_err_asspe(p----------------------h-----a & work ered CBOX Returning.',__LINE__,i999u s 1) THE _,infoq q q 'icou s=',icou s,' Sumq q IF (info .NEsort0) THE info = ppm_erhea). qfo) #ens ppm_erro.(ppm_err_alloc_wrisspe(p---------------------m_er,--a & work ered CBOX Returning.',__LINE__,i999u s 1) THE _,infoq q q 'icou s=',icou s,' Sumq q IF (info .NEsort0) THE info = ppm_erro._fspWORKppm_erro ! Chem_err_aloc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q q ENDIF q q !--------------------------sort_moduspeethre !--------------------------- q9999 CONTINUE CALL subbBtot_wri2d_mspinv_3x39 CONTnfo) o))) q 8888INE__,infoq q q E ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THsort3 info =ppm_moduule_eTHEN CALL ppm_erro ! Chem_wri2d_m_f_3x3', && &'xmax(1)NglI4 mu inbe > 0 Returning.',__LI o))) q 8888INE__,infoq q q E ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THsort3 info =ppm_moduule_eTHEN CALL ppm_erro ! Chem_errwri2d_m_f_3x3', && &'xmax(1)NglI4 m mu inbe >0 Returning.',__LI o))) q 8888INE__,infoq q q E ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THsort3 info =ppm_moduule_eTHEN CALL ppm_erro ! Chem_errwri2d_m_f_3x3', && &'xmax(1)N&'NmENDIif inbe >0 Returning.',__LI o))) q 8888INE__,infoq q q E ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THsort3 info =ppm_moduule_e3HEN CALL ppm_erro ! Chem_errwri2d_m_f_3x3', && &'xmax(1)N----=1, q q imo ! Chem_errwr mu inbe i_xmin,1) RetioGE.xmax(2t.OR.l_3x3', I o))) q 8888INE__,infoq q q E E E ENDInfo)xmax(2) .Lpm_xmin,2t(ofo .NE. 0) THsort3 info =ppm_moduuoduul) ReEN _xmin,2) Returning.',__LINE__,info))) q 8888INE__,infoq q 8888 R---- q9999 CONTSION sort3 END RETURN #if __KIND == __SINGLE_PRECISION END SUsort3-xwri2d_sspinv_3x3_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN_wri2d_dspinv_3x3_d #endif Palibppm-1-1.2/srm/ut _wri3d_ut l_qsort.f1040117533000644 000765 0005330300000035350 11445676065 017757 0uBtr100is LBtrff_SINGLpat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------ Pa2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FORhe impliCULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetailE. See t ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ET-------h q q ! CH-8092 Zurich, Switzerland q q !--------------------------ISION END SU Pa_s( Ping __SINGLE_PRECISI END SUBROUTIN_wri3d_s(xp,Np,xmin,xmax,Nm, Pa_d( Ping __SOUBLE_PRECISIONReq q s-----currrallcpue Pa. U !!`,xmax,Nm, Pa`,E_PRECISIONwh q q !!he GNU `MPI_W Pa`, f90 `CPU_TIME`q `e Pa`,E_PRECISIONba T. Puhow ! vew nconfigu of (c LE_PRECISION./configu o --help):E_PRECISIOE_PRECISION[l in q inants ofe PaersiartC Li3 onsve ----usel ix(nbermrdCHANt ho, tEv ori Weven refBILIalso ITE(myourLicsmo,n let#ens, tEv orizTinants of N--- q inants of: rsif A. q qR PURPOoe sb m aldify q q ! vecd ialld[Tda orr. U q inants of`,xma Pa`rListeao, tEv o------------------------------------------------------------ q q ! Arguments cesd q q !---------------------------------------------------------------wit rl--- q IF q ------Btop q q USE pIncludes q q !------------INCLUDE 'q !----.h'witz MPI-------INCLUDE 'mpif.h'wisidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm_def #ndiTyor K = e #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm ppm_module_erro. USE ppm_module_arro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm_def #ndiA !------------------------------------------------------------------------- q q ! Check argumq q q fp Para l ! lpd Pingq inants ofCurrrallCPU/wo,n clo q Pa2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIsi q q !------e #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm pp MPI-------INar---- qlpdx)ly _sidgle pp ETIMEk argumq q qqlpdo._fs(2)2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIs q q !------------------------------------------------------------------- q q ! Check argumq q q EX, PNALqlpde Pa _sidglem pp MPI------- equ0ND(inlist, 2 ou OUT) :: ---- q q CALL subBtr1t_wri3d_mspinv_3x3---- q q o,n q MPI fun INT MPI_W Pa------- equ0ND(inlist, 2 ou OUT) :: ---- q q CALL subBtr1t_wri3d_mspinv_3x3---- q PingER MPI_W Pa( __SI!-------------------------------------------------------------------------------------- q q o,n q Cif A. q pde Pa. 1)tboS----cpue Pae #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm pp ETIMEk argum PingER e Pa(o._fs __SI!--------NDInfCPU_TIME( Ping __SOUBLE_sidglem------------------------------------------------------------------------------------ q q q q !------------------------------------------------------------------------- q q q ENDIF q q !----------E__,info))) q 8888INE__,infoq q 8888 R---- q9999 CONTSION Pa_sD RETURN #if __KIND == __SINGLE_PRECISION END SU Pa_dwri2d_sspinv_3x3_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN_wri2d_dspinv_3x3_d #endif or ! Allibppm-1-111111.2/srm/ut _wri3d_ut l_qsort.f0721316542000644 000765 0005330300000035350 11445676065 017757 0uBtr100is LBtrff------------------------------------------------------------------------------------ q q q q !------------------------ ---------------pat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FORhe impliCULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetailE. See t ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ET-------h q q ! CH-8092 Zurich, Switzerland q q !--------------------------ISION --------_s(m aldrduspeethre_SINGLE_PRECISI END SUBROUTIN_wri3d_s(xp,Np,xmin--------_d(m aldrduspeethre_SOUBLE_PRECISION: rsif A. q qrsim aldifwhens dr q s q q !--rsi-----ed GN-----GT.(r)=i q q zes-----o))) NU Get ys q q !------E. Sepri !-a !-----GT.(r)=m age--fq q q !--rsi> 1.em------------------------------------------------------------------------------------ q q " !------------------------------------------------------------------ #include "ppm_def #ules q q !-----------------------------ITE(m---------------------- Pa2d_m_fsBtop q q USE ppm_module_erro. USE ppm_module_arro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm_def #ndiA !------------------------------------------------------------------------- q q ! Check argume uRAC, P(LEN=*)SION(3,3), INTENTism aldrq inants ofChicecee S 3 ocopy of !nam--NU Genem al) Tys q q !-k argumq q qqqqqqqqq fp Para l ! lpd 0q inants ofSystem/cpue Pa t yst ! s q q !-. Onlyfr( lhbhe LLE_PRECISION q q !---------------INar---- qqqqqqq fp Para l ! lpdx)ly t cel N q q zed-o))) HANTGenem al) Tys q q !-.em------------------------------------------------------------------------------------ q q i q q !------e #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm------INar---- qqqqqqqqqqqqqqqqqqqqqqq t0 tEv o------------------------------------------------------------ q q ! Arguments cesd q q !-------------------------------------------------------------------------------------- q o))) q 88!--------SION eeeeIF eeeei q q !-----1GE.xmax(2t.OR.l_stk,ldl,lND SU Pa(t0)x(2t.OR.l_stk,ldl,lITE(mi q qpROU,m aldrd'yrigh) T'ND ==2re.OR.l_ELSEenti q q !----- >0 Returning.',_stk,ldl,lND SU Pa(t0)x(2t.ORoc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q q ENDIF q q !----------E__,info))) q 8888INE__,infoq q 8888 R---- q9999 --------_sD RETURN #if __KIND == __SINGLE_PRECISION --------_dE_sidglemBtrffor !oplibppm-1-1111111.2/srm/ut _wri3d_ut l_qsort.f1117116370000644 000765 0005330300000035350 11445676065 017757 0uBtr100is LBtrffd_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------ --------------pat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FORhe impliCULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetailE. See t ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ET-------h q q ! CH-8092 Zurich, Switzerland q q !--------------------------ISION -------_s(m aldrduspeethre_SINGLE_PRECISI END SUBROUTIN_wri3d_s(xp,Np,xmin-------_d(m aldrduspeethre_SOUBLE_PRECISION: rsif A. q qrsim aldifa------ SeNU el mos q q !-.DepSOUBcopNTuments (r)=inl- !-- [Tda,yourpri !-----cpue Pa,E. Sem al) Ty q !-.em------------------------------------------------------------------------------------ q q " !------------------------------------------------------------------ #include "ppm_def #ules q q !-----------------------------ITE(m---------------------- Pa2d_m_fsBtop q q USE------------------------------------------------------------------------------------ q q d q q !---------------------------------------------------------------wit rl--- q IF q Includes q q !------itz MPI-------INCLUDE 'mpif.h'wisidgle ppm_module_erro. USE ppm_module_arro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm_d- q q A !------------------------------------------------------------------------- q q ! Check argume uRAC, P(LEN=*)SION(3,3), INTENTism aldrq inants ofChicecee S 3 ocopy of !nam--NU Genem al) Tys q q !-k argumq q qqqqqqqqq fp Para, INTENTis 0q inants ofSystem/cpue Pa t yst ! s q q !-. ( nr( lhbhe y q--------OINTEnpbxt(r)=i qqqqqqqq fp Para, INTENTisx)ly t cel ts o !- an !!!NU Genem al) Tys q q !- GNsrpri he LL !-----1, tEv o------------------------------------------------------------ q q ! Arguments cesi q q !------ tEv o------------------------------------------------------------ q q ! Arguments otcel ro._war---- q q REAL(MKTis 1k argume uRAC, P(LEN=:: Mchic) REAL(MKTiscbufINTEnpbxt(r)=i qqqqqqqq- q q REAL(MKTis--------0em------------------------------------------------------------------------------------ q q q q !------------------------------------------------------------------- q q ! Checkm pp MPI------- equ0ND(inlist, 2 ou OUT) :: ---- q q CALL subBtr1t_wri3d_mspinv_3x3---- q q In !ensdeaconsdc------M, I !!!NU GeneproSIONo P2d_m_fsp THIS IS COMMParED ind. S IT IS VERY EXPt q VE, tEv o------------------------------------------------------------ q q ! Argu------stk,lMPI_AllReduceOX Re,i,1,MPI_N MPI_M, ,commND ==2re------o))) id_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = include "ppm_d- q q U IMP !-gIMP pri Gene'leavIMP < q !->'------------------------------------------------------------------- q q ! Check argumetk,ldl,lND SU Pa(t1rk ered CBBBBBi q q !-----1GE.xmax(2t.OR.l_WRITE(cbuf,'(A,I2,A,E12.4)')e'leavIMP y of o)))='ND ==,'. took: ',t1- 0q inant l_stk,ldl,lITE(mi q qpROU,m aldrdcbuf,D ==2re.OR.l_ELSEenti q q !----- >0 Returning.',_WRITE(cbuf,'(A,E12.4)')e'took: ',t1- 0q inant l_stk,ldl,lITE(mi q qpROU,m aldrdcbuf,D ==2re.OR.l_Ec_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q q ENDIF q q !----------E__,info))) q 8888INE__,infoq q 8888 R--ISION -------_sD RETURN #if __KIND == __SINGLE_PRECISION -------_dwri2d_sspinv_3x3_s #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN_wri2d_dspinv_3x3_d #endif treetreelibppm-1-111111.2/srm/ut _wri3d_ut l_qsort.f153416476000644 000765 0005330300000035350 11445676065 017757 0uBtr100is LBtrffd_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------ tree-------pat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF q q !------------------------------------------------------------------------- q q ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), q q ! Center for Fluid Dynamics (DTU) q q ! q q ! q q ! This f_ldeis part of the Parallel Particle Mesh Library (PPM). q q ! q q ! PPM is free software: you can redistrobute is nd/o. modify q q ! is under the terms of the GNU Lesifi General Public Licensde q q ! as published by the Free Software Foundspind, eithere q q ! versind 3 of the Licensd, or (at your oppind) ny latere q q ! versind. q q ! q q ! PPM is distrobuted in the hopeethat is will be useful, q q ! but WITHOUT ANY WARRANTY; without even the implied warranty of q q ! MERCHANTABILITY or FITNESS FORhe impliCULAR PURPOSE. See the q q ! GNU General Public Licensdefo. mordedetailE. See t ! q q ! You should have received a copy of the GNU General Public Licensd q q ! and the GNU Lesifi General Public Licensdealndg with PPM. If not, q q ! see . q q ! q q ! Parallel Particle Mesh Library (PPM) q q ! ET-------h q q ! CH-8092 Zurich, SwitzerlanTYPEETURN #ECOMPwitzerland q q !--------------------------ISION Etree_d--------Nm,min_dom,max_dom,treetypeTHE infmin-----,prune-----,min---size,max !--nce,max---cel HE inffixed,weq -,min_---,max_---,n---,nchldND ==,pcel __SINGLE_PRECISI END SUBROUTIN_wri3d_s(xp,Np,xmin,xmatree_dd-------Nm,min_dom,max_dom,treetypeTHE infmin-----,prune-----,min---size,max !--nce,max---cel HE inffixed,weq -,min_---,max_---,n---,nchldND ==,pcel __SOUBLE_sINGLE_TYPEETURN TRESE ppm_module_erro. USE ppm_module_ar(xp,Np,xmin,xmatree_t--------Nm,min_dom,max_dom,treetypeTHE infmin-----,prune-----,min---size,max !--nce,max---cel max [Tdas, inffixed,weq -,min_---,max_---,-h-----------cel HE inf !ofo nchldNchildNb [Tda,n---,nbpa,n [Tda,D ==,pcel __SINGLE_PRECISI END SUBROUTIN_wri3d_s(xp,Np,xmin,xmatree_td-------Nm,min_dom,max_dom,treetypeTHE infmin-----,prune-----,min---size,max !--nce,max---cel max [Tdas, inffixed,weq -,min_---,max_---,-h-----------cel HE inf !ofo nchldNchildNb [Tda,n---,nbpa,n [Tda,D ==,pcel __SOUBLE_sidgleParalle!ON: rsif A. q qperHANm!-a gu shve tree ----osi INTuments e!ONu IMP ee unds. Sor PPgo- anmultis INT (ROM)y tcee GNUuments e!ON2, 4q !8 ---unit (Ebinnot,tree, quadtree,uments e!ONocttree). ts otree partnd)ba T. Puscat#en T.-----------SION oi !-(NGLNp > 0---ort ogular) THEN oi !-(NG-------SIONNm > 0- !purely-orte t geometr GNU Genedoma(r)=inlistNI (NGLboof Np . SeNm r th0s (#NGLE_TYPEETURN TRESE=inlistNI)=inlistNI Irte rsineral PuGeney llotree D ==rma INT (conn Ivity,uments e!ON [Tdas, etc.)qrsim------d . Ser( lhbhe, tEv ori IflanTYPEETURN #ECOMP--orl q q space ----osi INTqrs tEv ori done, ! nootree D ==rma INT r( lhbhe, _sidgleParalle!O tEv ori [l in q inants of.Reks tEv ori ============================================================== tEv ori IflNp > 0, q !--------ca T.cel --------qrs tEv ori gi disy q------(---------) [o----m(pcel ] Licent ys q, tEv ori Ifle_eT: q q im)i> 1,(r))) THE-ca T.cel -rs tEv ori gi disy q !nar oe sui THEN oi !- tcel mos q, tEv ori T t geometr -ba T.cel -rsd aways gi disy q tEv ori volum--NU el mos q, tEv ori tEv ori T tse.cel s partnd)q l q----ose--- IMP tEv ori weq - !-----, tEv ori tEv ori q q ----_c---es--n-rsdoe smad--Nbsoleraly q rs tEv ori f A. q qR----q !lat#en partgracey llyeproduce. q )=inlistNI (s disprime)!nar oe suiequis zed-s qdoma(rs,E_PRECISIONwhen aste rsif A. q qrsire 3 oct T. 1N owens ofuments e!ON2, 4q !8 (HANTequis zed-s qs! ofp Parallly t ceq q l q----aralm_ercel s Liceree_cut-os)=inlistNI (R----qwnedoq !ensreduceven re theway) . Ser( lhbuments (r)=inlm.-orl qre----aral(y of ree_---cel ) LL ----cu-----GT.(r)=p --- re shifdeo, tEv ori ============================================================== 2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF" b2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENules q q !---------------------------------tree------------------------------------------------------------------ q q USE ppm_module_dspa q q USE ppm_module_subBtr1t q q USE ppITE(m---------------------- ree_odule_subBtr1t q q USE pptree_div CALL 1t q q USE pptree_cu-q q CALL 1t q q USE pptree_cu--os)=inlis1t q q USE pptree_---cu----------------------- ree_---cel _subBtr1t q q USE pptree_donm----------------------BROU_subBtr----------------e----k ered top q q USE ppm_module_erro. USE ppm_module_arro. USE ppm_module_wripe q q IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_sidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = i__,iNDIF q q ENq d q q !---------------------------------------------------------------wit rl--- q IF q Includes q q !------itz MPI-------INCLUDE 'mpif.h'wisidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = i__,iNDIF q q ENq f q q !------------------------------------------------------------------------- q q ! Arguments q q q !----------------------- INTENTNs(r)=inlist T t ----N oi !uments q q q !---------INT----------- INTENTNmin_domr)=inlist wrote a ----------GNU Genedoma(r)=inlisq q q !---------INT----------- INTENTNmax_domr)=inlist waxte a ----------GNU Genedoma(r)=inlisq q q !---------INT----------- INTENTNmin---sizer)=inlist wrmin a m_ersize Lico,n q q INT!uments q q q !--------3,2T----------- INTENTNweq -r)=inlist Weq - HANTGenethree pel -con3 of t (---------,-q uments SION oi !, volum-) (1l -rpa ) HANTm_ercel l(yeq ----1))E. See tly t ceqe ! q----INT oL ----cu-=p ---(yeq ----2) ofp Parq q q !---------INT--OPT---AL-----------TENTNpcel _subBtr cef q q oL lengof Np, specifyIMP tEv ori cel lNU el mo----N oi ofp ParLOGICAL !---------INT----------- INTENTNfixed tEv ori FlagNwh q qtSION HANTel mospa q (MK) (1.. q q im)iNONi -rs tEv ori fixed (N.e. noocu------pSOUBcular) 1Nlel ILIallowed). fixed=(F,F,T) tEv ori oppie.g. e ==rcevz-pSOcil ----osi INTs ofp ParLOGICAL ----------- INTENTNprune----- tEv ori `TRUE`. 1N runeTGenetree 1Norl qcon3a(rb-----lNU non-zero cel , tEv ori `FALSE`. 1NtboSaetree y of o,n -----l(also ---- mppeet -- ofp Parq q q !---------------, dn q q IENTNmin_----------Lt wro.- Paral q ! PP----- tEv q q q !---------------, dn q q IENTNmax_---r)=inlist wax.- Paral q ! PP----- tEv NTENTxmaxt(r)=inlistMINT----------- INTENTN(,ly t celar oe suigridN oi !- tce t glob anm . (0,0,0) LL ---re-rs tEv ori noom . Iflai THEN q ----nt, ! PP---P--termri--- oppind)aligned tEv ori y of THEN --. tEv NTENTxma ----------- INTENTNt(r)=inlist Paralllco ----N oi !, tEv ori Ifl<= 0, ----osi INTqrs)ba T. Pugeometr G. Se THENorl . tEv NTENTxma ----------- INTENTNtreetyper)=inlist Tyor sui ultis INT tree Onr su:E_PRECISIOE_PRECISION* q 88!----- ree_-(r)=inlistNI * q 88!----- ree_quad)=inlistNI * q 88!----- ree_oc l(3DNorl )E_PRECISIOE_PRECISIONFANTminnot, quad- !oc -tree tEv NTENTxma ----------- INTENTNmin-----r)=inlist wrote a OIN cbohild---s -----l(leav--) NU non-zero cel . 1Nb tEv ori cn a-ed GSboS--rs) 1N-1 LL ---re-rs noomrote a require----, tEv otcel ro._war---- q q ----------- INTENTNmax !--ncer)=inlist waxte a !--nce cboel .allowedNb twee -----. ts otree ----s a-r)=inlist soNT a!----- !--nce cboel q o,n -----lrs)belowS--rs)max, tEv ori SboS--rs) 1N-1 1Ndis----S--rs)cTE(mrspind, eithotcel ro._war---- q q ----------- INTENTNmax---cel _subBtrst waxte a --l --------.F qdivi oppi-----------p!is nsoNT a!-o,n -----lSE. Soel qbelowS--rs)value GSboS--rs) 1N-1uments (r)=iodoe si--ose the Frmit tEv NTENTxma --------- l ! lpdn---r)=inlist ts ot:), POIN cb------tEv NTENTxma --------- l ! lpdx)ly t cel R( lhbx(nbx+(, 0 up Pus--SION eeeeITENTxmaxt(r)=inlistMINT---, dn q q INTEGEchldr)=inlist Paralllco ohildrenlNU el mo---.witzerlanTYPEETURN TRESE=inlisNTENTxma ----------- INTENTNmax [Tdas_subBtrst waxte a OIN cb [Tdas=iodcn a-e. tree ----s a-nsoNT a!uments (r)=inisqrsirel med Gts oroe sb--Prsim-u he a-n [Tda-1 GSboS-ol<= 0 tEv ori f !unFrmithe [Tdas.N: rsi-------sNorl q ----nt- tce t tEv ori N TRESineral P,doe sitce t N #ECOMPFoundspind, eithq q q !---------INT---, dn q q INTEG---cel _subBtrst Cel q o,n -----l1..n---.w eeeeITENTxmaxt(r)=inlistMINT---, dn q q INTEG !ofo)=inlistNI Ira NU Genep !ofosb--PNU el mo---. q 88!-----PM). !--e LL ny t cel p !ofos(N.e. roe sb--OINTEnpbxt(r)=i xt(r)=inlistMINT---, dn q q INTEGEbpluments (r)=inePOIN cb---------- [Tda. L[Tda-1--sNts oroe sb--.w eeeeITENTxmaxt(r)=inlistMINT---, dn q q INTEGb [Tdafterro.(r)=iree [Tda-NU el mo---. 1..n---. L[Tda-1--sNts oroe sb--.w eeeeITENTxmaxt(r)=inlistM------, dn q q IENTN6arallhly tc!fnfo) #endif !!!p (1---G. Sela!p (2---G----N oi BOX llhly tc!fn----)- tcel moiree ---. Tnisqrsiorl q ----nt- G-------SIONNp > 0. Onlyf oi !- PuGene m anproSIONo l ILIconsiden T, tEv ori En3 oeN HANTnon-leacb------ ILIorl q rue--fq`prune-----=FALSE`w eeeeITENTxmaxt(r)=inlistMINT---, dn q q INTEG---- tEv ori Po) #ens to --------N oi !BOX xp)- tcel moiree ---. B--Prb tEv ori ce---I oi !Be Rcel 1,ib):Rcel 2,ib)))r)=inlist tsisqrsiorl q ----nt- GNNp > 0. Onlyf oi !- PuGene m allhly tc!fnfroSIONo l ILIconsiden T, En3 oeN HANTnon-leacb------ ILllhly tc!fnorl q rue--fq`prune-----=FALSE`w eeeeITENTxmaxt(r)=inlistM------, dn q q IENTNohild)=inlistNI Iraice q o,n ohildrenlNU a ---. E_PRECISIOE_PRECISION1l -rpa TNohild ID +uments e!ON2ndEG--- ID tEv NTENTxma --------- l ! lpdn [Tdafterro.(r)=TnePOIN cb [Tdas.NL[Tda-1--sNts oroe sb--.wisidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = i__,iNDIF q q ENq i q q !--------------------------------------------------------------------------- q q ! Arguments q q q !-------- q q im)iiiiiiiiiiiiNTNmins,maxs,mTHEdx,mTHEdxinvw eeeeITENTxmaxt(r)=inlist q q im)iiiiiiiiiiiiNTNinis(,ly t ITENTxmaxt(r)=inlist2* q q im)iiiiiiiiiiNTNghel (,ly t ITENTxmaxt(r)=inlist2o._war---- q q RETEG-dcly t ITENTxmaxt(r)=inlist1o._war---- q q RETEG-dc1ly t ITENTxmaxt(r)=inlist3o._war---- q q RETEGcu-q q CALL q q q !--------3o._war---- q q RETEGcu--os----ler)=inlisq q q !---------INT---, dn q q IENTNo-os-cel cly t ITENTxmaxt(r)=inlist-INT---, dn q q IENTNicu--------q q q !---------------, dn q q IENTNminc,maxcwitzerlanTYPEETURN #ECOMPw=inlisq q q !---------INT---, dn q q IENTN---cel _subBtrITENTxmaxt(r)=inlistMINT---, dn q q INTEGb [Tdafterro.INar---- qqqqqqqqqqqqqqqqqqqqqqqq q RETEGn [Tdafisidgle #elifINar---- qqqqqqqqqqqqqqqqqqqqqqqq q RETEGn---list,nadd,k2,ityper)=inliINar---- qqqqqqqqqqqqqqqqqqqqqqqq q RETEGn---q IFn [Tdaodule_subBtrotcel ro._war---- q q REAL(MKqq q RETEGt0,lmyeps,r0,r1,maxcel _subBtrLOGICAL REAL(MKqq q RETEGup,nofixed,sutedeweq -r)=inliLOGICAL REAL(MKqq q RETEGlcon3inuer)=inliINar---- qqqqqqqqqqqqqqqqqqqqqqqq q RETEGi,j,k,l & exo ncut,nbpdr)=inliINar---- qqqqqqqqqqqqqqqqqqqqqqqq q RETEGi---,n---old,n----r)=inliINar---- qqqqqqqqqqqqqqqqqqqqqqqq q RETEGi exo---list,lctre #elifINar---- qqqqqqqqqqqqqqqqqqqqqqqq q RETEGn---listodule_subBtrINar---- qqqqqqqqqqqqqqqqqqqqqqqq q RETEGi fo2,mx [T,bpc,i-----,ie ! Paralle uRAC, P(LEN=:: Mchic) REAL(MKqq q RETEGmTHgm pp MPI-------INar---- qqqqqqqqqqqqqqqqqqqqqqqq q RETEGMPTYPEwisidgle #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = i__,iNDIF q q ENq q q !--------------------------------------------------------------------- q q ! Arguments e #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = i__,iNDIF q q ENq d q q !- e #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = i__,iNDIF q q EN-------------------ireeoduspeethre ppm_module_erro. USE ppm_module_arlmyepsER :: MmyepssD RETURN #if __KIND == __SINGLlmyepsER :: Mmyepsdwisidgle #eliflcon3inueER .TRUE tEv itypeER treetyperitzerlanTYPEETURN TRESE=inlismx [TER max [Tdas__SI!--------mx [TER -1E_sidglem------------------------------------------------------------------------------------ q q C i------a !------------------------------------------------------------------------- q q ! Check argumenti q q !-------->0 Returning.',----- CALL su CBOX Returning.'i2d_m q E CALL Ec_wr em------------------------------------------------------------------------------------ q q C iwnt yK = cb----------Nis gi dim------------------------------------------------------------------------------------ q SE. _---------ER .FALSE.---- q SE. _ THENNNNNNR .FALSE.---- q Btot_wri----->0SE. _---------ER .TRUE tEv BtotSIZE(Nm,u inGE. q 88 im)i.xmax(2t.OR.l_3enti q q imri----2GE.xmax(2t.OR.l_3x3',enti4 mu ----1G.AND.4 m m----1G.AND.4 m3m----1G) REAL( info =ppm_moduuSE. _ THENR .TRUE tEv ALL ELSEx(2t.OR.l_3x3',enti4 mu ----1G.AND.4 m m----1G)uSE. _ THENR .TRUE tEv ALL E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIF vert to ----ABILIeffic iall(speci zed) ----osi INTqtreesNwhen ------------ossikind---------PC: Dis----d it:doe sy llye----atikin ye , tEv o Ne T. 1Ngu sh---Grpa lists etc.., tEv o------------------------------------------------------------ q q ! Arguments nofixedNR .TRUE tEv ----=1, q q imo ! Chem_eentifixedtioGEnofixedNR .FALSE.---- q ------xxxxxxsutedeweq -ER .TRUE tEv Btotyeq --1,u inrnin1.0_ ro.sutedeweq -ER .FALSE.---- q Btotyeq --2,u inrnin0.0_ ro.sutedeweq -ER .FALSE.---- q Btotyeq --3,u inrnin0.0_ ro.sutedeweq -ER .FALSE.---- q Btotyeq --1,2 inrnin0.0_ ro.sutedeweq -ER .FALSE.---- q Btotyeq --2,2 inrnin0.0_ ro.sutedeweq -ER .FALSE.---- q Btotyeq --3,2 inrnin1.0_ ro.sutedeweq -ER .FALSE.- Ev o enti4itypeE.EQ. q 88!----- ree_quad inAND. (.NOT.SE. _ THE inAND. ( in!fo =p(SE. _--------- inAND. (.NOT.prune----- inAND. (nofixed inAND. in!fo =p(sutedeweq - inAND. ( q q imriEQ. 2oGE.xmax(2t.O! q Btot_KIS----pcel GE.xmax(2t.O! q stk,ldl,l ----_ ree-------min_dom,max_dom,MAX(min---sizemu , in!fo =ppppppppmin---sizem2oG,max !--nce,min_---,max_---,n---,D ==,pcel _(2t.O! q ELSEx(2t.O! q stk,ldl,l ----_ ree-------min_dom,max_dom,MAX(min---sizemu , in!fo =ppppppppmin---sizem2oG,max !--nce,min_---,max_---,n---,D == _(2t.O! q E &'xma! q i2d_m_000 &'xma! E &'xma! enti4itypeE.EQ. q 88!----- ree_oct inAND. (.NOT.SE. _ THE inAND. (( in!fo =p(SE. _--------- inAND. (.NOT.prune----- inAND. (nofixed inAND. in!fo =p(sutedeweq - inAND. ( q q imriEQ. 3oGE.xmax(2t.O! q Btot_KIS----pcel GE.xmax(2t.O! q stk,ldl,l ----_ ree-------min_dom,max_dom,MAX(min---sizemu , in!fo =ppppppppmin---sizem2o,min---sizem3mG,max !--nce,min_---,max_---, (( in!fo =ppppppppn---,D ==,pcel _(2t.O! q ELSEx(2t.O! q stk,ldl,l ----_ ree-------min_dom,max_dom,MAX(min---sizemu , in!fo =ppppppppmin---sizem2o,min---sizem3mG,max !--nce,min_---,max_---, (( in!fo =ppppppppn---,D == _(2t.O! q E &'xma! q i2d_m_000 &'xma! E 2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIFStBILIr))) THE spacing!-(NGLne Ted ------------------------------------------------------------------- q q ! Check argumentiSE. _ THE i.xmax(2t.OR.l_3mTHEdxt1o.= (max_domt1o.-Nmin_domt1o)/otcel mu -1, rox(2t.OR.l_3mTHEdxinvt1o.= 1.0_ r/mTHEdxt1ox(2t.OR.l_3mTHEdxt2o.= (max_domt2o.-Nmin_domt2o)/otcel m2 -1, rox(2t.OR.l_3mTHEdxinvt2o.= 1.0_ r/mTHEdxt2ox(2t.OR.l_3enti q q imri----2GE.xmax(2t.OR.l_3x3',mTHEdxt3o.= (max_domt3o.-Nmin_domt3o)/otcel m3 -1, rox(2t.OR.l_3.l_3mTHEdxinvt3o.= 1.0_ r/mTHEdxt3ox(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDIFStBILIr)))OIN cb------. Semu-------s qdivi ------------------------------------------------------------------- q q ! Check argumentiitypeE.EQ. q 88!----- ree_binGE.xmax(2t.OR.l_3nbpd.= 2x(2t.OR.l_3ncu-== 1x(2t.OR.l_3enti q q !-------->0 Returning.',,,,,,,stk,ldl,lITE(mi q qpROU,-----ireeod'Cn a-IMP binnot,tree.',D == _(2t.OR.l_3E &'xmaxELSEentiitypeE.EQ. q 88!----- ree_quad i.xmax(2t.OR.l_3nbpd.= 4x(2t.OR.l_3ncu-== 2x(2t.OR.l_3enti q q !-------->0 Returning.',,,,,,,stk,ldl,lITE(mi q qpROU,-----ireeod'Cn a-IMP quad-tree.',D == _(2t.OR.l_3E &'xmaxELSEentiitypeE.EQ. q 88!----- ree_oct i.xmax(2t.OR.l_3nbpd.= 8x(2t.OR.l_3ncu-== 3x(2t.OR.l_3enti q q !-------->0 Returning.',,,,,,,stk,ldl,lITE(mi q qpROU,-----ireeod'Cn a-IMP oc -tree',D == _(2t.OR.l_3E &'xmaxELSE_(2t.OR.l_3o))) q 88modul_module_dspa ,,,,stk,ldl,lmodul(dl,lmod_a !-----,-----ireeod ,,,, info =ppm_m'unknownetree ypeEspecif in !',__LINE__,D == _(2t.OR.l_3i2d_m q E CALL Ec_wrem------------------------------------------------------------------------------------ q q Cleaicle uin fo) #en-------------------------------------------------------------------- q q ! Check argumNULLIFY( ree_cel )k argumNULLIFY( ree_c---)em------------------------------------------------------------------------------------ q q Adule---Gtree ---Nstructur-- tEv o------------------------------------------------------------ q q ! Arguments & q 88!-----odule_fi--------pat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENDI Gu--s tree -ize ba T. Puass---d uni==rmind 3 of t ------------------------------------------------------------------- q q ! Check argumn---t.OR.l_3= 1x(2t.ORn [TdaOR.l_3= 1x(2t.ORBtot_wri----->0.xmax(2t.OR.l_3entimax---cel ri-----.0_ ro. Returning.',,,,,,,)=inePOIN cb [Tdas=ne TedPPM). quni==rmi--------urning.',,,,,,,)=nd 3 of t ---------------n [Tdaodule3= CEILING(LOG(otcel p, ro/max---cel )/ L( info =ppm_moduuLOG(otcelnbpd, ro))(#NGLE_TYPEETURRN TRESE=inlisssssELSEentimax [Tdas------->0 Returning.',,,,,,,!uass---qwnehitNmax [Tdas_subBtr--------n [Tdaodule3= max [Tdas__Sidgle #elifssssELSEurning.',,,,,,,)=nefaultuass--pt ---------------n [Tdaodule3= 3urning.',,,,,,,)=n [Tdaodule3= MAX(NI---LOG(otcel p, ro)/LOG(2.0_ ro),3ox(2t.OR.l_3.l_3! JHW 20061108x(2t.OR.l_3E &'xmaxELSE_(2t.OR.l_3! Ass---q3b [Tdas=LL ny ---------E ILI ----ntx(2t.OR.l_3n [Tdaodule3= 3urning.',,,)=n [Tdaodule3= MAX(NI---LOG(otcel p, ro)/LOG(2.0_ ro),3ox(2t.OR.l_3! JHW 20061108x(2t.ORE &'xmax)=inePOIN cb------(oe sorl qleacs)--sNts ogeometric se oeN s-- OR.l_3n [Tdaodule3= n [Tdaodule3+ 1max)=weyst ! m-u IMP [Tdas=at 1x(2t.ORBtotn [Tdaodule3.L---1o.n [Tdaodule3= 1k argumn---odule3_3= (1-lnbpd**n [Tdaoduleo)/(1-nbpd)x(2t.ORBtotn---odule3.L---1o.n---odule3= 1x(2t.ORBtot q q !-------->0 RetuitzerlanTYPEETURN TRESE=inlisssssWRITE(mTHg,'(A,I3,A,I6,A)')e'Adule--IMP 'Fn [Tdaodule, (( info =ppm_m' [Tdas=a Se',n---q IF' -----.'__SI!--------ssssWRITE(mTHg,'(A,I3,A)')e'Adule--IMP 'Fn---q IF' -----.'__Sidgle #elifssssstk,ldl,lITE(mi q qpROU,-----ireeodmTHg,D == _(2t.ORE itzerlanTYPEETURN TRESE=inlisstk,ldl,l ree_odule( & n---q IFnbpd,n [Tdaodule,min_---,max_---, (( info =p---cel !ofo nchldNchildNb [Tda,n-plpeethre_SINGLE_TYPEETURN #ECOMPw=inlisstk,ldl,l ree_odule( & n---q IFnbpd,min_---,max_---, (( info =p---cel nchldNb [Tda,D ==re_SOUBLE_PRECI CBOX Returninq 88!--------SION.'i2d_m q E m------------------------------------------------------------------------------------ q q Adule---Gmemoot,HANTm_ercu--------pat', & box i dex e a ParalllPBOX Returning.',__LINE__,iNDIF q q ENldct1o.= q q imo ! Chldct2o.= 2**ncu--------stk,ldl,lodule(minc,ldc & == _(2t.OR CBOX Reurni->0 Returning.',,,o))) q 88modul_f---le #elifssssstk,ldl,lmodul(dl,lmod_a IF'----ireeod ,,,, inf info =ppm_m'lower -----------lNU newb------MINC',__LINE__,D == _(2t.OR.l_3i2d_m q E CALL Ec_wr -------stk,ldl,lodule(maxc,ldc & == _(2t.OR CBOX Reurni->0 Returning.',,,o))) q 88modul_f---le #elifssssstk,ldl,lmodul(dl,lmod_a IF'----ireeod ,,,, inf info =ppm_m'upper -----------lNU newb------MAXC',__LINE__,D == _(2t.OR.l_3i2d_m q E CALL Ec_wr -m------------------------------------------------------------------------------------ q q Adule---G m an ---Nstructur-- tEv o------------------------------------------------------------ q q ! Arguments n---list3= 1k argumn---listodule3= 10*nbpd**tn [Tdaodule-1o._w! list cb [av--. gu--s.., tEv od a e---G10e Pas-ABILIspace HANT [av--... JHW 20061108x(2t.ORldct1o.= n---listodule_subBtrstk,ldl,lodule(---list,ldc & == _(2t.OR CBOX Reurni->0 Returning.',,,o))) q 88modul_f---le #elifssssstk,ldl,lmodul(dl,lmod_a IF'----ireeod ,,,, inf info =ppm_m'list cbdivi kin ------BOXLIST',__LINE__,D == _(2t.OR.l_3i2d_m q E CALL Ec_wr ----------listt1o.= 1k argumentiSE. _ THE i.xmax(2t.OR.l_3ldct1o.= q q imo ! Ch.l_3ldct2o.= n-pdr)=inlibBtrstk,ldl,lodule(Nmc,ldc & == _(2t.ORt.OR CBOX Reurni->0 Returning.',,,',,,o))) q 88modul_f---le #elifssssssssstk,ldl,lmodul(dl,lmod_a IF'----ireeod ,,,, inf info =ppm_mpm_m'list cbdivi kin ------BOXLIST',__LINE__,D == _(2t.OR.l_3.l_3i2d_m q E CALL ALL Ec_wr -------Ec_wr -------entiSE. _--------- i.xmax(2t.OR.l_3ldct1o.= 2**ncu--------bBtrstk,ldl,lodule(c---,-dc & == _(2t.ORt.OR CBOX Returning.' Returning.',,,',,,o))) q 88modul_f---le #elifssssssssstk,ldl,lmodul(dl,lmod_a IF'----ireeod ,,f info =ppm_mpm_m'tempo not,m_erfo) #en- CBOX',__LINE__,D == _(2t.OR.l_3.l_3i2d_m q E CALL ALL Ec_wr-------bBtrstk,ldl,lodule(npb-,-dc & == _(2t.ORt.OR CBOX Returning.' Returning.',,,',,,o))) q 88modul_f---le #elifssssssssstk,ldl,lmodul(dl,lmod_a IF'----ireeod ,,f info =ppm_mpm_m'OIN cb---------E------- NPBX',__LINE__,D == _(2t.OR.l_3.l_3i2d_m q E CALL ALL Ec_wr-------Ec_wr -m------------------------------------------------------------------------------------ q q Tenedoma(r itself--sNts oroe sb--. GetTGenetree -----ed!m------------------------------------------------------------------------------------ q enti q q imri----2GE.xmax(2t.OR.l_3min_----1,u i=Nmin_domt1ox(2t.OR.l_3min_----2,u i=Nmin_domt2ox(2t.OR.l_3min_----3,u i=Nmin_domt3ox(2t.OR.l_3max_----1,u i=Nmax_domt1ox(2t.OR.l_3max_----2,u i=Nmax_domt2ox(2t.OR.l_3max_----3,u i=Nmax_domt3 _(2t.ORt.OR CBOSE. _ THE i.xmax(2t.OR.l_33333Nm_----1,u i=NNmt1ox(2t.OR.l_33333Nm_----2,u i=NNmt2ox(2t.OR.l_33333Nm_----3,u i=NNmt3ox(2t.OR.l_3E &'xmaxELSE_(2t.OR.l_3min_----1,u i=Nmin_domt1ox(2t.OR.l_3min_----2,u i=Nmin_domt2ox(2t.OR.l_3max_----1,u i=Nmax_domt1ox(2t.OR.l_3max_----2,u i=Nmax_domt2ox(2t.OR.l_3 CBOSE. _ THE i.xmax(2t.OR.l_33333Nm_----1,u i=NNmt1ox(2t.OR.l_33333Nm_----2,u i=NNmt2ox(2t.OR.l_3E &'xmaxEc_wri&'xmaxn----'xmax= 1k argumnchld'xmax= 0 tEv b [Tdat1o.= 1kitzerlanTYPEETURN TRESE=inlis !ofot1o.= q q!-----PM). !--eE=inlisohild xmax= q q!-----PM). !--eE=inlisn-plt1o._w= 1kisidglem------------------------------------------------------------------------------------ q q RROU q !-------!- tce t roe sb--m------------------------------------------------------------------------------------ q entiSE. _--------- i.xmax(2t.OR.l_3enti q q imriEQ. 2oi.xmax(2t.OR.l_33333inis(,t1o._wa= 1x(2t.OR.l_33333inis(,t2o._wa= 1x(2t.OR.l_33333ghel (,(1:4)x= 0 tEv etk,ldl,lND SUpROU2d-------min_dom,max_dom,inis(,,ghel (,c_wrem----------------== n1x((333Nm_----2,u cb [T q q ! ---1o.n [Tdaodule3= 1k argumn---odule3_3= (1-lnbpd**n lmod_a ule3= 1k argumn---odule3_3=max= = 1x(2t.OR.l_33333ghel (,(1:4)x= 0 tEv3 etk,ldl,lND SUpROU2d-------min_dom,max_dom,inis(,,ghel (,c_wrem----------------== n1x((333.l_3.l_3i2d_m qldNb [Tda,D ==re_SOUBLE_PRECI CBOX Returninnis(,,ghel (,c_w orinTYPE--------2t.OR.l_33333N (,c_w o2inTYPE--------2t.OR.1-2,u i=NNmt2oOR.l_3i2d_m q E CALL Ec_wr -m----------------------------------------------------------------------- q work------------_TYPEETURn_---,m. Doee ---o-r)=iutallh---------- INTEG loopy tc!fn------s------ ori Ifl =p----n-zerosiden T, En3 oeN H3N eseronoomu---- q,iNDInfo q 1Ngu sh---Grpa lists etc.., tEv o------------------------------------------------------------ q q ! Arguments & [av--... J q q imo _3ldct1o.= 2**nc-INT_subBtrstk,ldl,lodule(---list, & == _(2t.ORt.OR CBCBOX Reurni->0 Returning.',,,o))) q 88modul_f---le #elifssssstk,ldl,lmodul(dd_a IF'----ireebly t COST -----------lNU newb------MAXC',__LINE__,D == _(2---------------ireeoduspeethre ppm_module__3ldct1o.= 2**npcst_s_subBtrstk,ldl,las=a Se',n--_3ldct1o.= 2**npcst_d_subBtrstk,ldl,las---cel nchldNb [Tda,D == == _(2t.ORt.OR CBCBOX Reurni->0 Returning.',,,o))) q 88modul_f---le #elifssssstk,ldl,lmodul(dd_a IF'----iree--------Nmax---e3= PCOST-----------lNU newb------MAXC',__LINE__,D == _(2----) REAL(MKq--------------ireeoduspeethre ppm_module__3ldct1o.= 2**npcsum_s_subBtrstk,ldl,las=a Se',n--_3ldct1o.= 2**npcsum_d_subBtrstk,ldl,las---cel nchldNb [Tda,D == == _(2t.ORt.OR CBCBOX Reurni->0 Returning.',,,o))) q 88modul_f---le #elifssssstk,ldl,lmodul(dd_a IF'----iree--------Nmax--sums PCSUM-----------lNU newb------MAXC',__LINE__,D == _(2--Tdas__SI!--------mx [TER -1E_sidglem-------------------------------------------------------------- lhbumeNp, specq RROU q !-------!- tce t roe sb--m--------------------------------------------------------------mriEQ. 3oGE.xmax(2t.O! q B,o))) q 88moEETURn_---,m(--1,u ,-) (1l -rpa ree_odule( & n---d_a IF'----ire1---------- (,c_wrem-n_---,ma, (( in!fo =p33Nm_----2,u c q 88moEETURn_---,m(--1,u ,-) (1l -rpa ree_odule( & n---d_a IF'----ire1---------- (,c_wrem-n_---,ma, (( q qpROU,-----l nchldNb [Tda,D ==re_SOUBLE_PRECI CBOX Returninnis(,,SI!--------mx [TER -1E_sidglem-------------------------------------------------------------GrT a!-e 10*nbNE__,iNpror)))OiNDIas )x= 0 tEv hacel 2,a-------d----------inbNE_Npcel _2q !-------!- tce t roe sb--m------------------------------------------------------------------------------------ q entiSE------- q q ! ArgumegrT -----entiSE. _--------- i.x.l_3.l_3i2d_m q E CALL ALL Ec---------)=inlibBtrstk,ldl,lodule(Nmc,ldc & == _(2t.ORt.OR CBOX Reurni->0 Returning.',,,',,,o))) q 88modul_f---le #elifssssssssstk,ldl,lmodul(dl,lmod_a IF'----ireeod ,--------N10*nbheanePOnfo =ppm_LHBX_CUist cbdivi kin ------BOXLIST',__LINE__,D == _(2t.OR.l_3.l_3i2d_m q E SI!--------mx [TER -1E_sidglem--------------------------------------------------------------------ori cn a-edanye -q q -l(lce max)sssSI!--------mx [TER -1E_sidglem---------------------------------------------------------- q 88moEETURe (etypeTHE R.l_3-n_---,maqqqqqqqqqqqqqqqqqlmod_a IF'---nchldNcn-----,prune-----,min---qqqqqpsER :: Mk,ldl,lodule(---list, & re_SOUBLE_PRECI CBOX Returninnis(,,2d_m_fo =ppsER :: M. in!fo =n---odule3= ax(2t.O! q B,o))) q 88mo.'__Sidgle #elifssssstk,ldl,lmod_a IF'----ire'Noe -q q -l(lce . ExiRITE-----ireeod'Cn = _(2t.OR.l_3i2d_m q E CALL Ec_wrem------------------------------------------------------------------------nts (r)=inisf infoSI!--------mx [TER -1E_sidglem---------------------------------------------------------- q 88moEETURee_subBt(ee_odule( & n-1 infmi Rl,lmod_a IF'---n_---,maxee_k,ldl,lodule(---list, & ==X Returninnis(,,2d_mxee_----(1-nb i.x_wr -------entiSE.sER :: Mmyeprnin0.0_ ro.ss(,,2d_mOR.l_3ncu-== 3x(2t.OR.l_3enti q q !-------->0 Returning.',,,,,,,stk,ldl,lmod_a IF'----ire-ire':: MK =--------- orif info. Don,-----ireeod'Cn a-IMP oc -tree',Nmt2oOR.l_3i2d_m q E CALL Ec_wr -m---------------------------------------------------------------------------------i.x.ist wrmine, ((pie.g. e 1Ngu sh---Grpa lists etc.., tEv o---------------------------------------------------------- q q ! Arguments & [av--... = q q imo ! Chldct2o.= i----)=inlibBtrstk,ldl,lodldNb [Tda,D == == _(2t.ORt.OR CBCBOX Reurni->0 Returning.',,,o))) q 88modul_f---le #elifssssstk,ldl,lmodul(dd_a IF'----iree,,, ini.x.ist wrmineICUist cbdivi kin ------BOXLIXC',__LINE__,D == _(2-.OR CBC2t.OR.-PM). !--eE=inlisohild xma_3ldct1o.= 2**nc----)=inlibBtrstk,ldl,lodldNb [Tda,D == == _(2t.ORt.OR CBCBOX Reurni->0 Returning.',,,o))) q 88modul_f---le #elifssssstk,ldl,lmodul(dd_a IF'----iree,,, ini.x.pie.g. e CPOSst cbdivi kin ------BOXLIXC',__LINE__,D == _(2-.OR CBc---R maHUGEnc---dxt1ox(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.IN de [Tdal l _subBtr1t---Gmemoot,HANTm_ercu--------pat', & box i dex e a ParalllPBOX Returnictr 1x(2t.OR.lDO WHILE (psER :: M.-----entiSE.str 1x.str l_3.l_3i2d ---------- IF' -----.'_a,i4turningpeTHE'qqqqqq----------OPEN(10,FILE=----)q----------ments n ! x-yd)aliq------------ IF' -10,'(2eReturnin_3E &'i ree_odul oi)q------------ IF' -10,'(2eReturnin_2,u i=Nmii ree_odul oi)q------------ IF' -10,'(2eReturnin_2,u i=Nmii re1,u i=Nmai)q------------ IF' -10,'(2eReturnin_3E &'i re1,u i=Nmai)q------------ IF' -10,'(2eReturnin_3E &'i ree_odul oi)q------------ IF' -10,'(---a rniq----------tioGEn----------CLOS -101ox(2t.ORtr1t---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t-----ors) qqqqdisprime)!q -lr rl---1,ib):Rcei T t g_,iN m--- x(2t.ORtr1t---mINTENTNmax-.TURN T,umese,,f info , tEv orreeod ,,fx(2t.ORtr1t---enethree pelied eshes T.cel -rs tEv ori gi dis, ((f2t.OR.l_3o)))--------(oe si oppie.g. e --- q,ub-----,-.x(2t.ORtr1t---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1tKqq q R maHUGEnKqq q )t.ORt.OR CBCBqqqqqqqqqqR max .ORt.OR CBCBqqqR max .ORt.OR CBments n qqqql_3enti q q !jR mi2d_m q i ------BOXLIST',r0R mi2d--,m(j ------BOXLIST',ldNbr0R== 3xKqq q )t.OR.l_3enti q q !tr1tKqq q R mr(2t.OR.l_33333ghR CBCBqqqqqqqqqqR mi2t.OR.l_33333ghR CBCBqqqR mj2t.OR.l_33333gh3.l_3.l_3i2d_m qtioGEnofixedST',ldNb0_ r/mTHEdxt2ox(2t.OR.l_3enti q q iminsq q!----_3E &'iBqqq-Nmin_domt3o)/otcinsq2q!----_3E 2'iBqqq-Nmin_domt3o)/otcinsq3q!----_3E 3'iBqqq-Nmin_domt3o)/otcaxsq q!----_2,u i=NmiiBqqq-Nmin_domt3o)/otcaxsq2q!----_2,u i=N2'iBqqq-Nmin_domt3o)/otcaxsq3q!----_2,u i=N3'iBqqq-Nmin_domt3o)/ot-2,u i=Nmax_domt2ox(2t.OR.l_3 CBOSSSSS q q ! -=SE. _ THE iBqqq-Nmin_domt3o)/otSSSS q q 2 -=SE. _ TH2'iBqqq-Nmin_domt3o)/otSSSS q q 3 -=SE. _ TH3'iBqqq-Nmin_domt3o)/ot3.l_3.l_3i2d_m qtNm_----2,u cb [Tminsq q!----_3E &'iBqqq-Nmin_domt3o)/otcinsq2q!----_3E 2'iBqqq-Nmin_domt3o)/otcaxsq q!----_2,u i=NmiiBqqq-Nmin_domt3o)/otcaxsq2q!----_2,u i=N2'iBqqq-Nmin_domt3o)/ot-2,u i=Nmax_domt2ox(2t.OR.l_3 CBOSSSSS q q ! -=SE. _ THE iBqqq-Nmin_domt3o)/otSSSS q q 2 -=SE. _ TH2'iBqqq-Nmin_domt3o)/ot3.l_3.l_3i2d_m qtiot2oOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---D ----1el(list .x.ist wrmi(s)OR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t----mriEQ. 3oGE.xmax(2t. Nmin_domt3o)/ot q 88moEETURinlist -) (1l -rpa ree_odule( & n--d_a IF'----ire-ireeeeeeeeeeeeeeeeeeqqqqqq q R infmii-------- in!fo =p3_m qtNm_ Nmin_domt3o)/ot q 88moEETURinlist -) (1l -rpa ree_odule( & n--d_a IF'----ire-ireeeeeeeeeeeeeeeeeeqqqqqq q R infmii----------== n1x((333.l_3.l_3i2d_m qldNb [Tda,D ==re_SOUBLE_PRECI CBOX ReturninOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---D ----1el(list .x.pie.g. e(s)OR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t----mriEQ. 3oGE.xmax(2t. Nmin_domt3o)/ot q 88moEETURinl---d -) (1l -rp2 ree_odule( & n--d_a IF'----ire-ireeeeeeeeeeeeeeeeeeqqqqqq q infmii----c-------- in!fo =p3_m qtNm_ Nmin_domt3o)/ot q 88moEETURinl---d -) (1l -rp2 ree_odule( & n--d_a IF'----ire-ireeeeeeeeeeeeeeeeeeqqqqqq q infmii----c----------== n1x((333.l_3.l_3i2d_m qldNb [Tda,D ==re_SOUBLE_PRECI CBOX ReturninOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---A ! P.pie.g. e --- oppind)align NDIFStBILOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---- i=Nmax_domt2ox(2t.OR.l_3 CBOSments n i.xmax(2t.OR.lllllllllj----i--- i ------BOXLIST',,,,,r0R mnc---di)-cinsqj))*cel m3 -1j ------BOXLIST',,,,,k----ning.r0 ------BOXLIST',,,,,r1---)=n [kaodu*cel m1j ------BOXLIST',,,,,c---di)---_3Esqj) l_r 1k argumn---oduuuuuupG.AND.4 m m----1G)ut.ORtr1t----(r1-r0 -(1-nb2t.OR.l_upG.ANrnin0.0_ ro.ss(,,,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i dex e a 0_ ro.ss(,,,,,,,,,,----------or infmss---qrenfo tILOR.l_3iiiii,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i dex e a 0_ ro.ss(,,,,,,,,,,----(nc---di)-cinsqj))-(1-nbin!fo =ppppj))-(OR inAND. (.NF'----ire-ireeeee((caxsqj)-c---di))-(1-nbin!fo =ppppj))omt2ox(2t.OR.l_3 CBOSSSSS,,,,----upomt2ox(2t.OR.l_3 CBOSSSSS,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,- alllwiNDIv,,)=p, ----deod nT -----entiSECBOSSSSS,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,kG.AkOR.1-2,u i=====================c---di)---_3Esqj) l_()=n [kaodu*cel m1j ------BOXLIST',,,,,,,,,tNm_----2,u cb [TSSSS,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,- alllwiNDIv,,)deod, ----up-----entiSECBOSSSSS,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,kG.AkO+.1-2,u i=====================c---di)---_3Esqj) l_()=n [kaodu*cel m1j ------BOXLIST',,,,,,,,,t.l_3.l_3i2d_m qSSSS,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i x i (2t.OR.l_3 CBOSSSSS,,,,----------or infmss---qrenfo tIL nT -----entiSECBOSSSSS,,,,---Gmemoot,HANTm_ercu--------pat', & box i x i (2t.OR.l_3 CBOSSSSS,,,,----(nc---di)-cinsqj))-(1-nbin!fo =ppppj))-(OR inAND. (.NF'----ire-ireeeeeeeee((caxsqj)-c---di))-(1-nbin!fo =ppppj))omt2ox(2t.OR.l_3 CBOSSSSS,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,- aCan orisIN de e ---r)=ialongINTENTliigned tEv l_3 CBOSSSSS,,,,,,,,- aReDIv,-inbfroma!-e 10*nb inf info =ppm_manLOR.l_3iiiii,,,,,,,,,,,,,,,,- aloopy(2t.OR.l_3 CBOSSSSS,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,menl=qqqqqqqqqqqqq qqqq-1-2,u i=========================i2d_m q l)R mi2d_m q l+t.OR.l_33333Nm_--------------tioGEnofixedST',,,,,,,,,,,,,,,,,--------- q---------R.1-2,u i=====================X Ret10(2t.OR.l_33333ghR CB----tio_3.l_3i2d_m qSSSS,,,,tio_3.l_3i2d_m qSSSStioGEnofixedST',tiot2oOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---SIN de e ---r)=OR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t q 88moEETURn_---- qqqqqq------ q q q i----c----------------d_a IF'----ire---------)pd------------== n1x((33ldNb [Tda,D ==re_SOUBLE_PRECI CBOX ReturninOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---Upd----- q Nm- INTEG sIN-bnce cboi',,,,,sq -l(lce m cn af2t.OR.l_3o)))---TNohsIN-bnce eraly q ETURn_---,m,,,,,sqit. OR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---- i=Nmax_domt2ox(2t.OR.l_3 CBOSments n q q imo ! CCCCCCCCCNmc &'i ---ning.nKqq &'i -cin &'i )*cel m3 -11))+1-2,u i=============Nmc 2'i ---ning.nKqq 2'i -cin 2'i )*cel m3 -12))+1-2,u i=============ldNb0_ r/mTHEdxt2ox(2t.OR.l_3enti q q i========Nmc 3'i ---ning.nKqq 3'i -cin 3'i )*cel m3 -13))+1-2,u i=============tio_3.l_3i2d_m qSSSStioGEnofixedST',tiot2oOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---Upd----- q ist soNT Ifl =p)')e'Adx(2t.ORtr1t---tc!fn-NtbogrT smi2d--,m.x(2t.ORtr1t---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t----mriEQ. 3oGE.xmax(2t. Nmin_domt3o)/ot q 88moEETURn_---,m(--c -) (1l -rpa ree_---------AND. (.NF'----ire-irel,l r---------)pd------c-INT_---- in!fo =p3_m qtNm_Nmin_domt3o)/ot q 88moEETURn_---,m(--c -) (1l -rpa ree_---------AND. (.NF'----ire-irel,l r---------)pd------c-INT_---- in!fo =p3_m qtiot2oOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---AddT Ifl =p)')e'AbNE__,iNEETUOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---- i=Nm-----------qqq q =l (,c_w oriiBqqq-Nmin_domt3oqqqq 1x(2t.OR.l_333ments n q q imo ! CCCCC---Gmemoot,HANTm_ercu--------pat', & box i dex e a Par q imo ! CCCCC- alll(SE. _---- orset,el 2,adosiden Tnetree 1Norl qcon3a(rb-! CCCCC---Gmemoot,HANTm_ercu--------pat', & box i dex e a Par q imo ! CCCCC----((SE. _---- iABS(n_---,m(i))-(dxt2ETURN )-(OR inAND. (.NF'----ire-ire_fo =pl(SE. _----)omt2ox(2t.OR.l_3 CBOSSSSS----- q----O+.1-2,u i=============k====== 1k argiBqqq-O+.1-2,u i=============----k-(dxt2nchldNx(2t.OR.l_3enti q q i========k argum.AkR.l_3enti q q i========upG.AND.4 m m----1G)ut.ORtr1ttNm_----2,u cb [TSSSS,,,,upG.ANrnin0.0_ ro.ss(,,,,,,,,,,tiot2oOR.l_3iiiiiiiiiiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a 0_ ro.ss(,,,,,,,,,,---GrT a!-e 10*nn NDIFStBILOR.l_3iiiiiiiiiiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a 0_ ro.ss(,,,,,,,,,,------- q q ! ArgumegrT _3b [Trv .TRUE tEv itypeER treetyperrrrrrrrrrrrrn [Tdaod-(dxt2nboduleo)/(OR ik argum(dxt2nchldN---odumt2ox(2t.OR.l_3 CBOSSSSS,,,,--Tdaod(dxtnboduleo)d)x(2t.ORBt=x(2t.ORBt+ nAND. (.NF'----ire-ireeeeeeeee(= 1k argumn---1 ------BOXLIST',,,,,,,,,--Td (r)=idxtnchldN---odumnchldN---od=nchldN---od+1-2,u i=============rrrrn [TOR.l_3ncu-== 3x(2t.OR.l_3enti q q !!!!!!!!!!!!!rlanTYPEETURN TRESE=inlisssssReassssWRITE(NE_modul(dl,lmod_a IF'----------------ee_odule( & [Tdaodule, (( info =ppm_m' [Td_3enti q q !!!!!!!!!!!!!IF' -----.'__Sidgle #elifssssstk,ldl,lITE(mi q qpROUUUUUUUUUUUUUUUUUt.l_3.l_3i2d_m qSSSS,,,,,,,,itzerlanTYPEETURN TRESE=inlisstk,ldl,l ree_odule( & ul(dl,lmod_a IF'------------ee_odule( & n-b_---,max_---, (( info (dl,lmod_a IF'------------=p---cel !ofo nOUUUUUUUUUUUUUUUUUt.l_3.chldNchildNb [Tda,n-plpeethre_SSSSSSSSSSSSSn [Tdaod-(dxt2nboduleo)x(2t.OR.l_3enti q q i========kb2t.ORBtotnkb2t.ORBto+e(= 1k argumn---1 ------BOXLIST',,,,,,,,,--[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q !!!!!!!!!!!!!rlanTYPEETURN TRESEsssssReassssWRITE(NE_modul(dl,lmod_a IF'----------------e info =ppm_m' [Td_3enti q q !!!!!!!!!!!!!IF' -----.'__Sidgle #elifssssstk,ldl,lITE(mi q qpROUUUUUUUUUUUUUUUUUt.l_3.l_3i2d_m qSSSS,,,,,,,,itzerlanTYPEETURN TRESE=inlisstk,ldl,l ree_odule( & n-(dl,lmod_a IF'------------=_---,max_---, (( info OUUUUUUUUUUUUUUUUUt.l_3.e--IMP 'Fn---q ldNb [Tda,D ==re_SOUBLE_PRECI CBOX ReturninOR.l_3iiiiiiiiiiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a 0_ ro.ss(,,,,,,,,,,---.',__LINE__=p)')e'AOR.l_3iiiii,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i dex e a 0_ ro.ss(,,,,,,,,,,----0_ r/mTHEdxt2ox(2t.OR.l_3enti q q i========_3E &'nlisq!----_3E &'i R.l_3enti q q i========_3E 2'nlisq!----_3E 2'i R.l_3enti q q i========_3E 3'nlisq!----_3E 3'i R.l_3enti q q i========_2,u i=Nminlisq!----_qq &'i R.l_3enti q q i========_2,u i=N2inlisq!----_qq 2'i R.l_3enti q q i========_2,u i=N3'nlisq!----_qq 3'i R.l_3enti q q i========-2,u i=Nmax_domt2ox(2t.OR.l_3 CBOSSSSSSSSSSSSSE. _ THE nlisq=CNmc &'i (2t.OR.l_3 CBOSSSSSSSSSSSSSE. _ TH2 nlisq=CNmc 2'i R.l_3enti q q i========SSSSE. _ TH3 nlisq=CNmc 3'i R.l_3enti q q i========tio_3.l_3i2d_m qSSSS,,,,tNm_----2,u cb [TSSSS,,,,_3E &'nlisq!----_3E &'i R.l_3enti q q i========_3E 2'nlisq!----_3E 2'i R.l_3enti q q i========_2,u i=Nminlisq!----_qq &'i R.l_3enti q q i========_2,u i=N2inlisq!----_qq 2'i R.l_3enti q q i========-2,u i=Nmax_domt2ox(2t.OR.l_3 CBOSSSSSSSSSSSSSE. _ THE nlisq=CNmc &'i (2t.OR.l_3 CBOSSSSSSSSSSSSSE. _ TH2 nlisq=CNmc 2'i R.l_3enti q q i========tio_3.l_3i2d_m qSSSS,,,,tio_3.l_3i2d_m qSSSSSSSSn_---,m(nlisq!------------=rl qcc i ------BOXLIST',,,,,x_---(nlisq!------------ 1x(2t.OR.l_33333gh,,,,x_---(iBqqq-O----------- 1xx_---(iBqqq-O+.1-2,u i============= 1k argnlisq!------------ .AkRTRUE tEv itypeER treetyperrrrrrrrrrrrr info(1:l,l relisq!-------R.-PM). !--eE=inlisohild xmarrrrrrrrrrrr info(x_---(iBqqq-iiBqqq-otnkb2tild xmarrrrrrrrrrrritzerlanlisq!------------ .AiBqqq0_ ro.ss(,,,,,,,,,,----upomx= qk)---------- .A(2t.OR.l_33333gh,,,,x= qk)---------- ------- .Ax= qk)-+--PM). !----------- ------- ---Gmemoot,HANTm_ercu--------pat', & box i dex e a 0_ ro.ss(,,,,,,,,,,---Upd----- q --------N , tEv o OR.l_3iiiii,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i dex e a 0_ ro.ss(,,,,,,,,,,-------------------------- q entiSEEEEEEEEEEEEEbpc---------- ------- .A--------2i+1)---------2i R.l_3enti q q i======== RET--------- ------- .Aqqq q +bpc-1-2,u i================= (,c_wrem(qqq q : RETq=C)pd-----(--------2i : ul(dl,lmod_a IF'----------------------------------------(--------2i+1)-1 ------BOXLIST',,,,,,,,, (,c_w orinlisq!----.Aqqq q ------BOXLIST',,,,,,,,, (,c_w o2inlisq!----.AqenLOR.l_3iiiii,,,,,,,,,,,,qqq q .AqenL+1-2,u i=============tio_3.l_3i2d_m qSSSSSSSSqqqq =Sqqqq +.1-2,u i=========3.l_3.l_3i2d_m qtioGEnOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---Upd----- q 10*nb inf info =ppm_OR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t----qqqq E=inlisssssELSEentimax [Tdasemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1t---O 2,doee ---illwiNqqqIL n=p)')e'AbNE__,iNEETUOR.l_3iiiii[Tdasemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1ti---- q----O-Sqqqq +.1-2,u i========= q 88moEETURee_subBt(ee_odul(1:0_ r/mT,i---:nlisqodul((dl,lmod_a IF'----_2,u i=Nm:0_ r/mT,i---:nlisqol,l ree_b infmi Rl(dl,lmod_a IF'----n_---,m(i---:nlisqolee_k,ldl,lodule(t.ORtr1t----ist, & ==X Returninnis(,,,,,,,,,,k----0tr1t--l -rs tEv qqqIL ')e'AOR.l_3iiiii,,,,k2---0tr1t--l -rs tEv iden Tnetree 1Norl qcOR.l_3iiiii,,,,ments n qqq0_ ro.ss(,,,,,,,,,,----n_---,m(i---+i-1)-(dxt2ETURN )-k2---k2-+.1-2,u i=============----xee_-iER .TRU i.x_wr -------entiSEEEEEEEEEEEEE---Gmemoot,HANTm_ercu--------pat', & box i x i (2t.OR.l_3 CBOSSSSS,,,,---If ye peaddT IfmbNE__,iN10*nb inf info =ppm_OR.l_3iiiiiEEEEEEEEEEEE---Gmemoot,HANTm_ercu--------pat', & box i x i (2t.OR.l_3 CBOSSSSS,,,,----k-(i.xm(2t.OR.l_3enti q q !!!!!!!!!!!!!---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,- aFirs (r)=iNE_addTreplac-- ILIrtzerll_3enti q q !!!!!!!!!!!!!---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,j .AiBqqqb qqqql_3enti q q !!!!!!!!!tNm_----2,u cb [TSSSS,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,- aFollow(mi qnmss---qappenLIL a(r itse------_,iN10*n----2,u cb [TSSSS,,,,,,,,---Gmemoot,HANTm_ercu--------pat', & box i (2t.OR.l_3 CBOSSSSS,,,,,,,,--------- q---------+.1-2,u i=====================j- q--------q qpROUUUUUUUUUUUUUUUUUt.l_3.l_3i2d_m qSSSS,,,,,,,,n [Tdaod-----(dxt2nbod 200611082t.OR.l_3enti q q !!!!!!!!!!!!!--------- q q ! ArgumegrT _3b [Trv .2t.OR.l_3 CBOSSSSS,,,,,,,,--------.ORBtotnkb2t----.ORBto+e(= 1k argumn---1 ------BOXLIST',,,,,,,,,,,,, [av--... JHW 20061108x(2t.ORRRRRRRRRRRRRRRRRRRRRldct1o.= n---listodule_subBtrstk,ldl,lodule(3i2d_m qSSSS,,,,,,,,n [Tldc & == _(2t.ORt.OR CBOX !!!!!!!!!!!!!-Reurni->0 Returning.',,,',,,o))) qRRRRRRRRRRRRRRRRldct1o.= dul_f---le #elifssssstk,ldl,lmodu(dl,lmod_a IF'--------------------,,,, inf info =ppm_mpm_m'list,lmoddl,lmod_a IF'-------------------- cbdivi kin ------BOXLIST',,,,,,,,,,,,,,,,,X Returninnis(,,,,,,,,,,,,,,,,,,,,,,R.l_3.l_3i2d_,,,,,,,,,,,,,,,,R.l_3.l_3i2d_,,,,,,,,,,,,,,,,i2d_m q j-...i---+i-1l_3i2d_,,,,,,,,,,,,,,,,kG.AkO+.1-2,u i=============tio_3.l_3i2d_m qSSSStioGEnLSEentimax [Tdasemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1t---- lhr,__L,,, _(2t.Oreplac-,,st,,f ,st,couldl(lcmadUOR.l_3iiiii[Tdasemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1t----k-(i.xm(2t.OR.l_3enti q q !!!!!mentsqqqqqqqqqqqqq qqqq-1-2,u i=================b2d_m q i R mi2d_m q i+t.OR.l_33333Nm_------tioGEnofixedST',,,,,,,,,--------- q---------R.1-2,u i=========tiot2oOR.l_3iiiiiiiiisemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1t---Upd----- q l -rs tEv infol,__Liden Tnetree emptyrl qcOR.l_3iiiii,,,,semoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1tR.l_3E=tR.l_3ER.1O+.kl_3nbpd.= 4xR.l_3.ORtr1ttr1t-- qqq(dxt0nOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---D ----1el-orilf-----finishILOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(1003iiiii q 88moEETURe (etypeTHE R.l_3-n_---,maqqqqqqqqqqqqqqqqqlmod_a IF'---tr1tRchldNcn-----,prune-----,min---qqqqqpsER :: Mk,ldl,lodule(((((ldNb [Tda,D ==re_SOUBLE_PRECI CBOX ReturninOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---D3ncu-outp.xmax(2t.OR.l---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t----OR.l_3ncu-== 3x12t.OR.l_3enti q q !rlanTYPEETURN TR8sssss- lhlet--osskin ial'qqqqqq_3enti q q !IF' -----.'__Sidgle #elifssssstk,ldl,lITE(mi q qpROUUUUUUUUUrlanTYPEETURN TR8sssssTog.'-l -rs tEv iden :( iq_3enti q q !IF' -----.'__Sidgle #elifssssstk,ldl,lITE(mi q qpROUUUUUUUUUrlanTYPEETURN TR8sssssN -rs tEv furi cnnf info =ppm_:( AND. (.NF'----ire-irel,------q qpROUUUUUUUUUIF' -----.'__Sidgle #elifssssstk,ldl,lITE(mi q qpROUUUUUP oc -tree',Nmmennnnnnnnnnnnn! winfeE.sER :: M RTRUE tEv itypeER treetypersn-plt1o._w= 1kisidglem--------------------------------------------------------------eturn --------N10*n--- q q Cleaicle uin fo) #en-------------------------------------------------------------------- ! Check argumNULLree_ceheck aLL Ec_wr -------Ec_wr -------entiSE. ! =>, (,c_w -----entiSE.ee_ =>, (,c_wee_-tree',Nm(2--Tdas__SI!--------mx [TER -1E_sidglem-------------------------------------------------------------Flf--------SI!--------mx [TER -1E_sidglem-----------------------------------------------------urni CONTINUreetyper------- q q ! de61108x(2t.ORldct1o.= n---listodule_subBtrstk,ldl2ceheck aLL E,ldl2a,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----iree,,, inf info =ppm_mpm_m'list cbdivi kin ------BP oc -tree' E CALL ALL Ec_ee_ksubBtrstk,ldl2ceheck aLL E,ldl2a,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ireel -rs tEv f info di,,ss. e ocVst cbdivi kin ------BP oc -tree' E CALL ALL Eci----)=inlibBtrstk2ceheck aLL E,ldl2a,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ireei.x.ist wrmineICUist cbdivi kin ------BP oc -tree' E CALL ALL Ecc----)=inlibBtrstk2ceheck aLL E,ldl2a,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ireei.x.pie.g. e CPOSst cbdivi kin ------BP oc -tree' E CALL ALL Ec2**ncu--------stk,2ceheck aLL E,ldl2a,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----iree2**TENTNpie.g. e nfo =p----utpm_m'lower -----------lNU newb----P oc -tree' E CALL ALL Ec2Ec_wr -------stk,2ceheck aLL E,ldl2a,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----iree2INTENTNpie.g. e nfo =p----utpm_m'lower -----------lNU newb----P oc -tree' E CALL ALL Ecc-INT_subBtrstk,ldl2ceheck aLL E,ldl2a,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ireeist soNTn=p)')e'AbCOST -----------lNU newb----,-----l nchldNb i=Nmax_domt2ox(2t.OR.l_3 h.l_3ldct2o.= n-p n-subBtrstk,ldl2ceheck ack aLL E,ldl2a,D == == _(2t.ORt.OR CBR CBCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ire-ireel -rs tEv ori gi dispm_mpm_m'M_pm_m'tempo not,m_erfo) #en- CBR.l_3.l_3i2d_m q E CALL ALL Ec-pdr)=inlibBtrstk2ceheck ack aLL E,ldl2a,D == == _(2t.ORt.OR CBR CBCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ire-ireel -rs tEv ori gi disnfo =p----utpm_m'loNM -----------lNU newb------MAP oc -tree',Nmt2o--------------ireeoduspeethre ppm_module__3ldct1o.= 2**npcst_s_subBtrstk,ldl,las=a Se',n--_3ldct1o.= 2**npcst_d_subBtrstk,ldl,las---cel nchldNb [Tda,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----iree--------Nmax---e3= PCOST-----------lNU newb----= _(2----) REAL(MKq--------------ireeoduspeethre ppm_module__3ldct1o.= 2**npcsum_s_subBtrstk,ldl,las=a Se',n--_3ldct1o.= 2**npcsum_d_subBtrstk,ldl,las---cel nchldNb [Tda,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----iree--------Nmax--sums PCSUM-----------lNU newb----t.l_3.e--IMP 'Fn---LL Ec_wr -------Ec_wr -------entiSE E CALL ALL Ec-pd------)=inlibBtrstk2ceheck ack aLL E,ldl2a,D == == _(2t.ORt.OR CBR CBCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ire-iree--------N , tEvnfo =ppm_LPDX_CUist cbdivi kin ------BOXLIR.l_3.l_3i2d_m q E CALL ALL Ec---------)=inlibBtrstk2ceheck ack aLL E,ldl2a,D == == _(2t.ORt.OR CBR CBCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ire-iree-fo =ppm_to firs (--------N ,mpm_mLHBX_CUist cbdivi kin ------BOXLIP oc -tree',Nmt2o--------ldNb [Tda,n-plpeethre_SINGLE_TYPn---listomin--subBtrstk,ldl2ceheck aLL E,ldl2a,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ireeist soNTTNoh=ppm_mpm_COST-----------lNU newb----= _(2-thre_SINGLE_TYPn---lischldNcsubBtrstk,ldl2ceheck aLL E,ldl2a,D == == _(2t.ORt.OR CBCBOX Reurni->0 ReE_(2t.OR.l_3o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ireeilf--daoduleEv iden TBLEVEL-----------lNU newb----,-----l nchldNb i=Nm-------Ec_wr -------entiSE E CALL ALL Ec_wr-------bBtrstk,ldl,lodule(npb-,-dc & == _(2t.ORt.OR CBOX Returning.' ReturnE_(2t.OR.l_3o)))o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ire-ireel -rs tEv info =ppm_mpm_m'OIN cb---------E------- NPR.l_3.l_3i2d_m q E CALL ALL Eccu--------bBtrstk,ldl,lodule(c---,-dc & == _(2t.ORt.OR CBOX Returning.' ReturnE_(2t.OR.l_3o)))o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ire-ireereeod ,,f info =ppm_mpm_m'tempo not,m_erfo) #en- CBR.l_3.l_3i2d_m q E CALL ALL Ec (,c_w -)=inlibBtrstk2ceheck ack aLL E,ldl2a,D == == _(2t.ORt.OR CBR CBCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ire-iree,,, inf info =ppm_mpm_m'list cbdivi kin ------BOXLIR.l_3.l_3i2d_m q E CALL ALL Ec (,c_wrem--=inlibBtrstk2ceheck ack aLL E,ldl2a,D == == _(2t.ORt.OR CBR CBCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))) q 88modul_module_dspde61108sstk,ldl,lmodul(dd_a IF'----ire-iree,,, inf info =ppm_mpm_m'list cbdivi kin ------BOXLIR.l_3.l_3i2d,Nm(2--Tdas__SI!--------mx [TER -1E_sidglem--------------------------------------------------------------eturn SI!--------mx [TER -1E_sidglem-----------------------------------------------------8000) q .l_3top(stk,ldl,lmot0 kin ------BRETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLLL E-) (1l -rinT(i.x2t.OR. -) (1l -2inT(i.x2t.OR. l(dd_a IF'----i-) (1l -3inT(i.x2t.OR.== _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,lmodul(d_a IF'----ire-i'At e--, m-) (1l -rpa mus (retree 1No!st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m LL E-) (1l -ri2T(i.x2t.OR. -) (1l -2i2T(i.x2t.OR. l(dd_a IF'----i-) (1l -3i2T(i.x2t.OR.== _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,lmodul(d_a IF'----ire-i'At e--, m-) (1l -rp2 mus (retree 1No!st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m LL Edl,ltype(i.x q q ! (,c_oct 0_ r/mT(i.xox(2t.OR.l_3enti q qCBOX Reurni->0 Rewarning.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,lmodul(d_a IF'----ire-i'Octilf----- oripos info ,m2d.--everRITE(NE_quadilf-.modu(dl,lmod_a IF'-- cbdivi kin ------BOXLISTitype--- q q ! (,c_quad------BOXLR.l_3.l_3i2d_m ments n0_ r/mT------BOXLISTLL Ein!fo =ppppi -(1-nb2t.OR.l_.OR.l_3enti q q !!CBOX Reurni->0 ReE_(2t.OR.l_3o)))o))))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,lmodul(oddl,lmod_a IF'-----'- q 2**TENTN iOiNDImus (ret> 0 !st cbdivi kin ------BOXLIST STX Ret8888------BOXLOXLR.l_3.l_3i2d_m ISTLL Ein!x(2t.i)R== 3xKqqx(2t.i)l_.OR.l_3enti q q !!CBOX Reurni->0 ReE_(2t.OR.l_3o)))o))))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,lmodulddl,lmod_a IF'-----'in!x(2tImus (ret.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)------B!-ETH Zurich---------CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE tEv itypeER tre--------------ireeoduspeethre ppm_module_SUBROUTbdi tk,ldl,l_Argumel -ESE=inlisdl,l ree_oduree_oduledule_ddl,lmod_a ( & n-b_---,max_---, (( info =p---cel !ofo nchldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi tk,ldl,l_Argumeld-ESE=inlisdl,l ree_oduree_oduledule_ddl,lmod_a ( & n-b_---,max_---, (( info =p---cel !ofo nchdas__chldNchildNb [Tda,n-plpee--------------ireeoduspeethre ppm_module_SUBROUTbdi tk,ldl,l_Argumed -ESE=inlisdl,l ree_odule( & n---mod_a IF'---n_---,max_---, (( info chldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi tk,ldl,l_Argumedd-ESE=inlisdl,l ree_odule( & n---mod_a IF'---n_---,max_---, (( info chdas__chdas__R.l_3i-!!-tc!fnrout-1el(re)a-------s__,iNEETU in a , ructur'Adx(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturningModuo =px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _in a_EETUOR.l_3iUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _61108SI!----IMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Include--- q q Cleaicle uin fo) #en------------------------------------------------------#include "0_ r/ rl---h"_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,stseturn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK), DIMENppm_(:,:), POINTERReturn :: ee_odul_R.l_3i-!!-Lownr_coordin---s_oNT Ifldul._R.l_3i-!!_R.l_3i-!!-1, _, tE: x,y[,z] +_R.l_3i-!!-2nd:N iID Return)=n [MK), DIMENppm_(:,:), POINTERReturn :: e & n_R.l_3i-!!-Uppnr_coordin---s_oNT Ifldul._R.l_3i-!!_R.l_3i-!!-1, _, tE: x,y[,z] +_R.l_3i-!!-2nd:N iID Return)=n [MK), DIMENppm_(: ), POINTERReturn :: n_---,m_R.l_3i-!!-Co, inTNoh Ifldul'Adx(2t.ORINTEGER , DIMENppm_(: ), POINTERReturn :: x_---_R.l_3i-!!-N -rs tEv info---tEv eachldul._R.l_3iINTEGER ,iINTENT(IN ) :: ESE=_R.l_3i-!!--------. e model(passnd o!q -lALL ALL E)_R.l_3iINTEGER ,iINTENT(IN ) :: n n_R.l_3i-!!-New-l -rs tEv iden TNE_a-------_R.l_3iINTEGER ,iINTENT(IN ) :: n p-_R.l_3i-!!-N -rs tEv info---tpnr_rtzerll_3entiINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturn 3t tus, 0 o!qPRECI Cx(2t.ORINTEGER , DIMENppm_(: ), POINTERReturn :: (( _R.l_3i-!!-tlf--daodutEv eachldulRTRUE tEv itypeER treetyperINTEGER ,iINTENT(IN ) :: n(( _R.l_3i-!!-N -rs tEv daodule ,m IflEETUOR.l_3iINTEGER , DIMENppm_(: ), POINTERReturn :: rtzerll_3enti-!!-I, tEvoNT Ifl ,st, iEv eachldul. ` q q ! E=inlisoh` _(2t.l_3enti-!!- ,st,(i.e.-nts (r)=)_R.l_3iINTEGER , DIMENppm_(: ), POINTERReturn :: x _R.l_3i-!!-tce-l -rs tEv iden Tpnr_(( _R.l_3iINTEGER , DIMENppm_(:,:), POINTERReturn :: infol_3enti-!!-I, ice soNTTNoh info---tEv aldul. 1, _, tE: infoiID,-2nd:N iID. chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---L---l ---,pbo =px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK) :: t0_R.l_3iINTEGER, DIMENppm_(2) :: ld8SI!--------mx [TER -1E_sidglem------------------------------------------------------------ External=px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldl,l ALL Emot0 kin -_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----------nput irgu,,st--- q q Cleaicle uin fo) #en--------------------------------------------------------------[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt------BOX----ist, & ==X Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---A-------_R.l_3i Cleaicle uin fo) #en--------------------------------------------------------------[Tc_wr -------Ec_wr -------entiSE.[av--...2-----entiSE.[av2-otnkb2tild xmarrrr E CALL ALL Ec (,c_w -)=inlibBtrstkceheck ack aLL E,ldl & == _(2t.ORt.OR CBOX-Reurni->0 Returning.',,,',,,o))) qldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire-iree-fo =ppTNE_headppm_R tr_LHBXst cbdivi kin ------BOXLIST SX Returninnis(,,,,,,R.l_3.l_3i2d_R.l_3.l_3i2d_.[av--.---- q q/mT------B.[av2-o otnkb2tild xma E CALL ALL Ec2** n-subBtrstk,ldlceheck aLL E,ldl & == _(2t.ORt.OR -Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire'lownr_ iboE=inri'lower_pm_m'tempo not,m_erfo) #en- CBX Returninnis(,,tiot2 ild xma E CALL ALL Ec2 & n-subBtrstk,ldlceheck aLL E,ldl & == _(2t.ORt.OR -Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire'uppnr_ iboE=inri'lowAX_pm_m'tempo not,m_erfo) #en- CBX Returninnis(,,tiot2 ild xmaldNb i=Nmax_domt2ox(2t.OR.l_3 h.l_3ldct2o.= n-p n-subBtrstk,ldlceheck ack aLL E,ldl & == _(2t.ORt.OR CBOX-Reurni->0 Returning.',,,',,,o))) qldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire-iree iNTENTOiNDI'M_pm_m'tempo not,m_erfo) #en- CB- CBX Returninnis(,,s(,,tiot2 ild xmaR.l_3.l_3i2d_.[av--.tnkb2tild xma E CALL ALL Ec_ee_ksubBtrstk,ldlceheck aLL E,ldl & == _(2t.ORt.OR -Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire'l -rs tEv f info dit wrmine ocVst cbdivi kin ------B- CBX Returninnis(,,tiot2 ild xma E CALL ALL EcschldNcsubBtrstk,ldlceheck aLL E,ldl & == _(2t.ORt.OR -Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire'ilf--daoduleEv iden TBLEVEL-----------lNU newb----- CBX Returninnis(,,tiot2 ild xma E CALL ALL Ecstomin--subBtrstk,ldlceheck aLL E,ldl & == _(2t.ORt.OR -Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire' iist spm_COST-----------lNU newb----- CBX Returninnis(,,tiot2 ild xma E CALL ALL Ecx_---,subBtrstk,ldlceheck aLL E,ldl & == _(2t.ORt.OR -Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire'n -rs tEv info---tNCHLD-----------lNU newb----- CBX Returninnis(,,tiot2 iTRUE tEv itypeER treetyper.[av--.tnkbp-_R.l_3i.[av2-otnkb2tild xma E CALL ALL Eccinfo subBtrstk,ldlceheck aLL E,ldl & == _(2t.ORt.OR -Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire',,, in info---tCHILD-----------lNU newb----- CBX Returninnis(,,tiot2 ietyper.[av--.tnkb2tild xma E CALL ALL Ecx_---, subBtrstk,ldlceheck aLL E,ldl & == _(2t.ORt.OR -Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire' ,st,-fo =ppTPARENT-----------lNU newb----- CBX Returninnis(,,tiot2 ild xma.[av--.tnk(( _R.l_3i E CALL ALL Ecx subBtrstk,ldlceheck aLL E,ldl & == _(2t.ORt.OR -Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elifssssstk,ldl,l ALL Emo,,o))) qd_a IF'----ire'l -rs tEv iden Tpnr_(( NBPL-----------lNU newb----- CBX Returninnis(,,tiot2 i-Tdas__SI!--------mx [TER -1E_sidglem--------------------------------------------------------------eturn SI!--------mx [TER -1E_sidglem-----------------------------------------------------urni CONTINUreetyper q .l_3top(stk,ldl,l ALL Emot0 kin -etyperRETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLLL Edaod-(LinlisssssELSEentimax [TCBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l ALL Emo,,o))d_a IF'----ire-i'N -rs tEv iden Tmus (ret>= 0st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m LL Ekbp--(LinlisssssELSEentimax [TCBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l ALL Emo,,o))d_a IF'----ire-i'N -rs tEv iden Tpnr_stepTmus (ret>= 0st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.TRUE tEv itypeER treetyperrrrLL Ek argum(LinlisssssELSEentimax [TCBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l ALL Emo,,o))d_a IF'----ire-i'N -rs tEv daodulemus (ret>= 0st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.Thdas__R8888))))lONTINUreetypertio_SUBROUTbdi subBt---------ldNb [Tda,R tre--------------ireeoduspeethre ppm_module_tio_SUBROUTbdi tk,ldl,l_Argumel .chldNchi------ireeDOUBpeethre ppm_module_tio_SUBROUTbdi tk,ldl,l_Argumeldnchdas__chldNchildNb [Tda,n-plpee--------------ireeoduspeethre ppm_module_tio_SUBROUTbdi tk,ldl,l_Argumeds.chldNchi------ireeDOUBpeethre ppm_module_tio_SUBROUTbdi tk,ldl,l_Argumedd--Tdas__chdas__libtk,-1.2/src/dl,l/tk,ldl,l_stomin-.f000644 000765 000024 00000027414 11445666064 020235 0uqq q00om qqq ff000000 000000 odule_.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.INrout-1el : tk,ldl,l_stomin-SI!--------mx [TER -1E_sidglem------------------------------------------------------------Copyr (1l (c) 2010) SE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppeliedFluid Dynamics (DTU ------B!------B!------B!-tc!fnfnfeEis--e3= ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPM----flf--software: you can red,, ribbumeite, (/ied oas_-SI!-----eiteE=inr__,iNEerm soNT IflGNU Lessnr_Gene !l PubliciLicense Returninas--ublishIL bri IflFlf--Software FoE=in ia, eii cnn Returninvers. e 3soNT IflLicense, ied(at your op ia)dany latcnn Returninvers. e.------B!------B!-PPM----d,, ribbumd ,m Iflhope------itewiNoh=e useful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,m Iflimplimd warranty,,fx(2t.OR! MERCHANTABILITY iedFITNESS FOR A PARTICULAR PURPOSE. Se--- qx(2t.OR! GNU Gene !l PubliciLicense lied ,__Ldetails.------B!-(2t.OR! You shouldl i=N receiv,,)a copysoNT IflGNU Gene !l PubliciLicense ReturninandT IflGNU Lessnr_Gene !l PubliciLicense alongI--- oPPM.-If or,------B!-se--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)------B!-ETH Zurich---------CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE tE------ireeoduspeethre ppm_module_SUBROUTbdi tk,ldl,l_stomin-_s(Nm -) (1l ree_odule( & n---md_a IF'---nlisdw -)rem-stomin-- kin in!chldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi tk,ldl,l_stomin-_d(Nm -) (1l ree_odule( & n---md_a IF'---nlisdw -)rem-stomin-- kin in!chdas__R.l_3i-!!-tc!fnrout-1elcompu--s__,iNco, inTrsettEv iden ._R.l_3i-!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-tciNco, inTr--------N s,counumd as--co, (s__R.l_3i-!!-giv,a)died1. For ore pe_,iNco, s,1Tpnr_ or_R.l_3i-!!--fo =. For _,iNgeomet,f ----,__,iNco, inT_R.l_3i-!!-aod- s,giv,a bri ILIvolu,,. Us m-) (1l -3) t.l_3enti-!!-adjus (e ---illFStBILdx(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturningModuo =px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _in a_EETUOR.l_3iUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _.'__Seheck aLMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Include--- q q Cleaicle uin fo) #en------------------------------------------------------#include "0_ r/ rl---h"_---) REAL(MKqodule_INCLUDE 'mpif.h' chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,stseturn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: ee_odul_R.l_3i-!!-T q 2**TENTNcoordin---_oNT Iflduln ._R.l_3i-!!_R.l_3i-!!-1, _, tE: x,y[,z] +_R.l_3i-!!-2nd:N iID Return)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: e & n_R.l_3i-!!-T q 2INTENTNcoordin---_oNT Iflduln ._R.l_3i-!!_R.l_3i-!!-1, _, tE: x,y[,z] +_R.l_3i-!!-2nd:N iID Return)=n [MK), DIMENppm_(3 ), INTENT(IN ) :: -) (1l _R.l_3i-!!-W) (1l lied_,iNEhlf--co, sER ribburmin: info =,_ or,_R.l_3i-!!-geomet,f lied/ rl-ITE(N,iNEog.'-co, inTrdul._R.l_3i)=n [MK), DIMENppm_(: ), OPTpm_AL, INTENT(IN) :: p--,m_R.l_3i-!!-Argu,,sttEv dang- oN----,_specs_-ITE(N,i_R.l_3i-!!-compu-n ia.'-co, ineachl info ._R.l_3iINTEGER ,iINTENT(IN ) :: n n_R.l_3i-!!-N -rs tEv iden TNE_compu---co, liedx(2t.ORINTEGER , DIMENppm_(: ), INTENT(IN ) :: w -----en-!!-Pfo =ppTNE_firs (--------N ,meachldulTNE_d ----1elco, liedx(2t.OR-!!-tc!fno 2,FStB TNE_=e 3b [Tn _(2i cnes---qany info =dx(2t.ORINTEGER , DIMENppm_(: ), INTENT(IN ) :: wee_-tree'-!!-I, tEv,,, in gi dis ,meachldulTNE_d ----1elco, liedx(2t.OR-!!-tc!fno 2,FStB TNE_=e 3b [Tn _(2i cnes---qany info =dx(2t.ORINTEGER , DIMENppm_(:,:), INTENT(IN ) :: Nm_R.l_3i-!!-N -rs tEv NTENT gi dis ,meachldul._R.l_3i)=n [MK), DIMENppm_(: ), POINTERReturn :: n_---,m_R.l_3i-!!-Co, s_oNT Iflduln d1..ndul. b_---,m(i)- s,_,iNco, indulTlduln (i)._R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturn 3t tus, 0 o!qPRECI Cx(2t.OR-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---L---l ---,pbo =px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK), DIMENppm_( q q/mT) :: we_odul_R.l_3iINTEGER , DIMENppm_(2) :: ld8SI!----)=n [MK) :: t0dl,lhEog.',geomEog.',dm_R.l_3iINTEGER :: i,ipBtrstkj_R.l_3i)=n [MK), DIMENppm_(:), POINTERReturn n :: rc,m_---) REAL(MKqodule_)=n [MK), DIMENppm_(:), POINTERReturn n :: rc,um_R.l_3iINTEGER :: MPldNb chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---External=px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldl,l b_---,mmot0 kin -_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----------nput irgu,,st--- q q Cleaicle uin fo) #en--------------------------------------------------------------[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt-- --------[Tist, & ==X Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Set,-fo =ppTNE_work-------SI!--------mx [TER -1E_sidglem------------------------------------------------------------------ireeoduspeethre ppm_module_rc,m =>,pcst_slas=a Se',n--rc,m =>,pcst_d--Tdas__c--) RE EAL(MKq--------------ireeoduspeethre ppm_module_rc,um =>,pcsum_slas=a Se',n--rc,um =>,pcsum_d--Tdas__chdas___R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IllwiN i=N l,__Lthan 1ldulTNE_compu--, exi-SI!--------mx [TER -1E_sidglem----------------------------------------------------------LL Edaod-(Linl12t.OR.l_3enti q q--[TOR.l_3ncu-== 3x(2t.OR.l_3enti qenti q q OR.l.'__Sidgle #elifssssstk, b_---,mmo qd_a IF'----ire-ireeNo iden TNE_belcompu--d.-ExiRITE.' kin ------BOXLIR.l_3.l_3i2d_m qX Returninnis(,,tiot2oO---) REAL(MKqodule_-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---D ----1el(MK in a typeSI!--------mx [TER -1E_sidglem------------------------------------------------------------------ireeoduspeethre ppm_module_MPldNb =l(MK_)=n chldNchi------ireeDOUBpeethre ppm_ module_MPldNb =l(MK_DOUBpeethre ppm_m-Tdas__chdas___R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Compu-n iatEv info sER ribburminTNE_b iist SI!--------mx [TER -1E_sidglem----------------------------------------------------------LL Ec_wr -------Ec l-) (1l -r) & t.OR.l_.OR.l_3enti q qments n iq_3enti q q !pcst(i)----0t.OR.O---) REAL(MKqodule_ q q !pcsum i R m0t.OR.O-hdas__R.l_3ienti q qmenj=w oi),w oi+1)-1-2,u i=============ipR mwee_(j.OR.l_33333Nm_------dm =d1..OR.OR.l_33333Nm_------LL EthrSENT( in)-dm =dp--,m(ip.OR.l_33333Nm_------pcst(i)-=-pcst(i)-+ dm_R.l_3iiiiiiiiitioGEnofixedST',tioGEnL---) REAL(MKqodule_ q q---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---AllreducesoNTTNoh info sumsqodule_ q q---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t q (MK_Allreducenpcst,pcsuminlisdMPldNb,(MK_SUMn0_ rcommk,ldlceheck ack aLL E,ldl & == _(2t.ORt.OR CBOX-Reurni->0 Returning.',,,',,,o))) qldct1o.= dul_f---le #elmpininilifssssstk, b_---,mmo qd_a IF'----ire-iree(MK_AllreducetEv info sEt m'tempo not,m_erfo) #en- CB- CBX Returninnis(,,s(,,tiot2 ild xmaaaaaments n iq_3enti q q !pcst(i)-=!pcsum i nofixedST',tioGEn-hdas__R.l_3iR.l_3.OR! c_wr -------EcoOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Add upTTNoh o, sER ribburminbNE__og.'-co, dx(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_im-(i.xmox(2t.OR.l_3enti qments n iq_3enti q q !semoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1t---M oriandTgeomet,f basnd ist SI!---- q q !semoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1tl,lhEog.'R m0t.OR.O(2t.ORtr1ttr1twe_odulv--.tne & n(1,i)-ee_odul(1,i)O(2t.ORtr1ttr1twe_odulv2-.tne & n(2,i)-ee_odul(2,i)O(2t.ORtr1ttr1tldNb i=Nmax_d l-) (1l -2)a,D == == _(2t.ORt.OR CBR CBtr1tl,lhEog.'R m)=n [Nm(1,i),R.l*)=n [Nm(2,i),R.l_R.l_3iiiiiiiiitio_3.l_3i2d_m qSSSSgeomEog.'R mwe_odulv--*we_odulv2-q_3enti q q !semoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1t---Compu----) (1lnd ,um in o, s_andTst,__LicOR.l_3iiiii,,,,semoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1tIFTc_wr -------Ec_wr -------entiSEEEEEEEEb_---,m(i)-=-pcst(i)*-) (1l -r) +tl,lhEog.'*-) (1l -2)a+EEEEddl,lmod_a IF'--------------------geomEog.'*-) (1l -3)_R.l_3iiiiiiiiitLSE-----entiSEEEEEEEEb_---,m(i)-=-l,lhEog.'*-) (1l -2)a+EgeomEog.'*-) (1l -3)_R.l_3iiiiiiiiit---_3.l_3i2d_m qtioGEnofixedtLSE-----entiSEments n iq_3enti q q !semoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1t---M oriandTgeomet,f basnd ist SI!---- q q !semoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1tl,lhEog.'R m0t.OR.O(2t...........we_odulv--.tne & n(1,i)-ee_odul(1,i)O(2t.ORtr1ttr1twe_odulv2-.tne & n(2,i)-ee_odul(2,i)O(2t.ORtr1ttr1twe_odulv3-.tne & n(3,i)-ee_odul(3,i)O(2t.ORtr1ttr1tldNb i=Nmax_d l-) (1l -2)a,D == == _(2t.ORt.OR CBR CBtr1tl,lhEog.'R m)=n [Nm(1,i),R.l*)=n [Nm(2,i),R.l*)=n [Nm(3,i),R.l_R.l_3iiiiiiiiitio_3.l_3i2d_m qSSSSgeomEog.'R mwe_odulv--*we_odulv2-*we_odulv3-q_3enti q q !semoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1t---Compu----) (1lnd ,um in o, s_andTst,__LicOR.l_3iiiii,,,,semoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttr1tIFTc_wr -------Ec_wr -------entiSEEEEEEEEb_---,m(i)-=-pcst(i)*-) (1l -r) +tl,lhEog.'*-) (1l -2)a+EEEEddl,lmod_a IF'--------------------geomEog.'*-) (1l -3)_R.l_3iiiiiiiiitLSE-----entiSEEEEEEEEb_---,m(i)-=-l,lhEog.'*-) (1l -2)a+EgeomEog.'*-) (1l -3)_R.l_3iiiiiiiiit---_3.l_3i2d_ qtioGEnofixedtiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Flf--l---l ------SI!--------mx [TER -1E_sidglem-----------------------------------------------------urni CONTINUreetyperrgumNULLpcst)_c--) RE EAL(MKqetyperrgumNULLpcsumn!chdas__R.l_3i----mx [TER -1E_sidglem-----------------------------------------------------eturn----eturn SI!--------mx [TER -1E_sidglem---------------------------------------------------------- q .l_3top(stk,ldl,l b_---,mmot0 kin -------RETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLmentps n iq_3enti q q ments n0_ r/mT------BOXLIST STLL Ein!xdulvi,ip)R== 3xKqqxdulvi,ip)== _(2t.ORt.OR CBR CBtr1tCBOX Reurni->0 ReE_(2t.OR.l_3o)))o)))) o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l b_---,mmo qEEddl,lmod_a IF'--------'in!xdulImus (ret.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)------B!-ETH Zurich---turn--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE tE------ireeoduspeethre ppm_module_SUBROUTbdi tk,ldl,l_stomu-_s(xp,mu-dule(e_odule( & n-n-------dirodu(dl,lmod_a ---po ree_----( &----) -)rem- info chldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi tk,ldl,l_stomu-_d(xp,mu-dule(e_odule( & n-n-------dirodu(dl,lmod_a ---po ree_----( &----) -)rem- info chdas__R.l_3i-!!-tc!fnrout-1elcu s_a-aod- nto 2, 4 ied8 piece susing.OR.l_3-!!-_,iNgiv,a -utpdit wrmineandT-utppo iwrmin._R.l_3i-!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-tciNrout-1elo 2,work lied_---s n 2, ied3dx(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturningModuo =px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _in a_EETUOR.l_3iUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _61108SI!----USi tk,lmoduo _.'__Seheck aLMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Include--- q q Cleaicle uin fo) #en------------------------------------------------------#include "0_ r/ rl---h"_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,stseturn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: xp_R.l_3i-!!-Po iwrminvoNT Ifl gi di._R.l_3i)=n [MK), DIMENppm_(: ), INTENT(IN ) :: ee_odul_R.l_3i-!!-M**TENTNcoordin---s_oNT IfldulTNE_belcut._R.l_3i)=n [MK), DIMENppm_(: ), INTENT(IN ) :: e & n_R.l_3i-!!-MINTENTNcoordin---s_oNT IfldulTNE_belcut._R.l_3i)=n [MK), DIMENppm_(: ), INTENT(IN ) :: ---po _R.l_3i-!!-Po iwrminvoNT Iflcu s_alongI_,iNgiv,a al'Adx(2t.ORINTEGER ,iINTENT(IN ) :: nmu-_R.l_3i-!!-N -rs tEv u s_NE_applyx(2t.ORINTEGER ,iINTENT(IN ) :: mu-dul_R.l_3i-!!-ID_oNT IfldulTNE_belcut._R.l_3iINTEGER , DIMENppm_(: ), INTENT(IN ) :: ---dir_R.l_3i-!!-Dit wrmineoNT Iflcu s. ---dir(1)=2 means------ Iflfirs _R.l_3i-!!--utpi TpnrphdasculapTNE_ IflsecondT-oordin---_INTs (y_INTs)._R.l_3i)=n [MK), DIMENppm_(:,:), POINTERReturn :: ee_mu-_R.l_3i-!!-M**TENTNcoordin---s_oNT Ifl-utpduln ._R.l_3i-!!_R.l_3i-!!-1, : x,y[,z] +_R.l_3i-!!-2nd:Nidul._R.l_3i)=n [MK), DIMENppm_(:,:), POINTERReturn :: e &mu-_R.l_3i-!!-MINTENTNcoordin---s_oNT Ifl-utpduln ._R.l_3i-!!_R.l_3i-!!-1, : x,y[,z] +_R.l_3i-!!-2nd:Nidul._R.l_3iINTEGER , DIMENppm_(: ), POINTERReturn :: w -----en-!!-Pfo =ppTNE_ Iflfirs l gi d E,lmwee_)s ,meachl.l_-dul. tc!fni _R.l_3i-!!-o 2,a-------deandTreturnmd (2i cnes---q-------Ec ---a--._R.l_3iINTEGER , DIMENppm_(: ), POINTERReturn :: wee_-tree'-!!-I, tEvEv info =pinl.l_-duln . tc!fni -o 2,a-------deandTreturnmd-tree'-!!- (2i cnes---q-------Ec ---a--._R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturn 3t tus, 0 o!qPRECI Cx(2t.OR-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---L---l ---,pbo =px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK) :: t0_R.l_3iINTEGER :: nnlisdcd,i,jBtrstkNp,ip_R.l_3iINTEGER , DIMENppm_(2) :: ld8SI!----INTEGER , DIMENppm_(:), POINTERReturn n :: rdul_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---External=px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldl,l b_--ummot0 kin -_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----------nput irgu,,st--- q q Cleaicle uin fo) #en--------------------------------------------------------------[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt-_3enti q--[Tist, & ==X Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---ExiR- (2i cnes--- orhITE(NE_belcut-- q q Cleaicle uin fo) #en--------------------------------------------------------------[T_mu--(Linl12t.OR.l_3enti q q--[TOR.l_3ncu-== 3x(2t.OR.l_3enti qenti q q OR.l.'__Sidgle #elifssssstk, b_--utmodul(d_a IF'----ire-ireeNorhITE(NE_cut.-ExiRITE.' kin ------BOXLIR.l_3.l_3i2d_m qX Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---N -rs tEv new iden TNE_belcre---dOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnnnlis...2**_mu-_R.l_3itrst---- q q ! Argumegrow---------[Tc_wr -------Ec_wr -------entiSENpR m- (,c_w (1,mu-dul)a+E (,c_w (2,mu-dul)a+E1-2,u i=====.[av--.tnNp-2,u i===== E CALL ALL Ec)rem-subBtrstk,ldlceheck ack aLL E,ldl & == _(2t.ORt.OR CBOX-Reurni->0 Returning.',,,',,,o))) qldct1o.= dul_f---le #elifssssstk,ldl,l b_--utmodul(((((((d_a IF'----ire-iree- -----N,,, -fo =pps LPD_m'tempo not,m_erfo) #en- CB- CBX Returninnis(,,s(,,tiot2 ild xmaR.l_3.lOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Split-aod- nto 2 piece -- q q Cleaicle uin fo) #en--------------------------------------------------------------[T_mu--(i.xm12t.OR.l_3enti q q--[TOR.l_im-(= 3xox(2t.OR.l_3enti qqqqqments n iq_3enti q q !!!!!ee_mu-(1,i)-=-le_odul(1 ------BOXLIST ST STee_mu-(2,i)-=-le_odul(2-q_3enti q q !T STee_mu-(3,i)-=-le_odul(3)_R.l_3iiiiiiiiiT STe &mu-(1,i)-=-l & n(1)_R.l_3iiiiiiiiiT STe &mu-(2,i)-=-l & n(2-q_3enti q q !T STe &mu-(3,i)-=-l & n(3)_R.l_3iiiiiiiiit--GEnofixedST',tLSE-----entiSEEEEEments n iq_3enti q q !!!!!ee_mu-(1,i)-=-le_odul(1 ------BOXLIST ST STee_mu-(2,i)-=-le_odul(2-q_3enti q q !T STe &mu-(1,i)-=-l & n(1)_R.l_3iiiiiiiiiT STe &mu-(2,i)-=-l & n(2-q_3enti q q !tioGEnofixedST',tiot2oOR.l_3iiiiicd-------dir(1)OR.l_3iiiiiee_mu-(cd,1)-=-le_odul(cd)OR.l_3iiiiiee_mu-(cd,2-.tn---po (1)OOR.l_3iiiiie &mu-(cd,1)-=----po (1)OR.l_3iiiiie &mu-(cd,2-.tne & n(cd)OR.l_3iiiiiOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Split-aod- nto 4 piece -- q q Cleaicle uin fo) #en------------------------------------------------------------tLSE--[T_mu--(i.xmox(2t.OR.l_3enti q--[TOR.l_im-(= 3xox(2t.OR.l_3enti qqqqqments n iq_3enti q q !!!!!ee_mu-(1,i)-=-le_odul(1 ------BOXLIST ST STee_mu-(2,i)-=-le_odul(2-q_3enti q q !T STee_mu-(3,i)-=-le_odul(3)_R.l_3iiiiiiiiiT STe &mu-(1,i)-=-l & n(1)_R.l_3iiiiiiiiiT STe &mu-(2,i)-=-l & n(2-q_3enti q q !T STe &mu-(3,i)-=-l & n(3)_R.l_3iiiiiiiiit--GEnofixedST',tLSE-----entiSEEEEEments n iq_3enti q q !!!!!ee_mu-(1,i)-=-le_odul(1 ------BOXLIST ST STee_mu-(2,i)-=-le_odul(2-q_3enti q q !T STe &mu-(1,i)-=-l & n(1)_R.l_3iiiiiiiiiT STe &mu-(2,i)-=-l & n(2-q_3enti q q !tioGEnofixedST',tiot2oOR.l_3iiiiicd------dir(1)OR.l_3iiiiiee_mu-(cd,1)-=-le_odul(cd)OR.l_3iiiiiee_mu-(cd,2-.tnle_odul(cd)OR.l_3iiiiiee_mu-(cd,3)-=----po (1)OR.l_3iiiiiee_mu-(cd,4-.tn---po (1)OOR.l_3iiiiie &mu-(cd,1)-=----po (1)OR.l_3iiiiie &mu-(cd,2-.tn---po (1)OR.l_3iiiiie &mu-(cd,3-.tne & n(cd)OR.l_3iiiiie &mu-(cd,4-.tne & n(cd)OOR.l_3iiiiicd------dir(2)OR.l_3iiiiiee_mu-(cd,1)-=-le_odul(cd)OR.l_3iiiiiee_mu-(cd,2-.tn---po (2)OR.l_3iiiiiee_mu-(cd,3)-=-le_odul(cd)OR.l_3iiiiiee_mu-(cd,4-.tn---po (2)OOR.l_3iiiiie &mu-(cd,1)-=----po (2)OR.l_3iiiiie &mu-(cd,2-.tne & n(cd)OR.l_3iiiiie &mu-(cd,3-.tn---po (2)OR.l_3iiiiie &mu-(cd,4-.tne & n(cd)O3iiiiiOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Split-aod- nto 8 piece -- q q Cleaicle uin fo) #en------------------------------------------------------------tLSE--[T_mu--(i.xm3x(2t.OR.l_3enti q--[TOR.l_im-(= 3xox(2t.OR.l_3enti qqqqqments n iq_3enti q q !!!!!ee_mu-(1,i)-=-le_odul(1 ------BOXLIST ST STee_mu-(2,i)-=-le_odul(2-q_3enti q q !T STee_mu-(3,i)-=-le_odul(3)_R.l_3iiiiiiiiiT STe &mu-(1,i)-=-l & n(1)_R.l_3iiiiiiiiiT STe &mu-(2,i)-=-l & n(2-q_3enti q q !T STe &mu-(3,i)-=-l & n(3)_R.l_3iiiiiiiiit--GEnofixedST',tLSE-----entiSEEEEEments n iq_3enti q q !!!!!ee_mu-(1,i)-=-le_odul(1 ------BOXLIST ST STee_mu-(2,i)-=-le_odul(2-q_3enti q q !T STe &mu-(1,i)-=-l & n(1)_R.l_3iiiiiiiiiT STe &mu-(2,i)-=-l & n(2-q_3enti q q !tioGEnofixedST',tiot2oOR.l_3iiiiicd------dir(1)OR.l_3iiiiiee_mu-(cd,1)-=-le_odul(cd)OR.l_3iiiiiee_mu-(cd,2-.tnle_odul(cd)OR.l_3iiiiiee_mu-(cd,3)-=----po (1)OR.l_3iiiiiee_mu-(cd,4-.tn---po (1)OOR.l_3iT STe &mu-(cd,1)-=----po (1)OR.l_3iiiiie &mu-(cd,2-.tn---po (1)OR.l_3iiiiie &mu-(cd,3-.tne & n(cd)OR.l_3iiiiie &mu-(cd,4-.tne & n(cd)OOR.l_3iiiiiee_mu-(cd,5-.tnle_odul(cd)OR.l_3iiiiiee_mu-(cd,6-.tnle_odul(cd)OR.l_3iiiiiee_mu-(cd,7)-=----po (1)OR.l_3iiiiiee_mu-(cd,8-.tn---po (1)OOR.l_3iT STe &mu-(cd,5-.tn---po (1)OR.l_3iiiiie &mu-(cd,6-.tn---po (1)OR.l_3iiiiie &mu-(cd,7-.tne & n(cd)OR.l_3iiiiie &mu-(cd,8-.tne & n(cd)OOR.l_3iiiiicd------dir(2)OR.l_3iiiiiee_mu-(cd,1)-=-le_odul(cd)OR.l_3iiiiiee_mu-(cd,2-.tn---po (2)OR.l_3iiiiiee_mu-(cd,3)-=-le_odul(cd)OR.l_3iiiiiee_mu-(cd,4-.tn---po (2)OOR.l_3iiiiie &mu-(cd,1)-=----po (2)OR.l_3iiiiie &mu-(cd,2-.tne & n(cd)OR.l_3iiiiie &mu-(cd,3-.tn---po (2)OR.l_3iiiiie &mu-(cd,4-.tne & n(cd)OOR.l_3iiiiiee_mu-(cd,5-.tnle_odul(cd)OR.l_3iiiiiee_mu-(cd,6-.tn---po (2)OR.l_3iiiiiee_mu-(cd,7-.tnle_odul(cd)OR.l_3iiiiiee_mu-(cd,8-.tn---po (2)OOR.l_3iiiiie &mu-(cd,5-.tn---po (2)OR.l_3iiiiie &mu-(cd,6-.tne & n(cd)OR.l_3iiiiie &mu-(cd,7-.tn---po (2)OR.l_3iiiiie &mu-(cd,8-.tne & n(cd)OOR.l_3iiiiicd------dir(3)OR.l_3iiiiiee_mu-(cd,1)-=-le_odul(cd)OR.l_3iiiiiee_mu-(cd,2-.tnle_odul(cd)OR.l_3iiiiiee_mu-(cd,3)-=-le_odul(cd)OR.l_3iiiiiee_mu-(cd,4-.tnle_odul(cd)OOR.l_3iiiiie &mu-(cd,1)-=----po (3)OR.l_3iiiiie &mu-(cd,2-.tn---po (3)OR.l_3iiiiie &mu-(cd,3-.tn---po (3)OR.l_3iiiiie &mu-(cd,4-.tn---po (3)OOR.l_3iiiiiee_mu-(cd,5-.tn---po (3)OR.l_3iiiiiee_mu-(cd,6-.tn---po (3)OR.l_3iiiiiee_mu-(cd,7-.tn---po (3)OR.l_3iiiiiee_mu-(cd,8-.tn---po (3)OOR.l_3iiiiie &mu-(cd,5-.tne & n(cd)OR.l_3iiiiie &mu-(cd,6-.tne & n(cd)OR.l_3iiiiie &mu-(cd,7-.tne & n(cd)OR.l_3iiiiie &mu-(cd,8-.tne & n(cd)O3iiiiiOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Unknowa -utRITE mode-- q q Cleaicle uin fo) #en------------------------------------------------------------tLSEOR.l_3iiiiiCBOX Reurni->0 ReE_(2t.OR.l_3o)))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l b_--ummo qEEddl,lmod_a IF''_mu--mus (ret< 4.-----------lNU newb----- CBX Returninnis(,,tiot2_SI!--------mx [TER -1E_sidglem--------------------------------------------------------------ank info =pinto new iden . We cannot use1o.= utile #el---------- cne, se_meT Ifl-infoiiden TFStB- or(retTNohoNT IflsameTOiND!SI!--------mx [TER -1E_sidglem------------------------------------------------------------[Tc_wr -------Ec_wr -------entiSE---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---All----- info b iIDN,,, -----entiSE---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttrst--- q q ! ArgumeficOR.l_3iiiii.[av--.tnNp-2,u i===== E CALL ALL Ecrdul-subBtrstk,ldlceheck ack aLL E,ldla,D == == _(2t.ORt.OR CBR CB-Reurni->0 Returning.',,,',,,o))) qldct1o.= dul_f---le #elifssssstk,ldl,l b_--utmoduld_a IF'----ire-iree,,, in info b iIDs Ppm_m'tempo not,m_erfo) #en- CB- CBX Returninnis(,,s(,,tiot2nnis(,,s(,,plis...-1-2,u i=====npbs...0 -----entiSE---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---D ----1el.l_-dul liedeachl info . TODO: use1 Iflsnippletx(2t.ORtr1t--- cne...-bbu avoid,a----!-----entiSE---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t--[TOR.l_im-(i.xm3x(2t.OR.l_3enti qqqqqments n iq_3enti q q !!!!!menj=1,Np-2,u i=================ipR m (,c_wee_( (,c_w (1,mu-dul)+j-1)_R.l_3iiiiiiiiiT STtr1t--[T.NOT.(xp(1,ip)R=Linlee_mu-(1,i)) l EEddl,lmod_a IF'------------(xp(1,ip)R=Linle &mu-(1,i)) l EEddl,lmod_a IF'------------.NOT.(xp(2,ip)R=Linlee_mu-(2,i)) l EEddl,lmod_a IF'------------(xp(2,ip)R=Linle &mu-(2,i)) l EEddl,lmod_a IF'------------.NOT.(xp(3,ip)R=Linlee_mu-(3,i)) l EEddl,lmod_a IF'------------(xp(3,ip)R=Linle &mu-(3,i))== _(2t.ORt.OR CBR CBtr1tttttttttplis(j-.tnit.ORt.OR CBR CBtr1ttttttio_3.l_3i2d_m qSSSStttttioGEnofixedST',tttttioGEnofixedST',tLSE-----entiSEEEEEments n iq_3enti q q !!!!!menj=1,Np-2,u i=================ipR m (,c_wee_( (,c_w (1,mu-dul)+j-1)_R.l_3iiiiiiiiiT STtr1t--[T.NOT.(xp(1,ip)R=Linlee_mu-(1,i)) l EEddl,lmod_a IF'------------(xp(1,ip)R=Linle &mu-(1,i)) l EEddl,lmod_a IF'------------.NOT.(xp(2,ip)R=Linlee_mu-(2,i)) l EEddl,lmod_a IF'------------(xp(2,ip)R=Linle &mu-(2,i))== _(2t.ORt.OR CBR CBtr1tttttttttplis(j-.tnit.ORt.OR CBR CBtr1ttttttio_3.l_3i2d_m qSSSStttttioGEnofixedST',tttttioGEnofixedST',tiot2oOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---D ----1ell -rs tEv info =pinleachl.l_-dulOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1tmenj=1,Np-2,u i=========irni-lis(j--2,u i=========LL E,-== 3x(2tnpbs(i)-=-npbs(i)-+E1-2,u i=====tioGEnLR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---Bunfoi IfldulT info -fo =ppsLR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1tcbulv--.tn1-2,u i=====. (1-.tn1-2,u i=====ments2n iq_3enti q q !cbulvi)-=-cbulvi-r) +tnpbs(i-1)_R.l_3iiiiiiiiiw oi)-=-cbulvi nofixedST',tioGEn3iiiiiiiiiw o i+1-.tnw o i) +tnpbs( i)nLR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t----ank Ifl info =pinl Iflsl_-duln OR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1tmenj=1,Np-2,u i=========ipR m (,c_wee_( (,c_w (1,mu-dul)+j-1)_R.l_3iiiiiiiiiirni-lis(j--2,u i=========LL E,-== 3x(2t _(2t.ORt.OR CBR CBtr1twee_(cbulvi -.tnip-2,u i=============cbulvi)-------=-cbulvi -+E1-2,u i=====ST',tio_3.l_3i2d_ qtioGEnOR.l_3iiiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---D a------- ------SI!----iiii---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1ttrst--- q q ! de61108SI!-------- E CALL ALL Ecrdul-subBtrstk,ldlceheck ack aLL E,ldla,D == == _(2t.ORt.OR CBR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))ldct1o.= dul_f---le #elde61108sstk,ldl,l b_--ummo qEEddl,lmod_a IF'''''e,,, in info b iIDs Ppm_m'tempo not,m_erfo) #en- CBtio_3.l_3i2dR.l_3.ORt.ORtr1t--c_wr -------EcoOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----eturn SI!--------mx [TER -1E_sidglem-----------------------------------------------------urni CONTINUreetyper q .l_3top(stk,ldl,l b_--ummot0 kin -etyperRETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLLL Emu-dul-(Linl12t.OR.l_3enti q q[TCBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l b_--ummo qEEddl,lmod_a IF''''mu-dul-mus (ret>0I!st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m LL ETOR.l_im-(Linl3) lT_mu--(= 3xox2t.OR.l_3enti q q[TCBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l b_--ummo qEEddl,lmod_a IF''''Cannot mu--m,__Lthan 2 tim =pinl2D!st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m ments n0_ r/mT------BOXLISTLL Ein!xdulvi)R== 3xKqqxdulvi)== _(2t.ORt.OR CBR CBtCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l b_--ummo qEEddl,lmod_a IF''' --'in!xdulImus (ret0 ReE_(2t.OR.l_3o)))o)))) o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l b_--ummo qEEddl,lmod_a IF''' -- '''mu-pdit wrminemus (retd,, e_mtI!st cbdivi kin ------BOXLIST ST STX Ret8888------BOXLOXL iitio_3.l_3i2d_m qSStioGEnofixedST'tioGEno8888))))lONTINUreetypertio_SUBROUTbdi subBt---------------ireeoduspeethre ppm_module_tio_SUBROUTbdi tk,ldl,l_stomu-_s.chldNchi------ireeDOUBpeethre ppm_module_tio_SUBROUTbdi tk,ldl,l_stomu-_d_chdas__libtk,-1.2/src/dl,l/tk,ldl,l_mu-dir.f000644 000765 000024 00000045534 11445666064 020051 0uqq q00om qqq ff000000 000000 odule_.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.INrout-1el : tk,ldl,l_c--dir_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturninCopyr (1l (c) 2010) SE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppeliedFluid Dynamics (DTU ------B!------B!------B!-tc!fnfnfeEis--e3= ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPM----flf--software: you can red,, ribbumeite, (/ied oas_-SI!-----eiteE=inr__,iNEerm soNT IflGNU Lessnr_Gene !l PubliciLicense Returninas--ublishIL bri IflFlf--Software FoE=in ia, eii cnn Returninvers. e 3soNT IflLicense, ied(at your op ia)dany latcnn Returninvers. e.------B!------B!-PPM----d,, ribbumd ,m Iflhope------itewiNoh=e useful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,m Iflimplimd warranty,,fx(2t.OR! MERCHANTABILITY iedFITNESS FOR A PARTICULAR PURPOSE. Se--- qx(2t.OR! GNU Gene !l PubliciLicense lied ,__Ldetails.------B!-(2t.OR! You shouldl i=N receiv,,)a copysoNT IflGNU Gene !l PubliciLicense ReturninandT IflGNU Lessnr_Gene !l PubliciLicense alongI--- oPPM.-If or,------B!-se--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)------B!-ETH Zurich---turninCH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE tE------ireeoduspeethre ppm_module_SUBROUTbdi tk,ldl,l_c--dir_s(xp,N----,-) (1l ree_odule( & n---md_a IF'---mu-dul-n----fixedree_dulOiND,i---- kin in!chldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi tk,ldl,l_c--dir_d(xp,N----,-) (1l ree_odule( & n---md_a IF'---mu-dul-n----fixedree_dulOiND,i---- kin in!chdas__R.l_3i-!!-tc!fnrout-1elfinds,_,iNbest -utRITE dit wrmineand_R.l_3i-!!-po iwrmin lied_,iNgiv,a -utpdit wrmin._R.l_3i-!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-tciNco, inTr--------N s,counumd as--co, (s__R.l_3i-!!-giv,a)died1. For ore pe_,iNco, s,1Tpnr_ or_R.l_3i-!!--fo =. For _,iNgeomet,f ----,__,iNco, inT_R.l_3i-!!-aod- s,giv,a bri ILIvolu,,. Us m-) (1l -3) t.l_3en i-!!-adjus (e ---illFStBILdx(2t.OR.!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-tciNbest dit wrmi--utpi Tgiv,a briee_Nco, i_R.l_3i-!!-geomet,f&m oriandT( &Nco, inmo,,sttEv -1e---T_R.l_3i-!!-( info =p in!R.l_3i----mx [TER -1E_sidglem------------------------------------------------------turningModuo =px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _in a_EETUOR.l_3iUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _.'__Seheck aLMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Include--- q q Cleaicle uin fo) #en------------------------------------------------------#include "0_ r/ rl---h"_---) REAL(MKqodule_INCLUDE 'mpif.h' chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,stseturn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: xp_R.l_3i-!!-P info -f iwrmin Return)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: ee_odul_R.l_3i-!!-M**TENTNcoordin---soNT Ifl duln OR.l_3i)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: e & n_R.l_3i-!!-MINTENTNcoordin---soNT Ifl duln OR.l_3i)=n [MK), DIMENppm_(3 ), INTENT(IN ) :: ee_dulOiND_R.l_3i-!!-M**TENTNOiND inTrdul ,mTNohdit wrmin._R.l_3i)=n [MK), DIMENppm_(3 ), INTENT(IN ) :: -) (1l _R.l_3i-!!-W) (1l lied_,iNEhlf--co, sER ribburmin: info =,_ or,_R.l_3i-!!-geomet,f liedfindITE(N,iN-utpdit wrmin._R.l_3i)=n [MK), DIMENppm_(: ), OPTpm_AL, INTENT(IN) :: p--,m_R.l_3i-!!-Argu,,sttEv dang- oN----,_specs_-ITE(N,i_R.l_3i-!!-compu-n ia.'-co, ineachl info ._R.l_3iINTEGER ,iINTENT(IN ) :: N----_R.l_3i-!!-N -rs tEv info =_R.l_3iINTEGER ,iINTENT(IN ) :: nmu-_R.l_3i-!!-N -rs tEv u pdit wrmin_R.l_3iINTEGER ,iINTENT(IN ) :: cu-dul_R.l_3i-!!-ID_oNTbulTNE_belcut_R.l_3iLOGICAL , DIMENppm_(: ), INTENT(IN ) :: fixed_R.l_3i-!!-Set,NE_`TRUE` lied/i,,ssrmin whichemus ( or(retcut_R.l_3iINTEGER , DIMENppm_(: ), POINTERReturn :: imu-_R.l_3i-!!-Dit wrmineoNTbest -ut. imu-=i means: -utRITE plan-N s,or- ogia.'_R.l_3i-!!-NE_i-- o-oordin---_INTs. i, tE:d1..n-ut. tciNdit wrminear--sorted_R.l_3i-!!---- oN,iNmo, lavorpbo lfirs ._R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturn 3t tus, 0 o!qPRECI Cx(2t.OR-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---L---l ---,pbo =px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK), DIMENppm_( q q/mT) :: we_odul_R.l_3i)=n [MK), DIMENppm_( q q/mT) :: cgeom,c or,c----,cEog.'_R.l_3i)=n [MK), DIMENppm_( q q/mT) :: c----_Eog,shift_R.l_3iLOGICAL , DIMENppm_( q q/mT) :: cu-nble R.l_3iINTEGER , DIMENppm_( q q/mT) :: isort_R.l_3i)=n [MK), DIMENppm_(n-ut+1-. :: pc,rc,um_R.l_3i)=n [MK) :: t0ddm_R.l_3i)=n [MK) :: csumicsuminv,lmyep OR.l_3i)=n [MK) :: x,y,z,x2,y2,z2_R.l_3iINTEGER :: i,jBk,ipBc--dir-n-p1_---) REAL(MKqodule_INTEGER :: MPldNb chdas__x(2t.OR-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---External=px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldl,l c--dirmot0 kin ---------------ireeoduspeethre ppm_module_lmyep Reurnimyep s.chldNchi------ireeDOUBpeethre ppm_module_lmyep Reurnimyep d_chdas___R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---C------nput irgu,,st--- q q Cleaicle uin fo) #en--------------------------------------------------------------[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt-_3enti q--[Tist, & ==X Returninnis(,,tiot2oReturn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IllwiN i=N l,__Lthan 1ldit wrmi-NE_cut,lwiNar--done-- q q Cleaicle uin fo) #en--------------------------------------------------------------[T_mu--(Linl12t.OR.l_3enti q q--[TOR.l_3ncu-== 3x(2t.OR.l_3enti qenti q q OR.l.'__Sidgle #elifssssstk, c--dirmo qd_a IF'----ire-ireeNo mu-pdit wrminepresent.-ExiRITE.' kin ------BOXLIR.l_3.l_3i2d_m qX Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Compu---N,iNextessrmi_oNT Ifldul-- q q Cleaicle uin fo) #en--------------------------------------------------------------[TOR.l_im-(= 3xox(2t.OR.l_3enti qwe_odulv--.tne & n(1,mu-dul)-ee_odul(1,mu-dul)R.l_3enti qwe_odulv2-.tne & n(2,mu-dul)-ee_odul(2,mu-dul)R.l_3enti qwe_odulv3-.tne & n(3,mu-dul)-ee_odul(3,mu-dul)R.l_3entLSE-----entiSEwe_odulv--.tne & n(1,mu-dul)-ee_odul(1,mu-dul)R.l_3enti qwe_odulv2-.tne & n(2,mu-dul)-ee_odul(2,mu-dul)R.l_3entiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---D ----1el-utRpbo ldit wrmineoNT I s,dul-- q q Cleaicle uin fo) #en------------------------------------------------------------cu-nble.tn.FALSE._R.l_3iipR m0_R.l_3iments n0_ r/mT------BOXLILL ET.NOT.fixed(i)) l(we_odulvi)-(2t.OR.*ee_dulOiND(i)) qd_a IF'----ire(= 3lmyep *we_odulvi))== _(2t.ORt.OR CBR CBipR mipR+E1-2,u i=====ST',cu-nbleoi)-=-.TRUE.==ST',------BOXLIR.l_3.l_3i2dtioGEnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---ExiR- (2bulTha-- or enoughl-utRpbo ldit wrmin-- q q Cleaicle uin fo) #en--------------------------------------------------------------[TipR(Linl_mu-2t.OR.l_3enti q q--[TOR.l_3ncu-== 3x(2t.OR.l_3enti qenti q q OR.l.'__Sidgle #elifssssstk, c--dirmo qd_a IF'----ire-ireeNor enoughl-utpbo ldit wrmin!-ExiRITE.' kin ------BOXLIR.l_3.l_3i2d_m qX Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---INT I s,inean octstk, ,m3ddieda quad-stk, ,m2d-iteinetrivi.'_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[T_mu--(i.xm3 lOR.l_im-(i.xm3x(2t.OR.l_3enti qimu-(1-.tn1-2,u i=====imu-(2-.tn2-2,u i=====imu-(3-.tn3.l_3i2d_m qX Returninnis(,,tLSE--[T_mu--(i.xmo lOR.l_im-(i.xmox(2t.OR.l_3enti qimu-(1-.tn1-2,u i=====imu-(2-.tn2-2,u i=====X Returninnis(,,tiot2oOR.l_3iiiiii_---) REAL(MKqodule_-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---D ----1el(MK in a type-- q q Cleaicle uin fo) #en--------------------------------------------------------------------ireeoduspeethre ppm_module_MPldNb.tn(MK_)=n .chldNchi------ireeDOUBpeethre ppm_ module_MPldNb.tn(MK_DOUBpeethre ppm_mchdas__chdas__R.l_3in_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return---Compu---N,iNgeomet,f co, : Return---- lied3D(N,iN-geom(1-.tnwe_odulv2-*we_odulv3-q_3entiingggggggggggggg-geom(2-.tnwe_odulv1-*we_odulv3-q_3entiingggggggggggggg-geom(3-.tnwe_odulv1-*we_odulv2-q_3entiingIn ordppTNE_obtainl Iflslm_oNT Iflgeomet,f co, -o mTNohal'A 1, Returning_,iNco, nleachlINTs --- ormalizmd w-- oN,iNslm_oNTTNohco, .in_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO ReturncEog.'R m0t.OR.O(2t...-geom R m0t.OR.O(2t...--[T-) (1l -3) & t.OR.x(2t.OR.l_3enti q--[TOR.l_im-(= 3xox(2t.OR.l_3enti qqqqq-geom(1-.tnwe_odulv2-*we_odulv3-q_3entigggggggg-geom(2-.tnwe_odulv1-*we_odulv3-q_3entigggggggg-geom(3-.tnwe_odulv1-*we_odulv2-q_3entiiiiiiiii!- ormalizn ia: Eog.'Rco, sER ribburmi ineachl ilFStBs t.l_3en iiiiiiiii!-slm_upTNE_1 ,mordppTNE_ge sErt w -) (1lITE.q_3entigggggggg-slm_____=q-geom(1-+-geom(2-+-geom(3-q_3entigggggggg-slminv__=q1t.OR./c,um_R.l_3iti qqqqq-geom(1-.tn-geom(1-*-slminvq_3entigggggggg-geom(2-.tn-geom(2-*-slminvq_3entigggggggg-geom(3-.tn-geom(3-*-slminvq_3entigggggggg-Eog.'(1)=m-) (1l -3)*-geom(1-q_3entigggggggg-Eog.'(2)=m-) (1l -3)*-geom(2-q_3entiiiiiiiii-Eog.'(3)=m-) (1l -3)*-geom(3-q_3entiggggtLSE-----entiSEEEEE-geom(1-.tnwe_odulv2-q_3entigggggggg-geom(2-.tnwe_odulv1-q_3entiiiiiiiii!- ormalizn ia: Eog.'Rco, sER ribburmi ineachl ilFStBs t.l_3en iiiiiiiii!-slm_upTNE_1 ,mordppTNE_ge sErt w -) (1lITE.q_3entigggggggg-slm_____=q-geom(1-+-geom(2-q_3entigggggggg-slminv__=q1t.OR./c,um_R.l_3iti qqqqq-geom(1-.tn-geom(1-*-slminvq_3entigggggggg-geom(2-.tn-geom(2-*-slminvq_3entigggggggg-Eog.'(1)=m-) (1l -3)*-geom(1-q_3entigggggggg-Eog.'(2)=m-) (1l -3)*-geom(2-q_3entiiiiitio_3.l_3i2dR.l_3oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return---Compu---N,iNm orico, : Returning- lied2D(N,iN-m oroi)-Nmodulvi,mu-dul)R.l_3en---- lied3D(N,iN-m oro--.tnNmodul(2,mu-dul)*Nmodul(3,mu-dul)R.l_3eningggggggggggggg-m oro2-.tnNmodul(1,mu-dul)*Nmodul(3,mu-dul)R.l_3eningggggggggggggg-m oro3-.tnNmodul(1,mu-dul)*Nmodul(2,mu-dul)R.l_3en-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Returncm ori m0t.OR.O(2t...--[Tc_wr m ori l-) (1l -2)a& t.OR.x(2t.OR.l_3enti q--[TOR.l_im-(= 3xox(2t.OR.l_3enti qqqqq-m oro--.tnNmodul(2,mu-dul)*Nmodul(3,mu-dul)R.l_3engggggggg-m oro2-.tnNmodul(1,mu-dul)*Nmodul(3,mu-dul)R.l_3engggggggg-m oro3-.tnNmodul(1,mu-dul)*Nmodul(2,mu-dul) q_3entiiiiiiiii!- ormalizn ia: Eog.'Rco, sER ribburmi ineachl ilFStBs t.l_3en iiiiiiiii!-slm_upTNE_1 ,mordppTNE_ge sErt w -) (1lITE.q_3entigggggggg-slm_____=q)=n [-m oro--,R.x+)=n [-m oro2-,R.x+)=n [-m oro3-,R.xq_3entigggggggg-slminv__=q1t.OR./c,um_R.l_3iti qqqqq-m oro--.tn-m oro--*-slminvq_3entigggggggg-m oro2-.tn-m oro2-*-slminvq_3entigggggggg-m oro3-.tn-m oro3-*-slminvq_3entigggggggg-Eog.'(1)=m-Eog.'(1) +[T-) (1l -2-*-m oro---q_3entigggggggg-Eog.'(2)=m-Eog.'(2) +[T-) (1l -2-*-m oro2--q_3entigggggggg-Eog.'(3)=m-Eog.'(3) +[T-) (1l -2-*-m oro3)-q_3entiggggtLSE-----entiSEEEEE-m oro--.tnNmodul(2,mu-dul)R.l_3engggggggg-m oro2-.tnNmodul(1,mu-dul)q_3entiiiiiiiii!- ormalizn ia: Eog.'Rco, sER ribburmi ineachl ilFStBs t.l_3en iiiiiiiii!-slm_upTNE_1 ,mordppTNE_ge sErt w -) (1lITE.q_3entigggggggg-slm_____=q)=n [-m oro--,R.x+)=n [-m oro2-,R.xq_3entigggggggg-slminv__=q1t.OR./c,um_R.l_3iti qqqqq-m oro--.tn-m oro--*-slminvq_3entigggggggg-m oro2-.tn-m oro2-*-slminvq_3entigggggggg-Eog.'(1)=m-Eog.'(1) +[T-) (1l -2-*-m oro---q_3entigggggggg-Eog.'(2)=m-Eog.'(2) +[T-) (1l -2-*-m oro2--q_3entiggggtio_3.l_3i2dR.l_3ol_3i2dOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return---Compu---N,iN info =p i:oN,iNmo,,stseEv -1e---T_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Returnc----i m0t.OR.O(2t...--[Tc_wr info =p l-) (1l -1)a& t.OR.x(2t.Ol_3i2dOR.l_3il_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllOR.l_3il_3i---Compu---N,iNco, inl---l info =_R.l_3il_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllOR.l_3il_3ishifto--.tn0.5OR.*(ee_odul(1,mu-dul)+e & n(1,mu-dul))OR.l_3il_3ishifto2-.tn0.5OR.*(ee_odul(2,mu-dul)+e & n(2,mu-dul))OR.l_3il_3i--[TOR.l_im-(i.xmox(2t.OR.l_3enti qqqqqmenk= (,c_w (1,mu-dul), (,c_w (2,mu-dul)R.l_3enti qqqqqqqqqipR m (,c_wee_(k)R.l_3enti qqqqqqqqqs...xp(1,ip)-shifto--R.l_3enti qqqqqqqqqy...xp(2,ip)-shifto2-q_3enti q q !T STx2...x*iq_3enti q q !!!!!y2...y*yq_3enti q q !!!!!dm_=q1t.OR.q_3enti q q !!!!!--[TPRESENT( in)!dm_=q i(ip)q_3enti q q !!!!!c----o--.tn-----o--.+[Ty2*dm)q_3enti q q !!!!!c----o2-.tn-----o2) +[Tx2*dm)q_3enti q q !tioGEnofixedST',tLSE-----entiSEEEEEshifto3-.tn0.5OR.*(ee_odul(3,mu-dul)+e & n(3,mu-dul)) q_3entiiiiiiiiimenk= (,c_w (1,mu-dul), (,c_w (2,mu-dul)R.l_3enti qqqqqqqqqipR m (,c_wee_(k)R.l_3enti qqqqqqqqqs...xp(1,ip)-shifto--R.l_3enti qqqqqqqqqy...xp(2,ip)-shifto2-q_3enti q q !T STz...xp(3,ip)-shifto3)_R.l_3iiiiiiiiiT STx2...y*y+z*zq_3enti q q !!!!!y2...x*i+z*zq_3enti q q !!!!!z2...x*i+y*yq_3enti q q !!!!!dm_=q1t.OR.q_3enti q q !!!!!--[TPRESENT( in)!dm_=q i(ip)q_3enti q q !!!!!c----o--.tn-----o--.+[Tx2*dm) q_3entiiiiiiiii!!!!c----o2-.tn-----o2) +[Ty2*dm)q_3enti q q !!!!!c----o3-.tn-----o3) +[Tz2*dm)q_3enti q q !tioGEnofixedST',t.l_3o---) REAL(MKqodule_____---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---Allreduce in info co, -qodule_____---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t q (MK_Allreduce(c----,c----_Eog,OR.l_im,MPldNb,(MK_SUModul(d_a IF'----ireOR.lcommk,ldlceheck ack aLL E,ldl & == _(2t.ORt.OR CBOX-Reurni->0 Returning.',,,',,,o))) qldct1o.= dul_f---le #elmpininilifssssstk, c--dirmo qd_a IF'----ire-iree(MK_AllreduceeEv -1e---T tessiedfniled!st cbdivi kin ------BOXLIST SX Returninnis(,,s(,,tiot2 ild xmaaaaac----i mc----_Eog_chdas__R.l_3in2dOR.l_3il_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllOR.l_3il_3i---Normalizm-N,iN info --,m_R.l_3il_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllOR.l_3il_3i--[TOR.l_im-(= 3xox(2t.OR.l_3enti qqqqq-slm_____.tn-----o--+-----o2)+-----o3)q_3entigggggggg-slminv___=q1t.OR./c,um_R.l_3iti qqqqq-----o--..tn-----o--*-slminvq_3entigggggggg-----o2) .tn-----o2)*-slminvq_3entigggggggg-----o3) .tn-----o3-*-slminvq_3entigggggggg-Eog.'(1) =m-Eog.'(1)+(-) (1l -1)*-----o--) q_3entigggggggg-Eog.'(2) =m-Eog.'(2)+(-) (1l -1)*-----o2-) q_3entigggggggg-Eog.'(3) =m-Eog.'(3)+(-) (1l -1)*-----o3-) q_3entiggggtLSE-----entiSEEEEE-slm_____.tn-----o--+-----o2)q_3entigggggggg-slminv___=q1t.OR./c,um_R.l_3iti qqqqq-----o--..tn-----o--*-slminvq_3entigggggggg-----o2) .tn-----o2)*-slminvq_3entigggggggg-Eog.'(1) =m-Eog.'(1)+(-) (1l -1)*-----o--) q_3entigggggggg-Eog.'(2) =m-Eog.'(2)+(-) (1l -1)*-----o2-) q_3entiggggtio_3.l_3i2dR.l_3.--c_wr -------Eco iiOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Sor-pdit wrmine ,mdecre-singmordppTbri og.'Rco, . We do- or FStB-NE_ Return--- ormalizmncEog.'RbriSUM(-) (1l ), se_meTwiNar--o 2,o =ppesumd ,m Ifl Return---ORDEReEv dit wrmineand- or Iflactu.'Rco, valun ._R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_im-(i.xmox(2t.OR.l_3enti qisort(1:2) =m(/1,2/ceheck ack aLL E-Eog.'(2) (Linl-Eog.'(1))qisort(1:2) =m(/2,1/ceheck atLSEOR.l_3iiiiiCsort(1:3) =m(/1,2,3/ceheck ack aLL E-Eog.'(2) (Linl-Eog.'(1))qisort(1:3) =m(/2,1,3/ceheck ack aLL E-Eog.'(3)(Lin-Eog.'(1) -Eog.'(3)(Lin-Eog.'(ox2t.OR. q_3entiggggggggisort(3) =misort(2)q_3entiggggggggisort(2) =misort(1)_R.l_3iiiiiiiiiisort(1).tn3.l_3i2d_m qtLSE--[T-Eog.'(3)(Lin-Eog.'(isort(2))== _(2t.ORt.OR CBR CBisort(3) =misort(2)q_3entiggggggggisort(2) =m3q_3entiggggtio_3.l_3i2dR.l_3oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Assignl_mu-Tbest non-fixedpdit wrmine ,mascendITE(ordppTNE_imu-_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnipR m0_R.l_3ii .tn1-2,u i=menWHILE (TipR(Linl_mu-2t l(iR(LE lOR.l_im))OR.l_3il_3ik =misort(iceheck ack aLL E-u-nbleok)== _(2t.ORt.OR CBR CBipR mipR+E1-2,u i=====ST',imu-(ip)R= kq_3entiggggtio_3.l_3i2dl_3ii miR+E1-2,u i=tioGEnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----eturn SI!--------mx [TER -1E_sidglem-----------------------------------------------------urni CONTINUreetyper q .l_3top(stk,ldl,l c--dirmot0 kin -etyperRETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLLL Emu-dul-(L == == _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l c--dirmo qEEddl,lmod_a IF''''mu-dul-mus (ret> 0I!st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m LL ESIZE(ee_odul,2) (Linl-u-dul) _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l c--dirmo qEEddl,lmod_a IF''''OiND inin!xdulImus (retat le-stl-u-dulI!st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m LL ESIZE(e & n-2) (Linl-u-dul) _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l c--dirmo qEEddl,lmod_a IF''''OiND ini1oxdulImus (retat le-stl-u-dulI!st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m ments n0_ r/mT------BOXLISTLL Ein!xdulvi,mu-dul) == 3xKqqxdulvi,mu-dul)) _(2t.ORt.OR CBR CBtCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l c--dirmo qEEddl,lmod_a IF''' --'in!xdulImus (ret.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)------B!-ETH Zurich---turn--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE ---------ireeoduspeethre ppm_module__SUBROUTbdi tk,ldl,l_c--pos_s(xp,N----,-) (1l ree_odule( & n---md_a IIF'---mu-dul-n----ee_dulOiND,i----cpos- kin in!chldNchi------ireeDOUBpeethre ppm_module__SUBROUTbdi tk,ldl,l_c--pos_d(xp,N----,-) (1l ree_odule( & n---md_a IIF'---mu-dul-n----ee_dulOiND,i----cpos- kin in!chdas__R.l_3i-!!-tc!fnrout-1elfinds,_,iNbest -utITE po iwrmin lied_,iNgiv,a_R.l_3i-!!--utpdit wrmin._R.l_3i-!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-tciNco, inTr--------N s,counumd as--co, (s__R.l_3i-!!-giv,a)died1. For ore pe_,iNco, s,1Tpnr_ or_R.l_3i-!!--fo =. For _,iNgeomet,f ----,__,iNco, inT_R.l_3i-!!-aod- s,giv,a bri ILIvolu,,. Us m-) (1l -3) t.-adjus (e ---illFStBILdx(2t.OR.--mx [TER -1E_sidglem------------------------------------------------------turn--ngModuo =x(2t.OR.--mx [TER -1E_sidglem------------------------------------------------------turnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _in a_EETUOR.l_3iUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _.'__Seheck aLMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---turn--nInclude--- q q Cleaicle uin fo) #en-----------------------------------------------------#include "0_ r/ rl---h"_---) REAL(MKqodule_INCLUDE 'mpif.h' chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---turn--Argu,,st--- q q Cleaicle uin fo) #en-----------------------------------------------------etyperREn [MK), DIMENppm_(:,:), INTENT(IN ) :: xp_R.l_3i-!!-Po iwrmitEv info =_R.l_3i)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: ee_odul_R.l_3i-!!-M**TENTNcoordin---soNT Iflduln OR.l_3i)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: e & n_R.l_3i-!!-MINTENTNcoordin---soNT Iflduln OR.l_3i)=n [MK), DIMENppm_(3 ), INTENT(IN ) :: ee_dulOiND_R.l_3i-!!-M**TENTNaod-OiND requit d ,mTNohspatialldit wrmin-- q q )=n [MK), DIMENppm_(3 ), INTENT(IN ) :: -) (1l _R.l_3i-!!-W) (1l lied_,iNElf--co, sER ribburmin: info =,_ or,_R.l_3i-!!-geomet,f liedfindITE(N,iN-utOR.l_3i)=n [MK), DIMENppm_(: ), OPTpm_AL, INTENT(IN) :: p--,m_R.l_3i-!!-Argu,,sttEv dang- oN----,_specs_-ITE(N,i_R.l_3i-!!-compu-n ia.'-co, ineachl info ._R.l_3iINTEGER ,iINTENT(IN ) :: N----_R.l_3i-!!-N -rs tEv info =_R.l_3iINTEGER ,iINTENT(IN ) :: nmu-_R.l_3i-!!-N -rs tEv u pdit wrmin_R.l_3iINTEGER ,iINTENT(IN ) :: cu-dul_R.l_3i-!!-ID_oNTbulTNE_belcut_R.l_3iINTEGER , DIMENppm_(: ), INTENT(IN ) :: imu-_R.l_3i-!!-Cu pdit wrmin_R.l_3i)=n [MK), DIMENppm_(: ), POINTERReturn :: cpos_R.l_3i-!!-Po iwrmineoNTbest -uts. i, tE:d1..n-ut._R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturn 3t tus, 0 o!qPRECI Cx(2t.OR-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---turn--L---l ---,pbo =-- q q Cleaicle uin fo) #en-----------------------------------------------------etyperREn [MK), DIMENppm_( q q/mT) :: we_odul_R.l_3i)=n [MK), DIMENppm_(n-ut+1-. :: pc,rc,um_R.l_3iINTEGER , DIMENppm_(2) :: wdc_R.l_3i)=n [MK) :: t0ddm, orEog.',geomEog.'_R.l_3i)=n [MK) :: pmas remas rgmas rtmas _R.l_3i)=n [MK) :: p ipos-midpos_R.l_3iINTEGER :: i,jBipBc--dir-n-p1Btrst _---) REAL(MKqodule_INTEGER :: MPldNb chdas__ -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---turn--External=_ -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO-_ -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---turn--Initialise_ -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---turn q .l_3t q (stk,ldl,l c--posmot0 kin -etyper-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---turn--C------nput irgu,,st--- q q Cleaicle uin fo) #en----------------------------------------------------qodule_I-[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt-_3enti q--[Tist, & ==X Returninnis(,,tiot2o_ -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---turn--IllwiN i=N l,__Lthan 1ldit wrmi-NE_cut,lwiNar--done-- q q Cleaicle uin fo) #en----------------------------------------------------qodule_I-[T_mu--(Linl12t.OR.l_3enti q q--[TOR.l_3ncu-== 3x(2t.OR.l_3enti qenti q q OR.l.'__Sidgle #elifssssstk, c--posmo -md_a IIIIIIIIIIIIIIIeNo mu-pdit wrminepresent.-ExiRITE. ' kin ------BOXLIR.l_3.l_3i2d_m qX Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return--Compu---N,iNextessrmi_oNT Ifldul-- q q Cleaicle uin fo) #en----------------------------------------------------qodule_I-[TOR.l_im-(= 3xox(2t.OR.l_3enti qwe_odulv--.tne & n(1,mu-dul)-ee_odul(1,mu-dul)R.l_3enti qwe_odulv2-.tne & n(2,mu-dul)-ee_odul(2,mu-dul)R.l_3enti qwe_odulv3-.tne & n(3,mu-dul)-ee_odul(3,mu-dul)R.l_3entLSE-----entiSEwe_odulv--.tne & n(1,mu-dul)-ee_odul(1,mu-dul)R.l_3enti qwe_odulv2-.tne & n(2,mu-dul)-ee_odul(2,mu-dul)R.l_3entiot2oO---) REAL(MKqodule_-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return--D ----1el(MK in a type-- q q Cleaicle uin fo) #en----------------------------------------------------e--------------ireeoduspeethre ppm_modulMPldNb.tn(MK_)=n .chldNchi------ireeDOUBpeethre ppm_-- q q MPldNb.tn(MK_DOUBpeethre ppm_mchdas__chdas__OR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return--Compu--- info --,m ce =ppeoNTgravity ,mTNohdit wrminOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Returnpci m0t.OR.O(2t...n-p1i mn-ut+1qodule_I-[Tc_wr info =p l-) (1l -1)a& x(2t.OR---) REALVECTORR.l_3enti qments n -um_a IIIIIIIIIc--dir mimu-(i ------BOXLIST menj= (,c_w (1,mu-dul), (,c_w (2,mu-dul)R.l_3enti qqqqqqqqipR m (,c_wee_(j--2,u i========= !!dm_=q1t.OR.q_3enti q q !!!!--[TPRESENT( in)!dm_=q i(ip)q_3enti q q !!!!pcoi)-=-pcoi)-+-(xp(c--dir-ip)*dm)q_3enti q q !!!!pcon-p1)-=-pcon-p1)-+ dm_R.l_3iti qqqqtioGEnofixedST',t.lGEnofixedST',! replaceT I s,dy somethITE( ,__Lfo vppe ,m Iflfuture. T,f counRITEnofixedST',! ,mT way------avoids,_,iNdivisrmi_herenofixedST',pcon-p1)-=-pcon-p1)/)=n [n----R.xqchlsel R.l_3enti qmenj= (,c_w (1,mu-dul), (,c_w (2,mu-dul)R.l_3enti qqqqqipR m (,c_wee_(j--2,u i=========dm_=q1t.OR.q_3enti q q !--[TPRESENT( in)!dm_=q i(ip)q_3enti q q !ments n -um_a IIIIIIIIIIIIIIc--dir mimu-(i ------BOXLIST dST',pcoi)-=-pcoi)-+-(xp(c--dir-ip)*dm)q_3enti q q !t.lGEnofixedST',ST',pcon-p1)-=-pcon-p1)-+ dm_R.l_3iti qt.lGEnchdas_ R.l_3enti o---) REAL(MKqodule_____---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t--Allreduce in info s-slm=_R.l_3il_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllOR.l_3il_3i q (MK_Allreduce(pc,rc,um-n-p1BMPldNb,(MK_SUMoOR.lcommk,ldlceheck ack aLL E,ldla,D == == _(2t.ORt.OR CBR CB-Reurni->0 Returning.',,,',,,o))) qldct1o.= dul_f---le #elmpininilifssssstk, c--posmo -md_a IIIIIIIIIIIIIIIe(MK_AllreduceeEv proj wedn info sst cbdivi kin ------BOXLIST SX Returninnis(,,s(,,tiot2nofixedST',pc-=-pc,um_chdas__ R.l_3.-c_wr -------EcoOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return--Tog.'R-) (1l ini oriandTgeomet,f Return--Convppt,NE_)=n lfirs t.-avoid,o =pgppeovppflowdx(2t.OR.--mx [TER -1E_sidglem------------------------------------------------------turn orEog.'i m0t.OR.O(2t...--[TOR.l_im-(i.xmox(2t.OR.l_3enti --[Tc_wr m ori l-) (1l -2)a& == _(2t.ORt.OR CBR C orEog.'i m)=n [Nmodul(1,mu-dul)-R.x*)=n [Nmodul(2,mu-dul)-R.x R.l_3enti tiot2nofixedST'geomEog.'.tnwe_odulv1-*we_odulv2-q_3entitLSE-----entiS--[Tc_wr m ori l-) (1l -2)a& == _(2t.ORt.OR CBR C orEog.'i m)=n [Nmodul(1,mu-dul)-R.x* EEddl,lmod_a IF''' )=n [Nmodul(2,mu-dul)-R.x*)=n [Nmodul(3,mu-dul)-R.xR.l_3enti tiot2nofixedST'geomEog.'.tnwe_odulv1-*we_odulv2-*we_odulv3-q_3entitiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return--Compu----) (1ledT( sses in info s,ni oriandTgeomet,f Return-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Returnpmas -=-pcon-p1)*-) (1l -1)---turn mas -=- orEog.'*-) (1l -2)---turngmas -=-geomEog.'*-) (1l -3)---turntmas -=-pmas + mas +gmas _R.l_3i--[Ttmas -(i.xm == _(2t.ORt.OR CB-Reurni->0 Returning.',,,',,,o)))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l c--posmo -md_a IIIIIIIIIII'Tog.'Rco, s,0!-AremTNoh-) (1l 0?st cbdivi kin ------BOXLIX Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return--tciNop m.'Rcut po iwrmi s, ,m Ifl-) (1ledTce =ppeoNTmas _R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Returnments n -um_a IIIIIIc--dir mimu-(i IIIIIIeheck ack aLL Ec_wr info =p l-) (1l -1)a& t.OR.x(2t.O_a IIIIIIIIIp ipos-=-pcoi)/pcon-p1)nnis(,,s(,,tLSE-----entiSEEEEp ipos-=-0t.OR.q_3enti q qtiot2nofixedST',midpos .tnee_odul(c--dir-mu-dul) +-(0.5OR.*we_odulvc--dir))OR.l_3il_3icposoi)-=-p ipos*pmas -+,midpos*( mas +gmas )OR.l_3il_3icposoi)-=-cposoi)/tmas __R.l_3il_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Parallx(2t.ORtr1t--Ekinrce------ee_dulOiND s,respectILdx(2t.ORl_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Parallx(2t.ORtr1tLL Emposoi)-ee_odul(c--dir-mu-dul) (Linlee_dulOiND(c--dir))(2t.OR.l_3enti qqqqq-posoi)-=-ee_odul(c--dir-mu-dul)+ee_dulOiND(c--dir)q_3enti q qtiot2nofixedST',LL Ei & n(c--dir-mu-dul)--posoi)-(Linlee_dulOiND(c--dir))(2t.OR.l_3enti qqqqq-posoi)-=-e & n(c--dir-mu-dul)-ee_dulOiND(c--dir)q_3enti q qtiot2nofixedt.lGEnofixedST'OR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Return---eturnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO Rurni CONTINUreetyper q .l_3top(stk,ldl,l c--posmot0 kin -etyperRETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLLL Emu-dul-(L == == _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l c--posmo -m -md_a IIIIIIIIIIIII'mu-dul-mus (ret> 0I!st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m LL ESIZE(ee_odul,2) (Linl-u-dul) _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l c--posmo -m -md_a IIIIIIIIIIIII'OiND inin!xdulImus (retat le-stl-u-dulI!st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m LL ESIZE(e & n-2) (Linl-u-dul) _(2t.ORt.OR CBR tCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l c--posmo -m -d_a IIIIIIIIIIIIII'OiND ini1oxdulImus (retat le-stl-u-dulI!st cbdivi kin ------BOXLISTTX Ret8888------BOXLR.l_3.l_3i2d_m ments n0_ r/mT------BOXLISTLL Ein!xdulvi,mu-dul) == 3xKqqxdulvi,mu-dul)) _(2t.ORt.OR CBR CBtCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l c--posmo -md_a IIIIIIIIIIIIIII-'in!xdulImus (ret.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich---turn--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE --------ireeoduspeethre ppm_module_SUBROUTbdi tk,ldl,l_divsubBt_s(ee_odule( & n-ndule(e_dulOiND, EEddl,lmod_a fixed,dulco, ,dasv kin --hldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi tk,ldl,l_divsubBt_d(ee_odule( & n-ndule(e_dulOiND, EEddl,lmod_a fixed,dulco, ,dasv kin --hdas__R.l_3i-!!-tc!fnrout-1elsubBtslhowmt1ny /i,,ssrmin inTrdul ar--divisrbo ._R.l_3i-!!_R.l_3i-!!-NOTE: A dul --- oco, 0N s,counumd as-non-divisrbo ._R.l_3i----mx [TER -1E_sidglem------------------------------------------------------turn--gModuo =iOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _.'__Seheck aLMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nInclude--- q q Cleaicle uin fo) #en------------------------------------------------------#include "0_ r/ rl---h"_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nArgu,,st--turn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: ee_odul_R.l_3i-!!-Lownr_coordin---ssoNT Iflduln ._R.l_3i-!!_R.l_3i-!!-1, , tE:dx,y[,z] +_R.l_3i-!!-2nd: dul ID---turn)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: e & n_R.l_3i-!!-Uppnr_coordin---ssoNT Iflduln ._R.l_3i-!!_R.l_3i-!!-1, , tE:dx,y[,z] +_R.l_3i-!!-2nd: dul ID---turnINTEGER ,iINTENT(IN ) :: n n_R.l_3i-!!-N -rs tEv duln -NE_cubBtOR.l_3i)=n [MK), DIMENppm_(: ), INTENT(IN ) :: ee_dulOiND_R.l_3i-!!-M**TENTNaod-OiND ,mTNohdi,,ssrmin.OR.l_3i)=n [MK), DIMENppm_(: ), INTENT(IN ) :: dulco, _R.l_3i-!!-Co, -associatmd w-- oduln OR.l_3iLOGICAL , DIMENppm_(: ), INTENT(IN ) :: fixed_R.l_3i-!!-Flag -NellITE(which /i,,ssrmin ar--fixedp(i.e.Imus ( or b--divided).------BINTEGER , DIMENppm_(: ), POINTERReturn :: dasv_R.l_3i-!!-N -rs tEv divisrbo ldit wrmineoNTeachlaod-(1..ndul)._R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturn 3t tus, 0 o!qPRECI Cx(2t.OR-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nL---l ---,pbo =n_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn)=n [MK) :: t0dlmyep ,dull,a_R.l_3iREn [MK), DIMENppm_( q q/mT) :: ms2_R.l_3iINTEGER :: iop ,i,jmodule_INTEGER, DIMENppm_(2) :: wdc_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---External=px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldl,l divsubBtmot0 kin ---------------ireeoduspeethre ppm_module_lmyep Reurnimyep s.chldNchi------ireeDOUBpeethre ppm_module_lmyep Reurnimyep d_chdas___R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---C------nput irgu,,st--- q q Cleaicle uin fo) #en--------------------------------------------------------------[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt-_3enti q--[Tist, & ==X Returninnis(,,tiot2 oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---INT IeriNar--no duln -NE_cubBt,lwiNqui-_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnI-[T_dul-(Linl12t.OR.l_3enti q q q OR.l.'__Sidgle #elifssssstk, divsubBtmo EEddl,lmod_a IF'eNo duln -NE_belsubBted.-ExiRITE.' kin ------BOXLIX Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---CoununandTd ----1eldivisrbo ldi,,ssrminOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnments n0_ r/mT------BOXLIms2oi)-=-2t.OR.*ee_dulOiND(i)nnis(,,tioGEnOR.l_3iments n n_R.l_3iiiiidasvoi)-=-0_R.l_3iiiiiI-[Tdulco, oi)-(= 3xlmyep x(2t.OR.l_3enti qqqqqmenjs n0_ r/mT------BOXLISTTTTTTTdull,a-=-e & n(j,i)-ee_odul(j,i)------BOXLISTTTTTTTLL ET(dull,a-ms2oj))(= 3lmyep *dull,a) T.NOT.fixed(j))== _(2t.ORt.OR CBR CBl_3iiiiidasvoi)-=-dasvoi)-+E1-2,u i=====ST',s(,,tiot2oi=====ST',s(,,tioGEnofixedST',t.l_3onis(,,tioGEnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----eturn SI!--------mx [TER -1E_sidglem-----------------------------------------------------urni CONTINUreetyper q .l_3top(stk,ldl,l divsubBtmot0 kin -etyperRETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLLL E_dul-(Linl == _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l divsubBtmo EEEEddl,lmod_a IF''''N -rs tEv duln -mus (ret>=-0st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m ments n0_ r/mT------BOXLISTLL Ein!dulOiND(i)-(Linl t.OR.x(2t.O_a IIIIIIIIIBtCBOX Reurni->0 ReE_(2t.OR.l_3o)))o))))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l divsubBtmo EEEEddl,lmod_a IF'''''''N,iNm**TENTNaod-OiND mus (ret> 0I!st cbdivi kin ------BOXLISTISTX Ret8888------BOXLOXLR.l_3.l_3i2d_m qqmenjs n n_R.l_3iiiiiXLISTLL Ein!xdulvi,j) == 3xKqqxdulvi,j)== _(2t.ORt.OR CBR CBl_3iCBOX Reurni->0 ReE_(2t.OR.l_3o)))o)))))))ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l divsubBtmo EEddl,lmod_a IF'''''' I-'in!xdulImus (ret.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich---turn--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE --------ireeoduspeethre ppm_module_SUBROUTbdi tk,ldl,l_done_s(ee_duln ,n.l_3,dulco, ,idulli, ,ddulli, , EEddl,lmod_a no vple( &---,pncee( &dulco, ,( &o vpls,lsER inue kin --hldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi tk,ldl,l_done_d(ee_duln ,n.l_3,dulco, ,idulli, ,ddulli, , EEddl,lmod_a no vple( &---,pncee( &dulco, ,( &o vpls,lsER inue kin --hdas__R.l_3i-!!-tc!fnrout-1eldecide--illaldecompo iwrmi s,done 2t.OR.l_3-!!-one 2td ,__Lduln -FStB-furi cnnr rl--,,st._R.l_3i-!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-Decompo iwrmi s,sERsidet d done ill ,__Lduln -than_R.l_3i-!!-ee_duln Nar--presentnandT Ifl---,pncesoNT Iflco, .OR.l_3-!!-ofmTNohdivisrbo l(i.e.Ichildl,__Land- on-empty).OR.l_3-!!-duln N s,delowmt1&---,pnce. Alternativ,ly,nT_R.l_3i-!!-decompo iwrmi s,always,done whe,mnod ,__Ldivisrbo .OR.l_3-!!-duln Nexi, r__,iNspecs_iedT( NTENTNn -rs tEv o vpls.OR.l_3-!!-has,deen reasubLdx(2t.OR.--mx [TER -1E_sidglem-------------------------------------------------------turn--gModuo =iOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _.'__Seheck aLMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--gInclude--- q q Cleaicle uin fo) #en------------------------------------------------------#include "0_ r/ rl---h"_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nArgu,,st--turn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn)=n [MK), DIMENppm_(:) ,iINTENT(IN ) :: dulco, _R.l_3i-!!-Compu-n ia.'-co, associatmd w-- oeachlaodmodule_INTEGER ,iINTENT(IN ) :: n nli, _R.l_3i-!!-N -rs tEv duln -which couldlb--divided-furi cnn(i.e.Idang- oo__R.l_3i-!!-idulli, )._R.l_3iINTEGER ,iINTENT(IN ) :: ee_dules.OR.l_3-!!-M**TENTNn -rs tEv childl,__Lduln -of- on- 1No-co, NE_creat ._R.l_3iINTEGER ,iINTENT(IN ) :: n.l_3_R.l_3i-!!-N -rs tEv childl,__Lduln -w-- o on- 1No-co, .-tc!fnis- or If_R.l_3i-!!-same as-n -rs tEv divisrbo lduln Nas,_,iy-FStB- or b--largnr__,an_R.l_3i-!!-2*ee_dulOiND nT I s,cas ._R.l_3iINTEGER ,iINTENT(IN ) :: no vpl_R.l_3i-!!-N -rs tdNcElf--o vpls (Elf--depth)-so far._R.l_3iINTEGER ,iINTENT(IN ) :: e &o vpls.OR.l_3-!!-M NTENTNn -rs tEv o vpls-NE_belsreat d. T,f--stop Nas,soo,mas.OR.l_3-!!-tc!fnis-reasubLd-If (L == , o vpls-ar--unlimitILdx(2t.ORINTEGER , DIMENppm_(:) ,iINTENT(IN ) :: i nli, _R.l_3i-!!-Li, indivisrbo lduln .OR.l_3i)=n [MK) ,iINTENT(IN ) :: e &---,pnce.OR.l_3-!!-M NTENTN---,pncesoNTco, allowtB- _between duln . Se NE_(L == NE_R.l_3i-!!-dispbo -tc!f.OR.l_3i)=n [MK) ,iINTENT(IN ) :: e &dulco, _R.l_3i-!!-M NTENTNallowtB-co, inTrdul. T,f--wiNohstop-illaNoh=uln Nar-.OR.l_3-!!-delowm I s,co, .-If (L == , co, s,unlimitILdx(2t.ORLOGICAL ,iINTENT( OUT) :: lsER inue.OR.l_3-!!-`FALSE`-illFo-furi cnn.l_divisrmi_islFStBIL, `TRUE`-oi cnwis ._R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturn 3t tus, 0 o!qPRECI Cx(2t.OR-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nL---l ---,pbo =n_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn)=n [MK) :: t0dmepnco, ,as_fco, ,---co, _R.l_3i)=n [MK) :: e &co, ,am_R.l_3iINTEGER :: i,jmodule_-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---External=px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldl,l donemot0 kin -etyperlsER inue Re.TRUE.__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---C------nput irgu,,st--- q q Cleaicle uin fo) #en--------------------------------------------------------------[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt-_3enti q--[Tist, & ==X Returninnis(,,tiot2 oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---INT IeriNar--no duln ,lwiNqui-_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnI-[T_.l_3-(Linl12t.OR.l_3enti q qlsER inue Re.FALSE.n--no duln -=- orhITE(NE_.l_divide !l_3enti q q q OR.l.'__Sidgle #elifssssstk, donemo EEddl,lmod_a IF'eNo on-empty duln -present.-Done.' kin ------BOXLIX Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---INT IeriNar--no ,__Lduln -that couldlpotentiallylb--divided,lwi Return--- i=N NE_.top._R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[Tn nli, -(Linl12t.OR.l_3enti q qlsER inue Re.FALSE.l_3enti q q---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1t---INT IeriNar--l,__Lduln -than proCI Cor ,lwiN i=N a probo mx(2t.ORtr1t---THIS SHOULDIX Ret.OR DECOMP ROUTbdi AND-NOTiINTet.OR GENERICx(2t.ORtr1t---TREEi-!!_R.l_3i q q---Gmemoot,HANTm_ercu--------pat', & box i dex e a Paralllx(2t.ORtr1tI-[T_.l_3-(Linlee_dules== _(2t.ORt.OR CBR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))ldct1o.= dul_f---le #elfew_.l_3ifssssstk, donemo EEEEddl,lmod_a IF''''''Couldl or sreat N,iNm**TENTNn -rs tEv on-empty duln !mo ddl,lmod_a IF''''' cbdivi kin ------BOXLIR.l_3.l_3i2d_m qX Returninnis(,,tiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---INT Ie e & Elf--depth-has,deen reasubL,lwiN3top------B-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[Te &o vpls-== 3x(2t.OR.l_3enti qenI-[T_o vpl-==E. e &o vpls== _(2t.ORt.OR CBR CBlsER inue Re.FALSE.l_3enti q q qenI-[TOR.l_3ncu-== 3x12t.OR.l_3enti q qo)))o)))ldct1o.= .'__Sidgle #elifssssstk, donemo EEEEddl,lmod_a IF'''''' I-'M NNn -rs tEv o vpls-reasubLd-Done.' kin ------BOXLIOXLIR.l_3.l_3i2d_m q_m qX Returninnis(,,OXLIR.l_3.l_3i2dtiot2oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---INT IeriNar--l,__Lduln -than proCI Cor ,ldecompo iwrmi s, or OK_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[Tn.l_3-(Linlee_dules==X Returnin_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Compu---N,iN---,pncesoNTdivisrbo ldullco, .OR.l_3-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---co, -=-0t.OR.q_3entimepnco, -=-0t.OR.q_3entim &co, -=--HUGE(e & in!_3entiments n nli, _R.l_3iiiiij mi nli, (i ------BOXLIdm_=qdulco, oj--2,u i=====mepnco, -=-mepnco, -+ dm_R.l_3iti q--[Tdm == 3xKqq int.OR.l_3enti q qo)))m &co, = dm_R.l_3iti qt.lt2nofixedt.lGEnofixed--[Tn nli, -(= 3x12t.OR.l_3enti q qmepnco, -=-mepnco, /)=n [ndulli, ,R.xR.l_3enti iments n nli, _R.l_3iiiiiiiiij mi nli, (i ------BOXLIOXLIds_fco, _=qdulco, oj- --mepnco, ------BOXLIOXLI---co, -=----co, +[Tds_fco, *ds_fco, ------BOXLIR.lGEnofixedST',---co, -=----co, /)=n [ndulli, -1,R.xR.l_3enR.l_3.l_3i2d_m qOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---INT---,pncesoNTco, N s,delowmthreshold,ldecompo iwrmi s,OK_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[T---co, (Linle &---,pnce)BlsER inue Re.FALSE.lOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---INTaNoh=uln Nar-,delowmthe)m &co, wiNar--done._R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[Tm &co, (Linle &dulco, )BlsER inue Re.FALSE. oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----eturn SI!--------mx [TER -1E_sidglem-----------------------------------------------------urni CONTINUreetyper q .l_3top(stk,ldl,l donemot0 kin -etyperRETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLLL E_.l_3-(Linl == _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l donemo EEEEddl,lmod_a IF''''N -rs tEv on-empty duln -mus (ret>=-0st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m I-[T_o vpl-=Linl == _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l donemo EEEEddl,lmod_a IF''''N -rs tEv o vpls-mus (ret>=-0st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l_3i2d_m I-[T_ nli, -(Linl == _(2t.ORt.OR CBR CBOX Reurni->0 ReE_(2t.OR.l_3o)))o)ldct1o.= dul_f---le #elirgu,,stsstk,ldl,l donemo EEEEddl,lmod_a IF''''N -rs tEv duln N n li, -mus (ret>=-0st cbdivi kin ------BOXLISTX Ret8888------BOXLR.l_3.l8888))))lONTINUreetypertio_SUBROUTbdi subBt---------------ireeoduspeethre ppm_module_tio_SUBROUTbdi tk,ldl,l_done_s.chldNchi------ireeDOUBpeethre ppm_module_tio_SUBROUTbdi tk,ldl,l_done_d_chdas__libtk,-1.2/src/dopo/tk,lsubBt_ orid.f000644 000765 000024 00000011554 11445666064 020163 0uqq q00om qqq ff000000 000000 odule_.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.INrout-1el : tk,lsubBt_ oridOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--Copyr (1l (c) 2010) SE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppeliedFluid Dynamics (DTU ------B!------B!------B!-tc!fnfnfeEis--e3= ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPM----flf--software: you can red,, ribbumeite, (/ied oas_-SI!-----eiteE=inr__,iNEerm soNT IflGNU Lessnr_Gene !l PubliciLicense Returninas--ublishIL bri IflFlf--Software FoE=in ia, eii cnn Returninvers. e 3soNT IflLicense, ied(at your op ia)dany latcnn Returninvers. e.------B!------B!-PPM----d,, ribbumd ,m Iflhope------itewiNoh=e useful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,m Iflimplimd warranty,,fx(2t.OR! MERCHANTABILITY iedFITNESS FOR A PARTICULAR PURPOSE. Se--- qx(2t.OR! GNU Gene !l PubliciLicense lied ,__Ldetails.------B!-(2t.OR! You shouldl i=N receiv,,)a copysoNT IflGNU Gene !l PubliciLicense ReturninandT IflGNU Lessnr_Gene !l PubliciLicense alongI--- oPPM.-If or,------B!-se--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich---turn--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RR.l_3iSUBROUTbdi tk,lsubBt_ orid(dopoid, orid,valid, kin -etyper-!!-tc!fnsINrout-1el s,us,,)NE_cubBt)a give,mi oriID liedi Nvalidity._R.l_3i-!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-Itnis-recommhda,,)NE_ or us,m I s,rout-1eltoosoNtea, iteshouldlbe.OR.l_3-!!-typicallylplaced,o =o DEBUG codenandTonlylat criwr--l places, ,m If.OR.l_3-!!-codeOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Moduo =OR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _in a_ or ReturnUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _.'__Seheck aLMPLICIT NONreOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,st--- q q Cleaicle uin fo) #en----------------------------------------------------X Return-NTEGER , INTENT(IN ) :: e oridOR.l_3i-!!-M oriID NE_belsubBted. Return-NTEGER , INTENT(IN ) :: dopoid-etyper-!!-topology-ID_on-which the)m ori---d rl--Ldx(2t.ORLOGICAL ,iINTENT( OUT) :: valid-etyper-!!--eturns `TRUE`-iNT Iflgive,mi orid,o NvalidnandTd rl--L,_R.l_3i-!!-`FALSE`-oi cnwis ._R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturns 3t tus, 0 upo!qPRECI CxOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---L---l ---,pbo =-- q q Cleaicle uin fo) #en----------------------------------------------------O---turn)=n [urnikind_double) :: t0x(2t.ORLOGICAL :: dopo_ot------BldNb[urnit_dopo), POINTERReturn:: dopolOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise_ -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,lsubBt_ oridmot0 kin -etypervalidnRe.TRUE.__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---C-----irgu,,st--- q q Cleaicle uin fo) #en--------------------------------------------------------------[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt-_3enti q--[Tist, & ==X Returninnis(,,tiot2__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Validity subBt-_3enti-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q tk,lsubBt_dopoid(dopoid,dopo_ot kin -etyper--[T.NOT. dopo_ot2t.OR.l_3enti qvalidnRe.FALSE.l_3enti qX Returninnis(,,tiot2_nis(,,dopo => tk,ldopo(dopoid)%t -etyper--[T(i orid,(Linl12.OR.(i orid,(GT. dopo%t1oxi orid)== _(2t.ORt.OR CBvalidnRe.FALSE.l_3entitiot2__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----eturnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---urni CONTINUreetyper q .l_3top(stk,lsubBt_ oridmot0 kin -etyperRETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLr--[T.NOT. tk,linitialized== _(2t.ORt.OR CBR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))ldct1o.= dul_f---le #el--lenoinit,stk,lsubBt_ oridmoEEddl,lmod_a IF''''''Ple-selsaNohtk,linitlfirs !st cbdivi kin ------BOXLIST SvalidnRe.FALSE.l_3enti qenti qX Ret8888------BOXLOR.l_3.l_3i2d_m q q tk,lsubBt_dopoid(dopoid,dopo_ot kin -etyperOXLr--[T.NOT. dopo_ot2t.OR.l_3enti qCBR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))ldct1o.= dul_f---le #elirgu,,stsstk,lsubBt_ oridmoEEddl,lmod_a IF''''''Topoid out oNTrange!st cbdivi kin ------BOXLIST SvalidnRe.FALSE.l_3enti qenti qX Ret8888------BOXLOR.l_3.l8888)))))lONTINUreetypertio_SUBROUTbdi subBt-etypertio_SUBROUTbdi tk,lsubBt_ oridOlibtk,-1.2/src/dopo/tk,lsubBt_dopoid.f000644 000765 000024 00000011524 11445666064 020205 0uqq q00om qqq ff000000 000000 etyper.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.INrout-1el : tk,lsubBt_dopoid-etyper-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturninCopyr (1l (c) 2010) SE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppeliedFluid Dynamics (DTU ------B!------B!------B!-tc!fnfnfeEis--e3= ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPM----flf--software: you can red,, ribbumeite, (/ied oas_-SI!-----eiteE=inr__,iNEerm soNT IflGNU Lessnr_Gene !l PubliciLicense Returninas--ublishIL bri IflFlf--Software FoE=in ia, eii cnn Returninvers. e 3soNT IflLicense, ied(at your op ia)dany latcnn Returninvers. e.------B!------B!-PPM----d,, ribbumd ,m Iflhope------itewiNoh=e useful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,m Iflimplimd warranty,,fx(2t.OR! MERCHANTABILITY iedFITNESS FOR A PARTICULAR PURPOSE. Se--- qx(2t.OR! GNU Gene !l PubliciLicense lied ,__Ldetails.------B!-(2t.OR! You shouldl i=N receiv,,)a copysoNT IflGNU Gene !l PubliciLicense ReturninandT IflGNU Lessnr_Gene !l PubliciLicense alongI--- oPPM.-If or,------B!-se--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich---turninCH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RR.l_3iSUBROUTbdi tk,lsubBt_dopoid(dopoid,valid, kin -etyper-!!-tc!fnsINrout-1el s,us,,)NE_cubBt)a give,mtopology-ID_liedi Nvalidity._R.l_3i-!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-Itnis-recommhda,,)NE_ or us,m I s,rout-1eltoosoNtea, iteshouldlbe.OR.l_3-!!-typicallylplaced,o =o DEBUG codenandTonlylat criwr--l places, ,m If.OR.l_3-!!-codeOOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Moduo =OR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _.'__Seheck aLMPLICIT NONreOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,st--- q q Cleaicle uin fo) #en------------------ & box i dex e a ParalllPBOX Return-NTEGER , INTENT(IN ) :: dopoid-etyper-!!-topology-ID_NE_belsubBtedx(2t.ORLOGICAL ,iINTENT( OUT) :: valid-etyper-!!--eturns `TRUE`-iNT Iflgive,mi orid,o NvalidnandTd rl--L,_R.l_3i-!!-`FALSE`-oi cnwis ._R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturns 3t tus, 0 upo!qPRECI CxOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---L---l ---,pbo =-- q q Cleaicle uin fo) #en----------------------------------------------------O---turn)=n [urnikind_double) :: t0xOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise_ -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,lsubBt_dopoidmot0 kin -etypervalidnRe.FALSE.lOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---C-----irgu,,st--- q q Cleaicle uin fo) #en--------------------------------------------------------------[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt-_3enti q--[Tist, & ==X Returninnis(,,tiot2__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i d-----------------------------Validity subBt-_3enti-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX -etyper--[T(dopoid-==E. 1)a& l(dopoid-=L ==SIZE(tk,ldopo))a& lddl,lmod_a IF'''''(tk,ldopo(dopoid)%t%isd rl--L)== _(2t.ORt.OR CBvalidnRe.TRUE._nis(,,tiot2__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i d------------------------------eturnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBO---urni CONTINUreetyper q .l_3top(stk,lsubBt_dopoidmot0 kin -etyperRETUR_module__ONTAINSmodule_SUBROUTbdi subBt------BOXLr--[T.NOT. tk,linitialized== _(2t.ORt.OR CBR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))ldct1o.= dul_f---le #el--lenoinit,stk,lsubBt_dopoidmoEEddl,lmod_a IF''''''Ple-selsaNohtk,linitlfirs !st cbdivi kin ------BOXLIST SvalidnRe.FALSE.l_3enti qenti qX Ret8888------BOXLOR.l_3.l_3i2d_m q--[T(dopoid== 3SIZE(tk,ldopo))a&OR lddl,lmod_a IF'''''(dopoid=LT.1)== _(2t.ORt.OR CBR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))ldct1o.= dul_f---le #elirgu,,stsstk,lsubBt_dopoidmoEddl,lmod_a IF'''''''Nopoid- , tEITE(outside tk,ldopo',ddl,lmod_a IF'''''' cbdivi kin ------BOXLIST SX Ret8888------BOXLOR.l_3.l_3i2d_m q--[T.NOT. ASSOCIATED(tk,ldopo(dopoid)%t)== _(2t.ORt.OR CBR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))ldct1o.= dul_f---le #elirgu,,stsstk,lsubBt_dopoidmoEddl,lmod_a IF'''''''tk,ldopo(dopoid) poi =ppe or associatmd',ddl,lmod_a IF'''''' cbdivi kin ------BOXLIST SX Ret8888------BOXLOR.l_3.l8888)))))lONTINUreetypertio_SUBROUTbdi subBt-etypertio_SUBROUTbdi tk,lsubBt_dopoid-libtk,-1.2/src/dopo/tk,lsopy_imag _.l_3.f000644 000765 000024 00000053525 11445666064 020731 0uqq q00om qqq ff000000 000000 etyper.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.INrout-1el : tk,lsopy_imag _.l_3-etyper-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturninCopyr (1l (c) 2010) SE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppeliedFluid Dynamics (DTU ------B!------B!------B!-tc!fnfnfeEis--e3= ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPM----flf--software: you can red,, ribbumeite, (/ied oas_-SI!-----eiteE=inr__,iNEerm soNT IflGNU Lessnr_Gene !l PubliciLicense Returninas--ublishIL bri IflFlf--Software FoE=in ia, eii cnn Returninvers. e 3soNT IflLicense, ied(at your op ia)dany latcnn Returninvers. e.------B!------B!-PPM----d,, ribbumd ,m Iflhope------itewiNoh=e useful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,m Iflimplimd warranty,,fx(2t.OR! MERCHANTABILITY iedFITNESS FOR A PARTICULAR PURPOSE. Se--- qx(2t.OR! GNU Gene !l PubliciLicense lied ,__Ldetails.------B!-(2t.OR! You shouldl i=N receiv,,)a copysoNT IflGNU Gene !l PubliciLicense ReturninandT IflGNU Lessnr_Gene !l PubliciLicense alongI--- oPPM.-If or,------B!-se--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich---turninCH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE --------ireeoduspeethre ppm_module_SUBROUTbdi sopy_img.l_3_s(ee_ophyse( & physebcd roEddl,lmod_a ee_o.l_e( & .l_en.l_3,.l_iden.l_3plus kin --hldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi sopy_img.l_3_d(ee_ophyse( & physebcd roEddl,lmod_a ee_o.l_e( & .l_en.l_3,.l_iden.l_3plus kin --hdas__R.l_3i-!!-tc!fnrout-1elsopin -the .l_ dom ins-NE_gho, .l_ dom ins_R.l_3i-!!- ,m Iflcas soNTperioasc boE=in,f codaswrmi andT3tores.OR.l_3-!!-tce 2tigia.'-ID_of-the .l_ dom in -m I s,NE_allowm If.OR.l_3-!!-rl-d ne (1boErs,NE_search (--- out wrappITE(space)B If.OR.l_3-!!-li, in.l_ dom ins-andT3tiNohre riev--N,iNre.'-ID_of-.l_ dom in._R.l_3i-!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-tc!fnis-al ippysgoITE(rout-1e: wiNar--comparITE(N,iNequality,,fx(2t.OR!!!-rloaRITE poi =Nn -rs s *bbu*-ite*works* sincesN,iN--lue_of-.l_s.OR.l_3-!!-ar--*assigned*-flomsN,iNphys ee_/e & andT* or*-compbumd (bytelsopy).------B!---mx [TER -1E_sidglem------------------------------------------------------turningModuo =iOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _.l_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _alloc_R.l_3iLMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gInclude--- q q Cleaicle uin fo) #en------------------------------------------------------#include "0_ r/ rl---h"_---/ rreeMPImodule_INCLUDE 'mpif.h' chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gArgu,,st--turn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn)=n [MK), DIMENppm_(:) ,iINTENT(IN ) :: ee_ophys.OR.l_3-!!-Min. extent_of-the physr--l dom in---turn)=n [MK), DIMENppm_(:) ,iINTENT(IN ) :: e & phys.OR.l_3-!!-Max. extent_of-the physr--l dom in---turnINTEGER , DIMENppm_(:) ,iINTENT(IN ) :: bcd r.OR.l_3-!!-BoE=in,f codaswrmi / rl-swrmi---turn)=n [MK), DIMENppm_(:,:), POINTERReturn :: ee_o.l_.OR.l_3-!!-Min. extent_of-the .l_ dom in includITE aftnr__,iNsaNohNE_ I s.OR.l_3-!!-rout-1eltIflgho, .l_ dom ins_R.l_3i)=n [MK), DIMENppm_(:,:), POINTERReturn :: e & .l_.OR.l_3-!!-Max. extent_of-the .l_ dom in includITE aftnr__,iNsaNohNE_ I s.OR.l_3-!!-rout-1eltIflgho, .l_ dom ins_R.l_3iINTEGER , DIMENppm_(:) ,iPOINTERReturn :: .l_id_R.l_3i-!!--e-l id of-the .l_ dom in_R.l_3iINTEGER ,iINTENT(IN ) :: n.l_3_R.l_3i-!!-Tot-l n -rs tEv .l_ dom ins_R.l_3iINTEGER ,iINTENT( OUT) :: n.l_3plus_R.l_3i-!!-Tot-l n -rs tEv .l_ dom ins plusltIflgho, .l_ dom ins_R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturns 3t tus, 0 upo!qPRECI CxR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nL---l ---,pbo =n_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn)=n [MK), DIMENppm_( q q/mT) :: le_ophys.OR.l_3)=n [MK):: t0x(2t.ORINTEGER , DIMENppm_( q q/mT) :: ldc_R.l_3iINTEGER :: i,j,k_R.l_3iINTEGER :: i3t t,iop ,iOiND_R.l_3iCHARACTER(tk,lsuar) :: e ogxR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nExternal=px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,lsopy_imag _.l_3mot0 kin -_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---C----- Iflinput irgu,,st- (dNcii / buggITE mode)_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_3ncu-== 3x(2t.OR.l_3enti q q subBt-_3enti q--[Tist, & ==X Returninnis(,,tiot2__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i d-----------------------------Compu---N,iNextend_of-the physr--l system Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnDO ks n0_ r/mT------BOXLle_ophys(k)-=-e & phys(k)-- ee_ophys(k)nnis(,,tioGEnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Store__,iNsurrent_OiND Ev .l_id-etyper-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturniOiND-=-SIZE(.l_id -_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Se sERstast--- q q Cleaicle uin fo) #en------------------------------------------------------------n.l_3plus-=- .l_3_R.l_3iiop R.l_3iReurniparam_alloc_fit_preserveOOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Addlgho, dom ins f r__,iNperioasc system_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[Tbcd r(1).EQ.urniparam_bcd r_perioasc== _(2t.ORt.OR C-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C- nCopy- ,m Iflfirs direcwrmi---turnR C-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C--[TOR.l_im.EQ.2== _(2t.ORt.OR CBR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR - Twoldi,,ssrminOR.l_3iR CBR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR j-=- .l_3plus_R.l_3iiiiiiiments n .l_3plus_R.l_3iiiiiii STLL Ein!x.l_(1,i).EQ.ee_ophys(1)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST t.ORt.OR CBR CBl_3iiiildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STISTtiot2 o-----BOXLIST STIST.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)-+Ele_ophys(1)------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)-+Ele_ophys(1)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)------BOXLISTTTTtiot2 o-----BOXLIST ST--[Tm &x.l_(1,i).EQ.e & phys(1)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STISTtiot2 o-----BOXLIST STIST.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)--Ele_ophys(1)------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)--Ele_ophys(1)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)------BOXLISTTTTtiot2 o-----BOXLISTR.lGEnofixedST',--n.l_3plus-=-jnofixedST'ELSEnofixedST',---l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR - threeldi,,ssrminOR.l_3iR CBR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR j-=- .l_3plus_R.l_3iiiiiiiments n .l_3plus_R.l_3iiiiiii STLL Ein!x.l_(1,i).EQ.ee_ophys(1)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STISTtiot2 o-----BOXLIIIIIIIII.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)-+Ele_ophys(1)------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)------BOXLISTTTTTTTin!x.l_(3,j)-=-en!x.l_(3,i)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)-+Ele_ophys(1)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)------BOXLISTTTTTTTi & .l_(3,j)-=-e & .l_(3,i)------BOXLISTTTTtiot2 o-----BOXLIST ST--[Tm &x.l_(1,i).EQ.e & phys(1)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STISTtiot2 o-----BOXLIIIIIIIII.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)--Ele_ophys(1)------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)------BOXLISTTTTTTTin!x.l_(3,j)-=-en!x.l_(3,i)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)--Ele_ophys(1)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)------BOXLISTTTT TTi & .l_(3,j)-=-e & .l_(3,i)------BOXLISTTTTtiot2 o-----BOXLISTR.lGEnofixedST',--n.l_3plus-=-jnofixedST'Eiot2 o-----Btiot2 oOR.l_3i--[Tbcd r(3).EQ.urniparam_bcd r_perioasc== _(2t.ORt.OR C-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C- nCopy- ,m Iflsecoda direcwrmi---turnR C-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C--[TOR.l_im.EQ.2== _(2t.ORt.OR CBR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR - Twoldi,,ssrminOR.l_3iR CBR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR j-=- .l_3plus_R.l_3iiiiiiiments n .l_3plus_R.l_3iiiiiii STLL Ein!x.l_(2,i).EQ.ee_ophys(2)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STISTtiot2 o-----BOXLIIIIIIIII.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)-+Ele_ophys(2)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)-+Ele_ophys(2)------BOXLISTTTTtiot2 o-----BOXLIST ST--[Tm &x.l_(2,i).EQ.e & phys(2)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STISTtiot2 o-----BOXLIIIIIIIII.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)-------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)--Ele_ophys(2)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)--Ele_ophys(2)------BOXLISTTTTtiot2 o-----BOXLISTR.lGEnofixedST',--n.l_3plus-=-jnofixedST'ELSEnofixedST',---l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR - threeldi,,ssrminOR.l_3iR CBR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR j-=- .l_3plus o-----BOXLISTments n .l_3plus_R.l_3iiiiiii STLL Ein!x.l_(2,i).EQ.ee_ophys(2)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLISTCBl_3iiiildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STISTtiot2 o-----BOXLIIIIIIIII.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)-+Ele_ophys(2)------BOXLISTTTTTTTin!x.l_(3,j)-=-en!x.l_(3,i)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)-+Ele_ophys(2)------BOXLISTTTT TTi & .l_(3,j)-=-e & .l_(3,i)------BOXLISTTTTtiot2 o-----BOXLIST ST--[Tm &x.l_(2,i).EQ.e & phys(2)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLISTCBl_3iiiildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STISTtiot2 o-----BOXLIIIIIIIII.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)-------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)--Ele_ophys(2)------BOXLISTTTTTTTin!x.l_(3,j)-=-en!x.l_(3,i)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)--Ele_ophys(2)------BOXLISTTTTTTTi & .l_(3,j)-=-e & .l_(3,i)------BOXLISTTTTtiot2 o-----BOXLISTR.lGEnofixedST',--n.l_3plus-=-jnofixedST'Eiot2 o-----Btiot2 oOR.l_3i--[TOR.l_im.EQ.3== _(2t.ORt.OR C--[Tbcd r(5).EQ.urniparam_bcd r_perioasc== _(2t.ORt.OR C ---l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR - Copy- ,m Iflthira direcwrmi---turnR C ---l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CBR j-=- .l_3plus_R.l_3iiiiiiiments n .l_3plus_R.l_3iiiiiii STLL Ein!x.l_(3,i).EQ.ee_ophys(3)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLISTCBl_3iiiildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLISTCBl_3itiot2 o-----BOXLIIIIIIIII.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)------BOXLISTTTTTTTin!x.l_(3,j)-=-en!x.l_(3,i)-+Ele_ophys(3)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)------BOXLISTTTTTTTi & .l_(3,j)-=-e & .l_(3,i)-+Ele_ophys(3)------BOXLISTTTTtiot2 o-----BOXLIST ST--[Tm &x.l_(3,i).EQ.e & phys(3)== _(2t.ORt.OR CBR CBCBR j------------= j-+E1-2,u i=====ST',s(,,LL Ej== 3iOiND== _(2t.ORt.OR CBR CBl_3iiiiiOiND- miOiND-* 2t.ORt.OR CBR CBl_3iiiildc(1) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(.l_id,ldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLIST STIST ildc(1) m0_ r/mT------BOXLBR CBl_3iiiildc(2) miOiNDt.ORt.OR CBR CBl_3iiiildct1o.= alloc(ee_o.l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLISTCBl_3iiiildct1o.= alloc(e & .l_eldc,iop ,ikin ------BOXLIST STIST q--[Tist,& ==X Ret100------BOXLISTCBl_3itiot2 o-----BOXLIIIIIIIII.l_idoj- =T.l_idoi)------BOXLISTTTTTTTin!x.l_(1,j)-=-en!x.l_(1,i)-------BOXLISTTTTTTTin!x.l_(2,j)-=-en!x.l_(2,i)-------BOXLISTTTTTTTin!x.l_(3,j)-=-en!x.l_(3,i)--Ele_ophys(3)------BOXLISTTTTTTTi & .l_(1,j)-=-e & .l_(1,i)------BOXLISTTTTTTTi & .l_(2,j)-=-e & .l_(2,i)------BOXLISTTTTTTTi & .l_(3,j)-=-e & .l_(3,i)--Ele_ophys(3)------BOXLISTTTTtiot2 o-----BOXLISTR.lGEnofixedST',--n.l_3plus-=-jnofixedST'Eiot2 o-----Btiot2__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i d-----------------------------Catch_allocn ia E_(2t--- q q Cleaicle uin fo) #en--------------------------------------------------------100)lONTINUr o-----B--[Tist,& == _(2t.ORt.OR CB-Reurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,lsopy_imag _.l_3moOR CBddl,lmod_a IF''in.lfficient_memory f r_sl_ dom ins st cbdivi kin ------BOXLIX Returninnis(,,tiot2 oOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----eturnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,lsopy_imag _.l_3mot0 kin -etyperRETUR_module__ONTAINSmodule__SUBROUTbdi subBt------BOXLr q--[T.NOT. ASSOCIATED(en!x.l_)== _(2t.ORt.OR CBR CBCB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))))ldct1o.= dul_f---le #elirgu,,stsstk,lsopy_imag _.l_3moORddl,lmod_a IF'''''' a IF''en!x.l_eshouldlbe associatmd!st cbdivi kin ------BOXLIST S SX Ret8888------BOXLOLOR.l_3.l_3i2d_m q q--[T.NOT. ASSOCIATED(e & .l_)== _(2t.ORt.OR CBR CBCB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))))ldct1o.= dul_f---le #elirgu,,stsstk,lsopy_imag _.l_3moORddl,lmod_a IF'''''' a IF''e & .l_eshouldlbe associatmd!st cbdivi kin ------BOXLIST S SX Ret8888------BOXLOLOR.l_3.l_3i2d_m q q--[T.NOT. ASSOCIATED(.l_id)== _(2t.ORt.OR CBR CBCB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))))ldct1o.= dul_f---le #elirgu,,stsstk,lsopy_imag _.l_3moORddl,lmod_a IF'''''' a IF''.l_ideshouldlbe associatmd!st cbdivi kin ------BOXLIST S SX Ret8888------BOXLOLOR.l_3.l_3i2d_m-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR - The physr--l boE=in,f !fnsane ?.l_3i2d_m-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR q q--[Te & phys(1)-=L ==ee_ophys(1)== _(2t.ORt.OR CBR CBCB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))))ldct1o.= dul_f---le #elirgu,,stsstk,lsopy_imag _.l_3moORddl,lmod_a IF'''''' a IF''e & phys(1)-mus (ret>=ee_ophys(1)st cbdivi kin ------BOXLIST S SX Ret8888------BOXLOLOR.l_3.l_3i2d_m q q--[Te & phys(2)-=L ==ee_ophys(2)== _(2t.ORt.OR CBR CBCB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))))ldct1o.= dul_f---le #elirgu,,stsstk,lsopy_imag _.l_3moORddl,lmod_a IF'''''' a IF''e & phys(2)-mus (ret>=ee_ophys(2)st cbdivi kin ------BOXLIST S SX Ret8888------BOXLOLOR.l_3.l_3i2d_m q q--[T0_ r/mT-== 3x2== _(2t.ORt.OR CBR q q--[Te & phys(3)-=L ==ee_ophys(3)== _(2t.ORt.OR CBR CBCBR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))o)))))))))ldct1o.= dul_f---le #elirgu,,stsstk,lsopy_imag _.l_3moddl,lmod_a IF'''''' a IF''e & phys(3)-mus (ret>=ee_ophys(3)st cbdivi kin ------BOXLIST S SX Ret8888------BOXLOLOLOLOR.l_3.l_3i2d_m q qtiot2__R.l_3i_m-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR - The perioasc BC-ar--sane ?.l_3i2d_m-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR q q--[Tbcd r(1).EQ.urniparam_bcd r_perioasc& lddl,lmod_a IF'''bcd r(2)& urniparam_bcd r_perioasc== _(2t.ORt.OR C -------Reurni->0 ReturnE_(2t.OR.l_3o)))o)))))ldct1o.= dul_f---le #elirgu,,stsstk,lsopy_imag _.l_3moORddl,lmod_a IF'''''' a IF''perioasc ia onlylone x face !st cbdivi kin ------BOXLIST S SX Ret8888------BOXLOLOR.l_3.l_3i2d_m q q--[Tbcd r(3).EQ.urniparam_bcd r_perioasc& lddl,lmod_a IF'''bcd r(4)& urniparam_bcd r_perioasc== _(2t.ORt.OR C -------Reurni->0 ReturnE_(2t.OR.l_3o)))o)))))ldct1o.= dul_f---le #elirgu,,stsstk,lsopy_imag _.l_3moORddl,lmod_a IF'''''' a IF''perioasc ia onlylone y face !st cbdivi kin ------BOXLIST S SX Ret8888------BOXLOLOR.l_3.l_3i2d_m q q--[TOR.l_im.= 32== _(2t.ORt.OR CBR q q--[Tbcd r(5).EQ.urniparam_bcd r_perioasc& lddl,lmod_a IF'''''''bcd r(6)& urniparam_bcd r_perioasc== _(2t.ORt.OR C -------Reurni->0 ReturnE_(2t.OR.l_3o)))o)))))ldct1o.= dul_f---le #elirgu,,stsstk,lsopy_imag _.l_3moORddl,lmod_a IF'''''' a IF'IF''perioasc ia onlylone z face !st cbdivi kin ------BOXLIST S SX Ret8888------BOXLOLOLOLOR.l_3.l_3i2d_m q qR.l_3.l8888)))))))lONTINUreetyperertio_SUBROUTbdi subBt---------------ireeoduspeethre ppm_module_tio_SUBROUTbdi sopy_img.l_3_s chldNchi------ireeDOUBpeethre ppm_module_tio_SUBROUTbdi sopy_img.l_3_d chdas__libtk,-1.2/src/dopo/tk,l/ rl--_.l_3_bc.f000644 000765 000024 00000021070 11445666064 020501 0uqq q00om qqq ff000000 000000 odule_.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returning.INrout-1el : tk,l/ rl--_.l_3_bcOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--Copyr (1l (c) 2010) SE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppeliedFluid Dynamics (DTU ------B!------B!------B!-tc!fnfnfeEis--e3= ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPM----flf--software: you can red,, ribbumeite, (/ied oas_-SI!-----eiteE=inr__,iNEerm soNT IflGNU Lessnr_Gene !l PubliciLicense Returninas--ublishIL bri IflFlf--Software FoE=in ia, eii cnn Returninvers. e 3soNT IflLicense, ied(at your op ia)dany latcnn Returninvers. e.------B!------B!-PPM----d,, ribbumd ,m Iflhope------itewiNoh=e useful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,m Iflimplimd warranty,,fx(2t.OR! MERCHANTABILITY iedFITNESS FOR A PARTICULAR PURPOSE. Se--- qx(2t.OR! GNU Gene !l PubliciLicense lied ,__Ldetails.------B!-(2t.OR! You shouldl i=N receiv,,)a copysoNT IflGNU Gene !l PubliciLicense ReturninandT IflGNU Lessnr_Gene !l PubliciLicense alongI--- oPPM.-If or,------B!-se--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich---turn--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE --------ireeoduspeethre ppm_module_SUBROUTbdi / rl--_.l_3bc_s(ee_ophyse( & physebcd roEddl,lmod_a ee_o.l_e( & .l_en.l_3,.l_3_bc kin --hldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi / rl--_.l_3bc_d(ee_ophyse( & physebcd roEddl,lmod_a ee_o.l_e( & .l_en.l_3,.l_3_bc kin --hdas__R.l_3i-!!-tc!fnrout-1el/ rl--sltIflboE=in,f codaswrmi soNT If_R.l_3i-!!-.l_3 ia aNohtroCI Cors.-tcus-.l_3 ----- i=N_R.l_3i-!!-faces,---the physr--l boE=in,f are m qkmd w-- o+1 anLOR.l_3i-!!- ,ternal-faces,w-- oN,iN--lue_0.-tc!fnikinrmn ia s.OR.l_3-!!-obtainIL bricomparITE(N,iNcoordinatcs of-the .l_vs,w-- .OR.l_3-!!-N,iN--lues of-`ee_ophys`nandT`( & phys`._R.l_3i-!!_R.l_3i-!!-[WARNdus]_R.l_3i-!!-If-the usnr_creatmd-the .l_s(N,iNcomparIsia of-rloaRs, ,m If present_R.l_3i-!!-rout-1elm (1l fail (roE=i off E_(2t-)nandT IflcomparIsia shouldlbe.OR.l_3-!!-replaced,bria `ABS(--lue-q qget) < epsilon`lcomparIsia.------B!---mx [TER -1E_sidglem------------------------------------------------------turningModuo =iOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _sl_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _alloc_R.l_3iLMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.---B!---mx [TER -1E_sidglem------------------------------------------------------turningInclude--- q q Cleaicle uin fo) #en------------------------------------------------------#include "0_ r/ rl---h"_---/ rreeMPImodule_INCLUDE 'mpif.h' chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gArgu,,st--t rn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn)=n [MK), DIMENppm_(:) ,iINTENT(IN ) :: ee_ophys.OR.l_3-!!-Min. extent_of-the physr--l dom in---turn)=n [MK), DIMENppm_(:) ,iINTENT(IN ) :: e & phys.OR.l_3-!!-Max. extent_of-the physr--l dom in---turnINTEGER , DIMENppm_(: ),iINTENT(IN ) :: bcd r.OR.l_3-!!-BoE=in,f codaswrmi / rl-swrmi---turn)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: ee_osl_.OR.l_3-!!-Min. extent_of-the .l_ dom in---turn)=n [MK), DIMENppm_(:,:), INTENT(IN ) :: e & .l_.OR.l_3-!!-Max. extent_of-the .l_ dom in---turnINTEGER ,iINTENT(IN ) :: n.l_3_R.l_3i-!!-T,iNEot-l n -rs tEv (re.') .l_ dom ins_R.l_3iINTEGER , DIMENppm_(:,:), POINTERReturn :: .l_3_bcOR.l_3i-!!-BoE=in,f / rl-wrmi Ev each .l_.OR.l_3INTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturns 3t tus, 0 upo!qPRECI CxR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nL---l ---,pbo =n_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turnINTEGER , DIMENppm_( q q/mT) :: ldc_R.l_3iINTEGER :: i,j,k,iop ---turn)=n [MK) :: t0x(2t.OR)=n [MK) :: lmyepsxR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nExternal=px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,l/ rl--_.l_3_bcmot0 kin ----------------ireeoduspeethre ppm_module_lmyeps Reurnimyepss chldNcchi------ireeDOUBpeethre ppm_module_lmyeps Reurnimyepsd chdas___R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gAllocn e_memory f r_sl_dom in bc-rlagsxR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turniop R.lReurniparam_alloc_grow_preserveOodule_ldc(1) m2*0_ r/mT------Bldc(2) mMAX(n.l_3,1)------Bldct1o.= alloc(.l_3_bc ldc,iop ,ikin ------B--[Tist,& == _(2t.ORt.OR CB-Reurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,l/ rl--_.l_3_bcmoOR CBddl,lmod_a IF''allocn ia of-.l_s_bc-railmd', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---L-op ovnr__,iNglob-l sl_s(andTcompar--- qinn ReturninNcoordinatcs w-- oN,iNphysr--l boE=in,fOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returnments n .l_3------BOXL-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C- ncompar--- q wes (roE=in,fOR.l_3iOXL-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C--[TABS(en!x.l_(1,i)-ee_ophys(1)===LT._lmyeps*Tm &x.l_(1,i)-en!x.l_(1,i))== _(2 o-----BOXLIST.l_s_bc(1,i)-=E1-2,u i====ELSEnofixedST',--.l_s_bc(1,i)-=E0------BOXLtiot2 oOR.l_3iOXL-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C- ncompar--- q eas (roE=in,fOR.l_3iOXL-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C--[TABS(e &x.l_(1,i)-e & phys(1)===LT._lmyeps*Tm &x.l_(1,i)-en!x.l_(1,i))== _(2nofixedST',--.l_s_bc(2,i)-=E1-2,u i====ELSEnofixedST',--.l_s_bc(2,i)-=E0------BOXLtiot2 oOR.l_3iOXL-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C- ncompar--- q sou- oroE=in,fOR.l_3iOXL-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C--[TABS(en!x.l_(2,i)-ee_ophys(2)===LT._lmyeps*Tm &x.l_(2,i)-en!x.l_(2,i))== _(2nofixedST',--.l_s_bc(3,i)-=E1-2,u i====ELSEnofixedST',--.l_s_bc(3,i)-=E0------BOXLtiot2 oOR.l_3iOXL-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C- ncompar--- q nor- oroE=in,fOR.l_3iOXL-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C--[TABS(e &x.l_(2,i)-e & phys(2)===LT._lmyeps*Tm &x.l_(2,i)-en!x.l_(2,i))== _(2nofixedST',--.l_s_bc(4,i)-=E1-2,u i====ELSEnofixedST',--.l_s_bc(4,i)-=E0------BOXLtiot2 oOR.l_3iOXL-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C- n ,m Ireeldi,,ssrminOR.l_3iR C-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPt.ORt.OR C--[TOR.l_im.EQ.3== _(2t.ORt.OR CR C-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CR C- ncompar--- q bottomoroE=in,fOR.l_3iOXLR C-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CR C--[TABS(en!x.l_(3,i)-ee_ophys(3)===LT._lmyeps*Tm &x.l_(3,i)-en!x.l_(3,i))== _(2nofixedST',--,--.l_s_bc(5,i)-=E1-2,u i=======ELSEnofixedST',--,--.l_s_bc(5,i)-=E0------BOXLISTtiot2 oOR.l_3iOXLR C-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CR C- ncompar--- q top roE=in,fOR.l_3iOXLR C-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralt.ORt.OR CR C--[TABS(e &x.l_(3,i)-e & phys(3)===LT._lmyeps*Tm &x.l_(3,i)-en!x.l_(3,i))== _(2nofixedST',--,--.l_s_bc(6,i)-=E1-2,u i=======ELSEnofixedST',--,--.l_s_bc(6,i)-=E0------BOXLISTtiot2 o--BOXLISTtiot2 o--BOXLtioGEnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----eturn Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,l/ rl--_.l_3_bcmot0 kin -etyperRETUR_m--------------ireeoduspeethre ppm_module_tio_SUBROUTbdi / rl--_.l_3bc_s chldNchi------ireeDOUBpeethre ppm_module_tio_SUBROUTbdi / rl--_.l_3bc_d chdas__libtk,-1.2/src/dopo/tk,lrl-d_ne (1.f000644 000765 000024 00000061466 11445666064 017656 0uqq q00om qqq ff000000 000000 R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---.INrout-1el : tk,lrl-d_ne (1OR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--Copyr (1l (c) 2010) SE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppeliedFluid Dynamics (DTU ------B!------B!------B!-tc!fnfnfeEis--e3= ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPM----flf--software: you can red,, ribbumeite, (/ied oas_-SI!-----eiteE=inr__,iNEerm soNT IflGNU Lessnr_Gene !l PubliciLicense Returninas--ublishIL bri IflFlf--Software FoE=in ia, eii cnn Returninvers. e 3soNT IflLicense, ied(at your op ia)dany latcnn Returninvers. e.------B!------B!-PPM----d,, ribbumd ,m Iflhope------itewiNoh=e useful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,m Iflimplimd warranty,,fx(2t.OR! MERCHANTABILITY iedFITNESS FOR A PARTICULAR PURPOSE. Se--- qx(2t.OR! GNU Gene !l PubliciLicense lied ,__Ldetails.------B!-(2t.OR! You shouldl i=N receiv,,)a copysoNT IflGNU Gene !l PubliciLicense ReturninandT IflGNU Lessnr_Gene !l PubliciLicense alongI--- oPPM.-If or,------B!-se--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich---turn--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------RTRUE --------ireeoduspeethre ppm_module_SUBROUTbdi tk,lrl-d_ne (1_s(ee_ophyse( & physebcd roEddl,lmod_a ee_o.l_e( & .l_en.l_3,nne (1 ke (1 kin --hldNchi------ireeDOUBpeethre ppm_module_SUBROUTbdi tk,lrl-d_ne (1_d(ee_ophyse( & physebcd roEddl,lmod_a ee_o.l_e( & .l_en.l_3,nne (1 ke (1 kin -R.l_3i-!!-tc!fnrout-1elrl-d-- q ne (1roEr soNTa-.l_ dom in._R.l_3i-!! I doe3 -----bricomparITE(N,iNcoordinatcs of-the_R.l_3i-!! roE=iITE(box_of-the .l_ dom ins usITE an N-square_R.l_3i-!! algor-- m! M,__ovnr, sincesN,iNrout-1el!fnsaNoIL beliee_R.l_3i-!! any mappITE has-bee,mperinrmed, *aNo*-the .l_s((n.l_3 -R.l_3i-!!-mus (retsearchIL!_R.l_3i-!!-R.l_3i-!!-NOTE: No .l_ !fnlisumd as-a ne (1ro tEv itself._R.l_3i-!!_R.l_3i-!!-[NOTE]_R.l_3i-!!-======================================================================-R.l_3i-!!-tcetside effec= ---_,!fnrout-1eli3 -----the lisu3_R.l_3i-!!-`en!x.l_(:)`nandT`( & .l_(:)`nariNextendmd-to include_R.l_3i-!! gho, .l_ dom ins.-tc!fnis or useL beyo-d-- !fnrout-1e._R.l_3i-!!_R.l_3i-!!-The lisu3 -----ariNbuil sERtaineE=iquiNen ries.-R.l_3i-!!-tc!fnmean3 -----a .l_ can occur ---mo, onces ,m If-R.l_3i-!!-ne (1ro tlisusoNTa-p ---ula tEi cnn.l_.-tc!fnneed3_R.l_3i-!!-to rettaken into accoE=tewhen doITE perioasc_R.l_3i-!! gho, s._R.l_3i-!!_R.l_3i-!!-Th!fnrout-1elusefnseNohlisu3 of-the .l_ ce =pp3_R.l_3i-!!-liedfas (search.-tcetsiND Ev N,iNceNosli3 --f-R.l_3i-!!-extent(1:3) Ev N,iNl qge, .l_ -----exi, s._R.l_3i-!!-tcereliee: dNcwel i=N one l qge .l_ andT mi soN_R.l_3i-!!-smaNohones,-_,!fnrout-1elwiNohperinrm poorly._R.l_3i-!!-(N**2 ,m Iflwors case)._R.l_3i-!!-======================================================================- chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gModuo =iOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmoduo _in a ReturnUSi tk,lmoduo _.l_3t q ------BUSi tk,lmoduo _sl_3top------BUSi tk,lmoduo _E_(2t.OR.l_3USi tk,lmoduo _alloc_R.l_3iUSi tk,lmoduo _sopy_imag _.l_3_R.l_3iUSi tk,lmoduo _ut-l_rank_R.l_3iUSi tk,lmoduo _ne (1lisu_R.l_3iLMPLICIT NONre--------------ireeoduspeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_single chldNchi------ireeDOUBpeethre ppm_module_INTEGER, PARAMETER :: MK Reurnikind_double chdas__R.---B!---mx [TER -1E_sidglem----------------------------------------ParalllPBOX ReturningInclude--- q q Cleaicle uin fo) #en------------------------------------------------------#include "0_ r/ rl---h"_---/ rreeMPImodule_INCLUDE 'mpif.h' chdas__R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gArgu,,st--t rn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn)=n [MK), DIMENppm_(:) ,iINTENT(IN ) :: ee_ophys.OR.l_3-!!-Min. extent_of-the physr--l dom in---turn)=n [MK), DIMENppm_(:) ,iINTENT(IN ) :: e & phys.OR.l_3-!!-Max. extent_of-the physr--l dom in---turnINTEGER , DIMENppm_(: ),iINTENT(IN ) :: bcd r.OR.l_3-!!-BoE=in,f codaswrmi / rl-swrmi---turn)=n [MK), DIMENppm_(:,:), POINTERReturn :: ee_osl_.OR.l_3-!!-Min. extent_of-the .l_ dom in---turn)=n [MK), DIMENppm_(:,:), POINTERReturn :: e & .l_.OR.l_3-!!-Max. extent_of-the .l_ dom in---turnINTEGER , DIMENppm_(:,:), POINTERReturn :: ine (1OR.l_3i-!!-PoITu3 -o-the `nne (1(:)`n.l_3 iv i.l_.OR.l_3INTEGER , DIMENppm_(: ),iPOINTERReturn :: nne (1OR.l_3i-!!-`nne (1(i.l_)`nreturns t,iNEot-l n -rs OR.l_3i-!!-iv ne (1roErITE .l_3 iv i.l_.OR.l_3INTEGER ,iINTENT(IN ) :: n.l_3_R.l_3i-!!-Tot-l n -rs tEv (re.') .l_ dom ins_R.l_3iINTEGER ,iINTENT( OUT) :: Einf_R.l_3i-!!--eturns 3t tus, 0 upo!qPRECI CxR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nL---l ---,pbo =n_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn)=n [MK), DIMENppm_( q q/mT) :: bsiND,le_o.l_.OR.l_3)=n [MK), DIMENppm_(:,:), POINTERReturn :: ctp3_R.l_3i)=n [MK) :: ex1,mx2,mx3_R.l_3i)=n [MK) :: en1,mn2,mn3.OR.l_3INTEGER , DIMENppm_(: ),iPOINTERReturn :: sl_id,lhbx,lpdx---turnINTEGER , DIMENppm_(:,:), POINTERReturn :: inp,jnp---turnINTEGER , DIMENppm_( q q/mT) :: ldc,Nm,NmEot---turnINTEGER , DIMENppm_(2*0_ r/mT) :: Ngl_R.l_3iINTEGER :: n.l_3plus,nnp---turnINTEGER :: i,j,ii,jj,k,kk,iop ,ienLOR.l_3iINTEGER :: ip -,jp -,n1,n2,i ,terOR.l_3iINTEGER :: isiND,ip,jp,cbox,i3t q ------BINTEGER :: j3t q ,jenL,ibox,jboxOR.l_3iINTEGER :: imx,jmx,kmx_R.l_3i)=n [MK) :: t0x(2t.ORLOGICAL :: isin,pbdrx,pbdry,pbdrzxR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turn--nExternal=px(2t.OR.l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,lrl-d_ne (1mot0 kin -_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gAllocn e_memory f r_sl_dom in IDsxR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turniop RReurniparam_alloc_fit Returnldc(1) mn.l_3_R.l_3ildct1o.= alloc(.l_id,ldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''Sl_ IDs_SUBID', cbdivi kin ------BOXLIX Returninnis(,,tiot2xReturn_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---InitializesN,iNID_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnments n .l_3------BOXLsl_idoi) minnis(,,tioGEnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Add gho, dom ins f r_the perioasc system Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q tk,lsopy_imag _.l_3(ee_ophyse( & physebcd roEddl,lmod_a ee_o.l_e( & .l_en.l_3,.l_id,n.l_3plus,ikin ------B--[Tist,& urniparam_PRECI C==X Returnin_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gAllocn e_memory f r_- q ne (1roEr soNTthe .l_dom ins_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turniop R.lReurniparam_alloc_grow Returnldc(1) mn.l_3plus o-----Bldct1o.= alloc(nne (1 ldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''N -rs tEv ne (1ro s NNEIGH', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---InitializesN,iNn -rs tEv ne (1roEr s-o-zero_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnments n .l_3plus_R.l_3iiiinne (1(i)-=E0------BtioGEnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---And_allocn esN,iNpo ,ter3 -o-the ne (1roEr OR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnldc(1) m26n--guI CITE Returnldc(2) mn.l_3pluso-----Bldct1o.= alloc(ine (1 ldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''LisusoNTne (1ro s INEIGH', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---InitializesN,iNne (1ro t.l_ !nasce3 -o-E=inrl--LOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------Returnments n .l_3plus_R.l_3iiiinmenjs nldc(1)_R.l_3iiiinR CB-Re (1(j,i)-=Eurniparam_E=inrl--LOR.l_3i---BtioGEn-----BtioGEnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---If-there-ariNlI C ---n 2 .l_s(N,iriNcan bq noTne (1ro sOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[T .l_3==LT._2)SX Ret8888-_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gAllocn e_N,iNce =ppepo ,teposswrmi _R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turniop R.lReurniparam_alloc_fit Returnldc(1) m0_ r/mT------Bldc(2) mn.l_3pluso-----Bldct1o.= alloc(ctp3 ldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''Sl_ ce =ppepo ,ts CTRS', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Store_N,iNce =ppepo ,tsnandT Ifl( & extent_of-any .l_.OR.l_3-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--[T0_ r/mT-=EQ. 3== _(2t.ORt.OR CRbsiND(1:3) =E0.0_MK_R.l_3iiiinments n .l_3plus_R.l_3iiiiiii Sctp3(1,i)- =E0.5_MK*(en!x.l_(1,i) +-e & .l_(1,i))_R.l_3iiiinR CBctp3(2,i)- =E0.5_MK*(en!x.l_(2,i) +-e & .l_(2,i))_R.l_3iiiinR CBctp3(3,i)- =E0.5_MK*(en!x.l_(3,i) +-e & .l_(3,i))_R.l_3iiiinR CBle_o.l_(1) me & .l_(1,i) --en!x.l_(1,i)-------BOXLISTTTle_o.l_(2)-=-e & .l_(2,i)--Een!x.l_(2,i)-------BOXLISTTTle_o.l_(3)-=-e & .l_(3,i)--Een!x.l_(3,i) ------BOXLISTTT--[Tle_o.l_(1).= 3bsiND(1))RbsiND(1)-=-le_o.l_(1)------BOXLISTTT--[Tle_o.l_(2).= 3bsiND(2))RbsiND(2)-=-le_o.l_(2)------BOXLISTTT--[Tle_o.l_(3).= 3bsiND(3))RbsiND(3)-=-le_o.l_(3)------BOXLItioGEn-----BtLSEnofixedST',bsiND(1:2) =E0.0_MK_R.l_3iiiinments n .l_3plus_R.l_3iiiiiii Sctp3(1,i)-=E0.5_MK*(en!x.l_(1,i) +-e & .l_(1,i))_R.l_3iiiinR CBctp3(2,i)-=E0.5_MK*(en!x.l_(2,i) +-e & .l_(2,i))_R.l_3iiiinR CBle_o.l_(1) me & .l_(1,i) --en!x.l_(1,i)-------BOXLISTTTle_o.l_(2)-=-e & .l_(2,i)--Een!x.l_(2,i)-------BOXLISTTT--[Tle_o.l_(1).= 3bsiND(1))RbsiND(1)-=-le_o.l_(1)------BOXLISTTT--[Tle_o.l_(2).= 3bsiND(2))RbsiND(2)-=-le_o.l_(2)------BOXLItioGEn-----Btiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEerm-1eln -rs tEv ceNosOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------Returnments n0_ r/mT------BOXLB!ln -rs tEv ceNos baseL ia a ceNosizes= cutoff ------BOXLBNm(i)-=EINT(Te & phys(i)--Een!xphys(i))/bsiND(i))_R.l_3iiiin!-e ke ---leas (one boxOR.l_3iSTTT--[TNm(i)-=LT._1)-Nm(i)-=E1nofixedST',bsiND(i)-=ETe & phys(i)--Een!xphys(i))/)=n [Nm(i),MK)n-----BtioGEnOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---NeeL iae l ys tEv gho, ceNos. Eve,mf r_non-peroiasc systemsnas Return---Ei cnwise N,iNne (1ro tcoE=te ,m Ifltop-leftNceNosli3 wrong.------B!---mx [TER -1E_sidglem------------------------------------------------------turn--[T0_ r/mT-=EQ. 3== _(2t.ORt.OR CRNgl(1:3) =E0t.ORt.OR CRNgl(4:6)-=E1nofixedST',NmEot(1)-=-Nm(1) +-Ngl(1) +-Ngl(4)nofixedST',NmEot(2)-=-Nm(2) +-Ngl(2) +-Ngl(5)nofixedST',NmEot(3)-=-Nm(3) +-Ngl(3) +-Ngl(6)n-----BtLSEnofixedST',Ngl(1:2) =E0t.ORt.OR CRNgl(3:4)-=E1nofixedST',NmEot(1)-=-Nm(1) +-Ngl(1) +-Ngl(3)nofixedST',NmEot(2)-=-Nm(2) +-Ngl(2) +-Ngl(4)n-----Btiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Build N,iNceNo lisu_R.l_3i!---mx [TER -1E_sidglem------------------------------------------------------turn--[T0_ r/mT-=EQ. 3== _(2t.ORt.OR CRldct1o.= ut-l_rank3d(ctp3 n.l_3plus,ee_ophyse( & physeNm,Ngl,lpdxoORddl,lmod_a IF''lhbx, kin ------BtLSEnofixedST',ldct1o.= ut-l_rank2d(ctp3 n.l_3plus,ee_ophyse( & physeNm,Ngl,lpdxoORddl,lmod_a IF''lhbx, kin ------Btiot2xReturn--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #el.l__railmd,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''FailmdNbuildITE(N,iNceNohlisu3.', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Build ceNo-ceNohl-dex lisu3_R.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returnldct1o.= ne (1lisu_MkNe (1Idx(.TRUE.,inp,jnp,nnp,ikin ------B--[Tist,& == _(2t.ORt.OR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))ldct1o.= dul_f---le #el.l__railmd,stk,lrl-d_ne (1moORddl,lmod_a IF''FailmdNbuildITE(N,iNceNo-ceNohlisu3.', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Si=N N,iNcurrent_leadITE(di,,ssrmi iv ine (1OR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnisizes= SIZE(ine (1 1 -_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gSearchITE(N,iNne (1roEr susITE N,iNceNo lisu_R.l_3i!---mx [TER -1E_sidglem------------------------------------------------------turn-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gTWO DIMENppm_S---turn-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_im.EQ.2== _(2t.ORt.OR CBn1 -=-NmEot(1)_R.l_3iiiin!-l-op ovnr_aNoh)=n NceNosl(n -rs ITE i3 0...n-1)_R.l_3iiiinimx-=-NmEot(1)-2t.ORt.OR CBjmx-=-NmEot(2)-2t.ORt.OR CBmenjs0,jmx------BOXLISTTT-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTT-))lubBt dNcwelariNia a boE=in,f ceNo oNTa-perioasc face.------BOXLISTTT-))tc!fnmean3 -----N,iriNcouldlbe perioasc imag s of-.l_s------BOXLISTTT-))-----welalreadyl i=N ,m IfllisusandTwenneed -o-subBt------BOXLr qTT-))f r_duplicatcs when addITE(N,ise .l_s.------BOXLISTTT-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTIF((j.EQ.jmx)& (bcd r(4)&EQ.urniparam_bcd r_perioasc=) _(2t.ORt.OR CBR CBCBR pbdry-=-.TRUE.t.ORt.OR CBR CBELSEnofixedST',--,--BR pbdry-=-.FALSE.t.ORt.OR CBR CBE.l_3.l_3i2d_m q qrnments0,imx------BOXLISTTTSTTTIF((i&EQ.imx)& (bcd r(2)&EQ.urniparam_bcd r_perioasc=) _(2t.ORt.OR CBR CBCBR -BR pbdrx-=-.TRUE.t.ORt.OR CBR CBR CBELSEnofixedST',--,--BR -BR pbdrx-=-.FALSE.t.ORt.OR CBR CBR CBE.l_3.l_3i2d_m q qrnnnnn!hl-dex Ev N,iNce =ppeboxOR.l_3iSTTTTTTTTTTTcbox mi-+E1-+En1*j-------BOXLISTTTTTTT!-l-op ovnr_aNohbox-box ,teractrminOR.l_3iR CCCCCCCCCCment ,ters n np---turn---BOXLISTTTTTTT!-deEerm-1elbox ,asce3 f r_- !fnikteractrmi---turn---BOXLISTTTTTTTibox mcbox+(inp(1,iikter)+n1*inp(2,i ,ter))_R.l_3iiiinR CBBBBBBBBBjbox mcbox+(jnp(1,iikter)+n1*jnp(2,i ,ter))_R.l_3iiiinR CBBBBBBBBB-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex ---turn---BOXLISTTTTTTT!- Read ,asce3 andTcubBt dNcbox s empty_R.l_3iiiinR CBBBBBBBBB-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex ---turn---BOXLISTTTTTTTi3t q -=-lhbx(ibox)_R.l_3iiiinR CBBBBBBBBBienL -=-lhbx(ibox+1)-1-2,u i=====ST',s(,,,,,,--[TienL =LT._i3t q ) CYCLEnofixedST',--,--BR -BR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex ---turn---BOXLISTTTTTTT!- Wi- !n-- q box itselfluse symmet,f and_avoid-------BOXLISTTTTTTTTTTT!- addITE(N,i-p ---feEitselflto iu3 own lisu_R.l_3iST',--,--BR -BR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex ---turn---BOXLISTTTTTTT--[Tibox =EQ. jbox== _(2t.ORt.OR CBR CBl_3iiiiiiiiimentp -=i3t q ,ienLOR.l_3iiiiiiiiiiiiiiiiiiiiiiiiiip-=-lpdx(tp -)_R.l_3iiiinR CBBBBBBBBBiiiiiiiiii =T.l_idoip)_---/ rreeSXF90 !CDIR NODEP chdas__R.l_3iRt.OR CBR CBl_3iiiiiiiiimenjp -=(tp -+1),ienLOR.l_3iiiiiiiiiiiiiiiiiiiiiiiiiiiiijp-=-lpdx(jp -)_R.l_3iiiinR CBBBBBBBBBiiiiiiiiiiiijj =T.l_idojp)_--nclude "dopo/tk,lrl-d_ne (1_.l_3_2d.-nc"_R.l_3iiiinR CBBBBBBBBBiiiiiiiiR.lGEnofixedST',--BBBBBBiiiiiiiiR.lGEnofixedST',--BBBBBBiiii-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex ---turn---BOXLISTTTTTTT!- F r_- q Ei cnnboxefnsubBt aNoht ---fenOR.l_3iR CCCCCCCCCCiiii-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex ---turn---BOXLISTTTTTTTELSEnofixedST',--,--BR -BR TTTT!-getNpo ,ter3 -o-firsusandTlas (p ---feEnofixedST',--,--BR -BR TTTTj3t q -=-lhbx(jbox)_R.l_3iiiinR CBBBBBBBBBTTTTjenL -=-lhbx(jbox+1)-1-2,u i=====ST',s(,,,,,,TTTT!-skip-- !fni ,ter dNcEi cnnbox s empty_R.l_3iiiinR CBBBBBBBBBBBBB--[TjenL =LT._j3t q ) CYCLEnofixedST',--,--BR -BR TTTT!-l-op ovnr_aNoht ---fen ,side - !fnceNot.ORt.OR CBR CBl_3iiiiiiiiimentp -=i3t q ,ienLOR.l_3iiiiiiiiiiiiiiiiiiiiiiiiiip-=-lpdx(tp -)_R.l_3iiiinR CBBBBBBBBBiiiiiiiiii =T.l_idoip)_---/ rreeSXF90 !CDIR NODEP chdas__R.l_3iRt.OR CBR CBl_3iiiiiiiiimenjp -=j3t q ,jenLOR.l_3iiiiiiiiiiiiiiiiiiiiiiiiiiiiijp-=-lpdx(jp -)_R.l_3iiiinR CBBBBBBBBBiiiiiiiiiiiijj =T.l_idojp)_--nclude "dopo/tk,lrl-d_ne (1_.l_3_2d.-nc"_R.l_3iiiinR CBBBBBBBBBiiiiiiiiR.lGEnofixedST',--BBBBBBiiiiiiiiR.lGEnofixedST',--BBBBBBiiiitiot2 ! ibox =EQ. jboxt.ORt.OR CBR CBR CBE.lmennnnnnnnnnn! i ,terOR.l_3iR CBR CBE.lmennnnnnnnnnnnnnn! i 3iR CBR CBE.lmennnnnnnnnnnnnnnnnnn! j-_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gTHREE DIMENppm_S---turn-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnELSEnofixedST',n1 -=-NmEot(1)_R.l_3iiiinn2 -=-NmEot(1)*NmEot(2)_R.l_3iiiin!-l-op ovnr_aNoh)=n NceNosl(n -rs ITE i3 0....n-1)_R.l_3iiiinimx-=-NmEot(1)-2t.ORt.OR CBjmx-=-NmEot(2)-2t.ORt.OR CBkmx-=-NmEot(3)-2t.ORt.OR CBmenks0,kmx------BOXLISTTT-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTT-))lubBt dNcwelariNia a boE=in,f ceNo oNTa-perioasc face.------BOXLISTTT-))tc!fnmean3 -----N,iriNcouldlbe perioasc imag s of-.l_s------BOXLISTTT-))-----welalreadyl i=N ,m IfllisusandTwenneed -o-subBt------BOXLr qTT-))f r_duplicatcs when addITE(N,ise .l_s.------BOXLISTTT-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTIF((k=EQ.kmx)& (bcd r(6)&EQ.urniparam_bcd r_perioasc=) _(2t.ORt.OR CBR CBCBR pbdrz-=-.TRUE.t.ORt.OR CBR CBELSEnofixedST',--,--BR pbdrz-=-.FALSE.t.ORt.OR CBR CBE.l_3.l_3i2d_m q qrnmenjs0,jmx------BOXLISTTTSTTTIF((j.EQ.jmx)& (bcd r(4)&EQ.urniparam_bcd r_perioasc=) _(2t.ORt.OR CBR CBCBR -BR pbdry-=-.TRUE.t.ORt.OR CBR CBR CBELSEnofixedST',--,--BR -BR pbdry-=-.FALSE.t.ORt.OR CBR CBR CBE.l_3.l_3i2d_m q qrnnnnnments0,imx------BOXLISTTTSTTTSTTTIF((i&EQ.imx)& (bcd r(2)&EQ.STTTddl,lmod_a IF'''''' a IFurniparam_bcd r_perioasc=) _(2t.ORt.OR CBR CBCBR -BR -BR pbdrx-=-.TRUE.t.ORt.OR CBR CBR CBR CBELSEnofixedST',--,--BR -BR TTTTpbdrx-=-.FALSE.t.ORt.OR CBR CBR CBR CBE.l_3.l_3i2d_m q qrnnnnnnnnn!hl-dex Ev N,iNce =ppeboxOR.l_3iSTTTTTTTTTTTTTTTcbox mi-+E1-+En1*j-+En2*t------BOXLr qTTnnnnnnnn!hl-op ovnr_aNohbox-box ,teractrminOR.l_3iR CCCCCCCCCCCCCCment ,ters n np---turn---BOXLISTTTTTTTnnnn!hdeEerm-1elbox ,asce3 f r_- !fnikteractrmi---turn---BOXLISTTTTTTTTTTTibox mcbox+(inp(1,iikter)+n1*inp(2,i ,ter)+Rddl,lmod_a IF'''''' a IF'IF' inn2*inp(3,i ,ter))_R.l_3iiiinR CBBBBBBBBBBBBBjbox mcbox+(jnp(1,iikter)+n1*jnp(2,i ,ter)+Rddl,lmod_a IF'''''' a IF'IF' inn2*jnp(3,i ,ter))_R.l_3iiiinR CBBBBBBBBBBBBB-l_3E &'xmaxEc_wri2d_m_fspat', & box i ---turn---BOXLISTTTTTTTnnnn!h Read ,asce3 andTcubBt dNcbox s empty_R.l_3iiiinR CBBBBBBBBBBBBB-l_3E &'xmaxEc_wri2d_m_fspat', & box i ---turn---BOXLISTTTTTTTnnnni3t q -=-lhbx(ibox)_R.l_3iiiinR CBBBBBBBBBnnnnienL -=-lhbx(ibox+1)-1-2,u i=====ST',s(,,,,,,,,,,--[TienL =LT._i3t q ) CYCLEnofixedST',--,--BR -BR BBBB-l_3E &'xmaxEc_wri2d_m_fspat', & box i ---turn---BOXLISTTTTTTTnnnn!- Wi- !n-- q box itselfluse symmet,f and_avoid-------BOXLISTTTTTTTTTTTnnnn!- addITE(N,i-p ---feEitselflto iu3 own lisu_R.l_3iST',--,--BR -BR BBBB-l_3E &'xmaxEc_wri2d_m_fspat', & box i ---turn---BOXLISTTTTTTTnnnn--[Tibox =EQ. jbox== _(2t.ORt.OR CBR CBl_3iiiiiiiiiiiiimentp -=i3t q ,ienLOR.l_3iiiiiiiiiiiiiiiiiiiiiiiiiiiiiip-=-lpdx(tp -)_R.l_3iiiinR CBBBBBBBBBiiiiiiiiiiiiii =T.l_idoip)_---/ rreeSXF90 !CDIR NODEP chdas__R.l_3iRt.OR CBR CBl_3iiiiiiiiiiiiimenjp -=(tp -+1),ienLOR.l_3iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiijp-=-lpdx(jp -)_R.l_3iiiinR CBBBBBBBBBiiiiiiiiiiiiiiiijj =T.l_idojp)_--nclude "dopo/tk,lrl-d_ne (1_.l_3_3d.-nc"_R.l_3iiiinR CBBBBBBBBBiiiiiiiiiiiiR.lGEnofixedST',--BBBBBBiiiiiiiiiiiiR.lGEnofixedST',--BBBBBBiiiiiiii-l_3E &'xmaxEc_wri2d_m_fspat', & box i ---turn---BOXLISTTTTTTTnnnn!- F r_- q Ei cnnboxefnsubBt aNoht ---fenOR.l_3iR CCCCCCCCCCiiiiiiii-l_3E &'xmaxEc_wri2d_m_fspat', & box i ---turn---BOXLISTTTTTTTnnnnELSEnofixedST',--,--BR -BR TTTTnnnn!-getNpo ,ter3 -o-firsusandTlas (p ---feEnofixedST',--,--BR -BR TTTTTTTTj3t q -=-lhbx(jbox)_R.l_3iiiinR CBBBBBBBBBTTTTTTTTjenL -=-lhbx(jbox+1)-1-2,u i=====ST',s(,,,,,,TTTTnnnn!-skip-- !fni ,ter dNcEi cnnbox s empty_R.l_3iiiinR CBBBBBBBBBBBBBBBBB--[TjenL =LT._j3t q ) CYCLEnofixedST',--,--BR -BR TTTTnnnn!-l-op ovnr_aNoht ---fen ,side - !fnceNot.ORt.OR CBR CBl_3iiiiiiiiiiiiimentp -=i3t q ,ienLOR.l_3iiiiiiiiiiiiiiiiiiiiiiiiiiiiiip-=-lpdx(tp -)_R.l_3iiiinR CBBBBBBBBBiiiiiiiiiiiiii =T.l_idoip)_---/ rreeSXF90 !CDIR NODEP chdas__R.l_3iRt.OR CBR CBl_3iiiiiiiiiiiiimenjp -=j3t q ,jenLOR.l_3iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiijp-=-lpdx(jp -)_R.l_3iiiinR CBBBBBBBBBiiiiiiiiiiiiiiiijj =T.l_idojp)_--nclude "dopo/tk,lrl-d_ne (1_.l_3_3d.-nc"_R.l_3iiiinR CBBBBBBBBBiiiiiiiiiiiiR.lGEnofixedST',--BBBBBBiiiiiiiiiiiiR.lGEnofixedST',--BBBBBBiiiiiiiitiot2 ! ibox =EQ. jboxt.ORt.OR CBR CBR CBiiiiR.lGE CBR CBiiii! i ,terOR.l_3iR CBR CBiiiiR.lGE CBR CBiiiiiiii! iOR.l_3iR CBR CBE.lmennnnnnnnnnnnnnniiii! j 3iR CBR CBE.lmennnnnnnnnnnnnnnnnnniiii! t------Btiot2 nnnnnnnnnnnnnnnniiii! 0_ r/mT-_R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gFlf-- Ifl(emory ag in---turn-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turniop RReurniparam_dealloc_R.l_3ildct1o.= alloc(ctp3 ldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))ldct1o.= dul_f---le #eldealloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''Sl_ ce =ppepo ,ts CTRS', cbdivi kin ------BOXLIX Returninnis(,,tiot2 o-----Bldct1o.= alloc(lpdxoldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))ldct1o.= dul_f---le #eldealloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''ceNo lisuNpo ,ter3 LPDX', cbdivi kin ------BOXLIX Returninnis(,,tiot2 o-----Bldct1o.= alloc(lhbx,ldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))ldct1o.= dul_f---le #eldealloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''ceNo lisuNheader3 LHBX', cbdivi kin ------BOXLIX Returninnis(,,tiot2 o-----Bldct1o.= alloc(inp,ldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))ldct1o.= dul_f---le #eldealloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''ceNo-ceNohl-teracta ia -dex INP', cbdivi kin ------BOXLIX Returninnis(,,tiot2 o-----Bldct1o.= alloc(jnp,ldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))ldct1o.= dul_f---le #eldealloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''ceNo-ceNohl-teract ia -dex JNP', cbdivi kin ------BOXLIX Returninnis(,,tiot2 o-8888niop RReurniparam_dealloc_R.l_3ildct1o.= alloc(.l_id,ldc,iop ,ikin ------B--[Tist,& urniparam_PRECI C== _(2t.ORt.OR CB-Reurni->0 ReturnE_(2t.OR.l_3o)))ldct1o.= dul_f---le #eldealloc,stk,lrl-d_ne (1moOR CBddl,lmod_a IF''Sl_ IDs_SUBID', cbdivi kin ------BOXLIX Returninnis(,,tiot2 nOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return----eturn Returnil_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,lrl-d_ne (1mot0 kin -etyperRETUR_m--------------ireeoduspeethre ppm_module_tio_SUBROUTbdi tk,lrl-d_ne (1_. chldNchi------ireeDOUBpeethre ppm_module_tio_SUBROUTbdi tk,lrl-d_ne (1_d chdas__libtk,-1.2/src/dopo/tk,lrl-d_ne (1_.l_3_2d.-nc000644 000765 000024 00000011241 11445666064 021605 0uqq q00om qqq ff000000 000000 R.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IncludenfnfeEf r_subBtITE if two sl_s(areTne (1ro s and_addITE( Return--- Ifm -o-the ne (1rorhlisu3 iv N,iy(are.-tc!fnusefnsymmet,f.------B!------B!- INPUT: INTEGER :: ip,jp--- ,asce3 Ev N,iNtwo sl_s, includITE Returninggggggggggggggggggggggggggggggthe perioasc imag s. ReturninggggggggggINTEGER :: ii,jj--- ,asce3 Ev N,iNcorrespo=iITE(re.' Returningggggggggggggggggggggggggggggg.l_s((--- out imag s). ReturningOUTPUT: INTEGER, DIMENppm_(: ) :: nne (1OR.l_3i-nggggggggggINTEGER, DIMENppm_(:,:) :: ine (1OR.l_3i-OR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---$Log: tk,lrl-d_ne (1_.l_3_2d.-nc,v $ Return----evisrmi 1.1.1.1 2007/07/13 10:18:54CB-vos Return---CBLnvers. e ---_,iNPPMhlib ,,f------B!------B!- -evisrmi 1.2 2006/03/28 21:00:24CB-vos Return---tcetEXIT s skippmd ,m Ifl__VECTOR case -o-allownvectorizn ia.------B!------B!- -evisrmi 1.1 2006/03/28 19:26:35CB-vos Return---Initiallimple,,stn ia. Tesumd f r_2d/3d/flf-space/perioasc.------B!------B!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---P !llelNP -----NM oriLib ,,f (PPM)---- -B!--Institbume---Computn iaallScience Returnin-ETH Zen rum, Hirssubngraben 84 Return---CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------R.l_3imx1 mMINTm &x.l_(1,ip),m &x.l_(1,jp))_R.l_3imx2 mMINTm &x.l_(2,ip),m &x.l_(2,jp))__R.l_3imn1 mMAX(en!x.l_(1,ip),mn!x.l_(1,jp))_R.l_3imn2 mMAX(en!x.l_(2,ip),mn!x.l_(2,jp))__R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---lubBt f r_adjace = faces. SHARK:-tcetfunny logsc isdfas er.------B!---mx [TER -1E_sidglem------------------------------------------------------turn--[T.NOT.(mx1=LT.en!x.l_(1,ip).OR.mx1=GT.e &x.l_(1,ip))& turnddl,lmod_a .NOT.(mx1=LT.en!x.l_(1,jp).OR.mx1=GT.e &x.l_(1,jp))& turnddl,lmod_a .NOT.(mx2=LT.en!x.l_(2,ip).OR.mx2=GT.e &x.l_(2,ip))& turnddl,lmod_a .NOT.(mx2=LT.en!x.l_(2,jp).OR.mx2=GT.e &x.l_(2,jp))== _(2t------BOXLI!---mx [TER -1E_sidglem-----------------------------------------------------BOXLI!--lubBt -----N, s sl_ !fn or alreadyl ,m IfllisusandTexclude_R.l_3iOXLI!--_,iNEesumd sl_ !tself.-tc!fnsubBt onlynneed3-to retdone_R.l_3iOXLI!--near perioasc boE=in,ie3 iv iae Ev N,iNceNosli3 a gho, ceNo._R.l_3iOXLI!--Onlyn ,m I!fnsonfigurawrmi /oTwenrisk doubleNen ries.-R.l_3iOXLI!---mx [TER -1E_sidglem-----------------------------------------------------BOXLIisin-=-.FALSE.t.ORt.OR CB--[T(pbdrx.OR.pbdry)& (ibox& jbox)== _(2t.ORt.OR CBR CB--[Tii =EQ. jj== _(2t.ORt.OR CBR CBl_3i! /oT or addgthe perioasc imag Ev myselft.ORt.OR CBR CBl_3iisin-=-.TRUE.t.ORt.OR CBR CBELSEnofixedST',--,--BR menkks n ne (1(ii)_R.l_3iiiinR CBBBBBBBBB--[Tise (1(kk,ii)-=EQ. jj== _(2t.ORt.OR CBR CBl_3iR CBl_3iisin-=-.TRUE.t---n/ rreeVECTORnofixedST',--BBBBBBiiiiiiiitXIT chdas__R.l_3iRt.OR CBR CBl_3iE.l_3.l_3i2d_m q qrnnnnnR.lGEnofixedST',--BBE.l_3.l_3i2d_m qE.l_3.l_3i2d_m q--[T.NOT.iisin== _(2t.ORt.OR CBR CB-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTT-))lubBt dNcwel i=N enoughl(emory allocn eLOR.l_3iiiiiiiii-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTIF ( ne (1(ii).GE.isize.OR. ne (1(jj=.GE.isize== _(2t.ORt.OR CBR CBl_3i! &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTSTTT-))if or,(re.'locn e_andTupdn e_N,iNisizes---,pbo t.ORt.OR CBR CBl_3i! &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTSTTTiop R.lReurniparam_alloc_grow_preserv t.ORt.OR CBR CBl_3ildc(1) misizes+ 100t.ORt.OR CBR CBl_3ildc(2) mn.l_3pluso-----BBBBBBBBBBBBBldct1o.= alloc(ine (1 ldc,iop ,ikin ------BBBBBBBBBBBBB--[Tist,& == _(2t.ORt.OR CBOXLISTTTSTTTiReurni->0 Returnfatalt.ORt.OR CBBBBBBBBBBBBBldct1o.= dul_f---le #elilloc,stk,lrl-d_ne (1moORddl,lmod_a IF'''''' a IF'.'locn rmi iv ine (1 railmd', cbdivi kin ------BOXLIIIIIIIIIIIIIX Returninnis(,,,,,,,,,,,,,,E.l_3.l_3i2d_m q qrnnnnn! &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTSTTT-))Si=N N,iNsizest.ORt.OR CBR CBl_3i! &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTSTTTisizes-=-ldc(1)_R.l_3iiiinR CBtiot2 o-----Bt.ORt.OR CBR CB-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTT-))Store_N,iNne (1roEr seu_R.l_3iST',--,--l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTT ne (1(ii)---BOXLISTTT=T ne (1(ii)-+ 1-2,u i=====ST',ise (1( ne (1(ii),ii)-= jj------BOXLISTTT ne (1(jj==--BOXLISTTT=T ne (1(jj==+ 1-2,u i=====ST',ise (1( ne (1(jj=,jj== mii.l_3i2d_m qE.l_3 o--BOXLtiot2 nOlibtk,-1.2/src/dopo/tk,lrl-d_ne (1_.l_3_3d.-nc000644 000765 000024 00000011624 11445666064 021613 0uqq q00om qqq ff000000 000000 ',--,--l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Pare a Par------B---IncludenfnfeEf r_subBtITE if two sl_s(areTne (1ro s and_addITE( Return--- Ifm -o-the ne (1rorhlisu3 iv N,iy(are.-tc!fnusefnsymmet,f.------B!------B!- INPUT: INTEGER :: ip,jp--- ,asce3 Ev N,iNtwo sl_s, includITE Returninggggggggggggggggggggggggggggggthe perioasc imag s. ReturninggggggggggINTEGER :: ii,jj--- ,asce3 Ev N,iNcorrespo=iITE(re.' Returningggggggggggggggggggggggggggggg.l_s((--- out imag s). ReturningOUTPUT: INTEGER, DIMENppm_(: ) :: nne (1OR.l_3i-nggggggggggINTEGER, DIMENppm_(:,:) :: ine (1OR.l--B!------B!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Pare a Par------B---$Log: tk,lrl-d_ne (1_.l_3_3d.-nc,v $ Return----evisrmi 1.1.1.1 2007/07/13 10:18:54CB-vos Return---CBLnvers. e ---_,iNPPMhlib ,,f------B!------B!- -evisrmi 1.2 2006/03/28 21:00:24CB-vos Return---tcetEXIT s skippmd ,m Ifl__VECTOR case -o-allownvectorizn ia.------B!------B!- -evisrmi 1.1 2006/03/28 19:26:36CB-vos Return---Initiallimple,,stn ia. Tesumd f r_2d/3d/flf-space/perioasc.------B!------B!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---P !llelNP -----NM oriLib ,,f (PPM)---- -B!--Institbume---Computn iaallScience Re- -B!--ETH Zen rum, Hirssubngraben 84 Return---CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------R.l_3imx1 mMINTm &x.l_(1,ip),m &x.l_(1,jp))_R.l_3imx2 mMINTm &x.l_(2,ip),m &x.l_(2,jp))_R.l_3imx3 mMINTm &x.l_(3,ip),m &x.l_(3,jp))__R.l_3imn1 mMAX(en!x.l_(1,ip),mn!x.l_(1,jp))_R.l_3imn2 mMAX(en!x.l_(2,ip),mn!x.l_(2,jp))_R.l_3imn3 mMAX(en!x.l_(3,ip),mn!x.l_(3,jp))__R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---lubBt f r_adjace = faces. SHARK:-tcetfunny logsc isdfas er.------B!---mx [TER -1E_sidglem------------------------------------------------------turn--[T.NOT.(mx1=LT.en!x.l_(1,ip).OR.mx1=GT.e &x.l_(1,ip))& turnddl,lmod_a .NOT.(mx1=LT.en!x.l_(1,jp).OR.mx1=GT.e &x.l_(1,jp))& turnddl,lmod_a .NOT.(mx2=LT.en!x.l_(2,ip).OR.mx2=GT.e &x.l_(2,ip))& turnddl,lmod_a .NOT.(mx2=LT.en!x.l_(2,jp).OR.mx2=GT.e &x.l_(2,jp))& turnddl,lmod_a .NOT.(mx3=LT.en!x.l_(3,ip).OR.mx3=GT.e &x.l_(3,ip))& turnddl,lmod_a .NOT.(mx3=LT.en!x.l_(3,jp).OR.mx3=GT.e &x.l_(3,jp))== _(2t------BOXLI!---mx [TER -1E_sidglem-----------------------------------------------------BOXLI!--lubBt -----N, s sl_ !fn or alreadyl ,m IfllisusandTexclude_R.l_3iOXLI!--_,iNEesumd sl_ !tself.-tc!fnsubBt onlynneed3-to retdone_R.l_3iOXLI!--near perioasc boE=in,ie3 iv iae Ev N,iNceNosli3 a gho, ceNo._R.l_3iOXLI!--Onlyn ,m I!fnsonfigurawrmi /oTwenrisk doubleNen ries.-R.l_3iOXLI!---mx [TER -1E_sidglem-----------------------------------------------------BOXLIisin-=-.FALSE.t.ORt.OR CB--[T(pbdrx.OR.pbdry.OR.pbdrz)& (ibox& jbox)== _(2t.ORt.OR CBR CB--[Tii =EQ. jj== _(2t.ORt.OR CBR CBl_3i! /oT or addgthe perioasc imag Ev myselft.ORt.OR CBR CBl_3iisin-=-.TRUE.t.ORt.OR CBR CBELSEnofixedST',--,--BR menkks n ne (1(ii)_R.l_3iiiinR CBBBBBBBBB--[Tise (1(kk,ii)-=EQ. jj== _(2t.ORt.OR CBR CBl_3iR CBl_3iisin-=-.TRUE.t---n/ rreeVECTORnofixedST',--BBBBBBiiiiiiiitXIT chdas__R.l_3iRt.OR CBR CBl_3iE.l_3.l_3i2d_m q qrnnnnnR.lGEnofixedST',--BBE.l_3.l_3i2d_m qE.l_3.l_3i2d_m q--[T.NOT.iisin== _(2t.ORt.OR CBR CB-l_3E &'xmaxEc_wri2d------------------------------------------------BOXLIR CB-))lubBt dNcwel i=N enoughl(emory allocn eLOR.l_3iiiiiiiii-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTIF ( ne (1(ii).GE.isize.OR. ne (1(jj=.GE.isize== _(2t.ORt.OR CBR CBl_3i! &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTR CB-))if or,(re.'locn e_andTupdn e_N,iNisizes---,pbo t.ORt.OR CBR CBl_3i! &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTSTTTiop R.lReurniparam_alloc_grow_preserv t.ORt.OR CBR CBl_3ildc(1) misizes+ 100t.ORt.OR CBR CBl_3ildc(2) mn.l_3pluso-----BBBBBBBBBBBBBldct1o.= alloc(ine (1 ldc,iop ,ikin ------BBBBBBBBBBBBB--[Tist,& == _(2t.ORt.OR CBOXLISTTTSTTTiReurni->0 Returnfatalt.ORt.OR CBBBBBBBBBBBBBldct1o.= dul_f---le #elilloc,stk,lrl-d_ne (1moORddl,lmod_a IF'''''' a IF'.'locn rmi iv ine (1 railmd', cbdivi kin ------BOXLIIIIIIIIIIIIIX Returninnis(,,,,,,,,,,,,,,E.l_3.l_3i2d_m q qrnnnnn! &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTSTTT-))Si=N N,iNsizest.ORt.OR CBR CBl_3i! &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTTSTTTisizes-=-ldc(1)_R.l_3iiiinR CBtiot2 o-----Bt.ORt.OR CBR CB-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTT-))Store_N,iNne (1roEr seu_R.l_3iST',--,--l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Par------BOXLISTTT ne (1(ii)---BOXLISTTT=T ne (1(ii)-+ 1-2,u i=====ST',ise (1( ne (1(ii),ii)-= jj------BOXLISTTT ne (1(jj==--BOXLISTTT=T ne (1(jj==+ 1-2,u i=====ST',ise (1( ne (1(jj=,jj== mii.l_3i2d_m qE.l_3 o--BOXLtiot2 nOlibtk,-1.2/src/dopo/tk,ldopolilloc.f000644 000765 000024 00000050570 11445666064 017711 0uqq q00om qqq ff000000 000000 ',--,--l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Pare a Par------B-))Subrout-1el : tk,ldopolilloc_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--Copyr (1t (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppef r_Fluid Dynamics (DTU)---- -B!------B!------B!-tc!fnfnfeE!fnp - ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPMh!fnflf--software: youNcan redisuribbumeiusand/ r_moasff------B!eiusE=inr-_,iNEerm3 Ev N,iNGNU Lesser Gene !l Publsc License Returni afnpublsshmdNby N,iNFlf--Software FoE=in rmi, eii cnn Returni vers. e 3 Ev N,iNLicense, r_(---yoEr op . e)-any latcnn Returni vers. e.------B!------B!-PPMh!fndisuribbumd ,m Iflhope -----iuswiNohbenuseful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,mN,iNimplimd warranty Ev------B!-MERCHANTABILITY r_FITNESS FOR A PARTICULAR PURPOSE. Sf-- If------B!-GNU Gene !l Publsc License f r_more details.------B!------B!-YouNshouldl i=N receivmd a sopy Ev N,iNGNU Gene !l Publsc License Returni andT IflGNU Lesser Gene !l Publsc License along --- -PPM.-If- or, Returni sf--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich Return--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------OR.l_3iSUBROUTbdi tk,ldopolilloc(dopoid,n.l_3,n.l_lisu,m &ne (1 prec kin ------B!!!-tc!fnrout-1el(re-).'locn e3 a dopology EbjecusandTaNohiu3 (embers__R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---ModufenOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmodufe_in a ReturnUSi tk,lmodufe_sl_3t q ReturnUSi tk,lmodufe_sl_3top ReturnUSi tk,lmodufe_E_(2t.OR.l_3USi tk,lmodufe_illoc_R.l_3iUSi tk,lmodufe_m or_illoc_R.l_3iUSi tk,lmodufe_typedev------BIMPLICIT NONE_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IncludenOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --nclude "0_ r/nrl--.h"_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return-NTEGER ,n-NTENT(IN ) :: n.l_s------B!!!-totalln -rs tEv .l_s(ia aNohtrocs Return-NTEGER ,n-NTENT(IN ) :: n.l_lisu_R.l_3i!!!-Locnlln -rs tEv .l_s(ia I!fntroc Return-NTEGER ,n-NTENT(IN ) :: m &ne (1_R.l_3i!!!-MaximumNn -rs tEv ne (1roEr sof-any .l_(ia I!fntrocess2t.OR.l_3-NTEGER ,n-NTENT(IN ) :: prec_R.l_3i!!!-Precisrmi f r_3torage. Oae Ev:_R.l_3i!!!_R.l_3i!!!-* tk,lkl-d_sITEo t.ORt.O!!!-* tk,lkl-d_double.OR.l_3-NTEGER ,n-NTENT(INOUT) :: dopoid------B!!!-topology id suructure-to ret(re)allocn eLOR.l_3i!!!_R.l_3i!!!-iv Nopoid--ir0T Ifa a new dopology shouldlbe allocn eL, els-- If------B!!!-dopology --- -id--irNopoid-!fnreallocn eLOR.l_3i-NTEGER ,n-NTENT(ngOUT) :: info------B!!!--eturn 3t tus,(ia PRECI C 0. __R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Locnll---,pbo sOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return-NTEGER , DIMENppm_(3==--B:: ldc_R.l_3i!!!-N -rs tEv ele,,stsNia aNohdi,,ssrmi3 f r_.'locn rmiOR.l_3i-NTEGER -B:: iop _R.l_3i!!!-.'locn rmi mode, sf--iae Ev o.= alloc_* .l_rout-1es.------B-NTEGER -B:: n.l_m &_R.l_3i!!!-contain3 --emMAX Ev Nopo% .l_3=andT1------B-NTEGER -B:: n.l_lisum &_R.l_3i!!!-contain3 --emMAX Ev Nopo% .l_lisusandT1------B-NTEGER -B:: dopolid&_R.l_3i!!!-locnll---,pbo lholdITE(N,iN -dex ,m Ifltk,ldopo array --- - If------B!!!-dopology -----shouldlbe (re)allocn eLOR.l_3iTYPE---letldopo), PO-NTERB:: dopoOR.l_3iTYPE---leptretldopo), DIMENppm_(:), PO-NTERB:: demptopoOR.l_3i-NTEGER -B:: iOR.l_3i)=n [tk,lkl-d_double) -B:: d0xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Initialise Returnil_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldopolillocmot0 kin -OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lubBt argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. == _(2t.ORt.OR q subBt------BOX--[Tist, & ==X Returninnis(,,tiot2xOR.l_3i--[TNopoid-=EQ. == _(2t.ORt.OR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBt.ORt.OR - Wel i=N -o-srea e_a new dopologyt.ORt.OR -l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBt------BOX--[To.= next_availldopo =EQ. urniparam_E=inrl--d== _(2t.ORt.OR CBOX!-tc!fni3 --emfirsusdopology, initialize every- !ngt.ORt.OR CBOX qOCATE---letopo(8), STAT= kin ------BOXLIII--[Tist, & == _(2t.ORt.OR CBOXLISTiReurni->0 Returnfatalt.ORt.OR CBBBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORddl,lmod_a IF'''''' a'Couldl or allocn e_tk,ldopo', cbdivi kin ------BOXLIIIIIIIX Returninnis(,,,,,,,,E.l_3.l_3i2d_m q qo.= next_availldopo = 1-2,u i=====STments nSIZE(tk,ldopo ------BOXLIII NULLIFY---letopo(i)%t)X!-firsusclean upNpo ,tert.ORt.OR CBBBBBBBldct1o.= illoc(--letopo(i)%t,urniparam_alloc_fi ,ikin ------BBBBBBBBBBB--[Tist, & == _(2t.ORt.OR CBOXLISTTTTT-Reurni->0 ReturnE_(2t.OR.l_3o)))R CBBBBBBBldct1o.= dul_f---le #eldealloc,stk,ldopolillocmo ORddl,lmod_a IF'''''' aaaaa'Couldl or allocn e_tk,ldopo ele,,sts', cbdivi kin ------BOXLIIIIIIIE.l_3.l_3i2d_m q qR.lGEnofixedSTELSE--[To.= next_availldopo =GT. SIZE(tk,ldopo == _(2t.ORt.OR CBOX!-Wenneed more space ,m Ifltk,ldopo array, enlarget.ORt.OR CBOX qOCATE-demptopo(SIZE(tk,ldopo =,STAT= kin ------BOXLIII--[Tist, & == _(2t.ORt.OR CBOXLISTiReurni->0 ReturnE_(2t.OR.l_3o)))R CBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORddl,lmod_a IF'''''' aa'Couldl or allocn e_demptopo', cbdivi kin ------BOXLIIIIIIIIX Returninnis(,,,,,,,,E.l_3.l_3i2d_m q qments nSIZE(demptopo ------BOXLIIIIIIIdemptopo(i)-= --letopo(i).l_3i2d_m q qR.lGEnofixedST q qmE qOCATE---letopo,STAT= kin ------BOXLIII--[Tist, & == _(2t.ORt.OR CBOXLISTiReurni->0 ReturnE_(2t.OR.l_3o)))R CBBBldct1o.= dul_f---le #eldealloc,stk,ldopolillocmo ORddl,lmod_a IF'''''' a'Couldl or deallocn e_tk,ldopo', cbdivi kin ------BOXLIIIE.l_3.l_3i2d_m q q qOCATE---letopo(2*SIZE(demptopo =,STAT= kin ------BOXLIII--[Tist, & == _(2t.ORt.OR CBOXLISTiReurni->0 ReturnE_(2t.OR.l_3o)))R CBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORddl,lmod_a IF'''''' a'Couldl or reallocn e_tk,ldopo', cbdivi kin ------BOXLIIIE.l_3.l_3i2d_m q qments nSIZE(demptopo ------BOXLIIIIIII--letopo(i)rnidemptopo(i).l_3i2d_m q qR.lGEnofixedST q qmentsSIZE(demptopo + nSIZE(tk,ldopo ------BOXLIIIIIIINULLIFY---letopo(i)%t)t.ORt.OR CBBBBBBBldct1o.= illoc(--letopo(i)%t,urniparam_alloc_fi ,ikin ------BBBBBBBBBBB--[Tist, & == _(2t.ORt.OR CBOXLISTTTTT-Reurni->0 ReturnE_(2t.OR.l_3o)))R CBBBBBBBldct1o.= dul_f---le #eldealloc,stk,ldopolillocmo ORddl,lmod_a IF'''''' aaaaa'Couldl or allocn e_tk,ldopo ele,,sts', cbdivi kin ------BOXLIIIIIIIE.l_3.l_3i2d_m q qR.lGEnofixedSTTTTTmE qOCATE-demptopo,STAT= kin ------BOXLIII--[Tist, & == _(2t.ORt.OR CBOXLISTiReurni->0 ReturnE_(2t.OR.l_3o)))R CBBBldct1o.= dul_f---le #eldealloc,stk,ldopolillocmo ORddl,lmod_a IF'''''' a'Couldl or deallocn e_demptopo', cbdivi kin ------BOXLIIIE.l_3.l_3i2d_mE.l_3.l_3i2d_mNopoid--qo.= next_availldopot.ORt.OR - getNa new availmNopo IDt.ORt.OR - f r_nowcwel i=N -o-subBtNby goITE(N,roughlaNohNopost.ORt.OR - bbu N, s shouldlbe or such a big deallbecaus-- IfrelariN ort.ORt.OR - many anyway --iuscan retdone ret=ppebysusITE a queue_3torITE aNot.ORt.OR !nflf--Nopost.ORt.OR dopolid& mMODTNopoid+ nSIZE(tk,ldopo +1 +1t.ORt.OR GEnofixedSTTTTT--[TNopolid& =EQ. Nopoid== _(2t.ORt.OR CBOXLISTtXIT -----BOXLIIIE.l_3.l_3i2d_mTTTT--[T.NOT.i--letopo(Nopolid&)%t%isinrl--d== _(2t.ORt.OR CBOXXXXXo.= next_availldopo = dopolid&_R.l_3iR CBOXLISTtXIT -----BOXLIIIE.l_3.l_3i2d_mTTTTdopolid& mdopolid& + 1-2,u i===R.lGEnofixedST--[TNopoid-=EQ. o.= next_availldopo== _(2t.ORt.OR CBOXo.= next_availldopo = SIZE(tk,ldopo + 1-2,u i===R.l_3.l_3i2dtiot2xO _mTTTTdopo =>i--letopo(Nopoid=%tO _mTTTTdopo%ID irNopoid __R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_- q dom in---turn-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOO---turniop R.lReurniparam_alloc_fi ---turnldc(1) mOR.l_im Return--[TOrec-=EQ. o.= kl-d_sITEo == _(2t.ORt.OR CBldct1o.= illoc(dopo%en!xphys3 ldc,iop ,ikin ------Bturn--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBturniReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''''''en! exte = of dom in TOPO%MIN_PHYSS', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3.l_3i2d_mTTldct1o.= illoc(dopo%eaxxphys3 ldc,iop ,ikin ------Bturn--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBturniReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''''''eax exte = of dom in TOPO%MAX_PHYSS', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3.l_3i2d_mTT--[TASSOCIATED(dopo%en!xphysd ==mE qOCATE-dopo%en!xphysd,STAT= kin ------BOXLINULLIFY-dopo%en!xphysd .l_3i2d_mTT--[TASSOCIATED(dopo%eaxxphysd ==mE qOCATE-dopo%eaxxphysd,STAT= kin ------BOXLINULLIFY-dopo%eaxxphysd .l_3i2dtLSEnofixedST',ldct1o.= illoc(dopo%en!xphysd,ldc,iop ,ikin ------Bturn--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBturniReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''''''en! exte = of dom in TOPO%MIN_PHYSD', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3.l_3i2d_mTTldct1o.= illoc(dopo%eaxxphysd,ldc,iop ,ikin ------Bturn--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBturniReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''''''eax exte = of dom in TOPO%MAX_PHYSD', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3.l_3i2d_mTT--[TASSOCIATED(dopo%en!xphyss ==mE qOCATE-dopo%en!xphyss,STAT= kin ------BOXLINULLIFY-dopo%en!xphyss .l_3i2d_mTT--[TASSOCIATED(dopo%eaxxphyss ==mE qOCATE-dopo%eaxxphys3 STAT= kin ------BOXLINULLIFY-dopo%eaxxphyss .l_3i2dE.l_3.l_3i2d-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--gT-emMAX Ev nal_lisusandT1 !fn eeded -o-avoid-.'locn rmi railures Return---iNTa-process2tl is 0 sl_s, same goe3 f r_n.l_s------B!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnn.l_m & mMAX(n.l_3,1)_R.l_3in.l_lisum & mMAX(n.l_lisu,1 -OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_- q .l_dom ins------B!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returniop R.lReurniparam_alloc_fi ---turnldc(1) mOR.l_im Returnldc(2) mn.l_3 Return--[TOrec-=EQ. o.= kl-d_sITEo == _(2t.ORt.OR CBldct1o.= illoc(dopo%en!x.l_3,ldc,iop ,ikin ------Bturn--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBturniReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''''''en! exte = of .l_3=TOPO%MIN_SUBS', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3.l_3i2d_mTTldct1o.= illoc(dopo%eaxx.l_3,ldc,iop ,ikin ------Bturn--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBturniReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''''''eax exte = of .l_3=TOPO%MAX_SUBS', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3.l_3i2d_mTT--[TASSOCIATED(dopo%en!x.l_d ==mE qOCATE-dopo%en!x.l_d,STAT= kin ------BOXLINULLIFY-dopo%en!x.l_d .l_3i2d_mTT--[TASSOCIATED(dopo%eaxx.l_d ==mE qOCATE-dopo%eaxx.l_d STAT= kin ------BOXLINULLIFY-dopo%eaxx.l_d .l_3i2dtLSEnofixedST',ldct1o.= illoc(dopo%en!x.l_d ldc,iop ,ikin ------Bturn--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBturniReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''''''en! exte = of .l_3=TOPO%MIN_SUBD', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3.l_3i2d_mTTldct1o.= illoc(dopo%eaxx.l_d ldc,iop ,ikin ------Bturn--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBturniReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''''''eax exte = of .l_3=TOPO%MAX_SUBD', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3.l_3i2d_mTT--[TASSOCIATED(dopo%en!x.l_3 ==mE qOCATE-dopo%en!x.l_s,STAT= kin ------BOXLINULLIFY-dopo%en!x.l_3 .l_3i2d_mTT--[TASSOCIATED(dopo%eaxx.l_s ==mE qOCATE-dopo%eaxx.l_s,STAT= kin ------BOXLINULLIFY-dopo%eaxx.l_s .l_3i2dtiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_- q .l_-to-proc mappITE Returnil_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returnldc(1) mn.l_3 Returnldct1o.= illoc(dopo%.l_2proc,ldc,iop ,ikin ------B--[Tist, & == _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''global .l_3=-o-proc map=TOPO%SUB2PROC', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_lisusof locnll.l_s------B!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnldc(1) mn.l_m &_R.l_3ildct1o.= illoc(dopo%i.l_lisu,ldc,iop ,ikin ------B--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''locnll.l__lisusTOPO%ISUBLIST', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_- q boE=in,f co=iItrminOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returniop R.lReurniparam_alloc_fi ---turnldc(1) m2*OR.l_im Returnldct1o.= illoc(dopo%bcd r,ldc,iop ,ikin ------B--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''boE=in,f co=iItrminsTOPO%BCDEF', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_- q .l_dom in costsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returniop R.lReurniparam_alloc_fi ---turnldc(1) mn.l_3 Return--[TOrec-=EQ. o.= kl-d_sITEo == _(2t.ORt.OR CBNULLIFY-dopo%.l__costd .l_3i2d_mTTldct1o.= illoc(dopo%.l__cost3,ldc,iop ,ikin ------Bturn--[TASSOCIATED(dopo%.l__costd ==mE qOCATE-dopo%.l__costd,STAT= kin ------BtLSEnofixedST',NULLIFY-dopo%.l__costs .l_3i2d_mTTldct1o.= illoc(dopo%.l__costd ldc,iop ,ikin ------Bturn--[TASSOCIATED(dopo%.l__costs ==mE qOCATE-dopo%.l__cost3,STAT= kin ------Bt.l_3.l_3i2d--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''.l_dom in costs=TOPO%SUB_COST', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_- q n -rs stEv ne (1ro stEv each locnll.l_ miOR.l_3i!--_,iNcurre = process2tli.e, al.l_se- ---_,iN ne (1(1:n.l_3)_lisu.------B!---mx [TER -1E_sidglem------------------------------------------------------turniop R.lReurniparam_alloc_fi ---turnldc(1) mn.l_lisum &_R.l_3ildct1o.= illoc(dopo% ne (1.l_3,ldc,iop ,ikin ------B--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''n -rs tEv ne (1ro stEv locnll.l_s=TOPO%NNEIGHSUBS', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_- q global IDs_of-aNohNhe ne (1rors.------B!---mx [TER -1E_sidglem------------------------------------------------------turniop R.lReurniparam_alloc_fi ---turnldc(1) mm &ne (1_R.l_3ildc(2) mn.l_lisu_R.l_3ildct1o.= illoc(dopo%ine (1.l_3,ldc,iop ,ikin ------B--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''ne (1ro stEv locnll.l_s=TOPO%INEIGHSUBS', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_BC f r_- q .l_s(ia IiNcurre = process2t------B!---mx [TER -1E_sidglem------------------------------------------------------turniop R.lReurniparam_alloc_fi ---turnldc(1) m2*OR.l_im Returnldc(2) mn.l_m &_R.l_3ildct1o.= illoc(dopo%.l_3_bc,ldc,iop ,ikin ------B--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''BC3 f r_.l_s(ia locnllprocess2tlTOPO%SUBS_BC', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_ IfllisusEv ne (1ro ITE process2ts.------B!---mx [TER -1E_sidglem------------------------------------------------------turniop R.lReurniparam_alloc_fi ---turnldc(1) m26turn--jususguessITE :-) FIXME: Why?_R.l_3ildct1o.= illoc(dopo%ine (1proc,ldc,iop ,ikin ------B--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolillocmo ORORddl,lmod_a IF''lisusEv ne (1ro process2ts=TOPO%INEIGHPROC', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Nullify N,iNcommunicn rmi sequence. IuswiNohbenallocn eL wheiOR.l_3i!--firsusused.------B!---mx [TER -1E_sidglem------------------------------------------------------turn--[TASSOCIATED(dopo%icommseq ==mE qOCATE-dopo%icommseq,STAT= kin ------BNULLIFY-dopo%icommseq ------Bdopo%i.op .mized-=-.FALSE.tOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---By default- IfrelariN o m ores inrl--d(ia a dopologyt.ORt.O-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returndopo%eaxxm orid--q0---turniop RReurniparam_dealloc_R.l_3ildct1o.= m or_illoc_equi-dopo%e or,ldc,iop ,ikin ------BNULLIFY-dopo%e or -OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Mark N, s dopology afn or derl--dt.ORt.O-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returndopo%isinrl--d-=-.FALSE.tOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Setm Ifltrecisrmi f r_N, s dopologyt.ORt.O-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returndopo%Orec-= prec_Ol_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return----eturnOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,ldopolillocmot0 kin -etyperRETUR_metyper ONTAINSmetyperSUBROUTbdi subBt------BOXurn--[T .l_3=.L == _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolillocmo Oddl,lmod_a IF'''''' .l_3=mususben>0', cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTT--[T .l_lisus.L == _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolillocmo Oddl,lmod_a IF'''''' .l_lisusmususben>0', cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTT--[T .l_3=.LT.mn.l_lisu== _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolillocmo Oddl,lmod_a IF''''''totalln -rs tEv .l_s( s sm!ller_N,aa locnl', cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTT--[Tm &ne (1=.LT.m == _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolillocmo Oddl,lmod_a IF''''''m &ne (1=mususben>=0', cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTT--[TNopoid& == _(2t.ORt.OR CBOXLI--[T(Nopoid>.SIZE(tk,ldopo ==.OR.Rddl,lmod_a IF'''''' aa(Nopoid<.1)== _(2t.ORt.OR CBR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBR CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolillocmo ddl,lmod_a IF'''''' aaa'Nopoid- -dexITE outside_tk,ldopo',ddl,lmod_a IF'''''' aaaa cbdivi kin ------BOXLIIIIIIIIIX Ret8888------BOXLIIIIIE.l_3.l_3i2d_m qE.l_3.l8888R CBlONTINUreetyperE.lrSUBROUTbdi subBt------BE.lrSUBROUTbdi tk,ldopolillocOlibtk,-1.2/src/dopo/tk,ldopolbox2.l_s.f000644 000765 000024 00000035045 11445666064 020366 0uqq q00om qqq ff000000 000000 -----B-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Pare a Par------B-))Subrout-1el : tk,ldopolbox2.l_sOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--Copyr (1t (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppef r_Fluid Dynamics (DTU)---- -B!------B!------B!-tc!fnfnfeE!fnp - ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPMh!fnflf--software: youNcan redisuribbumeiusand/ r_moasff------B!eiusE=inr-_,iNEerm3 Ev N,iNGNU Lesser Gene !l Publsc License Returni afnpublsshmdNby N,iNFlf--Software FoE=in rmi, eii cnn Returni vers. e 3 Ev N,iNLicense, r_(---yoEr op . e)-any latcnn Returni vers. e.------B!------B!-PPMh!fndisuribbumd ,m Iflhope -----iuswiNohbenuseful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,mN,iNimplimd warranty Ev------B!-MERCHANTABILITY r_FITNESS FOR A PARTICULAR PURPOSE. Sf-- If------B!-GNU Gene !l Publsc License f r_more details.------B!------B!-YouNshouldl i=N receivmd a sopy Ev N,iNGNU Gene !l Publsc License Returni andT IflGNU Lesser Gene !l Publsc License along --- -PPM.-If- or, Returni sf--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich Return--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------O#if aa KI.lr==a SINGLE_PRECIppm_metyperSUBROUTbdi tk,ldopolbox2.l_s_s(en!xbox,m &xbox,nchld,nbox, Oddl,lmod_a en!x.l_,m &x.l_,n.l_3, kin,boxid,level,blevel,child) #elifa KI.lr==a DOUBLE_PRECIppm_metyperSUBROUTbdi tk,ldopolbox2.l_s_d(en!xbox,m &xbox,nchld,nbox, Oddl,lmod_a en!x.l_,m &x.l_,n.l_3, kin,boxid,level,blevel,child) R.l_3i-!!-tc!fnrout-1elconverts boxe3 fromTa-ppm tlf- R.l_3i-!!-(srea edNby `tk,ldlf-`) -o-a se- ---.l_dom ins which Return-!!-inrl---a valid dom in decomposi ia. If- o tlf- level Return-!!- s specifieL, tc!fni3 done ry NatITE each childless Return-!!-tlf- box afnal.l_. Oi cnwis-- If boxe3 Ev N,i Return-!!-specific levellariNNatea. If-a sert in b ,nch Ev------B!!!-t,iNElf- doe3 or exte d -o-th---level,hNhe nex _R.l_3i!!!-h (1er exIstITE box can retNatea -o-fiNohNhe gap Return-!!- n rinr-_o return a decomposi ia --- - o hoo sOR.l_3i-!!- n space. chdas__OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Modufen OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX ReturnUSi tk,lmodufe_in a ReturnUSi tk,lmodufe_sl_3t q ReturnUSi tk,lmodufe_sl_3top ReturnUSi tk,lmodufe_E_(2t.OR.l_3USi tk,lmodufe_illoc_R.l_3iIMPLICIT NONE_#if aa KI.lr==a SINGLE_PRECIppm_metyperINTEGER, PARAMETERB:: MKrni->0 kl-d_sITEo t#elifa KI.lr==a DOUBLE_PRECIppm_metyperINTEGER, PARAMETERB:: MKrni->0 kl-d_double.chdas__R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IncludenOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --nclude "0_ r/nrl--.h"_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,stseturn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK), DIMENppm_(:,:),n-NTENT(IN ) :: mn!xboxOR.l_3i-!!-Lownr-co riinn e3 Ev N,iNboxe3.OR.l_3i-!!OR.l_3i-!!-1st- -dex: x,y[,z] +OR.l_3i-!!-2nd: box IDt.ORt.O)=n [MK), DIMENppm_(:,:),n-NTENT(IN ) :: m &xboxOR.l_3i-!!-Uppnr-co riinn e3 Ev N,iNboxe3.OR.l_3i-!!OR.l_3i-!!-1st- -dex: x,y[,z] +OR.l_3i-!!-2nd: box IDt.ORt.O-NTEGER ,n-NTENT(IN ) :: nboxOR.l_3i-!!-totalln -rs tEv boxe3t.ORt.O-NTEGER , DIMENppm_(: ),n-NTENT(IN ) :: nchldOR.l_3i-!!-N -rs tEv childrentEv each box&t.ORt.O-NTEGER , DIMENppm_(: ),n-NTENT(IN ), OPTpm_AL :: blevel Return-!!-Tlf- leveltEv each box afnreturnedNby tk,ldlf-.OR.l_3i-!!-Need3-to retpresent-iNTlevelt!fntresent&t.ORt.O-NTEGER , DIMENppm_(:,:),n-NTENT(IN ), OPTpm_AL :: childOR.l_3i-!!-Childrent(1st- -dex)_of-aNohboxe3 (2nd- -dex).OR.l_3i-!!-Need3-to retpresent-iNTlevelt!fntresent&t.ORt.O-NTEGER ,n-NTENT(IN ), OPTpm_AL :: level Return-!!-Specifies tlf- level fromTwhichhboxe3 ari------B!!!-to retNatea. If-> 0, onlyn If boxe3 whichhariNtrecisely------B!!!-ia I---levelhariNreturned, possiblynleadITE(No hoo s in---turn-!!-t,iNdecomposi ia. If-< 0, hoo s ariNfiNomd w-- - If nex _R.l_3i!!!-h (1er-levelhexIstITE box&t.ORt.O-NTEGER , DIMENppm_(: ),nPO-NTER, OPTpm_AL :: boxidOR.l_3i-!!-to whichhEv N,iNorigiaallboxe3 doe3 each .l_ correspo=i?OR.l_3i-!!-Onlynallocn eL andTreturnedNEv oresent&t.ORt.O)=n [MK), DIMENppm_(:,:),nPO-NTERBBBBBBB:: mn!x.l_OR.l_3i-!!--eturns lownr-co riinn e3 Ev N,iN.l_s.t.ORt.O)=n [MK), DIMENppm_(:,:),nPO-NTERBBBBBBB:: m &x.l_OR.l_3i-!!--eturns uppnr-co riinn e3 Ev N,iN.l_s.t.ORt.O-NTEGER ,n-NTENT(ngOUT) :: n.l_s------B!!!-N -rs tEv .l_s.t.ORt.O-NTEGER ,n-NTENT(ngOUT) :: info------B!!!--eturns 3t tus,(0 upia PRECI C_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Locnll---,pbo sn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK) :: d0x.ORt.O-NTEGER :: iop ,i,j,IstaBt------BINTEGER, DIMENppm_(2) :: ldc_R.l_3iINTEGER, DIMENppm_(:),nPO-NTERBBBBBBB :: .l_box,boxstaBt------B!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Exteraalsn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialisen_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldopolbox2.l_smot0 kin -OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lubBt input argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. == _(2t.ORt.OR q subBt------BOX--[Tist, & ==X Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_lisuOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returniop R.l.lReurniparam_alloc_fi ---turnldc(1) TT=T boxOR.l_3ildct1o.= illoc(.l_box,ldc,iop ,ikin ------B--[Tist,& == _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolbox2.l_smo.ORt.OR CBddl,lmod_a IF''lisusEv box IDsrSUBBOX', cbdivi kin ------BOXLIX Returninnis(,,tiot2n_R.l_3i.l_boxl.lReurniparam_E=inrl--d-OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lount_- q n -rs tEv .l_s(andTbuild a_lisuOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return .l_3=-q0---turn--[TPRESENT(level)== _(2t.ORt.OR CB--[Tlevelh=GT. == _(2t.ORt.OR R.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a Part.ORt.OR R.l_3i---lount_boxe3 En specifieL level ReturnR R.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a Part.ORt.OR R.l_3iments n boxOR.l_3iiiiiiiiiiiii--[Tblevel(i)-=EQ. level)= _(2t.ORt.OR CBOXLISTTTSTTT .l_3=-q .l_3=+ 1-2,u i=====ST',,,,,,,,,.l_box(n.l_3)_= iOR.l_3iiiiiiiiiiiiiE.l_3.l_3i2d_m q qrnR.lGEnofixedSTTTELSEnofixedST',--,--l_3E &'xmaxEc_wri----------------- & box i dex e a Part.ORt.OR R.l_3i---TraversiNElf- ---mo, down -o-the specifieL level ReturnR R.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a Part.ORt.OR R.l_3iiop R.l.lReurniparam_alloc_fi ---turnnnnnnnnnldc(1) TT=TMIN((-level-2)*(nchld(1)-1 + nchld(1),1)_R.l_3iiiinR CBldct1o.= illoc(boxstaBt ldc,iop ,ikin ------BBBBBBBBB--[Tist,& == _(2t.ORt.OR CBOXLISTTTiReurni->0 Returnfatalt.ORt.OR CBBBBBBBCBldct1o.= dul_f---le #elilloc,stk,ldopolbox2.l_smo.ORt.OR CBddl,lmod_a IF''''''''''staBttEv boxe3 -o-traversiNBOXSTACK', cbdivi kin ------BOXLIIIIIIIIIX Returninnis(,,,,,,,,,,tiot2 nOnis(,,,,,,,,,,! push root_boxt.ORt.OR R.l_3iistaBtt= 1-2,u i=====ST boxstaBt(istaBt)t= 1-Onis(,,,,,,,,,,! traversiNt,iNElf- -o-findTboxe3t.ORt.OOOOOOOOOmenWHILE (istaBth=GT. ==t.ORt.OR CBOXLISTTTit= boxstaBt(istaBt)t.ORt.OR CBOXLISTTTistaBtt= istaBtt- 1-2,u i=====ST',,,,,! addTbox-iNTitt!fnon desireL level r_above_andThaso-----BBBBBBBBBBBBB!- o childrenOR.l_3iiiiiiiiiiiii--[TTblevel(i)=EQ.-level).OR.(nchld(i)=EQ.0)== _(2t.ORt.OR CBR CBOXLIIIII .l_3=-q .l_3=+ 1-2,u i=====ST',,,,,,,,,.l_box(n.l_3)_= iOR.l_3iiiiiiiiiiiiiELSEnofixedST',--,-BBBBBBBB!-grow staBttif eedednofixedST',--,-BBBBBBBB--[TTistaBt+nchld(i))h=GT. ldc(1)== _(2t.ORt.OR CBR CBOXLIIIIIIIIIldc(1) mldc(1) + nchld(i)t.ORt.OR CBOXLISTTTTTTTTTTTiop R.l.lReurniparam_alloc_grow_preserv t.ORt.OR CBR CBl_3iiiiiiiiildct1o.= illoc(boxstaBt ldc,iop ,ikin ------BBBBBBBBB--,-BBBBBBBB--[Tist,& == _(2t.ORt.OR CBOXLISTTTSTTTTTTTTTTTiReurni->0 Returnfatalt.ORt.OR CBBBBBBBCBl_3iiiiiiiiildct1o.= dul_f---le #elilloc,stk,ldopolbox2.l_smoddl,lmod_a IF'''''' a IFFFFFFFFF'staBttEv boxe3 -o-traversiNBOXSTACK', ORddl,lmod_a IF'''''' a IFFFFFFFFF cbdivi kin ------BOXLIIIIIIIIIIIIIIIIIIIIIX Returninnis(,,,,,,,,,,,,,,,,,,,,,,tiot2n_R.l_3i,,,,,,,,,,,,,,,,tiot2n_R.l_3i,,,,,,,,,,,,,,,,! push aNohiu3 childrent-o-the staBt------BBBBBBBBBBBBBBBBBmenjs n chld(i)t.ORt.OR CBOXLISTTTTTTTTTTTistaBtt= istaBtt+ 1-2,u i=====ST',,,,,,,,,,,,,boxstaBt(istaBt)t= child(j,i)t.ORt.OR CBOXLISTTTTTTTR.lGEnofixedSTTTTT,,,,,,tiot2.l_3i2d_m q qrnR.lGEnofixedSTTTTTTTOnis(,,,,,,,,,,! deallocn e_staBt------BBBBBBBBBiop R.l.lReurniparam_dealloc_R.l_3iiiiiiiiildct1o.= illoc(boxstaBt ldc,iop ,ikin ------BBBBBBBBB--[Tist,& == _(2t.ORt.OR CBOXLISTTTiReurni->0 ReturnE_(2t.OR.l_3o)))R CBR CBldct1o.= dul_f---le #eldealloc,stk,ldopolbox2.l_smo.ORt.OR ddl,lmod_a IF''''''''''staBttEv boxe3 -o-traversiNBOXSTACK', cbdivi kin ------BOXLIIIIItiot2n_R.l_3i,,,,R.l_3.l_3i2dtLSEnofixedST',-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllnofixedST',---lount_childlessTboxe3t.ORt.OOOOO-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllnofixedST',ments n boxOR.l_3iiiiiiiii--[T chld(i)=.LT.m1== _(2t.ORt.OR CBOXLISTTT .l_3=-q .l_3=+ 1-2,u i=====ST',,,,,.l_box(n.l_3)_= iOR.l_3iiiiiiiiiE.l_3.l_3i2d_m qE.lGEnofixedtiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_(emory f r_.l_sOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returniop R.l.lReurniparam_alloc_fi ---turnldc(1) TT=TOR.l_im Returnldc(2) mn.l_3 Returnldct1o.= illoc(en!x.l_,ldc,iop ,ikin ------B--[Tist,& == _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolbox2.l_smo.ORt.OR CBddl,lmod_a IF''en!imumNexte = of .l_3=MIN_SUB', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2dldct1o.= illoc(e &x.l_,ldc,iop ,ikin ------B--[Tist,& == _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolbox2.l_smo.ORt.OR CBddl,lmod_a IF''eaximumNexte = of .l_3=MAX_SUB', cbdivi kin ------BOXLIX Returninnis(,,tiot2n_R.l_3i--[TPRESENT(boxid)== _(2t.ORt.OR CBldc(1) mn.l_3 Return3i2dldct1o.= illoc(boxid,ldc,iop ,ikin ------Bturn--[Tist,& == _(2t.ORt.OR CBOXLIiReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolbox2.l_smo.ORt.OR CBddl,lmod_a IF''''''box ID of .l_3=BOXID', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3 nnis(,,tiot2n_OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Store sl_sOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--[TOR.l_im-=EQ. 2== _(2t.ORt.OR CBments n .l_3 Return3i2dddddjrni.l_box(i)t.ORt.OR CBOXLIen!x.l_(1,i)rnimn!xbox(1,j)t.ORt.OR CBOXLIen!x.l_(2,i)rnimn!xbox(2,j)t.ORt.OR CBOXLIe &x.l_(1,i)rnim &xbox(1,j)t.ORt.OR CBOXLIe &x.l_(2,i)rnim &xbox(2,j)t.ORt.OR CBE.lGEnofixedtLSEnofixedST',ments n .l_3 Return3i2dddddjrni.l_box(i)t.ORt.OR CBOXLIen!x.l_(1,i)rnimn!xbox(1,j)t.ORt.OR CBOXLIen!x.l_(2,i)rnimn!xbox(2,j)t.ORt.OR CBOXLIen!x.l_(3,i)rnimn!xbox(3,j)t.ORt.OR CBOXLIe &x.l_(1,i)rnim &xbox(1,j)t.ORt.OR CBOXLIe &x.l_(2,i)rnim &xbox(2,j)t.ORt.OR CBOXLIe &x.l_(3,i)rnim &xbox(3,j)t.ORt.OR CBE.lGEnofixedtiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Store box IDsrif eedednofixed-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--[TPRESENT(boxid)== _(2t.ORt.OR CBments n .l_3 Return3i2dddddboxid(i)rni.l_box(i)t.ORt.OR CBE.lGEnofixedtiot2xR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Deallocn e_lisuOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returniop R.l.lReurniparam_dealloc_R.l_3ildct1o.= illoc(.l_box,ldc,iop ,ikin ------B--[Tist,& == _(2t.ORt.OR CBiReurni->0 ReturnE_(2t.OR.l_3o)))ldct1o.= dul_f---le #elilloc,stk,ldopolbox2.l_smo.ORt.OR CBddl,lmod_a IF''lisusEv box IDsrSUBBOX', cbdivi kin ------Btiot2n_OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return----eturn OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,ldopolbox2.l_smot0 kin -etyperRETUR_metyper ONTAINSmetyperSUBROUTbdi subBt------BOXu--[T box .LT.m == _(2t.ORt.OR CBOXiReurni->0 ReturnE_(2t.OR.l_3o)))R ldct1o.= dul_f---le #elirgu,,st,stk,ldopolbox2.l_smo.ORt.ddl,lmod_a IF''''N -rs tEv boxe3=mususben>= 0', cbdivi kin ------BOXLIIIX Ret8888------BOXLE.l_3.l_3i2d_m ments nOR.l_im Returni2d_m menjs n boxOR.l_3iiiiiiiiii--[Tmn!xbox(i,j)h=GT. m &xbox(i,j)== _(2t.ORt.OR CBR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBR CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolbox2.l_smo.ORddl,lmod_a IF''''''''''mn!xbox=mususben0 ReturnE_(2t.OR.l_3o)))R CBR ldct1o.= dul_f---le #elirgu,,st,stk,ldopolbox2.l_smo.ORt.ddl,lmod_a IF''''''''blevel=mususbenpresent-iNTlevelt!f.', cbdivi kin ------BOXLIIIIIIIX Ret8888------BOXLIIIItiot2.l_3i2d_m q qr--[T.NOT.PRESENT(child)== _(2t.ORt.OR CB TTXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBR ldct1o.= dul_f---le #elirgu,,st,stk,ldopolbox2.l_smo.ORt.ddl,lmod_a IF''''''''child=mususbenpresent-iNTlevelt!f.', cbdivi kin ------BOXLIIIIIIIX Ret8888------BOXLIIIItiot2.l_3i2d_m E.l_3.l8888R CBlONTINUreetyperE.lrSUBROUTbdi subBt-#if aa KI.lr==a SINGLE_PRECIppm_metyperE.lrSUBROUTbdi tk,ldopolbox2.l_s_st#elifa KI.lr==a DOUBLE_PRECIppm_metyperE.lrSUBROUTbdi tk,ldopolbox2.l_s_d.chdas__libtk,-1.2/src/dopo/tk,ldopolsubBt.f000644 000765 000024 00000027160 11445666064 017673 0uqq q00om qqq ff000000 000000 etyper-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Pare a Par------B-))Subrout-1el : tk,ldopolsubBt------B-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--Copyr (1t (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppef r_Fluid Dynamics (DTU)---- -B!------B!------B!-tc!fnfnfeE!fnp - ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPMh!fnflf--software: youNcan redisuribbumeiusand/ r_moasff------B!eiusE=inr-_,iNEerm3 Ev N,iNGNU Lesser Gene !l Publsc License Returni afnpublsshmdNby N,iNFlf--Software FoE=in rmi, eii cnn Returni vers. e 3 Ev N,iNLicense, r_(---yoEr op . e)-any latcnn Returni vers. e.------B!------B!-PPMh!fndisuribbumd ,m Iflhope -----iuswiNohbenuseful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,mN,iNimplimd warranty Ev------B!-MERCHANTABILITY r_FITNESS FOR A PARTICULAR PURPOSE. Sf-- If------B!-GNU Gene !l Publsc License f r_more details.------B!------B!-YouNshouldl i=N receivmd a sopy Ev N,iNGNU Gene !l Publsc License Returni andT IflGNU Lesser Gene !l Publsc License along --- -PPM.-If- or, Returni sf--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich Return--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------O#if aa KI.lr==a SINGLE_PRECIppm_metyperSUBROUTbdi tk,ldopolsubBt_s(Nopoid,xp,Np -,dopolok kin -#elifa KI.lr==a DOUBLE_PRECIppm_metyperSUBROUTbdi tk,ldopolsubBt_d(Nopoid,xp,Np -,dopolok kin -#edas__R.l_3i!!!-lubBtsrif aNohp -----s ariNia IiNcurre = dopology.OR.l_3i-!!-(ia IiNocnllprocess2t)------B-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---IncludenOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --nclude "0_ r/nrl--.h"_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Modufen_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnUSi tk,lmodufe_in a ReturnUSi tk,lmodufe_sl_3t q ReturnUSi tk,lmodufe_sl_3top ReturnUSi tk,lmodufe_E_(2t.OR.l_3USi tk,lmodufe_subBt_idOR.l_3iIMPLICIT NONE_#if aa KI.lr==a SINGLE_PRECIppm_metyperINTEGER, PARAMETERB:: MKrni->0 kl-d_sITEo t#elifa KI.lr==a DOUBLE_PRECIppm_metyperINTEGER, PARAMETERB:: MKrni->0 kl-d_double.chdas___R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK), DIMENppm_(:,:),n-NTENT(IN ) :: xp Return-!!-P -----Nlocn rmi3t.ORt.O-NTEGER ,n-NTENT(IN ) :: Np - Return-!!-N -rs tEv p -----s ia I!fntrocess2t------BLOGICAL ,n-NTENT(ngOUT) :: dopolok Return-!!-Is-_,iNEopology cmi3isu,stt.ORt.O-NTEGER ,n-NTENT(IN ) :: Nopoid Return-!!-T,iNEopology to retsubBtednofixed-NTEGER ,n-NTENT(ngOUT) :: info------B!!!--eturns 3t tus,(0 upia PRECI C__R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Locnll---,pbo sOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK) :: d0x.ORt.O-NTEGER :: ip -,idom,j,IsmiOR.l_3iLOGICAL :: validmetyperINTEGER, DIMENppm_(:),nPO-NTERB:: bcd rmetyperTYPE(tk,ldldopo ,nPO-NTERB:: dopo_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---ExteraalsOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------OR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---InitialiseOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldopolsubBtmot0 kin -etyperdopolok-=-.TRUE.tOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lubBt argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. == _(2t.ORt.OR q subBt------BOX--[Tist, & ==X Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Setm opoid Return-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return opo => tk,ldopo(Nopoid)%tt.ORt.Obcd r => dopo%bcd rtOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lubBt aNohp -----sOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_im-=EQ. 2== _(2t.ORt.OR CBmentp -=1,Np - ReturnnnnnnnnnIsmi=-q0---turnRt.OR CBmenjs ndopo% .l_lisu_R.l_3iturnnnnnnnnnIdom=-qdopo%i.l_lisu(j)_#if aaa KI.lr==a SINGLE_PRECIppm_metyperrrrrrrrrrrrrr--[Txp(1,ip -).GE.dopo%en!x.l_3(1,idom).AND.ORddl,lmod_a IF'''''' a xp(1,ip -).LE.dopo%eaxx.l_s(1,idom).AND.ORddl,lmod_a IF'''''' a xp(2,ip -).GE.dopo%en!x.l_3(2,idom).AND.ORddl,lmod_a IF'''''' a xp(2,ip -).LE.dopo%eaxx.l_s(2,idom)== _(2t.ORt.OR CBOXLISTTTS-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e at.ORt.OR CBOXLISTTTS---In_- q non-periodic case, illow p -----s -----ari------BR CBOXLISTTTS---exactly ON an uppnr-EXTER_AL boE=in,f.t.ORt.OR CBOXLISTTTS-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e at.ORt.OR CBOXLISTTTSIF(Txp(1,ip -).LT.dopo%eaxx.l_s(1,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(2,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(2)& urniparam_bcd r_periodic))' aa.AND.ORddl,lmod_a IF'''''' a (xp(2,ip -).LT.dopo%eaxx.l_s(2,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(4,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(4)& urniparam_bcd r_periodic))== _(2t#elifaa KI.lr==a DOUBLE_PRECIppm_metyperR CBOXLISTTTSIF[Txp(1,ip -).GE.dopo%en!x.l_d(1,idom).AND.ORddl,lmod_a IF'''''' a xp(1,ip -).LE.dopo%eaxx.l_d(1,idom).AND.ORddl,lmod_a IF'''''' a xp(2,ip -).GE.dopo%en!x.l_d(2,idom).AND.ORddl,lmod_a IF'''''' a xp(2,ip -).LE.dopo%eaxx.l_d(2,idom)== _(2t.ORt.OR CBOXLISTTTS-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e at.ORt.OR CBOXLISTTTS---In_- q non-periodic case, illow p -----s -----ari------BR CBOXLISTTTS---exactly ON an uppnr-EXTER_AL boE=in,f.t.ORt.OR CBOXLISTTTS-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e at.ORt.OR CBOXLISTTTSIF(Txp(1,ip -).LT.dopo%eaxx.l_d(1,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(2,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(2)& urniparam_bcd r_periodic))' aa.AND.ORddl,lmod_a IF'''''' a (xp(2,ip -).LT.dopo%eaxx.l_d(2,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(4,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(4)& urniparam_bcd r_periodic))== _(2t#edas__R.l_3iiiiiiiiiiiiiiiii! p -----h!fn n netEv my sl_sOl_3i2dddddddddddddddddIsmi=-q1-2,u i=====ST',,,,,,,,,EXIT-2,u i=====ST',,,,,,tiot2.l_3i2d_m q qrn,,,,,tiot2.l_3i2d_m q qrnR.lGEnofixedSTTTTTTT--[Tismi==EQ. == _(2t.ORt.OR CBOXLISTTT! foE=iTa-p -----h-----violn e3 _,iNEopologyt.ORt.OR CBOXLISTTTdopolok-=-.FALSE.t.ORt.OR CBOXLISTTT! no eed to searchhany furi cnt.ORt.OR CBOXLISTTTX Returninnis(,,,,,,,,,,tiot2 ,,,,,,,,,,tioGEnofixedtLSE--[TOR.l_im-=EQ. 3== _(2t.ORt.OR CBmentp -=1,Np - ReturnnnnnnnnnIsmi=-q0---turnRt.OR CBmenjs ndopo% .l_lisu_R.l_3iturnnnnnnnnnIdom=-qdopo%i.l_lisu(j)_#if aaa KI.lr==a SINGLE_PRECIppm_metyperrrrrrrrrrrrrr--[Txp(1,ip -).GE.dopo%en!x.l_3(1,idom).AND.ORddl,lmod_a IF'''''' xp(1,ip -).LE.dopo%eaxx.l_s(1,idom).AND.ORddl,lmod_a IF'''''' a xp(2,ip -).GE.dopo%en!x.l_3(2,idom).AND.ORddl,lmod_a IF'''''' a xp(2,ip -).LE.dopo%eaxx.l_s(2,idom).AND.ORddl,lmod_a IF'''''' a xp(3,ip -).GE.dopo%en!x.l_3(3,idom).AND.ORddl,lmod_a IF'''''' a xp(3,ip -).LE.dopo%eaxx.l_s(3,idom)== _(2t.ORt.OR CBOXLISTTTS-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e at.ORt.OR CBOXLISTTTS---In_- q non-periodic case, illow p -----s -----ari------BR CBOXLISTTTS---exactly ON an uppnr-EXTER_AL boE=in,f.t.ORt.OR CBOXLISTTTS-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e at.ORt.OR CBOXLISTTTSIF(Txp(1,ip -).LT.dopo%eaxx.l_s(1,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(2,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(2)& urniparam_bcd r_periodic))' aa.AND.ORddl,lmod_a IF'''''' a (xp(2,ip -).LT.dopo%eaxx.l_s(2,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(4,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(4)& urniparam_bcd r_periodic))' aa.AND.ORddl,lmod_a IF'''''' a (xp(3,ip -).LT.dopo%eaxx.l_s(3,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(6,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(6)& urniparam_bcd r_periodic))' a== _(2t#elifaa KI.lr==a DOUBLE_PRECIppm_metyperR CBOXLISTTTSIF[Txp(1,ip -).GE.dopo%en!x.l_d(1,idom).AND.ORddl,lmod_a IF'''''' a xp(1,ip -).LE.dopo%eaxx.l_d(1,idom).AND.ORddl,lmod_a IF'''''' a xp(2,ip -).GE.dopo%en!x.l_d(2,idom).AND.ORddl,lmod_a IF'''''' a xp(2,ip -).LE.dopo%eaxx.l_d(2,idom).AND.ORddl,lmod_a IF'''''' a xp(3,ip -).GE.dopo%en!x.l_d(3,idom).AND.ORddl,lmod_a IF'''''' a xp(3,ip -).LE.dopo%eaxx.l_d(3,idom)== _(2t.ORt.OR CBOXLISTTTS-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e at.ORt.OR CBOXLISTTTS---In_- q non-periodic case, illow p -----s -----ari------BR CBOXLISTTTS---exactly ON an uppnr-EXTER_AL boE=in,f.t.ORt.OR CBOXLISTTTS-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e at.ORt.OR CBOXLISTTTSIF(Txp(1,ip -).LT.dopo%eaxx.l_d(1,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(2,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(2)& urniparam_bcd r_periodic))' aa.AND.ORddl,lmod_a IF'''''' a (xp(2,ip -).LT.dopo%eaxx.l_d(2,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(4,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(4)& urniparam_bcd r_periodic))' aa.AND.ORddl,lmod_a IF'''''' a (xp(3,ip -).LT.dopo%eaxx.l_d(3,idom)=.OR.RRddl,lmod_a IF'''''' aa(Nopo%.l_3_bc(6,idom).EQ.1IF'''''' aa.AND.ORddl,lmod_a IF'''''' a bcd r(6)& urniparam_bcd r_periodic))' a== _(2t#edas__R.l_3iiiiiiiiiiiiiiiii! p -----h!fn n netEv my sl_sOl_3i2dddddddddddddddddIsmi=-q1-2,u i=====ST',,,,,,,,,EXIT-2,u i=====ST',,,,,,tiot2.l_3i2d_m q qrn,,,,,tiot2.l_3i2d_m q qrnR.lGEnofixedSTTTTTTT--[Tismi==EQ. == _(2t.ORt.OR CBOXLISTTT! foE=iTa-p -----h-----violn e3 _,iNEopologyt.ORt.OR CBOXLISTTTdopolok-=-.FALSE.t.ORt.OR CBOXLISTTT! no eed to searchhany furi cnt.ORt.OR CBOXLISTTTX Returninnis(,,,,,,,,,,tiot2 ,,,,,,,,,,tioGEnofixedt.lrt2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return----eturnOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,ldopolsubBtmot0 kin -etyperRETUR_metyper ONTAINSmetyperSUBROUTbdi subBt------BOXu--[T.NOT. urniinitialized== _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--lenoinit,stk,ldopolsubBtmo)))R CBddl,lmod_a IF''''''Please caNohprniinit-firsu!', cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTT--[TNp -=.LT.m == _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolsubBtmo)))R CBCBddl,lmod_a IF''''''Np -=mususben>= 0', cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTTldct1o.= subBt_Nopoid(Nopoid,valid,ikin ------Bturn--[T.NOT. valid== _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolsubBtmo)ddl,lmod_a IF'''''''Nopoid- -validmoddl,lmod_a IF'''''' cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l8888R CBBlONTINUreetyperE.lrSUBROUTbdi subBt-#if aa KI.lr==a SINGLE_PRECIppm_metyperE.lrSUBROUTbdi tk,ldopolsubBt_st#elifa KI.lr==a DOUBLE_PRECIppm_metyperE.lrSUBROUTbdi tk,ldopolsubBt_d.chdas__libtk,-1.2/src/dopo/tk,ldopolsopy.f000644 000765 000024 00000034717 11445666064 017576 0uqq q00om qqq ff000000 000000 etyper-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Pare a Par------B-))Subrout-1el : tk,ldopolsopyOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--Copyr (1t (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppef r_Fluid Dynamics (DTU)---- -B!------B!------B!-tc!fnfnfeE!fnp - ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPMh!fnflf--software: youNcan redisuribbumeiusand/ r_moasff------B!eiusE=inr-_,iNEerm3 Ev N,iNGNU Lesser Gene !l Publsc License Returni afnpublsshmdNby N,iNFlf--Software FoE=in rmi, eii cnn Returni vers. e 3 Ev N,iNLicense, r_(---yoEr op . e)-any latcnn Returni vers. e.------B!------B!-PPMh!fndisuribbumd ,m Iflhope -----iuswiNohbenuseful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,mN,iNimplimd warranty Ev------B!-MERCHANTABILITY r_FITNESS FOR A PARTICULAR PURPOSE. Sf-- If------B!-GNU Gene !l Publsc License f r_more details.------B!------B!-YouNshouldl i=N receivmd a sopy Ev N,iNGNU Gene !l Publsc License Returni andT IflGNU Lesser Gene !l Publsc License along --- -PPM.-If- or, Returni sf--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich Return--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------OR.l_3iSUBROUTbdi tk,ldopolsopy(indopo,outdopo, kin ------B-!!-tc!fnrout-1elcopie3 _,iNme-rs tsuructure3 fromT netEopologyt.ORt.O!!!-ibject -o-a or cnn ne.-T,iNprevious cmit,stseEv outdoposwiNot.ORt.O!!!-be desuroyed.-tc!fnalsonallocn es outdopo.OR.l_3i-!!OR.l_3i-!!-[WARNING]------B-!!-tc!fnrout-1eli3 or est-d-OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Modufen OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX ReturnUSi tk,lmodufe_in a ReturnUSi tk,lmodufe_sl_3t q ReturnUSi tk,lmodufe_sl_3top ReturnUSi tk,lmodufe_E_(2t.OR.l_3USi tk,lmodufe_illoc_R.l_3iUSi tk,lmodufe_typed rmetyperIMPLICIT NONE_R.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---IncludenOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --nclude "0_ r/nrl--.h"_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Argu,,stseturn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX ReturnTYPE(tk,ldldopo ,n-NTENT(IN ) :: indopo------B-!!-Input Eopologyt.ORt.OTYPE(tk,ldldopo ,n-NTENT(ngOUT) :: outdopo------B-!!-Output Eopology. WiNohcmita ,m Iflsame dn a afnindopo upia return.t.ORt.O-NTEGER ,n-NTENT(ngOUT) :: info------B!!!--eturns 3t tus,(0 upia PRECI C_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Locnll---,pbo sn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [->0 kl-d_double) :: d0x.ORt.O-NTEGER :: n.l_s, .l_lisu,m &ne (1,trec,i,j,Iop x.ORt.OLOGICAL :: validmetyperINTEGER, DIMENppm_(1) :: ldc_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Exteraalsn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialisen_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q .l_3t q (stk,ldopolsopymot0 kin -OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lubBt argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. == _(2t.ORt.OR q subBt------BOX--[Tist, & ==X Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEerm-1elsizetEv indopo------B-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return .l_3= .lReindopo% .l_3 Return .l_lisulReindopo% .l_lisu_R.l_3im &ne (1lReSIZE(indopo%ine (1.l_s,1)_R.l_3itrec = .lReindopo%trec xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Allocn e_re3ult Eopologyt.ORt.O!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return q tk,ldopolilloc(outdopo,n.l_s, .l_lisu,m &ne (1,trec,ikin ------B--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolsopymoOR CBddl,lmod_a IF''re3ult EopologygOUTTOPO', cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iNscnlarNme-rs sOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnoutdopo%ID-----BOXLIReindopo%IDt.ORt.Ooutdopo%trec = .l .lReindopo%trect.ORt.Ooutdopo% .l_3= .l .lReindopo% .l_3 Returnoutdopo% .l_lisul .lReindopo% .l_lisu_R.l_3ioutdopo% ne (1troc.lReindopo% ne (1troc_R.l_3ioutdopo%isop .mizedlReindopo%isop .mized_R.l_3ioutdopo% commseql .lReindopo% commseq_R.l_3ioutdopo%eaxxm orid.lReindopo%eaxxm orid Return_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---lopy N,iNboE=in,fhcmidi rmi3t.ORt.O!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnments n2*OR.l_im Returni2d_outdopo%bcd r(i)rniindopo%bcd r(i)nnis(,,tioDOxOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iNdom inOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOrec =EQ. ->0 kl-d_sITEo == _(2t.ORt.OR CB--[TOR.l_im-=EQ. 2== _(2t.ORt.OR CBl_3ioutdopo%ein_physs(1) mindopo%ein_physs(1)t.ORt.OR CBl_3ioutdopo%ein_physs(2) mindopo%ein_physs(2)t.ORt.OR CBl_3ioutdopo%eaxxphyss(1) mindopo%eaxxphyss(1)t.ORt.OR CBl_3ioutdopo%eaxxphyss(2) mindopo%eaxxphyss(2)t.ORt.OR CBELSEnofixedST',--,-outdopo%ein_physs(1) mindopo%ein_physs(1)t.ORt.OR CBl_3ioutdopo%ein_physs(2) mindopo%ein_physs(2)t.ORt.OR CBl_3ioutdopo%ein_physs(3) mindopo%ein_physs(3)t.ORt.OR CBl_3ioutdopo%eaxxphyss(1) mindopo%eaxxphyss(1)t.ORt.OR CBl_3ioutdopo%eaxxphyss(2) mindopo%eaxxphyss(2)t.ORt.OR CBl_3ioutdopo%eaxxphyss(3) mindopo%eaxxphyss(3)t.ORt.OR CBR.l_3.l_3i2dtLSEnofixedST',--[TOR.l_im-=EQ. 2== _(2t.ORt.OR CBl_3ioutdopo%ein_physd(1) mindopo%ein_physd(1)t.ORt.OR CBl_3ioutdopo%ein_physd(2) mindopo%ein_physd(2)t.ORt.OR CBl_3ioutdopo%eaxxphysd(1) mindopo%eaxxphysd(1)t.ORt.OR CBl_3ioutdopo%eaxxphysd(2) mindopo%eaxxphysd(2)t.ORt.OR CBELSEnofixedST',--,-outdopo%ein_physd(1) mindopo%ein_physd(1)t.ORt.OR CBl_3ioutdopo%ein_physd(2) mindopo%ein_physd(2)t.ORt.OR CBl_3ioutdopo%ein_physd(3) mindopo%ein_physd(3)t.ORt.OR CBl_3ioutdopo%eaxxphysd(1) mindopo%eaxxphysd(1)t.ORt.OR CBl_3ioutdopo%eaxxphysd(2) mindopo%eaxxphysd(2)t.ORt.OR CBl_3ioutdopo%eaxxphysd(3) mindopo%eaxxphysd(3)t.ORt.OR CBR.l_3.l_3i2dtiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iNsubdom insOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOrec =EQ. ->0 kl-d_sITEo == _(2t.ORt.OR CB--[TOR.l_im-=EQ. 2== _(2t.ORt.OR CBl_3iments n .l_3 Return3i2dddddl_3ioutdopo%ein_.l_s(1,i) mindopo%ein_.l_s(1,i) Return3i2dddddl_3ioutdopo%ein_.l_s(2,i) mindopo%ein_.l_s(2,i) Return3i2dddddl_3ioutdopo%eaxx.l_s(1,i) mindopo%eaxx.l_s(1,i) Return3i2dddddl_3ioutdopo%eaxx.l_s(2,i) mindopo%eaxx.l_s(2,i) Return3i2dddddR.lGEnofixedSTTTELSEnofixedST',--,-ments n .l_3 Return3i2dddddl_3ioutdopo%ein_.l_s(1,i) mindopo%ein_.l_s(1,i) Return3i2dddddl_3ioutdopo%ein_.l_s(2,i) mindopo%ein_.l_s(2,i) Return3i2dddddl_3ioutdopo%en!x.l_3(3,i) mindopo%ein_.l_s(3,i) Return3i2dddddl_3ioutdopo%eaxx.l_s(1,i) mindopo%eaxx.l_s(1,i) Return3i2dddddl_3ioutdopo%eaxx.l_s(2,i) mindopo%eaxx.l_s(2,i) Return3i2dddddl_3ioutdopo%eaxx.l_s(3,i) mindopo%eaxx.l_s(3,i) Return3i2dddddR.lGEnofixedSTTTE.l_3.l_3i2dtLSEnofixedST',--[TOR.l_im-=EQ. 2== _(2t.ORt.OR CBl_3iments n .l_3 Return3i2dddddl_3ioutdopo%ein_.l_d(1,i) mindopo%ein_.l_d(1,i) Return3i2dddddl_3ioutdopo%ein_.l_d(2,i) mindopo%ein_.l_d(2,i) Return3i2dddddl_3ioutdopo%eaxx.l_d(1,i) mindopo%eaxx.l_d(1,i) Return3i2dddddl_3ioutdopo%eaxx.l_d(2,i) mindopo%eaxx.l_d(2,i) Return3i2dddddR.lGEnofixedSTTTELSEnofixedST',--,-ments n .l_3 Return3i2dddddl_3ioutdopo%ein_.l_d(1,i) mindopo%ein_.l_d(1,i) Return3i2dddddl_3ioutdopo%ein_.l_d(2,i) mindopo%ein_.l_d(2,i) Return3i2dddddl_3ioutdopo%en!x.l_d(3,i) mindopo%ein_.l_d(3,i) Return3i2dddddl_3ioutdopo%eaxx.l_d(1,i) mindopo%eaxx.l_d(1,i) Return3i2dddddl_3ioutdopo%eaxx.l_d(2,i) mindopo%eaxx.l_d(2,i) Return3i2dddddl_3ioutdopo%eaxx.l_d(3,i) mindopo%eaxx.l_d(3,i) Return3i2dddddR.lGEnofixedSTTTE.l_3.l_3i2dtiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iNsubhcmstsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOrec =EQ. ->0 kl-d_sITEo == _(2t.ORt.OR CBments n .l_3 Return3i2dddddoutdopo%.l__cmsts(i)rniindopo%.l__cmsts(i)nofixedSTTTE.lGEnofixedtLSEnofixedST',ments n .l_3 Return3i2dddddoutdopo%.l__cmstd(i)rniindopo%.l__cmstd(i)t.ORt.OR CBE.lGEnofixedtiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iNsubhtontroc assignm,stt.ORt.O!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnments n .l_3 Return3i2doutdopo%.l_2troc(i)rniindopo%.l_2troc(i)nnis(,,tioDOxOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iNlisusEv locnll.l_3 Return!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnments n .l_lisu_R.l_3iturnoutdopo%isl_lisu(i)rniindopo%isl_lisu(i)nnis(,,tioDOxOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iN.l_3=boE=in,fhcmidi rmi3t.ORt.O!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_im-=EQ. 2== _(2t.ORt.OR CBments n .l_lisu_R.l_3iturnnnnnoutdopo%.l_3_bc(1,i) mindopo%.l_3_bc(1,i)_R.l_3iturnnnnnoutdopo%.l_3_bc(2,i) mindopo%.l_3_bc(2,i) Return3i2dddddoutdopo%.l_3_bc(3,i) mindopo%.l_3_bc(3,i) Return3i2dddddoutdopo%.l_3_bc(4,i) mindopo%.l_3_bc(4,i)nofixedSTTTE.lGEnofixedtLSEnofixedST',ments n .l_lisu_R.l_3iturnnnnnoutdopo%.l_3_bc(1,i) mindopo%.l_3_bc(1,i)_R.l_3iturnnnnnoutdopo%.l_3_bc(2,i) mindopo%.l_3_bc(2,i) Return3i2dddddoutdopo%.l_3_bc(3,i) mindopo%.l_3_bc(3,i) Return3i2dddddoutdopo%.l_3_bc(4,i) mindopo%.l_3_bc(4,i)nofixedSTTTddddoutdopo%.l_3_bc(5,i) mindopo%.l_3_bc(5,i)nofixedSTTTddddoutdopo%.l_3_bc(6,i) mindopo%.l_3_bc(6,i)nofixedSTTTE.lGEnofixedtiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iNsubhne (1bor nu-rs sOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnments n .l_lisu_R.l_3iturnoutdopo%nne (1.l_s(i)rniindopo%nne (1.l_s(i)nnis(,,tioDOxOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iN.l_hne (1bor lisusOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnments n .l_lisu_R.l_3iturnmenjs nm &ne (1nofixedSTTTddddoutdopo%ine (1.l_s(j,i)rniindopo%ine (1.l_s(j,i)nofixedSTTTE.lGEnofixedtioDOxOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iNlisusEv ne (1borITEntrocess2ts.-tc!fni3 or allocn edNby Return---dopolilloc!Ol_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returniop R.lReurniparam_alloc_fi ---turnldc(1) Reindopo% ne (1troc_R.l_3ildct1o.= illoc(outdopo%ine (1troc,ldc,iop ,ikin ------B--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBiReurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolsopymoOR CBddl,lmod_a IF''lisusEv ne (1borITEntrocgOUTTOPO%INEIGHPROC', cbdivi kin ------BOXLIX Returninnis(,,tiot2xReturnments nindopo% ne (1troc_R.l_3iddddoutdopo%ine (1troc(i)rniindopo%ine (1troc(i)nofixedtioDOxOl_3i2d--[Tisdopo%isop .mized== _(2t.ORt.OR CBiop R.lReurniparam_alloc_fi ---turnturnldc(1) Reindopo% commseq_R.l_3il_3ildct1o.= illoc(outdopo%icommseq,ldc,iop ,ikin ------Bturn--[Tist, & urniparam_PRECI C== _(2t.ORt.OR CBR CBiReurni->0 Returnfatalt.ORt.OR CBR CBldct1o.= dul_f---le #elilloc,stk,ldopolsopymoOR CBddl,lmo,lmod_a IF''communicn rmi sequencegOUTTOPO%ICOMMSEQ', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3nofixedST',ments nindopo% commseq_R.l_3il_3iddddoutdopo%icommseq(i)rniindopo%icommseq(i)nofixedSTTTE.lGEnofixedtiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopy N,iNm or /nrl-i rmi3t.ORt.O!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[Tindopo%eaxxm orid =GT. == _(2t.ORt.OR dctOCATE(outdopo%m orTindopo%eaxxm orid),STAT=ikin ------Bturn--[Tist, & == _(2t.ORt.OR CBOXLIiReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolsopymoOR CBddl,lmo,lmod_a IF''m or /nrl-i rmi3gOUTTOPO%MESH', cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3nofixedST',ments nindopo%eaxxm orid Returnl_3iddddoutdopo%m orTi) mindopo%e orTi)nofixedSTTTE.lGEnofixedtiot2xofixedOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Setmoutdoposton/nrl--d Return-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returnoutdopo%is/nrl--d-=-.TRUE.tOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return----eturn OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,ldopolsopymot0 kin -etyperRETUR_metyper ONTAINSmetyperSUBROUTbdi subBt------BOXu--[T.NOT. urniinitialized== _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--lenoinit,stk,ldopolsopymoOR CBCBddl,lmod_a IF''''''Please caNohprniinit-firsu!', cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTTldct1o.= subBt_Nopoid(indopo,valid,ikin ------Bturn--[T.NOT. valid== _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolsopymoOddl,lmod_a IF'''''''indopo -validmoddl,lmod_a IF'''''' cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTTldct1o.= subBt_Nopoid(outdopo,valid,ikin ------Bturn--[T.NOT. valid== _(2t.ORt.OR CBOXLIiReurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #elirgu,,st,stk,ldopolsopymoOddl,lmod_a IF'''''''outdopos -validmoddl,lmod_a IF'''''' cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l8888R CBBlONTINUreetyperE.lrSUBROUTbdi subBt-etyperE.lrSUBROUTbdi tk,ldopolsopyOlibtk,-1.2/src/dopo/tk,ldopolsost.f000644 000765 000024 00000050244 11445666064 017565 0uqq q00om qqq ff000000 000000 etyper-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Pare a Par------B-))Subrout-1el : tk,ldopolsostOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--Copyr (1t (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppef r_Fluid Dynamics (DTU)---- -B!------B!------B!-tc!fnfnfeE!fnp - ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPMh!fnflf--software: youNcan redisuribbumeiusand/ r_moasff------B!eiusE=inr-_,iNEerm3 Ev N,iNGNU Lesser Gene !l Publsc License Returni afnpublsshmdNby N,iNFlf--Software FoE=in rmi, eii cnn Returni vers. e 3 Ev N,iNLicense, r_(---yoEr op . e)-any latcnn Returni vers. e.------B!------B!-PPMh!fndisuribbumd ,m Iflhope -----iuswiNohbenuseful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,mN,iNimplimd warranty Ev------B!-MERCHANTABILITY r_FITNESS FOR A PARTICULAR PURPOSE. Sf-- If------B!-GNU Gene !l Publsc License f r_more details.------B!------B!-YouNshouldl i=N receivmd a sopy Ev N,iNGNU Gene !l Publsc License Returni andT IflGNU Lesser Gene !l Publsc License along --- -PPM.-If- or, Returni sf--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich Return--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------O#if aa KI.lr==a SINGLE_PRECIppm_metyperSUBROUTbdi tk,ldopolsost_s(xp,Np,ein_.l_,eaxx.l_,n.l_s, nodes,sosto.ORddl,lmod_a IF''''''' kin,psost -#elifa KI.lr==a DOUBLE_PRECIppm_metyperSUBROUTbdi tk,ldopolsost_d(xp,Np,ein_.l_,eaxx.l_,n.l_s, nodes,sosto.ORddl,lmod_a IF''''''' kin,psost -#edas__R.l_3i!!!-tc!fnrout-1elcalculn e3 _,iNcomputn rmialhcmst Ev------B!!!-eachNsubdom in based ia eii cnn_,iNp -----s (iv N,ire are any ------B-!!-or N,iNm or points.-T,iNper-p -----hcmsts are summed uprif present.OR.l_3i-!!-If- or, a unityhcmst !fnassumed f r_eachNp -----.OR.l_3i-!!OR.l_3i-!!-[NOTE]OR.l_3i-!!-If-`Np < 0`,hcmst !fncomputmdNbased ia p -----s.-IfOR.l_3i-!!-`SIZE( nodes,2)n>= n.l_s`,hcmst based ia m or pointsOR.l_3i-!!-!fncomputmdNandTadded to _,iNp -----hcmst.-If- ne i cnnp -----sOR.l_3i-!! nor m or are givmn,hcmst Ev a subdom in !fnequalhto its volume.OR.l_3i----mx [TER -1E_sidglem----------------------------------------------------Return---Modufen OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX ReturnUSi tk,lmodufe_in a ReturnUSi tk,lmodufe_sl_3t q ReturnUSi tk,lmodufe_sl_3top ReturnUSi tk,lmodufe_E_(2t.OR.l_3USi tk,lmodufe_illoc_R.l_3iUSi tk,lmodufe_write ReturnIMPLICIT NONE_#if aa KI.lr==a SINGLE_PRECIppm_metyperINTEGER, PARAMETERB:: MKrni->0 kl-d_sITEo t#elifa KI.lr==a DOUBLE_PRECIppm_metyperINTEGER, PARAMETERB:: MKrni->0 kl-d_double.chdas__R.l_3i----mx [TER -1E_sidglem----------------------------------------------------Return---IncludenOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --nclude "0_ r/nrl--.h"_#ifd r __MPImetyperINCLUDE 'mpif.h'.chdas__R.l_3i----mx [TER -1E_sidglem----------------------------------------------------Return---Argu,,stseturn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=n [MK), DIMENppm_(:,:),n-NTENT(IN ) :: xp Return-!!-P -----Nposi rmi3t.ORt.O_3i2d-l_3E &'xmaxEc_wri----------------.maxEc_wri2d_m_f-mx [TER. extseE N,iNGNUdom insOR.l_3i-l_2d-l_3E &'xmaxEc_wri----------------.max.l_,n.2d_m_f-mx [Tax. extseE N,iNGNUdom insOR.l_3i-l_2d-l_3E &'xmaxEc_---O-NTERB:: .matOl_3i2d-l_3x [Aggreg_re3t Ev _eachNp dom insORl_3i-l_2d-l_3E &'xmaxEc_---O-OPTaxEAL-------------.maptOl_3i2d-l_3x [Pp -----hcmsts ar.-OPTaxEALf- ne iotesent.OR,sopy Ev a s1r-p 3i2d-l_3x [-----h!fn n umed f ORt.O-NTEGER &'xmaxEc_wri----------------.mades,2)3i2d-l_3x [rs tEv p r arees,2)m IfhNp dieivi seq(su!',m Idex) eii aReturn--CHx [hne (sedi rm Idex)f- ne< 0 n .dop 0,!fntrotrotakN,iNomputmdNaf------B!-GNx [t.-If- neE( nodes,2)n>=.m =_s, nodT IflGNare anyno -----sOR.,atOl_3i2d-l_3x [computmdNandTs geomebbuclume.OR.l_3i---EGER ,n-NTENT(IN ) :: Np -3i2d-l_3x [rs tEv p -----s.-IfOm opoi .dop 0 prer ar-ed ia ts are sum,2)iei ORt.O-NTEGER ,n-NTENT(IN ) :: Np _3 Return3i2-tc!fotto ns tEv p dom insOR.l_3i-l_EGER ,n-NTENT(ngOUT) :: info------B!!!--eturns 3t tus,(0 upia PRECI C_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Locnll---,pbo sn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--- [MK) :: : d0x.ORd r __MPImetyperINC2d-l_3E &'xmaxEc_-O-NTERB:: .matOl_ed das__R.l_3i---EGER, DIMENppm_(1) l_im-=E) :: : d0xldu,NcyperINC2d-l_3E ENppm_(1) l_im-=E) :: : d0xlec_wri2d_m_f-EGER :: : d0xi -).L,j2d_m_f-EGER :: : d0xi,ikinusEv1inusEvdom)=.l_3i---EGER, DIMENppm_(1) _-O-NTERB:: d0xiusEv1iiusEvdomusEv3yper ONTHMETCB::(LEN= subBtar) :: : d0xr agl_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Loceraalsn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialisen_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---q .l_3t q (stk,ldopolsopymst0 kin -OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lubBt argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. == _(2t.ORt.OR q subBt------BOX--[Tist, & ==X Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEocn e_re3memory _eacNcompuOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Returnmen R.lRrniparam_alloc_fi ---turnldc(1u Reind_3 Return3i2t1o.= illoc(outto.ORldu, ,ikin ------B--[Tist, & urn _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBldct1o.= dul_f---le #elilloc,stk,ldopolsopymst0 Bldc,lmod_a IF''lists are-EXThne COST cbdivi kin ------BOXLIX Returninnis(,,tiot2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopA rm Ialized==poi zer----B-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return .ly Ev = 0.0_MK.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEerm-1elsizNEopoltcmst Ev---chNp domi cnn_,ied ia p -----s.-I OR.l_3USiDeEed ia m or pointsOR.l_3i-!!-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---TNp -T. == _(2t.ORt.OR dctTOR.l_ebug =GT. == _(2t.ORt.OR CBldct1o.= dulte Re.l_ebrankk,ldopolsopymst0 Bld,lmod_a IF''''''PleCutmdNntrots areed ia p -----s.-I'in ------BOXLIX R_3.l_3i2d_mTTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc-eEocn e_re3memory _eacNcom-----h!fnusOR.l_3i-l_Tldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc R.lRrniparam_alloc_fi ---turnldccccc(1u Reind -3i2d-l_Bldct1o.= duloc(outiusEv1ildu, ,ikin ------B--[ dctTOR., & == _(2t.ORt.OR CBOXLIiReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolsopymst0 Bldc,lmod_a IF''li''Ple-----h!fnusORs1rILIST1 cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3nofixedST',ment1o.= duloc(outiusEv2ildu, ,ikin ------B--[ dctTOR., & == _(2t.ORt.OR CBOXLIiReurni->0 Returnfatalt.ORt.OR CBBBBBldct1o.= dul_f---le #elilloc,stk,ldopolsopymst0 Bldc,lmod_a IF''li''Ple-----h!fnusORs2rILIST2 cbdivi kin ------BOXLIIIIIX Returninnis(,,,,,,E.l_3nofi3i2d_mTTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc-eEIIalized==pocom-----h!fnusOR3i2d_mTTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldctp -=1,Np -Rt.OR CBOXLIiReuusEv1( -).LTindo- ReturnnnnnnnnGEnofixedSTTTE.lnusEv1ind -33i2d_mTTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc-eELoop ov_,ihprndom insOR.l_3i-l_Tldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldctp in=_s, no1,-,u i=====ST',,,,nusEvd0---turnRt.OR CBmenjs n .l_usEv1turnRt.OR CBmenIiReu- ---=euusEv1( eturn3i2dddddl_3iout-E &'xmaxEc_wri----------------- & box i dex e a Paturn3i2dddddl_3iout- - neocom-----h!fn n nsid=pocomcurrseE dom insOR,signm,s i.l_3iturnnnnnnnnnIdo-E &'xmaxEc_wri----------------- & box i dex e a Paturn3i2dddddl_3ioutTOR.l_im-=EQ. == _(2t.ORt.OR CBl_3imendl_3ioutTOR.1,ip -).GE.dopxEc_wriidom).AND.ORddll,lmod_a IF'''''' a xp( p(1,ip -).LE.dT.x.l_,n.idom).AND.ORddll,lmod_a IF'''''' a xp( p(1,i2 -).GE.dopxEc_wrii2om).AND.ORddll, lmod_a IF'''''' a xp( p(1,i2 -).GE.dT.x.l_,n.i2om).AND.ORddll,lmod_a IF'''''' a xp( p(1,i3 -).GE.dopxEc_wrii3om).AND.ORddll, lmod_a IF'''''' a xp( p(1,i3 -).GE.dT.x.l_,n.idom)== _(2t.ORt.OR CBOXLISTTTS-l________-E &'xmaxEc_wri----------------- & box i dexRt.OR CBOXLISTTTS-l________-opy based ia m o-----sOR.l_3i-!!BOXLISTTTS-l________-E &'xmaxEc_wri----------------- & box i dexRt.OR CBOXLISTTTS-l________TOR.PRES(ngOst -#e_(2t.ORt.OR CBOXLISTTTS-l____________t -#(m)=.OR=_t -#(m)=.OR+aptOl_( -).LTRt.OR CBOXLISTTTS-l________EnofixedST',--,-menTS-l____________t -#(m)=.OR=_t -#(m)=.OR+a1.0_MK.t.OR CBOXLISTTTS-l________E2.l_3i2d_m q qrn,,,,,tio___EnofixedST',--,-menTS-l_______-E &'xmaxEc_wri----------------- & box i dex ixedST',--,-menTS-l_______- pre, a unddswiNNlisusEv ne -----h----earchhanixedST',--,-menTS-l_______-E &'xmaxEc_wri----------------- & box i dex ixedST',--,-menTS-l_______nusEvd000000000=_nusEvd0+2,u i=====ST',,,,,,,,,EXI ReuusEv2(nusEvdTindo- ReturnnnnnnnnnnnnnnnnnnnnE2.l_3i2d_m q qrn,,,,,tiEnofixedST',--,-menTS-l____TOR.1,ip -).GE.dopxEc_wriidom).AND.ORddll,lmod_a IF'''''' a xp( p(1,ip -).LE.dT.x.l_,n.idom).AND.ORddll,lmod_a IF'''''' a xp( p(1,i2 -).GE.dopxEc_wrii2om).AND.ORddll, lmod_a IF'''''' a xp( p(1,i2 -).GE.dT.x.l_,n.i2om).AN_(2t.ORt.OR CBOXLISTTTS-l________-E &'xmaxEc_wri----------------- & box i dexRt.OR CBOXLISTTTS-l________-opy based ia m o-----sOR.l_3i-!!BOXLISTTTS-l________-E &'xmaxEc_wri----------------- & box i dexRt.OR CBOXLISTTTS-l________TOR.PRES(ngOst -#e_(2t.ORt.OR CBOXLISTTTS-l____________t -#(m)=.OR=_t -#(m)=.OR+aptOl_( -).LTRt.OR CBOXLISTTTS-l________EnofixedST',--,-menTS-l____________t -#(m)=.OR=_t -#(m)=.OR+a1.0_MK.t.OR CBOXLISTTTS-l________E2.l_3i2d_m q qrn,,,,,tio___EnofixedST',--,-menTS-l_______-E &'xmaxEc_wri----------------- & box i dex ixedST',--,-menTS-l_______- pre, a unddswiNNlisusEv ne -----h----earchhanixedST',--,-menTS-l_______-E &'xmaxEc_wri----------------- & box i dex ixedST',--,-menTS-l_______nusEvd000000000=_nusEvd0+2,u i=====ST',,,,,,,,,EXI ReuusEv2(nusEvdTindo- ReturnnnnnnnnnnnnnnnnnnnnE2.l_3i2d_m q qrn,,,,,tiE2.l_3i2d_m q qrnR.lGEnof___- loop ov_,i-----sOR.l3i2d_m q qrnR.l-E &'xmaxEc_wri----------------- & box i dex e a Parall3i2d_m q qrnR.l-opy N,iNlisusEvs (well, m ly pre,usEvd0changia - decre cadTRt.OR CBOXLISTT-E &'xmaxEc_wri----------------- & box i dex e a Parall3i2d_m q qrnR.lTOR.,usEvd =_usEv1_(2t.ORt.OR CBOXLISTTTS-nusEv1ind,usEvdRt.OR CBOXLISTTTS-musEv3 =>euusEv1Rt.OR CBOXLISTTTS-musEv1 =>euusEvdRt.OR CBOXLISTTTS-musEv2 =>euusEv33i2d_m q qrnR.lGEnTORl3i2d_m q qrnR.l-E &'xmaxEc_wri----------------- & box i dex e a Parall3i2d_m q qrnR.l-opExwiNN,ire susEv equamptORt.OR CBOXLISTT-E &'xmaxEc_wri----------------- & box i dex e a Parall3i2d_m q qrnR.lTOR.,usEv1. 2=0)IT-2,u i=====ST'GEnof____- loop ov_,idom insOR.l_3i-l_Tldccccc3i2d_mTTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc-eEBt arg--iuswe did iotemissp -----h--3i2d_mTTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldcTOR.,usEvdT. == _(2t.ORt.OR CBldcurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--le---_unignk,ldopolsopymst0 Bldccccc,lmod_a IF''li''PleBee: youputmdNandts are sumwrong cbdivi kin ------BOXLIIII_3nofi3i2d_mTTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc-eEDeocn edNbiNme-rs ory _eacNcomusOR.l_3i-l_Tldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc R.lRrniparam_alldeoc_R.l_3iUSiBldct1o.= duloc(outiusEv2ildu, ,ikin ------B--[ dctTOR., & == _(2t.ORt.OR CBOXLIiReurni->0 Returnfat2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--ldeoc_R.k,ldopolsopymst0 Bldc,lmod_a IF''li''Ple-----h!fnusORs2rILIST2 cbdivi kin ------BOXLIIII_3nofixedST',ment1o.= duloc(outiusEv1ildu, ,ikin ------B--[ dctTOR., & == _(2t.ORt.OR CBOXLIiReurni->0 Returnfat2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--ldeoc_R.k,ldopolsopymst0 Bldc,lmod_a IF''li''Ple-----h!fnusORs1rILIST1 cbdivi kin ------BOXLIIII_3nofi3i2d_mTTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc-eED or EocnReduce N,iNGNUts are setEopcess2ts.- m ly h seITS3i2d_mTTldc-eE----sOR.,a WIT1o.= ----s.-I ta ,bumeius_,iNp t Ev-(------B!-GTldc-eE-----s.-I anynot yetemapped!)3i2d_mTTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3d r __MPImetyperINCTldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc-eESkip!fntrotfswe m ly h veetEop,n.l becaus----iusmean----ar3i2d_mTTldc-eE cnn_,iNp rfn n m ly tEopcess2ts.-r_(--we h veea Entr3i2d_mTTldc-eEolsoy. WiN- q nonlatn Ree, iq nonocnReduce wdl i=leao _,iwrong3i2d_mTTldc-eEult Eo-----B!--Tldc-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldcTOR.,3=boE. ==1_(2t.ORt.OR CBOXLIST R.lRrniparam_alloc_fi ---turnldccccc dc(1u Reind_3 Return3i22222222t1o.= illoc(outto.Osumildu, ,ikin ------B--[ dct ctTOR., & == _(2t.ORt.OR CBOXLIiRe Reurni->0 Returnfatalt.ORt.OR CBBBBBldc dct1o.= dul_f---le #elilloc,stk,ldopolsopymst0 Bldc,lmod_a IF''li''PlPlesum N,its area suprniess2ts.-t COSTSUM cbdivi kin ------BOXLIIIIIX R Returninnis(,,,,,,,,,,tiE2.l_3i2d_m q qrnR.to.Osum = 0.0_MK. aa KI.lr==a SINGLE_PRECIppm_metyperINTBldc dct1o.=met_ocnReducetto.ORto.Osumi_s, nomet_2d-lomet_SUM Bldc,lmod_a IF''li'' subBommin ----ifa KI.lr==a DOUBLE_PRECIppm_metyperINTBldc dct1o.=met_ocnReducetto.ORto.Osumi_s, nomet_BLE_PRECIppm_metl,lmod_a IF''''''met_SUM subBommin ----if__R.l_3i-----------E &'xmaxEc_wri----------------- & box i dex e a Parallll_3i-----------opy N,ia afnba-----BOXu--[-----E &'xmaxEc_wri----------------- & box i dex e a Parallll_3i----------y Ev = tOl_ed dl_3i-----------E &'xmaxEc_wri----------------- & box i dex e a Parallll_3i-----------opDeocn edNbiNme-tamporhcmidi.Osum antyyl_3i-----------E &'xmaxEc_wri----------------- & box i dex e a Parallll_3i---------- R.lRrniparam_alldeoc_R.l_3iUSiBldc 22t1o.= illoc(outto.Osumildu, ,ikin ------B--[ dct ctTOR., & == _(2t.ORt.OR CBOXLIiRe Reurni->0 Returnfat2t.OR.l_3o)))R CBldc dct1o.= dul_f---le #el--ldeoc_R.k,ldopolsopymst0 Bl,lmod_a IF''li''PlPlesum N,its arets areCOSTSUM cbdivi kin ------BOXLIIIIIX E2.l_3i2d_m q qrE2.l_3if__R.l_3i---_3nofi3i2d_mTTOR.E( nodes,2)n>= .dopd_3 Re_(2t.ORt.OR CBOXL-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc-eEB based ia m or pointsOR.l_3i-!!BOXL-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldcTOR.l_ebug =GT. == _(2t.ORt.OR CBldct1o.= dulte Re.l_ebrankk,ldopolsopymst0 Bld,lmod_a IF''''''PleCutmdNntrots areed ia p r pointsOR.'in ------BOXLIX R_3.l_3i2d_mTTldcTOR.l_im-=EQ. 2==3_(2t.ORt.OR CBl_3iments n .l_3 Return3i2dddddl_3ioutN) Reinddes,2)i) Return3i2dddddl_3ioutN) 2einddes,2)i) Return3i2dddddl_3ioutN) 3einddes,2)i) Return3i2dddddl_3ioutt -#(mOR=_t -#(mOR+a(2d-l_N) Re,MK)*2d-l_N) 2e,MK)*Bld,lmod_a IF''''''Plllll2d-l_N) 3e,MK)eturn3i2dddddR.lGEnofixedSTTTELSEnofixedST',--,-ments n .l_3 Return3i2dddddl_3ioutN) Reinddes,2)i) Return3i2dddddl_3ioutN) 2einddes,2)i) Return3i2dddddl_3ioutt -#(mOR=_t -#(mOR+a(2d-l_N) Re,MK)*2d-l_N) 2e,MK)eturn3i2dddddR.lGEnofixedSTTTE.l_3.l_3i2dtLSEnofTNp -T.L ==1_(2t.ORt.OR CBOXL-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldc-eEB based ia m ogeomebbyotfswe h veeno -----sOR.dT Ifno r pol_3i-!!BOXL-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBO3i2d_mTTldcTOR.l_ebug =GT. == _(2t.ORt.OR CBldct1o.= dulte Re.l_ebrankk,ldopolsopymst0 Bld,lmod_a IF''''''PleCutmdNntrots areed ia p geomebby'in ------BOXLIX R_3.l_3i2d_mTTldcTOR.l_im-=EQ. 2==3_(2t.ORt.OR CBl_3iments n .l_3 Return3i2dddddl_3ioutlec_wri Reindx.l_,n.idom)-xEc_wriidometurn3i2dddddl_3ioutlec_wri 2eindx.l_,n.i2om)-xEc_wrii) Return3i2dddddl_3ioutlec_wri 3eindx.l_,n.i3om)-xEc_wrii) Return3i2dddddl_3ioutt -#(mOR=_lec_wri Re*lec_wri 2e*lec_wri 3eturn3i2dddddR.lGEnofixedSTTTELSEnofixedST',--,-ments n .l_3 Return3i2dddddl_3ioutlec_wri Reindx.l_,n.idom)-xEc_wriidometurn3i2dddddl_3ioutlec_wri 2eindx.l_,n.i2om)-xEc_wrii) Return3i2dddddl_3ioutt -#(mOR=_lec_wri Re*lec_wri 2eturn3i2dddddR.lGEnofixedSTTTE.l_3.l_3i2dtLSE2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopSodn aiagn -#ic.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. ==1_(2t.ORt.OR CBOXLt1o.= dulte Re.l_ebrankk,ldopolsopymst0 Bl,lmod_a IF''''''P't', & box i dex e a ParalllPBOX Re'in ------BOXLIX Rts n .l_3 Return3i2dddddl_3WRITE(r ag,'(I4,A,F15.3)') i,'bhcmstsOR: ',t -#(mORt.OR CBldct1o.= dulte Re.l_ebrankk,ldopolsopymst0 Bl,lmod_a IF''''''Pllllr ag,n ------BOXLIX R_3.ofixedSTTTE.lt1o.= dulte Re.l_ebrankk,ldopolsopymst0 Bl,lmod_a IF''''''P't', & box i dex e a ParalllPBOX Re'in ------BOXLE2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopurn OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,ldopolsopymst0 kin -OR.per UR_metyper ONTAINSmetyperSUBROUTbdi subBt------BOXu--[cTOR.,3=boE.L == _(2t.ORt.OR CBOXLIiReurni->0 Returnfat2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--lu,,st,stk,ldopolsopymst0 Bl,lmod_a IF''''''Pl',3=boEmubasee > 0 cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTTldcTOR.E( no_.l_,eax>= .L ==,3=boE.OR.eE( nox.l_,n.l>= .L ==,3=bo_(2t.ORt.OR CBOXLIiReurni->0 Returnfat2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--lu,,st,stk,ldopolsopymst0 Bl,lmod_a IF''''''Pl',ot enough_3=boEspecifi ,m If_.l_,eaxdx.l_,n. cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTTldcTOR.E( no_.l_,eax1E.dT.l_im-=E.OR.E( nox.l_,n.l1E.dT.l_im-=E_(2t.ORt.OR CBOXLIiReurni->0 Returnfat2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--lu,,st,stk,ldopolsopymst0 Bl,lmod_a IF''''''Pl'leaontro-=Eene 3 E If_.l_,eaxdx.l_,n.iwrong cbdivi kin ------BOXLIIIIIX Ret8888------BOXLIE.l_3.l_3i2d_mTTldcts n .l_3 Return3i2dddddl_3js nm &l_im-=Eturn3i2dddddl_3ioutTOR.x.l_,n.i)rnii.L ==xEc_wrii)rni_(2t.ORt.OR CBOXLISTTTS-l____urni->0 Returnfat2t.OR.l_3o)))R CBldc dcCBldct1o.= dul_f---le #el--lu,,st,stk,ldopolsopymst0 Bl,lmod_a IF''''''Pl''''''Pl'x.l_,n.imubasalwayssee >==xEc_wri cbdivi kin ------BOXLIIIIIX R RIIX Ret8888------BOXLIE.lllllllllE2.l_3i2d_m q qrnR.lGEnof---BOXLIX R_3.ofixedSTTTE.lTNp -T. == _(2t.ORt.OR dctTE.lTNp E( noxpl>= .L ==Np_(2t.ORt.OR CBOXLISTTTS-lurni->0 Returnfat2t.OR.l_3o)))R CBldc dcCt1o.= dul_f---le #el--lu,,st,stk,ldopolsopymst0 Bl,lmod_a IF''''''Pl''''',ot enough_ ----s.-I ta ,ad-=-. Ifxp cbdivi kin ------BOXLIIIIIX R RIet8888------BOXLIE.lllllE2.l_3i2d_m q qrnR.lTNp E( noxpl1= .L ==l_im-=E_(2t.ORt.OR CBOXLIiReTS-lurni->0 Returnfat2t.OR.l_3o)))R CBldc dcCt1o.= dul_f---le #el--lu,,st,stk,ldopolsopymst0 Bl,lmod_a IF''''''Pl'''''leaontro-=Eene 3 Eoffxp nsuffici,st cbdivi kin ------BOXLIIIIIX R RIet8888------BOXLIE.lllllE2.l_3i2d_m q qr_3.l_3i2d_mTTldcTOR.PRES(ngOst -#e_(2t.ORt.OR CBOXLISTTTNp E( nost -#l1= .L ==Np_(2t.ORt.OR CBOXLISTTTS-lurni->0 Returnfat2t.OR.l_3o)))R CBldc dcCt1o.= dul_f---le #el--lu,,st,stk,ldopolsopymst0 Bl,lmod_a IF''''''Pl'''''st -#Emubasee a sut=least=length=Np cbdivi kin ------BOXLIIIIIX R RIet8888------BOXLIE.lllllE2.l_3i2d_m q qr_3.l_3i8R CBBlONTINUreetyperE.lrSUBROUTbdi subBt-ety aa KI.lr==a SINGLE_PRECIppm_metyperINTrSUBROUTbdi tk,ldopolsopyOs(xp-ifa KI.lr==a DOUBLE_PRECIppm_metyperINTrSUBROUTbdi tk,ldopolsopyOs(xd3if__R.letyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyytk,-1.2/src/dopo/tk,ldopolsosdeoc_R.644 000765 000024 00000050213051445666064 017520216uqq q00om qqq ff000000 000000 perINT3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Pare a Par------B-))Subrout-1el : tk,ldopolsosdeoc_R.l_3iUSi3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--Copyr (1t (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppef r_Fluid Dynamics (DTU)---- -B!------B!------B!-tc!fnfnfeE!fnp - ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPMh!fnflf--software: youNcan redisuribbumeiusand/ r_moasff------B!eiusE=inr-_,iNEerm3 Ev N,iNGNU Lesser Gene !l Publsc License Returni afnpublsshmdNby N,iNFlf--Software FoE=in rmi, eii cnn Returni vers. e 3 Ev N,iNLicense, r_(---yoEr op . e)-any latcnn Returni vers. e.------B!------B!-PPMh!fndisuribbumd ,m Iflhope -----iuswiNohbenuseful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,mN,iNimplimd warranty Ev------B!-MERCHANTABILITY r_FITNESS FOR A PARTICULAR PURPOSE. Sf-- If------B!-GNU Gene !l Publsc License f r_more details.------B!------B!-YouNshouldl i=N receivmd a sopy Ev N,iNGNU Gene !l Publsc License Returni andT IflGNU Lesser Gene !l Publsc License along --- -PPM.-If- or, Returni sf--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich Return--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------O#if_3i---ROUTbdi tk,ldopolsopdeoc_R.(o,valn ------BOXL-tc!fnrout-1elcaldeocn edNbssuprnme sOR. a subolsoy. W objecR.l_3i-!!-mx [TER -1E_sidglem----------------------------------------------------O#iurninggggufen OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX ReturnUSi tk,lmodufe_in a ReturnUSi tk,lmodufe_sl_3t q ReturnUSi tk,lmodufe_sl_3top ReturnUSi tk,lmodufe_E_(2t.OR.l_3USi tk,lmodufe_illoc_R.l_3iUSi tk,lmodufe_writypedefl_3iUSi tk,lmodufe_wrir poloc_R.l_3iUSiLICIT NONE_#if_3i-!!-mx [TER -1E_sidglem----------------------------------------------------O#iurninggggludenOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --nclude "0_ r/nrl--.h"_#if_3i-!!-mx [TER -1E_sidglem----------------------------------------------------O#iurninggggu,,stseturn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=nTYPEle #etpolso) :: NTENT(IN ) :: infolso---BOXL-tc!flsoy. W ibbucturus_,ibaldeocn edNb.l_3i---EGER ,n-NTENT(ngOUT) :: info------B!!!--eturns 3t tus,(0 upia PRECI C_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Locnll---,pbo sn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---EGER &'xmaxEc3) d0xldcl_3i---EGER ,nd0xi,ik.per URAL( kl-d_double.ch): d0x.OR_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Loceraalsn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialisen_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---q .l_3t q (stk,ldopolsopdeocn e0 kin -OR.per ldc00=_1Rt.OR C R.lRrniparam_alldeoc_R.ll_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IniBt argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. == _(2t.ORt.OR E2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopDeocn edNbiuprnantyynme sOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---q .l_ illoc(outo%ein_.l_d(3sc,iop ,ikin ------Bturq .l_ illoc(outo%ein_.l_,n.sc,iop ,ikin ------Bturq .l_ illoc(outo%ein_.l_d(3,c,iop ,ikin ------Bturq .l_ illoc(outo%ein_.l_,n.,c,iop ,ikin ------Bturq .l_ illoc(outo%einstroc(i)c,iop ,ikin ------Bturq .l_ illoc(outo%ein_lisu(i)c,iop ,ikin ------Bturq .l_ illoc(outo%einbcl--c,iop ,ikin ------Bturq .l_ illoc(outo%einstrsts(i)c,iop ,ikin ------Bturq .l_ illoc(outo%einstrsts(i,c,iop ,ikin ------Bturq .l_ illoc(outo%ein (1.l_s(i)c,iop ,ikin ------Bturq .l_ illoc(outo%ein_(1.l_s(i)c,iop ,ikin ------Bturq .l_ illoc(outo%ein3_bc(6,c,iop ,ikin ------Bturq .l_ illoc(outo%ein_(1.l_c(i)c,iop ,ikin ------Bturq .l_ illoc(outo%ein_mseq,ldc,iop ,ikin ------Bturq .l_ illoc(outo%ein_.l_physsc,iop ,ikin ------Bturq .l_ illoc(outo%ein_.l_phys,c,iop ,ikin ------Bturq .l_ illoc(outo%ein_.l_physsc,iop ,ikin ------Bturq .l_ illoc(outo%ein_.l_phys,c,iop ,ikin ----3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopDeocn edNbiNm or poR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --n--Bturq .l_ illr poloc_R._equi(o%e orTi)c,iop ,ikin ------BturNULLIFY(o%e orTi)----Bturo%eaxxm orid =GT---tl_3i-!!-mx [TER -1E_sidglem----------------------------------------------------O#iurningggguark!fntroolsoy. W aor alll--d Return-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Returnouto%is/nrl--d-=-.TRUFALSOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return----etocn w!fntroolso ibbucturus_,ibalreu ia next time3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--- illnext_availpolso.TRo%is/ID_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopurn OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,ldopolsopdeocn e0 kin -OR.per UR_metyper ONrSUBROUTbdi tk,ldopolsopdeoc_R.ltk,-1.2/src/dopo/tk,ldopolsosge000644 000765 000024 00000050214463445666064 017565377uqq q00om qqq ff000000 000000 i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---loprout-1el : tk, ldopolsosgel_3iUSi3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--Copyr (1t (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppef r_Fluid Dynamics (DTU)---- -B!------B!------B!-tc!fnfnfeE!fnp - ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPMh!fnflf--software: youNcan redisuribbumeiusand/ r_moasff------B!eiusE=inr-_,iNEerm3 Ev N,iNGNU Lesser Gene !l Publsc License Returni afnpublsshmdNby N,iNFlf--Software FoE=in rmi, eii cnn Returni vers. e 3 Ev N,iNLicense, r_(---yoEr op . e)-any latcnn Returni vers. e.------B!------B!-PPMh!fndisuribbumd ,m Iflhope -----iuswiNohbenuseful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,mN,iNimplimd warranty Ev------B!-MERCHANTABILITY r_FITNESS FOR A PARTICULAR PURPOSE. Sf-- If------B!-GNU Gene !l Publsc License f r_more details.------B!------B!-YouNshouldl i=N receivmd a sopy Ev N,iNGNU Gene !l Publsc License Returni andT IflGNU Lesser Gene !l Publsc License along --- -PPM.-If- or, Returni sf--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich Return--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------O#if_3i---ROUTbdi tk,ldopolsopge(oid(ou,o,valn ------BOXL-tc!fnrout-1elcalrrns 3t aintsOR_,iNozNEopolsoy. W---BOXL-tc!ntsOR_dsut=N,iNid(ou.l_3i-!!-If-l_3i-!!-If-[TIP]---BOXL-tc!fnsefulrouldl i=nev_,ineto _,imanuelNyasff---zNEopolsoy. W ibbucturu.l_3i-!!-If- ortnrout-1elcalrounetoed,!fnes i.asfsteseobabNyasean----arE cnn_,iNp l_3i-!!-If-l,,f (PProumissntroa featuruseacNcompli,stpy dalrounousweben,2)ig-=-.l_3i-!!-[Nl_3i-!!-If-[RANNING.l_3i-!!-If-`npocomcurrseE limdetsORmi, euNcan redulriousNyabreak!fntngrotfsNcal_3i-!!-If-*changi*iNme-rs sOR. a sNme-rrns 3to _,soy. W aorm ly aintsOR_,iieturn3i2-tc!rrns 3to, rann_,iNpredopy Ev N,iNGNUsOR_,hcmsa Rel_3i2d-l_3 TODO saf_,iiimdetsORmi, ef_3i-!!-mx [TER -1E_sidglem----------------------------------------------------O#iurninggggludenOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --nclude "0_ r/nrl--.h"_#if_3i-!!-mx [TER -1E_sidglem---------------------------x i dex e a ParalllPBOX --nurninggggufen ORl_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX ReturnUSi tk,lmodufe_in a ReturnUSi tk,lmodufe_sl_3t q ReturnUSi tk,lmodufe_sl_3top ReturnUSi tk,lmodufe_E_(2t.OR.l_3USi tk,lmodufe_illBt_Nopid.l_3USi tk,lmodufe_illtypedefl_3iUSiLICIT NONE_#iff_3i-!!-mx [TER -1E_sidglem----------------------------------------------------O#iurninggggu,,stsetul_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---EGER NTENT(IN ) :: Np Nid(ou---BOXL-tc!flsoy. W IDturn)=nTYPEle #etpolso)O-NTERB:: infolso---BOXL-tc!urns 3t NEopolsoy. W ntsOR_dsut=N,i`Nid(ou`turn---EGER NTENT(IN UT) :: info------B!!!--eturns 3 tus,(0 upiPRECI C_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Locnll---,pbo sn_Rl_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---URAL( kl-d_double.ch): : d0x.OR_3i!l_LOGICAL d0xidmodturn)=nTYPEle #etpolso)O-NTERB:: info-_olso---BOXL-E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Loceraalsn_Rl_3i----mx [TER -1E_sidglem----------------------------------------------------O#if_3i---3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialisen_Rl_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---q .l_3t q (stk,ldopolsopge0 kin -OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lubBt argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. == _(2t.ORt.OR q subBt------BOX--[Tist, & ==X Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEy N,iNlisolsoy. W---BOXL-E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---Do-_olso =>eldopolso(oid(ou)%t.l_3i-l_olso =>eldopolso(oid(ou)%t.l!_3i-l_olso%ID.TRo%isodt!_3i-l_olso%nrl--d-=-.00=_o-_olso%nrl--d-=-t!_3i-l_olso%_.l_physs.00=_o-_olso%_.l_physst!_3i-l_olso%_.l_physs.00=_o-_olso%_.l_physst!_3i-l_olso%_.l_physd.00=_o-_olso%_.l_physdt!_3i-l_olso%_.l_physd.00=_o-_olso%_.l_physdt!_3i-l_olso%bcl---BOX--[=_o-_olso%bcl--t!_3i-l_olso%,3=boEBOX--[=_o-_olso%_3 Ret!_3i-l_olso%_.l_3=boEBOX=_o-_olso%_.l_3 Ret!_3i-l_olso%_.l_,n.s .00=_o-_olso%_.l_3 Ret!_3i-l_olso%_.l_3=bdEBOX=_o-_olso%_.l_3 Rdt!_3i-l_olso%_.l_3=bdEBOX=_o-_olso%_.l_3=bdt!_3i-l_olso%strsts(i)BOX=_o-_olso%strsts(i)t!_3i-l_olso%strsts(idBOX=_o-_olso%strsts(idt!_3i-l_olso%stroc(i) BOX=_o-_olso%stroc(i)t!_3i-l_olso%,3=busORs--[=_o-_olso%_3 RusOR3!_3i-l_olso%nr=busORs--[=_o-_olso%i3 RusOR3!_3i-l_olso%3_bc(6, BOX=_o-_olso%strc(6,t!_3i-l_olso%,(1.l_s(i)-[=_o-_olso%_(1.l_s(i)3!_3i-l_olso%n(1.l_s(i)-[=_o-_olso%i(1.l_s(i)3!_3i-l_olso%n(1.l_c(i)-[=_o-_olso%_(1.l_c(i)t!_3i-l_olso%i(1.l_c(i)-[=_o-_olso%i(1.l_c(i)t!_3i-l_olso%is. e)miz=-.TRo-_olso%i3. e)miz=-3!_3i-l_olso%nmseq,lds--[=_o-_olso%_mseq,ldt!_3i-l_olso%imseq,lds--[=_o-_olso%imseq,ldt!_3i-l_olso%xm orid =GTX=_o-_olso%_.l_rid =Gt!_3i-l_olso%xiLibEBOX--[=_o-_olso%xiLib3 TODO:bBt---NN,irerouworks _3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopurn ORl_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Rurni CONTINUreetyper q .l_3top(stk,ldopolsopge0 kin -OR.per UR_metyper ONTAINSmetyperSUBROUTbdi subBt------BOXu--[cTOR..NO ==l_im Ialized==d_(2t.ORt.OR CBldcurni->0 ReturnE_(2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--leillno Ial,,ldopolsopge0 Bl,lmod_a IF''''''Pl'Pleasalcull=l_im Ial su!', cbdivi kin ------BOXLIIIIIIIIet8888------BOXLIE.l_3.l_3i2d_mTTldct1o.= dulBt_Nopo%isod(oid(ou,idmodin ------B--[ dctTOR..NO ==idmod_(2t.ORt.OR CBOXLIiReurni->0 Returnfat2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--lu,,st,stk,ldopolsopge0 Bl,lmod_a IF''''''Pl'flsoy. W IDn n nidmod cbdivi kin ------BOXLIIIIIIIIet8888------BOXLIE.l_3.l_3i8R CBBlONTINUreetyperE.lrSUBROUTbdi subBt-etyperE.lrSUBROUTbdi subldopolsosgeltk,-1.2/src/dopo/tk,ldopolsosmetis_s2p644 000765 000024 00000050110630445666064 017520516uqq q00om qqq ff000000 000000 perE.l3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---loprout-1el : tldopolsosmetis_s2pl_3iUSi3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--Copyr (1t (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ReturningggggggggggggggggggCe =ppef r_Fluid Dynamics (DTU)---- -B!------B!------B!-tc!fnfnfeE!fnp - ---_,iNP !llelNP -----NM oriLib ,,f (PPM).------B!------B!-PPMh!fnflf--software: youNcan redisuribbumeiusand/ r_moasff------B!eiusE=inr-_,iNEerm3 Ev N,iNGNU Lesser Gene !l Publsc License Returni afnpublsshmdNby N,iNFlf--Software FoE=in rmi, eii cnn Returni vers. e 3 Ev N,iNLicense, r_(---yoEr op . e)-any latcnn Returni vers. e.------B!------B!-PPMh!fndisuribbumd ,m Iflhope -----iuswiNohbenuseful,------B!-bbu WITHOUT ANY WARRANTY; --- out eve,mN,iNimplimd warranty Ev------B!-MERCHANTABILITY r_FITNESS FOR A PARTICULAR PURPOSE. Sf-- If------B!-GNU Gene !l Publsc License f r_more details.------B!------B!-YouNshouldl i=N receivmd a sopy Ev N,iNGNU Gene !l Publsc License Returni andT IflGNU Lesser Gene !l Publsc License along --- -PPM.-If- or, Returni sf--.------B!------B!-P !llelNP -----NM oriLib ,,f (PPM)---- -B!-ETH Zurich Return--CH-8092 Zurich, S--- 1NlanLOR.l_3i----mx [TER -1E_sidglem----------------------------------------------------O#if aa KI.lr==a SINGLE_PRECIppm_metyperINTROUTbdi subldopolsosmetis_s2p_so_.l_,eaxx.l_,n.l_(1.l_,i(1.l_ Bldc,lmod_a IF''li''PlPlstsORi_s, noignm,,stroc(i)c_lisu(i)c_3 RusORin ----ifa KI.lr==a DOUBLE_PRECIppm_metyperINTROUTbdi subldopolsosmetis_s2p_do_.l_,eaxx.l_,n.l_(1.l_,i(1.l_ Bldc,lmod_a IF''li''PlPlstsORi_s, noignm,,stroc(i)c_lisu(i)c_3 RusORin ----if__R.l_3i----tc!fnrout-1elcalignm,st NEopdom insOR.iNozNEopiess2ts.-tl_3i----tc!usntroNEopMETIS grDyn ----e)-antrol,,f (P.l_3i-!!-Ifl_3i-!!-If-[NO E.l_3i-!!-If-U/>.,lmoduyepsr_morrecmst m----sonn n_FI-_,iN----B!!!--etdecid=pN,irwointsOR. anyNEopdame.bBt art NEose---B!!!--etdecie.--s!usntroNEopi(1.l_nusOR.l_3i-!!-Ifl_3i-!!-If-Tp t rn_,inu sORntroroucurrseEly dtEopusntroa fulll_3i-!!-If-rchhan.!fnrou n neffici,stdT Ifuldl i=mayusebe---B!!!--etreplacwarr-PPMsodn e detNM v_,ihpgor-PPm.l_3i-!!-Ifl_3i-!!-If-[NO E.l_3i-!!-If-CurrseEly,swe makeeno us--N,ilink (graph edges----BOXL-tc!wet (c)pubwebenaI tammunicmi, euwet (cDTUnu sOR------B!-MEtc!ghfstes----s.-I/r pointsOR.---iusneto _,iusesseE---B!-MEtc!_morhNp edgecut).!fn rfn n l--d-itely room!_mo---B!-MEtc!limrovetsOR n rfn_,igee,mN,ibetn Reloay NaLORcntr.l_3i-!!-mx [TER -1E_sidglem----------------------------------------------------O#iurninggggufen OR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX ReturnUSi tk,lmodufe_in a ReturnUSi tk,lmodufe_sl_3t q ReturnUSi tk,lmodufe_sl_3top ReturnUSi tk,lmodufe_E_(2t.OR.l_3USi tk,lmodufe_illoc_R.l_3iUSi tk,lmodufe_write Rel_3iUSiLICIT NONE_#if aa KI.lr==a SINGLE_PRECIppm_metyperINTEGER ,RTICAMET:: infMK->0 Retd_dousntrle-ifa KI.lr==a DOUBLE_PRECIppm_metyperINTEGER ,RTICAMET:: infMK->0 Retd_double.ch-if__R.l_3i----E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX ReturnUSigggludenOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --nclude "0_ r/nrl--.h"_#if_3i-!!-mx [TER -1E_sidglem---------------------------x i dex e a ParalllPBOX --nurninggggu,,stseturn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return)=nURAL(MK) &'xmaxEc:,:)NTENT(IN ) :: Np _.l_,ea---B!-MEtc!Min. extsOR a suprndom insOR.l_3i-l_URAL(MK) &'xmaxEc:,:)NTENT(IN ) :: Np _.l_,n.---B!-MEtc!Max. extsOR a suprndom insOR.l_3i-l_URAL(MK) &'xmaxEc: ::NTENT(IN ) :: Np tsORl_3i-!!-If-Cs area suprndom insOR.i(i.e.bsum N,is----s.-/r poies,2ots areinl_3i-!!-If---iusdom insOR.-U/>d!_morwet (cntroNEopignm,stset.yperINTEGER &'xmaxEc: ::NTENT(IN ) :: Np _(1.l_l_3i-!!-If-Tp nu sOR--- (1.l_b op. a subdom insORyperINTEGER &'xmaxEc:,:)NTENT(IN ) :: Np i(1.l_l_3i-!!-If-PtsOR_,.iNozNEos--(1.l_b op.yperINTEGER &'xmaxEc: ::NTNTERB:: Np stroc(i)t_3i-!!-If-FullsusEv ne -ess2ts.- affilimi, eune dom insOR.l_3i-l_EGER &'xmaxEc: ::NTNTERB:: Np i3 RusOR3_3i-!!-If-LsEv ne dom insOR.iignm,sto _,i nonlll---iess2ts.-tl_3i---EGER ,n-NTENT(ngO ) :: Np _3 Return3i2-tc!flt---nu sOR--- dom insOR.l_3i-l_EGER ,n-NTENT(ngO ) :: Np ignm,---B!-MEtc!METIS ignm,stset type. On--N,:l_3i-!!-Ifl_3i-!!-If-*niparam_allognm,s_es,al_cutl_3i-!!-If-*niparam_allognm,s_es,al_camml_3i-!!-If-*niparam_allognm,s_dual_cutl_3i-!!-If-*niparam_allognm,s_dual_camml_3i-!!EGER ,n-NTENT(ngOUT) :: infn3 RusOR3_3i-!!-If-Tp nu sOR--- dom insOR.iignm,stol_3i-!!EGER ,n-NTENT(ngOUT) :: info------B!!!--eturns 3t tus,(0 upia PRECI C_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Locnll---,pbo sn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---EGER &'xmaxEc: ::NTNTERB:: infelmetu,ns---,nxadj,nadjncyturn---EGER &'xmaxEc: ::NTNTERB:: infvwgt,adjwgt,vsize,voRel_3iUSiLGER &'xmaxEc:,:)NTNTERB:: inft rn_,nol_3i-l_URAL(MK) &'xmaxEc:,:,:)NTNTERB:: inft rn_,l_3i-l_URAL( Retd_dousntrle) &'xmaxEc:)NTNTERB:: inftpwgtl_3iUSiLGER &'xmaxEc3) :: d0xldcl_3i---EGER &'xmaxEc1) :: d0x_.lvoRel_3iUSiLGER &'xmaxEc5) :: d0x_etis_. e)-a.l_3i-l_EGER ,n- :: d0x ,ikin,n.lntsOR.,etypel_3i-l_EGER ,n- :: d0xdes,2)nnu type,ns---.,edgecutl_3i-l_EGER ,n- :: d0xj,k,il_3i-l_EGER ,n- :: d0xj,n.ljj,id=n-,nv_,t,wgtflag,volume3i2d-l_CHICACB::( dulBtar) ,n- :: d0xr agl_3i-l_URAL(MK) ,n- :: d0xt0,luyepsl_3i-l_URAL( Retd_double.ch): : :: d0xrOR.pxx.l.pxxean-eturnUSiLOGICAL :: d0xlasymml_3i-!!-E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Loceraalsn_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialisen_R.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---q .l_3t q (stk,ldopolsopmetis_s2p0 kin -OR. aa KI.lr==a SINGLE_PRECIppm_metyperINTluyeps->0 Retuyepsp-ifa KI.lr==a DOUBLE_PRECIppm_metyperINTluyeps->0 Retuyepsd3if__R.ll_3i-!!-E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Locet.ORpN,iMETIS l,,f (PPsupportlrounousavail sn_l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX --nclfn __MPImETISl_3i!l_urni->0 Returnfat2t.OR.l_3o))t1o.= dul_f---le #el--lnometis,,ldopolsopmetis_s2p0 dc,lmod_a IF'h!fnwaI tampilwarr-PP eveMetisPsupport cbdivi kin ------BOXL,3=busORs---t--BOXLeturninniurn_R.lifase.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lubBt argu,,stsOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. == _(2t.ORt.OR q subBt------BOX--[Tist, & ==X Returninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEAcn edNbiNm ostroc(i) antyyl_3i---3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--- R.lR Rrniparam_alloc_fi ---turnldcldc Reind_3 Return3i2q .l_ illoc(outstroc(i)c,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBWRITE (r ag,'(A,I10,A)') 'ocn edNntro'i_s, no'ostroc(i)s failwa'Rt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF''''''Pl''''''Pr ag,bdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEyt---NN,iwe m ly h veetEopcess2ts.-r_we anydtEol_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebnc(i) . 2==1_(2t.ORt.OR CBOX3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX3eEAcn edNbiNm onr=busORsantyyl_3i------3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX R.lR Rrniparam_alloc_fi ---turnldcldcldc Reind_3 Return3i2 i2q .l_ illoc(out_lisu(i)c,iop ,ikin ------Btur ctTOR., & == _(2t.ORt.OR CBOXLIiRurni->0 Returnfatalt.ORt.OR CBBBBBldWRITE (r ag,'(A,I10,A)') 'ocn edNntro'i_s, no'onr=busORsfailwa'Rt.OR CBBBB BBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF''''''Pr ag,bdivi kin ------BOXLIIII Returninnis(,,,,,,,,_3.l_3i2d_mTTld3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX3eEAgnm,ssuprndom insOR.iNozNEopiess2ts.-dT Ifrrn ORl_3i-l_Tld3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX,3=busORs--_3 Return3i2 i2ts n3 R .l_3 Return3i2dddddlnr=busORt_liseindi,n.---B!-MMMMMMMstroc(i)t_liseindldopranks(,,,,,,,,_3.ofixedSTTTE.eturninnis(,,tiot2xOR .l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeENu sOR--- ntsOR.-plrouubdT IfedetsOR typel_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--- tsOR.-= ----BOXLetype Rrn3 -MERCHTIS type hexahedraturn--[TOR.l_eb-=EQ. 2==2_(2t.ORt.OR CBOXL tsOR.-= 4Rt.OR CBOXLetype Rrn4 -MERCHTIS type quadricnn Rn_Rl_3i---t2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEy rn_,idom insORsantyy.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[ R.lR Rrniparam_alloc_fi ---turnldcldc Reindl_eb-=Eturnldcldc 2eindntsOR.l_3i-!!ldc 3eind_3 Return3i2q .l_ illoc(outt rn_,c,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''dom insORst rn_,iusORsCORNER cbdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.urnldcldc ReindltsOR.l_3i-!!ldc 2eind_3 Return3i2q .l_ illoc(outt rn_,noc,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''dom insORst rn_,inu sORssCORNERNO cbdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---Initialisenz t rn_,inu sOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[ts n3 R .l_3 Return3i2ddddjs nm <sOR.l_3i-!!BOXLLLLLt rn_,noi)rnliseind0l_3i-!!BOXL_3.ofixedSTT_3.ofil_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IniSt detscmstsrn_,n n_CHTIS nu sORntroFI-_,l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebu=EQ. 2==2_(2t.ORt.OR CBOXLts n3 R .l_3 Return3i2dddddlLLt rn_,(1,1rnliseindxEc_wriidomliseturn3i2dddddlLLt rn_,(2,1rnliseindxEc_wrii2omliseturn3i2dddddlLLturn3i2dddddlLLt rn_,(1,2rnliseindxEc_wriidomliseturn3i2dddddlLLt rn_,(2,2rnliseindx.l_,n.i2omliseturn3i2dddddlLturn3i2dddddlLLt rn_,(1,3rnliseindx.l_,n.idomliseturn3i2dddddlLLt rn_,(2,3rnliseindx.l_,n.i2omliseturn3i2dddddlturn3i2dddddlLLt rn_,(1,4rnliseindx.l_,n.idomliseturn3i2dddddlLLt rn_,(2,4rnliseindxEc_wrii2omliseturn3i2dddd_3.ofixedSTT_nofixedST',--,ts n3 R .l_3 Return3i2dddddlLLt rn_,(1,1rnliseindxEc_wriidomliseturn3i2dddddlLLt rn_,(2,1rnliseindxEc_wrii2omliseturn3i2dddddlLLt rn_,(3,1rnliseindx.l_,n.i3omliseturn3i2ddddturn3i2dddddlLLt rn_,(1,2rnliseindxEc_wriidomliseturn3i2dddddlLLt rn_,(2,2rnliseindx.l_,n.i2omliseturn3i2dddddlLLt rn_,(3,2rnliseindx.l_,n.i3omliseturn3i2dddturn3i2dddddlLLt rn_,(1,3rnliseindx.l_,n.idomliseturn3i2dddddlLLt rn_,(2,3rnliseindx.l_,n.i2omliseturn3i2dddddlLLt rn_,(3,3rnliseindx.l_,n.i3omliseturn3i2ddturn3i2dddddlLLt rn_,(1,4rnliseindx.l_,n.idomliseturn3i2dddddlLLt rn_,(2,4rnliseindxEc_wrii2omliseturn3i2dddddlLLt rn_,(3,4rnliseindx.l_,n.i3omliseturn3i2dturn3i2dddddlLLt rn_,(1,5rnliseindxEc_wriidomliseturn3i2dddddlLLt rn_,(2,5rnliseindxEc_wrii2omliseturn3i2dddddlLLt rn_,(3,5rnliseindxEc_wrii3omliseturn3i2turn3i2dddddlLLt rn_,(1,6rnliseindxEc_wriidomliseturn3i2dddddlLLt rn_,(2,6rnliseindx.l_,n.i2omliseturn3i2dddddlLLt rn_,(3,6rnliseindxEc_wrii3omliseturn3iturn3i2dddddlLLt rn_,(1,7rnliseindx.l_,n.idomliseturn3i2dddddlLLt rn_,(2,7rnliseindx.l_,n.i2omliseturn3i2dddddlLLt rn_,(3,7rnliseindxEc_wrii3omliseturn3turn3i2dddddlLLt rn_,(1,8rnliseindx.l_,n.idomliseturn3i2dddddlLLt rn_,(2,8rnliseindxEc_wrii2omliseturn3i2dddddlLLt rn_,(3,8rnliseindxEc_wrii3omliseturn3i2dddd_3.ofixedSTT_3.OR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IniNu sOR-tsrn_,n r-PPMsamedltsOR n_space h vntrosamednu sORl_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---t rn_,noi1,Reind1turn---t rn_,noi2,Reind2turn---t rn_,noi3,Reind3turn---t rn_,noi4,Reind4Rt.OR Cdes,2)ind4Rt.OR CTOR.l_ebu=EQ. 2==2_(2t.ORt.OR CBOXts n3 R 2l_3 Return3i2dddddljs nm <sOR.l_3i-!!BOXLLLLL id=n-ind03turn3i2dddddlLL_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralturn3i2dddddlLL_3ubBt argull=ltsOR.-a suprn(1.l_b r.l_3i-!!BOXLLLLL 3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralturn3i2dddddlLL_js k .l_(1.l_(mliseturn3i2dddddlLLLLLLj,n.[=_o-1.l_(komliseturn3i2dddddlLLdddljs nnm <sOR.l_3i-!!BOXLLLLL LLLLL 3E &'xmaxEc_wri2d_m_fspat', & box i dex e a l_3i-!!BOXLLLLL LLLLL 3 - orltsOR.-ctsOcid=, st detltsOR nu sORl_3i!l_BOXLLLLL LLLLL 3E &'xmaxEc_wri2d_m_fspat', & box i dex e a l_3i-!!BOXLLLLL LLLLL IF((ABS(t rn_,(1,)rnlise-t rn_,(1,)j,j,n.)E.dT. cc,lmod_a IF''''''Pl''''''luyeps*(x.l_,n.idomlise-xEc_wriidomlise)E.AND.c,lmod_a IF''''''Pl''''''(ABS(t rn_,(2,)rnlise-t rn_,(2,)j,j,n.)E.dT. ,lmod_a IF''''''Pl''''''luyeps*(x.l_,n.i2omlise-xEc_wrii2omlise)E_(2t.ORt.OR CBOXLISTTTS-l____ CTOR.t rn_,noi)j,j,n.)T. == _(id=n-indt rn_,noi)j,j,n.)Rt.OR CBOXLISTTTS-l___E2.l_3i2d_m q qrnR.ll___E2.ofixedSTTTE.lll___E2.ofixedSTTTE.lll___3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralturn3i2dddddlLL_3ub orid=n-il---itsOR waI fin rnfo-hORnR nu sOR, fase.urn3i2dddddlLL_3ubsOcreasalcin tOR--- uribsOct es,2)iT Ifgeenew nu sORl_3i!l_BOXLLLLL 3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralturn3i2dddddlLL_TOR.,d=n-i. == _(2t.ORt.OR dctTE.llllllt rn_,noi)rnliseind,d=n-ixedSTTTE.lll___EnofixedST',--,,,,,,,,,,des,2)inddes,2)i+d1turn--- dctTE.llllllt rn_,noi)rnliseinddes,2)ixedSTTTE.lll___E2.l_3i2d_m q qrnRE2.ofixedSTTTE._3.ofixedSTT_nofixedST',--t rn_,noi5,Reind5ixedST',--t rn_,noi6,Reind6ixedST',--t rn_,noi7,Reind7ixedST',--t rn_,noi8,Reind----BOXLIE.des,2)ind----BOXLIE.ts n3 R 2l_3 Return3i2dddddljs nm <sOR.l_3i-!!BOXLLLLL id=n-ind0turn3i2dddddlLL_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralturn3i2dddddlLL_3ubBt argull=ltsOR.-a suprn(1.l_b r.l_3i-!!BOXLLLLL 3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralturn3i2dddddlLL_js k .l_(1.l_(mliseturn3i2ddddddddddddj,n.[=_o-1.l_(komliseturn3i2dddddlLLdddljs nnm <sOR.l_3i-!!BOXLLLLL LLLLL 3E &'xmaxEc_wri2d_m_fspat', & box i dex e a l_3i-!!BOXLLLLL LLLLL 3 - orltsOR.-ctsOcid=, st detltsOR nu sORl_3i!l_BOXLLLLL LLLLL 3E &'xmaxEc_wri2d_m_fspat', & box i dex e a l_3i-!!BOXLLLLL LLLLL IF((ABS(t rn_,(1,)rnlise-t rn_,(1,)j,j,n.)E.dT. cc,lmod_a IF''''''Pl''''''luyeps*(x.l_,n.idomlise-xEc_wriidomlise)E.AND.c,lmod_a IF''''''Pl''''''(ABS(t rn_,(2,)rnlise-t rn_,(2,)j,j,n.)E.dT. cc,lmod_a IF''''''Pl''''''luyeps*(x.l_,n.i2omlise-xEc_wrii2omlise)E.AND.c,lmod_a IF''''''Pl''''''(ABS(t rn_,(3,)rnlise-t rn_,(3,)j,j,n.)E.dT. cc,lmod_a IF''''''Pl''''''luyeps*(x.l_,n.i3omlise-xEc_wrii3omlise)E_(2t.ORt.OR CBOXLISTTTS-l____ CTOR.t rn_,noi)j,j,n.)T. == _(id=n-indt rn_,noi)j,j,n.)Rt.OR CBOXLISTTTS-l___E2.l_3i2d_m q qrnR.ll___E2.ofixedSTTTE.lll___E2.ofixedSTTTE.lll___3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralturn3i2ddddll___3ub orid=n-il---itsOR waI fin rnfo-hORnR nu sOR, fase.urn3i2dddddlLL_3ubsOcreasalcin tOR--- uribsOct es,2)iT Ifgeenew nu sORl_3i!l_BOXLLLLL 3E &'xmaxEc_wri2d_m_fspat', & box i dex e a Paralturn3i2dddddlLL_TOR.,d=n-i. == _(2t.ORt.OR dctTE.llllllt rn_,noi)rnliseind,d=n-ixedSTTTE.lll___EnofixedST',--,,,,,,,,,,des,2)inddes,2)i+d1turn--- dctTE.llllllt rn_,noi)rnliseinddes,2)ixedSTTTE.lll___E2.l_3i2d_m q qrnRE2.ofixedSTTTE._3.ofixedSTT_3.OR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IniSanitybBt------BOX-3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.l_ebug =GT. == _(2t.ORt.OR -[TOR.MAXVAL.t rn_,no) ==des,2)i.OR. MINVAL.t rn_,no) ==1_(2t.ORt.OR CBOXXXXXXurni->0 Returnfat2t.OR.l_3o)))R CBldct1o.= dul_f---le #el--les,2_nu sOR,,ldopolsopmetis_s2p0 d,lmod_a IF''''''Pl''Ns,2)iw rfnmissed_FITcin tOd twice cbdivi kin ------BOXLIIIIIIIIet888innis(,,,,,,,,_E2.l_3i2d_m E2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopDeocn edNbit rn_,iusOR3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--- R.lR Rrniparam_alldeoc_R.l_3iUSiq .l_ illoc(outt rn_,c,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dccccccccc,lmod_a IF'''''dom insORst rn_,iusORsCORNER cbdivi kin ------BOXLt2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEyt---NN,iwe neto asymmetricn ----e)-as_FITnoR3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---rOR.p->0MINVAL.ipararoc_speto(0:l_ebnc(i)-1)----BOXLx.l.p->0MAXVAL.ipararoc_speto(0:l_ebnc(i)-1)----BOXLxean-eind1.0_ Retd_double.ch/URAL( Retnc(i), Retd_double.ch)---BOXLxean-eind(ABS(x.l.p-rOR.p))/xean-eturnUSilasymm.TRUFALSOleturni verN,ire rfn n e detNpred5-plrc=n-idiff rfnc=, doswiN---BturTOR.xean-ei. == .05_ Retd_double.ch)ilasymm.TRUTRUOl_3i2d-l_TOR.l_ebug =GT. == _(2t.ORt.OR -[WRITE(r ag,'(A,F6.4)') 'Slowesteseos2ts.-: ',rOR.pRt.OR CBBBBt1o.= dulte Re(ldoprankk,ldopolsopmetis_s2p0 r ag,n ------BOXLIIIIWRITE(r ag,'(A,F6.4)') 'Fastesteseos2ts.-: ',r.l.pRt.OR CBBBBt1o.= dulte Re(ldoprankk,ldopolsopmetis_s2p0 r ag,n ------BOXLIIIIWRITE(r ag,'(A,F6.4)') 'Pess2ts.-dspeto imNaLORce: ',rean-eturnUSiBBBBt1o.= dulte Re(ldoprankk,ldopolsopmetis_s2p0 r ag,n ------BOXLIIIITOR.lasymm_(2t.ORt.OR CBOXXXXXt1o.= dulte Re(ldoprankk,ldopolsopmetis_s2p0 d,lmod_a IF'''''''Dontroasymmetricnignm,stset',n ------BOXLIIIIEnofixedST',--,,,,t1o.= dulte Re(ldoprankk,ldopolsopmetis_s2p0 d,lmod_a IF'''''''Dontrosymmetricnignm,stset',n ------BOXLIIIIE2.l_3i2d_m E2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopNu sOR--- v_,ticesm Iflhopgraph---BOX-3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.ignm,Q. 2==iparam_allognm,s_es,al_cuti.OR. cc,lmod_a IFignm,Q. 2==iparam_allognm,s_es,al_comm_(2t.ORt.OR CBOXXnv_,tinddes,2)ixedSTTEnofixedST',--,nv_,tindd3 Return3i2E2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopNu sOR--- ,2)irto graph ----e)-as3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---ns---. Rrniparnc(i).l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEAcn edNbiCHTIS r poia Re antyyl_3i---3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--- R.lR Rrniparam_alloc_fi ---turnldcldc Reind_3 Re*ltsOR.l_3i-!!q .l_ illoc(outelmetu,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS r poia Re antyyTEnMNTS cbdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.urnldcldc Reindnv_,tl_3i-!!q .l_ illoc(outns---,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS es,2o ----e)-a v_ct.-dNODETICU cbdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.urnldcq .l_ illoc(outvwgt,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS v_,tex!wet (c)v_ct.-dVWGU cbdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.urnldcldc Reind1.urnldcq .l_ illoc(outadjwgt,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS v_,tex!wet (c)v_ct.-dADJWGU cbdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.urnldcq .l_ illoc(outvsize,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS v_,tex!wet (c)v_ct.-dVSIZE cbdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.urgggggNULLIFY(adjwgt): !swe makeeno us--N,ilink wet (cD.urgggggNULLIFY(vsize): :!swe makeeno us--N,itammunicmi, euwet (cD.urnldcldc Reindnv_,t+1.urnldcq .l_ illoc(outnxadj,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS graph ibbucturusantyyTNXADJ cbdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.urnldcldc Reind6*nv_,tl_3i-!!TOR.l_ebu=EQ. 2==2_(ldc Reind4*nv_,tl_3i-!!q .l_ illoc(outnadjncy,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS graph adjac=ncysantyyTNADJNCY cbdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.urnldcTOR.lasymm_(2t.ORt.OR CBOXldc Reindns---.Rt.OR CBOXq .l_ illoc(outopwgt,,iop ,ikin ------BturturTOR., & == _(2t.ORt.OR CBOXLOXLurni->0 Returnfatalt.ORt.OR CBBBBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dcccccccc,lmod_a IF''''''P'CHTIS ----e)-a wet (cDTTPWGU cbdivi kin ------BOXLIIIIIIIeturninnis(,,tio IIE2.l_3i2d_m E2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopFhbenCHTIS r poia Re ibbucturu3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Ret#if __MPIVECTOR3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopFoRelotrov_ct.-dlengthnfo-n_,iuoopn n ov_,idom.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[ts nm <sOR.l_3i-!!BOXLts n3 R .l_3 Return3i2dddddlLLelmetu((mlis-1)*ltsOR.+j)indt rn_,noi)omliseturn3i2dddd_3.ofixedSTT_3.ofi#fase.urn3i23E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopFoRememorW ibbidenfo-n_,iuoopn n ov_,iltsOR.l_3i-!!3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[ts n3 R .l_3 Return3i2ddddjs nm <sOR.l_3i-!!BOXLLLLLelmetu((mlis-1)*ltsOR.+j)indt rn_,noi)omliseturn3i2dddd_3.ofixedSTT_3.ofi#f__R.ll_3i-!!-E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---LocSt det ----e)-a wet (cDT_morCHTIS ifunetoed---BOX-3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.lasymm_(2t.ORt.OR CBOXts n .l_s---.Rt.OR CBOXXXXopwgt(i)indURAL( Retaroc_speto(i-1), Retd_dousntrle)s(,,tio IIE2.ts 3i2d_m E2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopConv_,tir poi_,igraph usntromETISl_3i!l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lous--Frotran nu sORntro(q (stntrofrom 1----BOXL,u typeind1.urnldcTOR.ignm,Q. 2==iparam_allognm,s_es,al_cuti.OR. cc,lmod_a IFignm,Q. 2==iparam_allognm,s_es,al_comm_(2t.ORt.OR CBOXt1o.=mETIS_riLiToNs,al(_s, nodes,2)nelmetu,etype,nu type,nxadj,cc,lmod_a IF''nadjncy)3turn3i2dddwgtflagind2 :!swet (cDT-a v_,ticesmm ly / tamput.swet (cDT-alyRt.OR CBOXts n .l_v_,tl_3i-!!!!!!!!vwgt(i)iind0turn3i2dddE2.ofixedSTTTE.ts n .l_3 Return3i2dddddljs nm <sOR.l_3i-!!BOXLLLLL ! tamputmi, euwet (cD.urnldc-!!!!!!!!vwgt(t rn_,noi)om))indvwgt(t rn_,noi)om))i+_EGE(ts a(i)----BOXLIIIIIIE2.ofixedSTTTE._3.ofixedSTT_nofTOR.ignm,Q. 2==iparam_allognm,s_dual_cuti.OR. cc,lmod_a IF IFignm,Q. 2==iparam_allognm,s_dual_camm_(2t.ORt.OR CBOXt1o.=mETIS_riLiToDual(_s, nodes,2)nelmetu,etype,nu type,nxadj,cc,lmod_a IF''nadjncy)turn3i2dddwgtflagind2 :!swet (cDT-a v_,ticesmm ly / tamput.swet (cDT-alyRt.OR CBOXts n .l_3 Return3i2dddddl! tamputmi, euwet (cD.urnldc-!!!!!vwgt(i)iindEGE(ts a(i)----BOXLIII_3.ofixedSTT_nofixedST',--urni->0 Returnfat2t.OR.l_3o)))R t1o.= dul_f---le #el--lu,,st,stk,ldopolsopmetis_s2p0 d,lmod_a IF'''Unknown!METIS ignm,stset scheme.bBailntroFut. cbdivi kin ------BOXLIIIeturninnis(,,tiot2xOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IniP----e)-a graph sORo-ns---. s---. usntromETISdT IflGNUminim.ORt.OR CIniedgecut obj_ctivol_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.ignm,Q. 2==iparam_allognm,s_es,al_cuti.OR. cc,lmod_a IFignm,Q. 2==iparam_allognm,s_dual_cut_(2t.ORt.OR CBOXTOR.ns---. .L ==8_(2t.ORt.OR CBOXLOX3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPturn3i2dddddl! -U/>ceivursivoihpgor-PPm sntcusandaroducesmbetn Re ----e)-as3i2d-l_BOXLOX3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPturn3i2dddddl_etis_. e)-a. Reind1-lous--fulr-set=idmu2)ixedSTTTE.lll_etis_. e)-a. 2eind3sf--ortOd heavy-edge matcntngixedSTTTE.lll_etis_. e)-a. 3eind1-loreg)-a growntropreseos2tstngixedSTTTE.lll_etis_. e)-a. 4eind1-lobin rmrW r--.h"tset ps aseos2tstngixedSTTTE.lll_etis_. e)-a. 5eind0-lono ug =GgtngixedSTTTE.lllTOR.lasymm_(2t.ORt.OR CBOXXXXXOXt1o.=mETIS_WP---GraphRivursivo(nv_,t,nxadj,nadjncy,vwgt,adjwgt,d,lmod_a IF''''''Plwgtflag,nu type,ns---.,opwgt,_etis_. e)-a.,edgecut,ns-------BOXLIIIIIIEnofixedST',--,,,,,,t1o.=mETIS_P---GraphRivursivo(nv_,t,nxadj,nadjncy,vwgt,adjwgt,d,lmod_a IF''''''Plwgtflag,nu type,ns---.,_etis_. e)-a.,edgecut,ns-------BOXLIIIIIIE2.l_3i2d_m q qEnofixedST',--,,,3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPturn3i2dddddl! -U/>cmultiM v_lihpgor-PPm sntcusandflf-aster3i2d-l_BOXLOX3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPturn3i2dddddl_etis_. e)-a. Reind1-lous--fulr-set=idmu2)ixedSTTTE.lll_etis_. e)-a. 2eind3sf--ortOd heavy-edge matcntngixedSTTTE.lll_etis_. e)-a. 3eind1-lo Ialized== r-PPMeivursivoibis_ctionixedSTTTE.lll_etis_. e)-a. 4eind3sf-minimnz t -n_ctiviEv--- dom insOR.l_3i-l_TE.lll_etis_. e)-a. 5eind0-lono ug =GgtngixedSTTTE.lllTOR.lasymm_(2t.ORt.OR CBOXXXXXOXt1o.=mETIS_WP---GraphKway(nv_,t,nxadj,nadjncy,vwgt,adjwgt,dcc,lmod_a IF''''''Plwgtflag,nu type,ns---.,opwgt,_etis_. e)-a.,edgecut,ns-------BOXLIIIIIIEnofixedST',--,,,,,,t1o.=mETIS_P---GraphKway(nv_,t,nxadj,nadjncy,vwgt,adjwgt,dcc,lmod_a IF''''''Plwgtflag,nu type,ns---.,_etis_. e)-a.,edgecut,ns-------BOXLIIIIIIE2.l_3i2d_m q qE2xOR.l_3i!l_ ld3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX3eEOutput diagns aicsl_3i!l_ ld3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX3eegdecut it NEopnu sOR--- r poiedges---iushasmbeen cut N,iNFlRt.OR CBOX3e ----e)-a.3turn3i2dddTOR.l_ebug =GT. == _(2t.ORt.OR -[IIWRITE(r ag,'(A,I6)') 'mETISdrrn OROd edgecut = ',edgecutl_3i-l_,,,,,,t1o.= dulte Re(ldoprankk,ldopolsopmetis_s2p0 r ag,n ------BOXLIIIt2xOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IniP----e)-a graph sORo-ns---. s---. usntromETISdT IflGNUminim.ORt.OR CInitammunicmi, euvolume obj_ctivol_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[_nofTOR.ignm,Q. 2==iparam_allognm,s_es,al_commi.OR. cc,lmod_a IF IFignm,Q. 2==iparam_allognm,s_dual_camm_(2t.ORt.OR CBOX3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX3eEFoRererouobj_ctivoomETISdm ly h t NEopmultiM v_lihpgor-PPmRt.OR CBOX3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a. Reind1-lous--fulr-set=idmu2)ixedSTTTE._etis_. e)-a. 2eind3sf--ortOd heavy-edge matcntngixedSTTTE._etis_. e)-a. 3eind1-lo Ialized== r-PPMeivursivoibis_ctionixedSTTTE._etis_. e)-a. 4eind3sf-minimnz t -n_ctiviEv--- dom insOR.l_3i-l_TE._etis_. e)-a. 5eind0-lono ug =GgtngixedSTTTE.TOR.lasymm_(2t.ORt.OR CBOXXXXt1o.=mETIS_WP---GraphVKway(nv_,t,nxadj,nadjncy,vwgt,vsize, cc,lmod_a IF IFlwgtflag,nu type,ns---.,opwgt,_etis_. e)-a.,volume,ns-------BOXLIIIEnofixedST',--,,,t1o.=mETIS_P---GraphVKway(nv_,t,nxadj,nadjncy,vwgt,vsize, cc,lmod_a IF IFlwgtflag,nu type,ns---.,_etis_. e)-a.,volume,ns-------BOXLIIIE2xOR.l_3i!l_ ld3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX3eEOutput diagns aicsl_3i!l_ ld3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX3eegdecut it NEopnu sOR--- r poiedges---iushasmbeen cut N,iNFlRt.OR CBOX3e ----e)-a.3turn3i2dddTOR.l_ebug =GT. == _(2t.ORt.OR -[IIWRITE(r ag,'(A,I6)') 'mETISdrrn OROd tammunicmi, euvolume = ',volume3i2d-l_,--,,,t1o.= dulte Re(ldoprankk,ldopolsopmetis_s2p0 r ag,n ------BOXLIIIt2xOR.OXLIIIEnofixedST',--urni->0 Returnfat2t.OR.l_3o)))R t1o.= dul_f---le #el--lu,,st,stk,ldopolsopmetis_s2p0 d,lmod_a IF'''Unknown!METIS ignm,stset scheme.bBailntroFut. cbdivi kin ------BOXLIIIeturninnis(,,tiot2xOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e e a ParalllPBOXRt.OR ClopFh Ifuubsoc(i) agnm,stset based_Fa graph decomps itionixedSTT3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[TOR.ignm,Q. 2==iparam_allognm,s_es,al_cuti.OR. cc,lmod_a IFignm,Q. 2==iparam_allognm,s_es,al_comm_(2t.ORt.OR CBOX! a v_,tex!it a r poies,2: takeea rajor-Py voRe-a suprntsrn_,n -----B!-MBOX! a ,n.[to ugm3 Elcali-. sess2ts.- affilimi, e---B!-MBOXldc Reindns---.Rt.OR CBOXq .l_ illoc(outvoRe,,iop ,ikin ------BturturTOR., & == _(2t.ORt.OR CBOXLOXLurni->0 Returnfatalt.ORt.OR CBBBBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dcccccccc,lmod_a IF''''''P'rajor-Py voRe-cin t VOTE cbdivi kin ------BOXLIIIIIIIeturninnis(,,tio IIE2.l_3i2d_m q qts n .l_3 Return3i2dddddlvoRe(1:ns---.eind0l_3i-!!BOXLdljs nm <sOR.l_3i-!!BOXLLLLL ! NEopiess2ts.-dreroues,2owaI ignm,sto _,il_3i-!!BOXLLLLL jjindns---(t rn_,noi)om)).urnldc-!!!!!!!!voRe(jj)indvoRe(jj)i+d1turn--- dctTEE2.ofixedSTTTE.lll! rajor-Py voRe-a suprntsrn_,n --drerousn.---B!-MMMMMMM_.lvoRe->0MAXLOCtvoRe).urnldc-!!!!!stroc(i)t_eindx.lvoRe(1)-1-MERCPI rankt tusrt ius0turn3i2dddE2.ofixedSTT_nofTOR.ignm,Q. 2==iparam_allognm,s_dual_cuti.OR. cc,lmod_a IF IFignm,Q. 2==iparam_allognm,s_dual_camm_(2t.ORt.OR CBOX! a graph v_,tex!it a sn.---B!-MMMMts n .l_3 Return3i2dddddlstroc(i)t_eindns---(i)-1-M-MERCPI rankt tusrt ius0turn3i2dddE2.ofixedSTT_nofixedST',--urni->0 Returnfat2t.OR.l_3o)))R t1o.= dul_f---le #el--lu,,st,stk,ldopolsopmetis_s2p0 d,lmod_a IF'''Unknown!METIS ignm,stset scheme.bBailntroFut. cbdivi kin ------BOXLIIIeturninnis(,,tiot2xOR.l_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[lopDeocn edNbiMETIS workememorWl_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[ R.lR Rrniparam_alldeoc_R.l_3iUSiTOR.lasymm_(2t.ORt.OR CBOXq .l_ illoc(outopwgt,,iop ,ikin ------BturturTOR., & == _(2t.ORt.OR CBOXLOXLurni->0 Returnfat2t.OR.l_3o)))R CBldt1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dcccccccc,lmod_a IF''''''P'CHTIS graph adjac=ncysantyyTTPWGU cbdivi kin ------BOXLIIIE2.l_3i2d_m E2xOl_R CBOXq .l_ illoc(outnadjncy,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfat2t.OR.l_3o)))R Ct1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS graph adjac=ncysantyyTNADJNCY cbdivi kin ------BOXLE2xOl_R CBOXq .l_ illoc(outnxadj,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfat2t.OR.l_3o)))R Ct1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS graph ibbucturusantyyTNXADJ cbdivi kin ------BOXLt2xOR.urnldcq .l_ illoc(outvsize,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfat2t.OR.l_3o)))R Ct1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS graph ibbucturusantyyTVSIZE cbdivi kin ------BOXLt2xOR.urnldcq .l_ illoc(outadjwgt,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfat2t.OR.l_3o)))R Ct1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS graph ibbucturusantyyTADJWGU cbdivi kin ------BOXLt2xOR.urnldcq .l_ illoc(outvwgt,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfat2t.OR.l_3o)))R Ct1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS v_,tex!wet (c)v_ct.-dVWGU cbdivi kin ------BOXLE2xOl_R CBOXq .l_ illoc(outns---,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfat2t.OR.l_3o)))R Ct1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS es,2o ----e)-a v_ct.-dNODETICU cbdivi kin ------BOXLE2xOl_R CBOXq .l_ illoc(outelmetu,,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfat2t.OR.l_3o)))R Ct1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''CHTIS r poia Re antyyTEnMNTS cbdivi kin ------BOXLE2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopDeocn edNbit rn_,inu sOR.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[ R.lR Rrniparam_alldeoc_R.l_3iUSiq .l_ illoc(outt rn_,noc,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfat2t.OR.l_3o)))R Ct1o.= dul_f---le #elilldeoc_R.k,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF'''''dom insORst rn_,inu sORssCORNERNO cbdivi kin ------BOXLE2xOl_3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---lopCouOR nu sOR--- domI ignm,sto _,illl---iess2ts.-3i2d-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2==iparrank)X,3=busORs--_3 RusORs+d1turn---_3.ofil_3i!l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---IniAcn edNbiNm onr=busORsantyyl_3i---3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return--- R.lR Rrniparam_alloc_fi ---turnldcldc Reind_3 RusOR3i2d-l_q .l_ illoc(out_lisu(i)c,iop ,ikin ------BturTOR., & == _(2t.ORt.OR CBOXLurni->0 Returnfatalt.ORt.OR CBBBBWRITE (r ag,'(A,I10,A)') 'ocn edNntro'i_s, u(i)c'onr=busORsfailwa'Rt.OR CBBBBt1o.= dul_f---le #elilloc,stk,ldopolsopmetis_s2p0 dccccccccccc,lmod_a IF''''''Pl''''''Pr ag,bdivi kin ------BOXLIIIIeturninnis(,,tiot2xOR.l_3i-l_3E &'xmaxEc_wri----------------- & box i dex e a ParalllPBOX Return---DeEFhbenusEv ne lll---dom.l_3i-l_3E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2==iparrank)X2t.ORt.OR CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_3i2d_m E2xofi#f__R.ll_3i-!!-E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---LocRrn ORl_3i-l_-E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX RetuinniuCONTINUE3i2d-l_q .l_3 Reolsk,ldopolsopmetis_s2p0 kin -OR.i2d-l_RETURORt.OR CCONTAINSl_3i!l_SUBROUTINEbBt------BOX--[XTOR.ndomI .L == _(2t.ORt.OR CBOXLOXLurni->0 Returnfat2t.OR.l_3o)))R CBldt1o.= dul_f---le #elillu,,st,stk,ldopolsopmetis_s2p0 d,lmod_a IF''''''''ndomI muORsbe > 0 cbdivi kin ------BOXLIIIIIIeturn8888---BOXLIIIE2.l_3i2d_m -[TOR.ignm,Q. ==iparam_allognm,s_es,al_cuti.AND.cd,lmod_a IF'''ignm,Q. ==iparam_allognm,s_es,al_commi.AND.c,lmod_a IF'''ignm,Q. ==iparam_allognm,s_dual_cuti i.AND.c,lmod_a IF'''ignm,Q. ==iparam_allognm,s_dual_comm_(2t.ORt.OR CBOXXOXLurni->0 Returnfat2t.OR.l_3o)))R CBldt1o.= dul_f---le #elillu,,st,stk,ldopolsopmetis_s2p0 d,lmod_a IF''''''''Invalid ignm,stset typeT_morCHTIS passed cbdivi kin ------BOXLIIIIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mlise .dT. _(2t.ORt.OR dctTE.llllurni->0 Returnfat2t.OR.l_3o)))R CBldcBldt1o.= dul_f---le #elillu,,st,stk,ldopolsopmetis_s2p0 d,lmod_a IF''''''''''''n(1.l_ muORsbe >nd0-_moruprndoms cbdivi kin ------BOXLIIIIIIIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_m -[ddlLTOR.ts a(ilise .dT. _(2t.ORt.OR dctTE.llllurni->0 Returnfat2t.OR.l_3o)))R CBldcBldt1o.= dul_f---le #elillu,,st,stk,ldopolsopmetis_s2p0 d,lmod_a IF''''''''''''ts as muORsbe >nd0-_moruprndoms cbdivi kin ------BOXLIIIIIIIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTINUE3i2d-l_E2._SUBROUTINEbBt---- aa KI.lr==a SINGLE_PRECIppm_metyperINTE2._SUBROUTINEbldopolsopmetis_s2p_p-ifa KI.lr==a DOUBLE_PRECIppm_metyperINTE2._SUBROUTINEbldopolsopmetis_s2p_d3if__R.llibldo-1.2/src/olso/ldopolsopmkfield.f000644 000765 000024 00000117647 11445666064 020243 0utusr00insrtusff000000 000000 perINT-E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---LocSubroutlcal :l_3o)))R CBldcBld ldopolsopmkfieldl_3i-!!-E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return---LoCopyrt (c)(c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), turn---LocccccccccccccccccccCe tOR-_morFluid Dynamics (DTU----BOXL!---BOXL!---BOXL! Teroufilw!it --- --dreeiP--upreliP----clw!riLi L,,f (PP(PPM).---BOXL!---BOXL! h!fnroufree software: you can reuribributusandand/oRemo_R.yl_3i---3sandunderdreeim3 Es --dreeiGNU Lesser Gen Rn_ P Rusc L,cen_R.l_3i!l_3 ig p RusOhed N,iNFl Free Software Fin rme)-a, eire r.l_3i!l_3 vers)-a 3 --dreeiL,cen_R,_FIT(at your . e)-a)dany cnn R.l_3i!l_3 vers)-a.---BOXL!---BOXL! h!fnrouuribributudm Iflhophope---iusandwhbenb--fulful,---BOXL! but WITHOUT ANY WARRANTY;rr-PP eveeveIflhopimpliwarrantynEv------BOXL! MERCHANTABILITY_FITFITNESS FOR A TICUICULAR PURPOSOleSeeiNFlRt.OR C!iGNU Gen Rn_ P Rusc L,cen_R.foRemoanydetails.---BOXL!---BOXL! You sP eld h veereceivto a copy --dreeiGNU Gen Rn_ P Rusc L,cen_Rl_3i!l_3 i IflGNUGNU Lesser Gen Rn_ P Rusc L,cen_R.alotror-PPMh!f.b ornot,---BOXL! seei.---BOXL!---BOXL! h--upreliP----clw!riLi L,,f (PP(PPM)---BOXL! ETH Zurichturn---LoCH-8092 Zurich, Sr-Pzerli Il_3i-!!-E &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Ret- aa KKI.lr==a SINGLE_PRECIppm_metyperINTSUBROUTINEbldopolsopmkfield_s(olsoid r ahid xp,Ns---,decomp,ignm, dccccc,lmod_a IF'''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmod_a IF'''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmod_a IF'''''''''''aYn #elillo,gcc &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisubsECIppm_metyn--,Nmmetisetyom,p n3 Rnimn_metiubRnimn_maxiubRddTOR.stroc(i)t_lisubsECnimn_utmi, nimn_m_fspat')libldo-1.2/src/olso/ldopolsopm_a IF'''''''''''aYn #elilld,gcc &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisubsECIppm_metyn--,Nmmetisetyom,p n3 Rnimn_metiubRnimn_maxiubRddTOR.stroc(i)t_lisubsECnimn_utmi, nimn_m_fspat')subsEC!!U LesseMOSAIC Llume = gcc logy dctle #eMOSAIC LOXL! axEe//www.gnu.!U Iveerecnimn_dgt,d,ds)-liwaerecnimnm_metyCBldwww.gnu.!U exnoi)rg2dddddlnr=burichBROUP--`nimn_metiub`,-`nimn_maxiub`,www.gnu.!U ` n3 `,-`nimn_utmi,`m_metyperpatvided. Leurn3i2,vwgt,aiedwww.gnu.!U _metyrnign-E &ps--e//www.gnu.!U F_SUBROUoT ANYam_allognm,s_s,l_f---INGss)-a L,cendwww.gnu.!U .ign_R. Ruscm.fulr-set=,-`d_m_f`i.AND.c,lmod.fulrwww.gnu.!U d_m_f am_allognm,s_n2t.OEme2t:www.gnu.!Uwww.gnu.!U *etis_s2p0 dcc_all_GraphVKway(nv_,t.!U *etis_s2p0 dcc_all_xpencily(nv_,t.!U *etis_s2p0 dcc_all_ypencily(nv_,t.!U *etis_s2p0 dcc_all_zpencily(nv_,t.!U *etis_s2p0 dcc_all_xy_slaby(nv_,t.!U *etis_s2p0 dcc_all_xz_slaby(nv_,t.!U *etis_s2p0 dcc_all_yz_slaby(nv_,t.!U *etis_s2p0 dcc_all_cf--esiaay(nv_,t.!U *etis_s2p0 dcc_all_cub &'www.gnu.!U *etis_s2p0 dcc_all_nimn_dgt,d,dd heavyINTEGER ,_INTENT(IN ) :: MME2.l_!!U Lee 2t.ORtflag,nu typ-to-dul_f---le Returnfa. OnORtf:www.gnu.!Uwww.gnu.!U *eypeT_morCHTIS passindarnalwww.gnu.!U *eypeT_morCHTIS pass,s_dual_cwww.gnu.!U *eypeT_morCHTIS pass,s_dualommwww.gnu.!U *eypeT_morCHTIS pass d,lmod_www.gnu.!U *eypeT_morCHTIS pass d,lmoommwww.gnu.!U *eypeT_morCHTIS passnimn_dgt,d,dd heavy.!Uwww.gnu.!U [NOTE]www.gnu.!U Lee la 2einnimsaerecexternal lIppm_melognm,s_esi---le #el--lu.!U BvailabGen fturn MMMM_allEc_w-E lognm,support.tis_s2p0 AL(MK), DIMEN/ldo(: ),_INTENT(IN ) :: BOX Retu#el--lu.!U Mcc,lumc(i)_etux i dexteudsP----cl,lmod_a Ii d d _,il(asymm.TRUTRUOl.!Uwww.gnu.!U FirND.e-le #eLIIItimtis_s2p0 AL(MK), DIMEN/ldo(: ),_INTENT(IN ) :: B--[,3=b#el--lu.!U Max,lumc(i)_etux i dexteudsP----cl,lmod_a Ii d d _,il(asymm.TRUTRUOl.!Uwww.gnu.!U FirND.e-le #eLIIItimtis_s2pINTEGER , DIMEN/ldo(: ),_INTENT(IN ) :: sORs-www.gnu.!U Bvwgt,adjcopeto(0fo R.l_3gcc logyRUTRUOl.!Uwww.gnu.!U FirND.e-le #e1-6 (eachsP----clf-cIs)tis_s2pINTEGER, DIMEN/ldo(: ),_INTENT(IN ) :: -t--BOXLtwww.gnu.!U Smod_(width)sP----cl-t--B layer.tis_s2p0 AL(MK), DIMEN/ldo(: ),_POINTER :: ndIpcccc,lm.!U Estimtl h-ndIpe Rocitl h---t rnddddlnr=b. EUT ANYnimnzdgt,d,dsway(nv_,t.!U inX3e oNYam_allognm,s_nreimltQ. 2oBOX3e. LeurndIpenm,srnddddlnr=www.gnu.!U ssegih vedwho.= opolso.tis_s2pINTEGER ,_INTENT(IN IF) :: maxEc_#el--lu.!U M & boxfiANY(nimnm_riLiToNs)0fo RdgtamltQc &(MMMdgt,d,dsb #el--lu.!U Nm)Q. 2e = gcc logy. axE<0,turn MRusc dctl adS.stroc ndarnale #el--lu.!U BudsMo.= dn_ Powest. 2exit.tis_s2pINTEGER , DIMEN/ldo(:,:), POINTER :: if-aoi)om))i+.!U S.bBaiecmsa(i,j[,k]) (firND.e-l)Rtflag,Qc &uprn (aphoicwww.gnu.!U e-l)R,ilglobi dc .tis_s2pINTEGER , DIMEN/ldo(:,:), POINTER :: n'xmaMME2.l_.!U NSl_3isOR.stroc(i)gri->POINTSR,ilx,y[,z] (firND.e-l)Rtflag,Qc www.gnu.!U ssrn (aphoic.e-l).)rn lu. rn_,n .)E.dTONrn_,nn3i2,vwgt,aied.tis_s2pINTEGER , DIMEN/ldo(: ),_INTENT(IN ) :: Nmwww.gnu.!U N,volume3i2d-l_POINTSR(c_w!cells)R,ileachsdirphVKwasP----cl-lobi www.gnu.!U clmod_a Ii d d _,il( lu.XOXt1.)E.dTONro.= ,vwgt,aied)tis_s2pINTEGER ,_INTENT( IF) :: etisMME2.l_.!U NSl_3isOf-atus,d0Qupwassuc_f--.tis_s2pINTEGER , OPF'ONAL ,_INTENT(IN ) :: tyomwww.gnu.!U N,volume3idddddlnr=burequeNDed. axEc_wegih v,me = ',volues,al_co!U bi)t_lis Rusc L,equi deige = ',volume3i3=busORs-b. Lessei---le #el--lu.!U re3sf-nt0fo Rdg_all_cf--esiaa Budspencil(0u sP eld_f---INGs.tis_s2p0 AL(MK), DIMEN/ldo(: ),_OPF'ONAL,_INTENT(IN) :: pndIpcccc,lm.!U Ac_wrik)X2u((ml d_m_f whic &tuecxfiAs---cl,lmod_a Ii www.gnu.!U clIpe tSeeiNFlRteigeachs_f---ING. axEtessei--abimnt.=a uAL.t rlIpeluwww.gnu.!U Rlsoh-fo Reachs_f---ING.tis_s2p0 AL(MK), DIMEN/ldo(:,:), OPF'ONAL,_POINTER :: nimn_metiub#el--lu.!U Mcm,lumc(i)exteusKwasP--t_li/www.gnu.!U Unm,QifRdg_allei--nimnmdgt,d,d/www.gnu.!Uwww.gnu.!U 1ND.e-l:lx,y,(z) +www.gnu.!U 2turnt_lIDtis_s2p0 AL(MK), DIMEN/ldo(:,:), OPF'ONAL,_POINTER :: nimn_maxiub#el--lu.!U Max,lumc(i)exteusKwasP--t_li/ www.gnu.!U Unm,QifRdg_allei--nimnmdgt,d,d/www.gnu.!Uwww.gnu.!U 1ND.e-l:lx,y,(z) +www.gnu.!U 2turnt_lIDtis_s2pINTEGER ,_OPF'ONAL :: nimn_'''''''n(1.l.!U Loti dR.stroc(i)t_liswasomlis=busORs-b.''n(1.l.!U morCHe2einnimh--- vedg_allei--nimnmdgt,d,dtis_s2pINTEGER, DIMEN/ldo(: ),_ OPF'ONAL,_POINTER :: nimn_m_fspat')om))i+.!U S,sto _,il.ig3=busORs-e Returnfa. e-l:lt_lID (-lobi TRUTRUOl.!U morCHe2einnimh-ifR0 Returnfati--nimnmdgt,d,d/wRetuinniuCONTINUE3i2d-l_q .l_3 Reolsk,ldopolsopmetis_s2p0 kin -OR.i2d-l_RETURORt.OR CCONTAILt.ORtv,aiabGe CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_INTEGER :: i,ul#elillj,2-fu3E boxMME2.l_INTEGER :: iiubRmetboxMME2.l_INTEGER, DIMEN/ldo(1) :: ldctis_s2pINTEGER, DIMEN/ldo(:,:), POINTER :: et)))R,ul_f_bccccc,lmINTEGER, DIMEN/ldo(: ),_POINTER :: 3o)))R,nchccccccccc0 AL(MK) :: t0,morea,sorea,lorea,lixedSrn--v,atis_s2p0 AL(MK), DIMEN/ldo(LIIItim) :: gsvecxmaxEdxMME2.l_LOGICAL , DIMEN/ldo(LIIItim) :: fixecccccccc0 AL(MK), DIMEN/ldo(3,2) :: '''Unknown!MET0 AL(MK), DIMEN/ldo(:,:), POINTER :: BOX boxrn--[boxMME2.l_CHARACTER(LEN=LIIIchar) :: maxgMME2.l_INTEGER :: =busORsfailwa'RINTEGER , DIMEN/ldo( :), POINTER :: ibusORsfailwa'R0 AL(MK), DIMEN/ldo(:,:), POINTER :: BOX iub#el--lu0 AL(MK), DIMEN/ldo(:,:), POINTER :: BE.lll_MME2.l_INTEGER :: =busscccc,lmINTEGER, DIMEN/ldo(: ),_POINTER :: m_fspat')om))i+TYPE(LIIIt_2''a) , POINTER :: 2''aetuinniuCONTINUE3i2d-l_q .l_3 Reolsk,ldopolsopmetis_s2p0 kin -OR.i2d-l_RETURORt.OR CCONTAIExternal CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMetuinniuCONTINUE3i2d-l_q .l_3 Reolsk,ldopolsopmetis_s2p0 kin -OR.i2d-l_RETURORt.OR CCONTAIIR CBOXX & box i dex e a ParalllPBOX Return--[ts n3 R .l_3 Return3i2ddddjs nm <sOR.l_3o.= dul_f-n!ME_E2._SUBROU #elildopolsopmet''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodlixedSIeturn8ixedSslibldo-1.2/src/olso/ldopolsopmlixedSIeturn8ixedSdsubsEC!= duc_w!ce2tsab eldtee uraia. 2eOXL! axEe//CBOXpophosowasos versXL!-subsEC!=enoug rnddddlnr=b.subsECn--v,aIetHUGE(n--v,a)--- & box i dex e a ParalllPBOX Return---rOR.p->0MINVAL.ipararoc_speto(0:l_ebnc(i)-1)----BOaUE3i2d- CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_IBOXLIIIt2xOR.OXLIIIEnofixedST',--uo.= d0 cbdivi kin lsopmetis_s2p0 dc & box i dex e a Para axEtee-nimnmdgt,d,d =busss.- veu=neero & lsop/olSENT(nimn_''''')-- ,2)irto graph busss= nimn_'''''''n(1.l &'xmaxEc_wri-busss= 0 box i dex e & lsop/olSENT(nimn_metiub)-- ,2)irto graph BOX iub => nimn_metiub#el--lu dex e & lsop/olSENT(nimn_maxiub)-- ,2)irto graph BE.lll_ => nimn_maxiub#el--lu dex e & lsop/olSENT(nimn_m_fspat')-- ,2)irto graph m_fspat' => nimn_m_fspat')om))i+ dex e & & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddmod_e)gri->turn)rge & & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 ReturnmaxEdx)c'onr(B--[,3=braphBOX Returap)== .05Nmraph ,MK) ReturnmaxEdx)2'onr(B--[,3=br2phBOX Retur2p)== .05Nmr2ph ,MK) Return,stk,ldopolsoXLII2-- ,2)irto graph BaxEdx)3'onr(B--[,3=br3phBOX Retur3p)== .05Nmr3ph ,MK) Return----------- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2df--esiaa ( --le )= d _,ilam_allognm,s_CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_IBOXdg_alleTT_nofixedST',-dg_all_cf--esiaa-- ,2)irto graph lsop/olSENT(tyom)-- ,2)irto graph -[E2.ofidg_all_cf--esiaa5Nm,BOX Return--[,3=budddTOR.stroc(i)t_lisubtis_s2p0 dcc_all_cub &',BOX iub,BE.lll_''''''metisetyomEc_wri----------------- & -[E2.ofidg_all_cf--esiaa5Nm,BOX Return--[,3=budddTOR.stroc(i)t_lisubtis_s2p0 dcc_all_cub &',BOX iub,BE.lll_''''''metisi2d_m_fspat', & aph lsopetis_s2pdivi kin ------BOXLIIIIIIIeturn8888---BOXLIIILIIIE2.l_3i2d -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU #elildodddTOR.stroc(i)t_lisub'df--esiaa am_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.ljjindns---(t rn_,non----------- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2RTIS_WP---GraphVKwa.2dfa L,_f---ING-g_R. a----- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Returndddlstroam_allTT_ntis_s2p0 dcc_all_GraphVKwaxmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mETIS_WP---GraphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--ubin,adjS-fuMME2.l_m_f2-fu3E p-ifa KI.l,I10,A)') 'o2-fu_Grstk,ldopolsstrod_m_f OXLIIIEnofixedST',--urni- '''Unkn(1,1:2'onr0.5_MK_m_fs _f---INGssXL!--50% '''UnkedST',--urni- '''Unkn(2,1:2'onr0.5_MKedST',--ur----------- & '''Unkn(1,1:2'onr0.0_MK_m_fs etis_2d-l_ dul'''UnkedST',--urni- '''Unkn(2,1:2'onr1.0_MKedST',--ur- & aphU geo-BOXs_. e)nol'''UnkedST',--ur'''Unkn(3,1:2'oKI.l,I0.0_MKedST',--urU BROUdirphVKwass)-a L,iP----e)-a grfixec(1:LIIItim) = .FA---.---e)-a grgsvec(1) ,igraph-t--BOXLt(1),MK)*maxEdx)c'---e)-a grgsvec(2) ,igraph-t--BOXLt(2),MK)*maxEdx)2jac=ncysantyyTT,ldopolsoXLII2-- ,2)irto graph grgsvec(3) ,igraph-t--BOXLt(3),MK)*maxEdx)3dopolsopmetis_s2p0 dccc h BOXboxl,I10,Anpat')om))i+ h lsop/olSENT(tyom)--BOXboxl,IMAX(10,Anpat'etyomEc_wri-----s builh-S-fuMME2.l_m_flsop/olSENT(pndIp)-- ,2)irto graph -[E2.ofiS-fu(ri2d_m_fsNm,BOX Return--[,3=bu2-fu3E aph dTOR.stroc(i)t_lisuBOXbox,.FA---.,gsvecxm--v,a,-1.0_MK,fixec,'''Unkn ParalllPBOXRt.OR CBOXBOX boxrn--[box box,nchccmetisepndIp)edST',--ur----------- & -[E2.ofiS-fu(ri2d_m_fsNm,BOX Return--[,3=bu2-fu3E aph dTOR.stroc(i)t_lisuBOXbox,.FA---.,gsvecxm--v,a,-1.0_MK,fixec,'''Unkn ParalllPBOXRt.OR CBOXBOX boxrn--[box box,nchccmetisdopolsopmetis_s2p0 dccc h lsopetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU #elildodddTOR.stroc(i)t_lisu'BraphVKwaaam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2Pencil(----- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 ReturndddlstroXdg_alleTT_nofixedST',-dg_all_xpencil)tusrt ius0turn3i2dddE2.oXdg_alleTT_nofixedST',-dg_all_ypencil)tusrt ius0turn3i2dddE2.oXdg_alleTT_nofixedST',-dg_all_zpencil)-- ,2)irto graphstroam_allTT_ntis_s2p0 dcc_all_zpencil IF'',ldopolms c3 kin ------BOXLIIIIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodddTOR.stroc(i)t_lisu'dfac_w!= dulzspencil(0,il2D!rldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!strod_m_f Os cb1 kin ------BOXLIIII & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3------BOXLIIII No _f---INGs: cf--esiaa pencillam_allognm,s_CBOXXXXOXLIIII & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3------BOXLIIIIlsop/olSENT(tyom)-- ,2)irto graph -[E2.ofidg_all_cf--esiaa5Nm,BOX Return--[,3=budddTOR.stroc(i)t_lisubbbbpat', BOX iub,BE.lll_''''''metisetyomEc_wri------ q qE2xOR.l_3i!l_ ld3E -[E2.ofidg_all_cf--esiaa5Nm,BOX Return--[,3=buddddddddddTOR.stroc(i)t_lisubbbbpat', BOX iub,BE.lll_''''''metisEc_wri------ q ''''ts as muORsbe >nd0etis_s2pdivi kin ------BOXLII IIIIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU #elildodd- aa KI.lr==a SINGLE_PRCf--esiaa pencillam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.l .ljjindns---(t rn_,non q ''''ts as muOR qE2xOR.l_3i!l_ ld & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3------BOXLIIII W-t r_f---INGs: pencillquadrraphVKwaaram_alE2._S-fuMME2.l_m_f_ ld & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3------BOXLIIII builh--uquadl2-fu,ubin,adj,il2d------BOXLIIII2-fu3E p-ifa KI.l,I10,A)') 'o2-fu_quadts as muORsbe >nd0,ldopolsoT_no2--2-fu3E p,I10,A)') 'o2-fu_Grstk,ldopolssbe >nd0d_m_f OXLIIIEnofixedST',--urni- '''Unkn(1,1:2'onr0.5_MK_m_fs _f---INGssXL!--50% '''UnkedST',--urni- '''Unkn(2,1:2'onr0.5_MKedST',--urrrrr qE2xOR.l_3i!l_ ld3E '''Unkn(1,1:2'onr0.0_MK_m_fs etis_2d-l_ dul'''UnkedST',--urni- '''Unkn(2,1:2'onr1.0_MKedST',--urrrrr ''''ts as muORsbe U geo-BOXs_. e)nol'''UnkedST',--ur '''Unkn(3,1:2'oKI.l,I0.0_MKedST',--ursbe U fixrn_,n --pReidirphVKwaedST',--ursbe fixec(1:LIIItim) = .FA---.---e)-a grrrrrIBOXdg_alleTT_nofixedST',-dg_all_xpencil)tfixec(1) = .TRU-.---e)-a grrrrrIBOXdg_alleTT_nofixedST',-dg_all_ypencil)tfixec(2) = .TRU-.---e)-a grrrrrIBOXdg_alleTT_nofixedST',-dg_all_zpencil)tfixec(3) = .TRU-.---e)-a grrrrrgsvec(1) ,igraph-t--BOXLt(1),MK)*maxEdx)c'---e)-a grrrrrgsvec(2) ,igraph-t--BOXLt(2),MK)*maxEdx)2jac=ncysantrrrrIBOX,ldopolsoXLII2-- ,2)irto graph grrrrrgsvec(3) ,igraph-t--BOXLt(3),MK)*maxEdx)3dopolsopmettttt ''''ts as muORsbe BOXboxl,I10,Anpat')om))i+ h rrrrIBOX/olSENT(tyom)--BOXboxl,IMAX(10,Anpat'etyomEc_wri---------s builh-S-fuMME2.l_m_frrrrIBOX/olSENT(pndIp)-- ,2)irto graph -[E2.ofiS-fu(ri2d_m_fsNm,BOX Return--[,3=bu2-fu3E aphbox i dex e a ParalllPBOXbox,.FA---.,gsvecxm--v,a,-1.0_MK,fixec,'''Unkn Pbox i dex e a ParalllPBOX boxrn--[box box,nchccmetisepndIp)edST',--urtttt qE2xOR.l_3i!l_ ld3E -[E2.ofiS-fu(ri2d_m_fsNm,BOX Return--[,3=bu2-fu3E aphbox i dex e a ParalllPBOXbox,.FA---.,gsvecxm--v,a,-1.0_MK,fixec,'''Unkn Pbox i dex e a ParalllPBOX boxrn--[box box,nchccmetisEc_wri------ q ''''ts as muORsbe >nd0etis_s2pdivi kin ------BOXLII IIIIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU #elildodd- aa KI.lr==a SINGLE_PRPencillam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.l .ljjindns---(t rn_,non q ''''ts as muORRRRRU cl1.urnl2-ful.ig''''''n(1.l_ md_m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, PralllPBOXRt.OR CBOXBE.lll_''''''metisEc_wri------ qlsopmetis_s2p0 dc & box i on----------- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2SlaR CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_dddlstroXdg_alleTT_nofixedST',-dg_all_xy_slab)tusrt ius0turn3i2dddE2.oXdg_alleTT_nofixedST',-dg_all_xz_slab)tusrt ius0turn3i2dddE2.oXdg_alleTT_nofixedST',-dg_all_yz_slab)-- ,2)irto graphstroam_allTT_ntis_s2p0 dcc_all_xz_slab IF'',ldopolms c3 kin ------BOXLIIIIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodddTOR.stroc(i)t_lisu'dfac_w!= dulx-z slab(0,il2D!rldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!stroam_allTT_ntis_s2p0 dcc_all_yz_slab IF'',ldopolms c3 kin ------BOXLIIIIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodddTOR.stroc(i)t_lisu'dfac_w!= duly-z slab(0,il2D!rldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!spat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mslab-GraphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--ubin,adjS-fuMME2.l_m_f2-fu3E p-ifa KI,I10,A)') 'o2-fu_Grstk,ldopolsstrod_m_f OXLIIIEnofixedST',--urni- '''Unkn(1,1:2'onr0.5_MK_m_fs _f---INGssXL!--50% '''UnkedST',--urni- '''Unkn(2,1:2'onr0.5_MKedST',--ur----------- & '''Unkn(1,1:2'onr0.0_MK_m_fs etis_2d-l_ dul'''UnkedST',--urni- '''Unkn(2,1:2'onr1.0_MKedST',--ur- & aphU geo-BOXs_. e)nol'''UnkedST',--ur'''Unkn(3,1:2'oKI.l,I0.0_MKedST',--urU fixrn_,n --pReidirphVKwa'''n(1.l_ mfixec(1:LIIItim) = .FA---.---e)-a grIBOXdg_alleTT_nofixedST',-dg_all_xy_slab)tofixedST',--urni- fixec(1) = .TRU-.---e)-a grrrrrfixec(2) = .TRU-.---e)-a gri)om)).urnldc-!stroam_alleTT_nofixedST',-dg_all_xz_slab)tofixedST',--urni- fixec(1) = .TRU-.---e)-a grrrrrfixec(3) = .TRU-.---e)-a gri)om)).urnldc-!stroam_alleTT_nofixedST',-dg_all_yz_slab)tofixedST',--urni- fixec(2) = .TRU-.---e)-a grrrrrfixec(3) = .TRU-.---e)-a gri)om)).urnldc-!gsvec(1) ,igraph-t--BOXLt(1),MK)*maxEdx)c'---e)-a grgsvec(2) ,igraph-t--BOXLt(2),MK)*maxEdx)2jac=ncysantyyTT,ldopolsoXLII2-- ,2)irto graph grgsvec(3) ,igraph-t--BOXLt(3),MK)*maxEdx)3dopolsopmetis_s2p0 dccc h BOXboxl,I10,Anpat')om))i+ h lsop/olSENT(tyom)--BOXboxl,IMAX(10,Anpat'etyomEc_wri-----s builh-S-fuMME2.l_m_flsop/olSENT(pndIp)-- ,2)irto graph -[E2.ofiS-fu(ri2d_m_fsNm,BOX Return--[,3=bu2-fu3E aph dTOR.stroc(i)t_lisuBOXbox,.FA---.,gsvecxm--v,a,-1.0_MK,fixec,'''Unkn ParalllPBOXRt.OR CBOXBOX boxrn--[box box,nchccmetisepndIp)edST',--ur----------- & -[E2.ofiS-fu(ri2d_m_fsNm,BOX Return--[,3=bu2-fu3E aph dTOR.stroc(i)t_lisuBOXbox,.FA---.,gsvecxm--v,a,-1.0_MK,fixec,'''Unkn ParalllPBOXRt.OR CBOXBOX boxrn--[box box,nchccmetisdopolsopmetis_s2p0 dccc h lsopetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU #elildodd-ddTOR.stroc(i)t_lisu'SlaRaam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Return3i2Cub &' CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_dddlstrodg_alleTT_nofixedST',-dg_all_cub &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mcub &' octaaphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--n octl2-ful,il3dts as muOR2-fu3E p-ifa KI,I10,A)') 'o2-fu_oct_wri2d_m_fs richBuquadl2-fuj,il2d------BOXL>nd0,ldopolsoT_no2--2-fu3E p,I10,A)') 'o2-fu_quadts as muORstrod_m_f OXLIIIEnofixedST',--urni- '''Unkn(1,1:2'onr0.5_MK_m_fs _f---INGssXL!--50% '''UnkedST',--urni- '''Unkn(2,1:2'onr0.5_MKedST',--ur----------- & '''Unkn(1,1:2'onr0.0_MK_m_fs etis_2d-l_ dul'''UnkedST',--urni- '''Unkn(2,1:2'onr1.0_MKedST',--ur- ri2d_m_fs geo-BOXs_. e)nol'''UnkedST',--ur'''Unkn(3,1:2'oKI.l,I0.0_MKedST',--urU BROUdirphVKwass)-a L,iP----e)-a grfixec(1:LIIItim) = .FA---.---e)-a grgsvec(1) ,igraph-t--BOXLt(1),MK)*maxEdx)c'---e)-a grgsvec(2) ,igraph-t--BOXLt(2),MK)*maxEdx)2jac=ncymuORstro,ldopolsoXLII2-- ,2)irto graph grgsvec(3) ,igraph-t--BOXLt(3),MK)*maxEdx)3dopolsopmetis_s2p0 dccc h BOXboxl,I10,Anpat')om))i+ h lsop/olSENT(tyom)--BOXboxl,IMAX(10,Anpat'etyomEc_wri-----s builh-S-fuMME2.l_m_flsop/olSENT(pndIp)-- ,2)irto graph -[E2.ofiS-fu(ri2d_m_fsNm,BOX Return--[,3=bu2-fu3E aph dTOR.stroc(i)t_c h BOXbox,.FA---.,gsvecxm--v,a,-1.0_MK,fixec,'''Unkn ParalllPBOXRt.OR CBOXBOX boxrn--[box box,nchccmetisepndIp)edST',--ur----------- & -[E2.ofiS-fu(ri2d_m_fsNm,BOX Return--[,3=bu2-fu3E aph dTOR.stroc(i)t_lisuBOXbox,.FA---.,gsvecxm--v,a,-1.0_MK,fixec,'''Unkn ParalllPBOXRt.OR CBOXBOX boxrn--[box box,nchccmetisdopolsopmetis_s2p0 dccc h lsopetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU #elildodd-ddTOR.stroc(i)t_lisu'Cub &'aam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Return3i2Uimnmpatvidesaam_allognm,s_: Dduc_wh)rge & & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Returndddlstrodg_alleTT_nofixedST',-dg_all_nimn_dgt,d,divi kin ------BO! NOP ----- &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& Return3i2U--[lopDam_allognm,s_n2t.Oe & & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Returndddlin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m kin -----BOXLII5urninU--[lopDam_allognm,s_n2t.O: ','g_allMME2.l_ -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodddddddddralllPBOXRt.OR B &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_es,al_ST'Unbs-buP----clnddddlnr=b a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisets n3 R .f &'xo)))R(BOX Return--[,3=busORs--sEv ne lll---dom.l_3i-l_3E BOX iub,BE.lll_''''''m3o)))R,io)))R,io,stk,ldopolsopmeti_s2pdivi kin ------BOi2d-l_3E &'xmaxEc_wri----------------- & box i'''_axEc_w,_E2._SUBROU #elildodd-d nu sOR--- domI ign2=_em_alST'Unbs-buaxEc_wrldopolsopmetis_s2p_p-ifa & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. D2t,d, axEe/Q. 2e = ''''''n(1.l.lllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lise---------c _oSTTTEs5Nm,BOX Return--[,3=buBOX iub,BE.lll_''''''mEv ne lll---dom.l_3i-l_3E ECIppm_metyn--,io,stk,ldopolsopmeti_s2pdivi kin ------Bi2d-l_3E &'xmaxEc_wri-------ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU #elildodddTOR.stroc(i)t_'D2t,dm_al axEe/QaxEc_wrldopolsopmetis_s2p_p-ifa & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_es,al_ndIpenm,eachsnddddlnr=www.gnu.lllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisestrodg_alleTt typeT_morCHTdg_all_nimn_dgt,d,divi kin ------BOIBOX/olSENT(pndIp)-- ,2)irto graph -[E2.ofiS''aY-_morri2d_m_fsBOX iub,BE.lll_''''''m3yn--, n3 R .Ev ne lll---dom.l_3i-l_3E EC-----Bi2d-epndIp)edST',--urt----------- & -[E2.ofiS''aY-_morri2d_m_fsBOX iub,BE.lll_''''''m3yn--, n3 Retisi2d_m_fspat', & aph lsopetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU #elildodddTOR.stroc(i)t_lisu'ddmod_m_alndIppmaxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,nox i dex e a Parx e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. A Retu---clnddddlnr=bl.ig3=busORs- CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_IBOOOOOF'''ignmT_nofixedST',-IS passindarnalxmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mindarnalR0 ReturnfatMOSAIC _wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f -[E2.ofiS''aYai.OR. cc0-_mom3o)))R,io)))R,'''''mm_fspat'-sEv ne lll---dom dul_f---R.l_3i-l_etisi2d_m_fspatlsopmeti_s2pdivi kin ------BOXLIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU #elildodd- aa KI.lr==a SI'A Retu)rg2dddbl.ig3=busORs- maxEc_wrldopolsopmetis_s2p_p-ifa KIjjindns---(t rn_,noi)om)).urnlddddlstro'''ignmT_nofixedST',-IS pass,s_dual_comsrt iu- aa KI.lr==a S'''ignmT_nofixedST',-IS pass,s_dualdt1o.srt ius0turn3i2dddE2.o'''ignmT_nofixedST',-IS pass d,lmod_amsrt iu-us0turn3i2dddE2.o'''ignmT_nofixedST',-IS pass d,lmoivi kin ------BOXLspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mu=nelognm,lIppm_me.igdoR0 Returnfa_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f -[E2.ofiS''aY(BOX iub,BE.lll_''o)))R,io)))R,-_mom3''''mEv ne lll---dom m_fspat'- dul_f---R.l_3i-l_etisi2d_m_fspatlsopmeti_s2pdivi kin ------BOXLIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU #elildodd aa KI.lr==a SI'A Retu)rg2dddbl.ig3=busORs- mram_allognm,axEc_wrldopolsopmdTOR.stroc(i)t_lisetis_s2p_p-ifa KIjjindns---(t rn_,noi)om)).urnldddlstro'''ignmT_nofixedST',-IS passnimn_dgt,d,divi kin ------BXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B_wri2d_m_fs mu=nnmdgt,d,d 0 Returnfa_wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-aB_wri2d_m_f ag,',I10,A)') 'ocn edNntro'i_s, , u(i)c'onr=bus'''n(1.l_ m -[E2.ofiBt1o.= dul_f---le #elilloc,stk,ldopo atlsopmetis_s2p0 dci kin ------BOXLIIIeturn8888---BOX''''Pr ag,bdivi - -[E2.ofix8888cBldtONTIex e a ParalllPB #elildodd- aa KI.lr==a SING'arrank)X2t.ORt.OR ISUBLISTrldopolsopmetis_s2p_p-ifa KI.l .ljjindns---(t rn_,no, & aph -[E2.ofiBt1o.=m_fspat'-le #elilloc,stk,ldopo atlsopmetis_s2p0 dci kin ------BOXLIIIeturn8888---BOX''''Pr ag,bdivi - -[E2.ofix8888cBldtONTIex e a ParalllPB #elildodd- aa KI.lr==a SING'll_ .ig3=busORs-e ReturnfaparranSUB2PROCrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-! dul_f--',I10,A)') 'o cnnt,d,dtis_s2p l_3i2d_m E2xofi#f__R. _a IF'''''''''''s2p_p-ifa KI.i2d_m_fspat', & box i dex e a ParalllPBOX OX Return---LocRrn ORl_3i-l_-E &'xma maxEc_wri2d_m_fspat', & box,noi)om)).urnldc-!OUTINEbdc-!O---------- spat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mu--[lopD Returnfapschem _wri2d_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fIIeturn8888---BOXLIIIE2.l_3i2d_m kin -----BOXLII5urninU--[lopD Returnfapschem : ', MME2.l_ -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodddralllPBOXRt.OR B &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_esricht2t,d, --clbvwgt,adjcopeto(0. 2e = ''''0. 2e = 2t.OR)t_lisei. 3=busORs-e(e = MOSAIC L Ruscex e tl e = Mequro a memory) a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lise -[E2.ofidgt,d,_ul_f_bc(BOX Return--[,3=busORs--BOX iub,BE.lll_'.Ev ne lll---dom.l_3i-l_3E EC--'''''mm_ff_bc,io,stk,ldopolsopmeti_s2pdivi kin ------Bi2d-l_3E &'xmaxEc_wri-------ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU #elildodddTOR.stroc(i)t_'f=_em_alricht2t,dm_al--clBCuP----clndd maxEc_w rldopolsopmdTOR.stroc(i)t_li2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. S IR.l_3gcc logyRUTRUOl.lllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lise -[E2.ofiS''aYa I,gcc &'xmOX Return--[,3=buBOX iub,BE.lll_'m_ff_bc,.Ev ne lll---dom.l_3i-l_3E m_fspat'-'''''msORs-- dul_f---R.l_3i-l_ne llv ne lll---dom.l_3i-l_3E 3o)))R,io)))R,io,stk,ldopolsopmeti_s2pdivi kin ------BOi2d-l_3E &'xmaxEc_wri----------------- & box i'''_axEc_w,_E2._SUBROU #elildodd-d nu sOR--- domI ignS oNs,gcc logy axEc_wrldopolsopmetis_s2p_p-ifa & box i dex e e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. S IRSTTTc &undarnale #el--lu.lllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lise---------c _a I,gcc &'xmaxEc_wtyn--,ippm_meNmmetistk,ldopolsopmeti_s2pdivi kin ------BOi2d-l_3E &'xmaxEc_wri----------------- & box i'''_axEc_w,_E2._SUBROU #elildodd-d nu sOR--- domI ignS oNs,c &'gt,dnm,s_naxEc_wrldopolsopmetis_s2p_p-ifa & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. Dump2oBOSOlegn_moicer Ge CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMM!,ldopolsop.ofidgxOR.OXLIIIEnofixe you can re kin -----BOXLII4.4urnin_m_f', box ie you can reOPEN(10,FILE=----)e you can re ul'''''''ORsfa you can reurii, wri2dul)e a you ! x-y&ps--a you can reur kin -10,'(2e12.4urniBOX iub(1,i)uBOX iub(2,i)a you can reur kin -10,'(2e12.4urniBE.lll_(1,i)uBOX iub(2,i)a you can reur kin -10,'(2e12.4urniBE.lll_(1,i)uBE.lll_(2,i)a you can reur kin -10,'(2e12.4urniBOX iub(1,i)uBE.lll_(2,i)a you can reur kin -10,'(2e12.4urniBOX iub(1,i)uBOX iub(2,i)a you can reur kin -10,'(eura urne a you ! y-z ps--a you can reurstro,ldopolsoXLII2-- ,2)i you can reurir kin -10,'(2e12.4urniBOX iub(2,i)uBOX iub(3,i)a you can reurur kin -10,'(2e12.4urniBE.lll_(2,i)uBOX iub(3,i)a you can reurur kin -10,'(2e12.4urniBE.lll_(2,i)uBE.lll_(3,i)a you can reurur kin -10,'(2e12.4urniBOX iub(2,i)uBE.lll_(3,i)a you can reurur kin -10,'(2e12.4urniBOX iub(2,i)uBOX iub(3,i)a you can reurur kin -10,'(eura urne u can reurur dex e!can reurur deINE!can reururCLOS -10ne u can ----------- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2RTl_3i----- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return ag,',I10,A)') 'odeccccccccc,lm -[E2.ofiBt1o.= o)))R,le #elilloc,stk,ldopo -[E2.ofiBt1o.=no)))R,le #elilloc,stk,ldopoIFoam_allTs2pfixedST',-dg_all_cf--esiaa IF''you can reururu sOR--- doam_allTs2pfixedST',-dg_all_nimn_dgt,d,divi kin ------B -[E2.ofiBt1o.=BOX boxrle #elilloc,stk,ldopo at -[E2.ofiBt1o.=B--[box le #elilloc,stk,ldopo at -[E2.ofiBt1o.= chccmle #elilloc,stk,ldopo--- x e & lsopmeti_s2pdivi kin ------BOi2d-l_3E &'xm''''Pr ag,bdivi --------- & box ideccccc,_E2._SUBROU #elildodd-d u sOR--- domI igndecccccam,s_naxEc_wrldopolsopmetis_s2p_p-i--------& CONTINUEk,ldopo -[E2sl_f-opE_E2._SUBROU #elildopolsopmet,ldopoRETURkin ----CONTAINSin ----SUBROUTINEd0 cbdivi kin lsop.NOT biR CBOXXz,divi kin ------BO-BOi2d-l_3E &'xmLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d10,AnoiR C,_E2._SUBROU #elildodddTOR.stroc(i)t_lisu'Ple-liUcomlis biR CRfirND!rldopolsopmetis_s2p_p-ifa KI.jjind8888-(t rn_,noi)om)).urnldc-! I''',ldopols2p_p-ifa KIIFoB--[,3=bri).LE.BOX Returi)-- ,2)irto graph IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-'B--[,3=bi.AND.c,lmoBOX Returldopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-! KIIFoNmri) Os cb2-- ,2)irto graph grrrIIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-'Nmi.AND.c,lmo1j,ilBROUdimeusKwaurldopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-! KIIFo-t--BOXLt(i) Os cbdivi kin ------BOXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-'-t--BOXLti.AND.c,lm= 0rldopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-!OUTINEbdc-!! KIIFrod_m_f OXLIII IF''yASSOCIATED(xp)-- ,2)irto graph IFoSIZErri22) Os cbd_m_fivi kin ------BOXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-'c_w!enoug r_f---INGssconta,d,d ,ilxp'mEv ne lll---dom.l_3i-dopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-! KIIFoSIZErri21) Os cbLIIItim) i kin ------BOXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-'le-em_aldimeusKwauP--xp too smBRO'mEv ne lll---dom.l_3i-dopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-! KIIFOX/olSENT(pndIp)-- ,2)irto graph IFoSIZErpndIp21) Os cbd_m_fivi kin ------BOXLII LII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-_3i-'pndIp doesuc_w!conta,dlndIppmas-e mlisf---INGs'mEv ne lll---dom.l_3i-_3i-dopolsopmsetis_s2p_p-ifa KIKI.IKI.jjind8888-(t rn_,no,noo,noi)om)).urnldc-! KIi)om)).urnldc-!OUTs2p0 dccc h lsop'''ignmT_nofixedST',-IS passnimn_dgt,d,divi kin ------B sestrodg_alleTt typeT_morCHTdg_all_nimn_dgt,d,divi kin ------BOOOOOOIIIIIeturn8888---warn)rge & 3i2d_i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-'dg_alle3E pislsmt .ignimn_dgt,d,d0fo R.li--a Returnfa'mEv ne lll---dom.l_3i-dopolsopmsetis_s2p_p-ifa KIKI.dg_alle=ypeT_morCHTdg_all_nimn_dgt,d,d-(t rn_,no,noi)om)).urnldc-! KIIFonimn_''''' .LE.bdivi kin ------BOXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-'nig''''mdgt,d,d ingnimn_dgt,d,d0a Returnfa'mEv ne lll---dom.l_3i-dopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-! KIIFOX.NOT ASSOCIATED(nimn_m_fspat')-- ,2)irto graph OXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d__ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-_'m_fspat'i.AND.c,lex e tl d0fo Ru=nnmdgt,d,d 0 Returnfa'mEv ne lll---dom.l_3i-_dopolsopmsetis_s2p_p-ifa KIKI.Ijjind8888-(t rn_,no,noi)om)).urnldc-! KI I'''nimn_'''''''n(1.lrnldc-! KIIFOX(nimn_m_fspat'ri).LTpdimsrt(nimn_m_fspat'ri).GE.bEv ne lll---dom.l_3i-_310,Anpat')-- ,2)irto graph OXLII II IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d__d__ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-____'inurni->3=busORs-etuecxfiAd ingm_fspat''mEv ne lll---dom.l_3i-_3i-dopolsopmsetis_s2p_p-ifa KIKI.IKI.jjind8888-(t rn_,no,noo,noi)om)).urnldc-! KIi)oINEbdc-!! KIi)om)).urnldc-!stroam_alleTT_nofixedST',-dg_all_nimn_dgt,d,divi kin ------B sestonimn_''''' .LE.bdivi kin ------BOXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-'nig''''mdgt,d,d ingnimn_dgt,d,d0am_allognm,s_'mEv ne lll---dom.l_3i-dopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-! KIIFOXX.NOT ASSOCIATED(nimn_metiub)-msrt Ev ne lll---dom.l_X.NOT ASSOCIATED(nimn_maxiub)--- ,2)irto graph OXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d__ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildodlv ne lll---dom.l_3i-_'BOX iub/BE.lll_ .AND.c,lex e tl d0fo Ru=nnmdgt.0am_all'mEv ne lll---dom.l_3i-_dopolsopmsetis_s2p_p-ifa KIKI.Ijjind8888-(t rn_,no,noi)om)).urnldc-! KIspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f i)-1)----BOthatEtee-nimnzdgt,d,ds''''madd updeige = whole_wri2d_m_f i)-1)clmod_a Ii d d _,i._wri2d_m_f i)-1)ONE COULDI MORE TESTS HER-.---e)-a grrrrspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f i)moreaonr(B--[,3=braphBOX Returap)*(B--[,3=br2phBOX Retur2p)in ------B sestoLIIItimTT_n3 kin ------BOXLIIIIi)moreaonrmorea*(B--[,3=br3phBOX Retur3p)-(t rn_,no,noi)om)).urnldc-! KIsoreaonr0.0_MKedST',--ursbe I'''nimn_'''''''n(1.lrnldc-! Kloreaonr(nimn_maxiub(1,i)-nimn_metiub(1,i))*dlv ne lll---dom.l_3i-____(nimn_maxiub(2,i)-nimn_metiub(2,i)_s2p_p-ifa KIKI.stoLIIItimTT_n3 kin ------BOXLIIIIi)! Kloreaonrloreao*_(nimn_maxiub(3,i)-nimn_metiub(3,i)_s2p_p-ifa KIKI.--- x e & nldc-! KIsoreaonrsoreao+rlorea).urnldc-! KIi)oINEbdc-!! KIKI.stoABS(sorea-morea)/morea.GE.lixedS kin ------BOXLIIIIi)spat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e------BOXLIIIIi)s MismBtch!------BOXLIIIIi)spat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e------BOXLIIIIi)IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli #elildod llv ne lll---dom.l_3i-l'faultylnddddlnr=bldgt,d,drldopolsopmetis_s2p_p-ifa KI.l jjind8888-(t rn_,no,noi)om)).urnldc-!OUTm)).8888i2d_tONTINUEk).urnldc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .).urnldc-! )----BOsORs-).urnldc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .).urnldc-! ) [TODO].!Uwww.gnuc-! ) .AND.0 cbd0fo Rclmoa bilL.t oflbvwgt,adjcopeto(www.gnuc-! ) richbvwgt,adjcopeto(0ac_wri.AND.XL!--od, orewww.gnuc-! ) dimeusKwa,sos o.= logsibleOthatEversdont want .iwww.gnuc-! ) XL!----clnamclbvwgt,adjcopeto(0. 2eveadjsidewww.gnuc-! ) P----clnddddlnr=www.gnuc-! ) WRusc L,accvwgl d0fo Rphosowasos --clntructur--ofwww.gnuc-! ) --cl#elile3E pislbettmnmdgt,d,dtis_s2pc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .).urnld--- SUBROUTINEd0 cbdi''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmod--- SUBROUTINEdn(1.l_(mli #elil_slibldo-1.2/src/olso/ldopolsopm--- SUBROUTINEdn(1.l_(mli #elil_dlibn(1-1.2/src/l_(m/n(1.l_(mli geo-.f000644 000765 000024 00000072374 11445666064 020104 0uppm_00dlnrppmff000000 000000 s2pc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .-(i)t_lisei. SubMOSAIC L : n(1.l_(mli geo- s2pc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .-(i)t_lisei.Copyr'Unk (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )t_lisei. Cendar0fo RFlui->Dynamics (DTU) a Para a Para a Para Tli--r Gepisl_m_f P----clPST'llellPST--ING M &LIppm_me(PPM). a Para a Para PPMpislf-fulsoftwore:Evers)-a redintribd_e)it ric/XL! o #el--lu.)it cnnrR.l_3germbuP----clGNU Les=nnmG ZurichP wrc&LIceuse )t_lisei.os p wrih d0by---clF-fulSoftwore Fvwgt,tKwa,sei--cr )t_lisei.veasKwau3uP----clLIceuse, s-e(atEverr opVKwaxmanyrlotcr )t_lisei.veasKwa. a Para a Para PPMpisldintribd_ed ing--clhopeOthatEit wRusc L,nimful, a Para bd_ WITHOUT ANY WARRANTY; wRthoBOSeveng--climpliAd wac_wn.t of a Para MERCHANTABILITY s-eFITNESS FOR A PARTICULAR PURPOSE. Se----c a Para GNU G ZurichP wrc&LIceuse OXL! IRdetails. a Para a Para YersshoBileXL!--receiv,d 0jcopyuP----clGNU G ZurichP wrc&LIceuse)t_lisei.o_es,al_GNU Les=nnmG ZurichP wrc&LIceuse along wRth PPM. axEnot, a Para se--. a Para a Para PST'llellPST--ING M &LIppm_me(PPM) a Para ETH Zurich)t_lisei.CH-8092 Zurich, SwRtzerlo_e s2pc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .-(i)i''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodSUBROUTINEdn(1.l_(mli geo-_s,gcc &'xpat', mOX Retur lv ne lll---dom.l_3i-ln--[,3=busORs---t--BOXLt, n3 Retis,nimn_metiubodd-d nu sOR--- domI igggggggnimn_maxiub'nimn_''''',nimn_m_fspat')libldo-1.2/src/olso/ldopolsopmSUBROUTINEdn(1.l_(mli geo-_d,gcc &'xpat', mOX Retur lv ne lll---dom.l_3i-ln--[,3=busORs---t--BOXLt, n3 Retis,nimn_metiubodd-d nu sOR--- domI igggggggnimn_maxiub'nimn_''''',nimn_m_fspat')subsEC!!a Tli--MOSAIC LisR.l_3gcc logy cream,s_nMOSAIC LOXL!pur-ly subsEC!!a geo-BOXs-bas,d0am_allognm,s_ur i.e. wRthoBOS_f---INGsso_eswRthoBOsubsEC!!a axEe//subsEC!!asubsEC!!a [NOTE]subsEC!!a InEtee-nimn_dgt,d,d0case, tee-nimnm.AND.m_fmit exint)rge & !a nddddlnr=blrichBuscP--`BOX iub`,-`BE.lll_`,-` n3 `lrich`nimn_'''''`subsEC!!a AND.c,lpatvided. Sub(0aces.- vemapp,d0ontig3=busORs- mo_e s2pc-! !a .l_3gcc logy isls Id.------ & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2ModuGe CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMBOXXXXUSEdn(1.moduGe_yn--MBOXXXXUSEdn(1.moduGe_sl_f-f--MBOXXXXUSEdn(1.moduGe_sl_f-opMBOXXXXUSEdn(1.moduGe_BOXLIIILIIIEUSEdn(1.moduGe_S''aY-_moIILIIIEUSEdn(1.moduGe_S''aYs IMBOXXXXUSEdn(1.moduGe_ygt,d,_ul_f_bcIILIIIEUSEdn(1.moduGe_S''aYsi.OR. ccIILIIIEUSEdn(1.moduGe_S''aYIILIIIEUSEdn(1.moduGe_f &'xo)))RIILIIIEUSEdn(1.moduGe_S-fuMME2.l_USEdn(1.moduGe_ccccccccc,lmUSEdn(1.moduGe_S''aYbox2TTEscccc,lmIMPLICIT NONEi''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodINTEGER, PARAMETER :: MKIeturn8k &'xam_alelibldo-1.2/src/olso/ldopolsopmINTEGER, PARAMETER :: MKIeturn8k &'xdo we----- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2Include CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMM#include ".ofidgt,d,.h"----- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2AdddlLTO CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_INTEGER ,_INTENT(INOUT) :: gcc &'subsEC!!a ID numbmnmident m_al--clgcc logy.subsEC!!a If gcc &'ibld00. 2inpBOSaRSTTTgcc logy islcreamed.o_es,al_STTTgcc &'subsEC!!a i--MTl_3ied.-cre, els----cl=_em tl d0gcclogy islreplacId.-subsEC!!asubsEC!!a [CAUTION]subsEC!!a *SEMANTICS CHANGED:* `gcc &'ib 0` isl*c_w!any I*lreimnv,d0fo R.le subsEC!!a oNs,gcc logy (nulllam_allognm,s_). "RoNs,gcc logies"0acesnwaedST',-!!a geo-BOXrc&o_esne,d0nig'Tl_p. Tle-nimnmcaa perfo mturn oNs,shifOsubsEC!!a -pReapeto(0wRthoBOSXL!oNs,gcRfirNDht2t,d, algcc logy.subsECINTEGER ,_INTENT(INOUT) :: 'g_allMME2.l_!!a Tle urni->am_allognm,s_n2t.O(0ace:-subsEC!!asubsEC!!a *ofixedST',-dg_all_GraphVKwasubsEC!!a *ofixedST',-dg_all_xpencilsubsEC!!a *ofixedST',-dg_all_ypencilsubsEC!!a *ofixedST',-dg_all_zpencilsubsEC!!a *ofixedST',-dg_all_xy_slabsubsEC!!a *ofixedST',-dg_all_xz_slabsubsEC!!a *ofixedST',-dg_all_yz_slabsubsEC!!a *ofixedST',-dg_all_cub &'subsEC!!a *ofixedST',-dg_all_nimn_dgt,d,d-(t rn_INTEGER ,_INTENT(IN ) :: MME2.l_!!a Tle 3E pP--nddddlnr=-to-3=busORs-e Returnfa. On pP-:-subsEC!!asubsEC!!a *oofixedST',-IS passindarnalsubsEC!!a *oofixedST',-IS pass,s_dual_csubsEC!!a *oofixedST',-IS pass,s_dualommsubsEC!!a *oofixedST',-IS pass d,lmod_subsEC!!a *oofixedST',-IS pass d,lmoommsubsEC!!a *oofixedST',-IS passnimn_dgt,d,d-(t rn_!!asubsEC!!a [NOTE]subsEC!!a Tle lattmnmnimsR.l_3exdarnalRlIppm_melognm,o_esis etissubsEC!!a availableOurn wasRclmoEc_w wRth lognm,support.subsECgraphMK), DIMEN/ldo(: ),_INTENT(IN ) :: mOX RetusubsEC!!a MinimumpP--Retui.ORtexda_esP----clclmod_a Ii d d _,i (do we)-(t rn_!!asubsEC!!a firNDh=_eexpisl_ldopols2p_p-igraphMK), DIMEN/ldo(: ),_INTENT(IN ) :: m--[,3=bsubsEC!!a MaximumpP--Retui.ORtexda_esP----clclmod_a Ii d d _,i (do we)-(t rn_!!asubsEC!!a firNDh=_eexpisl_ldopols2p_p-iINTEGER , DIMEN/ldo(: ),_INTENT(IN ) :: sORs-).urnld!!a Bvwgt,adjcopeto(0fo R.le gcc logyRUTRUOl.!asubsEC!!a firNDh=_eexpisl1-6 (eachsP----clfacIs)s2p_p-igraphMK) ,_INTENT(IN ) :: -t--BOXLtsubsEC!!a Tle OXLti(width)sP----cl-t--B layer.subsECgraphMK), DIMEN/ldo(: ),_POINTER :: -_moIILIIIE!!a Ent)mtl d0ndIp IS ocitl d0wRth nddddlnr=b. Ei--cr nimnzdgt,d,dswasubsEC!!a inpBOSor>am_allognm,s_nreiult0. 2oBOpBO. Tle-ndIpenm,asnddddlnr=www.gnu.!a i--givengby o.= voldlL.subsECgraphMK), DIMEN/ldo(:,:), OPTIONAL,_POINTER :: nimn_metiubsubsEC!!a MimimumpP--exda_sKwauP--TTEs.subsEC!!a Us,d0am_alleisRu=nnmdgt,d,d.-subsEC!!asubsEC!!a 1NDh=_eex: x,y,(z) +subsEC!!a 2nd:-TTEIDsubsECgraphMK), DIMEN/ldo(:,:), OPTIONAL,_POINTER :: nimn_maxiubsubsEC!!a MaximumpP--exda_sKwauP--TTEs.subsEC!!a Us,d0am_alleisRu=nnmdgt,d,d.-subsEC!!asubsEC!!a 1NDh=_eex: x,y,(z) +subsEC!!a 2nd:-TTEIDsubsECINTEGER ,_OPTIONAL :: nimn_'''''''n(1.l!!a Toti dnumbmnmP--TTEs0. 2 mlis=busORs- .subsEC!!a Us,d0w- veam_alleisRu=nnmdgt,d,d.-subsECINTEGER, DIMEN/ldo(: ),_ OPTIONAL,_POINTER :: nimn_m_fspat'subsEC!!a Sddddlnr= .ig3=busORs-e Returnfa.subsEC!!a Us,d0 ReturnfapisRu=nnmdgt,d,d.-subsEC!!asubsEC!!a =_eex: TTEID (global)subsECINTEGER ,_INTENT(_ OUT) :: etissubsEC!!a RTl_3isls atus,d00upongm_cusOR.-subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_3i2Lt.ORtvariable CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_INTEGER :: i,ju2-fu3E box, & INTEGER :: iopt-subsECINTEGER, DIMEN/ldo(:,:), POINTER :: et)))R,ul_f_bcIILIIIEINTEGER, DIMEN/ldo(1 ) :: Nmdummymle IILIIIEINTEGER, DIMEN/ldo(3,1) :: n,s_e CBOXXXXINTEGER, DIMEN/ldo(: ),_POINTER :: no)))R, chccs2p_p-igraphMK) :: t0,morea,sorea,lorea,lixedSsubsECgraphMK), DIMEN/ldo(LIIItim) :: gsvecsubsECgraphMK), DIMEN/ldo(1,1) :: xpdummysubsECLOGICAL , DIMEN/ldo(LIIItim) :: fixecsubsECgraphMK), DIMEN/ldo(3,2) :: '''UnknsubsECgraphMK), DIMEN/ldo(:,:), POINTER :: BOX boxrn--[boxsubsECCHARACTER(LEN=LIIIchar) :: ---- & INTEGER :: R.l_3i-l_n'''''''n(1.lINTEGER , DIMEN/ldo( :), POINTER :: wri2subsECgraphMK), DIMEN/ldo(:,:), POINTER :: BOX & graphMK), DIMEN/ldo(:,:), POINTER :: BE.lll_CBOXXXXINTEGER, DIMEN/ldo(: ),_POINTER :: m_fspat'subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_3i2Exdarnal CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMM----- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2In CBOXXsOe & & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return -[E2sl_f-artE_E2._SUBROU geo-dopolsopmet''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodlixedSIeturn8ixedSslibldo-1.2/src/olso/ldopolsopmlixedSIeturn8ixedSd----- & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2----BOadddlLTO CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_Isop.ofidgxOR.OXLIIIEnofixe -[E20 cbdivi kin lsopmetis_s2p0 dc & box i-------!,ldopolsopSUBROideTT_noIEnofixe you can rIIIIIeturn8888---warn)rge you can rts n3 R .l_3 Return3i2dddddlLTOR _E2._SUBROU geo-doan r&e you c- domI'SUBROidewasRreimt0fo Rnon-nulllam_allognm,s_rldopolsopmsetis_s you can rSUBROide= -1e u can ------Return3iIf tee-nimnmdgt,d,ds''''' .- veus----osOe & IFOX/olSENT(nimn_'''''--- ,2)irto graph ''''' = nimn_'''''''n(1.l----------- &''''' = 0 u can ------ReturnIFOX/olSENT(nimn_metiub)-- ,2)irto graph BOX => nimn_metiubsubsEC------ReturnIFOX/olSENT(nimn_maxiub)-- ,2)irto graph BE.lll_ => nimn_maxiubsubsEC------ReturnIFOX/olSENT(nimn_m_fspat')-- ,2)irto graph m_fspat'i=> nimn_m_fspat'subsEC------Return3O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_i. DummyOadddlLTO 0fo Rnon-exint)rgS_f---INGsso_es axEe/-Return3O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_xpdummy(1,1) nr0.0_MKedST',-Nmdummy(1) = 0 u can n,s_e (1:3,1) = 0 -Return3O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_i. Recursive GraphVKwasubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_stroam_allTT_ntis_s2p0 dcc_all_GraphVKwaivi kin ------BX builh--ubin,adjS-fuMME2.l_m_f2-fu3E p-ifa KI,I10,A)') 'o2-fu_Grstk,ldopols!0nig_f---INGsso_esnig axEtk,ldopols'''Unkn(1,1:2'o.l,I0.0_MKedST',--ur'''Unkn(2,1:2'o.l,I0.0_MKedST',--urU geo-BOXs_. e)uR CR'''UnkedST',--ur'''Unkn(3,1:2'oKInr1.0_MKedST',--urU BROUdirphVKwass)-a L,iP----e)-a grfixec(1:LIIItim) = .FA---.---e)-a grgsvec(1:LIIItim) = -t--BOXLtsubsEC--BX builh-S-fuMME2.l_m_f -[E2.ofiS-fu(ridummym0,NmdummymBOX Return--[,3=bu2-fu3E apu sOR--- domI i10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn BOX boxraralllPBOXRt.OR BE.lbox box,nchccmetisdopolsopmetlsopetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU geo-doandTOR.stroc(i)t_lisu'BraphVKwaaam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- &&3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_i. Pencil CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_dddlstrooam_alleTT_nofixedST',-dg_all_xpencil)o.srt ius0turn3i2dddE2.ooam_alleTT_nofixedST',-dg_all_ypencil)o.srt ius0turn3i2dddE2.ooam_alleTT_nofixedST',-dg_all_zpencil)-- ,2)irto graphstroam_allTT_ntis_s2p0 dcc_all_zpencil IF''LIIItimTLTn3 kin ------BOXLIIIIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doandTOR.stroc(i)t_lisu'Canc_w!make z pencilsj,il2D!rldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!UsORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_.l_i. penciluquadriaphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--uquadl2-fu,ubin,adj,il2d------BOXL2-fu3E p-ifa KI,I10,A)') 'o2-fu_quadts as muORstroLIIItimsoT_no2--2-fu3E p,I10,A)') 'o2-fu_Grstk,ldopols!0nig_f---INGsso_esnig axEtk,ldopols'''Unkn(1,1:2'o.l,I0.0_MKedST',--ur'''Unkn(2,1:2'o.l,I0.0_MKedST',--urU geo-BOXs_. e)uR CR'''UnkedST',--ur'''Unkn(3,1:2'oKInr1.0_MKedST',--urU fixl--clpatpmnmdirphVKwa---e)-a grfixec(1:LIIItim) = .FA---.---e)-a grstroam_alleTT_nofixedST',-dg_all_xpencil)ofixec(1) = .TRU-.---e)-a grstroam_alleTT_nofixedST',-dg_all_ypencil)ofixec(2) = .TRU-.---e)-a grstroam_alleTT_nofixedST',-dg_all_zpencil)ofixec(3) = .TRU-.---e)-a grgsvec(1:LIIItim) = -t--BOXLtsubsEC--BX builh-S-fuMME2.l_m_f -[E2.ofiS-fu(ridummym0,NmdummymBOX Return--[,3=bu2-fu3E apu sOR--- domI i10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn BOX boxraralllPBOXRt.OR BE.lbox box,nchccmetisdopolsopmetlsopetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU geo-doandTOR.stroc(i)t_lisu'Pencilaam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&MME2.l_i. SlaR CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_dddlstrooam_alleTT_nofixedST',-dg_all_xy_slab)o.srt ius0turn3i2dddE2.ooam_alleTT_nofixedST',-dg_all_xz_slab)o.srt ius0turn3i2dddE2.ooam_alleTT_nofixedST',-dg_all_yz_slab)-- ,2)irto graphstroam_allTT_ntis_s2p0 dcc_all_xz_slab IF''LIIItimTLTn3 kin ------BOXLIIIIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doandTOR.stroc(i)t_lisu'Canc_w!make x-z slabsj,il2D!rldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!stroam_allTT_ntis_s2p0 dcc_all_yz_slab IF''LIIItimTLTn3 kin ------BOXLIIIIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doandTOR.stroc(i)t_lisu'Canc_w!make y-z slabsj,il2D!rldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!UsORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_.l_i. slab GraphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--ubin,adjS-fuMME2.l_m_f2-fu3E p-ifa KI,I10,A)') 'o2-fu_Grstk,ldopols!0nig_f---INGsso_esnig axEtk,ldopols'''Unkn(1,1:2'o.l,I0.0_MKedST',--ur'''Unkn(2,1:2'o.l,I0.0_MKedST',--urU geo-BOXs_. e)uR CR'''UnkedST',--ur'''Unkn(3,1:2'oKInr1.0_MKedST',--urU fixl--clpatpmnmdirphVKwa'''n(1.l_ mfixec(1:LIIItim) = .FA---.---e)-a grstroam_alleTT_nofixedST',-dg_all_xy_slab)okin ------BOXLIIIIfixec(1) = .TRU-.---e)-a grIIIIfixec(2) = .TRU-.---e)-a gri)om)).urnldc-!stroam_alleTT_nofixedST',-dg_all_xz_slab)okin ------BOXLIIIIfixec(1) = .TRU-.---e)-a grIIIIfixec(3) = .TRU-.---e)-a gri)om)).urnldc-!stroam_alleTT_nofixedST',-dg_all_yz_slab)okin ------BOXLIIIIfixec(2) = .TRU-.---e)-a grIIIIfixec(3) = .TRU-.---e)-a gri)om)).urnldc-!gsvec(1:LIIItim) = -t--BOXLtsubsEC--BX builh-S-fuMME2.l_m_f -[E2.ofiS-fu(ridummym0,NmdummymBOX Return--[,3=bu2-fu3E apu sOR--- domI i10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn BOX boxraralllPBOXRt.OR BE.lbox box,nchccmetisdopolsopmetlsopetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU geo-doanandTOR.stroc(i)t_lisu'SlaRaam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&MME2.l_i. Cub &' CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_dddlstroam_alleTT_nofixedST',-dg_all_cub &' kin ------BOXLspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mcub &' octaaphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--n octl2-ful,il3d------BOXL2-fu3E p-ifa KI,I10,A)') 'o2-fu_octedST',--urU Bnh--uquadl2-fuj,il2d------BOXLstroLIIItimsoT_no2--2-fu3E p,I10,A)') 'o2-fu_quadts as muOR!0nig_f---INGsso_esnig axEtk,ldopols'''Unkn(1,1:2'o.l,I0.0_MKedST',--ur'''Unkn(2,1:2'o.l,I0.0_MKedST',--urU geo-BOXs_. e)uR CR'''UnkedST',--ur'''Unkn(3,1:2'oKInr1.0_MKedST',--urU BROUdirphVKwass)-a L,iP----e)-a grfixec(1:LIIItim) = .FA---.---e)-a grgsvec(1:LIIItim) = -t--BOXLtsubsEC--BX builh-S-fuMME2.l_m_f -[E2.ofiS-fu(ridummym0,NmdummymBOX Return--[,3=bu2-fu3E apu sOR--- domI i10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn BOX boxraralllPBOXRt.OR BE.lbox box,nchccmetisdopolsopmetlsopetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU geo-doandTOR.stroc(i)t_lisu'Cub &' am_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&MME2.l_i. Uimnmpatvides am_allognm,s_: DoEnoth)rge & &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&MME2.l_dddlstroam_alleTT_nofixedST',-dg_all_nimn_dgt,d,divi kin ------BXDoEnoth)rg. JAND.take --clntuff from tee-nimnmo_es,rAND.t-cl-uy.------ & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .l_3 Return3i2U--[lopDam_allognm,s_n2t.Oe & &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&MME2.l_dddlin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m kin -----BOXLII5urninU--[lopDam_allognm,s_n2t.O: ','g_allMME2.l_ -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doandralllPBOXRt.OR B &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_es,al_ST'Unbs- mP----clnddddlnr= CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ts n3 R .f &'xo)))R(BOX Return--[,3=busORs--llv ne lll---dom.l_3i-l_3E BOX iub,BE.lll_''''''m3o)))R,io)))R,io,stk,ldopolsopmeti_s2pdivi kin ------BOi2d-l_3E &'xmaxEc_wri----------------- & box i'''_axEc_w,_E2._SUBROU geo-doandTOR.stroc(i)t_l'F=_em_alST'Unbs- maxEc_wrldopolsopmetis_s2p_p-ifa & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_es,al_ndIpenm,eachsnddddlnr=www.gnu.lllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisestrodg_alleTt typeT_morCHTdg_all_nimn_dgt,d,divi kin ------BO -[E2.ofiS''aYndIp(ridummym0,BOX iub,BE.lll_''''''m3os_e oandTOR.stroc(i)t_l n3 Retis_s2p_p-ifa lsopetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU geo-doandTOR.stroc(i)t_lisu'Clmod_m_alndIppmaxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,nooi)om)).urnldddex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. A Retu---clnddddlnr= l.ig3=busORs- www.gnu.lllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisestrrrrrp'''ignmT_nofixedST',-IS passindarnal kin ------BOXLspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mindarnal ReturnfapMOSAIC ------BOXLspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f -[E2.ofiS''aYai.OR. cc(-_mom3o)))R,io)))R,'''''mm_fspat'-ndTOR.stroc(i)t_ dul_f---R.l_3i-l_etisi2d_m_fspatlsopmeti_s2pdivi kin ------BOXLIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU geo-doandTOR.stroc(i)t_li'A Retu)rg2dddbl.ig3=busORs- maxEc_wrldopolsopmetis_s2p_p-ifa KIjjindns---(t rn_,noi)om)).urnlddddlstro'''ignmT_nofixedST',-IS pass,s_dual_co.srt iundTOR.stroc(i)t_l'''ignmT_nofixedST',-IS pass,s_dualommo.srt ius0turn3i2dddE2.o'''ignmT_nofixedST',-IS pass d,lmod_o.srt iunus0turn3i2dddE2.o'''ignmT_nofixedST',-IS pass d,lmoomm kin ------BOXLspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mus--lognm,lIppm_me.igdo Returnfa------BOXLspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f -[E2.ofiS''aY(BOX iub,BE.lll_''o)))R,io)))R,-_mom3''''ms0turn3i2dddE2. m_fspat'- dul_f---R.l_3i-l_etisi2d_m_fspatlsopmeti_s2pdivi kin ------BOXLIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU geo-doandTOR.stroc(i)t_li'A Retu)rg2dddbl.ig3=busORs- mram_allognm,axEc_wrldopolsopmdTOR.stroc(i)t_lisuetis_s2p_p-ifa KIjjindns---(t rn_,noi)om)).urnlddddlstro'''ignmT_nofixedST',-IS passnimn_dgt,d,divi kin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mus-nmdgt,d,d 0 Returnfain ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f ag,',I10,A)') 'occccc.f ain ------Bldc(1) = n''''''n(1.l_ m -[E2.ofiBt1o.= .l_3i-l_le #elilloc,stk,ldopo atlsopmetis_s2p0 dci kin ------BOXLIIIeturn8888---BOX''''Pr ag,bdivi - -[E2.ofix8888cBldtONTIccccc,_E2._SUBROU geo-doandralllPBOXRt.OR t_li'3i-lenm,2t.OR2dddblISUBLISTrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-! .l_3i-l',I10,A)') 'o cnnt,d,dtis_s2pc-!n.l_3i-l',I0tis_s2pc-! I.l_''''''''''n(1.lrnldc-!lsops_fspat'riiub)nmT_nofixeox i kin ------BOXLIIIIi)! n.l_3i-l',In.l_3i-l'+ 1------BOXLIIIIi)! wri2dn.l_3i-l), ------BOXLIIIIi)om)).urnldc-!OUTINEbdc-!!dddlin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mu--[lopD Returnfapschem ------BOXLspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fIIeturn8888---BOXLIIIE2.l_3i2d_m kin -----BOXLII5urninU--[lopD Returnfapschem : ', MME2.l_ -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doandralllPBOXRt.OR B &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_esricht2t,de --clbvwgt,adjcopeto(0. 2--clndd m. 2--cl2t.OR)t_lisei. 3=busORs-e(--clMOSAIC LwRuscex e tl 2--clrequriAd memory) a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisets n3 R .ygt,d,_ul_f_bc(BOX Return--[,3=busORs--BOX iub,BE.lll_'llv ne lll---dom.l_3i-l_3E '''''mm_ff_bc,io,stk,ldopolsopmeti_s2pdivi kin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'f=_em_alricht2t,dm_al--clBCmP----clndd maxEc_w rldopolsopmdTOR.stroc(i)t_i2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. S IR.l_3gcc logy indarnale #el--lu.lllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lise---------S''aYs I,gcc &'xmOX Return--[,3=buBOX iub,BE.lll_'m_ff_bc,llv ne lll---dom.l_3i-l_3E m_fspat'-'''''msORs-- dul_f---R.l_3i-l_lv ne lll---dom.l_3i-l_3E 3o)))R,io)))R,io,stk,ldopolsopmeti_s2pdivi kin ------BOi2d-l_3E &'xmaxEc_wri----------------- & box i'''_axEc_w,_E2._SUBROU geo-doandTOR.stroc(i)t_l'S oNs,gcc logy axEc_wrldopolsopmetis_s2p_p-ifa & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. Dump2oBOSOlegn_moicer Ge CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMBOXXXXXIsop.ofidgxOR.OXLIIIEnofixe u ca kin -----BOXLII4.4urnin_m_f', box ie u caOPEN(10,FILE=----)e e u ca j'''''''ORsfa u ca--BOi, wri2dj)e e u ca ux-y&ps--a u ca kin -10,'(2e12.4urniBOX iub(1,i)uBOX iub(2,i)a u ca kin -10,'(2e12.4urniBE.lll_(1,i)uBOX iub(2,i)a u ca kin -10,'(2e12.4urniBE.lll_(1,i)uBE.lll_(2,i)a u ca kin -10,'(2e12.4urniBOX iub(1,i)uBE.lll_(2,i)a u ca kin -10,'(2e12.4urniBOX iub(1,i)uBOX iub(2,i)a u ca kin -10,'( ura urne e u ca uy-z ps--a u ca stroLIIItimsoG cb2-- ,2)irto gri. kin -10,'(2e12.4urniBOX iub(2,i)uBOX iub(3,i)arto gri. kin -10,'(2e12.4urniBE.lll_(2,i)uBOX iub(3,i)arto gri. kin -10,'(2e12.4urniBE.lll_(2,i)uBE.lll_(3,i)arto gri. kin -10,'(2e12.4urniBOX iub(2,i)uBE.lll_(3,i)arto gri. kin -10,'(2e12.4urniBOX iub(2,i)uBOX iub(3,i)arto gri. kin -10,'( ura urne ------Return3i -!OUTINEbdc-!! e u caCLOS -10ne dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. RTl_3i a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t& CONTINUEk,ldopo -[E2sl_f-opE_E2._SUBROU geo-dopolsopmet,ldopoRETURkin ----CONTAINSin ----SUBROUTINEd0 cbdivi kin lsop.NOT biR CBOXXz,divi kin ------BO-BOi2d-l_3E &'xmLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d10,AnoiR C,_E2._SUBROU geo-doandTOR.stroc(i)t_lisu'Ple-liUcomlis biR CRfirND!rldopolsopmetis_s2p_p-ifa KI.jjind8888-(t rn_,noi)om)).urnldc-!IFo-t--BOXLt Os cbd.0_MKivi kin ------BOXLIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli geo-doadTOR.stroc(i)t_lis'-t--BOXLti.AND.c,lm= 0.0rldopolsopmsetis_s2p_p-ifa KIjjind8888-(t rn_,noi)om)).urnldc-! I''',ldopols2p_p-ifa KIIFoB--[,3=bri).LE.BOX Returi)-- ,2)irto graph IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doadTOR.stroc(i)t_lis i-'B--[,3=bi.AND.c,lmoBOX Returldopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-!OUTINEbdc-!! KIIFro'''ignmT_nofixedST',-IS passnimn_dgt,d,divi kin ------B sestrodg_alleTt typeT_morCHTdg_all_nimn_dgt,d,divi kin ------BOOOOOOIIIIIeturn8888---warn)rge & 3i2d_i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doadTOR.stroc(i)t_lis i-'dg_alle3E pislsmt .ignimn_dgt,d,d0fo R.li--a Returnfa'mEv ne lll---dom.l_3i-dopolsopmsetis_s2p_p-ifa KIKI.dg_alle=ypeT_morCHTdg_all_nimn_dgt,d,d-(t rn_,no,noi)om)).urnldc-! KIIFonimn_''''' .LE.bdivi kin ------BOXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doadTOR.stroc(i)t_lis i-'nig''''mdgt,d,d ingnimn_dgt,d,d0a Returnfa'mEv ne lll---dom.l_3i-dopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-! KIIFOX.NOT ASSOCIATED(m_fspat')-- ,2)irto graph OXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d__ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doadTOR.stroc(i)t_lis i-_'m_fspat'i.AND.c,lex e tl d0fo Ru=nnmdgt,d,d 0 Returnfa'mEv ne lll---dom.l_3i-_dopolsopmsetis_s2p_p-ifa KIKI.Ijjind8888-(t rn_,no,noi)om)).urnldc-! KI I'''nimn_'''''''n(1.lrnldc-! KIIFOX(s_fspat'ri).LTpdimsrt(s_fspat'ri).GE.10,Anpat')-- ,2)irto graph OXLII II IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d__d__ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doadTOR.stroc(i)t_lis i-_ __'inurni->3=busORs-etuecxfiAd ingm_fspat''mEv ne lll---dom.l_3i-_3i-dopolsopmsetis_s2p_p-ifa KIKI.IKI.jjind8888-(t rn_,no,noo,noi)om)).urnldc-! KIi)oINEbdc-!! KIi)om)).urnldc-!stroam_alleTT_nofixedST',-dg_all_nimn_dgt,d,divi kin ------B sestOXX.NOT ASSOCIATED(BOX iub)-msrtX.NOT ASSOCIATED(BE.lll_)--- ,2)irto graph OXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d__ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doadTOR.stroc(i)t_lis i-_'BOX iub/BE.lll_ .AND.c,lex e tl d0fo Ru=nnmdgt.0am_all'mEv ne lll---dom.l_3i-_dopolsopmsetis_s2p_p-ifa KIKI.Ijjind8888-(t rn_,no,noi)om)).urnldc-! KIIFonimn_''''' .LE.bdivi kin ------BOXLII IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doadTOR.stroc(i)t_lis i-'nig''''mdgt,d,d ingnimn_dgt,d,d0am_allognm,s_'mEv ne lll---dom.l_3i-dopolsopmsetis_s2p_p-ifa KIKI.jjind8888-(t rn_,no,noi)om)).urnldc-! KIspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f rn3i2----BOthatEtee-nimnzdgt,d,ds''''madd updeige = whole_wri2d_m_f i)-1)clmod_a Ii d d _,i._wri2d_m_f i)-1)ONE COULDI MORE TESTS HER-.---e)-a grrrrspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f i)moreaonr(B--[,3=braphBOX Returap)*(B--[,3=br2phBOX Retur2p)in ------B sestoLIIItimTT_n3 kin ------BOXLIIIIi)moreaonrmorea*(B--[,3=br3phBOX Retur3p)-(t rn_,no,noi)om)).urnldc-! KIsoreaonr0.0_MKedST',--ursbe I'''nimn_'''''''n(1.lrnldc-! Kloreaonr(BE.lll_(1,i)-BOX iub(1,i))*(B--[iub(2,i)-BOX iub(2,i)_s2p_p-ifa KIKI.stoLIIItimTT_n3 kin ------BOXLIIIIi)! Kloreaonrloreao*_(BE.lll_(3,i)-BOX iub(3,i)_s2p_p-ifa KIKI.--- x e & nldc-! KIsoreaonrsoreao+rlorea).urnldc-! KIi)oINEbdc-!! KIKI.stoABS(sorea-morea)/morea.GE.lixedS kin ------BOXLIIIIi)spat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e------BOXLIIIIi)s MismBtch!------BOXLIIIIi)spat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e------BOXLIIIIi)IIIIIeturn8888---BOXLIIILIIIE2.l_3i2d_ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli geo-doa llv ne lll---dom.l_3i-l'faultylnddddlnr=bldgt,d,drldopolsopmetis_s2p_p-ifa KI.l jjind8888-(t rn_,no,noi)om))Ebdc-!! KIi)om)).urnldc-!alllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stro).urnldc-!a)----BOsORs-).urnldc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .).urnldc-! ) [TODO].!Uwww.gnuc-! ) .AND.0 cbd0fo Rclmoa bilL.t oflbvwgt,adjcopeto(www.gnuc-! ) richbvwgt,adjcopeto(0ac_wri.AND.XL!--od, orewww.gnuc-! ) dimeusKwa,sos o.= logsibleOthatEversdont want .iwww.gnuc-! ) XL!----clnamclbvwgt,adjcopeto(0. 2eveadjsidewww.gnuc-! ) P----clnddddlnr=www.gnuc-! ) WRusc L,accvwgl d0fo Rphosowasos --clntructur--ofwww.gnuc-! ) --cl#elile3E pislbettmnmdgt,d,dtis_s2pc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .).8888i2d_tONTINUEk-!! KIi)o SUBROUTINEd0 cbdi''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmod--- SUBROUTINEdn(1.l_(mli geo-_slibldo-1.2/src/olso/ldopolsopm--- SUBROUTINEdn(1.l_(mli geo-_dlibn(1-1.2/src/l_(m/n(1.l_(mli _m_f.f000644 000765 000024 00000113402 11445666064 020107 0uppm_00dlnrppmff000000 000000 s2pc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .-(i)t_lisei. SubMOSAIC L : n(1.l_(mli _m_f a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.Copyr'Unk (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )t_lisei. Cendar0fo RFlui->Dynamics (DTU) a Para a Para a Para Tli--r Gepisl_m_f P----clPST'llellPST--ING M &LIppm_me(PPM). a Para a Para PPMpislf-fulsoftwore:Evers)-a redintribd_e)it ric/XL! o #el--lu.)it cnnrR.l_3germbuP----clGNU Les=nnmG ZurichP wrc&LIceuse )t_lisei.os p wrih d0by---clF-fulSoftwore Fvwgt,tKwa,sei--cr )t_lisei.veasKwau3uP----clLIceuse, s-e(atEverr opVKwaxmanyrlotcr )t_lisei.veasKwa. a Para a Para PPMpisldintribd_ed ing--clhopeOthatEit wRusc L,nimful, a Para bd_ WITHOUT ANY WARRANTY; wRthoBOSeveng--climpliAd wac_wn.t of a Para MERCHANTABILITY s-eFITNESS FOR A PARTICULAR PURPOSE. Se----c a Para GNU G ZurichP wrc&LIceuse OXL! IRdetails. a Para a Para YersshoBileXL!--receiv,d 0jcopyuP----clGNU G ZurichP wrc&LIceuse)t_lisei.o_es,al_GNU Les=nnmG ZurichP wrc&LIceuse along wRth PPM. axEnot, a Para se--. a Para a Para PST'llellPST--ING M &LIppm_me(PPM) a Para ETH Zurich)t_lisei.CH-8092 Zurich, SwRtzerlo_e s2pc-! & box i dex e a ParalllPBOX Return---,3=busORs---t--BOXLts n3 R .-(i)i''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodSUBROUTINEdn(1.l_(mli _m_f_s,gcc &'xxp,N_m_fxpat', adTOR.stroc(i)t_lis i-_ BOX Return--[,3=busORs---t--BOXLt, n3 Retis,adTOR.stroc(i)t_lis i-_ p n3 Rnimn_metiubonimn_maxiub'nimn_''''',adTOR.stroc(i)t_lis i-_ nimn_m_fspat')libldo-1.2/src/olso/ldopolsopmSUBROUTINEdn(1.l_(mli _m_f_d,gcc &'xxp,N_m_fxpat', adTOR.stroc(i)t_lis i-_ BOX Return--[,3=busORs---t--BOXLt, n3 Retis,adTOR.stroc(i)t_lis i-_ p n3 Rnimn_metiubonimn_maxiub'nimn_''''',adTOR.stroc(i)t_lis i-_ nimn_m_fspat')subsEC!!a Tli--MOSAIC LisR.l_3gcc logy cream,s_nMOSAIC LOXL!pf---INGs.subsEC!!a It perfo msR.l_3am_allognm,s_nP----clRetui.ORtspacclbas,d0. 2--csubsEC!!a lognm,s_nP----clRf---INGs. Tle Oddddlnr=blr IRmapp,dsubsEC!!a ontig--clpatusORs- mo_eSaRST'Unbsrr 3i-l'islcreamed.-subsEC!!asubsEC!!a Tl_3am_allognm,s_nislbas,d0. 2--clRf---ING lognm,s_'''n(1.l!!a axEnimn_''''' i--greamerR.l-a zero,---clnddddlnr= CBOXXXXX!a describ d0by-`(BOX iub,BE.lll_)`-givengby tee-nimnmisRu=nd.''n(1.l!!a axEnimn_''''' i--NGssR.l-a od,,---clnddddlnr= lr I''n(1.l!!a fvwgtaram_al--clam_allognm,s_ndgt,d,dsby tee-opVKwaCBOXXXXX!a de_allT-subsEC!!asubsEC!!a axEnimn_''''' . 2inpBOSi--greamerR.l-a zero,---cl rnfain ----!!a o--nddddlnr= tig--clpatusORs- misRu=ndro'' describ din ----!!a ingm_fspat') s-eels-in ----!!a --cl rnfa o--nddddlnr= tig--clpatusORs- mwRusc LsubsEC!!a lerfo m d0gc 0 Retu.os beIp IS logsibleO-a equi dnumbmnin ----!!a o--Rf---INGs/gri->3oiTO 0o_eSat---clnamcltimLsubsEC!!a minimizm_alndmmunm tl,s_n(se--FarhatE1988, JCP 28(5),subsEC!!a lages: 579 -- 602)T-subsEC!!asubsEC!!a axEgcc &'iisR0SaRSTTTgcc logy islcreamed. Els----clgcc &'iisRu=ndrtssubsEC!!a e tl 2-a exint)rgSgcc logy o_eSoveawri_e)it-subsEC!!asubsEC!!a [NOTE]subsEC!!a InEtee-case o--nimnzdgt,d,ds'''',SaRloOSi-subsEC!!a currnfalys,rANDed. WIRmay want .i include fur--crsubsEC!!a c cbds ing--atEcase, e.g.OuatpmnmndIppmr IRpatvided.-subsEC!!asubsEC!!a .Refernfce-subsEC!!a *************************************************************subsEC!!a - C.-Farhat, A Simple o_eSEfficiant AutdlnoiceFEM Dm_alloger.subsEC!!a Clmod_e- mo_eSStructur-s. 1988. 28(5), 579-602.subsEC!!a ************************************************************* a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2ModuGe CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMBOXXXXUSEdn(1.moduGe_yn--MBOXXXXUSEdn(1.moduGe_sl_f-f--MBOXXXXUSEdn(1.moduGe_sl_f-opMBOXXXXUSEdn(1.moduGe_BOXLIIILIIIEUSEdn(1.moduGe_ccccccccc,lmUSEdn(1.moduGe_S''aY-_moIILIIIEUSEdn(1.moduGe_S''aYs IMBOXXXXUSEdn(1.moduGe_ygt,d,_ul_f_bcIILIIIEUSEdn(1.moduGe_S''aYIILIIIEUSEdn(1.moduGe_S''aYsi.OR. ccIILIIIEUSEdn(1.moduGe_f &'xo)))RIILIIIEUSEdn(1.moduGe_'g_allMME2.l_USEdn(1.moduGe_'g_allMME2.l_USEdn(1.moduGe_S-fuMME2.l_USEdn(1.moduGe_S''aYbox2TTEscccc,lmIMPLICIT NONEi''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodINTEGER, PARAMETER :: MKIeturn8k &'xam_alelibldo-1.2/src/olso/ldopolsopmINTEGER, PARAMETER :: MKIeturn8k &'xdo wea ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2Include CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMM#include ".ofidgt,d,.h"-'''dgtdo-MPIpolsopmINCLUDE 'mpif.h'a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2AdddlLTO CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_graphMK), DIMEN/ldo(:,:), POINTER :: xpsubsEC!!a Pognm,s_nP--Rf---INGspolsopmINTEGER ,_INTENT(IN ) :: N_m_f a Para!a NumbmnmP--Rf---INGspolsopmgraphMK) ,_INTENT(IN ) :: -t--BOXLtsubsEC!!a SXLti(width)sP----cl-t--B layer.subsECgraphMK), DIMEN/ldo(: ),_POINTER :: -_moIILIIIE!!a Ent)mtl d0ndIp IS ocitl d0wRth nddddlnr=b. Ei--cr nimnzdgt,d,dswasubsEC!!a inpBOSor>am_allognm,s_nreiult0. 2oBOpBO.polsopmINTEGER , DIMEN/ldo(: ),_INTENT(IN ) :: sORs-).urnld!!a Bvwgt,adjcopeto(0fo R.le gcc logyRUTRUOl.!asubsEC!!a NOTE: firNDh=_eexpisl1-6 (eachsP----clfacIs)s2p_p-iINTEGER ,_INTENT(IN ) :: MME2.l_!!a Tle 3E pP--nddddlnr=-to-3=busORs-e Returnfa. On pP-:-subsEC!!asubsEC!!a *oofixedST',-IS passindarnalsubsEC!!a *oofixedST',-IS pass,s_dual_csubsEC!!a *oofixedST',-IS pass,s_dualommsubsEC!!a *oofixedST',-IS pass d,lmod_subsEC!!a *oofixedST',-IS pass d,lmoommsubsEC!!a *oofixedST',-IS passnimn_dgt,d,d-(t rn_!!asubsEC!!a Tle lattmnmnimsR.l_3exdarnalRlIppm_melognm,o_esis etissubsEC!!a availableOurn wasRclmoEc_w wRth lognm,support.subsECINTEGER ,_INTENT(INOUT) :: gcc &'subsEC!!a IDdnumbmnmidentifym_al--clgcc logy.''n(1.l!!a axEgcc &'ibld0 . 2inpBOSaRSTTTgcc logy islcreamed.o_es,al_STTTgcc &'subsEC!!a i--MTl_3ied.-cre, els----cl=_em tl d0gcclogy islreplacId.-subsEC!!asubsEC!!a [CAUTION]subsEC!!a *SEMANTICSCCHANGED:* `gcc &'ib 0` isl*c_w!any I*Rreimrv,d0fo R.le )t_lisei!a oNs,gcc logy (nulllam_allognm,s_). "RoNs,gcc logies"mr IRnwasubsEC!!a geo-BOXiceo_esneeesnigsTl_p. Tle nimnm)-a lerfo murn oNs,shifain ----!!a olerapeto(0wRthoBOShavoNs,gc firNDht2t,de algcc logy.''n(1.lINTEGER ,_INTENT(INOUT) :: 'g_allMME2.l_!!a Tle 3E pP--am_allognm,s_. On pP-:-subsEC!!asubsEC!!a *oofixedST',-dg_all_pruied_cellsubsEC!!a *oofixedST',-dg_all_S-fuMME2.l_!!a *oofixedST',-dg_all_GraphVKwasubsEC!!a *oofixedST',-dg_all_xpencilsubsEC!!a *oofixedST',-dg_all_ypencilsubsEC!!a *oofixedST',-dg_all_zpencilsubsEC!!a *oofixedST',-dg_all_xy_slabsubsEC!!a *oofixedST',-dg_all_xz_slabsubsEC!!a *oofixedST',-dg_all_yz_slabsubsEC!!a *oofixedST',-dg_all_cub &'subsEC!!a *oofixedST',-dg_all_nimn_dgt,d,d-(t rn_!!asubsEC!!a [NOTE]subsEC!!a T-cre islnig IRfixedST',-dg_all_null.iIf tee-nimnmdoeslniain ----!!a want .i t2t,de algeo-BOXiceam_allognm,s_n2-cre islnigneeesfo Rpin ----!!a -cc logyRUTRUOlgraphMK), DIMEN/ldo(: ),_INTENT(IN ) :: BOX Retuin ----!!a MinimumpP--Retui.ORtexda_dsP----clclmod_a Ii d d _,i-(t rn_!!asubsEC!!a firNDh=_eexpisl,ldopols2p_p-igraphMK), DIMEN/ldo(: ),_INTENT(IN ) :: B--[,3=bin ----!!a MaximumpP--Retui.ORtexda_dsP----clclmod_a Ii d d _,i-(t rn_!!asubsEC!!a firNDh=_eexpisl,ldopols2p_p-igraphMK), DIMEN/ldo(: ),_OPTIONAL,_INTENT(IN) :: p-_moIILIIIE!!a Ac_wrinm,2ength N_m_f whichsnuecxfiAs---clclmod_a Ii subsEC!!a cdIp Ittribd_ed .i eachsRf---ING.iIf tei misRabsLTOR a)uR Cy cdIp i-subsEC!!a IS umeesfo ReachsRf---ING.''n(1.lINTEGER ,_OPTIONAL :: nimn_'''''''n(1.l!!a Toti dnumbmnmP--TTEs0. 2 mlis=busORs- .subsEC!!a Us,d0w- veam_alleisRu=nnmdgt,d,dMME2.l_graphMK), DIMEN/ldo(:,:), OPTIONAL,_POINTER :: nimn_metiubsubsEC!!a MimimumpP--exda_s,s_nP--TTEs.subsEC!!a Us,d0w- veam_alleisRu=nnmdgt,d,dMME2.l_!!a MME2.l_!!a 1NDh=_eex: x,y,(z) +MME2.l_!!a 2nd: TTEIDMME2.l_graphMK), DIMEN/ldo(:,:), OPTIONAL,_POINTER :: nimn_maxiubsubsEC!!a maximumpP--exda_s,s_nP--TTEssubsEC!!a Us,d0w- veam_alleisRu=nnmdgt,d,dMME2.l_!!aMME2.l_!!a 1NDh=_eex: x,y,(z) +MME2.l_!!a 2nd: TTEIDMME2.l_INTEGER, DIMEN/ldo(: ),_OPTIONAL,_POINTER :: nimn_s_fspat'subsEC!!a nddddlnr= tig3=busORs-e Returnfa. =_eex: TTEID (global)subsEC!!a Us,d0w- ve0 Retu.isRu=nnmdgt,d,dMME2.l_INTEGER ,_INTENT( OUT) :: etissubsEC!!a RTl_3is s_a us,d0 upongm_cusOR a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2Lt.OR2variable www.gnu.lllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisesNTEGER , DIMEN/ldo(:,:), POINTER :: io)))R,ul_f_bcIILIIIEINTEGER , DIMEN/ldo( :), POINTER :: 3o)))R, chccIILIIIEINTEGER , DIMEN/ldo(3,1) :: 3os_e IILIIIEINTEGER , DIMEN/ldo(3) :: ldcsubsECgraphMK), DIMEN/ldo(3,2) :: '''UnknsubsECgraphMK), DIMEN/ldo(,ldopol) :: gsvecMME2.l_graphMK), DIMEN/ldo(:,:), POINTER :: BOX boxrn--[boxsubsECLOGICAL , DIMEN/ldo(,ldopol) :: fixecMME2.l_INTEGER :: i,j,k,Ntot#elill2-fu3E MME2.l_INTEGER :: is_a m box, ------BgraphMK) :: t0,morea,sorea,lorea,lixedSMME2.l_INTEGER, DIMEN/ldo(,ldopol) :: Nls2p_p-iCHARACTER(,ldochar) :: BesgMME2.l_INTEGER :: ''''ORsfa INTEGER , DIMEN/ldo( :), POINTER :: i'''ORsfa INTEGER :: ''''nsubsECgraphMK), DIMEN/ldo(:,:), POINTER :: BOX ------BgraphMK), DIMEN/ldo(:,:), POINTER :: BE.lll_MME2.l_INTEGER, DIMEN/ldo(: ),_POINTER ::gm_fspat' a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2Exdarnal www.gnu.lllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i) a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2IR CBOXXsOe & &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&MME2.l_ -[E2sl_f-f--(_E2._SUBROU _m_f',polsopmet'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodlixedSIeturn8ixedSslibldo-1.2/src/olso/ldopolsopmlixedSIeturn8ixedSd a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2----BOadddlLTO CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_Isop.ofidgxOR.OXLIIIEnofixe l_ -[E20 cbdivi kin lsopmetis_s2p0 dc & kin i)om))E a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2----BO--atEweeXL!--Rf---INGspolsopmXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMM#i'dgtdo-MPIpolsopm -[E2MPI_AllReduce(N_m_fxNtot#1,MPI_INTEGER,MPI_SUM',ldooomm,io,stk,ldopolsopmetis_s2p0 dci kin ------BOIIeturn8888---BOX''''Pr ag,bdivi ts n3 R .l_3 Return3i2dmpi_axEc,_E2._SUBROU _m_f',ndndTOR.stroc(i)t_l'MPI_AllReduce axEc_wrldopolsopmetis_s2p_p-ifa & box i dex e,ldopolsopNtot.LTp1ivi kin ------BIIeturn8888---BOXno--IuMME2.l_m_f -[E2.ofil_3 Return3i2dddddlLTOR.n(1.l_(mli _m_f',ndndTOR.stroc(i)t_'Nig_f---INGssr= ddlnr=rldopolsopmetis_s2p_p-ifa & box i dex e#els-in ----lsopN_m_f.LTp1ivi kin ------BIIeturn8888---BOXno--IuMME2.l_m_f -[E2.ofil_3 Return3i2dddddlLTOR.n(1.l_(mli _m_f',ndndTOR.stroc(i)t_'Nig_f---ING0. 2--isl,=busORs-rldopolsopmetis_s2p_p-ifa & box i dex e#e a ParaiIf tee-nimnmdgt,d,ds''''' t- veus----os-in ----lsop/olSENT(nimn_'''''--- ,2)irto graph ''''' = nimn_'''''''n(1.ldddlin ------B ''''' = 0 box i dex e,ldopolsop/olSENT(nimn_metiub--- ,2)irto graph BOX => nimn_metiubsubsEC dex e,ldopolsop/olSENT(nimn_maxiub--- ,2)irto graph BE.lll_ => nimn_maxiubsubsEC dex e,ldopolsop/olSENT(nimn_m_fspat')-- ,2)irto graph m_fspat'i=> nimn_s_fspat'subsEC------Return3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMa Parai DummyOadddlLTOsfo Rnon-exint)rgS axEtk,ldop3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMa Par3os_e (1:3,1) = 0 -Return3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMa Parai Perfo m--clam_allognm,s_nram_alvariou' techniquGspolsopmXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-e,ldopolsopam_allTT_ntis_s2p0 dcc_all_pruied_cellivi kin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs ma pruied cellh=_eexpORsfa --BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_flsop/olSENT(p-_mo--- ,2)irto graph OXLts n3 R .yg_all_pruied_cell(xp,N_m_fxBOX Return--[,3=buadTOR.stroc(i)t_lis i-t--BOXLt,BOX iub,BE.lll_''''''metis,p-_mo-irto graphdddlin ------B OXLts n3 R .yg_all_pruied_cell(xp,N_m_fxBOX Return--[,3=buadTOR.stroc(i)t_lis i-t--BOXLt,BOX iub,BE.lll_''''''metis-irto graphd)om)).urnldc-!stroetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'Pruied cellham_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnlddddlstroam_allTT_ntis_s2p0 dcc_all_2-fuivi kin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs ma 2-fulyn--lntructur-;eus--amdgtault BE.varianc pP--10 pcfa --BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_flsop/olSENT(p-_mo--- ,2)irto graph OXLts n3 R .yg_all_S-fu(ri,N_m_fxBOX Return--[,3=bu-t--BOXLt,llv ne lll---dom.l_3i-l_3E 0.1_MK,BOX iub,BE.lll_''''''metis,p-_mo-irto graphdddlin ------B OXLts n3 R .yg_all_S-fu(ri,N_m_fxBOX Return--[,3=bu-t--BOXLt,llv ne lll---dom.l_3i-l_3E 0.1_MK,BOX iub,BE.lll_''''''metis-irto graphd)om)).urnldc-!stroetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'T-fulym_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnlddddlstroam_allTT_ntis_s2p0 dcc_all_GraphVKwaivi kin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mrecursi!--GraphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--ubin,adjS-fuMME2.l_m_f2-fu3E p-ifa KI,I10,A)') 'o2-fu_Grstk,ldopols!0_f---INGssXL!--uR CR'''UnkedST',--ur'''Unkn(1,1) nr1.0_MKedST',--ur'''Unkn(1,2'oKInr1.0_MKedST',--urU axEeo_esgeo-BOXs_r IRnwtjcosider,dtis_s2pc-!'''Unkn(2,1'o.l,I0.0_MKedST',--ur'''Unkn(2,2'o.l,I0.0_MKedST',--ur'''Unkn(3,1'o.l,I0.0_MKedST',--ur'''Unkn(3,2'o.l,I0.0_MKedST',--urU BROUdirphVKwass)-a L,iP----e)-a grfixec(1:LIIItim) = .FA---.---e)-a grgsvec(1:LIIItim) = -t--BOXLtsubsEC--BX nig axEtk,ldopolsNm(1:LIIItim) o.l,I0_wri2d_m_fs builh-S-fuMME2.l_m_flsop/olSENT(p-_mo--- ,2)irto graph OXLts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E appppppralllPBOXRt.OR 10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn pppralllPBOXRt.OR BOX boxrn--[box box,nchccmetis,p-_mo-irto graphdddlin ------B OXLts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E appppppralllPBOXRt.OR 10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn pppralllPBOXRt.OR BOX boxrn--[box box,nchccmetis-irto graphd)om)).urnldc-!stroetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'BraphVKwaaam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- dddlstrooam_alleTT_nofixedST',-dg_all_xpencil)o.srt ius0turn3i2dddE2.ooam_alleTT_nofixedST',-dg_all_ypencil)o.srt ius0turn3i2dddE2.ooam_alleTT_nofixedST',-dg_all_zpencil--- ,2)irto graphstrooam_allTT_ntis_s2p0 dcc_all_zpencil-.AND.oLIIItimTLT.3--- ,2)irto graph OXLIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli _m_f',nddTOR.stroc(i)t_lisu'Cannwtjmake z pencilssr= 2D!rldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!Upat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs penciluquadrraphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--uquadl2-fu,ubin,adj,il2d------BOXL2-fu3E p-ifa KI,I10,A)') 'o2-fu_quadts as muORstroLIIItimsoT_no2--2-fu3E p,I10,A)') 'o2-fu_Grstk,ldopols!0_f---INGssXL!--uR CR'''UnkedST',--ur'''Unkn(1,1:2'oKInr1.0_MKedST',--urU axEeo_esgeo-BOXs_r IRnwtjcosider,dtis_s2pc-!'''Unkn(2,1:2'o.l,I0.0_MKedST',--ur'''Unkn(3,1:2'o.l,I0.0_MKedST',--urU fixg--clpatpmnmdirphVKwa---e)-a grfixec(1:LIIItim) = .FA---.---e)-a grstroam_alleTT_nofixedST',-dg_all_xpencil)ofixec(1) = .TRU-.---e)-a grstroam_alleTT_nofixedST',-dg_all_ypencil)ofixec(2) = .TRU-.---e)-a grstroam_alleTT_nofixedST',-dg_all_zpencil)ofixec(3) = .TRU-.---e)-a grgsvec(1:LIIItim) = -t--BOXLtsubsEC--BX nig axEtk,ldopolsNm(1:LIIItim) o.l,I0_wri2d_m_fs builh-S-fuMME2.l_m_flsop/olSENT(p-_mo--- ,2)irto graph OXLts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E appppppralllPBOXRt.OR 10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn pppralllPBOXRt.OR BOX boxrn--[box box,nchccmetis,p-_mo-irto graphdddlin ------B OXLts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E appppppralllPBOXRt.OR 10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn pppralllPBOXRt.OR BOX boxrn--[box box,nchccmetis-irto graphd)om)).urnldc-!stroetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'Penciluam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- dddlstrooam_alleTT_nofixedST',-dg_all_xy_slab)o.srt ius0turn3i2dddE2.ooam_alleTT_nofixedST',-dg_all_xz_slab)o.srt ius0turn3i2dddE2.ooam_alleTT_nofixedST',-dg_all_yz_slab)-- ,2)irto graphstrooam_allTT_ntis_s2p0 dcc_all_xz_slab).AND.oLIIItimTLT.3--- ,2)irto graph OXLIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli _m_f',nddTOR.stroc(i)t_lisu'Cannwtjmake x-z slabssr= 2D!rldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!strooam_allTT_ntis_s2p0 dcc_all_yz_slab).AND.oLIIItimTLT.3--- ,2)irto graph OXLIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli _m_f',nddTOR.stroc(i)t_lisu'Cannwtjmake y-z slabssr= 2D!rldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!Upat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs slab-GraphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--ubin,adjS-fuMME2.l_m_f2-fu3E p-ifa KI,I10,A)') 'o2-fu_Grstk,ldopols!0_f---INGssXL!--uR CR'''UnkedST',--ur'''Unkn(1,1:2'oKInr1.0_MKedST',--urU axEeo_esgeo-BOXs_r IRnwtjcosider,dtis_s2pc-!'''Unkn(2,1:2'o.l,I0.0_MKedST',--ur'''Unkn(3,1:2'o.l,I0.0_MKedST',--urU fixg--clpatpmnmdirphVKwa'''n(1.l_ mfixec(1:LIIItim) = .FA---.---e)-a grstroam_alleTT_nofixedST',-dg_all_xy_slab)o ,2)irto graph OXLfixec(1) = .TRU-.---e)-a gr OXLfixec(2) = .TRU-.---e)-a gri)om)).urnldc-!stroam_alleTT_nofixedST',-dg_all_xz_slab)o ,2)irto graph OXLfixec(1) = .TRU-.---e)-a gr OXLfixec(3) = .TRU-.---e)-a gri)om)).urnldc-!stroam_alleTT_nofixedST',-dg_all_yz_slab)o ,2)irto graph OXLfixec(2) = .TRU-.---e)-a gr OXLfixec(3) = .TRU-.---e)-a gri)om)).urnldc-!gsvec(1:LIIItim) = -t--BOXLtsubsEC--BX nig axEtk,ldopolsNm(1:LIIItim) o.l,I0_wri2d_m_fs builh-S-fuMME2.l_m_flsop/olSENT(p-_mo--- ,2)irto graph OXLts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E appppppralllPBOXRt.OR 10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn pppralllPBOXRt.OR BOX boxrn--[box box,nchccmetis,p-_mo-irto graphdddlin ------B OXLts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E appppppralllPBOXRt.OR 10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn pppralllPBOXRt.OR BOX boxrn--[box box,nchccmetis-irto graphd)om)).urnldc-!stroetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'Slab-am_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- dddEstroam_alleTT_nofixedST',-dg_all_cub &'ivi kin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mcub &' octaaphVKwaaram_al--cl- ZurichE2._S-fuMME2.l_m_fspat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs builh--n octl2-fulr= 3d------BOXL2-fu3E p-ifa KI,I10,A)') 'o2-fu_ocfa --BXmo_eSaRquadl2-fuj,il2d------BOXLstroLIIItimsoT_no2--2-fu3E p,I10,A)') 'o2-fu_quadts as muOR!0_f---INGssXL!--uR CR'''UnkedST',--ur'''Unkn(1,1:2'oKInr1.0_MKedST',--urU axEeo_esgeo-BOXs_r IRnwtjcosider,dtis_s2pc-!'''Unkn(2,1:2'o.l,I0.0_MKedST',--ur'''Unkn(3,1:2'o.l,I0.0_MKedST',--urU BROUdirphVKwass)-a L,iP----e)-a grfixec(1:LIIItim) = .FA---.---e)-a grgsvec(1:LIIItim) = -t--BOXLtsubsEC--BX nig axEtk,ldopolsNm(1:LIIItim) o.l,I0_wri2d_m_fs builh-S-fuMME2.l_m_flsop/olSENT(p-_mo--- ,2)irto graph OXLts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E appppppralllPBOXRt.OR 10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn pppralllPBOXRt.OR BOX boxrn--[box box,nchccmetis,p-_mo-irto graphdddlin ------B OXLts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E appppppralllPBOXRt.OR 10,Anpat',.FA---.,gsvecx0.1_MK,-1.0_MK,fixec,'''Unkn pppralllPBOXRt.OR BOX boxrn--[box box,nchccmetis-irto graphd)om)).urnldc-!stroetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'Cub &' am_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,noi)om)).urnldc-!U cl1.urnl2-ful.ig''''''n(1.l_ m -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.OR BE.lll_''''''metisi2d_m_fspatlsopmetis_s2p0 dc & ----- dddEstroam_alleTT_nofixedST',-dg_all_nimn_dgt,d,divi kin ------B! DoRnwthm_a. JAND.take --clntuff from tee-nimnmo_es,rAND.t-cl-uy.''n(1.ldddlin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mu--[lopDam_allognm,s_in ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fIIeturn8888---BOXLIIIE2.l_3i2d_m kin -----BOXLII5urninU--[lopDam_allognm,s_n2E : ','g_allMME2.l_ -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli _m_f',ndndTOR.stroc(i)t_B &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_es,al_ST'Unbsrrs tig--clnddddlnr= CBOXXXXXlllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisets n3 R .f &'xo)))R(BOX Return--[,3=busORs--llv ne lll---dom.l_3i-l_3E BOX iub,BE.lll_''''''m3o)))R,io)))R,io,stk,ldopolsopmeti_s2pdivi kin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'F=_em_alST'UnbsrsnaxEc_wrldopolsopmetis_s2p_p-ifa & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_es,al_cdIp P--eachsnddddlnr=www.gnuXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_Isopdg_alleTt typeT_morCHTdg_all_nimn_dgt,d,divi kin ------BOlsop/olSENT(p-_mo--- ,2)irto graph OXLm -[E2.ofiS''aY-_mo(ri,N_m_fxBOX iub,BE.lll_''''''m3os_e , n3 RdralllPBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBetis,p-_mo-irto graphhdddlin ------B OXLm -[E2.ofiS''aY-_mo(ri,N_m_fxBOX iub,BE.lll_''''''m3os_e , n3 RdralllPBll---dom.l_3ietis_s2p_p-ifa i)om)).urnldc-! stroetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'Clmod_m_alndIppmaxEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,nooi)om)).urnldd)om))E.urnld3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMa Parai D2t,de .l_3gcc logy (0 Retu.--clnddddlnr= ltig3=busORs-s)s2p_p-iXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-e,ldopolsoooooo'''ignmT_nofixedST',-IS passindarnalivi kin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mindarnale ReturnfanMOSAIC in ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f -[E2.ofiS''aYsi.OR. cc( n3 R3o)))R,io)))R,'''''ms_fspat'RdralllPBll---dom.i'''ORsf'''''ORsfmetisi2d_m_fspatlsopmeti_s2pdivi kin ------BOXLIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'A RetuoNs,s''' tig3=busORs-smaxEc_wrldopolsopmetis_s2p_p-ifa KIjjindns---(t rn_,noi)om)) dddEstro'''ignmT_nofixedST',-IS pass,s_dual_co.srt iu ndralllPBOXRt.OR '''ignmT_nofixedST',-IS pass,s_dualommo.srt iu nralllPBOXRt.OR '''ignmT_nofixedST',-IS pass d,lmod_o.srt iu ndnralllPBOXRt.OR '''ignmT_nofixedST',-IS pass d,lmoommivi kin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mus--lognm,lIppm_me.i toe Returnfain ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f -[E2.ofiS''aY(BOX iub,BE.lll_R3o)))R,io)))R, n3 R3''''mralllPBOXRt.OR s_fspat'Ri'''ORsf'''''ORsfmetisi2d_m_fspatlsopmeti_s2pdivi kin ------BOXLIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'A RetuoNs,s''' tig3=busORs-smram_allognm,axEc_wrldopolsopmralllPBOXRt.OR etis_s2p_p-ifa KIjjindns---(t rn_,noi)om))rn_,noiddEstro'''ignmT_nofixedST',-IS passnimn_dgt,d,divi kin ------B!pat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mus-nmdgt,d,d 0 Returnfain ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fIoptp,I10,A)') 'occccc.f ain ------Bldc(1) = '''''''n(1.lrnl -[E2.oficcccc(i'''ORsf'ldc#elilletisi2d_m_fspatlsopmetis_s2p0 dci kin ------BOXLIIeturn8888---BOX''''Pr ag,bdivi -[ts n3 R .l_3 Return3i2ddcccc,_E2._SUBROU _m_f',ndndTOR.stroc(i)t_l '3i-l'nm,2t.OR2s''' ISUBLISTrldopolsopmetis_s2p_p-ifa KIjjindns---(t rn_,noi)om))-----BOXLI'''ORsfp,I10,A)') 'o cnnt,d,dtis_s2pc-!n'''ORsfp,I0_wri2d_m_f I'''=1,'''''''n(1.lrnldc-!lsops_fspat'riiub-nmT_nofixerank kin ------BOXLIIIIi)! n'''ORsfp,In'''ORsfp+ 1------BOXLIIIIi)!I'''ORsf(n'''ORsf) = ------Brn_,noi)om))-----BOXLi)oINEbdc-!!dddlin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mu--[lopD Returnfanschem in ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fIIeturn8888---BOXLIIIE2.l_3i2d_m kin -----BOXLII5urninU--[lopD Returnfanschem : ', MME2.l_ -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli _m_f',ndndTOR.stroc(i)t_B &'xmaxEc_wri2d_m_fspat', & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_eso_esd2t,de .l_3bvwgt,adjcopeto(0. 2--clndd(0. 2--cl2t.OR)t_lisei. 3=busORs-e(--clMOSAIC LwRuscex e tl 2--clrequriAd memory)s2p_p-iXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisets n3 R .ygt,d,_ul_f_bc(BOX Return--[,3=busORs--BOX iub,BE.lll_Rllv ne lll---dom.l_3i-l_3E '''''ms_ff_bc,io,stk,ldopolsopmeti_s2pdivi kin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'f=_em_alo_esd2t,dm_al--clBC P----clnddsmaxEc_w rldopolsopmetis_s2p_p-ifa & box i dex e a Para!I'''ORsf:t_Bylnddsm(fixerank a Para!s_fspat': lnddsm-> 3=busORs-emap a Para!Io)))R: ST'UnbsrsnP--BROUTTEssubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. S Is,al_currnfa gcc logyRUTRUOl.O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lise -[E2.ofiS''aYs I,gcc &'xBOX Return--[,3=buBOX iub,BE.lll_Rs_ff_bc,llv ne lll---dom.l_3i-l_3E s_fspat'R'''''msORs--i'''ORsf'''''ORsfmne llv ne lll---dom.l_3i-l_3E 3o)))R,io)))R,io,stk,ldopolsopmeti_s2pdivi kin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'S oNs,gcc logy axEc_wrldopolsopmetis_s2p_p-ifa & box i dex e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. RTl_3isubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t& _tONTINUEk-!! KI -[E2sl_f-op(_E2._SUBROU _m_f',polsopmet-!! KIRETURkin ----tONTAINSin ----SUBROUTINEd0 cbdip_p-ifa lsop.NOTnofixeiR CBOXXz,divi kin ------BO---BIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTI10,AnoiR C,_E2._SUBROU _m_f',ndralllPBOXRt.OR 'Please c mlisixeiR C firND!rldopolsopmetis_s2p_p-ifa KI. jjind8888-(t rn_,no, dex ei.teIp fixeiR CBOXXz,d).urnldc-! stroN_m_f TLT.0 dci kin ------BOXL-BIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nddTOR.stroc(i)t_lisu 'N_m_f .AND.nwtjbl_STgativerldopolsopmetis_s2p_p-ifa KI. jjind8888-(t rn_,no, dex ei.teIp N_m_f >I0_wri2d_m_f lsop.NOTnASSOCIATED(xp--- ,2)irto graph OXLmIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nddTOR.stroc(i)t_lisu 'xp islnitcex e tl drldopolsopmetis_s2p_p-ifa KI.ljjind8888-(t rn_,no, dex ei.teIp xp IS ocitl d_wri2d_m_f ls(SIZE(ri,1) TLT.0LIIItim) ,2)irto graph OXLmIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR 'leaem_aldimeusKwanP--xp too smex 'mralllPBOXRt.OR dopolsopm etis_s2p_p-ifa KI.ljjind8888-(t rn_,no, dex ei.teIp xp enoughldims_wri2d_m_f ls(SIZE(ri,2) TLT.0N_m_f) ,2)irto graph OXLmIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR 'nitcenoughl_f---INGsscota,d,d in xp'mralllPBOXRt.OR dopolsopm etis_s2p_p-ifa KI.ljjind8888-(t rn_,no, dex ei.teIp xp >= N_m_f a Parm_f ls ,gcc &'_s2pdivi kin ------BOXLI!stroogcc &'_GT.SIZE(n(1.l_(m))o.srt lv ne lll---dom.l_3i-l_3ogcc &'_LTp1i kin ------BOXLIIIIi)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 'gcc &'ii_eexm_alOSAside2.ofiS''a'mralllPBOXRt.OR t.OR dopolsopm etis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)).urnldc-! i)om)).urnldc-! stro/olSENT(p-_mo--- ,2)irto graph OXLmstroSIZE(n n3 R1) TLT.0N_m_f) ,2)irto graph OXLmIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nnralllPBOXRt.OR .OR 'n n3 .AND.b pP--at least,2ength N_m_frldopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp f n3 >= N_m_f a Parm_f i)om)ei.teIp f n3 preimnf a Parm_f ls ,-t--BOXLtTLT.0.0_MK-- ,2)irto graph OXLmIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nddTOR.stroc(i)t_lisu '-t--BOXLt .AND.nwtjbl_STgativerldopolsopmetis_s2p_p-ifa KI. jjind8888-(t rn_,no, dex ei.teIp -t--BOXLtsubsEC--Bf I=1,LIIItimirto graph OXLmstron--[,3=b(i) TLE. BOX Retu(i) kin ------BOXLIIIIi)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nnralllPBOXRt.OR .OR 'n--[,3=b .AND.b p> BOX Returldopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp vOXXdldims_wri2d_m_f i)oINrU fo ReachsdimeusKwa a Parm_f ls ,'''ignmT_nofixedST',-IS passnimn_dgt,d,divi kin ------Brm_f ls ,dg_alleTt typeT_morCHTdg_all_nimn_dgt,d,divi kin ------BOIIIi)! mIIeturn8888---BOXwardm_a2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 'dg_alle3E pset .i nimn_dgt,d,d0fo R.lisRa Returnfa'mralllPBOXRt.OR t.OR dopolsopm etis_s2p_p-ifa KI.llllldg_alle=ypeT_morCHTdg_all_nimn_dgt,d,d-(t rn_,no,,,,,i)om)ei.teIp dg_allenimn_dgt,d,d-(t rn_,no,,,,,lsop.NOTn/olSENT(nimn_'''''--- ,2)irto graph IIIi)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(li _m_f',nralllPBOXRt.OR .OR 'nimn_''''' .AND.b ppatvidedO Returnfanus-nmdgt,d,d',nralllPBOXRt.OR .OR dopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp nimn_''''' preimnf a Parm_f ,,,,lsopnimn_''''' TLE. divi kin ------BOXLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 'nimn_''''' ha' tigb p> 0rldopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp nimn_''''' >I0_wri2d_m_f ,,,,lsop.NOTn/olSENT(nimn_metiub--- ,2)irto graph XLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(li _m_f',nralllPBOXRt.OR .OR 'BOX .AND.b ppatvidedO Returnfanus-nmdgt,d,d',nralllPBOXRt.OR .OR dopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp BOX ' preimnf a Parm_f ,,,,lsop.NOTnASSOCIATED(nimn_metiub--- ,2)irto graph XLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 'BOX ha' tigb pIS ocitl drldopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp BOX ast'subsECm_f ,,,,lsopSIZE(nimn_metiubo2)TLT.nimn_'''''-- ,2)irto graph XLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 'BOX ha' tigb pnm,2ength at least,nimn_''''''RdralllPBBBBBBBBBBBBBBBBBBdopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp OXLt nm,BOX ------Bm_f ,,,,lsop.NOTn/olSENT(nimn_maxiub--- ,2)irto graph XLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(li _m_f',nralllPBOXRt.OR .OR 'BE.lll_ .AND.b ppatvidedO Returnfanus-nmdgt,d,d',nralllPBOXRt.OR .OR dopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp BE.lll_' preimnf a Parm_f ,,,,lsop.NOTnASSOCIATED(nimn_maxiub--- ,2)irto graph XLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 'BE.lll_ ha' tigb pIS ocitl drldopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp BE.lll_ ast'subsECm_f ,,,,lsopSIZE(nimn_maxiubo2)TLT.nimn_'''''-- ,2)irto graph XLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 'BE.lll_ ha' tigb pnm,2ength at least,nimn_''''''RdralllPBOXRt.OR .OR dopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp OXLt nm,BE.lll_MME2.l_m_f ,,,,lsop.NOTn/olSENT(nimn_s_fspat')-- ,2)irto graph XLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(li _m_f',nralllPBOXRt.OR .OR 's_fspat' .AND.b ppatvidedO Returnfanus-nmdgt,d,d',nralllPBOXRt.OR .OR dopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp s_fspat' preimnf a Parm_f ,,,,lsop.NOTnASSOCIATED(nimn_s_fspat')-- ,2)irto graph XLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBBBBBBBBBBBBBBBBBB's_fspat' ha' tigb pIS ocitl drldopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp s_fspat' ast'subsECm_f ,,,,lsopSIZE(nimn_s_fspat')TLT.nimn_'''''-- ,2)irto graph XLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 's_fspat' .AND.b pat least,2ength nimn_''''''RdralllPBOXRt.OR .OR dopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp OXLt nm,s_fspat'subsECCCCCCCCC I=1,nimn_'''''''n(1.lbsECm_f ,,,,lsop(nimn_s_fspat'(i)TLT.0).srt ius0turn3i2dddE2.ooooooooo(nimn_s_fspat'(i)TGEntis_npat')-- ,2)irto graph XLI!)! m mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m _m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 'invOXXdl3=busORs-enuecxfiAd in s_fspat''mralllPBOXRt.OR t.OR dopolsopm etis_s2p_p-ifa KI.lllll lljjind8888-(t rn_,no,,,,, ,,i)om)ei.teIp u=busORs-e Retu vOXXd-(t rn_,no,,,,,i)oINrU fo Reachsll_MME2.l_m_f i)om)ei.domus-nmdgt,d,d 0 Returnfad0 cbds_wri2d_m_f lsroam_alleTT_nofixedST',-dg_all_nimn_dgt,d,divi kin ------B_m_f lspnimn_''''' TLE. divi kin ------BOXLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nralllPBOXRt.OR .OR 'nig''''mdgt,d,d in nimn_dgt,d,d0am_allognm,s_'mralllPBOXRt.OR t.OR dopolsopm etis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)ei.teIp nimn_'''''-(t rn_,no,,,,,!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi-(t rn_,no,,,,,!.2----BO--atEtee-nimnzdgt,d,ds''''madd up tig--clwhole-(t rn_,no,,,,,!.2clmod_a Ii d d _,i.-(t rn_,no,,,,,!.2TODO: ONE COULDC MORE TESTS HER-.---e)-a gr OXL,!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi-(t rn_,no,,,,,moreaurnon--[,3=b(1)-BOX Retu(1))*on--[,3=b(2)-BOX Retu(2)_s2p_p-ifa KI.lstroLIIItimTT_n3ivi kin ------BOXLI!)! mmoreaurnmorea*on--[,3=b(3)-BOX Retu(3)_s2p_p-ifa KI.li)om)).urnldc-! soreaurn0.0_MKedST',--urrrrrr I=1,nimn_'''''''n(1.lbsECm_f ,,,,loreaurnonimn_maxiub(1,i)-nimn_metiub(1,i))*llv ne lll---dom.l_3i-l_3E onimn_maxiub(2,i)-nimn_metiub(2,i)_s2p_p-ifa KI.lllllstroLIIItimTT_n3ivi kin ------BOXLI!)! m,,,,loreaurnlorea*onimn_maxiub(3,i)-nimn_metiub(3,i)_s2p_p-ifa KI.llllli)o m)).urnldc-! soreaurnsoreau+nlorea-(t rn_,no,,,,,i)oINin ------B_m_f lspABS(sorea-morea)/moreaTGEnlixedSivi kin ------BOXLI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORein ------BOXLI!)! m! Mismatch!in ------BOXLI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORein ------BOXLI!)! mIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli _m_f',nnnralllPBOXRt.OR .OR 'taultylnddddlnr= ldgt,d,d',dopolsopmetis_s2p_p-ifa KI.llllljjind8888-(t rn_,no,,,,,i)om)MME2.l_m_f i)om) d8888m2d_m ONTINUEk-!! KIi)o SUBROUTINEd0 cbdi''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodi)o SUBROUTINEdn(1.l_(mli _m_f_slibldo-1.2/src/olso/ldopolsopmi)o SUBROUTINEdn(1.l_(mli _m_f_dlibn(1-1.2/src/l_(m/n(1.l_(mli 2-fu.f000644 000765 000024 00000057452 11445666064 020114 0uf-f-00dlnrf-fff000000 000000 I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i. SubMOSAIC L :2p_p-ifa KI.lllll n(1.l_(mli 2-fu I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i.Copyr'Unk (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), in ----i. .l_3i2d_mi2d_m2d_m endar fo RFluXdlDynamics (DTU a Para a Para a Para TlisRfile isl_m_f P----clPST'llellPST--ING0MaxEeLIppm_me(PPM). a Para a Para PPM islf-fulsoftwore: yous)-a redistribd_e itlo_e/s-emoyRUTRUOl. itl cnnr .l_3germs P----clGNU LsORnr G ZurichP''ORceLIcense in ----i.asl_''ORsh,dsby---clF-fulSoftwore Fvwgt, I, ei--cr in ----i.versKwan3 P----clLIcense, s-e(atEyour opVKwaivanynlotcr in ----i.versKwa. a Para a Para PPM isldistribd_ed in --clhopeO--atE CR'Ruscbe-nimful, a Para bd_ WITHOUT ANY WARRANTY;R'RthOSA even --climpliAd worrantylof a Para MERCHANTABILITY s-eFITNESS FOR A PARTICULAR PURPOSE. SeIs,al a Para GNU G ZurichP''ORceLIcense fs-emorulymtails. a Para a Para YousshOSldsXL!--receiv,d 02clpy P----clGNU G ZurichP''ORceLIcensein ----i.a_es,al_GNU LsORnr G ZurichP''ORceLIcense alongR'Rth PPM.iIf not, a Para seIs. a Para a Para PST'llellPST--ING0MaxEeLIppm_me(PPM) a Para ETH Zurichin ----i.CH-8092 Zurich, S'Rtzerla_e I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusOReii''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodSUBROUTINEdn(1.l_(mli 2-fu_s,gcc &'xBaxE&'xri,N_m_fx BOX ReturralllPBOXRt.n--[,3=busORs-- n3 RBOXboxOXLt,pruieboxes,'''Unkn fixec,d_m2d_mralllPBOXRt.n--varianc ,BE.box n3 Rif-f--,gt, axNmms IBaxEu2-fu3E etis,ralllPBOXRt.n n3 Rnimn_metiubonimn_maxiubonimn_''''',nimn_s_fspat')libldo-1.2/src/olso/ldopolsopmSUBROUTINEdn(1.l_(mli 2-fu_d,gcc &'xBaxE&'xri,N_m_fx BOX ReturralllPBOXRt.n--[,3=busORs-- n3 RBOXboxOXLt,pruieboxes,'''Unkn fixec,d_m2d_mralllPBOXRt.n--varianc ,BE.box n3 Rif-f--,gt, axNmms IBaxEu2-fu3E etis,ralllPBOXRt.n n3 Rnimn_metiubonimn_maxiubonimn_''''',nimn_s_fspat')I!)! m!!a TlisRMOSAIC Lcreatesma 2cc logy bas,d wann(1.l-fu.I!)! m!!a Tle-nimnm)-a dirphVlyenuecxfy---cladddlLTO fs-en(1.l-fu, ra--crI!)! m!!a --and0 ooam_alfrom apset ou=edgt,d,ds`fixedST',-dg_all_*`.I!)! m!!a Please seIsdocdlLTO, I o`n(1.l-fu` fs-edescrip I o,al a Para!a adddlLTO .I!)! m!!a a Para!a [WARN.l_]I!)! m!!a TlisRi fs-eadvanc d-nimn(0. ly.''n(1.lalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2IRcludGspolsopmXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMM#iRcludG "LIIItgt,d,.h"''n(1.lalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei.2ModuNGspolsopmXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmUSEdn(1.moduNG_t, aMolsopmUSEdn(1.moduNG_t, a_ axEtk,ldopUSEdn(1.moduNG_sl_f-f--tk,ldopUSEdn(1.moduNG_sl_f-optk,ldopUSEdn(1.moduNG_LIIIE2.l_3i2USEdn(1.moduNG_ex e 2.l_3i2USEdn(1.moduNG_ axE_ex e 2.l_3i2USEdn(1.moduNG_S''aY-_mo2.l_3i2USEdn(1.moduNG_S''aYs I2.l_3i2USEdn(1.moduNG_ axE_s I2.l_3i2USEdn(1.moduNG_ axE_oX 'MolsopmUSEdn(1.moduNG_tgt,d,_ul_f_bc2.l_3i2USEdn(1.moduNG_S''aYsi.OR. cc2.l_3i2USEdn(1.moduNG_S''aY2.l_3i2USEdn(1.moduNG_f &'xo)))R2.l_3i2USEdn(1.moduNG_S-fu I!)! mUSEdn(1.moduNG_S''aYbox2TTEs I!)! mIMPLICIT NONEi''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodINTEGER, PARAMETER :: MKurn8888k &'xam_alelibldo-1.2/src/olso/ldopolsopmINTEGER, PARAMETER :: MKurn8888k &'xdo''OeI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmi.2AdddlLTO CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_INTEGER ,_INTENT(INOUT) :: gcc &'I!)! m!!a ID numbmnmidLTOxfym_al--cl2cc logy.I!)! m!!a If tcc &'ibld0 waninpSA a new 2cc logy i created.a_es,al_new 2cc &'I!)! m!!a isRMTl_3ied.-cru, els- --cli tl d 2cclogy i replac d.I!)! m!!a a Para!a [CAUTION]I!)! m!!a *SEMANTICS CHANGED:* `tcc &'ib 0` i *nitcenymoru* reimrv,d0fo R.le in ----i!a oNs,gcc logy (nullham_allognm,s_). "RoNs,gcc logies"_r IRnwnin ----i!a geo-BOXRcea_esne,ds'opsetup. Tle-nimnm)-a perfo m888 oNs,xE&ftin ----i!a tpmnapeto(0'RthOSA XL!oNs,gc firNDsd2t,de al2cc logy.I!)! mREAL(MK), DIMEN/ldo(:,:), POINTER :: xpin ----i!a PST--ING0lognm,s_s.iIf preimnf,d d _,iDam_allognm,s_n'Ruscbein ----i!a guidedOby-_f---ING0 e tlKwa'''n(1.lINTEGER ,_INTENT(IN ) :: N_m_f a Pari!a Numbmnmouf---INGs. Set .i so-BOhm_a TLE.0 --cre_r IRnw a Pari!a uf---INGs.''n(1.lINTEGER ,_INTENT(IN ) :: MME2.l_!!a Tle-3E pnm,s_f d _,i-to-u=busORs-e RetulLTO. On pnm:I!)! m!!a a Para!a * ofixedST',-IS passindarnal a Para!a * ofixedST',-IS pass,s_dual_c a Para!a * ofixedST',-IS pass,s_dualomm a Para!a * ofixedST',-IS pass d,lmod_ a Para!a * ofixedST',-IS pass d,lmoomm a Para!a * ofixedST',-IS passnimn_dgt,d,d-(t rn_!!a a Para!a [NOTE]MME2.l_!!a Tle-lattcr nimsR.le exdarnalelIppm_melognm,a_esi(0. ly a Para!a available if888 was2clmoEc_w 'Rth lognm,support.I!)! mREAL(MK), DIMEN/ldo(: ),_INTENT(IN ) :: BOX Retu a Para!a Minimummouetui.OR2exda_esP----clclmod_a Ii d d _,i (do''Oe)-(t rn_!!a a Para!a firNDs=_eexpisl_IIItimirto grREAL(MK), DIMEN/ldo(: ),_INTENT(IN ) :: B--[,3=b a Para!a Maximummouetui.OR2exda_esP----clclmod_a Ii d d _,i (do''Oe)-(t rn_!!a a Para!a firNDs=_eexpisl_IIItimirto grINTEGER , DIMEN/ldo(: ),_INTENT(IN ) :: sORs- a Para!a Bvwgt,adjcopeto(0fo R.le gcc logyRUTRUOl.!a a Para!a firNDs=_eexpisl1-6 (eachsP----clfac s)s2p_p-iREAL(MK), DIMEN/ldo(: ),_POINTER :: -_mo2.l_3i2a!a Estimtl d n3 IS ocitl d 'Rth nddddlnr= . Ei--cr nimnzdgt,d,dswnin ----i!a inpSA s-ede_allognm,s_nreiult I outpSA. Tle-cdIp P--asnddddlnr=www.gnuX!a isRgiven by-iO voldlL.I!)! mREAL(MK), DIMEN/ldo(: ),_OPTIONAL,_INTENT(IN) :: p-_mo2.l_3i2a!a Arraypnm,2ength N_m_f whichsluecxfiAs---clclmod_a Ii 2.l_3i2a!a n3 Ittribd_ed .i eachsuf---ING.iIf tlisRi abimnf,da-uR Cy n3 ib a Para!a IS dlLd fo Reachsuf---ING.I!)! mREAL(MK), DIMEN/ldo(:,:), OPTIONAL,_POINTER :: nimn_metiub a Para!a Mimimummoexda_sKwanP--TTEs. OPTIONAL dST',etcr nimdO a Para!a am_alleismus-nmdgt,d,d.I!)! m!!a a Para!a 1NDs=_eex: x,y,(z) + a Para!a 2nd:-TTEIDI!)! mREAL(MK), DIMEN/ldo(:,:), OPTIONAL,_POINTER :: nimn_maxiub a Para!a maximummoexda_sKwanP--TTEs. a Para!a UimdO am_alleismus-nmdgt,d,d.I!)! m!!a a Para!a 1NDs=_eex: x,y,(z) + a Para!a 2nd:-TTEIDI!)! mINTEGER ,_OPTIONAL :: nimn_'''''''n(1.l!!a Toti dnumbmnmondd(0. 2 mlis=busORs-s. a Para!a UimdOwhen am_alleismus-nmdgt,d,dpolsopmINTEGER, DIMEN/ldo(: ),_ OPTIONAL,_POINTER :: nimn_s_fspat'subsECa!a Sddddlnr= tig3=busORs-e RetulLTO. a Para!a UimdO 0 Returnfadismus-nmdgt,d,d.I!)! m!!a a Para!a =_eex: TTEID (global)s2p_p-iREAL(MK) ,_INTENT(IN ) :: BOXboxOXLtMME2.l_!!a Tle-min sXLt nm,.l_3bvxGspolsopmLOGICAL ,_INTENT(IN ) :: pruieboxesMME2.l_!!a Whe--cr tigkeep empCy boxes s-enit?I!)! mREAL(MK), DIMEN/ldo(3,2',_INTENT(IN ) :: '''UnknMME2.l_!!a W''Unkn fs-enf---INGs, axEec &TO o_esgeo-BOXs. `'''Unkn(:,1)` a Para!a amt,d,s,.l_3bvxlndIppm(w-cre_tigrmt,d,',_`'''Unkn(:,2)` amt,d,s a Para!a w-cre_tigcSA a bvx.polsopmLOGICAL , DIMEN/ldo(: ),_INTENT(IN ) :: fixec a Para!a Flag' tig3=eventgcSAssr= cert_,iDairphVKwas. (seIsn(1.l-fu)s2p_p-iREAL(MK) ,_INTENT(IN ) :: B--varianc a Para!a Maximummex ewmdOvarianc nm,ndIppmbetweenUTTEssubsECREAL(MK) ,_INTENT(IN ) :: B--box n3 a Para!a MaximummcdIp P--asbvx. Sdddivis,s_n'Rusccotinue (logsi'Oe)-(t rn_!!aO cdIp P--any boxdismlargnr .lan tlis. Set .i <,I0_wri2d_!!a -oldisable tlisRcritcrKwa. a ParINTEGER ,_INTENT(INOUT) :: BaxE&' a Para!a MaxEeidLTOxfinr onimndnumbmnm_a) fs-edetault axEe(a'mdgt,d,d by a Para!a Nm)0. 2--cl2cc logy.iIf <0,888 wRusccreate a numbmnmindarnally a Para!a a_esMTl_3iE CR-cre_. 2exit. a ParINTEGER , DIMEN/ldo(:,:), POINTER :: if-f--tk,ldopa!a S-f--li ,s,(i,j[,k]) (firNDs=_eex)mondd axEei''' (seco a Para!a =_eex)sr= global axE. a ParINTEGER , DIMEN/ldo(:,:), POINTER :: nt, aMolsopmi!a NumbmnmogrXdl3 &TO in x,y[,z] (firNDs=_eex)mondd axEei'''Molsopmi!a (secos=_eex).2IRcludGsg--clp &TO ON---clndd3bvwgt,aiGs.''n(1.lINTEGER , DIMEN/ldo(: ),_INTENT(IN ) :: NmMolsopmi!a Numbmnmo axEec &TO (nwtjcells)sr= eachsdirphVKwa nm,.l_3global2.l_3i2a!a nmod_a Ii d d _,i (iRcludm_a p &TO ON-iO bvwgt,aiGs)polsopmLOGICAL ,_INTENT(IN ) :: s IBaxEI!)! m!!a If `TRU-` s I,.l_3 axEed2t,dmVKwa indarnally.iIf `FA---`,_wri2d_!!a -l_3 axEeimrv,(0. ly.asla guide0fo R.le de_allognm,s_na_esi(0nwt_wri2d_!!a s Id.asla 888 nmod_e axE. a ParINTEGER ,_INTENT(IN ) :: 2-fu3E _wri2d_!!a On pnm:I!)! m!!a a Para!a *fixedST',-2-fu_Grstk,ldopa!a *fixedST',-2-fu_quadts as ma!a *fixedST',-2-fu_octl(3D0. ly) a ParINTEGER ,_INTENT(_ OUT) :: etists as ma!a RTl_3is s atus, 0 uponUTTcusOR. subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. Lt.OR2variabNGspolsopmXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmINTEGER :: e,jm box,elille'''MolsopmINTEGER, DIMEN/ldo(2 ) :: ldcMolsopmINTEGER, DIMEN/ldo(:,:), POINTER :: et)))R,ul_f_bc2.l_3i2INTEGER, DIMEN/ldo(: ),_POINTER :: 3o)))R, chccsubsECREAL(MK) :: t0,morea,sorea,lorea,lixedSI!)! mREAL(MK), DIMEN/ldo(_IIItim) :: gsvecI!)! mREAL(MK), DIMEN/ldo(:,:), POINTER :: BOX boxrn--[boxI!)! mCHARACTER(LEN=_IIIchar) :: B &polsopmLOGICAL :: XL!-_nf---INGs,XL!-_BaxEI!)! mINTEGER :: ''''ORsfmn'''''''n(1.lINTEGER , DIMEN/ldo( :), POINTER :: i'''ORsfI!)! mREAL(MK), DIMEN/ldo(:,:), POINTER :: BOX '''MolsopmREAL(MK), DIMEN/ldo(:,:), POINTER :: BE.lll_MME2.l_INTEGER, DIMEN/ldo(: ),_POINTER ::,s_fspat'subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. ExdarnalspolsopmXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMsubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. IR CBOXXsu I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ---- -[E2sl_f-f--(_E2._SUBROU 2-fu',polsopmet''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodlixedSurn8888ixedSslibldo-1.2/src/olso/ldopolsopmlixedSurn8888ixedSdsubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. ----BOadddlLTO CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ItroLIIItebug _GT. divi kin ------ -[E20 cbdip_p-ifa lsopmetis_s2p0 dc & p-ifa dex e !p-ifa lsoptcc &'iTT_nodivi kii. .l_3i2dIIeturn8888---BOXwardm_a2i. .l_3i2d -[E2.ofix8888cBldtONTIddddlLTOR _E2._SUBROU 2-fu',3i2d&2i. .l_OXRt.O'gcc &'iwas2reimt0fo Rnon-nullham_allognm,s_',dopolsopm etis_si. .l_3i2dtcc &'ib -1si. .l_3i)om)MME2.l_a If tle-nimnmdgt,d,d ''''' then us- --osu I!)! mstro/olSENT(nimn_'''''--- ,2)irto graph ''''' = nimn_'''''''n(1.ldddlin ------B ''''' = 0 . .l_3i)om)MME2.l_stro/olSENT(nimn_metiub--- ,2)irto graph BOX => nimn_metiub a Pari)om)MME2.l_stro/olSENT(nimn_maxiub--- ,2)irto graph BE.lll_ => nimn_maxiub a Pari)om)MME2.l_stro/olSENT(nimn_s_fspat')-- ,2)irto graph s_fspat' => nimn_s_fspat'subsECi)om)MME2.l_aO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_i. ----BOwesXL!--_f---INGssa_esBaxEI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_XL!-_nf---INGs = .FA---.---e)-aXL!-_BaxE--e)-a= .FA---.---e)-astroN_m_f TGT. divXL!-_nf---INGs = .TRU-.---e)-alsopSIZE(NmR1) TGE.0LIIItim) ,2)irto graph stroLIIItimsoGT. 2ivi kin ------BOXLI!strooNm(1)oGT.1)oAND.oNm(2)oGT.1)oAND.oNm(3)oGT.1)) ralllPBOXRt.OR .OXL!-_BaxE-= .TRU-.---e)-a gr dddlin ------B OXLmstrooNm(1)oGT.1)oAND.oNm(2)oGT.1))OXL!-_BaxE-= .TRU-.---e)-a gr d)om)).urnldd)om))EME2.l_aO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_i. - mli--cl2-fulMOSAIC in ----aO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_gsvec(1:LIIItim) = BOXboxOXLtMME2.l_! builh-S-fuMME2.l_stro/olSENT(p-_mo--- ,2)irto graph ts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E apralllPBOXRt.OR tis_npat',pruieboxes,gsvecxn--varianc ,BE.box n3 Rfixec,d_ralllPBOXRt.OR '''Unkn BOX boxrn--[box box,nchccmetis,p-_mo-irto grdddlin ------B ts n3 R .S-fu(ri,N_m_fxNmmBOX Return--[,3=bu2-fu3E apralllPBOXRt.OR tis_npat',pruieboxes,gsvecxn--varianc ,BE.box n3 Rfixec,d_ralllPBOXRt.OR '''Unkn BOX boxrn--[box box,nchccmetis) a Pari)om)MME2.l_strometi_s2pdivi kin ------BOIIeturn8888---BOXLIIIE2.l_3i2d_mi -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU 2-fu',3iralllPBOXRt.OR 'G Zurich2-fulam_allognm,s_naxEc_wrldopolsopmetis_s2p_p-ifa & p-ifa dex eME2.l_! cl1.urnl2-ful.ig''''''n(1.l -[E2.ofiS''aYbox2TTEs(BOX boxrn--[box chccm box,BOX iub, ParalllPBOXRt.BE.lll_''''''metisi2d_m_fslsopmetis_s2p0 dc & ----- alllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_es,al_ST'Unbsrs P----clsddddlnr= CBOXXXXXlllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisets n3 R .f &'xo)))R(BOX Return--[,3=busORs--llv ne lll---dom.l_3i-l_3E BOX iub,BE.lll_''''''m3o)))R,io)))R,io,stk,ldopolsopmeti_s2pdivi kin ------BOIIeturn8888---BOXLIIIE2.l_3i2d_mi -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU 2-fu',3iralllPBOXRt.OR 'F=_em_alST'UnbsrsnaxEc_wrldopolsopmetis_s2p_p-ifa & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. Ax e tl 2 axEedatal2c av &'ix8888 CBOXXXXXlllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_liseIoptpKI,I10,A)') 'occccc.f ain ----ldc(1) = _IIItimirto grldc(2) = 0 . .l_3 -[E2.oficcccc(i'-f--,ldc#elilletisi2d_m_fslsopmetis_s2p0 dci kin ------BIIeturn8888---BOX''''Pr ag,bdivits n3 R .l_3 Return3i2ddcccc,_E2._SUBROU 2-fu',3iralllPBOXRt.OR ' axEei-f--li ,s,ISTARTrldopolsopmetis_s2p_p-ifa & p-ifa dex eME2.l_ -[E2.oficcccc(gt, axldc#elilletisi2d_m_fslsopmetis_s2p0 dci kin ------BIIeturn8888---BOX''''Pr ag,bdivits n3 R .l_3 Return3i2ddcccc,_E2._SUBROU 2-fu',3iralllPBOXRt.OR ' axEeiXLts NDATArldopolsopmetis_s2p_p-ifa & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. D2t,de axEe(0. 2--clndd(CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ItroXL!-_BaxE-- ,2)irto graph ts n3 R . axE_oX '(NmmBOX Return--[,3=buBOX iub,BE.lll_''''''mllv ne lll---dom.l_3i-l_3E if-f--,gt, axetis_s2p_p-ifa stroetis_s2pdivi kin ------BOXLIIIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2d'''_axEc_w,_E2._SUBROU 2-fu',3iralllPBOXRt.OR OR 'D2t,dm_al axEe(0axEc_wrldopolsopmetis_s2p_p-ifa KI.jjindns---(t rn_,nooi)om)).urnldd)om))Ea ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. 2=_es,al_cdIp P--eachsnddddlnr=www.gnuXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_Isop/olSENT(p-_mo--- ,2)irto graph ts n3 R .S''aY-_mo(ri,N_m_fxBOX iub,BE.lll_''''''m3t, ax3iralllPBOXRt.OR n3 Ritis,p-_mo-irto grdddlin ------B ts n3 R .S''aY-_mo(ri,N_m_fxBOX iub,BE.lll_''''''m3t, ax3iralllPBOXRt.OR n3 Ritis) a Pari)om)MME2.l_strometi_s2pdivi kin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU 2-fu',3iralllPBOXRt.OR 'Clmod_m_alndIppmaxEc_wrldopolsopmetis_s2p_p-ifa & box i dex e a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. A Retu.--clnddddlnr= ltig3=busORs-swww.gnuXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_Isoooooo'''ignmT_nofixedST',-IS passindarnalivi kin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mindarnale ReturnfanMOSAIC in ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f -[E2.ofiS''aYsi.OR. cc( n3 R3o)))R,io)))R,'''''ms_fspat'RdralllPBll---domi'''ORsf'''''ORsfmetisi2d_m_fspatlsopmeti_s2pdivi kin ------BOXLIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU 2-fu',3iralllPBOXRt.OR O'A RetuoNs,s''' tig3=busORs-smaxEc_wrldopolsopmetis_s2p_p-ifa KIjjindns---(t rn_,noi)om))rn_,noiddEstro'''ignmT_nofixedST',-IS pass,s_dual_co.srt iu ralllPBOXRt.OR nmT_nofixedST',-IS pass,s_dualommo.srt iuralllPBOXRt.OR nmT_nofixedST',-IS pass d,lmod_o.srt iu nralllPBOXRt.OR nmT_nofixedST',-IS pass d,lmoommivi kin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mus--lognm,lIppm_me.i toe Returnfain ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_f -[E2.ofiS''aY(BOX iub,BE.lsl_R3o)))R,io)))R, n3 R3''''mralllPBOXRt.OR s_fspat'Ri'''ORsf'''''ORsfmetisi2d_m_fspatlsopmeti_s2pdivi kin ------BOXLIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU 2-fu',3iralllPBOXRt.OR O'A RetuoNs,s''' tig3=busORs-smram_allognm,axEc_wrldopolsopmetis_s2p_p-ifa KIjjindns---(t rn_,noi)om))rn_,noiddEstro'''ignmT_nofixedST',-IS passnimn_dgt,d,divi kin ------B!pat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_fs mus-nmdgt,d,d 0 Returnfain ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_fIoptp,I10,A)') 'occccc.f ain ------Bldc(1) = '''''''n(1.lrnl -[E2.oficcccc(i'''ORsf'ldc#elilletisi2d_m_fspatlsopmetis_s2p0 dci kin ------BOXLLIIeturn8888---BOX''''Pr ag,bdivi -[its n3 R .l_3 Return3i2ddcccc,_E2._SUBROU 2-fu',3indTOR.stroc(i)t_l '3i-l'nm,2t.OR2s''' ISUBLISTrldopolsopmetis_s2p_p-ifa KIIjjindns---(t rn_,noi)om))-----BOXLI'''ORsfp,I10,A)') 'o cnnt,d,dtis_s2pc-!n'''ORsfp,I0_wri2d_m_f I'''=1,'''''''n(1.lrnldc-!lsops_fspat'riiub-nmT_nofixerank kin ------BOXLIIIIi)! n'''ORsfp,In'''ORsfp+ 1------BOXLIIIIi)!!I'''ORsf(n'''ORsf) = ------Brn_,nooi)om))-----BOXLi)oINEbdc-!!dddlin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fs mu--[lopD Returnfanschem in ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a_wri2d_m_fIIeturn8888---BOXLIIIE_wri2d_m_f kin -----BOXLII5urninU--[lopD Returnfanschem : ', MME2.l_ -[ts n3 R .l_3 Return3i2dddddlLTOR.n(1.l_(mli 2-fu',3indTOR.stroc(i)t_B &'xmaxEc_wri2d_m_fspat', & box i dex e -----BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a. e)-a_wri2d_i. 2=_eso_esd2t,de .l_3bvwgt,adjcopeto(0. 2--clndd(0. 2--cl2t.OR)t_lisei. 3=busORs-e(--clMOSAIC LwRuscex e tl 2--clrequriAd memory)s2p_p-iXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisets n3 R .ygt,d,_ul_f_bc(BOX Return--[,3=busORs--BOX iub,BE.lll_Rllv ne lll---dom.l_3i-l_3E '''''ms_ff_bc,io,stk,ldopolsopmeti_s2pdivi kin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU 2-fu',3iralllPBOXRt.OR 'f=_em_alo_esd2t,dm_al--clBC P----clnddsmaxEc_w rldopolsopmetis_s2p_p-ifa & box i dex e a ParaO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. S Is,al_2cc logy indarnally a ParaO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lise -[E2.ofiS''aYs I,gcc &'xBOX Return--[,3=buBOX iub,BE.lll_Rs_ff_bc,llv ne lll---dom.l_3i-l_3E s_fspat'R'''''msORs--i'''ORsf'''''ORsfmlv ne lll---dom.l_3i-l_3E 3o)))R,io)))R,io,stk,ldopolsopmeti_s2pdivi kin ------BOIIeturn8888---BOXLIIIE2.l_3i2d_mi -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU 2-fu',3iralllPBOXRt.OR 'S oNs,gcc logy axEc_wrldopolsopmetis_s2p_p-ifa & box i dex e a Parlsops IBaxE oAND. XL!-_BaxE-- ,2)i s2p_p-ifa aO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!s2p_p-ifa a. S Isnew axEeindarnally a Parfa aO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!s2p_p-ifa ts n3 R . axE_s I,gcc &'xBaxE&'xgt, axef-f--,Nmxetis_s2p_p-ifa stroetis_s2pdivi kin ------BOXLImIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTI'''_axEc_w,_E2._SUBROU 2-fu',3iralllPBOXRt.OR OR 'S oNs, axEed2t,dmVKwa axEc_wrldopolsopmetis_s2p_p-ifa KI..jjindns---(t rn_,nooi)om)).urnldd)om)p-ifa KI..! s IBaxE a ParalllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_lisei. Dump outldisgnn3 icRfilessubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_liseiItroLIIItebug _GT. divi kin ----i. .l kin -----BOXLII4.4urnin_m_f',fixerankin ----i. .lOPEN(10,FILE=---- a Para a Para Par j=1,''''ORsfI!)! mi. .l_3i2i = ORsf(j a Para a Para Par Para x-y plan a Para Par Par kin -10,'(2e12.4urniBOX iub(1,i)uBOX iub(2,i) a Para Par Par kin -10,'(2e12.4urniBE.lll_(1,i)uBOX iub(2,i) a Para Par Par kin -10,'(2e12.4urniBE.lll_(1,i)uBE.lll_(2,i) a Para Par Par kin -10,'(2e12.4urniBOX iub(1,i)uBE.lll_(2,i) a Para Par Par kin -10,'(2e12.4urniBOX iub(1,i)uBOX iub(2,i) a Para Par Par kin -10,'(Para urn a Para a Para Par Para y-z plan a Para Par ParstroLIIItimsoGT. 2ivi kin ----i. .l_3i2d_mi kin -10,'(2e12.4urniBOX iub(2,i)uBOX iub(3,i) a Para Par Par Par kin -10,'(2e12.4urniBE.lll_(2,i)uBOX iub(3,i) a Para Par Par Par kin -10,'(2e12.4urniBE.lll_(2,i)uBE.lll_(3,i) a Para Par Par Par kin -10,'(2e12.4urniBOX iub(2,i)uBE.lll_(3,i) a Para Par Par Par kin -10,'(2e12.4urniBOX iub(2,i)uBOX iub(3,i) a Para Par Par Par kin -10,'(Para urn a Para Par Par dex eME2.l_! XLi)oINEbdc-!!a a Para ParCLOS -10n a Para dex e a ParaO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. RTl_3isubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t& _tONTINUEk-!! KI -[E2sl_f-op(_E2._SUBROU 2-fu',polsopmet-!! KIRETURkin ----tONTAINSin ----SUBROUTINEd0 cbdip_p-ifa lsop.NOTnofixeiR CBOXXz,divi kin ------BO---IIeturn8888---BOXLIIIE2.l_3i2d_m -[ts n3 R .l_3 Return3i2dtis_noiR C,_E2._SUBROU 2-fu',3iralllPBOXRt.OR OR 'Please c mlisixeiR C firND!rldopolsopmetis_s2p_p-ifa KI.jjind8888-(t rn_,noi)om))-----BOXLIF(BOXboxOXLt TLT.0 .0_MK-- ,2)irto graph OXIIeturn8888---BOXLIIIE2.l_3i2d_m - -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli 2-fu',3ralllPBOXRt.OR 'BOXboxOXLt .AND.b p>rn0.0',dopolsopm etis_sp_p-ifa KI.jjind8888-(t rn_,noi)om))-----BOXL I=1,LIIItimirto graph OXIF(B--[,3=b(i)TLE.BOX Retu(i) kin ------BOXLIIIIi)IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli 2-fu',3ralllPBOXRt.OR 'n--[,3=b .AND.b p> BOX Returldopolsopm etis_s2p_p-ifa KI.lljjind8888-(t rn_,no,,,i)om))-----BOXLi)oINEbdc-!! f ls ,'''ignmT_nofixedST',-IS passnimn_dgt,d,divi kin ------Brm_lspnimn_''''' TLE. divi kin ------BOXLI!)IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli 2-fu',3ralllPBOXRt.OR 'nig''''mdgt,d,d in nimn_dgt,d,d0a Returnfa'mralllPBOXRt.OR t.Odopolsopm etis_s2p_p-ifa KI.lljjind8888-(t rn_,no,,,i)om))-----BOXL ,,lsop.NOTnASSOCIATED(s_fspat')-- ,2)irto graph OXLI!)IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m22 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli 2-fu',3ralllPBOXRt.OR 's_fspat' .AND.b pax e tl d fo Rus-nmdgt,d,d 0 Returnfa'mralllPBOXRt.OR t.ORdopolsopm etis_s2p_p-ifa KI.llljjind8888-(t rn_,no,,,i)om))-----BOXL ,, I=1,nimn_'''''''n(1.lbsECm_f ,,stroos_fspat'(i)TLT.0).srtos_fspat'(i)TGEntis_npat')-- ,2)irto graph XLI!)! m IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mli 2-fu',3ralllPBOXRt.OR 'invOXXdl3=busORs-enuecxfiAd in s_fspat''mralllPBOXRt.OR t.OR dopolsopm etis_s2p_p-ifa KI.lllll jjind8888-(t rn_,no,,,,, ,i)om))-----BOXL ,,i)oINEbdc-!! f i)om) d8888m2d_ ONTINUEk-!! KIi)o SUBROUTINEd0 cbdi''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodi)o SUBROUTINEdn(1.l_(mli 2-fu_slibldo-1.2/src/olso/ldopolsopmi)o SUBROUTINEdn(1.l_(mli 2-fu_dlibn(1-1.2/src/l_(m/n(1.l_(mls I.f000644 000765 000024 00000043340 11445666064 017750 0uf-f-00dlnrf-fff000000 000000 olsopm!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i. SubMOSAIC L :2p_p-ifa KI.lllll n(1.l_(mls I2.l_3i2!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i.Copyr'Unk (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), in ----i. .l_3i2d_mi2d_m2d_m endar fo RFluXdlDynamics (DTU a Para a Para a Para TlisRfile isl_m_f P----clPST'llellPST--ING0MaxEeLIppm_me(PPM). a Para a Para PPM islf-fulsoftwore: yous)-a redistribd_e itlo_e/s-emoyRUTRUOl. itl cnnr .l_3germs P----clGNU LsORnr G ZurichP''ORceLIcense in ----i.asl_''ORsh,dsby---clF-fulSoftwore Fvwgt, I, ei--cr in ----i.versKwan3 P----clLIcense, s-e(atEyour opVKwaivanynlotcr in ----i.versKwa. a Para a Para PPM isldistribd_ed in --clhopeO--atE CR'Ruscbe-nimful, a Para bd_ WITHOUT ANY WARRANTY;R'RthOSA even --climpliAd worrantylof a Para MERCHANTABILITY s-eFITNESS FOR A PARTICULAR PURPOSE. SeIs,al a Para GNU G ZurichP''ORceLIcense fs-emorulymtails. a Para a Para YousshOSldsXL!--receiv,d 02clpy P----clGNU G ZurichP''ORceLIcensein ----i.a_es,al_GNU LsORnr G ZurichP''ORceLIcense alongR'Rth PPM.iIf not, a Para seIs. a Para a Para PST'llellPST--ING0MaxEeLIppm_me(PPM) a Para ETH Zurichin ----i.CH-8092 Zurich, S'Rtzerla_e I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusOReii'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodSUBROUTINEdn(1.l_(mls I_s,gcc &'xBOX Return--[,3=buBOX iub,BE.lll_Rllv ne lll---dom.l_3i-l_3E s_ff_bc,s_fspat'R'''''msORs--lv ne lll---dom.l_3i-l_3E i'''ORsf'''''ORsfm3o)))R,io)))R,io,stklibldo-1.2/src/olso/ldopolsopmSUBROUTINEdn(1.l_(mls I_d,gcc &'xBOX Return--[,3=buBOX iub,BE.lll_Rllv ne lll---dom.l_3i-l_3E s_ff_bc,s_fspat'R'''''msORs--lv ne lll---dom.l_3i-l_3E i'''ORsf'''''ORsfm3o)))R,io)))R,io,stkI!)! m!!a TlisRMOSAIC Ls Is2 mlirelevafadinfo m, I abod_ a Para!a ,al_new 2cc logy (created.by-_p,-dg_allRMOSAIC s)sr= a Para!a a 2cc logy structurG.iIf tleRgiven 2cc logy ID p &TO tsts as ma!a a 2existoNs,gcc logy,E CRi replac d, els- Ilibld0, a new a Para!a ,cc logy structurGRi ax e tl d a_esapped intig3(1.l_(m. Tle a Para!a new IliisRMTl_3ied.fo R.le nimn.I!)! m!!a a Para!a [NOTE]MME2.l_!!a TlisRMOSAIC Ldex e tl s---cladray: s_ff_bcl_mssed .i it. a Par!!a Tle-choic nm,placoNs, CR-cre_isRso-Bw-atEarbitpm_m, bd_ a Par!!a sinc tlisRMOSAIC LisRc mliBOTH indn(1.l_(mli _m_f a a Para!a n(1.l_(mli fiAlds- why not toe CRin oC Lplac s- -cre. subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. ModuNGs subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_liseUSEdn(1.moduNG_t, aMolsopmUSEdn(1.moduNG_sl_f-f--tk,ldopUSEdn(1.moduNG_sl_f-optk,ldopUSEdn(1.moduNG_LIIIE2.l_3i2USEdn(1.moduNG_SAIl_i1.urn_ORsfI!)! mUSEdn(1.moduNG_ex e 2.l_3i2USEdn(1.moduNG_l_(mlex e 2.l_3i2IMPLICIT NONEisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. IRcludGspolsopmXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMM#iRcludG "LIIItgt,d,.h"''''tgtdo-MPI2.l_3i2INCLUDE 'mpif.h'k'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodINTEGER, PARAMETER :: MKurn8888k &'xam_alelibldo-1.2/src/olso/ldopolsopmINTEGER, PARAMETER :: MKurn8888k &'xdo''OeI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmi.2AdddlLTO lsopmI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmREAL(MK), DIMEN/ldo(: ),_INTENT(IN ) :: BOX Retu a Para!a Min.exda_tsP----clclmod_. ddlnr=www.gnuREAL(MK), DIMEN/ldo(: ),_INTENT(IN ) :: B--[,3=b a Para!a Max.exda_tsP----clclmod_. ddlnr=www.gnuREAL(MK), DIMEN/ldo(:,:), INTENT(IN ) :: BOX sub a Para!a Min.exda_tsP----clsddddlnr= CBOXXXXREAL(MK), DIMEN/ldo(:,:), INTENT(IN ) :: BE.lll_MME2.l_a!a Max.exda_tsP----clsddddlnr= CBOXXXXINTEGER , DIMEN/ldo(:,:), POINTER :: sl_f_bc2.l_3i2a!a Bvwgt,adjcopeto(0fo Rndd(0. 2-[E2.=busORs-swww.gnuINTEGER , DIMEN/ldo( :), INTENT(IN ) :: s_fspat'subsECa!a A Returnfanondd(0tig3=buswww.gnuINTEGER , DIMEN/ldo( :), INTENT(IN ) :: i'''ORsfI!)! ma!a Li-l'nm,ndd(0hal,dsby---isl_=busORs-www.gnuINTEGER , DIMEN/ldo( :), INTENT(IN ) :: sORs- a Para!a Bvwgt,adjcopeto(0. 2--cl nmod_a Ii dboxI!)! mINTEGER ,_INTENT(IN ) :: '''''''n(1.l!!a Toti dnumbmnmondd(0. 2 mlis=bu'''n(1.lINTEGER ,_INTENT(IN ) :: ''''ORsfI!)! mi!a Numbmnmondd(0. 2currnfan_=busORs-www.gnuINTEGER ,_INTENT(INOUT) :: gcc &'I!)! m!!a Tcc logy ID.iIf 0, then create a new 2cc logy structurGRa_esMTl_3iI!)! m!!a ID.iEls- reax e tl 2--cl2cc logy 'Rth Ilibldgcc &'I!)! mINTEGER ,_INTENT(_ OUT) :: etists as ma!a RTl_3i s atus. 0 uponUTTcusOR. ww.gnuINTEGER , DIMEN/ldo(: ),_INTENT(IN ) :: no)))R2.l_3i2i!a NumbmnmoST'Unbsrs P--eachsnddCBOXXXXINTEGER , DIMEN/ldo(:,:), INTENT(IN ) :: io)))R2.l_3i2i!a NT'Unbsrs P--eachsndd.I!)! m!!a a Para!a 1NDs=_eex: 1...no)))R (ST'Unbsrs=_eexpondd) + a Para!a 2nds=_eex: 1..''''' os_fpowhichsoC LwaTO ts get .al_ST'Unbsrs) subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. Lt.OR2variabNGsmI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmINTEGER , DIMEN/ldo(3) :: ldc, ldlI!)! mINTEGER :: e,jmk,kk,elille'XLt,ipat'Ri'r=www.gnuINTEGER :: BE.o)))R,BOXbowgt'''''BE.'''''ORsfBE.www.gnuTYPEcBldtt_l_(m),_POINTER ::,l_(mCBOXXXXREAL(MK) :: t0subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. ExdarnalsmI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. IR CBOXXsumisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lise -[E2sl_f-f--(_E2._SUBROs I',polsopmetisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. ----BOadddlLTO CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ItroLIIItebug _GT. divi kin ------ -[E20 cbdip_p-ifa lsopmetis_s2p0 dc & p-ifa dex e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. Detcrm,de .l_3maximummnumbmnmoST'Unbsurs P-- mli2t.OR2s''ddlnr= CBOXXXXXlllPBOX Return--[,3=busORs---t--BOXLts n3 R .l_3 Return3i2ddddTOR.stroc(i)t_liseBE.o)))Rp,I0_wri2d_ I=1,''''ORsfI!)! mmmmjp,Ino)))R( ORsf(i)i2d_m_fspatlsopj_GT.BE.o)))R)eBE.o)))Rp,Ij p-ifa deDOe subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. (Re)ax e tl 2 amory0fo R.le gcc logy structurGisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lise -[E2E2._SUBROccccc(gcc &'x'''''m3'''ORsfmBE.o)))R,MKletisi2d_m_fslsopmetis_s2p0fixedST',-TTcusORivi kin ------BOIIeturn8888---BOX''''Pr ag,bdivi ts n3 R .l_3 Return3i2ddcccc,_E2._SUBROs I',iralllPBOXRt.OR O'COSldsnitcex e tl 2 amory0fo RTcc logyrldopolsopmetis_s2p_p-ifa & p-ifa dex eME2.l_SUBR => E2._SUBR(gcc &')%te subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. s I,BOX Retusa_esB--[,3=b a ParaO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i. Sm_aleg3=ecis,s_cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ---- k=1,LIIItimirto graphgcc %BOX Retus(k) = BOX Retu(k)irto graphgcc %B--[,3=bs(k) = B--[,3=b(k)irto gr deDOe#els- subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. Do''Oeg3=ecis,s_cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ---- k=1,LIIItimirto graphgcc %BOX Retud(k) = BOX Retu(k)irto graphgcc %B--[,3=bd(k) = B--[,3=b(k)irto gr deDOe_wri2d_ I=1,'''''''n(1.lbsECgcc %s_fspat'(i) = s_fspat'(i) p-ifa deDOe subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. iR CBOXXz, opVmiz, I s atus flag' subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisegcc %isopVKmXz,da= .FA---.-cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i. S Is,al_numbmnmonddddlnr= lin --clcurrnfangcc logyRUTRUOl.O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----gcc %''''' = ''''''cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i. S Is,al_exda_tsP----clsddddlnr= CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ItroLIIItimmT_n2ivi kin ------B!pat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_fs mIn -woldima_sKwasin ------B!pat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_f I=1,'''''''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmod graphgcc %BOX ''''(1,i) = BOX iub(1,i)cc,lmod graphgcc %BOX ''''(2,i) = BOX iub(2,i)cc,lmod graphgcc %BE.lll_'(1,i) = BE.lll_(1,i)cc,lmod graphgcc %BE.lll_'(2,i) = BE.lll_(2,i)c#els- subsEC graphgcc %BOX '''d(1,i) = BOX iub(1,i)cc,lmod graphgcc %BOX '''d(2,i) = BOX iub(2,i)cc,lmod graphgcc %BE.lll_d(1,i) = BE.lll_(1,i)cc,lmod graphgcc %BE.lll_d(2,i) = BE.lll_(2,i)c#eI!)! m XLi)oINEbdc-!!dddlin ------BXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_fs mIn -h-fulaima_sKwasin ------B!pat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_f I=1,'''''''''''''''xEc_phys,r.l_phys,bcdef,gcc,lmod graphgcc %BOX ''''(1,i) = BOX iub(1,i)cc,lmod graphgcc %BOX ''''(2,i) = BOX iub(2,i)cc,lmod graphgcc %BOX ''''(3,i) = BOX iub(3,i)cc,lmod graphgcc %BE.lll_'(1,i) = BE.lll_(1,i)cc,lmod graphgcc %BE.lll_'(2,i) = BE.lll_(2,i)cc,lmod graphgcc %BE.lll_'(3,i) = BE.lll_(3,i)c#els- subsEC graphgcc %BOX '''d(1,i) = BOX iub(1,i)cc,lmod graphgcc %BOX '''d(2,i) = BOX iub(2,i)cc,lmod graphgcc %BOX '''d(3,i) = BOX iub(3,i)cc,lmod graphgcc %BE.lll_d(1,i) = BE.lll_(1,i)cc,lmod graphgcc %BE.lll_d(2,i) = BE.lll_(2,i)cc,lmod graphgcc %BE.lll_d(3,i) = BE.lll_(3,i)c#eI!)! m XLi)oINEbdc-!!d)om)p'cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i. S Is,al_exdarIi dbowgt,adjcopeto(0fo R.lisngcc logyRUTRUOl.O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ---- I=1,2*LIIItimirto graphgcc %sORs-(i) = sORs-(i) ! m XLi)oINEbdc-!!cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i. Tle-MAXmoS'''ORsfsa_es1si(0needed .i av &'iex e tlKwa axEcurGsin ----i. 0l3=busORs-ehas 0-TTEs. Same fs-e''''' --cre_r IRnwndd(0afI!)! mi. ex .cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----''''BE. = MAX('''''m1)in ----''''ORsfBE. = MAX(''''ORsfm1)ie subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. s I,.le datalby loopoNs,ovnr .l_3ndd(0hal,dsby---clcurrnfa)t_lisei. 3=busORs-: i'''ORsf(1:n'''ORsf)CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ItroS'''ORsfsTLT.01ivi kin ------BO! dummy nfaadjwesXL!--nwndd(0af ex ''n(1.lbsECgcc %no)))Rll_'(1) = _III)') 'o cnnt,d,dtis_s2p dex eME2.l_ I=1,''''ORsfI!)! mmmmjp,Ino)))R( ORsf(i)i2d_m_fspatgcc %no)))Rll_'(i) = j p-ifa deDOe e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. s I,ST'UnbsroNs,s''' by loopoNs,ovnr .l_3ndd(0hal,dsby---clcurrnfa)t_lisei. 3=busORs-: i'''ORsf(1:n'''ORsf) - .al_ST'Unbsurs a I,.le acusOR,ds)t_lisei. -h-ough --clio)))R(1:n'''ORsf,)CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ I=1,''''ORsfI!)! mmmm j=1,gcc %no)))Rll_'(i)cc,lmod graphgcc %io)))Rll_'(j,i) = io)))R(j, ORsf(i)i2d_m_fspati)oINEbdc-!!d)oDOe esubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. A_ess I,it BCCBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ItroS'''ssTLT.01ivi kin ------B! dummy nfaaiAs-wesXL!--nwndd(0af ex ''n(1.lbsEgcc %s_ff_bc(1,1) = _III)') 'o cnnt,d,dtis_s2pbsEgcc %s_ff_bc(2,1) = _III)') 'o cnnt,d,dtis_s2pbsEgcc %s_ff_bc(3,1) = _III)') 'o cnnt,d,dtis_s2pbsEgcc %s_ff_bc(4,1) = _III)') 'o cnnt,d,dtis_s2pbsEItroLIIItimmT_n3-- ,2)irto graph XLgcc %s_ff_bc(5,1) = _III)') 'o cnnt,d,dtis_s2pbsE XLgcc %s_ff_bc(6,1) = _III)') 'o cnnt,d,dtis_s2pbsEi)om)).urnldd)om))ME2.l_ I=1,''''s''n(1.lbsEgcc %s_ff_bc(1,i) = s_ff_bc(1,i)tis_s2pbsEgcc %s_ff_bc(2,i) = s_ff_bc(2,i)tis_s2pbsEgcc %s_ff_bc(3,i) = s_ff_bc(3,i)tis_s2pbsEgcc %s_ff_bc(4,i) = s_ff_bc(4,i)tis_s2pbsEItroLIIItimmT_n3-- ,2)irto graph XLgcc %s_ff_bc(5,i) = s_ff_bc(5,i)cc,lmod graphgcc %s_ff_bc(6,i) = s_ff_bc(6,i)cc,lmod gri)om)).urnldd)oDOe subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. A_esnow deax e tl 2--cl2t.OR2adray: s_ff_bclWHY? subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)i. .l_3Ioptp,I10,A)') 'odeax e )i. .l_3 -[E2.oficcccc(s_ff_bc'ldc#elilletisi2!p-ifa lsopmetis_s2p0 dci kii. .l_3i2d_IIeturn8888---BOX''''Pri. .l_3i2d_ts n3 R .l_3 Return3i2ddeax e ,_E2._SUBROs I',iiiii&2i. .l_OXRt.OOOO'BC(0fo Rndd(0. 22t.OR23=busORs-eaxEc_wrldopolsopmetis_si. .l_3i2d_ & i. .l_3i)om)M subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. s I,Sumbmnmonddddlnr= lhal,dsby)t_lisei. -he2currnfan_=busORs-www.gnuXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMsubsECgcc %''''ORsfp,In'''ORsf MME2.l_ItroS'''ORsfsTLT.01ivi kin ------Bgcc %is''ORsf(1) = _III)') 'o cnnt,d,dtis_s2p dex eME2.l_ I=1,''''ORsfI!)! mmmmgcc %is''ORsf(i) = ORsf(i) p-ifa deDOe e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. Detcrm,de a_ess I,,al_ST'Unbsrs P----isl_=busORs-www.gnu.O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----gcc %'ST'Unpat' = 0 subsECe'XLt = sXLt(gcc %io)))Rpat'R1)in ----eME2.l_ k=1,gcc %n'''ORsfI!)! mmmm2i = gcc %is''ORsf(k)irto graphr j=1,'o)))R( _s2p_p-ifa KI.lipat' = gcc %s_fspat'(io)))R(j, )_s2p_p-ifa KI.laO CRi nitcmyselfs2p_p-ifa KI.llsopmpat' _s2p0fixerank kin ------BOXLIIIIi)! Ce'Xnp,I0_wri2d_m_fto graphr kk=1,gcc %no)))Rpat'subsECCCCCCCCCCCCCCCCClsoptcc %io)))Rpat'(kk-nmT_nompat')Ce'Xnp,I1------BOXLIIIIi)!!mi)o INEbdc-!! f ifa KI.laO nitcexready in ORsfI!)! mmmm2fa KI.llsopm'XnpTT_nodivi kisubsECCCCCCCCCCCCCCCCCgcc %'ST'Unpat' = gcc %'ST'Unpat' + 1------BOXLIIIIi)!!CCCCClsoptcc %'ST'Unpat' _GT. e'XLtivi kisubsECCCCCCCCCCCCCCCCCKI.laOk &'ly.ask fs-emorul amoryisubsECCCCCCCCCCCCCCCCCKI.le'XLt = e'XLt + 1------BOXLIIIIi)!!CCCCCCCCCldc(1) = iOXLtMME2.l_CCCCCCCCCCCCCCCCKI.leoptp,I10,A)') 'occccc.grow_preimrvtMME2.l_CCCCCCCCCCCCCCCCKI.l -[E2.oficcccc(gcc %io)))Rpat'Rldc#elilletisi2d_m_fspattttttttttttttttttlsopmetis_s2p0 dci kin ------BOXLLCCCCCCCCCCCCCKI.leIeturn8888---BOX''''Pr ag,bdivi -[iCCCCCCCCCCCCCKI.l -[E2.ofil_3 Return3i2ddcccc,_E2._SUBROs I',lv ne lll---dom.l_3i-l_3E 's_f_ST'Unbsr ORsf PPM_olsIGHLISTrl3iralllPBOXRt.OR OR dopolsopmetis_s2p_p-ifa KI..................jjindns---(t rn_,nooooooooooooooooooi)om))-----BOXL ,,ooooooooooi)o m))-----BOXL ,,oooooooooo! addlipat' to2--cl2i-l'nm,ST'UnbsrsisubsECCCCCCCCCCCCCCCCCgcc %io)))Rpat'(tcc %'ST'Unpat') = ipat'subsECCCCCCCCCCCCCi)o m))-----BOXL ,,ooi)o m))-----BOXL i)o INEbdc-!!i)o INEin ----gcc %isdgt,d,d = .TRU-.- subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. RTl_3i subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t& _tONTINUEk-!! KI -[E2sl_f-op(_E2._SUBROs I',polsopmet-!! KIRETURkin ----tONTAINSin ----SUBROUTINEd0 cbdip_p-ifa ,stroogcc &' TLT.0 )o.srt ogcc &' TGT. SIZE(E2._SUBR))-- ,2)irto graph XLI!IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mls I',iralllPBOXRt.OR OOOOO'gcc &'i.AND.b p>rn0 a_es<= SIZE(E2._SUBR)rldopolsopmetis_s2p_p-ifa KI..jjind8888-(t rn_,no,i)om))-----BOXL ItroS'''ssTL2p0 dci kin ------BOXLLCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mls I',iiralllPBOXRt.OR OR 'S'''ss.AND.b p>0rldopolsopmetis_s2p_p-ifa KI..jjind8888-(t rn_,no,i)om))-----BOXL ItroS'''ORsfsTLT.0 dci kin ------BOXLLCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mls I',iiralllPBOXRt.OR OR 'S'''ORsfs.AND.b p>0rldopolsopmetis_s2p_p-ifa KI..jjind8888-(t rn_,no,i)om))-----BOXL ItroS'''ssTLT.0n'''ORsf) i kin ------BOXLLCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mls I',iiralllPBOXRt.OR OR 'toti dnumbmnmondd(0isRsm'ller .la 22t.OR2onerldopolsopmetis_s2p_p-ifa KI..jjind8888-(t rn_,no,i)om))-----BOXL I=1,'''''''n(1.lbsECOXL j=1,LIIItimirto graph OX-BOXL It(BE.lll_(j,i) TL2p0BOX iub(j, )_ci kin ------BOXLLCCCCCCCCCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mls I',iiralllPBOXRt.OR OR OR OR 'BOX .AND.b p< BE.lll_rldopolsopmetis_s2p_p-ifa KI..fa KI..jjind8888-(t rn_,no,,,,,,,,,i)om))-----BOXL ,,ooi)oINEbdc-!! f oi)oINEbdc-!! f o I=1,'''''''n(1.lbsECOXL It(s_fspat'(i) TLT.0 dci kin ------BOXLLCCCCCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_m -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mls I',iiralllPBOXRt.OR OR OR 'fowgt s_f_Sitce Retued .i anyl_=busORs-rldopolsopmetis_s2p_p-ifa KI..fa jjind8888-(t rn_,no,,,,,i)om))-----BOXL i)oINEb8888m2d__ ONTINUEk-!! KIi)o SUBROUTINEd0 cbdi'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodi)o SUBROUTINEdn(1.l_(mls I_slibldo-1.2/src/olso/ldopolsopmi)o SUBROUTINEdn(1.l_(mls I_dlibn(1-1.2/src/l_(m/n(1.l_(mlsi.OR. cc.f000644 000765 000024 00000055010 11445666064 020533 0uf-f-00dlnrf-fff000000 000000 olsopm!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i. SubMOSAIC L :2p_p-ifa KI.llln(1.l_(mlsi.OR. cc subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei.Copyr'Unk (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), in ----i. .l_3i2d_mi2d_m2d_m endar fo RFluXdlDynamics (DTU a Para a Para a Para TlisRfile isl_m_f P----clPST'llellPST--ING0MaxEeLIppm_me(PPM). a Para a Para PPM islf-fulsoftwore: yous)-a redistribd_e itlo_e/s-emoyRUTRUOl. itl cnnr .l_3germs P----clGNU LsORnr G ZurichP''ORceLIcense in ----i.asl_''ORsh,dsby---clF-fulSoftwore Fvwgt, I, ei--cr in ----i.versKwan3 P----clLIcense, s-e(atEyour opVKwaivanynlotcr in ----i.versKwa. a Para a Para PPM isldistribd_ed in --clhopeO--atE CR'Ruscbe-nimful, a Para bd_ WITHOUT ANY WARRANTY;R'RthOSA even --climpliAd worrantylof a Para MERCHANTABILITY s-eFITNESS FOR A PARTICULAR PURPOSE. SeIs,al a Para GNU G ZurichP''ORceLIcense fs-emorulymtails. a Para a Para YousshOSldsXL!--receiv,d 02clpy P----clGNU G ZurichP''ORceLIcensein ----i.a_es,al_GNU LsORnr G ZurichP''ORceLIcense alongR'Rth PPM.iIf not, a Para seIs. a Para a Para PST'llellPST--ING0MaxEeLIppm_me(PPM) a Para ETH Zurichin lisei.CH-8092 Zurich, S'Rtzerla_e I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusOReii'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodSUBROUTINEdn(1.l_(mlsi.OR. cc_s( n3 R3o)))R,io)))R,'''''ms_fspat'RdralllPBll---dommmmmmmmmmmmmmmmmmmmmmmmmmmmi'''ORsf'''''ORsfmetisi2libldo-1.2/src/olso/ldopolsopmSUBROUTINEdn(1.l_(mlsi.OR. cc_d( n3 R3o)))R,io)))R,'''''ms_fspat'RdralllPBll---dommmmmmmmmmmmmmmmmmmmmmmmmmmmi'''ORsf'''''ORsfmetisi2I!)! m!!a TlisRMOSAIC Le Retus.--clnddddlnr= ltig--cl3=busORs-swww.gnuX!a ram_al,al_cdIp e Retued .i eachsnddddlnr=.iIp e Retuswww.gnuX!a .le ddlnr= lrecursKvelm, by e Retum_alddlnr= la_es,alirwww.gnuX!a ,3=bi.OR2ST'Unbsurs. At .al_end2 mlis=busORs-sm'Ruswww.gnuX!a -[lo whoehas w-at.I!)! m!!a a Para!a NOTE: Dowesneed .l_3grun tlKwa halm_a? subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)n lisei. ModuNGs subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_liseUSEdn(1.moduNG_t, aMolsopmUSEdn(1.moduNG_sl_f-f--tk,ldopUSEdn(1.moduNG_sl_f-optk,ldopUSEdn(1.moduNG_LIIIE2.l_3i2USEdn(1.moduNG_ex e 2.l_3i2USEdn(1.moduNG_writein ----IMPLICIT NONEi'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodINTEGER, PARAMETER :: MKurn8888k &'xam_alelibldo-1.2/src/olso/ldopolsopmINTEGER, PARAMETER :: MKurn8888k &'xdo''OeI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMollisei. IRcludGspolsopmXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMM#iRcludG "LIIItgt,d,.h"''''tgtdo-MPI2.l_3i2INCLUDE 'mpif.h'kI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMollisei. AdddlLTO lsopmI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmREAL(MK), DIMEN/ldo(:) ,_INTENT(IN ) :: cdIpI!)! m!!a Tll_estimtl d cdIp e Rocitl d 'Rth --clsddddlnr= CBOXXXXINTEGER , DIMEN/ldo(: ),_INTENT(IN ) :: no)))R2.l_3i2i!a Tal_numbmnmoST'Unbsurs P-- snddddlnr=www.gnuINTEGER , DIMEN/ldo(:,:), INTENT(IN ) :: io)))R2.l_3i2i!a Poindar ltig--csl_ST'UnbsursCBOXXXXINTEGER , DIMEN/ldo(: ),_POINTER :: sl_spat'subsECa!a Fumli2i-l'nm,3=busORs-efffilitlKwa onddddlnr= CBOXXXXINTEGER , DIMEN/ldo(: ),_POINTER :: i'''ORsfI!)! ma!a Li-l'nm,nddddlnr= la Retued .i --cl2t.OR2.=busORs-swww.gnuINTEGER ,_INTENT(IN ) :: '''''''n(1.l!!a Toti dnumbmnmonddddlnr= CBOXXXXINTEGER ,_INTENT(_ OUT) :: ''''ORsfI!)! mi!a Tal_numbmnmonddddlnr= la RetuedCBOXXXXINTEGER ,_INTENT(_ OUT) :: etists as ma!a RTl_3i s atus, 0 onUTTcusORI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMollisei. Lt.OR2variabNGsmI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmREAL(MK):: cdIpsum,toti n3 Rt0subsECINTEGER , DIMEN/ldo(:),_POINTER ::,ORsfI!)! mLOGICAL , DIMEN/ldo(:),_POINTER ::,not_a Retued,not_ORsfedCBOXXXXINTEGER , DIMEN/ldo(LIIItim) :: ldcCBOXXXXINTEGER :: e,jmie,jjmk,elilCBOXXXXINTEGER :: es atle'XLt,rank,nORsfmeORsfmendd,jndd,na RetuedCBOXXXXCHARACTER(LIIIchar) :: BesgCBOXXXXINTEGER :: a Retuedtorankin ----iO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmi. ExdarnalsmI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMolsopmisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. IR CBOXXsumisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lise -[E2sl_f-f--(_E2._SUBROsi.OR. cc',polsopmetisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. ----BOadddlLTO CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ItroLIIItebug _GT. divi kin ------ -[E20 cbdip_p-ifa lsopmetis_s2p0 dc & p-ifa dex e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. MakclsdrewesXL!--enough amory0fo R.le sl_spat'misubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_liseeoptp p,I10,A)') 'occccc.f ain ----ldc(1) = '''''''n(1.l -[E2.oficcccc(s_f2pat'Rldc#elilletisi2d_m_fslsopmeti_s2pdivi kin ------BOIIeturn8888---BOX''''Pr ag,bdivi kin -----BOXLII10,Aurninex e tlK_al','''''m' sl_spat'smaxEc_w'r ag,bdivi -[E2.ofil_3 Return3i2ddcccc,_E2._SUBROsi.OR. cc', ralllPBll---dommmmmmmmmmmmmB &'xmaxEc_wri2d_m_fspat', c & p-ifa dex e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. ----BOwesonlysXL!--oC Lp=busORs-,wesore doC CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ItroLIIInpat' _T_no1ivi kin ------B!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_isei. Ax e tl 2--clI'''ORsfpadrayin ------B!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_iseeoptp p,I10,A)') 'occccc.f ain -------ldc(1) = '''''''n(1.l .l -[E2.oficcccc(i'''ORsf'ldc#elilletisi2d_m_fspatlsopmetis_s2p0 dci kin ------BOXLLIIeturn8888---BOX''''Pr ag,bdivi -[i kin -----BOXLII10,Aurninex e tlK_al','''''m' I'''ORsfpaxEc_w'r ag,bdivi i -[E2.ofil_3 Return3i2ddcccc,_E2._SUBROsi.OR. cc', ralllPBll---dommmmmB &'xmaxEc_wri2d_m_fspat', c IIjjindns---(t rn_,noi)om))-----BOXL!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_isei. A Retu2 mlinddddlnr= ltig--cl3=busORs-Ra_esMTl_3iI!)! mOXL!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ise''''ORsfp,In''''''n(1.l .l I'''=1,'''''''n(1.lbsECOX ORsf(isdd) = ''n(1.lbsECOXs_fspat'(isdd) = fixerank-(t rn_,noi)oINEbdc-!! f & p-ifa dex misubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. andcex e tl 2so-B amory0fo R.le ORsfs P--logi.OR la_esiR CBOXXz, )t_lisei. .lemltig-rue, sinc noC LP----clsddddlnr= sXL!--beenla Retued yet.I!)! m! 2--cl2i-l'not_a Retueds=_ei tl 2i----clsddddlnr=ehas beenla RetuedI!)! m! 2-o 0l3=busORs-ea_es,al_2i-l:,not_ORsfed holds.--clnddddlnr= lthafI!)! mi. XL!--beenlpush,dsontig--clf-f-BO(ORsf(:))nondd(0tigbela Retued - )t_lisei. wesneed .lisRs-f-BOsinc oC Lnew sddddlnr=e'RuscXL!--sevurich)t_lisei. ST'Unbsurs a_es,al_wayndd(0arela Retued .i pat'smrequir s---isRs-f-BOisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lise -[E2.oficcccc(not_a Retued,ldc#elilletisi2d_m_fslsopmeti_s2pdivi kin ------BOIIeturn8888---BOX''''Pr ag,bdivi kin -----BOXLII10,AurniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiralllPBll---nex e tlK_al2t.OR2adray (1) onXz, ','''''m' axEc_w'r ag,bdivi -[E2.ofil_3 Return3i2ddcccc,_E2._SUBROsi.OR. cc', ralllPBll---dommmmmmmmmmmmmB &'xmaxEc_wri2d_m_fspat', c & p-ifa dex e subsEC -[E2.oficcccc(not_ORsfed ,ldc#elilletisi2d_m_fslsopmeti_s2pdivi kin ------BOIIeturn8888---BOX''''Pr ag,bdivi kin -----BOXLII10,AurniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiralllPBll---nex e tlK_al2t.OR2adray (2) onXz, ','''''m' axEc_w'r ag,bdivi -[E2.ofil_3 Return3i2ddcccc,_E2._SUBROsi.OR. cc', ralllPBll---dommmmmmmmmmmmmB &'xmaxEc_wri2d_m_fspat', c & p-ifa dex e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. IR CBOXXzeR.le ORsfs tig-rue subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisenot_a Retueds= .TRU-. )t_lisenot_ORsfed = .TRU-.-subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. Ax e tl 2so-B amory0fo R.le f-f-BO(ORsf(:))isubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_liseeoptp p,I10,A)') 'occccc.f a )t_lisee'XLt = MAXVAL(no)))R)isubsECldc(1) = iOXLtMME2.l_ -[E2.oficcccc(ORsf'ldc#elilletisi2d_m_fslsopmeti_s2pdivi kin ------BOIIeturn8888---BOX''''Pr ag,bdivi kin -----BOXLII10,AurniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiralllPBll---nex e tlK_al2t.OR2adray (3) onXz, ',e'XLt,' axEc_w'r ag,bdivi -[E2.ofil_3 Return3i2ddcccc,_E2._SUBROsi.OR. cc', ralllPBll---dommmmmmmmmmmmmB &'xmaxEc_wri2d_m_fspat', c & p-ifa dex e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. Cnmod_ 2--cl2cti dcdIp e_es,al_avurigl_cdIp perl_=busORs-www.gnu.O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----gcti n3 p p,I .0_MKin ---- I=1,''''s''n(1.lbsEgcti n3 p=Egcti n3 p+_cdIp(i) p-ifa deDOe subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. Pushs,al_firND sddddlnr=eontig--clf-f-BOisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisees_f_____________,I1------BnORsf____________,I1------BiORsf____________,I0subsECisubsEClRsf(nORsf) _____,I ''n(1.l------Bna Retueds_______,I0 subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. loop,ovnr .l_33=busORs-swww.gnuXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei.TODO:---isl_m_f P----clMOSAIC Lneedsmrewritein ---- rank=0,LIIInpat'-1------BOXL!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_isei. iR CBOXXzeR.le n3 pP----clcurrnfan_=busORs-Ra_esMTset .al_f-f-BMME2.l_isei. .i poindltig--clnexD sddpP----clprevious_f-f-BMME2.l_isei=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_isecdIpsum__________,I0.0_MKin ---- sees_f_____________,IORsf(iORsf+1m_fspat', ORsf(1) _________,I ''n(1.lbsEnot_ORsfed ____,I.TRU-.-subsECbsEnot_ORsfed(isdd) = .FA---.-n ---- seeORsf____________,I0subsEC -BnORsf____________,I1-subsEC -Ba Retuedtorank___,I0subsEC -B!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_isei. keep iRcludoNs,s''ddlnr= luntilR.le n3 pexceedsm,al_avurigl_cdIpMME2.l_isei. bd_ makclsdreyousget at lea3 pPnclnddRa_eslea!--at lea3 pPnclnddRMME2.l_isei. .i --clMelnr=oNs,s=bu'''n(1.l m! 2--clfactorI0.5 helps_fplittm_al,al_loademorulequOR2amongst .l_33=bu'''n(1.l m! 2A Retu2 mso-at lea3 pPnclnddddlnr=e.i eachs_=busORs-www.gnu -B!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_iseiPRINT *, fixerank,'OR.Egcti n3 ',rank,gcti n3 *REAL(10,A) cc_speed(rank ,MKm_fspat', ''n(1.l .l WHIL -(a Retuedtorank_T_n0).srt ralllPBll---dommmmmmm(na Retued+1_T_n''''s-oLIIInpat'-rank-1).srt ralllPBll---dommmmmmm(na RetuedTLT.''''s-oLIIInpat'-rank-1).ANDt ralllPBll---cdIpsum+0.5_MK*cdIp(isdd)TL2pgcti n3 *REAL(10,A) cc_speed(rank ,MKm))_s2p_p-ifa KI i. .l_3i2d_miPRINT *, fixerank, 'OR.E1',(a Retuedtorank_T_n0) i. .l_3i2d_miPRINT *, fixerank, 'OR.E2',na Retued+1_T_n''''s-oLIIInpat'-rank-1) i. .l_3i2d_miPRINT *, fixerank, 'OR.E3',na RetuedTLT.''''s-oLIIInpat'-rank-1) i. .l_3i2d_miPRINT *, fixerank, 'OR.E4',cdIpsum+0.5_MK*cdIp(isdd)TL2pgcti n3 *REAL(10,A) cc_speed(rank ,MKm i. .l_3i2d_miPRINT *, fixerank,'OR.Eill_rlrank,endd,cdIp(isdd) i. .l_3i2d_miPRINT *, fixerank,'OR.Eio)))Rrlrank,endd,io)))R(:,isdd) . .l_3i2d_mi!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!- . .l_3i2d_mi!miPop,--cl2i-l'andce Retu2--clnexD sddddlnr=e.i .l_33=busORs-: rank-(t rn_,no_mi!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!- . .l_3i2d_mieORsf______________,I ORsf_+ 1------BOXLIIIes_f_______________,IORsf(iORsf) . .l_3i2d_micdIpsum____________,IcdIpsum_+_cdIp(isdd) . .l_3i2d_mis_fspat'(isdd) ____,Irank-(t rn_,no_minot_a Retued(isdd) = .FA---.- . .l_3i2d_mi!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!- . .l_3i2d_mi!miIncMelnfangle nundar fo R,al_numbmnmoa Retueds''''''n(1.lbsECOX!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!- . .l_3i2d_mina Retueds_________,Ina Retueds+ 1------BOXLIIIa Retuedtorank_____,Ia Retuedtorank_+I1-subsEC -B_mi!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!- . .l_3i2d_mi!miReax e tl 2--cl2Rsf_.i holdR,al_numbmnmoST'Unbsurs P----clnddsubsEC -B_mi!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!- . .l_3i2d_miItroSORsf_+ no)))R( )_GT.e'XLtivi kisubsECCCCCCCCCCeoptp p,I10,A)') 'occccc.grow_preimrvtMME2.l_CCCCCCCCCe'XLt = SORsf_+ no)))R( )MME2.l_CCCCCCCCCldc(1) = iOXLtMME2.l_CCCCCCCCC -[E2.oficcccc(ORsf'ldc#elilletisi2d_m_fsl_3i2d_miItrometi_s2pdivi kin ------BOCCCCCCCCCeIeturn8888---BOX''''Pr ag,bdivi -[iCCCCCC kin -----BOXLII10,AurniralllPBOXRt.OR OOOOO'ex e tlK_al2t.OR2adray (3) onXz, ',e'XLt,' axEc_w'r ag,bdivi CCCCCCCCC -[E2.ofil_3 Return3i2ddcccc,_E2._SUBROsi.OR. cc', ralllPBll---dommmmmmmmmmmmmmmmmmmmmmB &'xmaxEc_wri2d_m_fspat', c IIIIIIIIjjindns---(t rn_,noooooooi)om))-----BOXL ,, dex e subsECCCCCCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!- . .l_3i2d_mi!miiRcludG .al_ST'Unbsurs oes_f_in --cl2i-l'nm,nddddlnr= lti . .l_3i2d_mi!miconsider subsECCCCCCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!- . .l_3i2d_mi I=1,'o)))R( )MME2.l_CCCCCCCCCjndd = io)))R(i,isdd) . .l_3i2d_miCCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCC! 20 cbdO o)))R(i,isdd)Ri axready in --cl2i-l . .l_3i2d_miCCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCCItroSot_a Retued(j )_ANDtnot_ORsfed(j )ivi kin ------BOCCCCCCCCnORsf____________,InORsf_+ 1------BOXLIIIIIIIIIlRsf(nORsf) _____,IjnddsubsEC -B_miCCCCCCnot_ORsfed(j ) = .FA---.-n ---- seeeeeee dex misubsECeeeeee deDOe subsEC_miCCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.------ . .l_3i2d_mi!miI--cre_i niLnew elelLTO levxEcabNG,E CR)-a mean -wolthK_as: . .l_3i2d_mi!mi1) ei--cr wesore doC (XL!--a Retueds mlindds) s-e . .l_3i2d_mi!mi2)wesXL!--strand,dson a 2islandce_esneed .i get a f3i2y subsEC_miCCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.------ . .l_3i2d_miItromORsf+1_GT.nORsf) i kin ------BOXLLCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCC! 2Findce sddddlnr=e.-atEhas Sitcyet beenla RetuedI!)! mi2d_miCCC! 2We doe.-atEby loopoNs,ovnr mli.l_3ndd(0e_es0 cbdoNs, --cyisubsECCCCCCCCCCi. XL!--beenla RetuedI!)! mi2d_miCCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- '''tgtdo-VECTORin ------BOXLLCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCC! 2Tal_vectorIversKwani anXmple doeloop: .al_Sitce Retued 'Rth . .l_3i2d_miCCC! 2--clhigeNDs=de'Ruscwinin ------BOXLLCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCCindd = 0_wri2d_m_fto gra I=1,''''s,1------BOXLIIIIIIIIIItroSot_a Retued( )_ci kin ------BOXLLCCCCCCCCindd = i in ------BOXLLCCCCCi)om))-----BOXL ,,ooo deDOe#els- subsEC--BOXLLCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCC! 2Tal_s.ORarIversKwanf-f--sl,al_loop,atEnndd(0tigobtnr=e.-- subsEC--BOXLLCC!misL!--solulKwa asl,al_vectorIversKwa. BothsMTl_3iCindd = 0_wri2d_m_fto grai. 0mlinddssXL!--beenla Retued -whichs)-aSitcbe a_es'Ruswww.gnum_fto grai. b_3gretl d a abug !in ------BOXLLCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCCindd = '''''''n(1.lbsECOXL l WHIL -.NOT.not_a Retued(isdd)) in ------BOXLLCCCCCindd = indd - 1------BOXLIIIIIIIIIlsopm'ubTLT.1) EXIT)-----BOXL ,,ooo deDOe#eI!)! m XLOXLLCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCCi. es_f_is zero 0mlinddssXL!--beenla Retued a_es'l_exite.-- subsEC--BOXLLCC!miloop . .l_3i2d_miCCC!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCCItrom'ubTLT.1) i kin ------BOXLLCCCCCEXIT)-----BOXL ,,ooo ddlin ------Bi2d_miCCCItroLIIItebug _GT. divi kin ------------------- kin -----BOXLII6urniiiralllPBll---dommmmmmmmmmmmm'fowgt a 2island. ChosenlnddRasLnew land: ',e'ddsubsEC -B_miCCCCCC CC -[E2.ofiwrite(fixerank,'E2._SUBROsi.OR. cc',----Bi2d_m_fspat', c IIIIIIIi)om))-----BOXL ,,ooo dem)p'cc,lmodddddddddd!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCCi. or wesdiesMTachsa 2islandce_espushs,al_new landeontig--clf-f-Bcc,lmodddddddddd!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.--- . .l_3i2d_miCCCnORsf_______,InORsf_+ 1------BOXLIIIIIIlRsf(nORsf) = ''n(1.lbsECOX dex misubsECeeei)oINEbdc-!!d)oDOe dddddd!=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---ndi,n.--- . .l_3! 2A Retu2laND sdd ltig--cllaND _=busORs-www.gnu.O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ---- I'''=1,'''''''n(1.lbsEItroSot_a Retued( )ivi kin ------BOCCs_fspat'(isdd) ____,ILIIInpat' - 1------BOXLIIInot_a Retued(isdd) = .FA---.-1.lbsECOX dex m ''n(1.li)oINEbdc-!!!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. DebuggoNs:20 cbdO.-atE mlinddddlnr= lXL!--beenla RetuedI!)! mXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMME2.l_ItroLIIItebug_GT.divi kin -------i = 0_wri2d_m_f I'''=1,'''''''n(1.lbsECOXItroSot_a Retued( )ivi kin ------BOCC---i = i_+ 1misubsECeeeeee dem))-----BOXL deDOe subsEC_miXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_fs mIwesfowgt a y, writesa 2l_3 RmB sigl_andebxEc OSA ! subsEC_miXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_fItrom_s2pdivi kin ------BOCCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d kin -----BOXLII10,AurninmiOR,d: ',em' sl_lddlnr= 'r ag,bdivi CC -[E2.ofil_3 Return3i2d''''_map,_E2._SUBROsi.OR. cc', ralllPBll---dommmmmmmmmmmmmB &'xmaxEc_wri2d_m_fspat', cIIjjindns---(t rn_,noi)om)) subsEC_miXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_fs mDo2so-B s atRsfics (onlysroof) . .l_3i2dXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_fItrofixerank_T_n0)vi kin ------BOCC rank=0,LIIInpat'-1------BOXLLLLLLLcdIpsum_,I0.0_MKin ---- se--BOCC I'''=1,'''''''n(1.lbsECOX2d_m_fItros_fspat'(isdd)_T_nrank kin ------BOXLIIIIi)! CLLLcdIpsum_,IcdIpsum_+_cdIp(isdd) . .l_3i2d_mirn_,noi)om))l_3i2d_mirn_,noi)oINEbdc-!! f ifa K kin -----BOXLII5,A,E12.4urnin n3 pfo R3=busORs-: rlrank,dralllPBll---dommmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm' I' ',cdIpsumMME2.l_CCCCCCCCC -[E2.ofiwrite(fixerank,'E2._SUBROsi.OR. cc',----Bi2d_mmisubsECeeeeee deDOe_mirn_,noi)om))l_3i2d_miXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_m_fs mEndeof DebuggoNs:20 cbdO.-atE mlinddddlnr= lXL!--beenla RetuedI!)! m_miXpat', & box i dex e a ParalllPBOXRt.OR CBOX_etis_. e)-a--a_wri2d_d)om)p'cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----i. Ax e tl 2--cl2t.OR22i-l'nm,nddddlnr= la Retued .i --cl2t.OR2.=busORs-cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----ldc(1) = '''''''n(1.leoptp p,I10,A)') 'occccc.f ain ---- -[E2.oficcccc(i'''ORsf'ldc#elilletisi2d_m_fslsopmeti_s2pdivi kin ------BOIIeturn8888---BOX''''Pr ag,bdivi kin -----BOXLII10,AurninI'''ORsfp'Rth dim ','''''m' axEc_w'r ag,bdivi -[E2.ofil_3 Return3i2ddcccc,_E2._SUBROsi.OR. cc', ralllPBll---dommmmmmmmmmmmmB &'xmaxEc_wri2d_m_fspat', c & p-ifa dex e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. S Isal2t.OR22i-l'nm,nddddlnr= la Retued .i --cl2t.OR2.=busORs-cc,lmod!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusORein ----''''ORsfp,I0_wri2d_ I=1,''''s''n(1.lbsEItros_fspat'(i)_T_nfixerank kin ------BOXLIII''''ORsfppppppppppp,In'''ORsf_+ 1------BOXLIIIes_flRsf(ns''ORsf) = i-1.lbsECOX dex m''n(1.li)oINEbdc-!!!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. F-ful--cl amory0agnr=www.gnu!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_liseeoptp,I10,A)') 'odeax e )bdivi -[E2.oficcccc(ORsf'ldc#elilletisi2d_m_fslsopmeti_s2pdivi kin ------BOIIeturn8888---BOX''''Pr ag,bdivi ts n3 R .l_3 Return3i2ddeax e ,_E2._SUBROsi.OR. cc', ralllPBll---domm'deax e tlKwa oORsfpaxEc_w''xmaxEc_wri2d_m_fspat', c & p-ifa dex ebdivi -[E2.oficcccc(not_a Retued,ldc#elilletisi2d_m_fslsopmeti_s2pdivi kin ------BOIIeturn8888---BOX''''Pr ag,bdivi ts n3 R .l_3 Return3i2ddeax e ,_E2._SUBROsi.OR. cc', ralllPBll---domm'deax e tlKwa onot_a RetuedsaxEc_w''xmaxEc_wri2d_m_fspat', c & p-ifa dex ebdivi -[E2.oficcccc(not_ORsfed,ldc#elilletisi2d_m_fslsopmeti_s2pdivi kin ------BOIIeturn8888---BOX''''Pr ag,bdivi ts n3 R .l_3 Return3i2ddeax e ,_E2._SUBROsi.OR. cc', ralllPBll---domm'deax e tlKwa onot_ORsfed axEc_w''xmaxEc_wri2d_m_fspat', c & p-ifa dex eEbdc-!!!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. RTl_3i subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t& _tONTINUEk-!! KI -[E2sl_f-op(_E2._SUBROsi.OR. cc',polsopmet-!! KIRETURkin ----tONTAINSin ----SUBROUTINEd0 cbdip_p-ifa ItroS'''ssTL2p0 dci kin ------BOXLLIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_ -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mlsi.OR. cc', ralllPBll---dommmmm'S'''ss.AND.b p> 0rldopolsopmetis_s2p_p-ifa KIjjind8888-(t rn_,noi)om))l_3i2d_mi I'''=1,'''''''n(1.lbsECOX2ItroSo)))R( ) TLT.0 dci kin ------BOXLLCCCCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_ -[E2.ofix8888cBldtONTIddddlLTOR.n(1.l_(mlsi.OR. cc', ralllPBll---dommmmmmmmm'So)))Ri.AND.b p>rn0 fo R0mlinddsrldopolsopmetis_s2p_p-ifa KI..fajjind8888-(t rn_,no,,,, dem))-----BOXL deDOeb8888m2d_ ONTINUEk-!! KIi)o SUBROUTINEd0 cbdi'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodi)o SUBROUTINEdn(1.l_(mlsi.OR. cc_slibldo-1.2/src/olso/ldopolsopmi)o SUBROUTINEdn(1.l_(mlsi.OR. cc_dlibn(1-1.2/src/rmsh/n(1.rmsh_comp_w)))Rts.f000644 000765 000024 00000111466 11445666063 021270 0uf-f-00dlnrf-fff000000 000000 olsopm!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. . SubMOSAIC L :2p_p-ifa KI.lll lln(1.rmsh_comp_w)))RtsEbdc-!!!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei.Copyr'Unk (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), in ----i. .l_3i2d_mi2d_m2d_m endar fo RFluXdlDynamics (DTU a Para a Para a Para TlisRfile isl_m_f P----clPST'llellPST--ING0MaxEeLIppm_me(PPM). a Para a Para PPM islf-fulsoftwore: yous)-a redistribd_e itlo_e/s-emoyRUTRUOl. itl cnnr .l_3germs P----clGNU LsORnr G ZurichP''ORceLIcense in ----i.asl_''ORsh,dsby---clF-fulSoftwore Fvwgt, I, ei--cr in ----i.versKwan3 P----clLIcense, s-e(atEyour opVKwaivanynlotcr in ----i.versKwa. a Para a Para PPM isldistribd_ed in --clhopeO--atE CR'Ruscbe-nimful, a Para bd_ WITHOUT ANY WARRANTY;R'RthOSA even --climpliAd worrantylof a Para MERCHANTABILITY s-eFITNESS FOR A PARTICULAR PURPOSE. SeIs,al a Para GNU G ZurichP''ORceLIcense fs-emorulymtails. a Para a Para YousshOSldsXL!--receiv,d 02clpy P----clGNU G ZurichP''ORceLIcensein ----i.a_es,al_GNU LsORnr G ZurichP''ORceLIcense alongR'Rth PPM.iIf not, a Para seIs. a Para a Para PST'llellPST--ING0MaxEeLIppm_me(PPM) a Para ETH Zurichin lisei.CH-8092 Zurich, S'Rtzerla_e I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusOReii'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodSUBROUTINEdn(1.rmsh_comp_w)))Rts_sogcc &',---h&',xp,Np,kernelmetis,dralllPBll---dommmmmmmmmmmmmmmmmmmmmmmmmmmmmwx1_nimr,wx2_nimr,wx3_nimri2libldo-1.2/src/olso/ldopolsopmSUBROUTINEdn(1.rmsh_comp_w)))Rts_dogcc &',---h&',xp,Np,kernelmetis,dralllPBll---dommmmmmmmmmmmmmmmmmmmmmmmmmmmmwx1_nimr,wx2_nimr,wx3_nimri2I!)! m!!a TlisRMOSAIC Lcnmod_ sl,al_w)))RtspP----clpST--ING'''n(1.l!!a whichsneed .i bclMelesh,dsin 2D.-subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. INCLUDES I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusORe RusOR(_3 RusOReiisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. ModuNGsisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_liseUSEdn(1.moduNG_LIIIE2.l_3i2USEdn(1.moduNG_ex e 2.l_3i2USEdn(1.moduNG_sl_f-f--tk,ldopUSEdn(1.moduNG_sl_f-optk,ldopUSEdn(1.moduNG_t, aMolsopmUSEdn(1.moduNG_t, a_leshMolsopmUSEdn(1.moduNG_typedefMolsopmUSEdn(1.moduNG_t, a_rmshMolsopmUSEdn(1.moduNG_writein ----USEdn(1.moduNG_SAIl_timein ----IMPLICIT NONEii'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodINTEGER, PARAMETER :: MKurn8888k &'xam_alelibldo-1.2/src/olso/ldopolsopmINTEGER, PARAMETER :: MKurn8888k &'xdo''OeI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisei.AdddlLTO CBOXXXXXO,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMMMolsopmREAL(MK), DIMEN/ldo(:,:) ______,_POINTER :: xp''n(1.l!!a PST--ING0posiVKwa CBOXXXXINTEGER ______,_INTENT(IN ) :: Np''n(1.l!!a NumbmnmopST--ING'''n(1.lINTEGER ______,_INTENT(IN ) :: gcc &'I!)! m!!a Tcc logy idLTOifimnmo-f-gelCBOXXXXINTEGER ______,_INTENT(IN ) :: ---h&'I!)! m!!a IDpP----clleshMolsopmINTEGER ______,_INTENT(IN ) :: kernelI!)! m!!a Choic LP----clkernel-nimd .i cnmod_ 2--clw)))Rts.MolsopmINTEGER ______,_INTENT(_ OUT) :: etists as ma!a RTl_3is 0 uponUTTcusORI!)! mREAL(MK), OPTldoAL, DIMEN/ldo(:,:,:),_POINTER :: wx1_nimrI!)! m!!a Im,3=esLTOR---islMOSAIC Ldoes SithK_a, bccanimg--csl''n(1.l!!a w)))Rtspore nimd afdar fo RMeleshK_aI!)! mREAL(MK), OPTldoAL, DIMEN/ldo(:,:,:),_POINTER :: wx2_nimrI!)! m!!a Im,3=esLTOR---islMOSAIC Ldoes SithK_a, bccanimg--csl''n(1.l!!a w)))Rtspore nimd afdar fo RMeleshK_aI!)! mREAL(MK), OPTldoAL, DIMEN/ldo(:,:,:),_POINTER :: wx3_nimrI!)! m!!a Im,3=esLTOR---islMOSAIC Ldoes SithK_a, bccanimg--csl''n(1.l!!a w)))Rtspore nimd afdar fo RMeleshK_aI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisei.Lt.OR2variabNGsI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_liseINTEGER, DIMEN/ldo(:,:) ____,_POINTER ::,if-f--tk,ldopINTEGER, DIMEN/ldo(:) ______,_POINTER ::,iORsf1meORsf2MolsopmREAL(MK), DIMEN/ldo(:) ______,_POINTER ::,BOX ,3=b,BE.l,3=bMolsopmREAL(MK), DIMEN/ldo(LIIItim) ::,dxi,dxMolsopmREAL(MK), DIMEN/ldo(LIIItim) ::,lenl,3=bMolsopmREAL(MK) ______ ::,x1,x2,x3,epsilonMolsopmINTEGER ______ ::,kernel_slppo--tk,ldopINTEGER, DIMEN/ldo(LIIItim+2)_ ::,ldu,ldltk,ldopINTEGER, DIMEN/ldo(LIIItim) ::,NcCBOXXXXINTEGER ______ ::,e,jmkmie,jjmkkmiedecCBOXXXXINTEGER ______ ::,jjdec,nb_sl_,npST-,ipf--tk,ldopINTEGER ______ ::,kkdec,ip1,nbpt_z,nORsf1CBOXXXXINTEGER ______ ::,ep2,ip3,nbpt_x,nbpt_y,ifaceCBOXXXXINTEGER ______ ::,endd,ifrom,ito,ip#elilles''OCBOXXXXINTEGER ______ ::,BE.l,f--numbmn,idom,nORsf2,idomltk,ldopINTEGER, DIMEN/ldo(1) _::,ldatk,ldopINTEGER, DIMEN/ldo(LIIItim) ::,NmCBOXXXXINTEGER ______ ::,'''''''n(1.lINTEGER, DIMEN/ldo(6) _::,bcdefMolsopmLOGICAL ______ ::,indarnal_w)))RtsEbdc-!!! aliasebMolsopmREAL(mk), DIMEN/ldo(:,:), POINTER ::,BOX ndd, BE.lll_MolsopmREAL(MK), DIMEN/ldo(:,:,:) __,_POINTER ::,wx1,wx2,wx3MolsopmREAL(mk) ______ ::,myepsMolsopmREAL(mk) ______ ::,tim1s,,tim1tMME2.l_ HARACTER(len=256) _ ::,msgCBOXXXXLOGICAL ______ ::,vali'I!)! mTYPE(E2._S_equi_lesh),_POINTER ::,p_leshMolsopmTYPE(E2._S_SUBR)lsopm,_POINTER ::,SUBR I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisei. IR CBOXXsuI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)I!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisei. TlisRi ahack! SomehowsXL!m_al,ro''OeR'Rth constructors r=e.-- subsEC! dn(1.moduNG_t, a_rmsh moduNGI!)! m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisen(1.rmsh_kernelnXz, = (/1,2,2,4/etisubsECNULLIFY(wx1,wx2,wx3)e subsEC -[E2sl_f-f--(_E2._rmsh_comp_w)))Rts',polsopmetisubsECindarnal_w)))Rts = .FA---.- . .l_3IF(LIIItim_T_n3dci kin ------IF(/olSENT(wx1_nimr)_ANDt-.NOT.(/olSENT(wx2_nimr))).ANDt &-(t rn_,no,,,,& -.NOT.(/olSENT(wx3_nimr)))dci kin ------BOXIIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,,& ' wx2_nimr or wx3_nimr w)))RtsplabdoNsrldopolsopmetis_s2p_p-ifa Kjjindns---(t rn_,n ddlIF(/olSENT(wx2_nimr)_ANDt-.NOT.(/olSENT(wx3_nimr))).ANDt &-(t rn_,no,,,,& -.NOT.(/olSENT(wx1_nimr)))dci kin ------BOXIIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,,& ' wx1_nimr or wx3_nimr w)))RtsplabdoNsrldopolsopmetis_s2p_p-ifa Kjjindns---(t rn_,n ddlIF(/olSENT(wx3_nimr)_ANDt-.NOT.(/olSENT(wx1_nimr))).ANDt &-(t rn_,no,,,,& -.NOT.(/olSENT(wx2_nimr)))dci kin ------BOXIIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,,& ' wx1_nimr or wx2_nimr w)))RtsplabdoNsrldopolsopmetis_s2p_p-ifa Kjjindns---(t rn_,n ND m))-----B ddlIF (LIIItim_T_n2dci kin ------IF(/olSENT(wx1_nimr)_ANDt-.NOT./olSENT(wx2_nimr)).srt&-(t rn_,no,,,,&/olSENT(wx2_nimr)_ANDt-.NOT./olSENT(wx1_nimr)))ci kin ------BOXIIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,,& 'a wx_nimr adray i miORoNsrldopolsopmetis_s2p_p-ifa Kjjindns---(t rn_,n ND m))-----B ND m)))-----!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. ----BOadddlLTO CBOXXX!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_liseItroLIIItebug _GT. divi kin ------ -[E20 cbdip_p-ifa lsopmetis_s2p0 dc & p-ifa dex e subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(ii)t_lisei. ----BO---h&'.a_es,cc &',vali'ity subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(ii)t_liseItroLIIItebug _GT. divi kin ------- -[E20 cbd_,cc &'ogcc &',vali'letisi2d_m_fspatlsop.NOT.,vali'dci kin ------BOXLLIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rnOXRt.OR OOOOO',cc &',Sitcpoindm_al,o 0lvali's,cc logyrldopolsopmetis_s2p_p-ifa KI..fjjindns---(t rn_,noi)om))-----BOXLlsop---h&'._GT. n(1.l_(mogcc &')%t%BE.l---h&'ivi kin ------BOCCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, '---h_&'.isRinvali'rldopolsopmetis_s2p_p-ifa KIjjindns---(t rn_,n NDm))-----B NDm))-----Bgcc => n(1.l_(mogcc &')%t)t_lisenl---h => gcc %---hp---h&')isubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(ii)t_lisei. Get,if-f--tk,ldop!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(ii)t_liseif-f-- =>nl---h%if-f--tisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(ii)t_lisei. A RetulnfanP----clnimful adrays/s.ORarisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(ii)t_liseNm(1:LIIItim) =enl---h%NmCBOXXXXbcdef(1:(2*LIIItim))p=Egcc %bcdef(1:(2*LIIItim))CBOXXXXS'''ss=Egcc %''''ORsfisubsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(ii)t_lisei. Ax e amory0fo RpST--ING ORsfs)t_lisei. Tle aweso-B .oficccccR'Rusc(re)ax e tl 2--cm, sowesdofanneed a 2inifI!)! mi. o R0 finOXXzeRMOSAIC .-subsEC!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(ii)t_liseeoptp p,I10,A)') 'occccc.f ain ----ldu(1) = Np''n(1.l -[E2.oficcccc(iORsf1mldu,elilletisi2d_m_fslsopmetis_s2p0 dci kin -----IIeturn8888---BOX''''Pr ag,bdi -[E2.ofil_3 Return3i2ddcccc,_E2._rmsh_comp_w)))Rts', ralllPBll---dommmmmmmmm'pST--ING ORsf 1 ILIST1rldopolsopmetis_s2p_p-if & p-ifa dex ebdivi -[E2.oficcccc(eORsf2mldu,elilletisi2d_m_fslsopmetis_s2p0 dci kin -----IIeturn8888---BOX''''Pr ag,bdi -[E2.ofil_3 Return3i2ddcccc,_E2._rmsh_comp_w)))Rts', ralllPBll---dommmmmmmmm'pST--ING ORsf 2 ILIST2rldopolsopmetis_s2p_p-if & p-ifa dex e)t_liseeoptp p,I10,A)') 'occccc.f ain ----ldu(1) = '''''''n(1.l -[E2.oficcccc(s I_etis,ldu,elilletisi2d_m_fslsopmetis_s2p0 dci kin -----OIIeturn8888---BOX''''Pr ag,bdiv -[E2.ofil_3 Return3i2ddcccc,_E2._rmsh_comp_w)))Rts', ralllPBll---dommmmmmmmm 's I_etis ax e tlKwa :2.=bblemrldopolsopmetis_s2p_p-ifa & p-ifa dex e)t_lis!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. MaxEespacK_aI!)! !O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodBOX ,3=b => gcc %-OX ,3=b'''n(1.lBE.l,3=b => gcc %-E.l,3=bslibldo-1.2/src/olso/ldopolsopmBOX ,3=b => gcc %-OX ,3=bd''n(1.lBE.l,3=b => gcc %-E.l,3=bd''n(1.l I_,I1,LIIItims2p_p-ifaN'(i)p_p-ifa=eNm(i)p- 1------BOXlenl,3=b(i)p=lBE.l,3=b(i)p- -OX ,3=b(i) p-ifa dx(i)p_p-ifa=elenl,3=b(i)/REAL(N'(i),MKm_fspat'i)oINEbdc-!!dxip-ifa=e1.0_mk/dxMolsopmepsilon_,I0.000001_mke)t_lis!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. IR CBOXXzeR.le pST--ING ORsf)t_lis!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisnORsf1p-ifa=e0_wri2ds I_etis ,I0 subsE IpST-=1,Np . .l_3i2nORsf1p-ifa-ifa=enORsf1p+ 1------BOXiORsf1(nORsf1) = ipf--tk,ldo deDOe#''''''''xEc_phys,r.l_phys,bcdef,gcc,lmomyepsurn8888myeps'''n(1.BOX ndd => gcc %-OX ''''''n(1.BE.lll_ => gcc %-E.l'''''libldo-1.2/src/olso/ldopolsopmyepsurn8888myepsd''n(1.BOX ndd => gcc %-OX '''d''n(1.BE.lll_ => gcc %-E.l'''d''n(1.!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. Loop,ovnr .l_3nddddlnr= l(sinc ,al_firND ddlnr= lare mn3 plikely)t_lisi. .i bclempty,weslook backward ltigreduc ,al_numbmnmoelelLTO lr=www.gn!i2nORsf2.aslfaND asl_o Reble)''n(1.!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lis Iddls=Egcc %''''ORsf,1,-1------BOXidomls=Egcc % ORsf(idom) p-ifa !O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa !. Loop,ovnr .l_3Melnr=oNs,sST--ING'''n(1.l !O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa nORsf2.= 0_wri2d_m_npST-.= 0_wri2d_m_ I=1,'ORsf1CBOXXXX--BOXipST-.= iORsf1(i_s2p_p-ifa K!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---Bs2p_p-ifa K!miI--c pST--ING isRinside---clcurrnfannddddlnr=,ce Retu2its2p_p-ifa K!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---Bs2p_p-ifa KIF(LIIItim_T_n3dci kin ------ifa K!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.-in ------ifa K!--c pST--ING isRin---clclosdreP----clsddddlnr=in ------ifa K!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.-in ------ifa KIF( ( xp(1,ipf--).GE.-OX '''(1,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(2,ipf--).GE.-OX '''(2,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(3,ipf--).GE.-OX '''(3,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(1,ipf--).LE.-E.l'''(1,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(2,ipf--).LE.-E.l'''(2,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(3,ipf--).LE.-E.l'''(3,idoml) ) ) i ki-(t rn_,no,,,,,,,,IF( (xp(1,ipf--).LT.-E.l'''(1,idoml) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(2,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(2)_s2p010,A)') 'obcdef_periodic)).ANDt&-(t rn_,no,,,,,,,,,, ,,&(xp(2,ipf--).LT.-E.l'''(2,idoml) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(4,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(4)_s2p010,A)') 'obcdef_periodic)).ANDt&-(t rn_,no,,,,,,,,,, ,,&(xp(3,ipf--).LT.-E.l'''(3,idoml) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(6,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(6)_s2p010,A)') 'obcdef_periodic)) ) i ki-(t rn_,no,,,,,,,, m_npST-.= npST-.+ 1------BOXLIIIIIIIII2ds I_etis(idom).= npST-------BOXLIIIIIIII ddlin ------Bi2d_miCCC nORsf2.........= nORsf2.+ 1------BOXLIIIIIIIII2deORsf2(nORsf2) = ipf--tk,ldoBOXLIIIIIIII )om))l_3i2d_mirn_,n ddlin ------Bi2d_miCCnORsf2.........= nORsf2.+ 1------BOXLIIIIIIIIeORsf2(nORsf2) = ipf--tk,ldoBOXLIIIII ND m))-----Brn_,n ddlIF (LIIItim_T_n2dci kiin ------ifa KIF( ( xp(1,ipf--).GE.-OX '''(1,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(2,ipf--).GE.-OX '''(2,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(1,ipf--).LE.-E.l'''(1,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(2,ipf--).LE.-E.l'''(2,idoml) ) ) i ki-(t rn_,no,,,,,,,,IF( (xp(1,ipf--).LT.-E.l'''(1,idoml) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(2,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(2)_s2p010,A)') 'obcdef_periodic)).ANDt&-(t rn_,no,,,,,,,,,, ,,&(xp(2,ipf--).LT.-E.l'''(2,idoml) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(4,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(4)_s2p010,A)') 'obcdef_periodic))) i ki-(t rn_,no,,,,,,,, m_npST-.= npST-.+ 1------BOXLIIIIIIIII2ds I_etis(idom).= npST-------BOXLIIIIIIII ddlin ------Bi2d_miCCC nORsf2.........= nORsf2.+ 1------BOXLIIIIIIIII2deORsf2(nORsf2) = ipf--tk,ldoBOXLIIIIIIII )om))l_3i2d_mirn_,n ddlin ------Bi2dCCC nORsf2.........= nORsf2.+ 1------BOXLIIIIIIIIeORsf2(nORsf2) = ipf--tk,ldoBOXLIIIII ND m))-----Brn_,n ND m))-----Brn ND DOe_mirn_,n!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa !. CopyR.le ORsfs (well, onlysnORsf2.changed -decreased) p-ifa !O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa ItroSORsf2_s2pnORsf1) i kin ------ifanORsf1p= nORsf2in ------ifa I=1,'ORsf1CBOXXXX--BOX iORsf1(i_.= iORsf2(i_s2p_p-ifa K deDOe_mirn_,ni)om)) subsEC_m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa !. Exite --c ORsf isRempty p-ifa !O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa ItroSORsf1_T_n0)vEXIT)----- ND DOe_mirn!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. ----BO--atEw--sold mli.l_3sST--ING'''n(1.!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisItroSORsf2_GT.divi kin ------IIeturn8888---BOX''''Pr ag,bdiv -[E2.ofil_3 Return3i2dsST-_una RR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,ll---dom'MAJOR PROBLEMrldopolsopmetis_s2p_p-ifa & p-ifa dex e)t_lis!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi.select--c pST--ING fo R'Rth sevurichddlnr=ecnmod_tlKwa (frnfch)''n(1.!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)''n(1.BE.l,f--numbmn.= 0_wri2d Iddl=1,gcc %''''ORsfp-ifa It(s I_etis(idom).GE.-E.l,f--numbmn) i kin ------ifaBE.l,f--numbmn.= s I_etis(idom))-----Brn ND m))----- ND DOe_mirneoptp p,I10,A)') 'occccc.f ain ---ldu(1) = gcc %''''ORsfp-ifaldu(2)p=lBE.l,f--numbmn)''n(1. -[E2.oficcccc(ORsf ndd,ldu,elilletisi2d_m_fIt(meti_s2pdivi kin ------IIeturn8888---BOX''''Pr ag,bdiv -[E2.ofil_3 Return3i2ddcccc,_E2._rmsh_comp_w)))Rts', ralllPBll---domm'.=bblemRin-indarnal ax e tlKwarldopolsopmetis_s2p_p-ifa & p-ifa de m)))-----ORsf ndd=0e)t_lis!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. IR CBOXXzeR.le pST--ING ORsf)t_lis!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisnORsf1p-ifa=e0_wri2d IpST-=1,Np . .l_3i2nORsf1p-ifa-ifa=enORsf1p+ 1------BOXiORsf1(nORsf1) = ipf--tk,ldo deDOe''n(1.!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. Loop,ovnr .l_3nddddlnr= l(sinc ,al_firND ddlnr= lare mn3 plikely)t_lisi. .i bclempty,weslook backward ltigreduc ,al_numbmnmoelelLTO lr=www.gn!i2nORsf2.aslfaND asl_o Reble)''n(1.!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lis Iddls=Egcc %''''ORsf,1,-1------BOXidomls=Egcc % ORsf(idom) p-ifa !O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa !. loop,ovnr .l_3Melnr=oNs,sST--ING'''n(1.l !O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa nORsf2.= 0_wri2d_m_npST-.= 0__wri2d_m_ I=1,'ORsf1CBOXXXX--BOXipST-.= iORsf1(i_ss2p_p-ifa K!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---Bs2p_p-ifa K!miI--c pST--ING isRinside---clcurrnfannddddlnr=,ce Retu2its2p_p-ifa K!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---Bs2p_p-ifa KIF(LIIItim_T_n3dci kin ------ifa KIF( ( xp(1,ipf--).GE.-OX '''(1,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(2,ipf--).GE.-OX '''(2,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(3,ipf--).GE.-OX '''(3,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(1,ipf--).LE.-E.l'''(1,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(2,ipf--).LE.-E.l'''(2,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(3,ipf--).LE.-E.l'''(3,idoml) ) ) i ki-(t rn_,no,,,,,,,,IF( (xp(1,ipf--).LT.-E.l'''(1,idoml) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(2,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(2)_s2p010,A)') 'obcdef_periodic)).ANDt&-(t rn_,no,,,,,,,,,, ,,&(xp(2,ipf--).LT.-E.l'''(2,idoml) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(4,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(4)_s2p010,A)') 'obcdef_periodic)).ANDt&-(t rn_,no,,,,,,,,,, ,,&(xp(3,ipf--).LT.-E.l'''(3,idoml) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(6,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(6)_s2p010,A)') 'obcdef_periodic)) ) i ki--(t rn_,no,,,,,,,, m_npST-.= npST-.+ 1------BOXLIIIIIIIII2dORsf ndd(idom,npf--) = ipf--tk,ldoBOXLIIIIIIII ddlin ------Bi2d_miCCC nORsf2.........= nORsf2.+ 1------BOXLIIIIIIIII2deORsf2(nORsf2) = ipf--tk,ldoBOXLIIIIIIII )om))l_3i2d_mirn_,n ddlin ------Bi2dCCC nORsf2.........= nORsf2.+ 1------BOXLIIIIIIIIeORsf2(nORsf2) = ipf--tk,ldoBOXLIIIII ND m))-----Brn_,n ddlIF (LIIItim_T_n2dci kiin ------ifa KIF( ( xp(1,ipf--).GE.-OX '''(1,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(2,ipf--).GE.-OX '''(2,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(1,ipf--).LE.-E.l'''(1,idoml) .ANDt &-(t rn_,no,,,,,,,,,,&xp(2,ipf--).LE.-E.l'''(2,idoml) ) ) i ki-(t rn_,no,,,,,,,,IF( (xp(1,ipf--).LT.-E.l'''(1,idom) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(2,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(2)_s2p010,A)') 'obcdef_periodic)).ANDt&-(t rn_,no,,,,,,,,,, ,,&(xp(2,ipf--).LT.-E.l'''(2,idoml) .srt &-(t rn_,no,,,,,,,,,, ,,& -gcc %''''_bc(4,idoml)_T_n1p-i.ANDt &-(t rn_,no,,,,,,,,,, ,,& bcdef(4)_s2p010,A)') 'obcdef_periodic))) i ki-(t rn_,no,,,,,,,, m_npST-.= npST-.+ 1------BOXLIIIIIIIII2dORsf ndd(idom,npf--) = ipf--tk,ldoBOXLIIIIIIII ddlin ------Bi2d_miCCC nORsf2.........= nORsf2.+ 1------BOXLIIIIIIIII2deORsf2(nORsf2) = ipf--tk,ldoBOXLIIIIIIII )om))l_3i2d_mirn_,n ddlin ------Bi2dCCC nORsf2.........= nORsf2.+ 1------BOXLIIIIIIIIeORsf2(nORsf2) = ipf--tk,ldoBOXLIIIII ND m))-----Brn_,n ND m)))-----Brn ND DOe_mirn_,n!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa !. CopyR.le ORsfs (well, onlysnORsf2.changed -decreased) p-ifa !O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa ItroSORsf2_s2pnORsf1) i kin ------ifanORsf1p= nORsf2in ------ifa I=1,'ORsf1CBOXXXX--BOX iORsf1(i_.= iORsf2(i_s2p_p-ifa K deDOe_mirn_,ni)om)) subsEC_m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa !. Exite --c ORsf isRempty p-ifa !O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-M p-ifa ItroSORsf1_T_n0)vEXIT)----- ND DOee_mirn!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. ----BO--atEw--sold mli.l_3sST--ING'''n(1.!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisItroSORsf2_GT.divi kin ------IIeturn8888---BOX''''Pr ag,bdiv -[E2.ofil_3 Return3i2dsST-_una RR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,ll---dom'MAJOR PROBLEMrldopolsopmetis_s2p_p-ifa & p-ifa dex e)t_lis!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. Ax e tl 2andceliasl,al_w)))Rtspiwesneed .hem.)t_lis!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisBE.l,f--numbmn.= 0_wri2d Iddl_,I1,gcc %''''ORsfp-ifa It(s I_etis(idom).GE.-E.l,f--numbmn) i kin ------ifaBE.l,f--numbmn.= s I_etis(idom))-----Brn ND m))----- ND DOee_mirneoptp,I10,A)') 'occccc.f ain ---ldl(1) = 1in ---ldl(2) = 1in ---ldl(3) = 1 -n(1.rmsh_kernelnXz,(kernel)in ---ldu(1) = n(1.rmsh_kernelnXz,(kernel)*2p-ifaldu(2)p=lgcc %''''ORsfp-ifaldu(3)p=lBE.l,f--numbmn.+ n(1.rmsh_kernelnXz,(kernel)i2d_m_fIt(((/olSENT(wx1_nimr)).ANDt/olSENT(wx2_nimr)_ANDt &-(t rn_,no,& /olSENT(wx3_nimr)_ANDtLIIItim_T_n3d.srt&-(t rn_,no,&(/olSENT(wx1_nimr)_ANDt/olSENT(wx2_nimr)_ANDt&-(t rn_,no,LIIItim_eqn2divi kin ------IIdarnal_w)))Rts = .FA---.- . .l_3atlsop.NOT.(ASSOCIATED(wx1_nimr)).srt &-(t rn_,no,,,,ll--.NOT.(ASSOCIATED(wx2_nimr)))ci ki'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodddddd -[E2.oficcccc(wx1_s,ldl,ldu,elilletisi2d_m_fsl_3atlsopmeti_s2pdivi kin ------BO----IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PBll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaaaaajjindns---(t rn_,noII ND m))-----Brn_,nwx1_nimr =>nwx1_slibldo-1.2/src/olso/ldopolsopmddddd -[E2.oficcccc(wx1_d,ldl,ldu,elilletisi2d_m_fsl_3atlsopmeti_s2pdivi kin ------BO----IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PBll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaaaaajjindns---(t rn_,noII ND m))-----Brn_,nwx1_nimr =>nwx1_d'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodddddd -[E2.oficcccc(wx2_s,ldl,ldu,elilletisi2d_m_fsl_3atlsopmeti_s2pdivi kin ------BO----IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PBll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaaaaajjindns---(t rn_,noII ND m))-----Brn_,nwx2_nimr =>nwx2_slibldo-1.2/src/olso/ldopolsopmddddd -[E2.oficcccc(wx2_d,ldl,ldu,elilletisi2d_m_fsl_3atlsopmeti_s2pdivi kin ------BO----IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PBll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaaaaajjindns---(t rn_,noII ND m))-----Brn_,nwx2_nimr =>nwx2_de#eI!)! m X ND m))-----BrnIF(/olSENT(wx3_nimr)ivi kin ------BO-IF(LIIItim_T_n3.ANDt&-(t rn_,no,,,,,,,&.NOT.ASSOCIATED(wx3_nimr)ivi ki'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodddddd dd -[E2.oficcccc(wx3_s,ldl,ldu,elilletisi2d_m_fsl_3at atlsopmeti_s2pdivi kin ------BO---- CCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_ -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PB PBll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaaaaa aajjindns---(t rn_,noII ,n ND m)))-----Brnnnnnnnwx3_nimr =>nwx3_slibldo-1.2/src/olso/ldopolsopmddddd dd -[E2.oficcccc(wx3_d,ldl,ldu,elilletisi2d_m_fsl_3at atlsopmeti_s2pdivi kin ------BO---- CCIIeturn8888---BOXLIIIE2.l_3i2d_mi2d_m2d_ -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, Pll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaaaaa aajjindns---(t rn_,noII ,n ND m))-----Brnnnnnnnwx3_nimr =>nwx3_de#eI!)! m X ,n ND m))-----Brn ND m))-----Brnwx1 =>nwx1_nimrI!)! m,nwx2 =>nwx2_nimrI!)! m,nIF(LIIItim_T_n3dcwx3 =>nwx3_nimrI!)! ddli'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmoddd -[E2.oficcccc(wx1_s,ldl,ldu,elilletisi2d_m_fsl_lsopmeti_s2pdivi kin ------BO-IIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,ll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaajjindns---(t rn_,n ND m))-----Brnwx1 =>nwx1_slibldo-1.2/src/olso/ldopolsopmdd -[E2.oficcccc(wx1_d,ldl,ldu,elilletisi2d_m_fsl_lsopmeti_s2pdivi kin ------BO-IIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,o,,,ll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaajjindns---(t rn_,n ND m))-----Brnwx1 =>nwx1_d'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmoddd -[E2.oficcccc(wx2_s,ldl,ldu,elilletisi2d_m_fsl_lsopmeti_s2pdivi kin ------BO-IIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,o,,,ll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaajjindns---(t rn_,n ND m))-----Brnwx2 =>nwx2_slibldo-1.2/src/olso/ldopolsopmdd -[E2.oficcccc(wx2_d,ldl,ldu,elilletisi2d_m_fsl_lsopmeti_s2pdivi kin ------BO-IIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,o,,,ll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaajjindns---(t rn_,n ND m))-----Brnwx2 =>nwx2_de#eI!)! m XIF(LIIItim_T_n3dci ki'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmodddddd -[E2.oficcccc(wx3_s,ldl,ldu,elilletisi2d_m_fsl_3atlsopmeti_s2pdivi kin ------BO----IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PBll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaaaaajjindns---(t rn_,noII ND m))-----Brn_,nwx3 =>nwx3_slibldo-1.2/src/olso/ldopolsopmddddd -[E2.oficcccc(wx3_d,ldl,ldu,elilletisi2d_m_fsl_3atlsopmeti_s2pdivi kin ------BO----IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PBll---dommmmmm'pbRin-w)))Rtspox e tlKwarldopolsopmetis_s2p_p-ifaaaaaaajjindns---(t rn_,noII ND m))-----Brn_,nwx3 =>nwx3_de#eI!)! m X ND m))----- ND m))-----!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. IR CBOXXzeRW)))RtsEbdc-!!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lis -[E2.ofiSAIl_time(tim1s_s2p_p-wx1 =I0.0_mke2p_p-wx2 =I0.0_mke2p_p-IF(LIIItim_T_n3dcwx3 =I0.0_mke2p_p-!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. Begin=oNs,P----clcnmod_tlKwae2p_p-!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!-MMMi)t_lisi. loop,ovnr ''''''n(1.SELECTs -SE(kernel)i2d_m_f -SE(10,A)') 'ormsh_kernel_bsp2)__wri2d_m_ Ill_ =I1,gcc %''''ORsfp-ifa lisi. loop,ovnr sST--ING'---crer=in ------ifa Ip =I1,s I_etis(i )in ------BO----I'''Os=Egcc % ORsf(i )iin ------BO----Ip1 =IINT((xp(1,ORsf ndd(indd,ip))--OX ,3=b(1) ralllPBll---dommmmmmm)*dxi(1))+2-if-f--(1,i O)iin ------BO----Ip2 =IINT((xp(2,ORsf ndd(indd,ip))--OX ,3=b(2) ralllPBll---dommmmmmm)*dxi(2))+2-if-f--(2,i O)in ------BO----IF(LIIItim_T_n3dci kin ------ifa K---Ip3 =IINT((xp(3,ORsf ndd(indd,ip))--OX ,3=b(3) ralllPBll---dommmmmmm)*dxi(3))+2-if-f--(3,i O)in ------BO---- ND m)))-----Brnnnnnnniedec.= 0_wri2d_m_______jjdec.= 0_wri2d_m_______kkdec.= 0__wri2d_m_______!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.-in ------ifa K! BsplinG'-2_wri2d_m_______!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.-i_wri2d_m_______ Iip-if= ip1,ip1+1------BOXLIIIIIIIIeedec.= eedec.+ 1------BOXLIIIIIIIIx1 =IABS(REAL(ii-2+if-f--(1,i O),mk)-( ralllPBll---dommmmmmmmmxp(1,ORsf ndd(indd,ip))--OX ,3=b(1))*dxi(1))i-(t rn_,no,,,,,,,,IF(x1.LE.1.0_mkdci kin ------ifa K--- p-wx1(eedec,indd,ip) =Ie1.0_mk -Ix1in ------ifa K--- ND m))-----Brnnnnnnn ND DOee_mirnnnnnnnnnn! Loop,ovnr y direclKwae2p_p---------- jj----=,ep2,ip2+1------BOXLIIIIIIIIjjdec.= jjdec.+ 1------BOXLIIIIIIIIx2 =IABS(REAL(jj-2+if-f--(2,i O),mk)-( ralllPBll---dommmmmmmmmxp(2,ORsf ndd(indd,ip))--OX ,3=b(2))*dxi(2))i-(t rn_,no,,,,,,,,IF(x2.LE.1.0_mkdci kin ------ifa K--- p-wx2(jjdec,indd,ip) =Ie1.0_mk -Ix2_wri2d_m_______ -- ND m))-----Brnnnnnnn ND DOern_,no,,,,,,,,IF(LIIItim_T_n3dci kin ------ifa K---! Loop,ovnr z direclKwae2p_p---------- -- kk- --=,ep3,ip3+1------BOXLIIIIIIII __kkdec.= kkdec.+ 1------BOXLIIIIIIIII2dx3 =IABS(REAL(kk-2+if-f--(3,i O),mk)- (ralllPBll---dommmmmmmmmmmmxp(3,ORsf ndd(indd,ip))--OX ,3=b(3))*dxi(3))i-(t rn_,no,,,,,,,, m_IF(x3.LE.1.0_mkdci kin ------ifa K--- p- ,nwx3(kkdec,indd,ip) =Ie1.0_mk -Ix3in ------ifa K--- p- ND m))-----Brnnnnnnn nn ND DOern_,no,,,,,,,, ND m)))-----Brnnnn ND DOee_mirnnnn ND DOee_mirn -SE(10,A)') 'ormsh_kernel_mp4)) subsEC_m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.- subsEC_m! M Prime Fvwr subsEC_m!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.- subsEC_m Ill_ =I1,gcc %''''ORsfp-ifa lisi. loop,ovnr sST--ING'---crer=in ------ifa Ip =I1,s I_etis(i )in ------BO----I'''Os=Egcc % ORsf(i )iin ------BO----Ip1 =IINT((xp(1,ORsf ndd(indd,ip))--OX ,3=b(1) ralllPBBBBBBBBBBBBBBBll---dommm)*dxi(1))+2-if-f--(1,i O)iin ------BO----Ip2 =IINT((xp(2,ORsf ndd(indd,ip))--OX ,3=b(2) ralllPBBBBBBBBBBBBBBBll---dommm)*dxi(2))+2-if-f--(2,i O)in ------BO----IF(LIIItim_T_n3dci kin ------ifa K---Ip3 =IINT((xp(3,ORsf ndd(indd,ip))--OX ,3=b(3) ralllPBBBBBBBBBBBBBBBll---dommm)*dxi(3))+2-if-f--(3,i O)in ------BO---- ND m)))-----Brnnnnnnniedec.= 0_wri2d_m_______jjdec.= 0_wri2d_m_______kkdec.= 0__wri2d_m_______ Iip= ip1-1,ip1+2_wri2d_m_______ --eedec.= eedec.+ 1------BOXLIIIIIIIIx1 =IABS(REAL(ii-2+if-f--(1,i O),mk)-( ralllPBll---dommmmmmmmmxp(1,ORsf ndd(indd,ip))--OX ,3=b(1))*dxi(1))i-----BOXLIIIIIIIIIF(x1.LE.2.0_mkdci kin ------ifa K--- p-IF(x1.LE.1.0_mkdci kin ------ifa K--- p- p-wx1(eedec,indd,ip) =I1.0_mk -Ix1**2*(2.5_mk-1.5_mk*x1)i-----BOXLIIIIIIII II ddlin ------Bi2d_miCCC p-wx1(eedec,indd,ip) =I2.0_MK.+ (-4.0_MK.+ ralllPBll---dommmmmmmmmmmmmmm(2.5_MK.-I0.5_MK.*Ix1)*x1)*x1in ------ifa K--- p- ND m))-----Brnnnnnnn nn ND m))-----Brnnnnnnn ND DOee_mirnnnnnnnnnn jj-=,ep2-1,ip2+2_wri2d_m_______ --jjdec.= jjdec.+ 1------BOXLIIIIIIIIx2 =IABS(REAL(jj-2+if-f--(2,i O),mk)-( ralllPBll---dommmmmmmmmxp(2,ORsf ndd(indd,ip))--OX ,3=b(2))*dxi(2))i-(t rn_,no,,,,,,,,IF(x2.LE.2.0_mkdci kin ------ifa K--- p-IF(x2.LE.1.0_mkdci kin ------ifa K--- p- p-wx2(jjdec,indd,ip) =I1.0_mk -Ix2**2*(2.5_mk-1.5_mk*x2)i-----BOXLIIIIIIII II ddlin ------Bi2d_miCCC p-wx2(jjdec,indd,ip) =I2.0_MK.+ (-4.0_MK.+ ralllPBll---dommmmmmmmmmmmmmm(2.5_MK.-I0.5_MK.*Ix2)*x2)*x2in ------ifa K--- p- ND m))-----Brnnnnnnn nn ND m)))-----Brnnnnnnn ND DOee_mirnnnnnnnnnnIF(LIIItim_T_n3dci kie2p_p---------- -- kk- --=,ep3p- 1,,ep3+2_------BOXLIIIIIIII __kkdec.= kkdec.+ 1------BOXLIIIIIIIII2dx3 =IABS(REAL(kk-2+if-f--(3,i O),mk)- (ralllPBll---dommmmmmmmmmmmxp(3,ORsf ndd(indd,ip))--OX ,3=b(3))*dxi(3))i-----BOXLIIIIIIIII2dIF(x3.LE.2.0_MKdci kin ------ifa K--- p- p-IF(x3.LE.1.0_MKdci kin ------ifa K--- p- p- ,nwx3(kkdec,indd,ip) =Ie1.0_MK.-Ix3**2*(2.5_MK.-I&-(t rn_,no,,,,,,, PB PBBBBBBBBBB& 1.5_MK*x3)eo,,,,,,, PB PBBBBBBBBBB ddlin ------Bi2d_miCCC p- ,nwx3(kkdec,indd,ip) =Ie2.0_MK.+ (-4.0_MK.+ ralllPB_,no,,,,,,, PB PBBBBBBBBBB& (2.5_MK.-I0.5_MK*x3)*x3)*x3eo,,,,,,, PB PBBBBBBBBBB ND m))-----Brnnnnnnn nnBBB ND m))-----Brnnnnnnn nn ND DOern_,no,,,,,,,, ND m))rnnnnnnn nn ND DOern_,no,, ND DOern_,n ND SELECT)''n(1. -[E2.ofiSAIl_time(tim1e)i2d_m_fItroLIIItebug.gtpdivi kin ------WRITE(msg,*) 'naked calc,P--w)))Rtsptook [ms]: ',1000.0*(tim1e-tim1s_s2p_p-(1. -[E2.ofiwriteoLIIIrankR.n(1.rmsh_comp_w)))Rts',msg,etis_s2p_p- ND m)))-----B!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei.Deax e tlKwa P----cladrays....)-----B!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_liseeoptp,I10,A)') 'odeex e 2.l_3i2lda(1) = 0_wri2d_ -[E2.oficcccc(iORsf1mlda,elilletisi2d_m_fslsopmeti_s2pdivi kin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTIdeex e , &-(t rll---domm'.(1.rmsh_comp_w)))Rts', &-(t rll---domm'.bRin-iORsf1 deox e tlKwarldopolsopmetis_s2p_p-ifaa & p-ifa dex ebdivi -[E2.oficcccc(eORsf2mlda,elilletisi2d_m_fslsopmeti_s2pdivi kin ------BIIeturn8888---BOXLIIIE2.l_3i2d_m -[E2.ofix8888cBldtONTIdeex e , &-(t r,ll---dom'E2._rmsh_comp_w)))Rts', &-(t r,ll---dom'EbRin-iORsf2 deox e tlKwarldopolsopmetis_s2p_p-ifaa & p-ifa dex e)-----B!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. Now why wa ef--h would you wantltigdeox e tl 2--cm?)-----B!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)#ifdeCOMPLETELY_LOCO2d_m_fslsopmedarnal_w)))Rtsivi kin ------- -[E2.oficcccc(wx1mlda,elilletisi2d_m_fs_fslsopmeti_s2pdivi kin ------B--BIIeturn8888---BOXLIIIE2.l_3i2d_md_m -[E2.ofix8888cBldtONTIdeex e , &-(t r,ll---dom-dom'E2._rmsh_comp_w)))Rts', &-(t r,ll---dom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaa & p-ifa ,, ND m))rnnnnnnn -[E2.oficcccc(wx2mlda,elilletisi2d_m_fs_fslsopmeti_s2pdivi kin ------B--BIIeturn8888---BOXLIIIE2.l_3i2d_md_m -[E2.ofix8888cBldtONTIdeex e , &-(t r,ll---dom-dom'E2._rmsh_comp_w)))Rts', &-(t r,ll---dom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaa & p-ifa ,, ND m))rnnnnnnn IF(LIIItim_T_n3dci kin ------ifa -[E2.oficcccc(wx3mlda,elilletisi2d_m_fs_fs_fslsopmeti_s2pdivi kin ------B--B--BIIeturn8888---BOXLIIIE2.l_3i2d_md_md_m -[E2.ofix8888cBldtONTIdeex e , &-(t r,ll---dom-domom'E2._rmsh_comp_w)))Rts', &-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa & p-ifa ,, II )om))l_3i2d_mi NDm))-----B NDm))#eI!)! mIF(.NOT.medarnal_w)))Rtsivi kin -------NULLIFY(wx1_s,wx1_d)in -------NULLIFY(wx2_s,wx2_d)in -------NULLIFY(wx3_s,wx3_d)in ---- ND m)))-----B!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. RTl_3i)-----B!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t& _m ONTINUlin ---- -[E2sl_f-op(_E2._rmsh_comp_w)))Rts',polsopmetn ----RETURkin ---- ONTAINSin ----SUBROUTINE20 cbdip_p-ifa lsopNp _GT. divi kin -------a lsopSIZE(xp,2) .LT. Npivi kin ------BO----IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PBll-'Sitcenough sST--ING'-contained in-xprldopolsopmetis_s2p_p-ifaaaaaaajjind8888)rnnnnnnn nn NDm))rnnnnnnn nnlsopSIZE(xp,1) .LT. LIIItimivi kin ------BO----IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PBll-'leadoNs,timensKwa P--xpRinsufficiLTOrldopolsopmetis_s2p_p-ifaaaaaaajjind8888)rnnnnnnn nn NDm))rnnnnnnn NDm))rnnnnnnnlsopNp _L2p0 dci kin -----OnnnlsopNp _LT. divi kin -------a ---IIeturn8888---BOXLIIIE2.l_3i2d_mi2d_i -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,, PBll-'sST--ING'-must bclspecifie'rldopolsopmetis_s2p_p-ifa KIaajjind8888)rnnnnnnn nn ND m))rnnnnnnn nnjjind8888)rnnnnnnn ND m))-----BrnIF ((kernel_LT.1).srt(kernel_GT.4)dci kin ------BOXIIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,,& 'wroNs,kernel definifKwarldopolsopmetis_s2p_p-ifaaaajjind8888)rnnnnnnn ND m))-----Brnkernel_supportp,I10,Armsh_kernelnXz,(kernel)*2p-ifa mIF(.NOT.((kernel_support_T_n2d.srt(kernel_support_T_n4) ralllPBBBBBBBBB& .srt(kernel_support_T_n6))dci kin ------BOXIIeturn8888---BOXLIIIE2.l_3i2d_mi2 -[E2.ofix8888cBldtONTIddddlLTOR.n(1.rmsh_comp_w)))Rts', &-(t rn_,no,,,,,,,& 'wroNs,kernel supportrldopolsopmetis_s2p_p-ifaaaajjind8888)rnnnnnnn NDm))-8888 _m ONTINUlin ---- ND SUBROUTINE20 cbdi'''''''''xEc_phys,r.l_phys,bcdef,gcc,lmod ND SUBROUTINE2n(1.rmsh_comp_w)))Rts_slibldo-1.2/src/olso/ldopolsopm ND SUBROUTINE2n(1.rmsh_comp_w)))Rts_d' libn(1-1.2/src/rmsh/n(1.rmsh_cretl l,f--.f000644 000765 000024 00000101202 11445666063 021054 0uf-f-00omf-f-fff000000 000000 olsopm!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei. SubMOSAIC ise:(t rn_,no,,,,,,, sen(1.rmsh_cretl l,f--)-----B!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t_lisei.Copyr))Rt (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )t_lisei. Ceedar fo RFluid Dynamics (DTU)isubsEC!isubsEC!isubsEC! This fiNG isRpST-.P----clParox el PST--ING MaxEeLibrary (PPM).isubsEC!isubsEC! PPM isRfre--software: you cangredistributG it2and/o Rmoy subsEC! it2undnr .l_3darms.P----clGNU Lesimr GenurichP ORceLicense )t_lisei.asl_ ORshed byR.le Fre--Software FvwndtlKwa, ei--cr )t_lisei.versKwa 3.P----clLicense, o R(at your lilKwa)2any latcr )t_lisei.versKwa.isubsEC!isubsEC! PPM isRdistributGdRin---clhopeO--atEit2'Ruscbclnimful,isubsEC! but WITHOUT ANY WARRANTY;R'RthOSA even---climplie' wadranty.P-isubsEC! MERCHANTABILITY o RFITNESS FOR A PARTICULAR PURPOS2p0Se 2--cisubsEC! GNU GenurichP ORceLicense fo Rmore details.isubsEC!isubsEC! You should hav_3Meceived a-copy.P----clGNU GenurichP ORceLicense)t_lisei.and---clGNU Lesimr GenurichP ORceLicense aloNs,'Rth PPM.iISit,isubsEC! se 2.isubsEC!isubsEC! Parox el PST--ING MaxEeLibrary (PPM)isubsEC! ETH Zurich)t_lisei.CH-8092 Zurich, S'Rtzerland)-----B!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)i'''''''''xEc_phys,r.l_phys,bcdef,gc''''''''DIME_phys,2Dc''''''''MODE_phys,SCAc''''''''MODE2_phys,SCAc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_sss_2'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vp)MODE2_phys,VECc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_ssv_2'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vpmlda2)'MODE_phys,VECc''''''''MODE2_phys,SCAc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_svs_2'ogcc &',---h&',xp,Np,up,lda,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,cutoff_w)))Rts,field_wp,wp,vp)MODE2_phys,VECc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_svv_2'ogcc &',---h&',xp,Np,up,lda,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,cutoff_w)))Rts, &-(t rn_,no,,& field_wp,wp,vpmlda2)''DIME_phys,3Dc''''''''MODE_phys,SCAc''''''''MODE2_phys,SCAc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_sss_3'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vp)MODE2_phys,VECc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_ssv_3'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vpmlda2)'MODE_phys,VECc''''''''MODE2_phys,SCAc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_svs_3'ogcc &',---h&',xp,Np,up,lda,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,cutoff_w)))Rts,field_wp,wp,vp)MODE2_phys,VECc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_svv_3'ogcc &',---h&',xp,Np,up,lda,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,cutoff_w)))Rts, &-(t rn_,no,,& field_wp,wp,vpmlda2)'''libldo-1.2/src/olso/ldop''''''''DIME_phys,2Dc''''''''MODE_phys,SCAc''''''''MODE2_phys,SCAc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_dss_2'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vp)MODE2_phys,VECc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_dsv_2'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vpmlda2)'MODE_phys,VECc''''''''MODE2_phys,SCAc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_dvs_2'ogcc &',---h&',xp,Np,up,lda,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,cutoff_w)))Rts,field_wp,wp,vp)MODE2_phys,VECc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_dvv_2'ogcc &',---h&',xp,Np,up,lda,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,cutoff_w)))Rts, &-(t rn_,no,,& field_wp,wp,vpmlda2)''DIME_phys,3Dc''''''''MODE_phys,SCAc''''''''MODE2_phys,SCAc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_dss_3'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vp)MODE2_phys,VECc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_dsv_3'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vpmlda2)'MODE_phys,VECc''''''''MODE2_phys,SCAc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_dvs_3'ogcc &',---h&',xp,Np,up,lda,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,cutoff_w)))Rts,field_wp,wp,vp)MODE2_phys,VECc-----BSUBROUTINE2n(1.rmsh_cretl l,f--_dvv_3'ogcc &',---h&',xp,Np,up,lda,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,cutoff_w)))Rts, &-(t rn_,no,,& field_wp,wp,vpmlda2)'''I!)! m!!i.Cretl s sST--ING'-upRfrom field_upI!)! m!!iI!)! m!!i.[NOTE]I!)! m!!i.Should take square cutoff fo Rcomparisoi)-----B!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----B!. IRcludG'''n(1.l!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BUSE2n(1.moduleXLIIIE2.l_3i2USE2n(1.moduleXex e 2.l_3i2USE2n(1.moduleXsl_f-f--)-----BUSE2n(1.moduleXsl_f-op)-----BUSE2n(1.moduleXdata.rmsh)-----BUSE2n(1.moduleXdata.---h)-----BUSE2n(1.moduleXtypedef)-----BUSE2n(1.moduleXdata)-----BUSE2n(1.moduleX0 cbd_id))-----BIMPLICIT NONE)i'''''''''xEc_phys,r.l_phys,bcdef,gc-----BINTEGER, PARAMETER :: MKurn8888kind_singlelibldo-1.2/src/olso/ldopolsopmINTEGER, PARAMETER :: MKurn8888kind_double''n(1.l!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----B!. AdddlLTO'''n(1.l!O,3=busORs--_3 RusORs+d1turn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrn_,no,,:: xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!--(i)t----B!. IRcludG'''n(1.l!O,3=bud,vpmld8kind_singlelibldo-1.2/src/olso/ldopolsopmINTEGER, PARAMETER :: MKurn8888kind_double LleNewt_lis IddBOX''''Pr offmetis,resetpos,fiel.---B!--(i)PBBB,B!. IRcludG'AMETER :: 3=bud,vpmld8kind_sinuleNewtmast(indd,ip))- valuPr offmetis field_up,cut.---B!--(i)PBBB,B!. IRcludG',','--B!) 3=bud,vpmld8kind_sinR(_3 RusOn_,no,,& field_up,cut.---B!--(i)PBBB,B!. IRcludG',',','--) 3=bud,vpmld8kind_sinR(_3 RusOn_usORs--_3 RusORPd,ip))- valuPrETELanR(_3 e.g.sEC!gM)isut! PPM vpmldrecdef,,cutoffmetis,resetpos,so/ldopolsopmR :: MKurn8888kind_doubleINTEGER, in)kind_sinf fs--_3 RusORL--OnnnlsopNp _LTt.---B!--(i)PBBB,B!. IRcludG','n(1.l!O,3=bud,vpmld8kind_sinuleNewtmast(indd,ip))- valuPr offmetis field_up,cut.---B!--(i)PBBB,B!. IRcludG',',','--) 3=bud,vpmld8kind_sinR(_3 RusOn_,no,,& field_up,cut.---B!--(i)PBBB,B!. IRcludG',',',','n(3=bud,vpmld8kind_sinR(_3 RusOn_usORs--_3 RusORPd,ip))- valuPrETELanR(_3 e.g.sEC!gM)isut! PPM vpmldrecdef,,cD m)))-----BolsopmR :: MKurn8888kind_doubl, NTEGER, IN-B!) _sins--_3 RusORTlogy ID))-----BolsopmR :: MKurn8888kind_doubl, NTEGER, IN-B!) _sins--_3 RusORdi,n.IDn.---B!--(i)t----!. IRcludG2)ind_doubl, NTEGER, in-B!) _sin_3 Russ--_3 RusORLow(in(ls=Egcc 1)-ING upp(in(ls=Egcc 2)ib-clh IddBOX''''Ps--_3 RusORstrengths. ORsf1---OR CBOXmn.= 0trengthsSS FORis bDc''''''''MsORURPOS2p0a2)d.))-----BolsopmR :: MKurn8888kind_doubl, NTEGER, iel) _sinI!)!'''''''MsOR))Rts's 0 upTELsuccesolso/ldoLOGICALl, OPTludALl88kind_doubl, NTEGER, in-B!) _sinm!!iI!)'''''''MsOR))!i_p-ifa KIF(LI1.2/src/o? (R :ault .false.) offmetis,resetpos,pos,so/ldo--(i)t----OPTludAL,B!. IRcludG'A3=bud,vpmld8kind_sin m!!i.[NOTE]I'''''''MsORGived Iddl_,I1,goDOee_mirnear'''''''MsOR1tubini2lda(1) = 0_vects+dls=Egcc . Th--_3 RusOid IELapsubsE'''''''MsORto Iddl_,I1! Psum.8---BOXLIIIE2.l_)))Rts,field_wp,wp,vp--(i)PBBB,B!. IRcludG'AMETER :: 3=bud,vpm, OPTludALlsinwleNewtsldeox (id)%tsh_comppbcdefp=>diin -(iRs+d1turnimodulp=>debcdef%imoduleXdata)nmdata)=>debcdef%npn.---B!na)=>debcdef%nnodPr offmetisKurn8888kind_double''n(1. i ki- p=>diin -i ki-s''n(1. i mnddp=>diin -i mndds''n(1. Itimnddp=>diin -Itimndd i ki- p=>diin -i ki-d''n(1. i mnddp=>diin -i mnddd''n(1. Itimnddp=>diin -Itimndddturn---OR CBOXLdxt d(Itimndd(1d,ip) =I1.0_mk/--(i)nm(1d,1 p-IR CBOXLdyt d(Itimndd(2dd,ip) =I1.0_m/--(i)nm(2d,1 p-IR CBOXLIF(d_md_m -[Edzt d(Itimndd(3kkdec,indd,ip)/--(i)nm(3d,1 p-IR offmeis,resetpos,pos,so/ldoRusOR(_3 RusOReindi,n.---B!--(i)t& _m ONTINUlin ---- -[E2sl_f-op(_E2._rmsh_comp_w)c kin ---_3 RusOdl_,I1,gcc pm!!inN,so/ldoRusOR(_3 RusOReindi,n.---B!--(i)t& _m ONTINUlin ---- -[E2sl_f-op(_E2._rmsh_compmn.=_dl_,I1ingt dcc,lmodd m!!i.[NOTE]IIR CBOXLIF(_comp_w)))PROBLEMrldopolsopmeLIF(mn.=_dl_,I1ingl---dom-dom'EbRin-w2.l_3i2d2pdivi kin m!!i.[NOTE]II &-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND S2)--n DOern_,no,,,,,,,, ND & ' m!!i.[NOTE]IIIIt ---w)))Rtsii kin ------BOXIIeturn8888---BOULLIFY(wx2_s,wx2_d)in --,,, PB PBBBBBBBBBB 3 RusORf fs--_3 R-dom'EbRin-w2.l m!!i.[NOTE]I(i'obcds--_3 DOern_,no,,,,,,,, ND m))& ki- m!!i.[NOTE]I(i'oPROx2(jjdec,indd,ip) =I2.0_MK.+ (-4.0))Rtspox e tlKwarldopolsopmetis_s2p_p-iffffftis_s2p_p-ifaafaafaa ONTINUlin ---- ND S2)-- DOern_,no,,,,,,,, ND m))rnn& '0 <=n m!!i.[NOTE]I <=n1IIItviold.' DOern_,no,,,,,,,, ND m))rnn&-Brnwx1 =>nwx1_nimrI!)! m,nwx2 =====>nwx2_nimrI!)! m,nIF(LIIIIItroLIIItebug.gtpdivi n ------WRITE(msg,*troLIIItebug.gtptroLIIItebug.troLIIIurn---OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnc kinwheit2'Rtonm!!i_p-ifa.2/src/olso/ldouusOR(_3 RusOReindi,n.---B!--(i)t& _m ONTINUlin ---- -[E2sl_f-op(_E2._rmsh_comprmgcc,lmoddm!!iI!)I &-(t r,ll---domm!!i_=nm!!iI!)'''''''-,,, PB PBBBBBm!!i_=ncc,lmoddug.gtptroLIIItebug.R CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnc kinwheit2'Rtonm!!i_p-ifa.2/src/olso/ldouusOR(_3 RusOReindi,n.---B!--(i)t& _m ONTINUlin ---- -[E2sl_f-op(_E2._rmsh_compmn.=_volt dcc,lmoddpos,tebug.R CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnC kinwheit2'Rwe 2nwx2_nimrI!)! m,nItroLIIItebug.troLIIIR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrngrown ---xp_wri2dLtofnecesoaryR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEIF(m!!ibRin-iORsf2 deoxlduIdeex sopn.---B!,vplduI2eex np,ORsf2 deox E2.l_3i2d_m -[E2w)))R_fip1 =IINTIINTIdeex e , &-(txi.Crp_w)))Rts', &-(t r(t IF(l---dom'EbRin-iORsf2 deoxdeo e tlKwarldopolsoflORsf2 deoxdeotis_s2p_p-ifaafaafaa pn ---- ND S2)--n DOern_,no,,,,,,,,,& ' (1.l! ---w)))Rtsi newdBOX''''Prntxi)ow why wa ef--h would you ---B--B--BIIeturn8888---BOXLIIIEtroLIIItebug.R CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrngrown ---vp_wri2dLtofnecesoaryR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEIF(mn.=_volbRin-iORsf2 deoxlduIdeex np,ORsf2 deox E2.l_3i2d_m -[E2w)))R_fip1 =IINTIINTIdeex e , &-(tvi.Crp_w)))Rts', &-(t r(t IF(l---dom'EbRin-iORsf2 deoxdeo e tlKwarldopolsoflORsf2 deoxdeotis_s2p_p-ifaafaafaa pn ---- ND S2)--n DOern_,no,,,,,,,,,& ' (1.l! ---w)))Rtsi newdvolo,, dposow why wa ef--h would you ---B--B--BIIeturn8888---BOXLIIIEtroLIIItebug.R CBOXLinpex e , &-(tu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnT--ING'---crer again-ING i2)1---OR CBO , &-(tu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEf(i )= ------BO----Ip1 =IINT((x1,i O)iin ------BO----Ip2 =IINT((xu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xuw)c kin ---b-clh!--(con--src/olso/ldo((xu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xmodulxl,f--numbm.gtp',(%ki-s_bc p-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2%bcdef(1dd_m i2d_m -[E2bcdef_ed bspaceec,indd,ip) =I2.0_Mmodulxl,f,ep3p- 1,,e88---BOXLIIIE2.l_3i%ki-s_bc p-IF(1.d_m 1 DOern_,no,,,,,,&tisi2%bcdef(2)III i2d_m -[E2bcdef_periodicn DOern_,no,,,,,,&tisi2%bcdef(2)III i2d_m -[E2bcdef_ed bspaceec,indd,ip) =I2.0_Mnnxl,fnO----IF(LIp3p- 1,,e8,,, PB PBBBBBBBBnnxl,fnO----IF(L-1ep3p- 1,,e88---BO =IINT((xmodulyl,f--numbm.gtp',(%ki-s_bc 3-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2%bcdef(3dd_m i2d_m -[E2bcdef_ed bspaceec,indd,ip) =I2.0_Mmodulyl,f,ep3p- 1,,e88---BOXLIIIE2.l_3i%ki-s_bc 4-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2%bcdef(4)III i2d_m -[E2bcdef_periodicn DOern_,no,,,,,,&tisi2%bcdef(4)III i2d_m -[E2bcdef_ed bspaceec,indd,ip) =I2.0_Mnnyl,fnO)*dxi(3))+2-if-f--8,,, PB PBBBBBBBBnnyl,fnO)*dxi(3)-1ep3p- 1,,e88---BOoffmetis field_up,cut =IINT((xmodulzl,f--numbm.gtp',(%ki-s_bc 5-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2%bcdef(5dd_m i2d_m -[E2bcdef_ed bspaceec,indd,ip) =I2.0_Mmodulzl,f,ep3p- 1,,e88---BOXLIIIE2.l_3i%ki-s_bc 6-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2%bcdef(6)III i2d_m -[E2bcdef_periodicn DOern_,no,,,,,,&tisi2%bcdef(6)III i2d_m -[E2bcdef_ed bspaceec,indd,ip) =I2.0_Mnnzl,fnOi2d_m_______ --eed8,,, PB PBBBBBBBBnnzl,fnOi2d_m___-1ep3p- 1,,e88---BOn_,no,,& field_up,2ut.---B!0_Mmodulzl,f--numbm.gtpnnzl,f1,cun---Onumbm.gtpRoffmetis field_up,cut.---B!0_Milowbc-(1,i O),mk)',(%ki-s_bc p-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2((%bcdef(1ddII i2d_m -[E2bcdef_periodic) DOern_,no,,,,,,& tisi2(%bcdef(1ddII i2d_m -[E2bcdef_ed bspacees,kernel supportrlddilowbc-(11 ep3p- 1,,e88---BOXLIIIE2.l1h_,Ibcl,fnO----IF(L+--numbm.gtp',(%ki-s_bc p-IF(1.d_m 1 DOern_,no,,,,,,&tisi2((%bcdef(2)III i2d_m -[E2bcdef_periodic) DOern_,no,,,,,,& tisi2(%bcdef(2)III i2d_m -[E2bcdef_ed bspacees,kernel supportrlddih_,Ibcl,fnO----IF(Lep3p- 1,,e88---BOXLIIIE2.ljlowbc-(1,i O),mk)',(%ki-s_bc 3-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2((%bcdef(3)III i2d_m -[E2bcdef_periodic) DOern_,no,,,,,,& tisi2(%bcdef(3)III i2d_m -[E2bcdef_ed bspacees,kernel supportrlddjlowbc-(11 ep3p- 1,,e88---BOXLIIIE2.ljh_,Ibcl,fnO2---IF(L+--numbm.gtp',(%ki-s_bc 4-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2((%bcdef(4)III i2d_m -[E2bcdef_periodic) DOern_,no,,,,,,& tisi2(%bcdef(4)III i2d_m -[E2bcdef_ed bspacees,kernel supportrlddjh_,Ibcl,fnO2---IF(Lep3p- 1,,e88---BOXLIIIE2.lklowbc-(1,i O),mk)',(%ki-s_bc 5-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2((%bcdef(5)III i2d_m -[E2bcdef_periodic) DOern_,no,,,,,,& tisi2(%bcdef(5)III i2d_m -[E2bcdef_ed bspacees,kernel supportrlddklowbc-(11 ep3p- 1,,e88---BOXLIIIE2.lkh_,Ibcl,fnO3---IF(L+--numbm.gtp',(%ki-s_bc 6-IF(x1.d_m 1 DOern_,no,,,,,,&tisi2((%bcdef(6)III i2d_m -[E2bcdef_periodic) DOern_,no,,,,,,& tisi2(%bcdef(6)III i2d_m -[E2bcdef_ed bspacees,kernel supportrlddkh_,Ibcl,fnO3---IF(Lep3p- 1,,e88---BO =IINT((xmmmm=modulz,nnzn.---B!-B!0_M', kd_m klowbc- ki-(kd_m kh_,Ibc,kernel supportrldddddzbc_facts+-(1,5_MK.l supportrldd,,,, PB PBBBBBBBBBB zbc_facts+-(1x2(jjdl supportrldd,roLIIItebug.gtpdivmmmj=moduly,nny PB PBBBBBBBBBB ', jd_m jlowbc- ki-(jd_m jh_,Ibc,kernel supportrlddddddddybc_facts+-(1,5_MK.l supportrlddldd,,,, PB PBBBBBBBBBB dddybc_facts+-(1x2(jjdl supportrlddldd,roLIIItebug.gtpdiv B 3 Rusmodulx,nnxrI!)! m,nIF(LIIIII', d_m ilowbc- ki-( d_m ih_,Ibc,kernel supportrldddddddddddxbc_facts+-(1,5_MK.l supportrlddlddldd,,,, PB PBBBBBBBBBB ddddddxbc_facts+-(1x2(jjdl supportrlddlddldd,roLIIItebug.gtpdiv B IIu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(rI!)! m,nIF(LIIIIIu i2d_m_)t0trengthm,nIF(LIIIIIu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(roffmetis,resetpos,fiel.---B!!!!!!!!!!!!!0trength.0_MKdcR(_3 Rus(i,j,kp-IF(.),,cutoffmetis,resetpos,so/ldoooooooooooooIF(mn.=_dl_,I1ingl---dom-dom'EbRin-w!!!!!!!!!0trength.0_SQRT(SUM( DOern_,no,,,,,,,, ND m& cR(_3 Rus(1:l---d,j,kp-IF(.* m!!i.[WOTE]I(1:l--))**2D DOern_,no,,,,,,,, ND m& 0_MK.-Ix3**2*(2.5_MK.,,,, PB PBBBBBBBBBB ND m))0trength.0_SQRT(SUM(R(_3 Rus(1:l---d,j,kp-IF(.**20_MK.-Ix3**2*(2.5_MK.,roLIIIurn---Oso/ldoooooooooooooIF((0trengthoPRO m!!i.0_mktisi2(0trengthoLRO m!!i.02Ns,kernel suppppppppppppppppppinpex inpe-BOXoffmetis,resetpos,fiel.---B!!!!!!!!!!!!!!!!us(inND m)xbc_facts+*ybc_facts+*zbc_facts+*nnnnnnnnIF(LIIItim_T_n3dci kiiiiiR(_3 Rus(i,j,kp-IF(.,,cutoffmetis,resetpos,so/ldooooooooooooo!!!us(1:l---dnND m)xbc_facts+*ybc_facts+*zbc_facts+*nnnnnnnnIF(LIIItim_T_n3dci kiiiiikiiiiiR(_3 Rus(1:l---d,j,kp-IF(.Iurn---Oso/ldooooooooooooo NT', lsl1,5ow why wa ef--h would you ---B-E2.l_3i2d_mi2 msh_co8cutoffmetists, &-d_wp,wp,vp/ldrmgcc,lmoddwpktisi2_3i2dcc,lmoddR(_3 RarI &ernel supportrlddi))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaa & p ONTINUlin DOern_,no,,,,,,,,,& ' ---- ND S2)--n DOern_,no,,,,,,,,,& 'ke squarOmust CBOpm!!inND DOarOid.ow why wa ef--h would you ---B-E2.l_3i2d_mi2 msh_co,wp,vp/ldrmgcc,lmoddR(_3 RarItisi2_3i2dcc,lmoddarI &ernel supportrlddi))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaa & p ONTINUlin DOern_,no,,,,,,,,,& ' ---- ND S2)--n DOern_,no,,,,,,,,,& 'arOmust CBOpm!!inND DOke squarOid.ow why wa ef--h would you ---B-E2.l_3i2d_mi2 msh_co8cn---OsE2.lis_s2/olso/ldopolsotroLD SUBROUTINE2n(1.sss_2'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vp)MODE2_phytroLD SUBROUTIN,wp,vpmlda2)'cretl ,,cutoffmetists, &-(t rn_,no,troLD SUBROUTIN,wp,vpmlda2)'crvtl ,,cld_up,cutoffmetis,resetpos,cutoff_w)))Rts,field_wp,wp,vptroLD SUBROUTIN,wp,vpmlda2)'cvetl ,,cutoffmetists, &-(t rn_,no,troLD SUBROUTIN,wp,vpmlda2)'cvvtl ,,cld_up,c-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vp)MODE2_phytroLD SUBROUTIN,wp,vpmlda2)'cret3 ,,cutoffmetists, &-(t rn_,no,troLD SUBROUTIN,wp,vpmlda2)'crvt3 ,,cld_up,cutoffmetis,resetpos,cutoff_w)))Rts,field_wp,wp,vptroLD SUBROUTIN,wp,vpmlda2)'cvet3 ,,cutoffmetists, &-(t rn_,no,troLD SUBROUTIN,wp,vpmlda2)'cvvt3 ,,cld_up,cretl l,f--_dss_2'ogcc &',---h&',xp,Np,up,&-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vp)MODE2_phytroLD SUBROUTIN,wp,vpmlda2)'dretl ,,cutoffmetists, &-(t rn_,no,troLD SUBROUTIN,wp,vpmlda2)'drvtl ,,cld_up,cutoffmetis,resetpos,cutoff_w)))Rts,field_wp,wp,vptroLD SUBROUTIN,wp,vpmlda2)'dvetl ,,cutoffmetists, &-(t rn_,no,troLD SUBROUTIN,wp,vpmlda2)'dvvtl ,,cld_up,c-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,vp)MODE2_phytroLD SUBROUTIN,wp,vpmlda2)'dret3 ,,cutoffmetists, &-(t rn_,no,troLD SUBROUTIN,wp,vpmlda2)'drvt3 ,,cld_up,cutoffmetis,resetpos,cutoff_w)))Rts,field_wp,wp,vptroLD SUBROUTIN,wp,vpmlda2)'dvet3 ,,cutoffmetists, &-(t rn_,no,troLD SUBROUTIN,wp,vpmlda2)'dvvt3 ,,cld_up,cretl l,f--_dssf--_dlib,wp-1.2/src/vpml/,wp,vpmldrecdef.f000644 000765 000024 00000103203 11445666063 020051 0umodu00omdumodff000000 000000 n_,no,u3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnSubroutineNTE:Oern_,no,,,,,,,,,,,,,,wp,vpmldrecdefOso/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrCopyrTE] (c) 2010 CSE Lab (ETH ZuricfA3=MOSAIC Lab (ETH ZuricfA3= POINTERrnnnnnnnnnnnnnnnnnnnCinNer numbFluid Dynamics (DTU would y!would y!would y! TRis fileIIIt(1) = 0_Parallellibldo-di,n.Libr!--((PPM).would y!would y! PPMIIIted b software: you can redistribm_)tit-ING/umbmo--_yR CBOXLutit-und p-ifNerm,goDOee_mGNU Less GM)isul---Bc.License= POINTERraIt---BOh! PPM ee_mFd b Software F-clh!src/, eiit2'R POINTERrver _LT.3goDOee_mLicense, umb(at your opsrc/)-INy l'R POINTERrver _LT.would y!would y! PPMIIItdistribm_)dSS FORe hopen ----i---RPOS2p useful,would y! bm_ WITHBRO ANY WARRANTY;pmn.=out eve FORe imsubsE wwri2ntygoDwould y! MERCHANTABILITY umbFITNESS FOR AO'''TICULAR PURPOSE. Se)t_liwould y! GNU GM)isul---Bc.License=fumbmore details.would y!would y! You sn(1.l!2.would y!would y! Parallellibldo-di,n.Libr!--((PPM)would y! ETH Zuricf POINTERrCH-8092 Zuricf, Smn.zerlDc''''''''M3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, Oso/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrTODO: POINTERrnHdeox (id)%tsh_comppbcdefp=>diin -(iRs+would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOGetnimoduleXdata)RusOR(_3 RusOReindi,n.---B!--(i)t& _m ONTINUlin ---- -[E2sl_f-op(_E2._rmsh_compimodulp=>debcdef%imodulen.---B!rm(_comp_w)))PROBLEMrldopolsopmeLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xuw)C kinwl_,I1,gagainopolsopmeLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xSELECT SISEGeox ll-'O =IINT((xSISEG2 would you rmgcc,lmoddwx1_users,kernel supportrldddddrmgddd_3i2d2pdivi kinwx1_users ki-nnnnnnnIF(LIIItim_T_n3d_3i2d2pdivi kinwx2_user) ,kernel supportrlddddddddinRtspox e tlKwarldopolsopmetis_s2p_p-ifftis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnIF(LIIItim_T_n3dc'can ---recdefnmn.= emptynwl_,I1,a ---IIeturn8888---BOXLIIIE2.l_O ==>nwx2_nimrI!)! m,nIF(LIItroLIIItebug.gtpdivtroL-BO =IINT((xSISEG3 would you rmgcc,lmoddwx1_users,kernel supportrldddddrmgddd_3i2d2pdivi kinwx1_users ki-nnnnnnnIF(LIIItim_T_n3d_3i2d2pdivi kinwx2_user) ki-nnnnnnnIF(LIIItim_T_n3d_3i2d2pdivi kinwx3_users,kernel supportrlddddd ddinRtspox e tlKwarldopolsopmetis_s2p_p-ifftis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnIF(LIIItim_T_n3dc'can ---recdefnmn.= emptynwl_,I1,a ---IIeturn8888---BOXLIIIE2.l_O ==>nwx2_nimrI!)! m,nIF(LIItroLIIItebug.gtpdivtroL-BO =IINT((xtroLDELECTO =IINT((x2.l_3i2dcc,lmoddwx1_users,kernelss_2'ogcc &',---h&',xp,Np,up,&-(t r CBOXLINT((x2.l_3i2d2pdivi kinwx1_II &-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnIF(LIIItim_T_n'a2d_m_)twl_,I1,gbefore recdefnnn kin ------BOXIIeturn8888---BOULLIFY(wx2_s,wx2_d)in --8---BOn_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1.INT((x2.l_3i2d2pdivi kinwx1_dI &-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnIF(LIIItim_T_n'a2d_m_)twl_,I1,gbefore recdefnnn kin ------BOXIIeturn8888---BOULLIFY(wx2_s,wx2_d)in --8---BOn_n---Oso/ldooootroLIIItebug.troLIIIR CBOXL2.lnpd_m _) wantl5555would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrODoneXmn.= _,no,,::(E2n(1s, do aliasnnnxpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmgcc,lmoddwx1_users,kernel supportrwx1p=>dmx1_users--_3 Rrtrwx2p=>dmx2_users--_3 Rrtrrm(_compimd_m 3)nmx3p=>dmx3_users--_3 R,,,, ss_2'ogcc &',---h&',xp,Np,up,&-(t r CBOXLINTwx1p=>dmx1_ss--_3 Rrtrwx2p=>dmx2_ss--_3 Rrtrrm(_compimd_m 3)nmx3p=>dmx3_sOn_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1.INTwx1p=>dmx1_ds--_3 Rrtrwx2p=>dmx2_ds--_3 Rrtrrm(_compimd_m 3)nmx3p=>dmx3_dOn_n---Oso/ldotroLIIIR 5555s2/olso/ldopolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnSomebmore aliasnnn.would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEnxp,2 O)iin -BO----Ip1 =IINT!fnO-:ll-,1:nxp,2)in-w)))c'(')%n -dBO , &-(tn O>debcdef%n -dBO , &-(tNmO-:ll-BBBBBBBBBBBBB=debcdef%Npn.---B!bcdef(1:2*eox ll-'lllO)iin -bcdef(1:2*eox ll-'OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrn_)))Rtsi memory=fumbR(_3 ,ofnecesoaryR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEn1wmaxlO)MAXVAL(nO--iin ------BO--1:nxp,2)0_MK.-Ix3n2wmaxlO)MAXVAL(nO2-iin ------BO--1:nxp,2)0_MK.-Ix3rm(_compimd_m 3)nn3wmax=MAXVAL(nO3-iin ------BO--1:nxp,2)0_MK.-Ix3! WARN,xp:LdistnnnuiefnbetweIELscarandOvects+-a)))Rts_LTn.---B!! WARN,xp:LdistnnnuiefnbetweIEL2drandO3d-a)))Rts_LT!!MK.-Ix3rm(2pdivi kinR(_3 Russ,kernel supportr E2.lBBB=depd_m -[E2w)))R_grows--_3 R,,,, supportr E2.lBBB=depd_m -[E2w)))R_fip1 =IINT88---BOoffmetis field_up,cutoffmetis,resetpos,pos,so/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrn_)))Rtsrc/gfumb3DOvects+,so/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEldlIdeelBBB=d1 POINTEldlI2eelBBB=d1 -nghostsizeIde POINTEldlI3eelBBB=d1 -nghostsizeI2e POINTEldlI4eelBBB=d1 -nghostsizeI3e POINTEldlI5eelBBB=d1 POINTElduIdeelBBB=df fs--_3 RlduI2eelBBB=dn1wmaxl+nghostsizeIde POINTElduI3eelBBB=dn2wmaxl+nghostsizeI2e POINTElduI4eelBBB=dn3wmaxl+nghostsizeI3e POINTElduI5eelBBB=dnxp,2,,cutoffmetis,resetfiel.---B!u3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrn_)))Rtsrc/gfumb3DOscala+,so/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEldlIdeelBBB=d1 -nghostsizeIde POINTEldlI2eelBBB=d1 -nghostsizeI2e POINTEldlI3eelBBB=d1 -nghostsizeI3e POINTEldlI4eelBBB=d1 POINTElduIdeelBBB=dn1wmaxl+nghostsizeIde POINTElduI2eelBBB=dn2wmaxl+nghostsizeI2e POINTElduI3eelBBB=dn3wmaxl+nghostsizeI3e POINTElduI4eelBBB=dnxp,2,,c-(t rn_,no,,& field_up,cutoffmetis,resetpos,pos,so/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrn_)))Rtsrc/gfumb2DOvects+,so/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEldlIdeelBBB=d1 POINTEldlI2eelBBB=d1 -nghostsizeIde POINTEldlI3eelBBB=d1 -nghostsizeI2e POINTEldlI4eelBBB=d1 POINTElduIdeelBBB=df fs--_3 RlduI2eelBBB=dn1wmaxl+nghostsizeIde POINTElduI3eelBBB=dn2wmaxl+nghostsizeI2e POINTElduI4eelBBB=dnxp,2,,cutoffmetis,resetfiel.---B!u3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrn_)))Rtsrc/gfumb2DOvects+,so/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEldlIdeelBBB=d1 -nghostsizeIde POINTEldlI2eelBBB=d1 -nghostsizeI2e POINTEldlI3eelBBB=d1 POINTElduIdeelBBB=dn1wmaxl+nghostsizeIde POINTElduI2eelBBB=dn2wmaxl+nghostsizeI2e POINTElduI3eelBBB=dnxp,2,,c-(t rn_n---Oso/ldoTIdeex e , &-(tpRfrom fildl.Crp_w)))Rts', &-(t rIF(l---dom'EbRin-iORsf2 deox e tlKwarldopolsoflORsf2 deoxtis_s2p_p-ifaafaafaa pn ---- ND recdef--nnnnnnnnIF(LIIIt'R(_3 Rusow why wa ef--h would you wantltigdeox e tl 2--BO =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOInitializet_litR(_3 =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTER(_3 Rus (1,5(jjdl suppo2.lnpd_m _) wantltigdeox e t!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrORecG'---BOX''''P -BO- xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!Rrndontfneed-OR dot_l,3=ast_liygare inN,wp,moduCBwbvpml,xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!RrnPre a2d_m_nnnloperasrc/olso/ldouusOR(_3 RusOReindi,n.---B!--(i)t& _m ONTINUlin ---- -[E2sl_f-op(_E2._rmsIIIE2.l_c &',---h&',xp,Np,up,&-(t r CBOXL i inddp=>diin -i inddolso/ldoIItimnddp=>diin -ItimnddsOn_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1. i inddp=>diin -i indddlso/ldoIItimnddp=>diin -ItimndddOn_n---Oso/ldommmuB=d1,eox dopn.---B!!!!Nc(iBBBBBBBB=tNmOi_-1ep3p- 1,,efenimndd(iBB=oIItimndd(iBB-. i indd(iBep3p- 1,,edx(iBBBBBBBB=tfenimndd(iB/--(i)Nc(iB,MK)eox e tl 2----Oso/ldodxi-(1x2(jjd/dxt.---B!dv1-(1dx(de POINTEdv2-(1dx(2e POINTEif(_compimdeq 3)ndv3-(1dx(3'OR CBOXLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnSodulpa2d_m_!src/, taknnnlouND I select case=fumbspee =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTESELECT SISEGker/el2 =IINT((xu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xuwM prime 4 =IINT((xu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINTSISEGeox m -[E2vpmldker/el_mp42 =IINT((xf(i )B=d1,nxp,2, 1,i O)iin ------BO----Ip2 =IINT((x((xf(i p=1,sts+e_f--h---Ip2 =IINT((x((x 1p1-(1INT((xpO---BO- ki-O--IF,ip))- i indd(deennnnnnnIF(LIIItim_T_n3dci kI*dxi0_mk+2-imodulO----IF(Lep3p- 1,,exxxxxxip2-(1INT((xpO2--BO- ki-O--IF,ip))- i indd(2eennnnnnnIF(LIIItim_T_n3dci kI*dxi02mk+2-imodulO2---IF(Leoffmetis field_up,cut.---B!0_Mxxxxxxip3-(1INT((xpO3--BO- ki-O--IF,ip))- i indd(3eennnnnnnIF(LIIItim_T_n3dci kI*dxi03mk+2-imodulO3---IF(Le,c-(t rnffmetis,resetpos,pos,so/ldooooooooootus(1:l--BB=ous(1:l----BO- ki-O--IF,ip)),,cutoffmetis,resetfiel.---B!oooooooootusoooooooo=ous(-BO- ki-O--IF,ip)),,cn---Oso/ldoooooooooou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:rI!)! m,nIF(LIIu flipped-upside dow/gfumbeox!copfummanceOso/ldoooooooooou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:rI!)! m,nIF(LIIif(l--deq 3.and._compimdeq 3)nOReTrnffmetetis field_up,cut.---B!0_Mxxxxxxkkdec-(1,i O),mk)))))))mmmmk=ip3-1,ip3+2i O),mk)))))))xxxkkdec-(1kkdec-+f1,cun---Onumbm.gtppppppppppjjdec-(1,i O),mk))))))))))mmmjj=ip2-1,ip2+2i O),mk)))))))xxxpppjjdec-(1jjdec-+f1,i O),mk)))))))xxxppp-ddec-(1,i O),mk)))))))))))))mmmii=ip1-1,ip1+2i O),mk)))))))xxxpppppp-ddec-(1-ddec--BOXoffmis field_up,cutoffmetis,resetpos,pos,Rrnnnnnnnnnnnnnnnnnnn iiR(_3 Rus(1:l---dd,jj,kkp--Ip2&,Rrnnnnnnnnnnnnnnnnnnn iiiiiii&=R(_3 Rus(1:l---dd,jj,kkp--Ip2&,Rrnnnnnnnnnnnnnnnnnnn iiiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Rrnnnnnnnnnnnnnnnnnnn iiiiiii&*wx3(kkdec,i-IF,ip)*tus(1:l--Bi O),mk)))))))xxxppppppR(_3 Rus(1-dd,jj,kkp--Ip2nnnnnnnnIF(LIIItim_T_n3dci kii=R(_3 Rus(1-dd,jj,kkp--Ip2nnnnnnnnIF(LIIItim_T_n3dci kii+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)nnnnnnnnIF(LIIItim_T_n3dci kii*wx3(kkdec,i-IF,ip)*tus(1Bi O),mk)))))))xxxppppppR(_3 Rus(2-dd,jj,kkp--Ip2nnnnnnnnIF(LIIItim_T_n3dci kii=R(_3 Rus(2-dd,jj,kkp--Ip2nnnnnnnnIF(LIIItim_T_n3dci kii+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)nnnnnnnnIF(LIIItim_T_n3dci kii*wx3(kkdec,i-IF,ip)*tus(2Bi O),mk)))))))xxxppppppR(_3 Rus(3-dd,jj,kkp--Ip2nnnnnnnnIF(LIIItim_T_n3dci kii=R(_3 Rus(3-dd,jj,kkp--Ip2nnnnnnnnIF(LIIItim_T_n3dci kii+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)nnnnnnnnIF(LIIItim_T_n3dci kii*wx3(kkdec,i-IF,ip)*tus(3'OR,,cutoffmetis,resetfiel.---B!oooooooooxxxppppppR(_3 Rus(dd,jj,kkp--Ip2=R(_3 Rus(dd,jj,kkp--Ip2nnnnnnnnIF(LIIItim_T_n3dci kii+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)nnnnnnnnIF(LIIItim_T_n3dci kii*wx3(kkdec,i-IF,ip)*tus,,c-(t rn_,no,,& field_up,cutoffmetis,resetpos,pos,so/ldooooooooooxxxppppppR(_3 Rus(1:l---dd,jj,--Ip2=R(_3 Rus(1:l---dd,jj,--Ip2nnnnnnnnIF(LIIItim_T_n3dci kii+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)nnnnnnnnIF(LIIItim_T_n3dci kii*tus(1:l--Bi,cutoffmetis,resetfiel.---B!oooooooooxxxppppppR(_3 Rus(dd,jj,--Ip2=R(_3 Rus(dd,jj,--Ip2nnnnnnnnIF(LIIItim_T_n3dci kii+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)nnnnnnnnIF(LIIItim_T_n3dci kii*tus,,c-(t rn_n---Oso/ldoooooooooooooooon ------WRITE(msg,*oooooon -----offmeis field_up,cut.---B!0_MxxxxxxtroL---n_n---Oso/ldooooooo,,,,IF l--deq 4.and._compimdeq 3)nOReTrnffmetetis field_up,cut.---B!0_Mxxxxxxkkdec-(1,i O),mk)))))))mmmmk=ip3-1,ip3+2i O),mk)))))))xxxkkdec-(1kkdec-+f1,cun---Onumbm.gtppppppppppjjdec-(1,i O),mk))))))))))mmmjj=ip2-1,ip2+2i O),mk)))))))xxxpppjjdec-(1jjdec-+f1,i O),,,,,,,,,,,,,,,,-ddec-(1,i O),mk)))))))))))))mmmii=ip1-1,ip1+2i O),mk)))))))xxxpppppp-ddec-(1-ddec--BOXoffmis field_up,cutoffmetis,resetpos,pos,Rrnnnnnnnnnnnnnnnnnnn iiR(_3 Rus(1:l---dd,jj,kkp--Ip2&,Rrnnnnnnnnnnnnnnnnnnn iiiiiii&=R(_3 Rus(1:l---dd,jj,kkp--Ip2&,Rrnnnnnnnnnnnnnnnnnnn iiiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Rrnnnnnnnnnnnnnnnnnnn iiiiiii&*wx3(kkdec,i-IF,ip)*tus(1:l--Bi O),mk)))))))xxxppppppR(_3 Rus(1-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&=R(_3 Rus(1-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiiii&*wx3(kkdec,i-IF,ip)*tus(1Bi O),mk)))))))xxxppppppR(_3 Rus(2-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&=R(_3 Rus(2-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiiii&*wx3(kkdec,i-IF,ip)*tus(2Bi O),mk)))))))xxxppppppR(_3 Rus(3-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&=R(_3 Rus(3-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiiii&*wx3(kkdec,i-IF,ip)*tus(3Bi O),mk)))))))xxxppppppR(_3 Rus(4-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&=R(_3 Rus(4-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiiii&*wx3(kkdec,i-IF,ip)*tus(4'OR,,cutoffmetis,resetfiel.---B!oooooooooxxxppppppR(_3 Rus(dd,jj,kkp--Ip2=R(_3 Rus(dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiiii&*wx3(kkdec,i-IF,ip)*tus,,c-(t rn_,no,,& field_up,cutoffmetis,resetpos,pos,so/ldooooooooooxxxppppppR(_3 Rus(1:l---dd,jj,--Ip2=R(_3 Rus(1:l---dd,jj,--Ip2&,Oern_,no,,,,,,,, ND m iiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiii&*tus(1:l--Bi,cutoffmetis,resetfiel.---B!oooooooooxxxppppppR(_3 Rus(dd,jj,--Ip2=R(_3 Rus(dd,jj,--Ip2 DOern_,no,,,,,,,, ND m iiiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiiii&*tus,,c-(t rn_n---Oso/ldoooooooooooooooon ------WRITE(msg,*oooooon -----offmeis field_up,cut.---B!0_MxxxxxxtroL---n_n---Oso/ldooooooo,,,,rnffmetetis field_up,cut.---B!0_Mxxxxxkkdec-(1,i O),mk))))))mmmmk=ip3-1,ip3+2i O),mk)))))))xxkkdec-(1kkdec-+f1,rn_n---Oso/ldoooooooooooojjdec-(1,i O),mk)))))))))mmmjj=ip2-1,ip2+2i O),mk)))))))xxxppjjdec-(1jjdec-+f1,i O),,,,,,,,,,,,,,,-ddec-(1,i O),mk))))))))))))mmmii=ip1-1,ip1+2i O),mk)))))))xxxppppp-ddec-(1-ddec--BOXoffmis field_up,cutoffmetis,resetpos,pos, O),mk)))))))xxxpppppmmml=1,f fs--_3 RRRRRRRRRRRRRRRRRRRRRR(_3 Rus(l-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiiiii&=R(_3 Rus(l-dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiiiiii&*wx3(kkdec,i-IF,ip)*tus((Lep3p- 1,,exxxxxxxxxxxxxxl 2----O,cutoffmetis,resetfiel.---B!oooooooooxxxpppppR(_3 Rus(dd,jj,kkp--Ip2=R(_3 Rus(dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiii&*wx3(kkdec,i-IF,ip)*tus,,c-(t rn_,no,,& field_up,cutoffmetis,resetpos,pos,so/ldooooooooooxxxpppppR(_3 Rus(1:l---dd,jj,--Ip2=R(_3 Rus(1:l---dd,jj,--Ip2&,Oern_,no,,,,,,,, ND m iii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iii&*tus(1:l--Bi,cutoffmetis,resetfiel.---B!oooooooooxxxpppppR(_3 Rus(dd,jj,--Ip2=R(_3 Rus(dd,jj,--Ip2 DOern_,no,,,,,,,, ND m iiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiii&*tus,,c-(t rn_n---Oso/ldooooooooooooooon ------WRITE(msg,*ooooon -----offmeis field_up,cut.---B!0_MxxxxxtroL---n_n---Oso/ldooooootroLIIItebug.gtpdin ------WRITE(mn ------WRITE(m!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,--WRITE(m! BS2--WRITE(m!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,--WRITSISEGeox m -[E2vpmldker/el_bsp2Bi O),mkf(i )B=d1,nxp,2, 1,i O)iin ------BO----Ip2 =IINT((x((f(i p=1,sts+e_f--h---Ip2 =IINT((x((x 1p1-(1INT((xpO---BO- ki-O--IF,ip))- i indd(de&,Oern_,no,,,,,,,, ND&I*dxi0_mk+2-imodulO----IF(Lep3p- 1,,exxxxxip2-(1INT((xpO2--BO- ki-O--IF,ip))- i indd(2e&,Oern_,no,,,,,,,, ND&I*dxi02mk+2-imodulO2---IF(Leoffmetis field_up,cut.---B!0_Mxxxxxip3-(1INT((xpO3--BO- ki-O--IF,ip))- i indd(3e&,Oern_,no,,,,,,,, ND&I*dxi03mk+2-imodulO3---IF(Le,c-(t r,no,,,,,,,, ND!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, ND! flipped-upside dow/gfumbeox!copfummanceOso/ldooooooooo!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)rnffmetetis field_up,cut.---B!0_Mxxxxxkkdec-(1,i O),mk))))))mmmmk=ip3,ip3+1,Oern_,no,,,,,,,, kkdec-(1kkdec-+f1,cun---Onumbm.gtpppppppppjjdec-(1,i O),mk)))))))))mmmjj=ip2,ip2+1,Oern_,no,,,,,,,, ppjjdec-(1jjdec-+f1,i O),,,,,,,,,,,,,,,-ddec-(1,i O),mk))))))))))))mmmii=ip1,ip1+1,Oern_,no,,,,,,,, pp pp-ddec-(1-ddec--BOXoffmis field_up,cutoffmetis,resetpos,pos, O),mk)))))))xxxpppppR(_3 Rus(1:l---dd,jj,kkp--Ip2&, O),mk)))))))xxxpppppppppp&=R(_3 Rus(1:l---dd,jj,kkp--Ip2&, O),mk)))))))xxxpppppppppp&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiii&*wx3(kkdec,i-IF,ip)*us(1:l----BO- ki-O--IF,ip)),,cutoffmetis,resetfiel.---B!oooooooooxxxpppppR(_3 Rus(dd,jj,kkp--Ip2=R(_3 Rus(dd,jj,kkp--Ip2 DOern_,no,,,,,,,, ND m iiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiii&*wx3(kkdec,i-IF,ip)*us(-BO- ki-O--IF,ip)),,cn---On_,no,,& field_up,cutoffmetis,resetpos,pos,so/ldooooooooooxxxpppppR(_3 Rus(1:l---dd,jj,--Ip2=R(_3 Rus(1:l---dd,jj,--Ip2&,Oern_,no,,,,,,,, ND m iiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiii&*us(1:l----BO- ki-O--IF,ip)),,cutoffmetis,resetfiel.---B!oooooooooxxxpppppR(_3 Rus(dd,jj,--Ip2=R(_3 Rus(dd,jj,--Ip2 DOern_,no,,,,,,,, ND m iiiiii&+wx1(-ddec,--IF,ip)*wx2(jjdec,i-IF,ip)&,Oern_,no,,,,,,,, ND m iiiiii&*us(-BO- ki-O--IF,ip)),,cn---On_n---Oso/ldooooooooooooooon ------WRITE(msg,*ooooon ------offmeis field_up,cut.---B!0_MxxxxxtroL---n_n---Oso/ldooooootroL----WRITE(mn ------WRITEtroLDELECTO =IINTu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnNownmapD I ghosts inNord pR get-cop _it-n_valuPr aND I bord oDwould y! D I subdomains.would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, would ytis_s2p_pmap_R(_3 Rghost_put''IghostsizeI!)! &-(t rIF &-(sIII d_) wantltigde offmetis,resetpos,fiel.---B!tis_s2p_pmap_R(_3 Rpu(' pRfrom fiI!)! ,cutoffmetis,resetpos,so/ldotis_s2p_pmap_R(_3 Rpu(' pRfrom fil---dn)! ,cf--_dould ypF &-(sIII d_) wantltigde so/ldotis_s2p_pmap_R(_3 Rscf-(I!)! &-(t rIF &-(sIII d_) wantltigde offmetis,resetpos,fiel.---B!tis_s2p_pmap_R(_3 Rghost(' pRfrom fighostsizeI!)! ,cutoffmetis,resetpos,so/ldotis_s2p_pmap_R(_3 Rghost(' pRfrom fil---ghostsizeI!)! ,cn---OR CBOX!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,,, POINTRrOReturnR CBOX!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,,, POINT-B--s2/olso/ldopolsSIZE(xp,2)op ',wp,vpmldrecdef----IIeturnopolsRETURiORsf2 dc/olAINSORsf2 dD SUBROUTINE2n(1.WRITE(msrm(_compimd_m 3)nernel supportrlddIF(lddgcc,lmoddwx1_users,tisi2nnnnnnnIF(LIIItim_T_gcc,lmoddwx2_users,tisi2nnnnnnnIF(LIIItim_T_gcc,lmoddwx3_users, &-(t r,ll---domom-domcop _it-n_=ncTRUE.,---domom-dom,,,,IFgcc,lmoddwx1_userstisi2l_3i2dgcc,lmoddwx2_users,stisi2nnnnnnnnIF(LIIItim_l_3i2dgcc,lmoddwx3_users, &-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim_T_n'dmx2_user umbwx3_usertwl_,I1,glacknnn kin ------BOXIIeturn8888---BOULLIFYE2.l_3i2d_mi2 -['m,,,IFgcc,lmoddwx2_userstisi2l_3i2dgcc,lmoddwx3_users,stisi2nnnnnnnnIF(LIIItiml_3i2dgcc,lmoddwx1_users, &-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim_T_n'dmx1_user umbwx3_usertwl_,I1,glacknnn kin ------BOXIIeturn8888---BOULLIFYE2.l_3i2d_mi2 -['m,,,IFgcc,lmoddwx3_userstisi2l_3i2dgcc,lmoddwx1_users,stisi2nnnnnnnnIF(LIIItiml_3i2dgcc,lmoddwx2_users, &-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim_T_n'dmx1_user umbwx2_usertwl_,I1,glacknnn kin ------BOXIIeturn8888---BOULLIFYE2.l_3i2d_mi2 -['msh_co,wp,vp/ld,,,, supportrB!rmgcc,lmoddwx3_users,kernel supportrldddddu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:rI!)! m,nIF(LIIu Wendontfcare,nmaybeIIIsue a wwrnnnn..l supportrldddddu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:rI!)! m,nIF(,,,,IF cc,lmoddwx1_userstisi2_3i2dcc,lmoddwx2_users,kernel supportrlddddd'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnIF(LIIItim_T_n'wx2_usert ---xpppubsE kin ------BOXIIeturn8888---BOULLIFYE2.l_3i2d_mi2 -['m,,,IF_gcc,lmoddwx2_userstisi2_3i2dcc,lmoddwx1_users,kernel supportrlddddd'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnIF(LIIItim_T_n'wx1_usert ---xpppubsE kin ------BOXIIeturn8888---BOULLIFYE2.l_3i2d_mi2 -['msh_co,wp,vp/ld, 2-BO =IINT eLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xuw)C kina,no,,:: xpI!)! eLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xIF_gNp1.rmsh_comp_w)))Rts', T((xIF_gSIZE(xp,2) .LmshNp &-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim_T_n' ---enough-BOX''''Prncoptain)dSS Fxsow why wa ef--h would you ---BOULLIFYE2.l_3i2d_mi2 -['msh_co,wp,vp/ld((xIF_gSIZE(xp,1) .Lmsheox ll-'l-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim_T_n'l--OnnnlsopNp _LTgoDOxp kiufficiNUl kin ------BOXIIeturn8888---BOULLIFYE2.l_3i2d_mi2 -['msh_co,wp,vp/ld, 2-BO,vp/ld((xIF_gNp1.LEsh_comp_w)))Rts', T((xIF_gNp1.Lmsh_comp_w)))Rts', T((xdom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim_T_n'BOX''''Prnmust CBOspecike E kin ------BOXIIeturn8888---BOULLIFYE2.l_3i2d_mi2 -['mshLIIItebug.gtpdivLLIFYE2.l_3i2d_mi2 , 2-BO =IINT eLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xuw)C kintofker/el is ,mpleINUledxpI!)! eLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xIF_gGker/el.Lms1) ki-Gker/el.rms4s,kernel supportrldd'EbRin-w)))Rt deox e tlKwarldopolsotis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim_'wrongXker/el defin/src/ kin ------BOXIIeturn8888---LLIFYE2.l_3i2d_mi2 , 2-BO =IINT eLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xuw)TRis can ne'---happen, DOi!ndoesD IEL I libr!--(is si(1.WRITE(msLu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xker/elwxppporin-w)))vpmldker/elsizeGker/el2*2--WRITE(m!ker/elwxppporin-w)))vpmldker/elsizeGker/el2*2--WRITE(m!IF_g_3i2dg(ker/elwxpppord_m 2) ki-Gker/elwxpppord_m 4)nnnnnnnn((xuw)nnnIF ki-Gker/elwxpppord_m 6, &-(t r,ll---do!ldd'EbRin-w)))Rt deox e tlKwarldop!lsotis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnn((xuw)nnnnnnIF(LII'wrongXker/el xpppor kin ------BOXIIeturn888!---LLIFYE2.l_3i2d_mi2!troL-BO =IINT((xIF_gSIZE(up).LmsNp &-(t r,ll---domom-'EbRin-w)))Rt deox e tlKwarldopolsotis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim'wrongXup_wri2dLsize kin ------BOXIIeturn8888---LLIFYE2.l_3i2d_mi2 , 2-BO3i2d_mi2 u3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xuw)TRis ,3=a)so wrong: Ghostsize can bo-bigger...l supportru3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no =IINT((xummmisop=1,dopn.---B!!!!!((xIF_gghostsizeIisop)III w)))vpmldker/elsizeGker/el2LEMrldopolsopmeLudomom-'EbRin-w)))Rt deox e tlKwarldopo!opolsotis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnndopo!opolsonnnnnIF(LII'wrongXsize Iddghostsize kin ------BOXIIeturn8888!888---LLIFYE2.l_3i2d_mi2 ! ['mshLIIItebug.gtp!n ------WRITE(msmmmisop=1,dopn.---B!!!!((xIF_gghostsizeIisop)ILms(w)))vpmldker/elsizeGker/el2-1 &-(t r,ll---domom-dom'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim_T_n'ghostsize too smallgfumb_l,3=ker/el kin ------BOXIIeturn8888---BOULLIFYE2.l_3i2d_mi2 -['msh_co,wp,vp/ld, 2----WRITE(msSIZE(E2n(1_('valid--BOXIIeturn8888IF_g_3i2dnvalid &-(t r,ll---domom-d'EbRin-w)))Rt deox e tlKwarldopolsopmetis_s2p_p-ifaafaafaa ONTINUlin ---- ND recdef--nnnnnnnnnIF(LIIItim_T_n't ---pointnnnlOR anvalid)iin logy kin ------BOXIIeturn8888---BOULLIFYE2.l_3i2d_mi2 , 2-BO,vp/ld((xIF_g1.rmsheox (id)%t-Iti)&-(t r,ll---domom-'EbRin-w)))Rt deox e tlKwarldopolsotis_s2p_p-ifaafaafaa ONTINUlin ---- ND,recdef--nnnnnnnn(LIIItim_T_n'1is ,nvalid kin ------BOXIIeturn8888---LLIFYE2.l_3i2d_mi2, 2-BO E2.l s2/olso/ldopolsotroLD SUBROUTINE2n(1.n_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,Kurn8888kind_double''n(1troLD SUBROUTIN ---- ND recdef_retl On_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1troLD SUBROUTIN ---- ND recdef_detl On_ld_up,cutoffmetis,resetpos,cutoff_wKurn8888kind_double''n(1troLD SUBROUTIN ---- ND recdef_rvtl On_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1troLD SUBROUTIN ---- ND recdef_dvtl On_ld_up,c-(t rn_,no,,& field_up,cutoffmetis,resetpos,field_wp,wp,Kurn8888kind_double''n(1troLD SUBROUTIN ---- ND recdef_ret3 On_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1troLD SUBROUTIN ---- ND recdef_det3 On_ld_up,cutoffmetis,resetpos,cutoff_wKurn8888kind_double''n(1troLD SUBROUTIN ---- ND recdef_rvt3 On_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1troLD SUBROUTIN ---- ND recdef_dvt3 On_ld_up,cld_up,cld_uplib ---1.2/src/nl_,I-BO-/w)))c-BO- destroy.f000644 000765 000024 00000013651 11445666063 021450 0umodu00omdumodff000000 000000 opolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnSubroutineN :nnnnn(LIIItim_T_nw)))c-BO- destroy opolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrCopyr_,I1 (c) 2010 CSE Lab (ETH ZuricfA3=MOSAIC Lab (ETH ZuricfA3= POINTERrnnnnnnnnnnnnnnnnnnnCNUlergfumbFlu1Dynamics (DTU_MK.-Ix3!MK.-Ix3!MK.-Ix3!)TRis fileIII-BOX'goDOee_mParallel POX''''P di,n.Libr!--((PPM).MK.-Ix3!MK.-Ix3!)PPMIII-free software: you can redistribm_)Oi!nand/umbmod_uy opolsouOi!nund pe_mlermsgoDOee_mGNU LessertGeneral P---Bc.License= POINTERraI-B---BOhed byOee_mFree Software Founrc/, eiee_r= POINTERrver _LTg3goDOee_mLicense, umb(at your oprc/)nany lat_r= POINTERrver _LT.MK.-Ix3!MK.-Ix3!)PPMIII-distribm_)dSS FORe hopet_lat i!nwillgbe useful,MK.-Ix3!)bm_ WITHBRO ANY WARRANTY;Xmn.=ouNDevIEL I ,mpli)dSwwri2nty oDwould y! MERCHANTABILITY umbFITNESS FOR AN'''TICULAR PURPOSE. SeeFORe POINTERrGNU General P---Bc.License=fumbmore details.MK.-Ix3!MK.-Ix3!)You s=ouldn2.MK.-Ix3!MK.-Ix3!)Parallel POX''''P di,n.Libr!--((PPM)MK.-Ix3!)ETH Zuricf POINTERrCH-8092 Zuricf, Smn.zerland opolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, opolsoD SUBROUTIN ---c-BO- destroy(c-BO---BOXIIeturn8roperly dea)))RtsesD I cellg-BO- i!nII-BOssed.Ieturn8Ieturn8[3i2E]Ieturn8At leaO- usnnn pgf90,b_l,3=routineN,3=actua))yt ---necesoaryraIIeturn8`DEis_OCATE(c-BO-)` wouldnCBOsufficiNUl (no memory=leak wouldIeturn8occur accordnnnlOR Valgrind). BuNDsnnceb_l,3=m_,I1 CBOfdould y!!! a2d_iler-depcldNUl featur)twl dotiND I or.=odoxSwwygfumb_lBOsakeIeturn8of porability.,would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOModuCB xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!USEN,wp,moduCBwn.---B!USEN,wp,moduCBw_nl_,I-BO-n.---B!USEN,wp,moduCBwsp,2)duln.---B!USEN,wp,moduCBwsp,2)opn.---B!USEN,wp,moduCBwx e tlKwarldUSEN,wp,moduCBwa)))RlKwarldIMPLICIT NONldopolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnA,no,,:: xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!TYP=busORtype_ptr_to-c-BO-B, !. IRcludG'n3=bud,vpmlsinc-BO-n.---B!u!! Cellg-BO- w-ich-,3=OR be dea)))Rtsed.Ieturn8polsopmR :: MKurn8888kind_dINTEGER, BRO)esininfRdould y!!! Returns 2)dtus, 0nupTELsuccesot.---B!u3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnwwcalnvariabCBO , &-(tu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTE! timers--_3 R--(i)usORkind_do---eBBBBBBBBBBBBBBBBBBBBBBBsin0 POINTE! count_r,,gc----polsopmR :: MKurn8888kind_doubleBBBBBBBBBBBsini POINTE! fs+-a)))Rtse,gc----polsopm, !. IRcludG2BBBBBBBBBBBBBBBBBBBBBBBsinf fs--_3 RpolsopmR :: MKurn8888kind_doubleBBBBBBBBBBBsiniopt.---B!u3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnExNer/alO , &-(tu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, so/ldoSIZE(xp,2)dul ',wp,c-BO- destroy----IIeturnwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOC kina,no,,:: xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', SIZE(E2n(1.WRITE(ms', &-(sIII d_) wantltigdeox e tl 2-BO =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOFree cellg-BO- memory.At leaO- usnnn pgf90,b_l,3=,3=actua))yt -- POINTERrOnecesoaryraI DEis_OCATE(c-BO-) wouldnCBOsufficiNUl (no memory=leak POINTERrOwouldnoccur accordnnnlOR Valgrind). BuNDsnnceb_l,3=m_,I1 CBOfdould y! a2d_iler-depcldNUl featur)twl dotiND I or.=odoxSwwygfumb_lBOsakeIeturn8 of porability., =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTE E2.l=depd_m -[E2dea)))Rn.---B!rmsh2pdivi kinc-BO-))&-(t r,ll---domommmi=1,sizeGc-BO--1Bi O),mk)))))TIdeex e , &-(tc-BO---)%lhbxil---d)))Rts', &-(t rRITE(ms', &-(sIII d_) ernel supportrlddddd inRtspox e tlKwarldopolsopmetis_s2p_p-itis_s2p_p-ifaafaafaa dea)))R,',wp,c-BO- destroy--nnnnnnnIF(LIIItim_T_n'aellg-BO- CLIST%LHBX kin ------BOXIIeturn8888---Bmsh_co,wp,vp/ld((x)TIdeex e , &-(tc-BO---)%lpdxil---d)))Rts', &-(t rRITE(ms', &-(sIII d_) ernel supportrlddddd inRtspox e tlKwarldopolsopmetis_s2p_p-itis_s2p_p-ifaafaafaa dea)))R,',wp,c-BO- destroy--nnnnnnnIF(LIIItim_T_n'aellg-BO- CLIST%LPDX kin ------BOXIIeturn8888---Bmsh_co,wp,vp/ld(, 2----WRITE(ms DEis_OCATE(c-BO-, STAT=-BOXIIeturn8888-', &-(sIII d_) ernel supportrlddddinRtspox e tlKwarldopolsopmetis_s2p_ptis_s2p_p-ifaafaafaa dea)))R,',wp,c-BO- destroy--nnnnnnnIF(LIIItim_T_'aellg-BO- CLIST kin ------BOXIIeturn8888-msh_co,wp,vp/ld(NULLIFYnc-BO-)eox e tl 2-BO =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOReturnR CBOXT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, P-B--s2/olso/ldopolssSIZE(xp,2)op ',wp,c-BO- destroy----IIeturnopolssRETURiORsf2 dc/olAINSORsf2 dD SUBROUTINE2n(1.WRITE(ms88IF_g_3i2dn,wp,initialize)&-(t r,ll---domom-'EbRin-w)))Rt deox e tlKwarldopolsotis_s2p_p-ifaafaafaa aafanoinit,',wp,c-BO- destroy--nnnnnnnIF(LIIItim_T_'PleaOe callg,wp,init first! kin ------BOXIIeturn8888---LLIFYE2.l_3i2d_mi2 -msh_co,wp,vp/ld(IF_g_3i2dn2pdivi kinc-BO-))&-(t r,ll---domom-'EbRin-w)))Rt deox e tlKwarldopolsotis_s2p_p-ifaafaafaa aafanoinit,',wp,c-BO- destroy--nnnnnnnIF(LIIItim_T_'c-BO- ist ---associtsed! kin ------BOXIIeturn8888---LLIFYE2.l_3i2d_mi2 -msh_co,E2.l s s2/olso/ldopolsotroLD SUBROUTINE2n(1.opolsotroLD SUBROUTINw)))c-BO- destroy lib ---1.2/src/nl_,I-BO-/w)))nl_,I-BO-)c-BO-.f000644 000765 000024 00000041513 11445666063 021743 0umodu00omdumodff000000 000000 opolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnSubroutineN :nnnnn(LIIItim_T_w)))nl_,I-BO-)c-BO- =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrCopyr_,I1 (c) 2010 CSE Lab (ETH ZuricfA3=MOSAIC Lab (ETH ZuricfA3= POINTERrnnnnnnnnnnnnnnnnnnnCNUlergfumbFlu1Dynamics (DTU_MK.-Ix3!MK.-Ix3!MK.-Ix3!)TRis fileIII-BOX'goDOee_mParallel POX''''P di,n.Libr!--((PPM).MK.-Ix3!MK.-Ix3!)PPMIII-free software: you can redistribm_)Oi!nand/umbmod_uy opolsouOi!nund pe_mlermsgoDOee_mGNU LessertGeneral P---Bc.License= POINTERraI-B---BOhed byOee_mFree Software Founrc/, eiee_r= POINTERrver _LTg3goDOee_mLicense, umb(at your oprc/)nany lat_r= POINTERrver _LT.MK.-Ix3!MK.-Ix3!)PPMIII-distribm_)dSS FORe hopet_lat i!nwillgbe useful,MK.-Ix3!)bm_ WITHBRO ANY WARRANTY;Xmn.=ouNDevIEL I ,mpli)dSwwri2nty oDwould y! MERCHANTABILITY umbFITNESS FOR AN'''TICULAR PURPOSE. SeeFORe POINTERrGNU General P---Bc.License=fumbmore details.MK.-Ix3!MPOINTERrYou s=ouldn2.MK.-Ix3!MK.-Ix3!)Parallel POX''''P di,n.Libr!--((PPM)MK.-Ix3!)ETH Zuricf POINTERrCH-8092 Zuricf, Smn.zerland opolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, IIIE2.l_c &',---h&',xp,Np,up,&-(t r CBOXLD SUBROUTINw)))nl_,I-BO-)c-BO-_s('xp,Np,cutoff,lsymm,c-BO-,Nm-nnnnnnnnIF(LIIItim_T_nnnnnnnnnnnnnnnnnnnnn-BOX,pidx)On_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1LD SUBROUTINw)))nl_,I-BO-)c-BO-_d('xp,Np,cutoff,lsymm,c-BO-,Nm-nnnnnnnnIF(LIIItim_T_nnnnnnnnnnnnnnnnnnnnn-BOX,pidx)Oopolsou!RrCretsi aellg-BO-s fs+-a))(xp,2goDOeeII-Brocesoor.Ieturn8Ieturn8[3i2E]Ieturn8====================================================Ieturn8Symmet--(is usedraI-fo)))ws:Ieturn8Ieturn8B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTER!Rrnnnnnnnnnnnnnnnnnnn iiiiiiiiiiiiii- 2d1 POINTER!Rrnnnnnnnnnnnnnnnnnnn iiiiiiiiiiiiii- 0 2 POINTER!Rrnnnnnnnnnnnnnnnnnnn iiiiiiiiiiiiii- - -Ieturn8B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTER!Rraellg0n-Bt_rac-s mn.= a))(aells >0 POINTER!Rraells 2d-Bt_rac- mn.= each oee_r.Ieturn8Ieturn8ITg3D,Oee_mTOP LAYER (largertz)nabovet_litnumberedIeturn82 x2 b))Rk ,3=a)so included.((PlusD I apBropritse,gc----diagonal -Bt_rac-rc/o.)seeFMkNl_,IIdx).Ieturn8Ieturn8T I cellg-BO- is cretsidgfumb_lBOcurrNUl iin logyIeturn8' w-ich-,3=BOssed byOee_muserIeturn8Ieturn8POX''''PrnS FcellgicellgoDO )B )Bare: + POINTER!Rrnn`LETSa = c-BO----Ip2%lhbx(icell)`nnnnnnnnnnnnnnnnnnn iiiiiiiiiiiiii+ POINTER!Rrnn`LETSb = c-BO----Ip2%lhbx(icell+1BBBBBBBBBBBBBBBBBBBBBBBiiiiiiiiiii+ POINTER!Rrnn`c-BO----Ip2%lpdx(a:b-1)`Ieturn8====================================================Ieturn8Ieturn8[WARN,xp]Ieturn8 I subnS dexB )B,3=3i2D I globa)(xp,Ieturn8number,)bm_ just lineargfrom 1lOR w)))n----BO-! ,cf--_dould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOIncludeolso/ldouusOR(_3 RusOReindi,n.---B!--(i)t& _m ONTINUlin ---- -[E2sl_f-op(_E2._rmsIInclude "_comp_fine.h",would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOModuCB xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!USEN,wp,moduCBwn.---B!USEN,wp,moduCBw_nl_,I-BO-n.---B!USEN,wp,moduCBwsp,2)duln.---B!USEN,wp,moduCBwsp,2)opn.---B!USEN,wp,moduCBwx e tlKwarldUSEN,wp,moduCBwa)))RlKwarldUSEN,wp,moduCBwutil_i2nklKwarldUSEN,wp,moduCBwE2n(1_idIeturn8IMPLICIT NONldIIIE2.l_c &',---h&',xp,Np,up,&-(t r CBOXLpolsopm, '''AMEvpmlsinMKin-w)))kind_snnnleOn_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1Lpolsopm, '''AMEvpmlsinMKin-w)))kind_do---e ,cf--_dould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOA,no,,:: OINTEdould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTE--(i)MKB, !. IRcludG','n3=TEGER, INNTEBBBBBsinxpIeturn8POX''''P co-ordnntsesr''n(1Lpolsopm 3=TEGER, INNTEBBBBBsinNpIeturn8Numberof pOX''''Prr''n(1Lpolsopm 3=TEGER, INNTEBBBBBsinIeturn8IDof currNUl iin logyIeturn8--(i)MKB, !. IRcludG') 3=TEGER, INNTEBBBBBsincutoffOopolsou!RrCutoffnS Fa))((2,3) space direc-rc/o.)Actua)Fcellgsize may differ,,gc----due to=round-off,)bm_ i!nalways >=ncutoff.Ieturn8LOGICAL 3=TEGER, INNTEBBBBBsinlsymm,gc----Use=symmet--?,gc----TYP=busORtype_ptr_to-c-BO-B, !. IRcludG'n3=bud,vpmlsinc-BO-n.---B!u!! Numberof aells S Feach space direc-rc/ POINTER!Rra-BO----Ip2%lhbx(ibox)Oopolsopolsopm, !. IRcludG','n 3=bud,vpmllllllllllsinNmn.---B!u!! Numberof aells S Fx,y,(z)ndirec-rc/ &cludnnnlO I ghosts aells)Oopolsou!RrS Feach subdomain. 1O- i dex:ndirec-rc/.)second i dex:nsubid.Ieturn8polsopmR :: MKurn8888kinINTEGER, BRO)elllsininfRdould y!!! Returns 0nupTELsuccesot.---B!polsopm, !. IRcludG')kinINOPTludAL sinpidxIeturn8ITdice2goDOeeose=BOX''''Prn_lat areIeturn8gbe i2nked.(By default,Fa))(BOX''''Prnare i2nked.(Ic given,,gc----BOX''''P iTdice2gS Fcellg-BO- are ielative to=`xpG',pidxG'))`nandO -- POINTER`xpG',:)`Ieturn83 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnwwcalnvariabCBOEdould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTE! timers--_3 R--(i)MKBR :: MKurn8888kinnnnnnnnnnnnnnnnsin0 POINTE! count_r,,gc----polsopmR :: MKurn8888kind_doubleBBBBBBBBsinidom,jdom,i,NpdxIeturn8 ext-n_of aell cdefIeturn8--(i)MKB, !. IRcludG3BR :: MKurn8888kinnsinxmin,xmaxIeturn8 actua)FcellgsizeIeturn8--(i)MKB, !. IRcludG3BR :: MKurn8888kinnsinaellsizeIeturn8number Iddghostlay_r,,gc----polsopm, !. IRcludG6BR :: MKurn8888kinnnsinNglIeturn8m -[Eelergfumba)))Rn.---B!rolsopmR :: MKurn8888kind_doubleBBBBBBBBsinl---d))),gc----polsopm, !. IRcludG2BBBBBBBBBBBBBBBBBBBBsinl-cIeturn8LOGICAL BBBBBBBBBBBBBBBBsinvalid,gc----TYP=busORt BBBBBBBBBBB3=bud,vpmlllllsinIeturn83 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnExNer/alOEdould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEdould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, so/ldoSIZE(xp,2)dul ',wp,nl_,I-BO-)c-BO-----IIeturnwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOC kina,no,,:: xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', SIZE(E2n(1.WRITE(ms', &-(sIII d_) wantltigdeox e tl 2-BO =IINTp=>deox (id)%tnwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOA)))RtsenNmn.---B!u3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEl-- O)iin -n----BO- POINTE E2.l=depd_m -[E2a)))R_fit POINTEl-c(dee=heox ll- POINTEl-c(2ee=hf fs--_3 RTIdeex e , &-(tNm,l-c-d)))Rts', &-(t r', &-(sIII d_) ernel supportrl'EbRin-w)))Rt deofll supportrltis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)c-BO---nnnnnnnnnIF(LIIItim_T_'Numbersof aells NM kin ------BOXIIeturn8888-wantltigdeox e tl 2-BOox e tNm-(1,iwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOA)))Rtsenc-BO- to=_litnumbergoDO )sOeeII-Brocesoor ha xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh2pdivi kinc-BO-))&-(t r,ll---domoIF_gSIZE(c-BO--1BsIII dl--BBernel supportrlddddtis_s2p_pc-BO- destroy(c-BO---BOXIIeturn8l---domoIF_g &-(sIII d_) ernel supportrlddddd d inRtspox e tlKwarldopolsopmetis_s2p_p-irltis_s2p_p-ifaafaafaa )ofiled,',wp,nl_,I-BO-)c-BO---nnnnnnnnnIF(LIIItim_T_m_T_'Couldn ---destroy oldncellg-BO- kin ------BOXIIeturn8888---BOU88-wantltigdeox e tttttttttmsh_co,wp,vp/ld(, 2_co,wp,vp, 2_co,wp,vpIF_g_3i2dn2pdivi kinc-BO-))&-(t r,ll---domois_OCATE(c-BO- l--), STAT=-BOXIIeturn8888-', &-(sIII d_) ernel supportrlddddinRtspox e tlKwarfll supportrl-irltis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)c-BO---nnnnnnnnnIF(LIIItim_T_m_T_'cellg-BO- ari2dLCLIST kin ------BOXIIeturn8888-U88-wantltigdeox e tttttmsh_co,wp,vp/ld(mmmi=1,f fs--_3 RRRRRRRRRNULLIFYnc-BO---)%lpdxIIeturn8888-U88-NULLIFYnc-BO---)%lhbxIIeturn8888-msh----WRITEtro-BO =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOLoop o'---a))(xp,2goDOeeII-BrocesoornandOcretsi aellg-BO-s fs+-a)) POINTERrOoDOee_m.T I ext-n_of I cellg-BO- cdefB,3=largert_lan I sub POINTERrO(bm_ ---o Fa))(sides DOwe are usnnn symmet--).Edould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEmmmisom=1,f fs--_3 RRRRRjdom O)iin ------BO---dom),i O),,,,,!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,ni O),,,,,!TEmelermineNext-n_of cdefBaroundOeeII- )BplusD olerance fs+i O),,,,,!TEoulergbounries (OR avtret)(BOX''''PrnS Fghost aells)Oopolso,,,,!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,niIIIE2.l_c &',---h&',xp,Np,up,&-(t r''n(1LLLLLrmsh_compim d_m 2) ernel supportrldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, ND! Get- )Bext-n_-- 2D do---e-Brecisrc/ POINTErtrldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, NDxmin(dee=hiin - i subd(1,jdomIIeturn8888-U88-xmax(dee=hiin - ax subd(1,jdomIIeturn8888-U88-xmin(2ee=hiin - i subd(2,jdomIIeturn8888-U88-xmax(2ee=hiin - ax subd(2,jdomIIeturn8888-,,,, supportrB!ddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, ND! Get- )Bext-n_-- 3D do---e-Brecisrc/ POINTErtrldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, NDxmin(dee=hiin - i subd(1,jdomIIeturn8888-U88-xmax(dee=hiin - ax subd(1,jdomIIeturn8888-U88-xmin(2ee=hiin - i subd(2,jdomIIeturn8888-U88-xmax(2ee=hiin - ax subd(2,jdomIIeturn8888-U88-xmin(3ee=hiin - i subd(3,jdomIIeturn8888-U88-xmax(3ee=hiin - ax subd(3,jdomIIeturn8888-tro-BOn_,no,,&c &',---h&',xp,Np,up,&-(t r CBOXLLLLLrmsh_compim d_m 2) ernel supportrldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, ND! Get- )Bext-n_-- 2D snnnle-Brecisrc/ POINTErtrldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, NDxmin(dee=hiin - i subs(1,jdomIIeturn8888-U88-xmax(dee=hiin - ax subs(1,jdomIIeturn8888-U88-xmin(2ee=hiin - i subs(2,jdomIIeturn8888-U88-xmax(2ee=hiin - ax subs(2,jdomIIeturn8888-,,,, supportrB!ddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, ND! Get- )Bext-n_-- 3D snnnle-Brecisrc/ POINTErtrldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, NDxmin(dee=hiin - i subs(1,jdomIIeturn8888-U88-xmax(dee=hiin - ax subs(1,jdomIIeturn8888-U88-xmin(2ee=hiin - i subs(2,jdomIIeturn8888-U88-xmax(2ee=hiin - ax subs(2,jdomIIeturn8888-U88-xmin(3ee=hiin - i subs(3,jdomIIeturn8888-U88-xmax(3ee=hiin - ax subs(3,jdomIIeturn8888-tro-BOn_n---OR CBOXldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:):,:)r,no,,,,,,,!TEmelermineNnumberof aellgboxPrnandOeffec-rveFcellgsize.R CBOXldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:):,:)r,no,,,,,,,mmmi=1,eox ll- POINTEo,,,,,,,!Tnumberof aells based o Fanaellsize =ncutoff POINTEo,,,,,,,Nm(i,-dom)-(1INT((xmax(i) --xmin(i))/cutoff(i)) POINTEo,,,,,,,!Tmake aNDleaO- onI box POINTEo,,,,,,,IF_gNm(i,-dom)-.LmshdeeNm(i,-dom)-(11,Oern_,no,,,,,,aellsize(i) = (xmax(i) --xmin(i))/--(i)Nm(i,-dom),MKIIeturn8888-msh---R CBOXldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:):,:)r,no,,,,,,,!TEFindOouNDhownmanyFghost lay_r, are needed:r,no,,,,,,,!TEmo - long---addFghost lay_r, to=_litdomainDsnnceb_l,3=wouldnresultr,no,,,,,,,!TES FeifaasSS FORe i2nknnnlsue to=nummericalneifaasR CBOXldddd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:):,:)r,no,,,,,,,Ngl(1:6)-(1,i O),mk))IF_glsymm) erne ! EXPLOIT SYMMETRYp=>don)yt eedFghost ,Oern_,no,,,,,,mmmi=1,eox ll- ! lay_r, LTgonI sideIeturn8888---BOU88-Ngl(eox ll- + i)-(11,Oern_,no,,,,,,, 2----WRITE(ms ,,,,eturn8888---BOU88- ! mmm3i2DEXPLOIT SYMMETRYp=>dghost lay_r, ,Oern_,no,,,,,,mmmi=1,eox ll- ! a))(aroundIeturn8888---BOU88Ngl(i)-(11,Oern_,no,,,,,,88-Ngl(eox ll- + i)-(11,Oern_,no,,,,,,, 2----WRITE(ms , 2-BO =IINT eLd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:):,:)r,no,,,,,,,!TER2nkFORe BOX''''PrnS F_l,3=ext-nded sub POINTE eLd!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:):,:)r,no,,,,,,,rmsh_compim d_m 2) ernel supportrlddddIF_gcc,lmoddpidx)) ernel supportrlddddd d Npdx-(1SIZE(pidx-1Bi O),mk))))))))))tis_s2p_putil_i2nk2d(xpO-:2,pidx),Npdx,xmin(d:2),xmax(d:2),nnnnnnnIF(LIIItim_T_nnnnnnnnNm(-:2,-dom),Ngl(1:4),c-BO---dom)%lpdxinnnnnnnIF(LIIItim_T_nnnnnnnnc-BO---dom)%lhbxi-BOXIIeturn8888-U88-,,,, supportrB!ddd))))tis_s2p_putil_i2nk2d(xp,Np,xmin(d:2),xmax(d:2),Nm(-:2,-dom),nnnnnnnIF(LIIItim_T_nnnnnnnnNgl(1:4),c-BO---dom)%lpdxic-BO---dom)%lhbxi-BOXIIeturn8888-U88-,sh_co,wp,vp/ld((x)d!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)r,no,,,,,,,, ND! Wen20nS Fa))(sopNp _LTs kin ------BOXIIeturn8888---------LLIFYE2.l_3i2d_mi2 -i2 -msh_co,wp,vp/ld(, 2----WRITE(ms IF_gNp1.LEsh_comp_w)))Rts', T((xdoinRtspox e tlKwarldopolsopmetis_s2p_ptis_s2p_p-ifaafaafaa ONTINUlin ---nl_,I-BO-)c-BO---nnnnnnnnnIF(LIIItim_T_'Np1must CBO>0 kin ------BOXIIeturn8888-----LLIFYE2.l_3i2d_mi2 -msh_co,wp,vp/ld(IF_gtd_m epd_m -[E2_und fine)&-(t r,ll---domom-doinRtspox e tlKwarldopolsopmetis_s2p_ptis_s2p_p-ifaafaafaa ONTINUlin ---nl_,I-BO-)c-BO---nnnnnnnnnIF(LIIItim_T_'A d fine iin logy must CBOgiven kin ------BOXIIeturn8888-----LLIFYE2.l_3i2d_mi2 -msh_co,wp,vp/ld(tis_s2p_pc2n(1_('valid--BOXIIeturn88888IF_g_3i2dnvalid &-(t r,ll---domom-doinRtspox e tlKwarldopolsopmetis_s2p_ptis_s2p_p-ifaafaafaa ONTINUlin ---nl_,I-BO-)c-BO---nnnnnnnnnIF(LIIItim_T_ _n'touNDof rang- kin ------BOXIIeturn8888-----LLIFYE2.l_3i2d_mi2 -msh_co,E2.l s s2/olso/ldopolsotroLD SUBROUTINE2n(1.IIIE2.l_c &',---h&',xp,Np,up,&-(t r CBOXLtroLD SUBROUTINw)))nl_,I-BO-)c-BO-_sOn_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1LtroLD SUBROUTINw)))nl_,I-BO-)c-BO-_dp,cld_uplib ---1.2/src/nl_,I-BO-/w)))nl_,I-BO-)MkNl_,IIdx.f000644 000765 000024 00000022677 11445666063 022626 0umodu00omdumodff000000 000000 ''n(1Lu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnSubroutineN :nnnnn(LIIItim_Tw)))nl_,I-BO-)MkNl_,IIdxR CBOXl!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrCopyr_,I1 (c) 2010 CSE Lab (ETH ZuricfA3=MOSAIC Lab (ETH ZuricfA3= POINTERrnnnnnnnnnnnnnnnnnnnCNUlergfumbFlu1Dynamics (DTU_MK.-Ix3!MK.-Ix3!MK.-Ix3!)TRis fileIII-BOX'goDOee_mParallel POX''''P di,n.Libr!--((PPM).MK.-Ix3!MK.-Ix3!)PPMIII-free software: you can redistribm_)Oi!nand/umbmod_uy opolsouOi!nund pe_mlermsgoDOee_mGNU LessertGeneral P---Bc.License= POINTERraI-B---BOhed byOee_mFree Software Founrc/, eiee_r= POINTERrver _LTg3goDOee_mLicense, umb(at your oprc/)nany lat_r= POINTERrver _LT.MK.-Ix3!MK.-Ix3!)PPMIII-distribm_)dSS FORe hopet_lat i!nwillgbe useful,MK.-Ix3!)bm_ WITHBRO ANY WARRANTY;Xmn.=ouNDevIEL I ,mpli)dSwwri2nty oDwould y! MERCHANTABILITY umbFITNESS FOR AN'''TICULAR PURPOSE. SeeFORe POINTERrGNU General P---Bc.License=fumbmore details.MK.-Ix3!MPOINTERrYou s=ouldn2.MK.-Ix3!MK.-Ix3!)Parallel POX''''P di,n.Libr!--((PPM)MK.-Ix3!)ETH Zuricf POINTERrCH-8092 Zuricf, Smn.zerland opolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, opolsoD SUBROUTIN ---nl_,I-BO-)MkNl_,IIdxglsymm--Bd,jBd,nnd--BOXIIeturn8CretsisD I S dexBoffsetg-BO- of aellg-Bt_rac-rc/o.Ieturn8T I S t_rac-rc/gfumb_lBOcellgmn.= itself ,3=a)ways includedraIIeturn8_lBOfirst NUlry.Ieturn8Ieturn8[3i2E]Ieturn8IDOee_mloops dot ---vectorize, mayb)twl eedFtRdould y!!! dupliRtsenee_mrandOpuNDIFh_compim...) 2)dte,,:: xpI!)! !! around!Ieturn8Ieturn8[WARN,xp]Ieturn8`S d`nandO`j d`nare-a)))RtsedSS side _l,3=routineT IIeturn8-BO-s are-a)ways (3 x nnd)Dsnnceb_lIELnoLIIItebug.2)dte,,:: SS FORe innermloop are neededFtRdould y!!! dBO-inguBOhgbetweIEL2DnandO3D case. Snnceb`n d`ni xpI!)! !! <28nanyway,b_l,3=s=ouldn ---be too much ofSa memoryxpI!)! !! waste.,would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOIncludeolso/ldouusOR(_3 RusOReindi,n.---B!--(i)t& _m ONTINUlin ---- -[E2sl_f-op(_E2._rmsIInclude "_comp_fine.h",ould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOModuCB xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!USEN,wp,moduCBwn.---B!USEN,wp,moduCBwsp,2)duln.---B!USEN,wp,moduCBwsp,2)opn.---B!USEN,wp,moduCBwx e tlKwarldUSEN,wp,moduCBwa)))RlKwarldIMPLICIT NONldopolsolKwarldIolsopm, '''AMEvpmlsinMKin-w)))kind_do---e ould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOA,no,,:: xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!LOGICAL 3=TEGER, INNTEBBsinlsymm,gc----Tgfumbusnnn symmet--, Fgfumbfullg-BO-lKwarldIolsopm, !. IRcludG','n3=bud,vpmlllllllsininIeturn8First S t_rac-rc/gBOX'nerm(boxSw-ich-*-Bt_rac-s*).Ieturn8Ieturn81O- i dex:n1...3 (x,y,[z]) S dexBshift. + POINTER!Rr2nd i dex:nS t_rac-rc/gnumber1...n d.lKwarldIolsopm, !. IRcludG','n3=bud,vpmlllllllsinjnIeturn8Second i t_rac-rc/gBOX'nerm(boxSw-ich-*-s i t_rac-)dSwn.=*).Ieturn8 Ieturn81O- i dex:n1...3 (x,y,[z]) S dexBshift. + POINTER!Rr2nd i dex:nS t_rac-rc/gnumber1...n d.lKwarldIolsopm INTEGER, BRO)esinnnIeturn8Numberof box-boxS-Bt_rac-rc/ogbe perfummed.Ieturn8polsopmR :: MKurn8888kiINTEGER, BRO)esininfRdould y!!! Returns 2)dtus, 0nTELsuccesot.---B!u3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrnwwcalnvariabCBO , &-(tu3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTErolsopmR :: MKurn8888kind_doubleBBBBBsini,j,k,l,ibox,jbox,nz,idm,gc------(i)MKBR :: MKurn8888kinnnnnnnnnnnnnsin0 POINTE! a)))Rn.---B!rolsopm, !. IRcludG2BBBBBBBBBBBBBBBBBsinf fs--_3 RpolsopmR :: MKurn8888kind_doubleBBBBBsinioptwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, so/ldoSIZE(xp,2)dul ',wp,nl_,I-BO-)MkNl_,IIdx----IIeturnwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOC kina,no,,:: xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&-(t r,ll---domom-doinRtspox e tlKwarldopolsopmetis_s2p_ptis_s2p_p-ifaafaafaa aafanoinit,',wp,nl_,I-BO-)MkNl_,IIdx--nnnnnnnnnIF(LIIItim_T_'PleaOe callg,wp,init first! kin ------BOXIIeturn8888-----LLIFYtigdeox e tttttmsh_co,wp,vpmsh-BO =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOmelermineNnumberof box-boxS-Bt_rac-rc/oneeded =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEnn-(1,i O),!L2Dnusnnn symmet--n.---B!rmsh_compim d_m 2 .AND. lsymm) nn-(15i O),!L2Dn3i2Dusnnn symmet--n.---B!rmsh_compim d_m 2 .AND. g_3i2dnlsymm)) nn-(19i O),!L3Dnusnnn symmet--n.---B!rmsh_compim d_m 3 .AND. lsymm) nn-(114i O),!L3Dn3i2Dusnnn symmet--n.---B!rmsh_compim d_m 3 .AND. g_3i2dnlsymm)) nn-(127iwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOA)))Rtsenmemory=fumbS t_rac-rc/g-BO-swould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTE E2.l l=depd_m -[E2a)))R_fit POINTEl-a(dee=h3 POINTEl-a(2ee=hnnIeturn8TIdeex e , &-(t-Bd,l---d)))Rt &-(t r', sIII d_) ernel supportrl'EbRin-w)))Rt deofll supportrltis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)MkNl_,IIdx--nnnnnnnnnnnIF(LIIIti'I t_rac-rc/g-BO-RpoD kin ------BOXIIeturn8888-wantltigdeox e tl 2-BOox e tTIdeex e , &-(tjBd,l---d)))Rt &-(t r', sIII d_) ernel supportrl'EbRin-w)))Rt deofll supportrltis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)MkNl_,IIdx--nnnnnnnnnnnIF(LIIIti'I t_rac-rc/g-BO-RJoD kin ------BOXIIeturn8888-wantltigdeox e tl 2-BOwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOInitializI S dnandOjnd opolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, opolsoDO j=1,nndIeturn8888-mmmi=1,3Ieturn8888-rtrl'Ed(i,j)-(1,i O),mk))))))jEd(i,j)-(1,i O),mk))msh----WRITEtro---R CBOXl!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOSet zndirec-rc/ accordnnnlOR sopNp _LTality =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEnz-(1,i O),rmsh_compim d_m 3)nernel supportrlnz-(11eox e tl 2-BOwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,n POINTERrOCompm_)Onl_,Ibour iTdice2would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,n POINTEIF_glsymm) ernel supportr!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)nl supportr! Usnnn symmet--n.---B!rtr!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)nl supportrrrrrrrrrrrrrrrrrr!bS t_rac-rc/g 0n-- 0 (as i itialize)O =IINT eLjEd(1,2ee=h1rrrrr!bS t_rac-rc/g 0n-- 1O =IINT eL'Ed(2,3) =h1rrrrr!bS t_rac-rc/g 0n-- 3O =IINT eLjEd(1,4) =h1rrrrr!bS t_rac-rc/g 0n-- 4 =IINT eLjEd(2,4) =h1O =IINT eL'Ed(1,5) =h1rrrrr!bS t_rac-rc/g 1n-- 3O =IINT eLjEd(2,5) =h1O =IINT eLrmsh_compim drmsh2) ernel supportrldddjEd(3,5) =h1rrr!bS t_rac-rc/g 0n-- deox e tttttttt'Ed(1,5) =h0rrr!bresetgOR zero (1-3nwillgbe furee_r=down)l supportrldddjEd(2,5) =h0 l supportrldddjEd(1,6) =h1rrr!bS t_rac-rc/g 0n-- 10l supportrldddjEd(3,6) =h1 l supportrldddjEd(2,7) =h1rrr!bS t_rac-rc/g 0n-- 12l supportrldddjEd(3,7) =h1 l supportrldddjEd(1,8) =h1rrr!bS t_rac-rc/g 0n-- 13l supportrldddjEd(2,8) =h1l supportrldddjEd(3,8) =h1 l supportrlddd'Ed(1,9) =h1rrr!bS t_rac-rc/g 1n-- 3O =IINT eLldddjEd(2,9) =h1 l supportrlddd'Ed(1,1_) =h1rrr!bS t_rac-rc/g 1n-- 9l supportrldddjEd(3,1_) =h1 l supportrlddd'Ed(1,11) =h1rrr!bS t_rac-rc/g 1n-- 12l supportrldddjEd(2,11) =h1l supportrldddjEd(3,11) =h1 l supportrlddd'Ed(2,12) =h1rrr!bS t_rac-rc/g 3n-- 9l supportrldddjEd(3,12) =h1 l supportrlddd'Ed(2,13) =h1rrr!bS t_rac-rc/g 3n-- 10l supportrldddjEd(1,13) =h1l supportrldddjEd(3,13) =h1 l supportrlddd'Ed(1,14) =h1rrr!bS t_rac-rc/g 4n-- deox e tttttttt'Ed(2,14) =h1l supportrldddjEd(3,14) =h1l supportrmsh_co,wp,vpm,,, supportr!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)nl supportr! Fullg-BO-lKwarldrtr!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)nl supportrlortr(1,i O),mk)iboxr(1,i O),mk)mmmk=-nz,nzl supportrlddDO j=-1,1l supportrrrrrrrmmmi=-1,1l supportrrrrrrrrtr!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/l supportrrrrrrrrtr!rOAdd to=_litS t_rac-rc/g-BO-swould yrtrrrrrrrrtr!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/l supportrrrrrrrrtrle=hf +11,Oern_,no,,,,,,88-E! cNUlergboxS-Bt_rac-s WITHFa))(boxPrnaroundOit,Oern_,no,,,,,,88-EjEd(1,l) =hi,Oern_,no,,,,,,88-EjEd(2,l) =hj,Oern_,no,,,,,,88-EjEd(3,l) =hk,88-E! willga)ways be 0=fumb2d case,Oern_,no,,,,,,8, 2----WRITE(ms ,8, 2----WRITE(msmsh----WRITEtro-BO =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOReturnR CBOXT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, P-B--s2/olso/ldopolssSIZE(xp,2)op ',wp,nl_,I-BO-)MkNl_,IIdx----IIeturnopolssRETURiORsf2 dtroLD SUBROUTINw)))nl_,I-BO-)MkNl_,IIdxRlib ---1.2/src/nl_,I-BO-/w)))nl_,I-BO-)v-BO-.f000644 000765 000024 00000101572 11445666063 021770 0umodu00omdumodff000000 000000 =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOSubroutineN :nnnnn(LIIItim_T_w)))nl_,I-BO-)v-BO- =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrCopyr_,I1 (c) 2010 CSE Lab (ETH ZuricfA3=MOSAIC Lab (ETH ZuricfA3= POINTERrnnnnnnnnnnnnnnnnnnnCNUlergfumbFlu1Dynamics (DTU_MK.-Ix3!MK.-Ix3!MK.-Ix3!)TRis fileIII-BOX'goDOee_mParallel POX''''P di,n.Libr!--((PPM).MK.-Ix3!MK.-Ix3!)PPMIII-free software: you can redistribm_)Oi!nand/umbmod_uy opolsouOi!nund pe_mlermsgoDOee_mGNU LessertGeneral P---Bc.License= POINTERraI-B---BOhed byOee_mFree Software Founrc/, eiee_r= POINTERrver _LTg3goDOee_mLicense, umb(at your oprc/)nany lat_r= POINTERrver _LT.MK.-Ix3!MK.-Ix3!)PPMIII-distribm_)dSS FORe hopet_lat i!nwillgbe useful,MK.-Ix3!)bm_ WITHBRO ANY WARRANTY;Xmn.=ouNDevIEL I ,mpli)dSwwri2nty oDwould y! MERCHANTABILITY umbFITNESS FOR AN'''TICULAR PURPOSE. SeeFORe POINTERrGNU General P---Bc.License=fumbmore details.MK.-Ix3!MPOINTERrYou s=ouldn2.MK.-Ix3!MK.-Ix3!)Parallel POX''''P di,n.Libr!--((PPM)MK.-Ix3!)ETH Zuricf POINTERrCH-8092 Zuricf, Smn.zerland opolsou3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, IIIE2.l_c &',---h&',xp,Np,up,&-(t r CBOXLD SUBROUTINw)))nl_,I-BO-)v-BO-_s('xp,Np,cutoff,skin,lsymm,v-BO-, nnnnnnnIF(LIIItim_T_ _nnv-BO---BOX,pidx,lstore)On_,no,,&c &',---h&',xp,Np,up,&-(t r''n(1LD SUBROUTINw)))nl_,I-BO-)v-BO-_d('xp,Np,cutoff,skin,lsymm,v-BO-, nnnnnnnIF(LIIItim_T_ _nnv-BO---BOX,pidx,lstore)Oopolsou!RrCretsi Verletg-BO-s fs+-a))(pOX''''Pr oDOeeII-Brocesoor.Ieturn8Ieturn8[3i2E]Ieturn8====================================================Ieturn8T I -BO-Rneedogbe rebuil--as soc/ arna(pOX''''PIeturn8harnmov)dSa distance largert_lanskin. I- is t IIeturn8USERsbresponsibilitylOR setec- mhe F_l,3=is t IIeturn8caserandOSIZE(_l,3=routine again.Ieturn8Ieturn8v-BO- andO v-BO- are a)))RtsedSS (_l,3=routine.T IIeturn8user just needogBOss nt_r,.Ieturn8Ieturn8pe_mlwocases fs+-lsymmn20 kin ------BOXIIeturn8888-----LLIFYtigdeox e tttttmsh_co,wp,vp, 88IF_gskin ILmsh_.0_MKBRernel supportrlddddinRtspox e tlKwarldopolsopmetis_s2p_ptis_s2p_p-ifaafaafaa ONTINUlin ---nl_,I-BO-)v-BO---nnnnnnnnnIF(LIIItim_T_'skin must CBO>= 0 kin ------BOXIIeturn8888-----LLIFYtigdeox e tttttmsh_co,wp,vp, 88IF_gNpdx-.LEsh_comp_w)))Rts', T((xdoinRtspox e tlKwarldopolsopmetis_s2p_ptis_s2p_p-ifaafaafaa ONTINUlin ---nl_,I-BO-)v-BO---nnnnnnnnnIF(LIIItim_T_'Np1must CBO>0 kin ------BOXIIeturn8888-----LLIFYtigdeox e tttttmsh_co,wp,vp, 88IF_gtd_m epd_m -[E2_und fine)&-(t r,ll---domom-doinRtspox e tlKwarldopolsopmetis_s2p_ptis_s2p_p-ifaafaafaa ONTINUlin ---nl_,I-BO-)v-BO---nnnnnnnnnIF(LIIItim_T_'Geomet-ic iin logy required kin ------BOXIIeturn8888---BOU88-wantltigdeox e tttttmsh_co,wp,vp, 88IF_gtdII depd_m -[E2_und fine)&-(t r,ll---domom-dotis_s2p_pc2n(1_('valid--BOXIIeturn88888, 88IF_g_3i2dnvalid &-(t r,ll---domom-dom-doinRtspox e tlKwarldopolsopmetis_s2p_p2p_ptis_s2p_p-ifaafaafaa ONTINUlin ---nl_,I-BO-)v-BO---nnnnnnnnnIF(LIIItim_T_im_T_'touNDof rang- kin ------BOXIIeturn8888-----U88-wantltigdeox e tttttttttmsh_co,wp,vp, 88msh_co,wp,vpmsh-BO =IINTp=>deox (id)%tnwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOBoxPrn eedFtR CBOcutoff+skin S Fa))(sorec-rc/o3!MK.-Ix3!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEmmmi=1,eox ll- POINTEo,,,bsize(i) = cutoff +nskinOopolsomsh----WRITEcut2 = bsize(1)*bsize(1)would y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOGenerasi aellg-BO-s xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrltis_s2p_pnl_,I-BO-)c-BO-('xpG',pidx),Npdx,bsize, nnnnnnnIF(LIIItim_T_ _nnnnnnnnnnnnnnnlsymm,c-BO--Nm--BOXIIeturn8,,,, supportrBtis_s2p_pnl_,I-BO-)c-BO-('xp,Npdx,bsize,lsymm,c-BO--Nm--BOXIIeturn8, 2_co,wp,vpIF_g &-(sIII d_) ernel supportrl'EbRin-w)))Rt deoldopolsopmetis_stis_s2p_p-ifaafaafaa )ofiled,',wp,nl_,I-BO-)v-BO---nn nnnnnnnIF(LIIItim_'Buildnnnlaellg-BO-s filed. kin ------BOXIIeturn8888-wantltigdeox e tl 2-BOox e t!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOGenerasi aellgnl_,Iborg-BO-s xpI!)! m!!iG it2and/os xpI!)! m!!iG it2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdxglsymm--Bp,jnp,nnp,-BOXIIeturn8IF_g &-(III _) ernel supportrl'EbRin-w)))Rt deoldopolsopmetis_stis_s2p_p-ifaafaafaa )ofiled,',wp,nl_,I-BO-)v-BO---nnnnnnnnnIF(LIIIti'nl_,I-BO-)MkNl_,IIdx filed kin ------BOXIIeturn8888-wantltigdeox e tl 2-BOox e t!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOA)))Rtsenmemory=fumbVerletg-BO-nlengthsOox e t!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTE E2.l=depd_m -[E2a)))R_grow POINTEl-a(dee=hNpdxIeturn8TIdeex e , &-(tnv-BO--l---d)))RtBOXIIeturn8IF_g &-(sIII d_) ernel supportrl'EbRin-w)))Rt deofll supportrltis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnnnIF(LIIItim'Verletg-BO-nsizes NVLIST kin ------BOXIIeturn8888-wantltigdeox e tl 2-BOox e tnv-BO-(1:Npdx) =h0 l suppo!3 RusOR(_3 RusOReindi,n.---B!--(2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!RrOwwwergboxSboun depend, LTgsymmet--muse POINTER3 RusOR(_3 RusOReindi,n.---B!--(2and/os xp)wx1_d pivi k3 RusOReindi,n.---B!IF_glsymm) erne supportrBlbr(1,i O),,,,, supportrBlb-(11eox e tl 2-BOwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,nndi,n.---B!RrOmelermineNsize oDOVerletg-BO-sMK.-Ix3!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEmmmisom=1,iin -n----BO- supportrBn1 -(1Nm(-,-dom) supportrBn2 -(1Nm(-,-dom)*Nm(2,-dom) supportrBnz -(1Nm(3,-dom)o,wp,vp, 88IF_g_compim d_m 2 &-(t r,ll---domom-don2-(1,i O),mk))))))nz-(12l supportrll 2-B supportrBloop ov_r=a))(--(i aells (O I -2 aND I en doPrn_lis)Oopolso,,,,mmmk=lb,nz-2l supportrlddddDO j=lb,Nm(2,-dom)-2l supportrlddddINTEmmmi=lb,Nm(1,-dom)-2l supportrlddddINTErtrBS dexBofb_lBOceUlergboxl supportrlddddINTErtrBcboxr(1i +11 +1n1*j +1n2*ko,wp,vp/ld((x)dupportrBloop ov_r=a))(box-boxS-Bt_rac-rc/oo,wp,vp/ld((x)dupportrBmmmi-Bt_r=1,nnpo,wp,vp/ld((x)dupportrBrtrBdelerminetboxS-Bdice2gfumb_l-s i t_rac-rc/ POINTErtrlddddddddddddddddiboxr(1cbox+g &p(1,-i t_r)+n1* &p(2,-i t_r)+ nnnnnnnIF(LIIItim_T_ _nnnnnnnnnnnnnn2* &p(3,-i t_r)IIeturn8888-----U88---------jboxr(1cbox+gj&p(1,-i t_r)+n1*j&p(2,-i t_r)+ nnnnnnnIF(LIIItim_T_ _nnnnnnnnnnnnnn2*j&p(3,-i t_r)IIeturn8888-----U88---------!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIo,wp,vp/ld((x)dupportrBrtrB ReadS-Bdice2gandOc2n(1SSf emptyIeturn8888-----U88---------!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIo,wp,vp/ld((x)dupportrBrtrBi2)dulr(1c-BO---dom)%lhbx(iboxIIeturn8888-----U88---------ieBd r(1c-BO---dom)%lhbx(ibox+1)-1,Oern_,no,,,,,,88-EEEEEEEEEIF_g eBd ILmshi2)dul) CYCL, supportrB!ddd))))--------!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIo,wp,vp/ld((x)dupportrBrtrB! Wi_l-EL I boxS-tself use=symmet--gandOavto,wp,vp/ld((x)dupportrBrtrB! addnnnlORe BOX''''PS-tself to i-s owng-BO-lKwarldrtrB!ddd))))--------!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIo,wp,vp/ld((x)dupportrBrtrBIF_g boxSd_m jbox &-(t r,ll---domom-dom-dooooooooooooommmiBOX'=i2)dul,ieBdr,ll---domom-dom-doooooooooooooooooipr(1c-BO---dom)%lpdx(iBOX'IIeturn8888-----U88---------rtrBrtrBIF_glsymm) ernel supportrll---domom-dom-dooooooooooooommmjpOX'=(iBOX'+1),ieBdr,ll---domom-dom-dooooooooooooooooooooooooojpr(1c-BO---dom)%lpdx(jBOX'IIeturn8888-----U88---------rtrBrtrBBBBBBBBB! transltseneoreal(pOX''''PIeturn8888-----U88---------rtrBrtrBBBBBBBBB! S dexBSf needed =IINTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTIF_gcc,lmoddpidx)) ernel supportrlddddd d iiin-widx(iBIIeturn8888-----U88---------rtrBrtrBBBBBBBBBBBBBjjin-widx(jBIIeturn8888-----U88---------rtrBrtrBBBBBBBBB,,,, supportrB!ddd)))) iiin-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBBBBBBjjin-jpo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBB,sh_co,wp,vp/ld((x)ddddddddddddddddddddddddddddddx-(1xp(1,-i) --xp(1,jjIIeturn8888-----U88---------rtrBrtrBBBBBBBBBdy-(1xp(2,-i) --xp(2,jjIIeturn8888-----U88---------rtrBrtrBBBBBBBBBrmsh_compim drmsh2) ernel supportrlddd-----U88---------rtrBrtrBBBBBBBBBdz-(1xp(3,-i) --xp(3,jjIIeturn8888-----U88---------rtrBrtrBBBBBBBBBBBBBdij= (dx*dx)+(dy*dy)+(dz*dzIIeturn8888-----U88---------rtrBrtrBBBBBBBBB,,,, supportrB!ddd)))) dz-(1_.0_MKIeturn8888-----U88---------rtrBrtrBBBBBBBBBBBBBdij= (dx*dx)+(dy*dy)o,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBB,sh_co,wp,vp/ld((x)dddddddddddddddddddddddddddddrmshdij drmshcut2) CYCL, supportrB!ddd))))------------------------!-addFBOX''''PSjp to=-BO- of supportrB!ddd))))------------------------!-BOX''''P ip supportrB!ddd))))------------------------nv-BO-(iBIe=hnv-BO-(iBIe+11,Oern_,no,,,,,,88-EEEEEEEEEEEEEEEEEEEEE, 2----WRITE(ms ,8-EEEEEEEEEEEEEEEEEEEEE,,,, #ifdeo,,&VECTORl supportrll---domom-dom-dooooooooooooommmjpOX'=i2)dul,ieBdr,ll---domom-dom-dooooooooooooooooooooooooojpr(1c-BO---dom)%lpdx(jBOX'IIeturn8888-----U88---------rtrBrtrBBBBBBBBBrmshjprd_m iBIeCYCL, #else,Oern_,no,,,,,,8omom-dom-dooooooooooooommmjpOX'=(iBOX'+1),ieBdr,ll---domom-dom-dooooooooooooooooooooooooojpr(1c-BO---dom)%lpdx(jBOX'II,cf--_dould yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy! transltseneoreal(pOX''''PIeturn8888-----U88---------rtrBrtrBBBBBBBBB! S dexBSf needed =IINTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTIF_gcc,lmoddpidx)) ernel supportrlddddd d iiin-widx(iBIIeturn8888-----U88---------rtrBrtrBBBBBBBBBB BBjjin-widx(jBIIeturn8888-----U88---------rtrBrtrBBBBBBBBB,,,, supportrB!ddd)))) iiin-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBBBBBBjjin-jpo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBB,sh_co,wp,vp/ld((x)dddddddddddddddddddddddddd dddx-(1xp(1,-i) --xp(1,jjIIeturn8888-----U88---------rtrBrtrBBBBBBBBBdy-(1xp(2,-i) --xp(2,jjIIeturn8888-----U88---------rtrBrtrBBBBBBBBBrmsh_compim drmsh2) ernel supportrlddd-----U88---------rtrBrtrBBBBBBBBBdz-(1xp(3,-i) --xp(3,jjIIeturn8888-----U88-------------rtrBrtrBBBBBBBBBdij= (dx*dx)+(dy*dy)+(dz*dzIIeturn8888-----U88---------rtrBrtrBBBBBBBBB,,,, supportrB!ddd)))) dz-(1_.0_MKIeturn8888-----U88---------rtrBrtrBBBBBBBBBBBBBdij= (dx*dx)+(dy*dy)o,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBB,sh_co,wp,vp/ld(((((((((((((((((((((((((((((((((rmshdij drmshcut2) CYCL, supportrB!ddd))))------------------------!-addFBOX''''PSjp to=-BO- of supportrB!ddd))))------------------------!-BOX''''P ip supportrB!ddd))))------------------------nv-BO-(iBIe=hnv-BO-(iBIe+11,#ifndeo,,&VECTORl supportrll---domom-dom-dooooooooooooo----nv-BO-(jBIe=hnv-BO-(jBIe+11,#cf--_dould yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy, 2----WRITE(ms ,8-EEEEEEEEEEEEEEEEEEEEE,sh_co,wp,vp/ld(((((((((((((((((((((, 2----WRITE(ms ,8-EEEEEEEEEEEEE!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIo,wp,vp/ld((x)dupportrBrtrB! Fumb_lBOoee_r(boxPrnc2n(1Sa))(BOX''''Pr--WRITE(ms ,8-EEEEEEEEEEEEE!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIo,wp,vp/ld((x)dupportrBrtrB,,,, supportrB!ddd)))) ! get nt_r, to=first andOlast BOX''''Pto,wp,vp/ld((x)dupportrBrtrBBBBBj2)dulr(1c-BO---dom)%lhbx(jboxIIeturn8888-----U88---------BBBBjeBd r(1c-BO---dom)%lhbx(jbox+1)-1,Oern_,no,,,,,,88-EEEEEEEEE ! skipr_l-s iint_r-Sf emptyIeturn8888-----U88-------------IfshjeBd ILmshj2)dul) CYCL, supportrB!ddd))))-------- ! loop ov_r=a))(BOX''''PrnS side _l,3=cell POINTEEEEEEEEEEEEEEEEEEEEEEEEEmmmiBOX'=i2)dul,ieBdr,ll---domom-dom-doooooooooooooooooipr(1c-BO---dom)%lpdx(iBOX'IIeturn8888-----U88---------rtrBrtrB!nc2n(1SagainstFa))(BOX''''PrnIeturn8888-----U88---------rtrBrtrB!n-EL I oee_r(cell POINTEEEEEEEEEEEEEEEEEEEEEEEEEEEEEmmmjpOX'=j2)dul,jend opolsooooooooooooooooooooooooooooooooojpr(1c-BO---dom)%lpdx(jBOX'IIeturn8888-----U88---------rtrBrtrBBBBB! transltseneoreal(pOX''''PIeturn8888-----U88---------rtrBrtrBBBBB! S dexBSf needed =IINTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTIF_gcc,lmoddpidx)) ernel supportrlddddd d iiin-widx(iBIIeturn8888-----U88---------rtrBrtrBBBBBBBBBjjin-widx(jBIIeturn8888-----U88---------rtrBrtrBBBBB,,,, supportrB!ddd)))) iiin-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBBjjin-jpo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBB,sh_co,wp,vp/ld(((((((((((((((((((((((((((((dx-(1xp(1,-i) --xp(1,jjIIeturn8888-----U88---------rtrBrtrBBBBBdy-(1xp(2,-i) --xp(2,jjIIeturn8888-----U88---------rtrBrtrBBBBBrmsh_compim drmsh2) ernel supportrlddd-----U88---------rtrBrtrBBBBBdz-(1xp(3,-i) --xp(3,jjIIeturn8888-----U88-------------rtrBrtrBBBBBdij= (dx*dx)+(dy*dy)+(dz*dzIIeturn8888-----U88---------rtrBrtrBBBBB,,,, supportrB!ddd)))) dz-(1_.0_MKIeturn8888-----U88---------rtrBrtrBBBBBBBBBdij= (dx*dx)+(dy*dy)o,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBB,sh_co,wp,vp/ld(((((((((((((((((((((((((((((rmshdij drmshcut2) CYCL, supportrB!ddd))))--------------------!-addFBOX''''PSjp to=Verletg supportrB!ddd))))--------------------!--BO- of BOX''''P-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBnv-BO-(iBIe=hnv-BO-(iBIe+11,Oern_,no,,,,,,88-EEEEEEEEEEEEEEEEE, 2----WRITE(ms ,8-EEEEEEEEEEEEEEEEE, 2----WRITE(ms ,8-EEEEEEEEEEEEEl 2-B ------!- boxSd_m jbox--WRITE(ms ,8-EEEEEEEEE, 2--8-EEEEEEEEE! iint_r--WRITE(ms ,8-EEEEE, 2--8-EEEEEEEEEEEEE! i TE(ms ,8-EEEEE, 2--8-EEEEEEEEEEEEEEEEE! j,Oern_,no,,, 2--8-EEEEEEEEEEEEEEEEEEEEE! ko,wp,vp, 2--8-EEEEEEEEEEEEEEEEEEEEEEEEE! idomOwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,nndi,n.---B!RrOMaximumbVerletg-BO-nlengthwould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,nndi,n.---B!maxvlene=hMAXVALtnv-BO-IIeturn8IF_g_comp_w))1.rmsh_comp_w)))Rts', 88WRITE(mesg,'(A,I8)') 'Maximumblength oDOVerletg-BO-s: ',maxvlen POINTEEEEEtis_s2p_pwriseg_comrank,',wp,nl_,I-BO-)v-BO---mesg,-BOXIIeturn8, 2_co,wp,vp!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!iiin-NpdxIeturn88888mmmiBOX'=Npdx,1,-1,Oern_,no,,,,,,IF_gnv-BO-(iBdul) .rmsh_comp_w)))Rts', 88INTE--B!iiin-iBdul--WRITE(ms ,8-EEEEE,XIT TE(ms ,8-EEEEE, 2_co,wp,vp, 88msh----WRITE(ms !3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!RrOA)))Rtsenmemory=fumbVerletg-BO-s)))Rts', 88!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!iE2.l=depd_m -[E2a)))R_grow POINTEEEEEl-a(dee=hmaxvlen POINTEEEEEl-a(2ee=hii POINTEEEEEtis_s2p_p, &-(tv-BO--l---d)))RtBOXIIeturn8,,,,IF_g &-(sIII d_) ernel supportrl--B!iEbRin-w)))Rt deofll supportrlEEEEtis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnnnnnnnIF(LIIItim'Verletg-BO-nVLIST kin ------BOXIIeturn8888-----wantltigdeox e tttttmsh_co,wp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!RrOBUILD VERLET LISTS ))Rts', 88!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!mmmisom=1,iin -n----BO- supportrB, 88n1 -(1Nm(-,-dom) supportrB, 88n2 -(1Nm(-,-dom)*Nm(2,-dom) supportrB, 88nz -(1Nm(3,-dom)o,wp,vp, 888888IF_g_compim d_m 2 &-(t r,ll---domom-do, 88n2 (1,i O),mk)))))), 88nz (12l supportrllllll 2-B supportrB--B!Rrget numberof aells S F_l,3=subdomai/ POINTErtrlddddnboxr(1SIZE(c-BO---dom)%lhbx,1)-1,Oern_,no,,,,,,loop ov_r=a))(--(i aells (O I -2 aND I en doPrn_lis)Oopolso,,,,,,,,mmmk=lb,nz-2l supportrldddd,,,,mmmj=lb,Nm(2,-dom)-2l supportrlddddINTE,,,,mmmi=lb,Nm(1,-dom)-2l supportrlddddINTErtrB,,,,S dexBofb_lBOceUlergboxl supportrlddddINTErtrBBBBBcboxr(1i +11 +1n1*j +1n2*ko,wp,vp/ld((x)dupportrB,,,,loop ov_r=a))(box-boxS-Bt_rac-rc/oo,wp,vp/ld((x)dupportrB,,,,mmmi-Bt_r=1,nnpo,wp,vp/ld((x)dupportrBrtrB,,,,delerminetboxS-Bdice2gfumb_l-s i t_rac-rc/ POINTErtrlddddddddddddddddddddiboxr(1cbox+g &p(1,-i t_r)+n1* &p(2,-i t_r)+ nnnnnnnIF(LIIItim_T_ _nnnnnnnnnnnnnn2* &p(3,-i t_r)IIeturn8888-----U88-------------jboxr(1cbox+gj&p(1,-i t_r)+n1*j&p(2,-i t_r)+ nnnnnnnIF(LIIItim_T_ _nnnnnnnnnnnnnn2*j&p(3,-i t_r)IIeturn8888-----U88-------------!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk),o,wp,vp/ld((x)dupportrBrtrB,,,, ReadS-Bdice2gandOc2n(1SSf emptyIeturn8888-----U88-------------!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk),o,wp,vp/ld((x)dupportrBrtrB,,,,i2)dulr(1c-BO---dom)%lhbx(iboxIIeturn8888-----U88---------,,,,ieBd r(1c-BO---dom)%lhbx(ibox+1)-1,Oern_,no,,,,,,88-EEEEEEEEEEEEEIF_g eBd ILmshi2)dul) CYCL, supportrB!ddd))))------------!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk),o,wp,vp/ld((x)dupportrBrtrB,,,,! Wi_l-EL I boxS-tself use=symmet--gandOavto,wp,vp/ld((x)dupportrBrtrB,,,,! addnnnlORe BOX''''PS-tself to i-s owng-BO-lKwarldrtrB!ddd))))------------!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk),o,wp,vp/ld((x)dupportrBrtrB,,,,IF_g boxSd_m jbox &-(t r,ll---domom-dom-dooooooooooooooooommmiBOX'=i2)dul,ieBdr,ll---domom-dom-doooooooooooooooooooooipr(1c-BO---dom)%lpdx(iBOX'IIeturn8888-----U88---------rtrBrtrBBBBBkke=hnv-BO-(iBIo,wp,vp/ld(((((((((((((((((((((((((((((rmshlsymm) ernel supportrll---domom-dom-dooooooooooooooooommmjpOX'=(iBOX'+1),ieBdr,ll---domom-dom-dooooooooooooooooooooooooooooojpr(1c-BO---dom)%lpdx(jBOX'IIeturn8888-----U88---------rtrBrtrBBBBBBBBBBBBB! transltseneoreal(pOX''''PIeturn8888-----U88---------rtrBrtrBBBBBBBBBBBBB! S dexBSf needed =IINTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTIF_gcc,lmoddpidx)) ernel supportrlddddd d iiin-widx(iBIIeturn8888-----U88---------rtrBrtrBBBBBBBBBB BBBBBBjjin-widx(jBIIeturn8888-----U88---------rtrBrtrBBBBBBBBBBBBB,,,, supportrB!ddd)))) iiin-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBBBBBBBBBB iiin-ipo,wp,vp/ld((x)dupportrBrtrBrtrBr .GER, BRO)esininfRdould y!!! Returns 2)dtus, 0nupTELsuccesot.---B!polsopm, !. IRcludG','n 3=bud,vpmlllllllsinv-BO-n.---B!u!! Verletg-BO-.First S dex:npOX''''Pr mn.= w-ich-BOX''''P ipS-Bt_rac-s.Ieturn8Second i dex:nip.T I second i dexdon)ytruns up to=_no,,, POINTERrOpporo,,, POINTERrOpporoBO-.)TRis io, 88n2 -(1Nm(-,---BtrBBBBBBBBBdij= (dx*dx)+(dy*dy)+(dz*dzIIeturn8888-----U88---------rtrB,---BtrBBBBBBBBB,,,, supportrB!ddd)))) dz-(1_.00000-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBBBBBBBBBB ij= (dx*dx)+(dy*dy)o,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBB iBBB,sh_co,wp,vp/ld(((((((((((((((((((((((((((((((((rmshdij drmmmmmot.---B!polsopm, !. IRcludG','n 3=bud,vpmlllllllsinv--------!-addFBOX''''PSjp to=-BO- of supportrB!ddd))))----------------------------!-BOX''''P ip supportrB!ddd))))------------------------nv--------(iBIe=hnv-BO-(iBIe+11,#ifndeo,,&VECTORl supportrll-------symm)sym8-EEEEEEEEEEEEEEEEEEEEE,,,, #ifdeo,,&VECTOOOOOOOOOernel kk,---WRId((x)dddddddddddddddddddddddddd dddx-(1xp(1,-i) ((((((((((((((, 2----WRITE(ms ,8-EEEE(1,-immjpOX'=i2)dul,ieBdr,ll---domom-dom-dooooooooooooooooooooooooooooojpr(1c-BO---dom)%lpdx(jBOX'IIeturn8888-----U88---------rtrBBBBBrtrBBBBBBBBBBBBB! transltseneoreal(pOX''''PIeturn8888-----U88---------rtrBooooooommmjpOX'=(iBOX'+1),ieBdr,ll---domom-dom-doooooooooooooooooooooooooojpr(1oojpr(1c-BO---dom)%lpdx(jBOX'IIeturn8888-----U88---------rtrBrtrBBBBBBBBBBBBB! transltseneeneoreal(pOX''''PIeturn8888-----U88---------rtrBBBBBrtrBBBBBBBBBBBBB! S dexBSf needed =IINTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTIF_gcc,lmoddpidx)) ernel supportrlddddd d iiin-widx(iBIIeturn8888-----U88---------rtrBrtrBBBBBBBBBB BBBBBBjjin-widx(jBIIeturn8888-----U88----------------------------B,,,, supportrB!ddd)))) iiin-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBBBBBBBBBB iiin-ipo,wp,vp/ld((x)dupportrBrtrBrtrBr .GER, BRO)esininfRdould y!!! Returns 2)dtus, 0nupTELsuccesot.---B!polsopm, !. IRcludG','nnnnnnnnnnnnnnnnnnnnnn-BO-n.---B!u!! Verletg-BO-.First S dex:npOX''''Pr mn.= w-ich-BOX''''P ipS-Bt_rac-s.Ieturn8Second i dex:nip.T I second i dexdon)ytruns up to=_no,,, POINTERrOpporo,,, POINTERrOpporoBO-.)TRis io, 88n2 -(1Nm(-,---BtrBBBBBBBBBdij= (dx*dx)+(dy*dy)+(dz*dzIIroBO-.)TRis io, 88n2 -(1Nm(-,---BtrBBBBBBBBB,,,, supportrB!ddd)))) dz-(1_.00000-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBBBBBBBBBB ij= (dx*dx)+(dy*dy)o,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBB iBBB,sh_co,wp,vp/ld(((((((((((((((((((((((((((((((((rmshdij drmmmmmot.---B!polsopm, !. IRcludG','n 3=bud,vpmlllllllsinv--------!-addFBOX''''PSjp to=-BO- of supportrB!ddd))))----------------symm)sym8-EEEEEEEEEEEEEEEEEEEEE,,,, #ifdeo,,&VECTOOOOOOOOO------------!-BOX''''P ip supportrB!ddd))))------------------------nv--------(iBIe=hnv-BO-(iBIe+11,#ifndeo,,&VECTORl supportrll-------ernel kk,---WRId((nv-BO-(jBIe=hnv-BO-(jBIe+11,#cf--_dould yyyyyyyyyyyyyyyyyyy----------------!-BiX''''P ip supportrB!ddd))))------------------------nv--------(iBIe=hn)esininfRdould y!!! Returns 2)dtus, 0nupTELsuccesyyyyyyyyyyyyyy, 2----WRITE(mininfRdould y!!! Returns 2)dtus, 0nupTELsucces, 2---y, 2----WR,yyyyyyv-Beneoreal(pOX''''PIeturn8888-----U88---------rtrBi) ((((((((((((((, 2----WRITE(ms ,8-EEEE(1,-it.---B!polsopm, !. IRcludG','n 3=bud,vpmlllEEE, 2----WRIk-rc/oo,wp,vp/ld((x)dupportrB----rtrBi) ((((((((((((((, 2----WRITE(ms ,8-d((x)dupportrBrtrB,,,,! Wi_l-EL I boxS-tself use=symmet--gandOavto,wp,vp/ld((x)EEEEEEE!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIo,wp, ,8-d((x)dupportrBrtrB,,,,! Wi_l-EL I boxS-tself use=symmet--gandOavto,wp,vp/ld(-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBportrBrtrBBBBBj2)dulr(1c-BO---dom)%lhbx(jboxIIeturn8888-----U88---------BBBBBBBBjeBd r(1c-BO---dom)%lhbx(jbox+1)-1,Oern_,no,,,,,,88-EEEEEEBBBBBEE ! skipr_l-s iint_r-Sf emptyIeturn8888-----U88-------------ItrBBpohjeBd ILmshj2)dul) CYCL, supportrB!ddd))))-------- !!!!!ooooo ov_r=a))(BOX''''PrnS side _l,3=cell POINTEEEEEEEEEEEtrBBpoEEEEEEEEEEEEmmmiBOX'=i2)dul,ieBdr,ll---domom-dom-doooooooooooooooooipr(((((ipr(1c-BO---dom)%lpdx(iBOX'IIeturn8888-----U88---------rtrBrtrBBBBBkke=hnv-BO-(iBIo,wp,vp/ld(((((((((((((((((((((((((((((rmshlsymm) ernel supportrll---domom-dom-dooooooooooooooooomrBrtrB!n-EL I oee_r(cell POINTEEEEEEEEEEEEEEEEEEEEEEEEEEEEEmmmjpooomrB'=j2)dul,jend opolsooooooooooooooooooooooooooooooooooooojpr(1c-BO---dom)%lpdx(jBOX'IIeturn8888-----U88---------rtrBBBBBrtrBBBBBBBBB! transltseneoreal(pOX''''PIeturn8888-----U88---------rtrBrtrBBBBBBBBB! S dexBSf needed =IINTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTIF_gcc,lmoddpidx)) ernel supportrlddddd d iiin-widx(iBIIeturn8888-----U88---------rtrBrrrrrrrrrrrrrrrBjjin-widx(jBIIeturn8888-----U88---------rtrBrtrBBBBBBBBB,,,, supportrB!ddd)))) iiin-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBBBBBBjjin-jpo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBB,sh_co,wp,vp/ld((x)dddddddddddddddddddddddddd iiin-ipo,) --xp(1,jjIIeturn8888-----U88---------rtrBrtrBBBBBBBBBdy-(1xp(2,-i) --xp(2,jjIIeturn8888-----U88---------rtrBrtrBBBBBBBBBrmsh_compim drmsh2) ernel supportrlddd-----U88---------rtrBrtrBBBBBBBBBdz-(1xp(3,-i) --xp(3,jjIIeturn8888-----U88-------------rtrBrtrBBBBBBBBBdij= (dx*dx)+(dy*dy)+(dz*dzIIeturn8888-----U88---------rtrBrtrBBBBBBBBB,,,, supportrB!ddd)))) dz-(1_.0_MKIeturn8888-----U88---------rtrBrtrBBBBBBBBBBBBBdij= (dx*dx)+(dy*dy)o,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBBBBBBB,sh_co,wp,vp/ld(((((((((((((((((((((((((((((((((rmshdij drmshcut2) CYCL, supportrB!ddd))))------------------------!-addFBOX''''PSjp to=-BO- of supportrB!ddd))))------------------------!-BOX''''''''P-ipo,wp,vp/ld((x)dupportrBrtrBrtrBrtrBBBB------v-BO-(iBIe=hnv-BO-(iBIe+11,Oern_,no,,,,,,88-EEEEEEEEEEEEEEEEEEsymm)sym8-EEEEEEEEEEEEEEEEEEEEE,,,, #ifdeo,,&VECTOOOOOernel kk,---WRId((x)dddddddddddddddddddddddddd dddx-(1xpi) ((((((((((((((, 2----WRITE(ms ,8-EEEE(1,-EEE, 2----WRIk-rc/oo,wp,vp/ld((x)dupportrB----rtrBi) ((((((((((((((, 2----WRITE(ms ,8-EEEEEEEE! iint_r--WRITE(ms ,8-EEEEE, 2--8-EEEEEEEEErtrBi) ((EEEEEEErtrB-EEEEE, 2--8-EEEEEEEEEEEEEErtrBi) ((EEEEEEErtrBrtrB-EE2--8-EEEEEEEEEEEEEEEEEEEEE! ko,wp,vp, 2--8-EEEEEEEEEEEEEEEEEEEEEEEEE! ko,wp,vp, 2--8---8-EE-rc/oo,wp,vpusOReindi,n.---B!--(i)t----BREAL(mk), ,wp,vpusOEEEEE! iint!3 RusO ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Licenworke tl 2-BOox ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3JHWIELmn----performlityl20061109 RusOR(_3_3i2dnvalitim_T_Lmnroyells (mk), DIMEN/ldl supportrlEEEEtis_s2p_p-ifaa!MK.-Iofiled,',wp,nl_,I-BO-)v-BO--!MK.-InnnnnIF(LIIItim'Verletgde-BO-nVLIST kin ------BOXIIeturn8888--!wantltigdeoFt!3 Rutine mnroye tl 2-BOoxp,vp, 88nv-BO-(1:Npdx) !mshcut2) CYCLTEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppon-w)-w)))Rt deofll supportrltis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-I-BO-)v-BO---nnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST kin ------BOXIIeturn8888-wantltigdeoBwp,vp/ld((x)duIF_gcc,INPp,vp, 88nv-BO-(1:Npdx) shcut2) CYCLd_) ernel suppoj-w)-w)))Rt deofll supportrltis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-I-BO-)v-BO---nnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST kin ------BOXIIeturn8888-wantltigdeoBwp,vp/ld((x)duIF_gcc,JNPp,vp, 88nv-BO-(1:Npdx) shcut2) CYCLd_) ernel suppoNm)-w)))Rt deofll supportrltis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-I-BO-)v-BO---nnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST kin ------BOXIIeturn8888-wantltigdeop.lKwas--dom)%lhbNMp,vp, 88nv-BO-(1:Npdx) shcut2 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n 3=bu ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 R8!3 CONTINUE2) CYCLd_) e)RlKwari,n.---B!--(i)t----BREAL(mk), DIMEN/lRETURNmlsinMKin-w)))kind_snnnleOn_,no,,&c &',---shclsymm,v-BO-, nnnnnnnIF(LIIItim_T_mlsinMKin-w)))kind_do---e ,cf--_dould y!3 shclsymm,v-BO-, nnnnnnnIF(LIIItim_TdBeneorelib nn-1.2/src/mesh/,xp,Neshi POINTtttm.f000644 000765 000024 00000026753 11445666063 020667 0u--do00omdo--dff000000 000000 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : ,xp,Neshi POINTtttm ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3CopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich RusOR(_3CH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNeshi POINTtttm(tttmnNesh)-w)))Rt deofll sup.---B=lb,Nme (re)inf fs-)duI===array======ypea`i)t--ype_tttmnNesh`Reindi,n.--ll sup.---Ih1n1fBBBj2Use ame inf fs-)duI-ypesMav-Inel supp fox+regular=array= pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 #veFnumb "mumbled--B.h" pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRModulbx ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpUS-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_-ypeled, ONLY:(i)t--_tttmnNesh ,wp,vpUS-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_I-BO-)v-BO--IMPLICIT NONE pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BR)wx1_dx-1B) pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)eturns 2)dtus, 0nupTELsuccofs+-boxS- )AL Set _l,3Lsu)ni))),gc----!Tx:nipew-(i)t----Nesh led--i-)duIarrayidx-1B)eturns 2)dtus, 0nupTELsu)dtus, 0nupTELsucc Set _l,3Lsu)ni))m, !. IRclud:niReind ((x)du. Ont---:eindi,n.--ll sup.---*l-a(2ee=hii POINTfit_prePOIvell sup.---*l-a(2ee=hii POINTfitll sup.---*l-a(2ee=hii POINTEEEE_prePOIvell sup.---*l-a(2ee=hii POINTEEEEEtis_s2.---*l-a(2ee=hiide-BO-n2) CYCL RusOR(_3 RtttmnNesh)Lsuccofs+-boxS- )AL-B!--(i)i))tttmnNesh ,wp,vpd:niRrray---- RusOR(_3 RtttmnNesh)LudGllsn effec-r(re)inf fs-sOReindi,neturns 2)dtus, 0nupTELsu)dtus, 0nupTELsucc Set _l ,v-)ni))mof ,wp,vpd:nin 3=bus8kintus, 0 up/os uccesP pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BR----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTE! timers--_3 R--(i)MKBR :: MKurn8888kinnnnnnnnnnnnnnnn nnsieturns 2)dtus, 0nupubleBjnn nnsieturns : MKurn8888kindi))),n2) CYCLcellR(_3kind_dom(-e) RusOR(_3 RtttmnNesh)Lsuccofs+-boxS- )AL-B!--(i)i))worknNesh ,wp,vpYP=busORt BBBBBi)))copy,l-BO-nVlre-BO-nVlde-BO-n2) CYCLdo(:,:)n_,no,,, POINTERrnExNer/alOEdould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEdould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BREAL(mk), pivi k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdxglsymm--Bp,jnp,nnp,-BOXIIeturn8IF_gusOReindi,n.--Neshi POINTtttmEAL(mk), DDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BR/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&-(t r,ll---domo .AND.LTEEEEc2n(1_(de-BO-n-ifaafaafaa 8IF_grtrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BR/os xp)nf fs-)duI-ypeDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), )copy), = .FALS--BREAL(ml-BO-n, = .FALS--BREAL(mlre-BO-n = .FALS--BREAL(mlde-BO-n = .FALS--BREAL(mportrEEEEc tlKwarldopols POINTfit_prePOIveEAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuFORc---B!--a)))prePOIve------rePOnt contd pivi EN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3portASSOCIATED(tttmnNeshwidx(iBIIeturn8888----),n(tv-BO(i aetttmnNesh)1((((((((((((((((mmjpO,n(tv-_s2p_ &-(tvp(3,-i) --xp(3,jjIIeturn8l-BO-n, = .t----BREAL(m3,jjIIeturn8lre-BO-n = .t----BREAL(m3,jjIIeturn8lcopy), = .t----BREAL(m3,jjIIet-B!--(i)t----BREAMKIeturn8888-----Ul-BO-n = .t----BREAL(m3,jj!3 RusOR(_3 RMKIportrEEEEc tlKwarldopols POINTfitEAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuFORc---B!--a)))discard------rePOnt contd pivi EN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3portASSOCIATED(tttmnNeshwidx(iBIIeturn8888----),n(tv-BO(i aetttmnNesh)1((((((((((((((((mmjpO,n(tv-_s2p_ &-(tvp(3,-i) --xp(3,jjIIeturn8l-BO-n, = .t----BREAL(m3,jjIIeturn8lre-BO-n = .t----BREAL(m3,jjIIeturn8lde-BO-n = .t----BREAL(m3,jjIIet-B!--(i)t----BREAMKIeturn8888-----Ul-BO-n = .t----BREAL(m3,jj!3 RusOR(_3 RMKIportrEEEEc tlKwarldopols POINTEEEE_prePOIveEAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuFORc---B!--a)))prePOIve------rePOnt contd pivi EN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3portASSOCIATED(tttmnNeshwidx(iBIIeturn8888----),n(tv-BO(i aetttmnNesh)1((((((((((((((((mmjpO,n(tv-_=a)) &-(tvp(3,-i) --xp(3,jjIIeturn8l-BO-n, = .t----BREAL(m3,jjIIeturn8lre-BO-n = .t----BREAL(m3,jjIIeturn8lcopy), = .t----BREAL(m3,jjIIet-B!--(i)t----BREAMKIeturn8888-----Ul-BO-n = .t----BREAL(m3,jj!3 RusOR(_3 RMKIportrEEEEc tlKwarldopols POINTEEEEEAL(mk), DIMEN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuFORc---B!--a)))discard------rePOnt contd pivi EN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3portASSOCIATED(tttmnNeshwidx(iBIIeturn8888----),n(tv-BO(i aetttmnNesh)1((((((((((((((((mmjpO,n(tv-_=a)) &-(tvp(3,-i) --xp(3,jjIIeturn8l-BO-n, = .t----BREAL(m3,jjIIeturn8lre-BO-n = .t----BREAL(m3,jjIIeturn8lde-BO-n = .t----BREAL(m3,jjIIet-B!--(i)t----BREAMKIeturn8888-----Ul-BO-n = .t----BREAL(m3,jj!3 RusOR(_3 RMKIportrEEEEc tlKwarldopolsde-BO-n-ifaafaafaa /ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuDeinf fs-s pivi EN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3portASSOCIATED(tttmnNeshwidx(iBIIeturn8888----),n(tv-BO(i aetttmnNesh)1((((((((((((((((lre-BO-n = .t----BREAL(m3,jjIIetlde-BO-n = .t----BREAL(m3,jj!3 RusOR(_3 RusOReREAL(m3,jjIIetDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRPerform-----actualp)nf f t_r)+n1* &p(2do(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---B!--(i)t-----BO-n-ifaafaafaa /ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuReindi,n.newIarray-B!--(iew-(i)t-a)))nullifyoee_r---Kwasaafaa /ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3IF_OCATE(worknNesh( &-(tvp,STAT=w)))Rt deofll supportrlEEEEtis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnnnnnnnIF(LIIItim'Verletg-BO-nVLIST Neshi POINTtttmEA---BOXIIeturn8888---BOUiew-Nesh WORK_MESHp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88!3 RusOR(_3 RusOReindi,n.---B!----WRI &-(tv:Npdx) =h0 ))RtNULLIFY(worknNesh(i)%OReindi:Npdx) =h0 ))RtNULLIFY(worknNesh(i)%nnode2,-dom)-2l supporNULLIFY(worknNesh(i)%N8n2 (1,i O),mk)worknNesh(i)%IDrB--B!Rrget numi) (((((((((i,n.--DIMEN/lt----copy-ifaafaafaa /ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuSave-----old contd pivi EN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3----WRIMINpO,n(tvI &-(tvn2 (1,i O),mk)worknNesh(i)%,,,ieBd >)tttmnNesh(i)%,,,ieB2 (1,i O),mk)worknNesh(i)%nnode2d >)tttmnNesh(i)%nnode22 (1,i O),mk)worknNesh(i)%Nmd >)tttmnNesh(i)%Nm2 (1,i O),mk)worknNesh(i)%IDrB-tttmnNesh(i)%IDB!Rrget numi) (((((((((i,n.--DIMEN/lt----de-BO-n-ifaafaafaa /ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuDeinf fs-s-----old contd pivi EN/ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3----WRIO,n(tv(((((((((((((((mmjpASSOCIATED(tttmnNesh(i)%OReindip(3,-i) --xp(3,jjIIeturn8DEIF_OCATE(tttmnNesh(i)%OReind,STAT=w)))Rt deofll((((((((mmjpportrlEEEEtis_s2p_p-ifaafaafaa )R,',wp,nl_,I-BO-I-BO-)v-BO---nnnnnnnnnnnnnnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST Neshi POINTtttmEA888-----U88-------------!3 'Nesh ,,ieBdEQUI_MESH%ISTARwp,vp, 88nv-BO-(1:Npdx) =h0 ))Rtttttshcut2) CYCL, supportrBNULLIFY(tttmnNesh(i)%OReindiBREAL(m3,jjIIet-B!--(i)t----BRE((((mmjpASSOCIATED(tttmnNesh(i)%nnode2,p(3,-i) --xp(3,jjIIeturn8DEIF_OCATE(tttmnNesh(i)%nnode2,STAT=w)))Rt deofll((((((((mmjpportrlEEEEtis_s2p_p-ifaafaafaa )R,',wp,nl_,I-BO-I-BO-)v-BO---nnnnnnnnnnnnnnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST Neshi POINTtttmEA888-----U88-------------!3 'Nesh ,i)t-EQUI_MESH%NNODESp,vp, 88nv-BO-(1:Npdx) =h0 ))Rtttttshcut2) CYCL, supportrBNULLIFY(tttmnNesh(i)%nnode2,-dom)-2l suppor-B!--(i)t----BRE((((mmjpASSOCIATED(tttmnNesh(i)%N8np(3,-i) --xp(3,jjIIeturn8DEIF_OCATE(tttmnNesh(i)%Nm,STAT=w)))Rt deofll((((((((mmjpportrlEEEEtis_s2p_p-ifaafaafaa )R,',wp,nl_,I-BO-I-BO-)v-BO---nnnnnnnnnnnnnnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST Neshi POINTtttmEA888-----U88-------------!3 'global Nesh ,i)t-EQUI_MESH%NMp,vp, 88nv-BO-(1:Npdx) m)-2l suppor-B!--(i)t----BRE((((((((NULLIFY(tttmnNesh(i)%N8n2 (1,i O),mk)-B!--(i)t----BRE((((tttmnNesh(i)%IDrB--B!Rrget numi) (((((((((i,n.--DIMEN/lt----re-BO-n-ifaafaafaa /ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuDeinf fs-s-old rtrBBBBIarrayidx-1B) /ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3DEIF_OCATE(tttmnNesh,STAT=w)))Rt deofll supportrlEEEEtis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST Neshi POINTtttmEA---BOXIIeturn8888---BOUNesh lBO--EQUI_MESHp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88!3 RusOR(_3 RusOReindi,n.---B!NULLIFY(tttmnNesh1:Npdx) shcut2 ,wp,vpt-----BO-n-ifaafaafaa /ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 RuPtrBB resulteffenewIarrayaafaa /ldo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3tttmnNeshd >)worknNesh ,wp,vpshcut2 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n 3=butDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--Neshi POINTtttmEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa /lt----da(tv-_=a))tis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshi POINTtttmEA---BOXIIeturn8888---BOU-da(tv-mustec-r>B--p,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind8888 CYCLdONTINUE2) CYCLshclsymm,v-BO-,rtrB!aafaa shclsymm,v-BO-, nnnNeshi POINTtttm lib nn-1.2/src/mesh/,xp,NeshibOINk_rBBBBBect.f000644 000765 000024 00000034317 11445666063 021717 0u--do00omdo--dff000000 000000 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : ,xp,NeshibOINk_rBBBBBect ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3CopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich RusOR(_3CH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNeshibOINk_rBBBBBect(from_n2 -id,to_n2 -id,from_Neshid, ---BOXIIeturn8to_Neshid,i)Rl,j)Rl,offset,ghost,i)t,nsendls (mksendfrom)Rl,IIIIIIIII-BOXIIeturn8ksendto)Rl,ksendblk--dom)%sendblk-i)t,ioffset,BO-(,OX'=(iDIMEN/ld!!arldIo)RtsedSSddddddddds commduINeshdbOINksuppoBBBBect)dup) supportr!!!atwoe)RlK, rtssibly s-iftu.(-BO/ox+extendu.(w!--(ghostlayBBBReindi,n.-- S,ieBdn.---i)t----r=1,nOINksuf.--- are 3 Rusi,n.--r 3=bued.arldIeindi,n.-- )RtsedSSdIo PORuby=`i)t-map_field_global` an DIMEN/ld-- `i)t-map_field_ghost_--i-`Reindi,n.--ll sup.---[WARNING]DIMEN/ld!!arldIoj=lb,notBrtrB!nwhe,jendRts=from_NeshMa)))Rts=to_Nesh areDIMEN/ld!!acompax)b-BO(i.e.eturne2Use ame Nm).arldIBrtrB!nmustec-rdoddddyupportr!!!at +1nr=1----)RtsedS. Fur,jenmore,at +15 RtspuREAL(mkoddpieffec-upportr!!!ainf fs-sOuby=====nr=1----)RtsedS. They are justeEEEEn jene,lmoddpidx.DIMEN/ld!!arlnereasduIFsa))(BOtldIo)RtsedSSFsa)ypinr=1y=nr=1sOufrom)dul,ieBgc----!Tx:niEEEEEa)))w-rdo,notBwantB! S ddo,====ntrB!sldddevery i/ld(t)du.:Npdx) !o(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BRusOR(_3RModulbxtDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), US-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_-axanNesh ,wp,vpUS-, nnnNodulb_-ypeled ,wp,vpUS-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_ntrB!_i DIMEN/lIMPLICIT NONE pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 #veFnumb "mumbled--B.h" pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BR)wx1_dx-1B) pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)eturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))from_n2 -ideindi,n.-- Sourcs=topology iddifieridx-1B)eturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))to_n2 -idDIMEN/ld!!ararrtrBtopology iddifieridx-1B)eturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))to_NeshidDIMEN/ld!!ararrtrBNesh iddifieridx-1B)eturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))from_Neshideindi,n.-- Sourcs=Nesh iddifieridx-1B)eturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))i)Rleindi,n.-- Sourcs=)Rl (fromLudGllslBO--wi=1,nsePOnt)(Ic global (c-BO----idx-1B)eturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))j)Rleindi,n.-- DLmn--s-)duI)Rl Ic global (c-BO----idx-1B)eturns ccofs+-boxS-)Lsucc Set _l,3Lsu)ni))ghost,i)teindi,n.-- Si)t----====ghost layBB Ic n.lKwas--dogrid rtrBBhbx,1r=1,spacteindi,n.-- di_ds)dusup1...BBBBBBB).arls=tarrtrBern_,no,,-wi=1,nseenlarrtdeindi,n.-- by===iBReindi,neturns ccofs+-boxS-)Lsucc Set _l,3Lsu)ni))offseteindi,n.-- S-ift)offsetcbox+g ensourcs=)Rl_,no,,Iet_gcc: 1:BBBBBBBeindi,neturns ccofs+-boxS-)Lsucc-B!--(i)))))))i))i)endfrom)Rleindi,n.-- Global )Rl Ic1 +1n1*sourcsseindi,neturns ccofs+-boxS-)Lsucc-B!--(i)))))))i))i)endto)Rleindi,n.-- Global )Rl Ic1 +1n1*tarrtrseindi,neturns ccofs+-boxS-,-)Lcc-B!--(i)))))))i))ioffseteindi,n.-- MeshnOINk)offsetcbox+pO--ooc imagesReindi,n.--ll sup.---1st i_gcc: 1:BBBBBBB2)dtus, 0nupTELsuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu+ll sup.---2nd i_gcc: meshnOINkeindi,n.--ll sup.---Tfec-raddpieffeksendblk--dombx,1orliEEEoortrBirecvblk--dombon--2)R(_3 opo(from_n2 -id)%B pivi to_n2 -d >)R(_3 opo(to_n2 -id)%B pivi from_NeshM >)from_n2 -%Nesh(from_Neshid) pivi to_NeshM >)to_n2 -%Nesh(to_Neshid DDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRDdddddddddwhe,jendRoePOndE--dom)trBBdRoo (dnnnlORe BOX)DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), chEEEB--B!Rrget iOX'=(iis_s2p_p-ifaafaammjpOX'=((1).EQV..t----is_s2p_p-ifaafaafaachEE(tv-BOEEEEEEEEEEEshcleindi,n.---BmmjpOX'=((2).EQV..t----is_s2p_p-ifaafaafaachEE(2v-BOEEEEEEEEEEEshcleindi,n.---BmmjppBBBBdz-(1xp(3,-i) --xp(3,jjIImmjpOX'=((3).EQV..t----is_s2p_p-ifaafaafaafaachEE(3v-BOEEEEEEEEEEEEEEshcleindi,n.---Bshcleindi,n.-shcleinDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRDdddddddddcurrOnt dddimal commduIlength--do-BOox ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(isi)t-BOMINp(i aeksendfrom)Rl,1),(i aeksendto)Rl,1),IIIIIIII-BOXIIeturn8(i aeksendblk--dom)2),(i aeksendblk-i)t,2),(i aekoffset,2) DDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRDdddddddddpoBBBBect)ngoNeshdbOINksDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), doslpd = .t----BREAL(mtrldd1dpBBBEEEEEEEEEEEfromOReindk=from_Nesh%OReind(k,i)Rl)+offset(k)EEEEEEEEEEEfromnnode2k=from_Nesh%nnode2(k,i)Rl)-chEE(k)EEEEEEEEEEEtoOReindk =to_Nesh%OReind(k,j)Rl)-ghost,i)t(k)EEEEEEEEEEEtonnode2k =to_Nesh%nnode2(k,j)Rl)+2*ghost,i)t(k)EEEEEEEEEEEibOINks-dom(k)-BOMAX(fromOReindk,toOReindk)EEEEEEEEEEEibOINks-opk-BOMINp(fromOReindk+fromnnode2k),(toOReindk+tonnode2kvn2 (1,i O)nbOINksi)t(k)-o,wpbOINks-opk-ibOINks-dom(k)2 (1,i O)!rdo,notBslpd i--===rSSFsanoth-----o,nsePOnt2 (1,i O)mmjpnbOINksi)t(k)-_=a))tv-doslpd = .FALS--BREAL(mi) (((((((((-----oslpdis_s2p_p-ifaafaafnsendls (mm) sendls (m8-EEEEEEEEEEEEmmjpnsendls (mdz-(1isi)tis_s2p_p-ifaafaafaafado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n_p-ifaafaafaafad Growc---B!--box+g ensendls (22 (1,i O),mk)do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n_p-ifaafaafaafaisi)t-mm)2*isi)teindi,nfaafaafaiEEEE EEl-a(2ee=hii POINTEEEE_prePOIvell suppppppppp),u(tv-BOisi)teindi,nfaafaafad_) ernel supponsendfrom)Rl,),u))Rt deofll supEEEEEEEEmmjpportrlEEEEtis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnnaafad_) ernelIIItim'Verletg-BO-nVLIST NeshibOINk_rBBBBBectEA ---BOXIIeturn8888---BOOOOO'l---BRslpd sourcs=)Rl-v-BO-I DFROMSUBp,vp, 88nv-BO-(1:Npdx) m)-2l suppors', 88!3 RusOR(_3 Ruuuuu-B!--(i)t----BRE((((d_) ernel supponsendto)Rl,),u))Rt deofll supEEEEEEEEmmjpportrlEEEEtis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnnaafad_) ernelIIItim'Verletg-BO-nVLIST NeshibOINk_rBBBBBectEA ---BOXIIeturn8888---BOOOO'l---BRslpd dLmn--s-)duI)Rl v-BO-I DTOSUBp,vp, 88nv-BO-(1:Npdx) m)-2l suppors', 88!3 RusOR(_3 Ruuuuu-B!--(i)t----BRE((((),u(tv-BOpBBBEEEEEEEEEEE((((),u(2v-BOisi)teindi,nfaafaafad_) ernel supponsendblk--dom)),u))Rt deofll supEEEEEEEEmmjpportrlEEEEtis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnnaafad_) ernelIIItim'Verletg-BO-nVLIST NeshibOINk_rBBBBBectEA ---BOXIIeturn8888---BOOOO'l---BRslpd nOINk)--dombv-BO-I DBLKSTARwp,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttts', 88!3 RusOR(_3 Ruuuuu-B!--(i)t----BRE((((d_) ernel supponsendblk-i)t,),u))Rt deofll supEEEEEEEEmmjpportrlEEEEtis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnnaafad_) ernelIIItim'Verletg-BO-nVLIST NeshibOINk_rBBBBBectEA ---BOXIIeturn8888---BOOOO'l---BRslpd nOINk)-i)t-v-BO-I DBLKSi ap,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttts', 88!3 RusOR(_3 Ruuuuu-B!--(i)t----BRE((((d_) ernel supponoffset,),u))Rt deofll supEEEEEEEEmmjpportrlEEEEtis_s2p_p-ifaafaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnnaafad_) ernelIIItim'Verletg-BO-nVLIST NeshibOINk_rBBBBBectEA ---BOXIIeturn8888---BOOOO'l---BRslpd nOINk)offsetcv-BO-IOFFSEwp,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttts', 88!3 RusOR(_3 Ruuuuu-B!--(i)t----BRE-B!--(i)t----BREdo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 Ruslpd nOINk)onsendblk--dom...nsendblk--dom+nbOINksi)t-tv-)Rts', 88!3 RufromL)Rl I)Rl toe)Rl)j)Rleindi,n-BREdo(:,:)n_,n POINTE--B!RrOH_,Iest BOX''''PtS dexBmn.= non-zero v-BO-)))Rts', 88!3 Rglobal )Rl Ic1 +1n1*l---BRsRl w==rSSg enbOINksucoms=fromEEEEEEEEEEEisendfrom)Rlpnsendls () su)dtus=)i)Rleindi,n88!3 Rglobal )Rl Ic1 +1n1*l,jendsRl w==rSSg enbOINksugo toEEEEEEEEEEEisendto)Rlpnsendls () su)dtusus=)j)Rleindi,n-BREd)--domb-doNeshdbOINk Ic global Nesheindi,nEEEEisendblk--dom(1:pBBB,nsendls ()=EibOINks-dom(1:pBBBdij=offset(1:pBBBdeindi,n-BREd)-i)t----Nesh nOINkidx-1B)EEEEisendblk-i)t(1:pBBB,nsendls ()mm) bOINksi)t(1:pBBBdeindi,n-BREd)NeshdbOINk offsetcbox+pO--ooc imagesidx-1B)EEEEioffset(1:pBBB,nsendls () su)dt==offset(1:pBBBdeindi,nshcut2 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n 3=butDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--NeshibOINk_rBBBBBectEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa _3i2dnvalitrB!_n2 -id(from_n2 -id,valid-BO-(1:Npdx) =h0 mmjp.NO-(1validis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshibOINk_rBBBBBectEA --BOXIIeturn8888---BOUfrom_n2 -id Rts----rangep,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnnnnnnnIF(itrB!_n2 -id(to_n2 -id,valid-BO-(1:Npdx) =h0 mmjp.NO-(1validis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshibOINk_rBBBBBectEA --BOXIIeturn8888---BOUto_n2 -id Rts----rangep,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnnnnnnnIF(itrB!_Neshid(from_n2 -id,from_Neshid,valid-BO-(1:Npdx) =h0 mmjp.NO-(1validis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshibOINk_rBBBBBectEA --BOXIIeturn8888---BOUfrom_Neshid Rts----rangep,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnnnnnnnIF(itrB!_Neshid(to_n2 -id,to_Neshid,valid-BO-(1:Npdx) =h0 mmjp.NO-(1validis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshibOINk_rBBBBBectEA --BOXIIeturn8888---BOUto_Neshid Rts----rangep,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnmmjp(i aeghost,i)t,tv-_=a))BBBBBBB))_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshibOINk_rBBBBBectEA --BOXIIeturn8888---BOUghost,i)tnmustec-ratcveaBO-(iBlength-BBBBBBBp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnmmjp(i aeoffset,tv-_=a))BBBBBBB))_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshibOINk_rBBBBBectEA --BOXIIeturn8888---BOUoffsetcmustec-ratcveaBO-(iBlength-BBBBBBBp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnmmjp(i)Rl.LE.0).OR.(i)Rl.GT.from_n2 -%n)RlKnp(3,-i) --xp(3,jjIIet )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshibOINk_rBBBBBectEA --BOXIIeturn8888---BOUI)Rl Rts----rangep,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnmmjp(j)Rl.LE.0).OR.(j)Rl.GT.to_n2 -%n)RlKnp(3,-i) --xp(3,jjIIet )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshibOINk_rBBBBBectEA --BOXIIeturn8888---BOUj)Rl Rts----rangep,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind8888 CYCLdONTINUE2) CYCLshclsymm,v-BO-,rtrB!aafaa shclsymm,v-BO-, nnnNeshibOINk_rBBBBBect lib nn-1.2/src/mesh/,xp,Neshiled--B.f000644 000765 000024 00000014303 11445666063 017770 0u--do00omdo--dff000000 000000 afaa do(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : ,xp,Neshiled--B ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3CopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich RusOR(_3CH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNeshiled--B(n2 -id,Neshid,NB,is-dom)nlBO-deofll sup.---rldIo)RtsedSSddfddds a iew-Nesh duIan eximn----topology.DIMEN/ld!!arlnerRtsedSSntrB!sl))(BOtls=)Rl_,no,,=========topology areDIMEN/ld!!acompax)b-BOB!--(tls=)pecified-Nesh (i.e.eare rBBBgOINmultiplbx ,wp,vpd!!a---====Neshdspac----in+extent)Ieturnot,Ian eIIItDer 3=bued. ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modulbx ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpUS-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_Neshion_usOR ,wp,vpUS-, nnnNodulb_Neshi3 RusO,wp,vpUS-, nnnNodulb_ntrB!_i DIMEN/lIMPLICIT NONE ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 EAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Awx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initializturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))to -idDIMEN/ld!!aropology ID fox+udGllsto cres-s-Nesheindi,nzturns 2ccofs+-boxS- )AL Set _l,3Lsu)ni))N( ,wp,vpd:niNc-BO---doNeshd-B!--S-in+eallsli_ds)du. Subscmustec-rcompax)b-B ,wp,vpd:niB!--(tlDeNesh,*l,jenw, an eIIItoccurBReindi,neturns 2)dtus, 0nupTELsucc Set _l,3,v-)ni))Neshideindi,n.-- Mesh ID ---====iew-NeshIetur.LE. 0 duIF_put,:Npdx) !!!at +1rRtsedSSwi=1,cres-s-an aut,nohnv odddn.--r 3=buOORc==rSReindi,neturns 2ccofs+-boxS-,-)cc-B!--(i)))))))i))is-domeindi,n.-- S,ieBdindices----r=1,subscmeshes Ic global Nesheindi,neturns 2ccofs+-boxS-,-)cc-B!--(i)))))))i))n-axa ,wp,vpd:niNc-BO---doNeshdrtrBBhbx,1eallslirect)du duIealls)Rl Nesheindi,neturns 2)dtus, 0nupTELsucc Set _l ,v-)ni))mof ,wp,vpd:nin 3=bus8kintus, 0 up/os uccesP ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 ----BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(cellR(_3kind_dom(-e) su)dti)) YP=busO2)dtus, 0nupTELsu)dti))valideindi,n RusOR(_3 Rtopo),I-B!--(i))i))to - ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 EAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 EAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(8IF_gusOReindi,n.--NeshiddfdddEAL(mk), DDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BR/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&-(t r,ll---domo-ifaafaafaa 8IF_grtrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindi,n.--DIMEN/ln2 -d >)R(_3 opo(to -id)%BDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BR/res-s-iew-Nesh pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)n2 -%precEc tlKwarlkind_s---ltis_s2p_p-ifaafannnnnnIF(Neshion_usOR(NB,n2 -%Nin_physs,n2 -%Nax_physs,n2 -%Nin_usOR,--BOXIIeturn888n2 -%Nax_usOR,n2 -%n)RlK,is-dom)nlBO-deofll supAMKIeturn8888nnnnnnIF(Neshion_usOR(NB,n2 -%Nin_physd,n2 -%Nax_physd,n2 -%Nin_usOd,--BOXIIeturn888n2 -%Nax_usOd,n2 -%n)RlK,is-dom)nlBO-deofll supAhcut2 ,wp,vpt---portrlEEEEtis_s2p_p-ifaafaaf )))R,',wp,nl_,II-BO-)v-BO---nnnsOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRS Rus-iew-Nesh pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialinnnnnnIF(Neshi3 Rus(n2 -id,Neshid,nlBO-des-dom)NB,iofll supt---portrlEEEEtis_s2p_p-ifaafaaf )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnIF(LIIIti'nl_,I-B)Rl_failed,,n.--NeshiddfdddEA --BOXIIeturn8888-'S Ru----iew-Nesh failed.p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRn 3=buDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--NeshiddfdddEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa /lt---.NO-(1n.--iAL(mk),zedis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B'nl_noiAL(,,n.--NeshiddfdddEA -BOXIIeturn8888---BOUPveaB==nr=11n.--iAL( first!p,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnnnnnnnIF(itrB!_n2 -id(to -id,valid-BO-(1:Npdx) =h0 mmjp.NO-(1validis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshiddfdddEA -BOXIIeturn8888---BOUn2 -id ihbx,valid!p,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind8888 CYCLdONTINUE2) CYCLshclsymm,v-BO-,rtrB!aafaa shclsymm,v-BO-, nnnNeshiled--B lib nn-1.2/src/mesh/,xp,NeshilerivB.f000644 000765 000024 00000025544 11445666063 020025 0u--do00omdo--dff000000 000000 afaa do(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : ,xp,NeshilerivBDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BCopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich Ru), -BCH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNeshilerivB(to -id,templBBB_Neshid,iew_Neshid,act,factor,--BOXIIeturn888888888888888888888888eofll sup.---rldIo)RtsedSSddrivBs a iew-Nesh fromLan eximn----oddddyered-----idx-1B)d!!a-r coarsen----tiv grid cellsddyeu certo,,-factor. F.r coarsen---:Npdx) !!!at +1nc-BO---docellsdIc giv Ru-ginal Nesh ddpis--o,nsedivis)b-BOdyupportr!!!at (BOfactor duIevery )Rl Ic every lirect)du. ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modulbx ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpUS-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_-axanNesh ,wp,vpUS-, nnnNodulb_-ypeled ,wp,vpUS-, nnnNodulb_Neshi3 RusO,wp,vpUS-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_ntrB!_i DIMEN/lIMPLICIT NONE pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRAwx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initializturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))to -idDIMEN/ld!!aropology ID fox+udGllsNesh hav-beec cres-sd,nitializturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))templBBB_NeshidDIMEN/ld!!aMesh id========templBBB-NeshIetRcwi=1,NO-,nseoverwritte,Reindi,neturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))acmeindi,n.-- Act)du. Ont---:ll sup.--eindi,n.-- *l-a(2ee=hiiNeshired--B ,wp,vpd-- *l-a(2ee=hiiNeshicoarseneindi,neturns 2ccofs+-boxS- )AL Set _l,3Lsu)ni))factor ,wp,vpd-- Factor dyeudGllsto red--B/coarsen-====Neshdx,1eallslirect)du.DIMEN/ld!!aF-r coarsen----tiv nc-BO---doNeshdrtrBBhbon-----old NeshdmustDIMEN/ld!!ansedivis)b-BOdy(tlDefactor Ic every lirect)du. ,wp,vpeturns 2)dtus, 0nupTELsucc Set _l,3,v-)ni))new_NeshidDIMEN/ld!!aOurBNesh IDIetur<= 0 duIF_put,--2)R(_3 opo(to -id)%BOReindp_NeshM >)to -%Nesh(templBBB_Neshid)DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), RuReindi,n.---B!--box+eximn----NeshM-axa ,wp,vpdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), nsRlKdt==n2 -%n)RlKDDIMEN/liEEEE EEl-a(2ee=hii POINTfiBOReindO,n(tv)R,',wpBBBeOReindO,n(2v-BOnusOR ,wp,vpd_) ernel supponno,O,n))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaf )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST NeshiddrivBEA --BOXIIeturn8888-'old nc-BO---dogrid rtrBBhbNNOp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--,wp,vpd_) ernel suppos (mO,n))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaf )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST NeshiddrivBEA --BOXIIeturn8888-'old Reind----rtrBBhbISwp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRn ad+eximn----NeshM-axa n.--dom(-e-rtrB!nto -idDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), nno)R,'_Nesh%nnode2(1:BBBBBBB,1:n)RlKnDIMEN/li (mm)p_Nesh%OReind(1:BBBBBBB,1:n)RlKnDIMEN/lNm mm)p_Nesh%Nm(1:BBBBBBB DDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BR/oarsen-Nesh pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)actEc tlKwarlee=hiiNeshicoarsenis_s2p_p-ifaafaafDO jd1dp,wpBBBeOReindddddddddze)MOD(Nm(j)-1,factor(j))rlEEEEtis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnWRITE(Nes-,'(A,I5,A,I1,A,I6,A,I3)') 'Global Nesh ',--BOXIIeturn8888888888888'Ic li_ds)du ',j,' hav-',Nm(j)-1,88888888-BOXIIeturn8888888888888' Nesh cellsdn.--Fsanotedivis)b-BOdy(',factor(j))v-BO---nnnnnnnnnnnd_) ernelIIItim'VerletgbadiNeshopVLIST NeshiddrivBEA -BOXIIeturn8888888888888Nes-,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttts', 88!3 RusOR(_3 Ruuuuu-B!--(i)t----BRE((((Nm(j))R,((Nm(j)-1)/factor(j))+EEEEEEEEEEEEi) (((((((((((((DO id1dnusOR ,wp,vp((((((((DO jd1dp,wpBBBeOReindddddddddddddze)MOD(nno(j)))-1,factor(j))rlEEEEtis_s2p_p-ifaafaafaa )R,',wp,nl_,I-BO-I-BO-)v-BO---nnnnnnnnnnnnnnnWRITE(Nes-,'(A,I5,A,I1,A,I6,A,I3)') 'Mesh duI)Rl ',--BOXIIeturn8888888888888 ),' Ic li_ds)du ',j,' hav-',nno(j)))-1,8888 -BOXIIeturn8888888888888 ' Nesh cellsdn.--Fsanotedivis)b-BOdy(',factor(j))v-BO---nnnnnnnnnnnnnnnd_) ernelIIItim'VerletgbadiNeshopVLIST NeshiddrivBEA -BOXIIeturn88888888888888888Nes-,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttttttts', 88!3 RusOR(_3 Ruuuuuuuuu-B!--(i)t----BRE((((((((nno(j))))R,((nno(j)))-1)/factor(j))+EEEEEEEEEEEEEEEEEEEEORe(j))))R,((ORe(j)))-1)/factor(j))+EEEEEEEEEEEEEEEEi) (((((((((((((i) (((DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRn d--B-Nesh pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialiAMKIze)actEc tlKwarlee=hiiNeshired--Bis_s2p_p-ifaafaafDO jd1dp,wpBBBeOReindddddddddNm(j))R,((Nm(j)-1)*factor(j))+EEEEEEEEEEEEi) (((((((((((((DO id1dnusOR ,wp,vp((((((((DO jd1dp,wpBBBeOReindddddddddddddnno(j))))R,((nno(j)))-1)*factor(j))+EEEEEEEEEEEEEEEEEEEEORe(j))))R,((nno(j)))-1)*factor(j))+EEEEEEEEEEEEEEEEi) (((((((((((((i) (((((((((i) .--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRS Rus-iew-Nesh pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialinnnnnnIF(Neshi3 Rus(n2 -id,iew_Neshid,nno,s ()NB,iofll supt---portrlEEEEtis_s2p_p-ifaafaaf )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnIF(LIIIti'nl_,I-B)Rl_failed,,n.--NeshiddrivBEA --BOXIIeturn8888-'S Ru----iew-Nesh failed.p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRDeinf fs-s)work.---B!-DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), iEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel supponno,O,n))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaf )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST NeshiddrivBEA --BOXIIeturn8888-'old nc-BO---dogrid rtrBBhbNNOp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--,wp,vpd_) ernel suppos (mO,n))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaf )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST NeshiddrivBEA --BOXIIeturn8888-'old Reind----rtrBBhbISwp,vp, 88nv-BO-(1:Npdx) i,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRn 3=buDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--NeshiddrivBEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa /lt---.NO-(1n.--iAL(mk),zedis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B'nl_noiAL(,,n.--NeshiddrivBEA -BOXIIeturn888888888UPveaB==nr=11n.--iAL( first!p,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnnnnnnnIF(itrB!_n2 -id(to -id,valid-BO-(1:Npdx) =h0 mmjp.NO-(1validis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshiddrivBEA -BOXIIeturn888888888Un2 -id i,validp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnnnnnnnIF(itrB!_Neshid(to -id,templBBB_Neshid,valid-BO-(1:Npdx) =h0 mmjp.NO-(1validis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshiddrivBEA -BOXIIeturn888888888UNeshid i,validp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnmmjp(actEcEEEEwarlee=hiiNeshired--Bis.AND.Npdx) =h0 ))Rt-BOXIIeturn88888(actEcEEEEwarlee=hiiNeshicoarseniis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshiddrivBEA -BOXIIeturn888888888Ui,valid-Nesh dpld(t)du=)pecifiecp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnDO id1dp,wpBBBeOReindddddddddze)factor(i)r.LE. 0is_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST NeshiddrivBEA -BOXIIeturn8888888888888Ufactor mustec-r> 0bx,1r=1,lirect)dusp,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttts', 88888RusOR(_3 Ru3 RusOReind--nnnnnnni) ((((8888 CYCLdONTINUE2) CYCLshclsymm,v-BO-,rtrB!aafaa shclsymm,v-BO-, nnnNeshilerivBDlib nn-1.2/src/mesh/,xp,Neshifinal,ze.f000644 000765 000024 00000010664 11445666063 020345 0u--do00omdo--dff000000 000000 afaa do(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : ,xp,Neshifinal,zeDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BCopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich Ru), -BCH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNeshifinal,ze(eofll sup.---rldIo)RtsedSSddddddBBBs-====NeshdIe=h1n1*j +1 nnll sup.---library by=deinf fs-----r=1,Neshdm--B!--diruc3=besReindi,n.o(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BRu), -BREAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi#iAFnumb "&-(t rd--B.h"eindi,n.o(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BRu), -BRModulbx pivi k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdx_3 RusOReindi,n.--BREAL(mk), US-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_-axanNesh ,wp,vpUS-, nnnNodulb_Neshi-BO-n2) CYCLUS-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpIMPLICIT NONE pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRAwx1_dx-1B) pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)eturns cc Set _l,v-)n ni))mof ,wp,vpd:nin 3=bus8kintus, 0 up/os uccesP ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 ----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTE! timers--_3 R--(i)MKBR :: MKurn8888kinnnnnnnnnnnnnnnn nnsieturns ccofs+-boxS1) uui))),a nn nnsieturns i))mRt eturns i))mkintD) CYCLREellR(_3kind_dom(-e) sui)) CHARAC-(i(LEN=nIF(itar)ni))Nes-:Npdx) k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTEdould y!3 RusOR(_3 RusOReindi,n.---B!--(i)t----BREAL(mk), DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BREAL(mk), pivi k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdx_3 RusOReindi,n.--BREAL(mk), 8IF_gusOReindi,n.--Neshifinal,zeEAL(mk), D) CYCL),a(tv)R,0-DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRDeinf fs-s)Neshdsiruc3=bes pivi k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdx_3 RusOReindi,n.--BREAL(mk), mkintEB--B!RrgetiEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppon.--Neshinsendfrom)Rl,),a))Rt deofll supmkintEB-mkintE+)mof ,wp,vpd_) ernel suppon.--Neshinsendblk--dom)),a))Rt deofll supmkintEB-mkintE+)mof ,wp,vpd_) ernel suppon.--Neshinsendblk-i)t,),a))Rt deofll supmkintEB-mkintE+)mof ,wp,vpd_) ernel suppon.--Neshinrecvto)Rl,),a))Rt deofll supmkintEB-mkintE+)mof ,wp,vpd_) ernel suppon.--Neshinrecvblk--dom)),a))Rt deofll supmkintEB-mkintE+)mof ,wp,vpd_) ernel suppon.--Neshinrecvblk-i)t,),a))Rt deofll supmkintEB-mkintE+)mof e---pkintElEEEEtis_s2p_p-ifaafaafWRITE(Nes-,'(A,I3,A)') 'fox+'des-dtA --BOXIIeturn8888-'-Nesh nrrays. Poss)b-BOm--B!--leak.'_p-ifaafaaf )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnIF(LIIIti'nl_,I-Bde-BO-nVLIST Neshifinal,zeEANes-,vp, 88nv-BO-(1:Npdx) shcut2 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n 3=butDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--Neshifinal,zeEAL(mk), Daafaa shclsymm,v-BO-, nnnNeshifinal,zeDlib nn-1.2/src/mesh/,xp,Neshion_usOR.f000644 000765 000024 00000033643 11445666063 020216 0u--do00omdo--dff000000 000000 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : nnIF(Neshion_usORDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BCopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich Ru), -BCH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BD#ifN/l__KIhcl==l__SINGLE_PRECI-boxDIMEN/lsymm,v-BO-, nnnNeshion_usOR_R(NB,Nin_phys,Nax_phys,Nin_usO,Nax_usO,--BOXIIeturn88888888888n)RlK,is-dom)nlBO-deof#elifN__KIhcl==l__DOUBLE_PRECI-boxDIMEN/lsymm,v-BO-, nnnNeshion_usOR_d(NB,Nin_phys,Nax_phys,Nin_usO,Nax_usO,--BOXIIeturn88888888888n)RlK,is-dom)nlBO-deof#enorll sup.---rldIo)RtsedSSddfddds meshes duIa givec collect)du dfe)RlK.arlnll sup.---subscmusteturnebeec ddfdddds uchl))(BOtlsir+extentDean rBBBgOIll sup.---multiplba---====Neshdspac----in+r=1,lirect)dusIeturtlDeFsanotll sup.---====caB==tldIo)RtsedSSwi=1,fail. ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modulbx pivi k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdx_3 RusOReindi,n.--BREAL(mk), US-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_writsO,wp,vpUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpIMPLICIT NONE#ifN/l__KIhcl==l__SINGLE_PRECI-boxDIMEN/leturns ccRusAME-(i)i))MK)R,',wpkind_s---lt#elifN__KIhcl==l__DOUBLE_PRECI-boxDIMEN/leturns ccRusAME-(i)i))MK)R,',wpkind_dom(-e#enorll sup.k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdx_3 RusOReindi,n.--BREAL(mk), -BRAwx1_dx-1B) pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)REellMK)ccofs+-boxS- )AL Set _l,3Lsu)ni))Nin_physll sup.---rle)Ninimum coordddBBB1n1*j +1 hysical/computax)duil1_,no,,idx-1B)REellMK)ccofs+-boxS- )AL Set _l,3Lsu)ni))Nax_physll sup.---rle)Naximum coordddBBB1n1*j +1 hysical/computax)duil1_,no,,idx-1B)REellMK)ccofs+-boxS-,-),I Set _l,3Lsu)ni))Nin_)Rleindi,nd!!aMin.+extentn1*j +1)Rl_,no,,=idx-1B)REellMK)ccofs+-boxS-,-),I Set _l,3Lsu)ni))Nax_usOeindi,nd!!aMax.+extentn1*j +1)Rl_,no,,=idx-1B)eturns 2ccofs+-boxS-,-)cc-B!--(i)))))))i))is-domeindi,n.-- S,ieBdindices-(i,j)k) (first Ic1 +)--doNeshdinL)Rl I)Rleindi,n.-- (seco.--Fc1 +)-Ic global NeshReindi,neturns 2ccofs+-boxS-,-)cc-B!--(i)))))))i))n-axa ,wp,vpd:niNc-BO---dogrid rtrBBhbIc x,y[,z] (first Ic1 +)--doNeshdduI)Rl ,wp,vpd:niI)Rl (seco.--Fc1 +)Reindi,neturns 2ccofs+-boxS- )AL Set _l,3Lsu)ni))N( ,wp,vpd:niTiv nc-BO---doNeshdrtrBBhb(notecells)bx,1eallslirect)du df--2 0p,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnmmjpSIZE(Nin_)Rl,2)EcLTlKnsRlKd.OR. SIZE(Nax_usO,2)EcLTlKnsRlKis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshion_usOREA -BOXIIeturn888888888'not enoughI)Rls )pecifie.(Ic Nin_)Rl,,Nax_usOp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnmmjpSIZE(Nin_)Rl,1)cLTl&-(t im.OR.SIZE(Nax_usO,1)cLTl&-(t imis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshion_usOREA -BOXIIeturn888888888'leam----li_ds)du Ic Nin_)Rl,,Nax_usO wrongp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnDO id1dnusOR ,wp,vp((((((((DO jd1dp,wpBBBeOReindddddddddddddze)Nax_usO(j))))cLTlKNin_)Rl(j)))is_s2p_p-ifaafaafaa )R,',wp,nl_,I-BO-I-BO-)v-BO---nnnnnnnnnnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshion_usOREA -BOXIIeturn88888888888888888'Nax_usO mustealwaysec-r>=KNin_)Rlp,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttt))Rts', 88888RusOR(_3 Ruuuuuuuuu-B!--(i)t----BRE((((i) (((((((((((((i) (((((((((((((DO id1dp,wpBBBeOReindddddddddze)Nm()))cLTlK2is_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshion_usOREA -BOXIIeturn8888888888888'Nmcmustec-r>1-in+r=1,space-li_ds)dusp,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttts', 88888RusOR(_3 Ru3 RusOReind--nnnnnnnddddze)Nax_phys())).LE. Nin_phys())is_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshion_usOREA -BOXIIeturn8888888888888'Nax_physcmustec-r> Nin_physp,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttts', 88888RusOR(_3 Ru3 RusOReind--nnnnnnni) ((((8888 CYCLdONTINUE2) CYCLshclsymm,v-BO-,rtrB!a#ifN/l__KIhcl==l__SINGLE_PRECI-boxDIMEN/lshclsymm,v-BO-, nnnNeshion_usOR_R#elifN__KIhcl==l__DOUBLE_PRECI-boxDIMEN/lshclsymm,v-BO-, nnnNeshion_usOR_d#enorlib nn-1.2/src/mesh/,xp,Neshi3 Rus.f000644 000765 000024 00000021750 11445666063 017676 0u--do00omdo--dff000000 000000 IMEN/ldo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : ,xp,Neshi3 RusO,wp,vpdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BCopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich Ru), -BCH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNeshi3 Rus(n2 -id,Neshid,nlBO-de--dom)NB,iofll sup.---rldIo)RtsedSS3 Russ+r=1,relevantofrm(t)du=abRtsll sup.---a g m!!itu.(NeshdduIu certo,,-topology. ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modulbx ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpUS-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_-axanNesh ,wp,vpUS-, nnnNodulb_-ypeled ,wp,vpUS-, nnnNodulb_tsel_invwat_ls (ll supUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_Neshi-BO-n2) CYCLUS-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_Neshi-BO-n2) CYCLUS-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_ntrB!_i DIMEN/lIMPLICIT NONE pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRAwx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initializturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))to -idDIMEN/ld!!aropology ID fox+udGllsNesh hav-beec cres-sd nn nnsieturns ccofs+-boxS-,-),I Set _l,3Lsu)ni))n-axa ,wp,vpd:niNc-BO---doNeshdrtrBBhbx,1eallslirect)du d,1ealls)Rl ,wp,vpeturns ccofs+-boxS-,-),I Set _l,3Lsu)ni))is-domeindi,n.-- S,ieBd-do)RloNeshdinLglobal Nesheindi,neturns 2ccofs+-boxS- )AL Set _l,3Lsu)ni))N( ,wp,vpd:niGlobal nc-BO---doNeshdrtrBBhbIc giv who-BOcomput.1_,no,,nitializturns 2)dtus, 0nupTELsucc Set _l,3,v-)ni))Neshid ,wp,vpd:niMesh IDIetur<= 0 duIF_put,--2)R(_3 opo(to -id)%Bnitialize)Neshid .LE. 0is_s2p_p-ifaafa k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp_p-ifaafa 8res-s-a Neshdiddifier i======uPOIN)pecifie.(node)v-BO--fa k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp_p-ifaafaNeshid ==n2 -%Nax_Neshid + 1 ,wp,vp((n2 -%Nax_Neshid =)Neshid ,wp,vpiMKIeturn8888ze)Neshid .-domn2 -%Nax_Neshidis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshi3 RusEA -BOXIIeturn888888888888888888UNeshid is i,validp,vp, 88nv-BO-(1:Npdx) =h0 ))s', 88!3 RusOR(_3 ihcut2itialishcut2 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 (Re)aeindi,n.---B!--box+====rBBBmk), Neshdls ( n.--Arrays at)Neshid ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTgrow_pusserve)v-BO--O,n(tv)R,n2 -%Nax_Neshid RusOR(8IF_gIST Neshi POINTequi(to -%NeshmO,n))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnd_) ernelIIItim'Verletg-BO-nVLIST Neshi3 RusEA -BOXIIeturn8888'uPOINNeshid ls ( R(_3 Rtopo%Neshp,vp, 88nv-BO-(1:Npdx) =h0sOR(_3 RusOReindi,n.--DIMEN/liEEEE EEl-a(2ee=hii POINTfiBOReindO,n(tv)R,SIZE(nlBO-d1) ,wp,vpO,n(2v-BOSIZE(nlBO-d2) ,wp,vpd_) ernel suppoto -%Nesh(Neshidi%nnode2mO,n))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnd_) ernelIIItim'Verletg-BO-nVLIST Neshi3 RusEA -BOXIIeturn8888'R(_3 Requi_Nesh%nnode2p,vp, 88nv-BO-(1:Npdx) =h0sOR(_3 RusOReindi,n.--DIMEN/lO,n(tv)R,SIZE(e--dom)1) ,wp,vpO,n(2v-BOSIZE(e--dom)2) ,wp,vpd_) ernel suppoto -%Nesh(Neshidi%i--dom)),n))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnd_) ernelIIItim'Verletg-BO-nVLIST Neshi3 RusEA -BOXIIeturn8888'R(_3 Requi_Nesh%i--domp,vp, 88nv-BO-(1:Npdx) =h0sOR(_3 RusOReindi,n.--DIMEN/lO,n(tv)R,SIZE(Nm)1) ,wp,vpd_) ernel suppoto -%Nesh(Neshidi%Nm)),n))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaa )))R,',wp,nl_,I-BO-)v-BO---nnnd_) ernelIIItim'Verletg-BO-nVLIST Neshi3 RusEA -BOXIIeturn8888'R(_3 Requi_Nesh%Nmp,vp, 88nv-BO-(1:Npdx) =h0sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRS Rus-====uPOI-providdd-ID ourtlDeNesheindi,ndo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(to -%Nesh(Neshidi%ID =)Neshid DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRS Rus-====Neshdinfrm(t)du ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi pivi ze)&-(t imEc tlK3is_s2p_p-ifaafaafDO i)Rlo= 1,to -%nusOR ,wp,vp((((((((to -%Nesh(Neshidi%nnode2(1))usOv-BOnlBO-(1))usOv ,wp,vp((((((((to -%Nesh(Neshidi%nnode2(2))usOv-BOnlBO-(2))usOv ,wp,vp((((((((to -%Nesh(Neshidi%nnode2(3))usOv-BOnlBO-(3))usOv ,wp,vp((((i) (((((((((((((DO i)Rlo= 1,to -%nusOR ,wp,vp((((((((to -%Nesh(Neshidi%OReind(1))usOv-BOOReind(1))usOv ,wp,vp((((((((to -%Nesh(Neshidi%OReind(2))usOv-BOOReind(2))usOv ,wp,vp((((((((to -%Nesh(Neshidi%OReind(3))usOv-BOOReind(3))usOv ,wp,vp((((i) (((((((((((((to -%Nesh(Neshidi%Nm(tv)R,Nm(tv(((((((((((to -%Nesh(Neshidi%Nm(2v)R,Nm(2v(((((((((((to -%Nesh(Neshidi%Nm(3v)R,Nm(3 Daafaa sMKIeturn8888afDO i)Rlo= 1,to -%nusOR ,wp,vp((((((((to -%Nesh(Neshidi%nnode2(1))usOv-BOnlBO-(1))usOv ,wp,vp((((((((to -%Nesh(Neshidi%nnode2(2))usOv-BOnlBO-(2))usOv ,wp,vp((((i) (((((((((((((DO i)Rlo= 1,to -%nusOR ,wp,vp((((((((to -%Nesh(Neshidi%OReind(1))usOv-BOOReind(1))usOv ,wp,vp((((((((to -%Nesh(Neshidi%OReind(2))usOv-BOOReind(2))usOv ,wp,vp((((i) (((((((((((((to -%Nesh(Neshidi%Nm(tv)R,Nm(tv(((((((((((to -%Nesh(Neshidi%Nm(2v)R,Nm(2v(((((((i,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BRn 3=buDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--Neshi3 RusEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa /lnnnnnnIF(itrB!_n2 -id(to -id,valid-BO-(1:Npdx) =h0 mmjp.NO-(1validis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshi3 RusEA -BOXIIeturn888888888Un2 -id not validp,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnmmjpR(_3 opo(to -id)%B%nsRlKd.LE. 0is_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshi3 RusEA -BOXIIeturn888888888Unsubscmustec-r>0p,vp, 88nv-BO-(1:Npdx) =h0 ))Rts', 88888RusOR(_3 RusOReind--nnnnnnnDO id1dp,wpBBBeOReindddddddddze)Nm()))cLTlK2is_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Neshi3 RusEA -BOXIIeturn8888888888888UNmcmustec-r>1-in+r=1,space-li_ds)dusp,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttts', 88888RusOR(_3 Ru3 RusOReind--nnnnnnni) ((((8888 CYCLdONTINUE2) CYCLshclsymm,v-BO-,rtrB!aafaa shclsymm,v-BO-, nnnNeshi3 RusOlib nn-1.2/src/map/,xp,impose2ee=t_bc.f000644 000765 000024 00000021004 11445666062 020324 0u--do00omdo--dff000000 000000 afaa do(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : ,xp,impose2ee=t_bcDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(mk), -BCopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich Ru), -BCH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BD#ifN/l__KIhcl==l__SINGLE_PRECI-boxDIMEN/lsymm,v-BO-, nnnimpose2ee=t_bc_s(to -id,xp,Nee=tdeof#elifN__KIhcl==l__DOUBLE_PRECI-boxDIMEN/lsymm,v-BO-, nnnimpose2ee=t_bc_d(to -id,xp,Nee=tdeof#enorll sup.---rldIo)RtsedSSimposev-Ierioocnb.---ary co.-it)dus)for ,wp,vpd!--====pe=hnv-BK.arlatDeORcmoves/wraps y pe=hnv-BK ,wp,vpd!--Rtssids-====computax)duil1box=rBBoSg enb.x.arlno)RtsedS ,wp,vpd!--ass1_dsp))(BOtls=pe=hnv-BK are indi,nd-B!--Ic giv s,zeDIMEN/ld!--Rf on==computax)duil1box.DIMEN/ld!-DIMEN/ld!--[NO-E]ll sup.---rldIo)RtsedSSiK a=uPOINchllmk),o)RtsedS.DIMEN/ld!-DIMEN/ld!--[CAv-BON]ll sup.---(rldIoco.cebus8onlyaPPMdevelopers)2)dtus, 0nupTELsuuuuuuuuuuuuuuuuuu+ll sup.---rleo)RtsedSSiK sds)tiv3 giv r.----Rff LIIIts!nSo,nsecareful not t ,wp,vpd:nichang3 giv ordO---do----IF8kinte_dx(se--cod==com_d)Ma)))maknll sup.---surs-====compilireFsanot do----some--Icg wrongMav-well! Ornninallyll sup.---whec pe=hnv-BK w eldenseclose/(BOtls=b.---ary, giv r.-sedSSw eldll sup.---fail t)map+r=1,pe=hnv-BK,abut ucced i==chll3 Ru 2)))Ri_d.arlnll sup.---chang3.(Ic giv ordO---do----IF8kinte_dxremovedrtlDedom(-e=chll--- ,wp,vpd---seque.ce.- ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modulbx ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpUS-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_ntrB!_i D pivi zMPLICIT NONE pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi#iAFnumb "&-(t rd--B.h"e#if rdl__MPI pivi zNCLUDE 'mpif.h'#enor#ifN/l__KIhcl==l__SINGLE_PRECI-boxDIMEN/leturns ccRusAME-(i)i))MK)R,',wpkind_s---lt#elifN__KIhcl==l__DOUBLE_PRECI-boxDIMEN/leturns ccRusAME-(i)i))MK)R,',wpkind_dom(-e#enorll sup.k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdx_3 RusOReindi,n.--BREAL(mk-1B)-BRAwx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialiREellMK)ccofs+-boxS-,-),I Set _l,3,v-)ni))xp ,wp,vpd---Pe=hnv-BOcoordddBBB=idx-1B)eturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))to -idDIMEN/ld!!aropology IDidx-1B)eturns 2)dtus, 0nupTELsucc Set _l,3Lsu)ni))Nee=tDIMEN/ld!!aNc-BO---dope=hnv-BK ,wp,vpeturns 2)dtus, 0nupTELsucc Set _l ,v-)ni))mof ,wp,vpd:nin 3=bus8kintus, 0 up/os uccesP ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initiali_3 ----BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initialiREellMK)2)dtus, 0nupTELsuuuuui)) eturns 2)dtus, 0nupTELsuuuuuui))mm) CYCLdHARAC-(i(LEN=nIF(itar)nuuuuui))Nes-:Npdx) YP=busO2)dtus, 0nupTELsusu sui))valideindi,nREellMK)ccofs+-boxSBBBBBBB ui))len_phys,Nax_phys,Nin_physll sup RusOR(_3 Rtopo),I-B!--(i)uuui)) 2 - pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(8IF_gusOReindi,n.--impose2ee=t_bcEAL(mk), Daafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&-(t r,ll---domo-ifaafaafaa 8IF_grtrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindi,n.-- ,wp,vpn2 -d >)R(_3 opo(to -id)%Bafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRcompute giv s,ze--do----computax)duil1_,no,,idx-1B)do(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi#ifN__KIhcl==l__DOUBLE_PRECI-boxDIMEN/llen_phys(1:BBBBBBB uR,n2 -%Nax_physd(1:BBBBBBB u-EN/l-BOXIIeturn888888888888888888,n2 -%Nin_physd(1:BBBBBBB DIMEN/lNax_phys(1:BBBBBBB uR,n2 -%Nax_physd(1:BBBBBBB DIMEN/lNin_phys(1:BBBBBBB uR,n2 -%Nin_physd(1:BBBBBBB D#el ,wp,vplen_phys(1:BBBBBBB uR,n2 -%Nax_physs(1:BBBBBBB u-EN/l-BOXIIeturn888888888888888888,n2 -%Nin_physs(1:BBBBBBB DIMEN/lNax_phys(1:BBBBBBB uR,n2 -%Nax_physs(1:BBBBBBB DIMEN/lNin_phys(1:BBBBBBB uR,n2 -%Nin_physs(1:BBBBBBB D#enorDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRwrapOtls=pe=hnv-BK onrtlDetopologyu-Edop))(BOby+r=1owIcg pe=hnv-BK t ,wp,vpd 8kiny onrtlepleftnb.---ary but alwaysewrapOpe=hnv-B indi,nd-onrtleprnnIt ,wp,vpd 8b.---ary.-rldIoGEMa)))LT MUSTensecos)stentB!--(tls=logic--do----cell ,wp,vpd 8ls (K t+r=1ow=====LLOOR(Ic givsv r.-sedSK t+NOT t+r 3=buONm(:)+1,(mk), -BRwdGllsw eldense====caB==i======pe=hnv-B was+r=1owedrto8kiny onrtle(mk), -BRrnnIt b.---ary. pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)n2 -%bc rd(1)c tl-a(2ee=hiibc rd_Ierioocis_s2p_p-ifaafaaDO id1dNee=tDIMEN/l pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dDIMEN/l pivi -rleoordO---do----i==kinte_dxmatBBnd!DIMEN/l pivi -a)))you ne Rubo--(i==kinte_dxseee=h,nlyb(notesMKIIFs)d!DIMEN/l pivi -allrtlDedue t+r.----Rff LIIItsDIMEN/l pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dDIMEN/l pivi ze)xp(1)))cLTlNin_phys(1))s_s2p_p-ifaafaafaa xp(1)))uR,xp(1)))u+8len_phys(1)_p-ifaafaafaasOReind--nnnnnnnddze)xp(1)))cGE.Nax_phys(1))s_s2p_p-ifaafaafaa xp(1)))uR,xp(1)))u-8len_phys(1)_p-ifaafaafaasOReind--nnnnnni) (((((((((i) .--nnnnddze)n2 -%bc rd(3)c tl-a(2ee=hiibc rd_Ierioocis_s2p_p-ifaafaaDO id1dNee=tDIMEN/l pivi ze)xp(2)))cLTlNin_phys(2))s_s2p_p-ifaafaafaa xp(2)))uR,xp(2)))u+8len_phys(2)_p-ifaafaafaasOReind--nnnnnnnddze)xp(2)))cGE.Nax_phys(2))s_s2p_p-ifaafaafaa xp(2)))uR,xp(2)))u-8len_phys(2)_p-ifaafaafaasOReind--nnnnnni) (((((((((i) .--DIMEN/lze)&-(t imc tl3is_s2p_p-ifaafaaze)n2 -%bc rd(5)c tl-a(2ee=hiibc rd_Ierioocis_s2p_p-ifaafaafaaDO id1dNee=tDIMEN/l pivi nddze)xp(3)))cLTlNin_phys(3))s_s2p_p-ifaafaafaa xp(3)))uR,xp(3)))u+8len_phys(3) ,wp,vp(((((((((sOReind--nnnnnnndddddze)xp(3)))cGE.Nax_phys(3))s_s2p_p-ifaafaafaa xp(3)))uR,xp(3)))u-8len_phys(3) ,wp,vp(((((((((sOReind--nnnnnnnddi) ((((((((((((ihcut2itialishcut2 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n 3=bu ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 R8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--impose2ee=t_bcEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa nnnnnnIF(itrB!_n2 -id(to -id,valid-BO-(1:Npdx) =hmmjp.NO-(1validis_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST impose2ee=t_bcEA/l-BOXIIeturn88888888Un2 -id is i,valid!p,vp, 88nv-BO-(1:Npdx) =h0 ))Rs', 88888RusOR(_3 sOReind--nnnnnze)NIe=h1cLTlK0is_s2p_p-ifaafaafaa )))R,',wp,nl_,II-BO-)v-BO---nnnnnnnnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST impose2ee=t_bcEA/l-BOXIIeturn88888888UNIe=h1mustec-r>= 0p,vp, 88nv-BO-(1:Npdx) =h0 ))Rs', 88888RusOR(_3 sOReind8888 CYdONTINUE2) CYCLshclsymm,v-BO-,rtrB!a#ifN/l__KIhcl==l__SINGLE_PRECI-boxDIMEN/lshclsymm,v-BO-, nnnimpose2ee=t_bc_s#elifN__KIhcl==l__DOUBLE_PRECI-boxDIMEN/lshclsymm,v-BO-, nnnimpose2ee=t_bc_d#enorlib nn-1.2/src/map/,xp,map_conect_indirib.f000644 000765 000024 00000044354 11445666062 021361 0u--do00omdo--dff000000 000000 IMEN/ldo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : ,xp,map_conect_indirib ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3CopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich RusOR(_3CH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNap_conect_indirib(cd,lda,Nco,id-Nee=tdeofIMEN/ld!--rldIo)RtsedSSindiributuso----conect)dus)t+r=1 procesPorss uchIMEN/ld!--))(BOevery procesPor hav-allrtl--conect)dus)ORchav-at8leasteodS ,wp,vpd!--pe=hnv-B fox.DIMEN/ld!-DIMEN/ld!--rldIo)RtsedSSinrectly sdds n.--r ceiv3so----conect)du lBO- aK ,wp,vpd!--rBBBgwas- ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modulbx pivi k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdx_3 RusOReindi,n.--BREAL(mk), US-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_tsel_invwat_ls (ll supzMPLICIT NONE pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi#iAFnumb "&-(t rd--B.h"ee#if rdl__MPI pivi zNCLUDE 'mpif.h'#enor pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRAwx1_dx-1B) pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initializturns ccofs+-boxS-,-),I-B!--(i)uuu uui))cdDIMEN/ld!!aConect)du lBO-nitializturns cc Set _l,3Lsu)ni))ldaDIMEN/ld!!aLeam----li_ds)du ===cdS-,-)nitializturns cc Set _l,3,v-)ni))NcoDIMEN/ld!!aNc-BO---doconect)dusnitializturns ccofs+-boxS-) cc Set _l,3Lsu)ni))idDIMEN/ld!!a----BRt+global pe=hnv-B nc-BO--Napp--- ,wp,vpzturns cc Set _l,3Lsu)ni))Nee=tDIMEN/ld!!aNc-BO---dope=hnv-BK ,wp,vpeturns 2)dtus, 0nupTELscc Set _l ,v-)ni))mof ,wp,vpd:nin 3=bus8kintus, 0 up/os uccesP ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initiali_3 ----BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initializturns ccofs+-boxS2)ni))ldu ,wp,vpeturns 2)dtus, 0nupTELi))m,j,k,l,msdd,mr cv))Rt depos,icoDIMEN/lREellR(_3kind_dom(-e) i)) eturns 2)dtus, 0nupTELi)) ag,cd_s-ze,ncos_indil,ieinge desource eturns 2)dtus, 0nupTELi))hops,ildaD#if rdl__MPI pivi zNurns ccofs+-boxSMPI_STATUS_SIZE)ni))NpkintusD#enorDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi,wp,vp pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAL(mk), p pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)8IF_gusOReindi,n.--Nap_conect_indiribEAL(mk), Daafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&-(t r,ll---domo-ifaafaafaa 8IF_grtrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindi,n.-- ,wp,vpdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRGet+====rBvwase--do----l---BRt+global pe=hnv-B id-Napp--- ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hii POINTfiBOReindO,u(tv)R,Nee=tDIMEN/ld_) ernel suppoid_temp,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'aeindi,----conect)du array ID_TEMPp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/lid_temp(1:Nee=tv-BOOd(1:Nee=tv DIMEN/ld_) erneltsel_invwat_ls (oid_temp,id_invdeofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'invwat----id ls (p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/liEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppoid_temp,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'de-BO-ni,----conect)du array ID_TEMPp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRPreee=se====buffo,wbox+----l---BRconect)dusnitialido(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), cd_s-zeo= 10OReindO,u(tv)R,ldaDIMEN/lO,u(2v)R,cd_s-ze RusOR(iEEEEEl-a(2ee=hii POINTfiBOReindd_) ernel suppocd_indil,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'-BO-ni,----conect)du array CD_LOd_)p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRFi)))Rts=conect)dus)t)(BOkiny onrtlnv-IrocesPorDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), ncos_indil)R,0OReindDO jo= 1,NcoDIMEN/lindDO io= 1,ldaDIMEN/lll supt---ocd(m,j)---EEELBOUND(id_invd1))s.AND./l-BOXIIeturn8888888ocd(m,j)--LE. UBOUND(id_invd1)))s_s2p_p-ifaafaafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)_p-ifaafaafaa d etur y Bndil)pe=hnv-B ihbIc giv currentconect)du, keep itDIMEN/l pivi ndd do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)_p-ifaafaafaa t---pd_invocd(m,j))---dom-HUGEocd(m,j))is_s2p_p-ifaafaafaa ncos_indil)R,ncos_indil)+ 1 _p-ifaafaafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!-_p-ifaafaafaa dBREAFreaB======buffo,wif necesPary_p-ifaafaafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!-_p-ifaafaafaa t---ncos_indil)--domcd_s-zeis_s2p_p-ifaafaafaa cd_s-zeo= cd_s-zeo+ 10OReindddddddddddddddddddiEEEEEl-a(2ee=hii POINTgrow_pusserve)v-BO--------------------O,u(tv)R,ldaDIMEN/l------------------O,u(2v)R,cd_s-ze RusOR(((((((((((((((((((d_) ernel suppocd_indil,ldu))Rt deofll supppppppppppppppppppt---portrlEEEEtis_s2p_p-ifaafaaaddddddddddddddddddi )))R,',wp,nl_,I-BO-)v-BO---nnnn((((((((((((((((((d_) ernelIIItim'Verletg-BO-nV((((((((((((((-BOXIIeturn888888888888888888,,,,,LIST Nap_conect_indiribEA/l(((-BOXIIeturn888888888888888888,,,,,L-BO-ni,----conect)du array CD_LOd_)p,-BOXIIeturn888888888888888888,,,,,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttt))Rttttttts', 88!3 RusOR(_3 RuuuuuuuuuuuuuuusOReind--nnnnnnnddddduuuuusOReind--nnnnnnnddddduuuudo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--nd--nnnnnnnddddduuuudBRS Rus-==dIoco.nect)du Ic giv array n.--go BoSg ennexteodS ,wp,vpnnnnddddduuuudo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--nd--nnnnnnnddddduuuuDO ilda=1,ldavp pivi cd_indil(ilda,ncos_indilv)R,cd(ilda,j1:Npdx) =h0 ))Rttttt)i) ((vp pivi EXIT pivi sOReind--nnnnnnnddi) eind--nnnnnni) (((((((((i) (((D#if rdl__MPI pivi do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/ompute whomrto8ke)))Rts=conect)dus)n.--who t+r ceiv3rtle(mk), -BRconect)dus)from pivi do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), ieinge )R,MODm'VernIroco+ 'Verrank - 1, 'VernIroc1:Npdx) esource)R,MODm'Verrank + 1, 'VernIroc1: pivi do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSe)))it)t+r=1 procesPors pivi do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), hops)R,',wpnIroco- 1 _p-ifaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/alcuBBBB giv s,ze--do----lBO- t)(BOwe are go----to8ke))_p-ifaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), msdd)R,Nco*ldaD_p-ifaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRAeindi,n.---B!--box+====sddbuffo, ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hii POINTfiBOReindO,u(tv)R,mke))_p-ifaad_) ernel supposddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'-BO-ni,----sdd)buffo,wSi) BUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRFillrtl--sddbuffo,-B!--(r=1 conect)dus)we turn ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(ipos)R,1 ,wp,vpDO jo= 1,NcoDIMEN/lindDO io= 1,ldaDIMEN/lll supsddbuffo,(iposv)R,cd(i,j1:Npdx) =h0 ))ipos)R,ipos)+ 1 ,wp,vp((ni) (((((((((i) (((DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSe)))Rts=conect)du-lBO- toSg ennexteIrocon.--r ceiv3Sg em)fromrtle(mk), -BRpusvious pivi do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), DO ko= 1,hops ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRFirst)tellrtl--neighbour how m y conect)du-we are go----to8ke)). ,wp,vp((ndBRrleoo,jendneighbour tells us how m y conect)dus)we wi=1,ge ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ntago= 100OReinddddd_) eMPI_Se))Recv(msdd,1,MPI_zNurns cieinge d ag,(-BOXIIeturn888888888888888888mr cv)1,MPI_zNurns cisourced ag,(-BOXIIeturn888888888888888888nIF(iomm,Npkintusmk), Daafaa ((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRAeindi,n.---B!--box+====r ceiv3buffo,-since)we now know ixs-ze RusOR((((do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((niEEEEEl-a(2ee=hii POINTfiBOReind ndO,u(tv)R,mr cvOReinddddd_) ernel suppor cvbuffo,,ldu))Rt deofll sup ppt---portrlEEEEtis_s2p_p-ifaafaaadddi )))R,',wp,nl_,I-BO-)v-BO---nnnn(((d_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888 88'-BO-ni,----r ceiv3Sbuffo,-RECVBUFFERp,vp, 88nv-BO-(1:Npdx) =h0 tts', 88!3 RusOR(_3 Ri,n.--DIMEN/l((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSe)))n.--r ceiv3Sg e actu-BRconect)du lBO-nitiali((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ntago= 200OReinddddd_) eMPI_Se))Recv(sddbuffo,,msdd,MPI_zNurns cieinge d ag,(-BOXIIeturn888888888888888888r cvbuffo,,mr cv)MPI_zNurns cisourced ag,(-BOXIIeturn888888888888888888nIF(iomm,Npkintusmk), Daafaa ((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRPick-Rts)Rts=conect)dus)t)(BOwe needaafaa ((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nDO jo= 1,mr cv)ldaDIMEN/lll supDO io= 1,ldaDIMEN/lll sup upt---or cvbuffo,(j+(i-1))s.-EEELBOUND(id_invd1))s.AND./l-BOXIIeturn8888888888or cvbuffo,(j+(i-1))s.LE. UBOUND(id_invd1)))s_s2p_p-ifaafaafaa t---pd_invor cvbuffo,(j+(i-1)))---dom-HUGEor cvbuffo,(j+(i-1)))is_s2p_p-ifaafaaadddddddddddddncos_indil)R,ncos_indil)+ 1 _p-ifaafaafaa t---ncos_indil)--domcd_s-zeis_s2p_p-ifaafaafaa cd_s-zeo= cd_s-zeo+ 10OReinddddddddddddddddddd ddiEEEEEl-a(2ee=hii POINTgrow_pusserve)v-BO-------------------- --O,u(tv)R,ldaDIMEN/l------------------ --O,u(2v)R,cd_s-ze RusOR((((((((((((((((((( ((d_) ernel suppocd_indil,ldu))Rt deofll suppppppppppppppppppp ppt---portrlEEEEtis_s2p_p-ifaafaaadddddddddddddddddd ddi )))R,',wp,nl_,I-BO-)v-BO---nnnn(((((((((((((((((( ((d_) ernelIIItim'Verletg-BO-nV(((((((((((((-BOXIIeturn888888888888888888,,,,,,,LIST Nap_conect_indiribEA/l(((-BOXIIeturn888888888888888888,,,,,,,L-BO-ni,----conect)du array CD_LOd_)p,-BOXIIeturn888888888888888888,,,,,,,vp, 88nv-BO-(1:Npdx) =h0 ))Rttttt))Rttttttt tts', 88!3 RusOR(_3 Ruuuuuuuuuuuuuuu uusOReind--nnnnnnnddddduuuuu uusOReind--nnnnnnnddddduuuuu uu cd_indil(:,ncos_indilv)R,r cvbuffo,(j:(j+lda-1))nd--nnnnnnnddddduuuuu uusXIT pivi uusOReind--nnnnnnndddddsOReind--nnnnnnnddi) ((((((((((((ihc(((DIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRrleojustereceiv3 Rconect)dus)wi=1,nseke)))RoSg ennexteIrocDIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nmsdd)R,mr cvDIMEN/l((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSwapOtls=sddbuffo,-n.--r ceiv3buffo, ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ntempbuffo,-=>=sddbuffo, ,wp,vp upsddbuffo,-=>=r cvbuffo, ,wp,vp upr cvbuffo,-=>=tempbuffo,(((((((i) (((DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRDe-BO-ni,n ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel supposddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'de-BO-ni,----sdd)buffo,wSi) BUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppor cvbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'de-BO-ni,----r ceiv3Sbuffo,-RECVBUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--#enorDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRShrink giv array if-we alindi,nd-mRus-==an neede)_p-ifaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), t---oncos_indil)-Ldomcd_s-zeis.AND./oncos_indil)-EEEEtiis_s2p_p-ifaafaaa EEEEEl-a(2ee=hii POINTfiB_pusserve)v-BO------O,u(tv)R,ldaDIMEN/l----O,u(2v)R,ncos_indilv-BO---nnnnd_) ernel suppocd_indil,ldu))Rt deofll supppppt---portrlEEEEtis_s2p_p-ifaafaaadddi )))R,',wp,nl_,I-BO-)v-BO---nnnn(((d_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888 88'-BO-ni,----conect)du CD_LOd_)p,vp, 88nv-BO-(1:Npdx) =h0 h0 sOR(_3 RusOReindeindi,n.--ndeindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRDe-BO-ni,n ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppoid_invdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'de-BO-ni,----invwatu.(Id ls ( ID_zNVp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRMark(r=1 conect)dus)t)(BOwe turnemRus-==an o.ce ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(ico)R,0OReindDO jo= 1,ncos_indil-1 ,wp,vp((nt---cd_indil(1,j)-- tlK-1) CYCLEDIMEN/l((nDO ko= j+1,ncos_indil:Npdx) =h0 h0l)R,0OReindN/l((nDO io= 1,ldaDIMEN/lll sup upt---cd_indil(i,j)-- tlKcd_indil(i,k)is_s2p_p-ifaafaaadddddddddl)R,l)+ 1 ,wp,vp((nOReindi,n.--,vp((nOReindi,n(((DIMEN/l (n upt---l-- tlKldais_s2p_p-ifaafaaaddddddcd_indil(1,kv)R,-1 ,wp,vp((nOReind(ico)R,ico)+ 1 ,wp,vp((nORei) eind--nnnnnni) (((((((((i) (((D((((((do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRPreee=se====final-conect)du arrayD((((((do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), O,u(tv)R,ldaDIMEN/lO,u(2v)R,ncos_indil)- icoDIMEN/liEEEEEl-a(2ee=hii POINTfiBOReindd_) ernel suppocddldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'-BO-ni,----conect)du array CDp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRGoSg roug-(r=1 conect)dus)n.--surneallrtl(BOe=senotemarke)_p-ifaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), Nco)R,0OReindDO jo= 1,ncos_indil ,wp,vp((nt---cd_indil(1,j)--EEEE-1) _s2p_p-ifaafaaadddNco)R,Nco)+ 1 ,wp,vp((nOReuDO ilda=1,lda ,wp,vp((nOReincd(ilda,Ncov)R,cd_indil(ilda,j1:Npdx) =h0 ))Ri) ((vp pivi i,n.--ndeindi,n(((DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRDe-BO-ni,n ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppocd_indil,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_indiribEA/l-BOXIIeturn88888'de-BO-ni,----conect)du array CD_LOd_)p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRn 3=buDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--Nap_conect_indiribEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa ze)Nco)cLTlK0is_s2p_p-ifaafaafaai )))R,',wp,nl_,I-BO-)v-BO---nnnn((nnnnnnIF(LIIIti'nl_,I-B)wx1_dVLIST Nap_conect_indiribEA/-BOXIIeturn88888 8'Nc-BO---doconect)dus1mustec-r>=0p,vp, 88nv-BO-(1:Npdx) =h0 ))s', 88888RusOR(_3 sOReind8888 CYdONTINUE2) CYCLshclsymm,v-BO-,rtrB!a) CYCLshclsymm,v-BO-,,xp,map_conect_indirib lib nn-1.2/src/map/,xp,map_conect_prune.f000644 000765 000024 00000030035 11445666062 021041 0u--do00omdo--dff000000 000000 IMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSub)RtsedSS : ,,xp,map_conect_pruneDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BCopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich Ru), -BCH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNap_conect_prune(to -id,cd,lda,Nco,id-Nee=tdlsymmdeofIMEN/ld!--rldIo)RtsedSSprunes(r=1 conect)dus)t)(BOe=senoteneede)_p-ifaad!--onrtlnv-IrocesPor accordddg)RoSg encurrenttopology_p-ifaad!--n.--whe,jendsymmetry wi=1,nse POdI!)not.- ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modulbx pivi k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdx_3 RusOReindi,n.--BREAL(mk), US-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_tsel_invwat_ls (ll supzMPLICIT NONE ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 EAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi#iAFnumb "&-(t rd--B.h"ee,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Awx1_dx-1B) pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initializturns cc Set _l,3Lsu)ni))to -idDIMEN/ld!!aID--docurrenttopology_p-ifaazturns ccofs+-boxS-,-),I-B!--(i)uuu uui))cdDIMEN/ld!!aConect)du lBO-nitializturns cc Set _l,3Lsu)ni))ldaDIMEN/ld!!aLeam----li_ds)du ===cdS-,-)nitializturns cc Set _l,3,v-)ni))NcoDIMEN/ld!!aNc-BO---doconect)dusnitializturns ccofs+-boxS-) cc Set _l,3Lsu)ni))idDIMEN/ld!!a----BRt+global pe=hnv-B nc-BO--Napp--- ,wp,vpzturns cc Set _l,3Lsu)ni))Nee=tDIMEN/ld!!aNc-BO---dope=hnv-BK ,wp,vpYP=busO2)dtus, 0nupTELscc Set _l,3Lsu)ni))lsymmDIMEN/ld!!aIsdsymmetric? ,wp,vpzturns cc Set _l ,v-)ni))mof ,wp,vpd:nin 3=bus8kintus, 0 up/os uccesP ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initiali_3 ----BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initializturns ccofs+-boxS2)ni))ldu ,wp,vpeturns 2)dtus, 0nupTELi))m,j,k,)Rt deco,ee=tdpruneNode)v-BO--REellR(_3kind_dom(-e) i)) YP=busO2)dtus, 0nupTELi))valideindi,neturns 2)dtus, 0nupTELi))ncos_indil ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initiali_3 EAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi,wp,vp pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAL(mk), p pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)8IF_gusOReindi,n.--Nap_conect_pruneEAL(mk), Daafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&-(t r,ll---domo-ifaafaafaa 8IF_grtrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindi,n.-- ,wp,vpdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/os xpif-we turnea rddg)Ropologyu... pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialipruneNode)R,0OReindze)n2 -id-- tlK-a(2ee=hiin2 -_valid--Bdis_s2p_p-ifaafaafpruneNode)R,1 ,wp,vpdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR...I!) y o,jendvalidtopology_p-ifaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), sMKIdze)n2 -id--s2p_-a(2ee=hiin2 -_valid--Bdis_s2p_p-ifaafaaft---lsymmis_s2p_p-ifaafaaadddd!pif-r=1,pe=hnv-BK e=se===re RusOR(((((((((pruneNode)R,2 RusOR(((((sMKI_p-ifaafaaadddd!p1owest)idDIMEN/lifaafaafpruneNode)R,1 ,wp,vpeindi,n.--R(((((sMKI_p-ifaafaaa!)no)Ropologyulid--Bd_p-ifaafaafpruneNode)R,0sOReindi,n.-- ,wp,vpze)&runeNode)lEEEEtis_s2p_p-ifaafaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaa!)RAeindi,n_p-ifaafaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaaiEEEEEl-a(2ee=hii POINTfiBOReind nd-O,u(tv)R,ldaDIMEN/l----O,u(2v)R,NcoDIMEN/lindnd_) ernel suppocd_indil,ldu))Rt deofll supppppt---portrlEEEEtis_s2p_p-ifaafaaaddddi )))R,',wp,nl_,I-BO-)v-BO---nnnn((((d_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_pruneEA((-BOXIIeturn888888888'-BO-ni,----conect)du ls ( CD_LOd_)p,vp, 88nv-BO-(1:Npdx) =h0 h0 sOR(_3 RusOReindeindi,n.--sOReindeindcd_indil(:,:v)R,cd(-,-)nitialiiiiincos_indil)R,NcoD_p-ifaafaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaa!)RGet+====rBvwase--do----l---BRt+global pe=hnv-B id-Napp--- ,wp,vpfaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaaiEEEEEl-a(2ee=hii POINTfiBOReind nd-O,u(tv)R,Nee=tDIMEN/l pivd_) ernel suppoid_temp,ldu))Rt deofll supppppt---portrlEEEEtis_s2p_p-ifaafaaaddddi )))R,',wp,nl_,I-BO-)v-BO---nnnn((((d_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_pruneEA((-BOXIIeturn888888888'-BO-ni,----conect)du array ID_TEMPp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindeindi,n.--sOReindeindid_temp(1:Nee=tv-BOOd(1:Nee=tv DIMEN/l((((d_) erneltsel_invwat_ls (oid_temp,id_invdeofll supppppt---portrlEEEEtis_s2p_p-ifaafaaaddddi )))R,',wp,nl_,I-BO-)v-BO---nnnn((((d_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_pruneEA((-BOXIIeturn888888888'invwat----id ls (p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindeindi,n.--sOReindeindiEEEEEl-a(2ee=hiide-BO-n2) CYCL((((d_) ernel suppoid_temp,ldu))Rt deofll supppppt---portrlEEEEtis_s2p_p-ifaafaaaddddi )))R,',wp,nl_,I-BO-)v-BO---nnnn((((d_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_pruneEA((-BOXIIeturn888888888'de-BO-ni,----conect)du array ID_TEMPp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindeindi,n.--ndeindi,n.--sOReinddo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR&runeNode)1: reNorneallrconect)dus)w==re-we doenoteturne====pe=hnv-B(mk), -BRRRRRRRRRRRRRRB!--(tls=lowest)ID--doRts=conect)du pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&runeNode)l tlK1) _s2p_p-ifaafaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaa!)RLoop ornreallrconect)dus ,wp,vpfaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaaico)R,0OReindddddDO jo= 1,ncos_indil ,wp,vp((nfaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t-- ,wp,vp((nfaaad)RGet+====pe=hnv-B w!--(tls=lowest)ID-in-==dIoco.nect)du ,wp,vp((nfaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t-- ,wp,vp((nfaaaIe=h1= MINVAL(cd_indil(:,j)) ,wp,vp((nfaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t-- ,wp,vp((nfaaad)R/os xpif-we turnetlnv-Ie=hnv-B(mk), ((nfaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t-- ,wp,vp((nfaaat---oIe=h1c-EEELBOUND(id_invd1))s.AND./l-BOXIIeturn88888888oIe=h1cLE. UBOUND(id_invd1)))s_s2p_p-ifaafaafaa t---pd_invoee=tv-- tlK-HUGEoee=tvis_s2p_p-ifaafaaadddddddddddcd_indil(1,j)-R,-1 ,wp,vp((nOReind((((((ico)R,ico)+ 1 ,wp,vp((nOReeeeeesOReind--nnnnnnndddsMKI_p-ifaafaaadddddddcd_indil(1,j)-R,-1 ,wp,vp((nOReind((ico)R,ico)+ 1 ,wp,vp((nOReesOReind--nnnnnnni) (((((((((do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR&runeNode)2: reNorneallrconect)dus)we doenoteturner=1,pe=hnv-BK(mk), -BRRRRRRRRRRRRRRforDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), sMKIdze)&runeNode)l tlK2is_s2p_p-ifaafaaa co)R,0OReindddddDO jo= 1,ncos_indil ,wp,vp((nfaaak)R,0OReindN/l((nado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t-- ,wp,vp((nfaaad)RLoop ornreallrpe=hnv-BK Ic giv conect)du an Rcount how ,wp,vp((nfaaad)Rm y e=semiss---.OReindN/l((nado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t-- ,wp,vp((nfaaaDO io= 1,ldaDIMEN/lll sup uppt---ocd_indil(i,j)---EEELBOUND(id_invd1))s.AND./l-BOXIIeturn8888888888--cd_indil(i,j)--LE. UBOUND(id_invd1)))s_s2p_p-ifaafaafaa t---pd_invocd_indil(i,j)v-- tlK-HUGEocd_indil(i,j)vis_s2p_p-ifaafaaadddddddddddddk)R,k)+ 1 ,wp,vp((nOReeeeee uusOReind--nnnnnnndddddusMKI_p-ifaafaaaddddddddddk)R,k)+ 1 ,wp,vp((nOReeeeesOReind--nnnnnnnddds,n(((DIMEN/l (n upado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t-- ,wp,vp((nfaaad)Rtur t8leasteodS)pe=hnv-B ihbmiss---)we &rune-==dIoco.nect)du ,wp,vp((nfaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t-- ,wp,vp((nfaaat---k---domo-ifaafaafaa cd_indil(1,j)-R,-1 ,wp,vp((nOReind((ico)R,ico)+ 1 ,wp,vp((nOReesOReind--nnnnnnni) (((((((((i,n.-- ,wp,vpze)&runeNode)lEEEEtis_s2p_p-ifaafaaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaa!)RPreee=se====final-conect)du arrayD((((((faaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaaO,u(tv)R,ldaDIMEN/l----O,u(2v)R,Nco)- icoDIMEN/lnd((iEEEEEl-a(2ee=hii POINTfiBOReind nd-d_) ernel suppocddldu))Rt deofll supp,vpze)portrlEEEEtis_s2p_p-ifaafaaaddddi )))R,',wp,nl_,I-BO-)v-BO---nnnn((((d_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_pruneEA((-BOXIIeturn888888888'-BO-ni,----conect)du array CDp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindeindi,n.--sOReindeinddo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaa!)RGoSg roug-(r=1 conect)dus)n.--surneallrtl(BOe=senotemarke)_p-ifaaeinddo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----B_p-ifaafaaaNco)R,0OReindddddDO jo= 1,ncos_indil ,wp,vp((nfaaat---cd_indil(1,j)--EEEE-1) _s2p_p-ifaafaaadddfaaaNco)R,Nco)+ 1 ,wp,vp((nOReuuuuucd(-,Ncov)R,cd_indil(:,j1:Npdx) =h0 ))Ri) eind--nnnnnnni) (((sOReindeindiEEEEEl-a(2ee=hiide-BO-n2) CYCL((((d_) ernel suppocd_indil,ldu))Rt deofll supppppt---portrlEEEEtis_s2p_p-ifaafaaaddddi )))R,',wp,nl_,I-BO-)v-BO---nnnn((((d_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_pruneEA((-BOXIIeturn888888888'de-BO-ni,----conect)du ls ( CD_LOd_)p,vp, 88nv-BO-(1:Npdx) =h0 h0 sOR(_3 RusOReindeindi,n.--ndeindi,n.--(((((((do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRn 3=buDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--Nap_conect_pruneEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa ze)Nco)cLTlK0is_s2p_p-ifaafaafaaddi )))R,',wp,nl_,I-BO-)v-BO---nnnn((((d_) ernelIIItim'Verletg-wx1_dVnn((((-BOXIIeturn888888888'IST Nap_conect_pruneEA(((((-BOXIIeturn888888888'Nc-BO---doconect)dus1mustec-r>=0p,vp, 88nv-BO-(1:Npdx) =h0 ))))s', 88888RusOR(_3 )Ri) eind--nnnnnnnze)n2 -id--s2p_-a(2ee=hiin2 -_valid--Bdis_s2p_p-ifaafaaf((d_) ernelrtrB!_n2 -id(to -id,valid-BO-(1:Npdx) =h0 ))ze).NOTlKvalid) _s2p_p-ifaafaaadddfaai )))R,',wp,nl_,II-BO-)v-BO----nnnn((((d_) ernelIIItim'Verletg-wx1_dVLIST Nap_conect_pruneEA((-BOXIIeturn888888888888'n2 -id- e t-dorangep,vp, 88nv-BO-(1:Npdx) =h0 ))))))s', 88888RusOR(_3 )R)Ri) eind--nnnnnsOReind8888 CYdONTINUE2) CYCLshclsymm,v-BO-,rtrB!a) CYCLshclsymm,v-BO-,,xp,map_conect_pruneDlib nn-1.2/src/map/,xp,map_conect_ke)).f000644 000765 000024 00000044510 11445666062 020644 0u--do00omdo--dff000000 000000 ) CYCLdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSub)RtsedSS : ,,xp,map_conect_ke))_p-ifaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BCopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich Ru), -BCH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNap_conect_ke))(cd,lda,Nco,id-Nee=tdeofIMEN/ld!--rldIo)RtsedSSke))s-n.--r ceiv3s)Rts=conect)du-lBO-IMEN/ld!--accordddg)RoSg eneofrmax)du s Rus.(Ic ` nnnbuffo,2ee=t`IMEN/ld!-IMEN/ld!--[NOTE]IMEN/ld!--rldIo)RtsedSSdir ctlySke))s-n.--r ceiv3s)Rts=conect)du-lBO-MavIMEN/ld!--i*kogwas- ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modulbx pivi k3 RusOReindi,n.---B!tis_s2p_pnl_,I-BO-)MkNl_,IIdx_3 RusOReindi,n.--BREAL(mk), US-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_tsel_invwat_ls (ll supzMPLICIT NONE ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 EAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmuildSandO2)ore O I -BO-s ifneeded =IINT!3 #iAFnumb "&-(t rd--B.h"ee#if rdl__MPI pivi zNCLUDE 'mpif.h'-#enor,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Awx1_dx-1B) pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initializturns ccofs+-boxS-,-),I-B!--(i)uuu uui))cdDIMEN/ld!!aConect)du lBO-nitializturns cc Set _l,3Lsu)ni))ldaDIMEN/ld!!arleoleam----li_ds)du ===cdS-,-)nitializturns cc Set _l,3,v-)ni))NcoDIMEN/ld!!aNc-BO---doconect)dusnitializturns ccofs+-boxS-) cc Set _l,3Lsu)ni))idDIMEN/ld!!a----BRt+global pe=hnv-B nc-BO--Napp--- ,wp,vpzturns cc Set _l,3Lsu)ni))Nee=tDIMEN/ld!!aNc-BO---dope=hnv-BK ,wp,vpzturns cc Set _l ,v-)ni))mof ,wp,vpd:nin 3=bus8kintus, 0 up/os uccesP ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initiali_3 ----BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initializturns ccofs+-boxS3)ni))ldu ,wp,vpeturns 2)dtus, 0nupTELi))m,j,k,l,msdd,mr cv))Rt depos,ee=tdqee=tdecoDIMEN/lREellR(_3kind_dom(-e) i)) eturns 2)dtus, 0nupTELi)) ag,cd_s-ze,ncos_indil ,wp,vpeturns 2)dtus, 0nupTELi))hops #if rdl__MPI pivi zNurns ccofs+-boxSMPI_STATUS_SIZE) i))kintus-#enorDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi,wp,vp pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAL(mk), p pivi k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)8IF_gusOReindi,n.--Nap_conect_sddEAL(mk), Daafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&-(t r,ll---domo-ifaafaafaa 8IF_grtrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindi,n.-- ,wp,vpdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/os xpif-tls=sdd=buffo,wis empty_p-ifaado(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), ze)&-(tbuffo,_sdt)cLTlK1) _s2p_p-ifaafaaai )))R,',wp,nl_,Iwarn--- ,wp,vpfaaad_) ernelIIItim'Verletgbuffo,_emptVLIST Nap_conect_sddEA((-BOXIIeturn888888'No-Napp---ulid--Bd!p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--D#ifn rdl__MPI pivi do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRIf-we onlySturneodS)procesPor ===rewis notemuchRt+do pivi do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), sOR(_3 Rus#elseDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRAeindi,n_p-ifaado(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hii POINTfiBOReindO,u(tv)R,-a(2nsddls (ll supd_) ernel suppocsdd,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'-BO-ni,----array CSi) p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/lO,u(tv)R,-a(2nsddls (ll supd_) ernel suppocr cv)ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'-BO-ni,----array CRECVp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/lO,u(tv)R,-a(2nsddls (ll supO,u(2v)R,NcoDIMEN/ld_) ernel suppopsdd,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'-BO-ni,----array PSi) p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/lO,u(tv)R,Nee=tDIMEN/ld_) ernel suppoid_sdd,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'-BO-ni,----ls ( ID_Si) p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/l k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BREAL(mk),ze giv arrays an Rcounto, ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(id_sdd(:v)R, csdd(:v) )R, cr cv(:v) )R, psdd(:,:v)R, msdd)R, mr cv)R, do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/alcuBBBB how m y pe=hnv-BK wi=1,Reiy-onrtlnv-IrocesPor ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(ipos)R,-a(2esddbuffo,(2v)-,-a(2esddbuffo,(1 Daafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/ount how m y conect)dus)we turnetoeke)))RoSg eno,jendprocesPors pivi do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), DO ko= 2,-a(2nsddls (ll suppppqIe=h1= -a(2esddbuffo,(k+1v)-,-a(2esddbuffo,(k1:Npdx) =h0do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRLoop ornreallrpe=hnv-BK ))(BOgoSg enk-th-IrocesPor ,wp,vp=h0do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nDO io= ipos+1,(ipos+qee=tv Ie=h1= id)&-(tbuffo,2ee=t(i))nd--nnnnnnnddid_sdd(&-(tbuffo,2ee=t(i))1= -e=tDIMEN/l pivh0do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t---DIMEN/l pivh0d)RLoop ornreallrconect)dus)RoSd--d+====pe=hnv-B -e=tDIMEN/l pivh0do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t---DIMEN/l pivh0DO jo= 1,NcoDIMEN/lind pivh0DO lo= 1,ldaDIMEN/lll sup upp ze)&e=h1c tlKcd(l,j)v-_s2p_p-ifaafaaadddddddddddddo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO_p-ifaafaaadddddddddddddBR/ount an Rmarketlnv-Ie=hnv-Bpif-itwis notealready_p-ifaafaaadddddddddddddBRcountod an Rmarkod (tlnv-Ie=hnv-BsOgoes)RoSg enk-th_p-ifaafaaadddddddddddddBRIrocesPor)nd--nnnnnnnddddduuuuu udo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO_p-ifaafaaaddddddddddddze)&sdd(k,j)-- tlKtis_s2p_p-ifaafaaaddddddddddddddddcsdd(kv)R,csdd(kv)+ 1 ,wp,vp((nOReeeeee uuuuuuuu&sdd(k,j)-= 1 ,wp,vp((nOReeeeee uuuuuuuudo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 ,wp,vp((nOReeeeee uuuuuuuudBRMark(r=1 pe=hnv-BK ))(BOwi=1,nseke)))away.-rldI ,wp,vp((nOReeeeee uuuuuuuudBRis neede)Rt+do a fasBBndrtrB! fox+orphaDIMEN/lind pivh0ee uuuuuuuudBRconect)dus ,wp,vpfaaaReeeeee uuuuuuuudo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 ,wp,vp((nOReeeeee uuuuuuuu&sdd(1,j)-= 1 ,wp,vp((nOReeeeee uuuusOReind--nnnnnnnddddduuuuu usXIT pivi usOReind--nnnnnnndddddsOR((((((((((((dddsOR((((((((((((ihc(((DIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRCommunidi,n.g ennc-BO---doconect)dus1we turnetoeke)))a)))Ro ,wp,vp((ndBRr ceiv3DIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ntago= 100OReinddddd_) eMPI_Se))Recv(csdd(kv)1,MPI_zNurns c&-(tisddls ((kv) ag,(-BOXIIeturn888888888888888888cr cv(kv)1,MPI_zNurns c&-(tir cvls ((kv) ag,(-BOXIIeturn888888888888888888rnelromm,kintusmk), Daafaa ((nmsdd)R,msdd)+,csdd(kvaafaa ((nmr cv)R,mr cv)+8cr cv(kvDaafaa ((nipos)R,ipos)+ q-e=tDIMEN/li,n(((DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRAeindi,n.Rts=conect)du-lBO-Marray in+orliEEEo holdSg eneorom--- ,wp,vpdBRconect)dus ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hii POINTfiBOReindO,u(tv)R,ldaDIMEN/lO,u(2v)R,Nco)+ mr cvOReindd_) ernel suppocd_indil,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'-BO-ni,----conect)u array CD_LOd_)p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/lcd_indil(:,:v)R,0DIMEN/lcd_indil(:,1:Ncov)R,cdS-,-)nDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRAeindi,n.---B!--box+====sdd=buffo,wn.--r ceiv3Sbuffo,(((((((do(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hii POINTfiBOReindO,u(tv)R,MAXVAL(csdd,1)*ldaDIMEN/ld_) ernel supposddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'-BO-ni,----sdd)buffo,wSi) BUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--OReindO,u(tv)R,MAXVAL(cr cv)1)*ldaDIMEN/ld_) ernel suppor cvbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'-BO-ni,----r ceiv3Sbuffo,-RECVBUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSe)))n.--r ceiv3Sg e conect)dus ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(ico)R,1 ,wp,vpDO ko= 2,-a(2nsddls (ll suppppdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRFillrtls=sddbuffo,-box+====k-th-IrocesPor ,wp,vp=h0do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nipos)R,1 ,wp,vp((nDO jo= 1,NcoDIMEN/lind pize)&sdd(k,j)-- tlK1) _s2p_p-ifaafaaadddfaaDO io= 1,ldaDIMEN/lll sup upp upsddbuffo,(iposv)R,cd_indil(i,j1:Npdx) =h0 ))R,vp((nipos)R,ipos)+ 1 ,wp,vp((nOReeeeesOR((((((((((((dddsOReind--nnnnnni) ((( ,wp,vp((ntago= 200OReinddddd_) eMPI_Se))Recv(sddbuffo,,csdd(kv*lda,MPI_zNurns cindddd-BOXIIeturn888888888888888888rnelisddls ((kv) ag,(((((((((((((((((((((-BOXIIeturn888888888888888888r cvbuffo,,cr cv(kv*lda,MPI_zNurns cindddd-BOXIIeturn888888888888888888rnelir cvls ((kv) ag,rnelromm,kintusmk), Daafaa ((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRAddSg enreceiv3 Rconect)dus)RoSg enconect)du-lBO-Marrayaafaa ((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nt---cr cv(kvrlEEEEtis_s2p_p-ifaafaaadddipos)R,1 ,wp,vp((nnnnnDO jo= 1,cr cv(kvD8888888888888888DO io= 1,ldaDIMEN/lll sup upp upcd_indil(i,Nco+icov)R,r cvbuffo,(iposv:Npdx) =h0 ))R,vp((nipos)R,ipos)+ 1 ,wp,vp((nOReeeeesOR((((((((((((dddp((nico)R,ico)+ 1 ,wp,vp((nOReesOR((((((((((((ihc.--ndeindi,n(((DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRWsenow turnea newnnc-BO---doconect)dusDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), ncos_indil)R,Nco)+ mr cvDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRDe-BO-ni,n ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppocsdd,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'de-BO-ni,----array CSi) p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppocr cv)ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'de-BO-ni,----array CRECVp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel supposddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'de-BO-ni,----sdd)buffo,wSi) BUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppor cvbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'de-BO-ni,----r ceiv3Sbuffo,-RECVBUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRInvwat-ls ( -dope=hnv-BK ))(BOhas been-sdt)awayDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), d_) erneltsel_invwat_ls (oid_sdd,id_invdeofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'invwat----id ls (p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/liEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppoid_sdd,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'de-BO-ni,----temporary Id ls ( ID_Si) p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/l k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRFind an Rmark(r=1 orpha conect)dus ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(ico)R,0OReindDO jo= 1,NcoDIMEN/lindze)&sdd(1,j)-- tlK1) _s2p_p-ifaafaaadddl)R,0OReindN/l((naDO io= 1,ldaDIMEN/lll sup uppt---ocd_indil(i,j)---EEELBOUND(id_invd1))s.AND./l-BOXIIeturn8888888888--cd_indil(i,j)--LE. UBOUND(id_invd1)))s_s2p_p-ifaafaafaa t---pd_invocd_indil(i,j)v---dom-HUGEocd_indil(i,j)vis_s2p_p-ifaafaaaddddddddddddddl)R,l)+ 1 ,wp,vp((nOReinddddddsOReind--nnnnnnndddddusMKI_p-ifaafaaaddddddddddl)R,l)+ 1 ,wp,vp((nOReinddsOReind--nnnnnnnddds,n(((aafaa t---l-- tlKldais_s2p_p-ifaafaaadddddd cd_indil(1,j)-R,-1 ,wp,vp((nOReind((ico)R,ico)+ 1 ,wp,vp((nOReesOReind--nnnnnnihc.--ndeindi,n(((DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRMark(r=1 conect)dus)t)(BOwe turnemore tha oncn ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(DO jo= 1,ncos_indil-1 ,wp,vp((nt---cd_indil(1,j)-- tlK-1) CYCLEDaafaa ((nDO ko= j+1,ncos_indil ,wp,vp((nfaal)R,0OReindN/l((nDO io= 1,ldaDIMEN/lll sup upt---cd_indil(i,j)-- tlKcd_indil(i,kvis_s2p_p-ifaafaaadddddddddl)R,l)+ 1 ,wp,vp((nOReindsOReind--nnnnnnndds,n(((DIMEN/l (n upt---l-- tlKldais_s2p_p-ifaafaaaddddddcd_indil(1,k)-R,-1 ,wp,vp((nOReind(ico)R,ico)+ 1 ,wp,vp((nOResOReind--nnnnnni) (((nnnndds,n(((DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRPreee=se====final-conect)du arrayD((((((do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), O,u(tv)R,ldaDIMEN/lO,u(2v)R,ncos_indil)- icoDIMEN/liEEEEEl-a(2ee=hii POINTfiBOReindd_) ernel suppocddldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'-BO-ni,----conect)du array CDp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/l k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRGoSg roug-(r=1 conect)dus)n.--surneallrtl(BOe=senotemarke)_p-ifaa k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)Nco)R,0OReindDO jo= 1,ncos_indil ,wp,vp((nt---cd_indil(1,j)--EEEE-1) _s2p_p-ifaafaaadddNco)R,Nco)+ 1 ,wp,vp((nOReucd(-,Ncov)R,cd_indil(:,j1:Npdx) =h0ihc.--ndeindi,n(((DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRDe-BO-ni,n ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEEEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppopsdd,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'de-BO-ni,----array PSi) p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppocd_indil,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_conect_sddEA((-BOXIIeturn88888'de-BO-ni,----conect)du array CD_LOd_)p,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--D#enor,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n 3=buDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--Nap_conect_sddEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa ze)Nco)cLTlK0is_s2p_p-ifaafaafaai )))R,',wp,nl_,I-BO-)v-BO---nnnn((d_) ernelIIItim'Verletg-wx1_dVLIST Nap_conect_sddEA(-BOXIIeturn8888888'Nc-BO---doconect)dus1mustec-r>=0p,vp, 88nv-BO-(1:Npdx) =h0 ))s', 88888RusOR(_3 sOReind8888 CYdONTINUE2) CYCLshclsymm,v-BO-,rtrB!a2) CYCLshclsymm,v-BO-,,xp,map_conect_ke))_lib nn-1.2/src/map/,xp,map_field_ghost_get.f000644 000765 000024 00000032561 11445666062 021333 0u--do00omdo--dff000000 000000 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : ,xp,map_field_ghost_get,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3CopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich RusOR(_3CH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNap_field_ghost_get(to -id,meshid,ghosts-ze,eofIMEN/ld!--rldIo)RtsedSSr ceiv3s/up-ax3s)Rts=value=========ghost mesh -ix supportr!!--eache)RlefiomOORIocorresponm----nennIbox+)RlK--p.e. adds=ghostupportr!!--laywas)RoSg en)RlK--doRts=currenttopology).:Npdx) !!-IMEN/ld!--[IMPORTANT]IMEN/ld!--` nnnNap_field_ghost_init`1mustenotensechlled anymore.-rldIo)RtsedSIMEN/ld!--rtrB!s)w==,jend====ghost mapp---seturnebeen-iAL(mk),zedealready an DIMEN/ld!!pif-not,Sg enrRtsedSSdIochlled i*komk),ly.:Npdx) !!-IMEN/ld!--[NOTE]IMEN/ld!--rl==first Ie=h1n1*j +1ke))/r cv)ls (Ioco.tt!ns)Rts=on-procesPor lBO-. ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 EAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmuildSandO2)ore O I -BO-s ifneeded =IINT!3 #iAFnumb "&-(t rd--B.h"ee,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modulbxe,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(US-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_-axa_mesh ,wp,vpUS-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_rtrB!_ideindi,neMPLICIT NONE,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Awx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initializturns cc Set _l,3Lsu)ni))to -idIMEN/ld!--ropologyuIDnitializturns cc Set _l,3Lsu)ni))meshidIMEN/ld!--Mesh IDnitializturns ccofs+-boxS-) cc Set _l,3Lsu)ni))ghosts-zeIMEN/ld!--S,ze =======ghost laywa(Ic nc-BO-K--dogrid -ix)u a=1,RpaceIMEN/ld!--li_ds)duK--1...&-(t im).:Npdx) zturns cc Set _l ,v-)ni))mof ,wp,vpd:nin 3=bus8kintus, 0 up/os uccesP ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initiali_3 ----BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initializturns ccofs+-boxS3)nnnnnnnnnnnni))ldu ,wp,vpeturns 2)dtus, 0nupTELnnnnnnnnnnni))m,j,lb,ub ,wp,vpeturns 2)dtus, 0nupTELnnnnnnnnnnni))mRt debuffo,,p im ,wp,vpeturns 2)dtus, 0nupTELnnnnnnnnnnni))nsddls (,nr cvls (D) CYCLREellR(_3kind_dom(-e) nnnnnnnnnnni)) LOGICAL2)dtus, 0nupTELnnnnnnnnnnni))valid TYPElR(_3t_n2 -),I-B!--(i)uuu uuni))to - TYPElR(_3t_equi_mesh),I-B!--(i)uui))mesh ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initiali_3 EAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pi ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 EAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(8IF_gusOReindi,n.--Nap_field_ghost_getEAL(mk), D) CYCLp im)R,',wp im ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 /os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&-(t r,ll---domo-ifaafaafaa 8IF_grtrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindi,n.-- ,wp,vpto - =>,',wpto -(to -id)%(D) CYCLmesh =>,to -%mesh(meshid Daafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BR/os xpif-ghost mapp---seturnebeen-iAL(k),zed,pif-no+do soenow. pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize).NOTlKmesh%ghost_initmk),zed-ifaafaafaa 8IF_g nnnNap_field_ghost_init(to -id,meshid,ghosts-ze,eofIMEN/lppt---portrlEEEEtis_s2p_p-ifaafaaaddi )))R,',wp,nl_,II-BO-)v-BO----nnnnd_) ernelIIItim'Verletg-wx1_dVLIST Nap_field_ghost_getEA/l-BOXIIeturn8888888'C eldenoteinitmk),ze-ghost mapp---sp,vp, 88nv-BO-(1:Npdx) =h0 )sOR(_3 RusOReindeii,n.--ndeindi,n.--(aafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSurne====map type-box+====ssORequentchllK--use)Rt+sdt)pop type)aafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), IST Nap_type-El-a(2ee=hiiNap_ghost_get,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n set+====buffo,-s-zeRcounto, pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initiali-a(2nsddbuffo,-R, pa(2nr cvbuffo,)R, do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRNc-BO---domesh bO-nks)RoSnseke)t/r cv)_p-ifaa k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)nsddls ()R,mesh%ghost_nke))_p-ifaanr cvls ()R,mesh%ghost_nr cvDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRAeindi,n.---B!--box+====global mesh sddls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfiBOReindO,u(tv)R,nsddls (ll supd_) ernel suppoIST NeshlisddfiomssO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'sourc==sdd=)Rlels ()PPM_MESH_ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nsddls (ll supd_) ernel suppoIST NeshlisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'sdd)bO-nk Reindels ()PPM_MESH_ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST NeshlisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'sdd)bO-nk R-zeRls ()PPM_MESH_ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/l k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRAeindi,n.---B!--box+====global mesh r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfiBOReindO,u(tv)R,nr cvls (D) CYCLd_) ernel suppoIST Neshlir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'destinax)du r cv))Rlels ()PPM_MESH_IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nr cvls (D) CYCLd_) ernel suppoIST Neshlir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'r cv)bO-nk Reindels ()PPM_MESH_IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST Neshlir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'r cv)bO-nk R-zeRls ()PPM_MESH_IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/l k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRAeindi,n.---B!--box+====global ke))/r cv)ls (IDIMEN/l k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)O,u(tv)R,to -%orommReq-) CYCLd_) ernel suppoIST isddls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'global ke))orankRls ()PPM_ISi) LISTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST ir cvls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'global r cv)rankRls ()PPM_IRECVLISTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,to -%orommReq-) CYCLd_) ernel suppoIST esddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'global sdd)buffo,w -io,wPPM_PSi) BUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST er cvbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_getEA/l ((-BOXIIeturn88888'global r cv)buffo,w -io,wPPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--DIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRn set+====nc-BO---dobuffo,wentri, ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initialiIST buffo,_sdt)R, do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRBuildSg enls (Iobox+IST Nap_field_push, _pop a)))_ke)))RoSCREATE=ghostupportr!CLmesh -ix c giv topology)to -idIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), IST esddbuffo,(tv)R,1(mk), IST er cvbuffo,(tv)R,1(mk), IST nsddls ())))))R,to -%orommReq-) CYCLpa(2nr cvls ())))))R,IST nsddls ( RusOR(ibuffo,wwwwwwwwwwwwR,0OReindDO i=1,to -%orommReq-) CYCLOR(ibuffo,w= i)+ 1 ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSto=se====procesPor B!--(whichOwe wi=1,Re))/r cv ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nIST isddls ((iv)R,to -%irommReq(iv ,wp,vp((nIST ir cvls ((iv)R,to -%irommReq(iv ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSto=se====mesh bO-nkorange-box+==nv-IrocesPor i*komact)du ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nIST esddbuffo,(ibuffo,)=mesh%ghost_blk(ibuffo,) ,wp,vp((nIST er cvbuffo,(ibuffo,)=mesh%ghost_r cvblk(ibuffo,) ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSto=se==== rd--it)dus1=======mesh bO-nks)RoSnseke)t ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nlb1= -a(2esddbuffo,(iv ,wp,vp((nub1= -a(2esddbuffo,(ibuffo,) ,wp,vp((nDO j=lb,ub-1 ,wp,vp((nOReiIST NeshlisddblkReind(1:- im,j)-R,mesh%ghost_blkReind(1:- im,j) ,wp,vp((nOReiIST NeshlisddblkR-ze(1:- im,j)-R,mesh%ghost_blkR-ze(1:- im,j) ,wp,vp((nOReiIST NeshlisddfiomssO(j)-R,mesh%ghost_fiomssO(j) ,wp,vp((nihc(((DIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSto=se==== rd--it)dus1=======mesh bO-nks)RoSnsereceiv3 ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nlb1= -a(2er cvbuffo,(iv ,wp,vp((nub1= -a(2er cvbuffo,(ibuffo,) ,wp,vp((nDO j=lb,ub-1 ,wp,vp((nOReiIST Neshlir cvblkReind(1:- im,j)-R,mesh%ghost_r cvblkReind(1:- im,j) ,wp,vp((nOReiIST Neshlir cvblkR-ze(1:- im,j)-R,mesh%ghost_r cvblkR-ze(1:- im,j) ,wp,vp((nOReiIST Neshlir cvtossO(j)-R,mesh%ghost_r cvtossO(j) ,wp,vp((nihc(((,vp((nihc(((DIMEN/ldo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n 3=buDIMEN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusOReindi,n.--BREAL(m8!3 CONTINUE2) CYCLd_) e)RlKwari,n.--Nap_field_ghost_getEAL(mk), D) CYCLRETURNm) CYCLdONTAINSm) CYCLsymm,v-BO-,rtrB!aafaa nnd_) ernelrtrB!_to -id(to -id,valid-BO-(1:Npdx) =h0 ze).NOTlKvalidis_s2p_p-ifaafaaaddddi )))R,',wp,nl_,II-BO-)v-BO----nnnnnnd_) ernelIIItim'Verletg-wx1_dVLIST Nap_field_ghost_getEA/l-BOXIIeturn888888888'to -id e t===rangep,vp, 88nv-BO-(1:Npdx) =h0 ))))s', 88888RusOR(_3 ndsOReind--nnnnnnnd_) ernelrtrB!_meshid(to -id,meshid,valid-BO-(1:Npdx) =h0 ze).NOTlKvalidis_s2p_p-ifaafaaaddddi )))R,',wp,nl_,II-BO-)v-BO----nnnnnnd_) ernelIIItim'Verletg-wx1_dVLIST Nap_field_ghost_getEA/l-BOXIIeturn888888888'meshid e t===rangep,vp, 88nv-BO-(1:Npdx) =h0 ))))s', 88888RusOR(_3 ndsOReind--nnnnnnnze)SIZE(ghosts-ze,1))cLTlK&-(t im)s_s2p_p-ifaafaaaddddi )))R,',wp,nl_,II-BO-)v-BO----nnnnnnd_) ernelIIItim'Verletg-wx1_dVLIST Nap_field_ghost_getEA/l-BOXIIeturn888888888'ghosts-ze1mustec-ratolea ( -dolength-I-(t imp,vp, 88nv-BO-(1:Npdx) =h0 ))))s', 88888RusOR(_3 ndsOReind8888 CYCYdONTINUE2) CYCLshclsymm,v-BO-,rtrB!a) CYCLshclsymm,v-BO-,,xp,map_field_ghost_getlib nn-1.2/src/map/,xp,map_field_ghost_--it.f000644 000765 000024 00000106276 11445666062 021524 0u--do00omdo--dff000000 000000 ) CYCLdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Sub)RtsedSS : g nnnNap_field_ghost_initDIMEN/ldo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3CopyrnnIt (c)l2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), )v-BO--!MK.-IIIIIIIIIIIIIIIIC2*ko,wbox+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) !arldIofilinnv-Ie=h1n1*j +1Pe=hllel1Pe=hnv-BOMesh Library (PPM).:Npdx) !:Npdx) !aPPMDeficensoftware: you can reindiributusORc-BO/ox+moory:Npdx) !aORcvaliEEEEE!dddd=========GNU LesPOIN! m!!il1Pm(-,c License )v-BO--!Mav-Im(-,-h Ruby=====LicenSoftware F.---ax)du, ei,jend)v-BO--!Mvwas)duI3========License,I!)(at your Rt )du y BBBBnd)v-BO--!Mvwas)du.:Npdx) !:Npdx) !aPPMDeindiributu.(Ic giv hopea))(BOORcwi=1,nse POful,:Npdx) !abut WITH,v- ANY WARRANTY;-B!-- e tevec giv impliu.(warranty supportr! MERCHANTABILITYI!)FITNESS FOR A RusTICULAR PURPOS2p_Se---2.:Npdx) !:Npdx) !aPe=hllel1Pe=hnv-BOMesh Library (PPM):Npdx) !msTH Zurich RusOR(_3CH-8092 Zurich, SB!-zerlan DIMEN/ldo(:,:)n_,no,,, POINTEIF_glstcomp_w)))Rts', 88!3 RusOR(_3 RusOReindi,n.---BDIMEN/lsymm,v-BO-, nnnNap_field_ghost_init(to -id,meshid,ghosts-ze,eofIMEN/ld!--rldIo)RtsedSSsets upSg enls (Ioneede)Rfox+sdd----a.--r ceiv--- ,wp,vpd!--ghost mesh -ix nRu givec gopology/mesh combinax)du.IMEN/ld!--rlesenls (Ioare sto=s)Rfox+BBBBnd POuby=,xp,map_field_ghost_get an DIMEN/ld!!p` nnnNap_field_ghost_put`.:Npdx) !!-IMEN/ld!--[IMPORTANT]IMEN/ld!--rldIo)RtsedSSs- eldenernrensechlled by===== POr,Sg enlsbrary wi=1IMEN/ld!--callrtldIo)RtsedSSbefo=se====first ` nnnNap_field_ghost_get` or ,wp,vpd!!p` nnnNap_field_ghost_put`.:Npdx) !!-IMEN/ld!--[NOTE]IMEN/ld!--rl==ls (Ioare now surn.(Ic giv mesh struc3=be fox+whichO====ghostIMEN/ld!--mapp---seare initmk),zed.-rl=rewis nooneed)RoSreinitmk),ze-afto, ,wp,vpd!--do----global mapp---s:Npdx) !!-IMEN/ld!--[WARNING]IMEN/ld!--rl==newnvwas)duI=====dIo)RtsedSSmnnIt ca POusomn.---B!--ornrhead:Npdx) !!-IMEN/ld!--[NOTE]IMEN/ld!--rl==first Ie=h1n1*j +1ke))/r cv)ls (Ioco.tt!ns)Rts=on-procesPor lBO-.IMEN/ld!--rl==nameseke)))a)))r cv)are correct-box+====ghost get map. F., ,wp,vpd!--====put case,===yoneed)RoSbe i*kompretu.(g eno,jendwayo)Rtnd.IMEN/ld!--rl==shift caseIobox+Ieriooc imageseare currentlyStur Rcode).IMEN/ld!--Probably ===rewis a+more elegantdwayon1*do----==dI. pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initiali_3 Modulbxe,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(US-, nnnNodulb_-axa ,wp,vpUS-, nnnNodulb_-axa_mesh ,wp,vpUS-, nnnNodulb_typedef ,wp,vpUS-, nnnNodulb_usOReind ,wp,vpUS-, nnnNodulb_usOReop ,wp,vpUS-, nnnNodulb_I-BO-)v-BO--US-, nnnNodulb_-BO-n2) CYCLUS-, nnnNodulb_wri,n ,wp,vpUS-, nnnNodulb_rtrB!_ideindi,nUS-, nnnNodulb_NeshlbO-nk_i*komsecteindi,nUS-, nnnNodulb_tsel_rommRt eindi,neMPLICIT NONE,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 EAFnumbx ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmuildSandO2)ore O I -BO-s ifneeded =IINT!3 #iAFnumb "&-(t rd--B.h"e#if rdl__MPI pivi INCLUDE 'mpif.h'D#enor,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Awx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initializturns cc Set _l,3Lsu)ni))to -idIMEN/ld!--ropologyuIDnitializturns cc Set _l,3Lsu)ni))meshidIMEN/ld!--Mesh IDnitializturns ccofs+-boxS-) cc Set _l,3Lsu)ni))ghosts-zeIMEN/ld!--S,ze =======ghost laywa(Ic nc-BO-K--dogrid -ix)u a=1,RpaceIMEN/ld!--li_ds)duK--1...&-(t im).:Npdx) zturns cc Set _l ,v-)ni))mof ,wp,vpd:nin 3=bus8kintus, 0 up/os uccesP ,wp,vpdo(:RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initiali_3 ----BREAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initializturns ccofs+-boxS4)nnnnnnnnnnnni))ldu ,wp,vpeturns ccofs+-boxS&-(t im)snnnnni))op ,wp,vpeturns ccofs+-boxS&-(t im,26)nnni))on DIMEN/leturns 2)dtus, 0nupTELnnnnnnnnnnni))m,j,ke))rank,r cvrank,idom,jdom,kDIMEN/leturns 2)dtus, 0nupTELnnnnnnnnnnni))mRt desetdebuffo,,p imdes-ze,nn DIMEN/leturns 2)dtus, 0nupTELnnnnnnnnnnni))nsddls (,nsdd,tag1,lb,ub,nr cvm) CYCLdHARACTER(rnelrtar)TELnnnnnnnnnnni))mes- ,wp,vpREellR(_3kind_dom(-e) nnnnnnnnnnni)) LOGICAL2)dtus, 0nupTELnnnnnnnnnnni))lsRtsh,lnorsh,lea (,lwe (,lto ,lbottome#if rdl__MPI pivi INurns ccofs+-boxSMPI_STATUS_SIZE)ni))rommRintD#enor,wp,vpTYPElR(_3t_n2 -),I-B!--(i)uuu uuni))to - TYPElR(_3t_equi_mesh),I-B!--(i)uui))mesh ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded 2dn,wp,initiali_3 EAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 EAL(mk), ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(8IF_gusOReindi,n.--Nap_field_ghost_initEAL(mk), D) CYCLp im)R,',wp im ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 /os xp)wx1_d pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize)&-(t r,ll---domo-ifaafaafaa OR(8IF_grtrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindi,n.-- ,wp,vpto - =>,',wpto -(to -id)%(D) CYCLmesh =>,to -%mesh(meshid Daafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRcos xpif-g enoptimal)rommunidi,)duIprotocolwis known-box+==nv(mk), -BRgopology pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize).NOTlto -%isoptim,zed-ifaafaafaa k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wpaafaa pif-not: determedSSdtSbefo=secall----Nap_field_ghost_initDIMEN/l k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wpaafaa d_) erneltsel_rommRt (to -id,eofIMEN/lppt---port_s2pp-isOR(_3 RusOReindlize)&-(t r,ll---dom1) _s2p_p-ifaafaaaddDO i=1,to -%onennIproc_p-ifaafaaaddddddWRITE(mesg,'(A,I4)') 'turnenennIbox: ',to -%inennIproc(iv ,wp,vp((nfaa d_) ernelwri,n)&-(trank,,n.--Nap_field_ghost_initEAmesg,BO-(1:Npdx) =h0 ))shcl(((aafaa DO i=1,to -%orommReq-) CYCLOR(addddddWRITE(mesg,'(A,I4)') 'rommunidi,e: ',to -%irommReq(iv ,wp,vp((nfaa d_) ernelwri,n)&-(trank,,n.--Nap_field_ghost_initEAmesg,BO-(1:Npdx) =h0 ))shcl(((aafaa i,n.--ndeindi,n.--(aafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSurne====map type-box+====ssORequentchllK--use)Rt+cos xppush/pop)aafaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), IST Nap_type-El-a(2ee=hiiNap_initD,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary sddls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(is-ze1)R,to -%osm(-,-( RusOR(iEEEE EEl-a(2ee=hii POINTfiBOReindO,u(tv)R,is-zeIMEN/ld_) ernel suppoisddfiomssO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)sdd=)ourc==sRlels ()ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)sdd=destinax)du sRlels ()ISi) TOSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,is-zeIMEN/ld_) ernel suppoisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)sdd=bO-nk Reindels ()ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)sdd=bO-nk R-zeRls ()ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoioffsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)mesh bO-nkooffsetRls ()IOFFSETp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Pre-dilcuBBBB=shift offsetIobox+Ieriooc ghost imageseof=ssOR ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpop(tv)R,mesh%Nm(tv)- 1 ,wp,vpop(2v)R,mesh%Nm(2v)- 1 ,wp,vpze)& im)--dom2is_s2p_p-ifaafaaaop(3v)R,mesh%Nm(3v)- 1 ,wp,vpi,n.--DIMEN/l k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRFind i*komsect----Nesh domt!ns)RoSnseke)t-box+====ghost getDIMEN/l k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)nsddls ()R,0OReindDO i=1,to -%osm(-,-( RusOR(faaa dom)R,to -%ism(-,-((iv ,wp,vp((nfod(1:- im,1:26)nR,0OReindN/l( k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIOReindN/l( BRFirst,Owe cos xp====nennIbox=========sm(domt!nOReindN/l( k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIOReindN/l(DO j=1,to -%onennIssOR(iv ,wp,vp((nfaa jdom)R,to -%inennIssOR(j,iv ,wp,vp((nfaa !=)ourc==ad=destinax)du Neshes)n.--gopologieseare ide)tidil ,wp,vp((nfaa 8IF_g nnnNeshlbO-nk_i*komsect(idom,jdom,meshid,meshid,to -id,l-BOXIIeturn888888888to -id,od(1:- im,1),ghosts-ze,nsddls (,isddfiomssO, /l-BOXIIeturn888888888isddtossO,isddblkReind,isddblkR-ze,ioffsetdBO-(1:Npdx) =h0 ))))portrltis_s2p_p-isOR(_3 RusOReinddddds,n(((DIMEN/l (n k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIOReindN/l( BRIn+Ieriooc systems,Sg enboxoneeds)RoSnsekhifte))a)))ornrlapsOReindN/l( BRreromputu.(Ic orliEEEo get ====periooc image=nennIbox=.OReindN/l( BR/os xpif- y faceI=====dIosRlecoincides-B!--(a=periooc domt!nOReindN/l( nbo---ary.DIMEN/l (n k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIOReindN/l(lwe ( EEl.FALSE.DIMEN/l (n t---oto -%bcdef(tv)- tlK-a(2ee=hiibcdef_periooc)s.AND./-BOXIIeturn88888oto -%ssORibc(1,idomvrlEEEEti)(lwe ( El.TRUE.DIMEN/l (n lea ( EEl.FALSE.DIMEN/l (n t---oto -%bcdef(2v)- tlK-a(2ee=hiibcdef_periooc)s.AND./-BOXIIeturn88888oto -%ssORibc(2,idomvrlEEEEti)(lea ( El.TRUE.DIMEN/l (n lsRtshEEl.FALSE.DIMEN/l (n t---oto -%bcdef(3v)- tlK-a(2ee=hiibcdef_periooc)s.AND./-BOXIIeturn88888oto -%ssORibc(3,idomvrlEEEEti)(lsRtshEEl.TRUE.DIMEN/l (n lnorshEEl.FALSE.DIMEN/l (n t---oto -%bcdef(4v)- tlK-a(2ee=hiibcdef_periooc)s.AND./-BOXIIeturn88888oto -%ssORibc(4,idomvrlEEEEti)(lnorshEEl.TRUE.DIMEN/l (n ze)& im)--dom2is_s2p_p-ifaafaaa (n lbottomEl.FALSE.DIMEN/l (n (n t---oto -%bcdef(5v)- tlK-a(2ee=hiibcdef_periooc)s.AND./-BOXIIeturn888888888oto -%ssORibc(5,idomvrlEEEEti)(lbottomEEl.TRUE.DIMEN/l (n (n lto EEl.FALSE.DIMEN/l (n (n t---oto -%bcdef(6v)- tlK-a(2ee=hiibcdef_periooc)s.AND./-BOXIIeturn888888888oto -%ssORibc(6,idomvrlEEEEti)(lto El.TRUE.DIMEN/l (n i,n.--DIMEN/lllll k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIOReindN/l( BRDetermedSSnc-BO---dokhifts)n.--actuil)shift indiceIoneede)DIMEN/lllll k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIOReindN/l(n.--R,0OReindN/l(t---lwe (is_s2p_p-ifaafaaa (n n.--R,n.--+ 1 ,wp,vp((nOReinod(1,nn )nR,op(tvDIMEN/l (n i,n.--OReindN/l(t---lea (is_s2p_p-ifaafaaa (n n.--R,n.--+ 1 ,wp,vp((nOReinod(1,nn )nR,-op(tvDIMEN/l (n i,n.--OReindN/l(t---lsRtshis_s2p_p-ifaafaaa (n n.--R,n.--+ 1 ,wp,vp((nOReinod(2,nn )nR,op(21:Npdx) =h0 ))))portlwe (is_s2p_p-ifaafaaa (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinod(1,nn )nR,op(tvDIMEN/l (n ((nOReinod(2,nn )nR,op(21:Npdx) =h0 ))))sOReind--nnnnnnnddddt---lea (is_s2p_p-ifaafaaa (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinod(1,nn )nR,-op(tvDIMEN/l (n ((nOReinod(2,nn )nR,op(21:Npdx) =h0 ))))sOReind--nnnnnnni,n.--OReindN/l(t---lnorshis_s2p_p-ifaafaaa (n n.--R,n.--+ 1 ,wp,vp((nOReinod(2,nn )nR,-op(21:Npdx) =h0 ))))portlwe (is_s2p_p-ifaafaaa (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinod(1,nn )nR,op(tvDIMEN/l (n ((nOReinod(2,nn )nR,-op(21:Npdx) =h0 ))))sOReind--nnnnnnnddddt---lea (is_s2p_p-ifaafaaa (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinod(1,nn )nR,-op(tvDIMEN/l (n ((nOReinod(2,nn )nR,-op(21:Npdx) =h0 ))))sOReind--nnnnnnni,n.--OReindN/l(t---& im)--dom2is_s2p_p-ifaafaaa (n t---lbottomis_s2p_p-ifaafaaa (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinod(3,nn )nR,op(3vDIMEN/l (n ((nOReinportlwe (is_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinod(1,nn )nR,op(tvDIMEN/l (n ((nOReinReinod(3,nn )nR,op(3vDIMEN/l (n ((nOReinsOReind--nnnnnnnddddduddt---lea (is_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinod(1,nn )nR,-op(tvDIMEN/l (n ((nOReinReinod(3,nn )nR,op(3vDIMEN/l (n ((nOReinsOReind--nnnnnnnddddduddt---lsRtshis_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinod(2,nn )nR,op(21:Npdx) =h0 ))))ReinReinod(3,nn )nR,op(3vDIMEN/l (n ((nOReinduddt---lwe (is_s2p_p-ifaafaaa (n (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinReinod(1,nn )nR,op(tvDIMEN/l (n ((nOReinReinReinod(2,nn )nR,op(21:Npdx) =h0 ))))ReinReinReinod(3,nn )nR,op(3vDIMEN/l (n ((nOReinduddsOReind--nnnnnnnddddduddddddt---lea (is_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinReinod(1,nn )nR,-op(tvDIMEN/l (n ((nOReinReinReinod(2,nn )nR,op(21:Npdx) =h0 ))))ReinReinReinod(3,nn )nR,op(3vDIMEN/l (n ((nOReinduddsOReind--nnnnnnnddddduddsOReind--nnnnnnnddddduddt---lnorshis_s2p_p-ifaafaaa (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinod(2,nn )nR,-op(21:Npdx) =h0 ))))ReinReinod(3,nn )nR,op(3vDIMEN/l (n ((nOReinduddt---lwe (is_s2p_p-ifaafaaa (n (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinReinod(1,nn )nR,op(tvDIMEN/l (n ((nOReinReinReinod(2,nn )nR,-op(21:Npdx) =h0 ))))ReinReinReinod(3,nn )nR,op(3vDIMEN/l (n ((nOReinduddsOReind--nnnnnnnddddduddddddt---lea (is_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinReinod(1,nn )nR,-op(tvDIMEN/l (n ((nOReinReinReinod(2,nn )nR,-op(21:Npdx) =h0 ))))ReinReinReinod(3,nn )nR,op(3vDIMEN/l (n ((nOReinduddsOReind--nnnnnnnddddduddsOReind--nnnnnnnddddsOReind--nnnnnnnddddt---lto is_s2p_p-ifaafaaa (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinod(3,nn )nR,-op(3vDIMEN/l (n ((nOReinportlwe (is_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinod(1,nn )nR,op(tvDIMEN/l (n ((nOReinReinod(3,nn )nR,-op(3vDIMEN/l (n ((nOReinsOReind--nnnnnnnddddduddt---lea (is_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinod(1,nn )nR,-op(tvDIMEN/l (n ((nOReinReinod(3,nn )nR,-op(3vDIMEN/l (n ((nOReinsOReind--nnnnnnnddddduddt---lsRtshis_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinod(2,nn )nR,op(21:Npdx) =h0 ))))ReinReinod(3,nn )nR,-op(3vDIMEN/l (n ((nOReinduddt---lwe (is_s2p_p-ifaafaaa (n (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinReinod(1,nn )nR,op(tvDIMEN/l (n ((nOReinReinReinod(2,nn )nR,op(21:Npdx) =h0 ))))ReinReinReinod(3,nn )nR,-op(3vDIMEN/l (n ((nOReinduddsOReind--nnnnnnnddddduddddddt---lea (is_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinReinod(1,nn )nR,-op(tvDIMEN/l (n ((nOReinReinReinod(2,nn )nR,op(21:Npdx) =h0 ))))ReinReinReinod(3,nn )nR,-op(3vDIMEN/l (n ((nOReinduddsOReind--nnnnnnnddddduddsOReind--nnnnnnnddddduddt---lnorshis_s2p_p-ifaafaaa (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinod(2,nn )nR,-op(21:Npdx) =h0 ))))ReinReinod(3,nn )nR,-op(3vDIMEN/l (n ((nOReinduddt---lwe (is_s2p_p-ifaafaaa (n (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinReinod(1,nn )nR,op(tvDIMEN/l (n ((nOReinReinReinod(2,nn )nR,-op(21:Npdx) =h0 ))))ReinReinReinod(3,nn )nR,-op(3vDIMEN/l (n ((nOReinduddsOReind--nnnnnnnddddduddddddt---lea (is_s2p_p-ifaafaaa (n (n (n n.--R,n.--+ 1 ,wp,vp((nOReinReinReinReinod(1,nn )nR,-op(tvDIMEN/l (n ((nOReinReinReinod(2,nn )nR,-op(21:Npdx) =h0 ))))ReinReinReinod(3,nn )nR,-op(3vDIMEN/l (n ((nOReinduddsOReind--nnnnnnnddddduddsOReind--nnnnnnnddddsOReind--nnnnnnni,n.--DIMEN/lllll k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIOReindN/l( BRDoSg en)hift----a.--romputu+Ieriooc ghost mesh bO-nksDIMEN/lllll k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIOReindN/l(DO k=1,nn DIMEN/leindN/l( Bfirst B!--(g enoriginal (non-khifte)) image=ofOORIelfDIMEN/leindN/l(jdom)R,idomDIMEN/leindN/l(8IF_g nnnNeshlbO-nk_i*komsect(idom,jdom,meshid,meshid,to -id,l-BOXIIeturn888888888to -id,od(1:- im,k),ghosts-ze,nsddls (,isddfiomssO, /-BOXIIeturn888888888isddtossO,isddblkReind,isddblkR-ze,ioffsetdBO-(1:Npdx) =h0 ))))portrltis_s2p_p-isOR(_3 RusOReindddddN/l( BThen-B!--(allrtle=nennIbox=sOReindddddN/l(DO j=1,to -%onennIssOR(iv ,wp,vp((nfaa N/l(jdom)R,to -%inennIssOR(j,iv ,wp,vp((nfaa N/l(8IF_g nnnNeshlbO-nk_i*komsect(idom,jdom,meshid,meshid, /-BOXIIeturn8888888888888to -id,to -id,od(1:- im,k),ghosts-ze,nsddls (, /-BOXIIeturn8888888888888isddfiomssO,isddtossO,isddblkReind,isddblkR-ze,/-BOXIIeturn8888888888888ioffsetdBO-(1:Npdx) =h0 ))))))))portrltis_s2p_p-isOR(_3 RusOReindddddN/l(ihc(((,vp((nN/l(ihc(((,vp((nihc((p((n! i=1,IST nsm(-,-( (,vp((n k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRGrow.---B!--box+====mesh ghost maps ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTgrow2er serveIMEN/lO,u(tv)R,nsddls (ll supd_) ernel suppomesh%ghost_fiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost )ourc==sRls MESH%GHOST_FROMSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCL!d_) ernel suppoIST Neshlghost_r cvfiomssOdldu))Rt deofll sup!t---portrlEEEEtis_s2p_p-ifaa!faaa )))R,',wp,nl_,I-BO-)v-BO---!nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXI!Ieturn88888'ghost r cv))ourc==sRls PPM_MESH_GHOST_RECVFROMSUBp,vp, 88nv-BO-(1:Npd!MK.-IIIsOR(_3 RusORe!indi,n.--) CYCLd_) ernel suppomesh%ghost_tossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost einget sRls MESH%GHOST_TOSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppomesh%ghost_r cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost r cv)einget sRls MESH%GHOST_RECVTOSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,to -%orommReq-) CYCLd_) ernel suppomesh%ghost_blk,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost bO-nkols ()PMESH%GHOST_BLKp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppomesh%ghost_r cvblk,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost r cv)bO-nk ls ()MESH%GHOST_RECVBLKp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nsddls (ll supd_) ernel suppomesh%ghost_blkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost bO-nk Reindels ()MESH%GHOST_BLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppomesh%ghost_r cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost r cv)bO-nk Reindels ()MESH%GHOST_RECVBLKSTARTp,nn-BOXIIeturn88888vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppomesh%ghost_blkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost bO-nk R-zeRls ()MESH%GHOST_BLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppomesh%ghost_r cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost r cv)bO-nk R-zeRls ()MESH%GHOST_RECVBLKSIZEp,n-BOXIIeturn88888vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--(,vp((n k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)-BRAeindi,n.indil)me-B!--box+sortu.(offsetRls ((,vp((n k3 RusOReindi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.rmshSIZE(pidx-1B)O,u(tv)R,- im ,wp,vpO,u(2v)R,nsddls (ll supd_) ernel suppomesh_ghost_offsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost bO-nk offsetRls ()MESH_GHOST_OFFSETp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 loop)ornrrtle=nennIbox----procesPors accord----to-g enoptim,zed RusOR(_3 rommunidi,)duIRequence. pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialimesh%ghost_nke)))R,nsddls (ll supmesh%ghost_nr cv-R,0OReindmesh%ghost_blk(tv)R,1(mk), mesh%ghost_r cvblk(tv)R,1(mk), eset R,0OReindibuffo,wwwwwwwwwwwwR,0OReindis-ze1)wwwwwwwwwwwwR,SIZE(mesh%ghost_fiomssOd1 Daafaa DO i=1,to -%orommReq-) CYCLOR(do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRget ====next-IrocesPor t+sd))/r cv)B!---) CYCLOR(do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nke))rank R,to -%irommReq(iv ,wp,vp((nr cvrank R,ke))rank(DIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRInitmk),ze-mesh bO-nko -io,sDIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nibuffo,w= i)+ 1 ,wp,vp((nmesh%ghost_blk(ibuffo,) R,mesh%ghost_blk(iv ,wp,vp((nmesh%ghost_r cvblk(ibuffo,) R,mesh%ghost_r cvblk(iv ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBROnly assign lBO-pif-g erewis any rommunidi,)duIIc gidIo)Rtn ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nt---ke))rank .GEEEtis_s2p_sOReindddddN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t--sOReindddddN/ldBRFind allrmesh bO-nks)R)(BOare se)t-a.--sto=se===m.sOReindddddN/ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t--sOReindddddN/lDO j=1,nsddls (ll suppppppppppppt---to -%ssO2proc(isddtossO(j)v)- tlKke))rankis_s2p_p-ifaafaaa (n (n (nmesh%ghost_blk(ibuffo,) R, /-BOXIIeturn8888888888888 (nmesh%ghost_blk(ibuffo,)+1 ,wp,vp((nOReinReinReiisdt)R,mesh%ghost_blk(ibuffo,) - 1 ,wp,vp((nOReinReinRei!-sto=se==is-box+====topology)asSdtScan nsereuse)_p-ifaafaaa (n (n (nmesh%ghost_fiomssO(isdt)=isddfiomssO(j)_p-ifaafaaa (n (n (nmesh%ghost_tossO(isdt)wwRisddtossO(j)_p-ifaafaaa (n (n (nmesh%ghost_blkReind(1:- im,isdt)w=/-BOXIIeturn8888888888888 (nisddblkReind(1:- im,j)_p-ifaafaaa (n (n (nmesh%ghost_blkR-ze(1:- im,isdt)wwR/-BOXIIeturn8888888888888 (nisddblkR-ze(1:- im,j) ,wp,vp((nOReiiiiiiiii! alsoSre-orliEEE enoffsetIoasSweoneed)R==m-box ,wp,vp((nOReiiiiiiiii! romput----==e r ceiv3Sls (s fur,jenddown-!-IMEN/lfaaa (n (n (nmesh_ghost_offset(1:- im,isdt)w=/ioffset(1:- im,j) ,wp,vp((nOReiiiiiiiiize)&-(t r,ll---dom1) _s2p_p-ifaafaaaddnOReiiiiiiiiize)&-(t im)- tlK2is_s2p_p-ifaafaaa (n WRITE(mesg,'(2(A,2I4),A,I3)') '+sdd----EA/l-BOXIIeturn8888888888888888isddblkReind(1:2,j),'--dok,ze-',isddblkR-ze(1:2,j),-BOXIIeturn8888888888888888' t+',ke))rank_p-ifaafaaa (n ELSEze)&-(t im)- tlK3is_s2p_p-ifaafaaa (n WRITE(mesg,'(2(A,3I4),A,I3)') '+sdd----EA/l-BOXIIeturn8888888888888888isddblkReind(1:3,j),'--dok,ze-',isddblkR-ze(1:3,j),-BOXIIeturn8888888888888888' t+',ke))rank_p-ifaafaaa (n EOReind--nnnnnnndddddudddddd d_) ernelwri,n)&-(trank,,n.--Nap_field_ghost_initEA/l-BOXIIeturn88888888888888888888mesg,BO-(1:Npdx) =h0 )) EOReind--nnnnnnndddddudEOReind--nnnnnnnddds,n(((DIMEN/l (n /ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t--sOReindddddN/ldBRBuildSr ceiv3Sls (s fox+====on-procesPor Ie=h1n1*j +1-axa ,wp,vp (n /ldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t--sOReindddddN/lt---ke))rank . tlK-a(2rankis_s2p_p-ifaafaaa (n (nub1= mesh%ghost_blk(21:Npdx) =h0 ))))Reimesh%ghost_nr cv-R,ub1- 1 ,wp,vp((nOReinReimesh%ghost_r cvblk(2v)R,ub ,wp,vp((nOReinReiDO j=1,ub-1 ,wp,vp((nOReiOReinReimesh%ghost_r cvtossO(j)-R,mesh%ghost_tossO(j)_p-!MK.-IIIIIIIIIIIIIIIIST Neshlghost_r cvfiomssO(j,meshid,to -id) R, &_p-!MK.turn8888888888888888IST Neshlghost_fiomssO(j,meshid,to -id) ,wp,vp((nOReiOReinReimesh%ghost_r cvblkReind(1:- im,j)-R,-BOXIIeturn8888888888888 (nmesh%ghost_blkReind(1:- im,j)-+,-BOXIIeturn8888888888888 (nmesh_ghost_offset(1:- im,j)_p-ifaafaaa (n (n (nmesh%ghost_r cvblkR-ze(1:- im,j)-R,-BOXIIeturn8888888888888 (nmesh%ghost_blkR-ze(1:- im,j) ,wp,vp((nOReiiiiis,n(((D#if rdl__MPI pivi ReiiiiisLSE ,wp,vp((nOReiiiiido(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i ,wp,vp((nOReiiiiid dommunidi,eSg enbO-nkoindiceI ,wp,vp((nOReiiiiido(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i ,wp,vp((nOReiiiiilb1= mesh%ghost_blk(iv ,wp,vp((nfaa N/lub1= mesh%ghost_blk(ibuffo,) ,wp,vp((nOReiiiiid How.-any bO-nks)am I+sdd----to-g (BOguy ,wp,vp((nOReiiiiinke)))R,ub1- lb ,wp,vp((nOReinReitag1)R,100 ,wp,vp((nOReinReid_) eMPI_Se))R cv(nsdd,1,MPI_INurns cke))rank,tag1,nr cv,1,/l-BOXIIeturn888888888888MPI_INurns cr cvrank,tag1,rnelromm,rommRint,BO-(1:Npdx) =h0 )) d How.-any bO-nks)wi=1,ISr ceiv3Sfiom+====guy?:Npdx) =h0 ))))Reimesh%ghost_nr cv-R,mesh%ghost_nr cv-+ nr cvm) CYCL=h0 ))))Reimesh%ghost_r cvblk(ibuffo,) R,mesh%ghost_r cvblk(iv-+ nr cvm ,wp,vp((nOReiiiiido(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i ,wp,vp((nOReiiiiid dos xpif-r ceiv3Sls (s are linge enough ,wp,vp((nOReiiiiido(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i ,wp,vp((nOReiiiiit---mesh%ghost_nr cv---domis-zeis_s2p_p-ifaafaaa (n do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO! ,wp,vp((nOReiiiiiiiii! RGrow.r ceiv3Sls (s if-neede)DIMEN/lllll (n do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO! ,wp,vp((nOReiiiiiiiiiis-ze1R,mesh%ghost_nr cv ,wp,vp((nOReiiiiiiiiiiEEEEEl-a(2ee=hii POINTgrow2er serveIMEN/llllllllllllllllO,u(tv)R,is-zeIME!MK.-IIIIIIIIIIIIIId_) ernel suppoIST Neshlghost_r cvfiomssOdldu))Rt deofll !MK.-IIIIIIIIIIIIIIt---portrlEEEEtis_s2p_p-i!MK.-IIIIIIIIIIIIIIIIaa )))R,',wp,nl_,I-BO-)v-BO!MK.-IIIIIIIIIIIIIIIIaad_) ernelIIItim'Verletg-BO-nV nn-BOXI!Ieturn888888888888888888LIST Nap_field_ghost_initEA-nnnn-BOXI!Ieturn888888888888888888Lghost r cv))ourc==sRls PPM_MESH_GHOST_RECVFROMSUBp,-BOXI!Ieturn888888888888888888vp, 88nv-BO-(1:Npd!MK.-IIIIIIIIIIIIIIIIIIsOR(_3 RusORe!inddddddddddddddddEOReind--nnnnnnndddddudddddd_) ernel suppomesh%ghost_r cvtossO,ldu))Rt deofll suppppppppppppppppt---portrlEEEEtis_s2p_p-ifaafaaaaaaaaaaaaaaaaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnndddddudddddd_) ernelIIItim'Verletg-BO-nV nn-BOXIIeturn888888888888888888LIST Nap_field_ghost_initEA-nnnn-BOXIIeturn888888888888888888Lghost r cv)einget sRls PPM_MESH_GHOST_RECVTOSUBp,-BOXIIeturn888888888888888888vp, 88nv-BO-(1:Npdx) =h0 )))))))))))))))sOR(_3 RusOReindddddN/l((((((((EOReind--nnnnnnndddddudddddO,u(tv)R,- im ,wp,vpnnnndddddudddddO,u(2v)R,is-zeIMEN/lllllllllllllllld_) ernel suppomesh%ghost_r cvblkReind,ldu))Rt deofll suppppppppppppppppt---portrlEEEEtis_s2p_p-ifaafaaaaaaaaaaaaaaaaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnndddddudddddd_) ernelIIItim'Verletg-BO-nV nn-BOXIIeturn88888888888888888LIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888888888888888'ghost r cv)bO-nk ReindePPM_MESH_GHOST_RECVBLKSTARTp,-BOXIIeturn888888888888888888vp, 88nv-BO-(1:Npdx) =h0 )))))))))))))))sOR(_3 RusOReindddddN/l((((((((EOReind--nnnnnnndddddudddddd_) ernel suppomesh%ghost_r cvblkR-ze,ldu))Rt deofll suppppppppppppppppt---portrlEEEEtis_s2p_p-ifaafaaaaaaaaaaaaaaaaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnndddddudddddd_) ernelIIItim'Verletg-BO-nV nn-BOXIIeturn88888888888888888LIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888888888888888'ghost r cv)bO-nk R-ze1PPM_MESH_GHOST_RECVBLKSIZEp,-BOXIIeturn888888888888888888vp, 88nv-BO-(1:Npdx) =h0 )))))))))))))))sOR(_3 RusOReindddddN/l((((((((EOReind--nnnnnnndddddudi,n.--DIMEN/lllllllllllldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i ,wp,vp((nOReiiiiid Aeindi,n.---B!--box+bO-nk lBO-pke)))a)))r cv)buffo,I ,wp,vp((nOReiiiiido(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i ,wp,vp((nOReiiiiiiEEEE EEl-a(2ee=hii POINTgrow ,wp,vp((nOReiiiiil,u(tv)R,nsdd*(2*- im+tvDIMEN/l (n ((nOReid_) ernel supposddbuf,ldu))Rt deofll suppppppppppppt---portrlEEEEtis_s2p_p-ifaafaaaaaaaaaaaaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnndddddudd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA--BOXIIeturn8888888888888888'indil)MPI)sdd=buffo,wSi) BUFp,vp, 88nv-BO-(1:Npdx) =h0 )))))))))))sOR(_3 RusOReindddddN/l((((EOReind--nnnnnnndddddudl,u(tv)R,nr cv*(2*- im+tvDIMEN/l (n ((nOReid_) ernel suppor cvbuf,ldu))Rt deofll suppppppppppppt---portrlEEEEtis_s2p_p-ifaafaaaaaaaaaaaaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnnnnndddddudd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_initEA--BOXIIeturn8888888888888888'indil)MPI)r cv)buffo, RECVBUFp,vp, 88nv-BO-(1:Npdx) =h0 )))))))))))sOR(_3 RusOReindddddN/l((((EOReinDIMEN/lllllllllllldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i ,wp,vp((nOReiiiiid Pa xp).--send allr====ghost mesh bO-nko-axa ,wp,vp (n /llllldo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i ,wp,vp((nOReiiiiid Pa xp)llr====sdd=daxa ,wp,vp (n /lllllisdt)R,0 ,wp,vp((nOReinReiDO j=lb,ub-1 ,wp,vp((nOReiOReinReiisdt)R,isdt)+ 1 ,wp,vp((nOReinReinReisddbuf(isdt)w=/mesh%ghost_tossO(j)_p-((nOReiiiiid einReiisdt)R,isdt)+ 1 ,wp,vp((nOReid einReisddbuf(isdt)w=/IST Neshlghost_fiomssO(j,meshid,to -id) ,wp,vp((nOReiOReinReisddbuf(isdt+1:isdt+p im)sR, /-BOXIIeturn8888888888888 (nmesh%ghost_blkReind(1:- im,j)-+,,-BOXIIeturn8888888888888 (nmesh_ghost_offset(1:- im,j)_p-ifaafaaa (n (n (nisdt)R,isdt)+ - im ,wp,vpnnnndddddudddddsddbuf(isdt+1:isdt+p im)sR, /-BOXIIeturn8888888888888 (nmesh%ghost_blkR-ze(1:- im,j) ,wp,vp((nOReiiiiiiiiiisdt)R,isdt)+ - im ,wp,vpnnnndddddudihc(((,vp((nN/l((((((((! Se))SdtSto-g endestinax)du procesPor ).--get my Reuff ,wp,vp((nOReinReitag1)R,200 ,wp,vp((nOReinReid_) eMPI_Se))R cv(sddbuf,esetdMPI_INurns cke))rank,tag1,l-BOXIIeturn88888888888888888888888888r cvbuf,nr cv*(2*- im+tvdMPI_INurns c /l-BOXIIeturn88888888888888888888888888r cvrank,tag1,rnelromm,rommRint,BO-(1:Npdx) =h0 )) d Unpa xp====receiv3 Rdaxa ,wp,vp (n /llllllb1= mesh%ghost_r cvblk(iv ,wp,vp (n /lllllub1= mesh%ghost_r cvblk(ibuffo,) ,wp,vp (n /lllllisdt)R,0 ,wp,vp((nOReinReiDO j=lb,ub-1 ,wp,vp((nOReiOReinReiisdt)R,isdt)+ 1 ,wp,vp((nOReinReinReimesh%ghost_r cvtossO(j)-R,r cvbuf(isdt) ,wp,vp((nOReiiiiid eiisdt)R,isdt)+ 1 ,wp,vp((nOReinReid eiIST Neshlghost_r cvfiomssO(j,meshid,to -id) R,r cvbuf(isdt) ,wp,vp((nOReiiiiinReimesh%ghost_r cvblkReind(1:- im,j)-R,/l-BOXIIeturn8888888888888888r cvbuf(isdt+1:isdt+p im)_p-ifaafaaa (n (n (nisdt)R,isdt)+ - im ,wp,vpnnnndddddudddddmesh%ghost_r cvblkR-ze(1:- im,j)-R,,/l-BOXIIeturn8888888888888888r cvbuf(isdt+1:isdt+p im)_p-ifaafaaa (n (n (nisdt)R,isdt)+ - im ,wp,vpnnnndddddudihc(((#enor,wp,vpdddddudihct--!Kke))rank. tl-a(2rank ,vpdddddudihct-- -!Kke))rank .GEEEt ddddudihc((( dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Deaeindi,n.---B!--n1*j +1indil)ls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppor cvbuf,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)MPI)r cv)buffo, RECVBUFp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel supposddbuf,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)MPI)sdd=buffo,wSi) BUFp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)sdd=)ourc==sRlels ()ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)sdd=destinax)du sRlels ()ISi) TOSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)sdd=bO-nk Reindels ()ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)sdd=bO-nk R-zeRls ()ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoioffsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'indil)sdd=bO-nk offsetRls ()IOFFSETp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppomesh_ghost_offsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_ghost_initEA-nnnn-BOXIIeturn88888'ghost bO-nk offsetRls ()MESH_GHOST_OFFSETp,vp, 88nv-BO-(1:Npdx) i,n.--(aafaa mesh%ghost_initmk),ze))R,.TRUE.D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n 3=bu dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 R3 Ru CONTINUE-) CYCLd_) eusOReopi,n.--Nap_field_ghost_initEAL(mk), D) CYCLRETURp_p-ifaaCONTAINS_p-ifaaSUBROUTINEgrtrB!aafaa CLd_) ernelrtrB!_to -id(to -id,lto ,BO-(1:Npdx) =h0 ze).NOTl lto is_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_ghost_initEA/l-BOXIIeturn888888888'to -id ouh1n1*rangep,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aafaa CLd_) ernelrtrB!_meshid(to -id,meshid,lto ,BO-(1:Npdx) =h0 ze).NOTl lto is_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_ghost_initEA/l-BOXIIeturn888888888'meshid ouh1n1*rangep,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aafaa CLze)SIZE(ghosts-ze,tv)-LT.,',wp imis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_ghost_initEA/l-BOXIIeturn888888888'ghosts-ze must be at(lea ( n1*length,',wp imp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aa8888LCYCLdONTINUE-) CYCLshclSUBROUTINEgrtrB!aafaa shclSUBROUTINEgn.--Nap_field_ghost_init libn.--1.2/src/Nap/n.--Nap_field_ghost_put.f000644 000765 000024 00000032316 11445666062 021362 0uRein00ominReiff000000 000000 afaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSubrout--e1)w:Npdx) =h0 ))))n.--Nap_field_ghost_put dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3Copyright (c) 2010 CSE Lab (ETH Zurich),IMOSAIC Lab (ETH Zurich),I(mk), -BRRRRRRRRRRRRRRRRRRRCeo,-box+Fluid Dynamics (DTUll sup!ll sup!ll sup! T=is-bilewis Ie=h1n1*j +1Par-BOel1ParticlewMesh Library (PPM).ll sup!ll sup! PPMwis fre==software: youScan reds (ributu+it-a.-/ox+modify pivi +it-unliEEE enterm=========GNU LessiEEGener-B Pm(-,c LicenseI(mk), -Bas Im(-,-he))by=====Fre==Software Fo---ax)du, ei,jend(mk), -Bvers)du 3========License, ox+(at(yournoption) any BBBBnd(mk), -Bvers)du.ll sup!ll sup! PPMwis ds (ributudIIc gie hope-g (BOit)wi=1,be useful,ll sup! but WITHOUT ANY WARRANTY;)B!--ouh1evec gie impliudIwarrant--n1ll sup! MERCHANTABILITY ox+FITNESS FOR A PARTICULAR PURPOSEEESeeSg ell sup! GNU Gener-B Pm(-,c LicenseIfox+morendetails.ll sup!ll sup! YouSs-ould turnereceiv3 Ra copy========GNU Gener-B Pm(-,c License(mk), -Band=====GNU LessiEEGener-B Pm(-,c LicenseIalong-B!--(PPM. If-not,ll sup! seeS.ll sup!ll sup! Par-BOel1ParticlewMesh Library (PPM)ll sup! ETH Zurich RusOR(_3CH-8092 Zurich, SB!-znrlan ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpSUBROUTINEgn.--Nap_field_ghost_put(to -id,meshid,ghosts-ze,eofll sup!!! T=is-rout--e1sdds=====valueseof=ghost mesh -isll sup!!! ba xp=o-g eirnorigin(Ic orliEEEo add-g eirncon(ribut)du =o-g ell sup!!! correspod----reil)mesh -i.ll sup!!!ll sup!!! [IMPORTANT]ll sup!!! `n.--Nap_field_ghost_init` must not,be chlle))a)ymore. T=is-rout--ell sup!!! ctrB!s wheterhr====ghost mapp---s turnebeen(Icitmk),ze))alreidy an ,wp,vpd!! if-not,p====rout--e1is-chlle))by=====library.ll sup!!!ll sup!!! [NOTE]ll sup!!! T=eBfirst Ie=h1n1*j +1sd))/r cv)ls (s con(t!ns)R===on-procesPor daxa.D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Includes ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 #include "&-(t rf--e.h"D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modules ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpUSEgn.--Nodule_daxa ,wp,vpUSEgn.--Nodule_daxa_mesh ,wp,vpUSEgn.--Nodule_type rf ,wp,vpUSEgn.--Nodule_usORee=h ,wp,vpUSEgn.--Nodule_usOReop ,wp,vpUSEgn.--Nodule_I-BO-)v-BO--USEgn.--Nodule_-BO-n2) CYCLUSEgn.--Nodule_rtrB!_i ,wp,vpIMPLICIT NONE dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Awx1_ds ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINurns ,pINurNT(IN ) ::8to -idll sup!!! Topology)ID ,wp,vpINurns ,pINurNT(IN ) ::8meshidll sup!!! Mesh ID ,wp,vpINurns , DIMENSION(:) ,pINurNT(IN ) ::8ghosts-zell sup!!! S-ze n1*j +1ghost layiEEIc nc-BO-seof=grid -isEIc )llrspacell sup!!! imens)dus (1...',wp imi. ,wp,vpINurns ,pINurNT( OUT) ::8eofll sup!!! n 3=bus Reitus, 0 updu sRccesP dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Lndil)variables ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINurns , DIMENSION(3) ::8ldu ,wp,vpINurns ::8i,j,lb,ub ,wp,vpINurns ::8iRt debuffo,,- im ,wp,vpINurns ::8nsddls (,nr cvls (ll supREALm'Verkind_dom(-e) ::8tt ddddudLOGICAL ::8validll supTYPEm'Vert_to -),IPOINurR ::8to -ll supTYPEm'Vert_equi_mesh),IPOINurR ::8mesh dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 ExternalR ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Initmk),se(mk), -o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(d_) eusOReind(,n.--Nap_field_ghost_putEAL(mk), D) CYCL& im)=,',wp imn,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 dos xpawx1_ds ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIe)&-(t r,ll---domtis_s2p_p-ifaafad_) ertrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindEOReinDIMEN/lto - =>,',wpto -(to -id)%(ll supmesh =>,to -%mesh(meshid) n,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 dos xpif=ghost mapp---s turnebeen(Icitk),ze), if-no do so-now. pivi k3 RusOReindi,n.---B!rmsh_comp_w))1.rmsh_comp_w)))Rts', 88IF_g_3i2dn,wp,initialize).NOTl mesh%ghost_initmk),ze)is_s2p_p-ifaafad_) en.--Nap_field_ghost_init(to -id,meshid,ghosts-ze,eofll supppt---portrlEEEEtis_s2p_p-ifaafaaaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLCYd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_ghost_putEA/l-BOXIIeturn8888888'Could not,initmk),ze=ghost mapp---sp,vp, 88nv-BO-(1:Npdx) =h0 )sOR(_3 RusOReindddihct-aafaa i,n.--,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Surne====map type fox+====usORequent-chlls (use) t+sdt Iop type),wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(n.--Nap_type El-a(2ee=hiiNap_ghost_put ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Reset ====buffo,ws-ze couo,sDIMEN/ldo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(n.--nsddbuffo,w= 0 RusOR(n.--nr cvbuffo,w= 0 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Nc-BO---domesh bO-nks)RoSnsekent/r cvd1is-revers3Sfiom+====get dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(nr cvls (1R,mesh%ghost_nsdd RusOR(nsddls (1R,mesh%ghost_nr cv dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil)mesh sddls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nsddls (ll supd_) ernel suppoIST NeshlisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888')ourc==sdd=)Rlels ()PPM_MESH_ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nsddls (ll supd_) ernel suppoIST NeshlisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888')dd=bO-nk Reindels ()PPM_MESH_ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST NeshlisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888')dd=bO-nk R-zeRls ()PPM_MESH_ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil)mesh r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nr cvls (ll supd_) ernel suppoIST Neshlir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888'destinax)du r cv))Rlels ()PPM_MESH_IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nr cvls (ll supd_) ernel suppoIST Neshlir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888'r cv)bO-nk Reindels ()PPM_MESH_IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST Neshlir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888'r cv)bO-nk R-zeRls ()PPM_MESH_IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil)sd))/r cv)ls (s dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(O,u(tv)R,to -%orommReq-) CYCLd_) ernel suppornelisddls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888'globil)sd)) rank ls ()PPM_ISi) LISTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST ir cvls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888'globil)r cv)rank ls ()PPM_IRECVLISTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,to -%orommReq)+ 1 ,wp,vpd_) ernel suppoIST psddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888'globil)sdd=buffo,w -io,)PPM_PSi) BUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST pr cvbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_ghost_putEA/l nn-BOXIIeturn88888'globil)r cv)buffo, -io,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Reset ====nc-BO---dobuffo, en(ries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIST buffo,_sdt)R,0 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 BuildS====li (s fox+IST Nap_field_push, _Iop and=_sdd=to CREATE=ghost RusOR(_3 Nesh -isEon+====topology)to -idll sup!o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(IST psddbuffo,(tv)R,1(mk), IST pr cvbuffo,(tv)R,1(mk), IST nsddls (111111R,to -%orommReq-) CYCLn.--nr cvls (111111R,IST nsddls ( RusOR(ibuffo,wwwwwwwwwwwwR,0OReindDO i=1,to -%orommReq-) CYCLOR(ibuffo,w= i)+ 1 ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSto=se=== procesPor B!--(whichSweowi=1,sd))/r cv ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nrnelisddls ((iv-R,to -%irommReq(iv ,wp,vp((nIST ir cvls ((iv-R,to -%irommReq(iv ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSto=se=== mesh bO-nkorange-box+==is IrocesPor io,acx)du ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nrnelpsddbuffo,(ibuffo,)=mesh%ghost_r cvblk(ibuffo,) ,wp,vp (nIST pr cvbuffo,(ibuffo,)=mesh%ghost_blk(ibuffo,) ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSto=se=== rf--it)dus n1*j +1mesh bO-nks)RoSnsekent ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nlb1= rnelpsddbuffo,(i) ,wp,vp (nub1= rnelpsddbuffo,(ibuffo,) ,wp,vp (nDO j=lb,ub-1 ,wp,vp((nOReiIST NeshlisddblkReind(1:- im,j)-R,,/ll-BOXIIeturn88888888mesh%ghost_r cvblkReind(1:- im,j) ,wp,vp((nOReiIST NeshlisddblkR-ze(1:- im,j)-R,,/lll-BOXIIeturn88888888mesh%ghost_r cvblkR-ze(1:- im,j) ,wp,vp((nOReiIST NeshlisddfiomssO(j)=mesh%ghost_r cvtossO(j)_p-((nOReis,n(((DIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRSto=se=== rf--it)dus n1*j +1mesh bO-nks)RoSnsereceiv3 ,wp,vp((ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((nlb1= rnelpr cvbuffo,(i) ,wp,vp (nub1= rnelpr cvbuffo,(ibuffo,) ,wp,vp (nDO j=lb,ub-1 ,wp,vp((nOReiIST Neshlir cvblkReind(1:- im,j)-R,/lll-BOXIIeturn88888888mesh%ghost_blkReind(1:- im,j) ,wp,vp((nOReiIST Neshlir cvblkR-ze(1:- im,j)-R,,/lll-BOXIIeturn88888888mesh%ghost_blkR-ze(1:- im,j) ,wp,vp((nOReiIST Neshlir cvtossO(j)-R,mesh%ghost_fiomssO(j)_p-ifaafaaihc(((,vp((nihc((D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 n 3=bu dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 R3 Ru CONTINUE-) CYCLd_) eusOReopi,n.--Nap_field_ghost_putEAL(mk), D) CYCLRETURp_p-ifaaCONTAINS_p-ifaaSUBROUTINEgrtrB!aafaa CLd_) ernelrtrB!_to -id(to -id,valid,BO-(1:Npdx) =h0 ze).NOTl validis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_ghost_putEA/l-BOXIIeturn888888888'to -id ouh1n1*rangep,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aafaa CLd_) ernelrtrB!_meshid(to -id,meshid,valid,BO-(1:Npdx) =h0 ze).NOTl validis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_ghost_putEA/l-BOXIIeturn888888888'meshid ouh1n1*rangep,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aa8888LCYCLdONTINUE-) CYCLshclSUBROUTINEgrtrB!aafaa shclSUBROUTINEgn.--Nap_field_ghost_put libn.--1.2/src/Nap/n.--Nap_field_globil.f000644 000765 000024 00000061712 11445666062 020610 0uRein00ominReiff000000 000000 afaa do(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSubrout--e1)w:Npdx) =h0 )))) ))n.--Nap_field_globil dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3Copyright (c) 2010 CSE Lab (ETH Zurich),IMOSAIC Lab (ETH Zurich),I(mk), -BRRRRRRRRRRRRRRRRRRRCeo,-box+Fluid Dynamics (DTUll sup!ll sup!ll sup! T=is-bilewis Ie=h1n1*j +1Par-BOel1ParticlewMesh Library (PPM).ll sup!ll sup! PPMwis fre==software: youScan reds (ributu+it-a.-/ox+modify pivi +it-unliEEE enterm=========GNU LessiEEGener-B Pm(-,c LicenseI(mk), -Bas Im(-,-he))by=====Fre==Software Fo---ax)du, ei,jend(mk), -Bvers)du 3========License, ox+(at(yournoption) any BBBBnd(mk), -Bvers)du.ll sup!ll sup! PPMwis ds (ributudIIc gie hope-g (BOit)wi=1,be useful,ll sup! but WITHOUT ANY WARRANTY;)B!--ouh1evec gie impliudIwarrant--n1ll sup! MERCHANTABILITY ox+FITNESS FOR A PARTICULAR PURPOSEEESeeSg ell sup! GNU Gener-B Pm(-,c LicenseIfox+morendetails.ll sup!ll sup! YouSs-ould turnereceiv3 Ra copy========GNU Gener-B Pm(-,c License(mk), -Band=====GNU LessiEEGener-B Pm(-,c LicenseIalong-B!--(PPM. If-not,ll sup! seeS.ll sup!ll sup! Par-BOel1ParticlewMesh Library (PPM)ll sup! ETH Zurich RusOR(_3CH-8092 Zurich, SB!-znrlan ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpSUBROUTINEgn.--Nap_field_globil(to -id,einget_to -id,RRRRRRRRRRRR-BOXIIeturn88888888888888888888888888 meshid,tinget_meshid,eofll sup!!! T=is-rout--e1Naps-bield lBO-pbetween(two=topologies (whichll sup!!! howeveroneed)rompax)bl+1meshes rf--edEon+===m) us----a globil ddddudd!! mapp--- (i.e.1every IrocesPor rommunidi,es-B!--(every o,jen).ll sup!!!=Sourc==mesh must be on+====current-bield topology. Globil)ls (s ddddudd!!=B!--(allrmesh bO-nks)R)(BOturneRoSnsekent-a.-/ox+receiv3 Rarell sup!!! builtIIc gidIo)Rtt--e. `n.--Nap_field_push`, `n.--Nap_field_pop` an ,wp,vpd!! `n.--Nap_field_sdd`)wi=1,use+===s==li (s.ll sup!!!ll sup!!! [NOTE]ll sup!!! T=eBfirst Ie=h1n1*j +1sd))/r cv)ls (s con(t!ns)on-procesPor daxa.Dll sup!!!ll sup!!! [CAUTION]ll sup!!! *Side effect*: gidIo)Rtt--e,uses)R===*same*=globil)sd))/r cv)buffo,I,ll sup!!! -io,sBand=ls (s as)R===particlewmapp--- )Rtt--es (reason:ll sup!!! ===s==buffo,IScan nselinge =>.---B!--issues). Field and=particle ddddudd!! mapp---IScan g ereforenneveroornrlap, but one must be romplete ,wp,vpd!! beforenR===o,jendReinds.ll sup!!!ll sup!!! [NOTE]ll sup!!! A Nap_field_partiil)could be ron (ructudIas follows:1every IrocesPorll sup!!! known-bo,j `isddls (` an `ir cvls (`. T=ey)could now,use+ ,wp,vpd!! `n.--tt-llrommopt`eRoSfind a good rommunidi,)duIRequence an rompresP ddddudd!! ===1sd))/r cv)loop. Also,*j +1inop when build----==e indil)sdd/r cv ,wp,vpd!! ls (s below would just nee) t+go)ornrrtle=nennIbox=====aeusO ,wp,vpd!! !nstead====a=1,subs. Difficulty:nR===orliEE-domesh bO-nks)Ic gie sdd RusOR(d!! a)))r cv)buffo,)could not match up any morenand=push/Iop could fail.ll sup!!!=*rtrB! gidI!* dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Includes ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 #include "&-(t rf--e.h"D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modules ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(USEgn.--Nodule_daxa ,wp,vpUSEgn.--Nodule_daxa_mesh ,wp,vpUSEgn.--Nodule_type rf ,wp,vpUSEgn.--Nodule_usORee=h ,wp,vpUSEgn.--Nodule_usOReop ,wp,vpUSEgn.--Nodule_I-BO-)v-BO--USEgn.--Nodule_-BO-n2) CYCLUSEgn.--Nodule_wri,n2) CYCLUSEgn.--Nodule_rtrB!_i ,wp,vpUSEgn.--Nodule_NeshlbO-nk_io,sect ,wp,vpIMPLICIT NONE dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Awx1_ds ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINurns ,pINurNT(IN ) ::8to -idll sup!!! Topology)ID--dokourc=ll sup!!!ll sup!!! CAUTION: use) t+be einget to - ID ,wp,vpINurns ,pINurNT(IN ) ::8einget_to -idll sup!!! Topology)ID--doeinget ,wp,vpINurns ,pINurNT(IN ) ::8meshidll sup!!! Mesh ID--dokourc=ll supINurns ,pINurNT(IN ) ::8einget_meshidll sup!!! Mesh ID--doeinget ,wp,vpINurns ,pINurNT( OUT) ::8eofll sup!!! n 3=bus Reitus, 0 updu sRccesP dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Lndil)variables ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINurns , DIMENSION(3) ::8ldu ,wp,vpINurns , DIMENSION(',wp im) ::8ibO-nkseind,nbO-nks-ze,offset ,wp,vpINurns , DIMENSION(',wp im) ::8ghosts-zell supINurns ::8i,j,idomcke))rank,r cvrankll supINurns ::8iRt desetdebuffo,,- im ,wp,vpINurns ::8nsddls (,nsdd RusOR(INurns ::8nr cvls (ll supdHARACTER(rnelrtar) ::8mesgD) CYCLREALm'Verkind_dom(-e) ::8tt ddddudLOGICAL ::8validll supTYPEm'Vert_to -),IIIIIIPOINurR ::8to -,einget_to -ll supTYPEm'Vert_equi_mesh),IPOINurR ::8mesh,tinget_mesh dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 ExternalR ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Initmk),se(mk), -o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(d_) eusOReind(,n.--Nap_field_globilEAL(mk), D) CYCL& im)=,',wp imn,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 dos xpawx1_ds ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIe)&-(t r,ll---domtis_s2p_p-ifaOR(d_) ertrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindEOReinDIMEN/lto - =>,',wpto -(to -id)%(ll supeinget_to - =>,',wpto -(tinget_to -id)%(ll supmesh =>,to -%mesh(meshid) ll supeinget_mesh =>,tinget_to -%mesh(meshid) n,wp,vpIe)&-(tbuffo,_sdt)--domtis_s2p_p-ifaOR( )))R,',wp,nl_,Iwarn---_p-ifaOR(d_) ernelIIItim'VerletgNap_ioromp,,n.--Nap_field_globilEARR-BOXIIeturn888'Buffo,)was not empty. Poss)bl+1loss--dodaxa!p,vp, 88nv-BO-(1:Npdx) i,n.--(,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Surne====map type fox+====usORequent-chlls (use) fox+ctrB!s!),wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(n.--Nap_type El-a(2ee=hiiNap_globil ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 dos xpifnorigin(and==inget meshes are rompax)bl+1(i.e.1hurne=== RusOR(_3 same=nc-BO---dogrid -isEIc ====whole romput. domain),wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(DO i=1,- im ,wp,vpnnnnt---mesh%Nm(iv-_s2p_einget_mesh%Nm(ivis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletgbad_mesh,,n.--Nap_field_globilEARR-BOXIIeturn888urn888')ourc==ad=destinax)du meshes are iorompax)bl+p,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_3 RusOReindddddihct-aafaa i,n((D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary sddls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,to -%osm(-,-(ll supd_) ernel suppoisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)sdd=)ourc==sRlels ()ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)sdd=destinax)du sRlels ()ISi) TOSUBp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,to -%osm(-,-(ll supd_) ernel suppoisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)sdd=bO-nk Reindels ()ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)sdd=bO-nk R-zeRls ()ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoioffsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)sdd=bO-nk offsetRls ()IOFFSETp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Find io,sect----mesh domains)RoSnsekent ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(nsddls (1R,t ddddudghosts-ze R,t ddddudoffsetR wwR,0OReindDO i=1,to -%osm(-,-(ll supfaaa dom-R,to -%ism(-,-((iv ,wp,vp (n DO j=1,einget_to -%osm(I ,wp,vp((nOReiid_) en.--NeshlbO-nk_io,sect(to -id,einget_to -id,meshid,tinget_meshid,-BOXIIeturn88888888888888idomcj,offset,ghosts-ze,nsddls (,RR-BOXIIeturn88888888888888isddfiomssOdisddtossO,isddblkReind,isddblkR-ze,R-BOXIIeturn88888888888888ioffset,BO-(1:Npdx) =h0 ))))portrltis_s2p_p-isOR(_3 RusOReindddddihc(((,vp((nihc((D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,einget_to -%osm(-,-(ll supd_) ernel suppoir cvfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)r cv))ourc==sRlels ()IRECVFROMSUBp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)r cv)destinax)du sRlels ()IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,einget_to -%osm(-,-(ll supd_) ernel suppoir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)r cv)bO-nk Reindels ()IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRls ()IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Find io,sect----mesh domains)RoSnsereceiv3 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(nr cvls (1R,0 RusOR(_3inop ornrrfiomto - first ad=_s2p)ornrrtoto - Ic orliEEEo get === RusOR(_3same=orliE-----domesh bO-nks)as)Ic gie sddls (. T=is-is-crutmk) RusOR(_3box+====pushBand=====Iop to work Iroperly pivi DO j=1,eo -%osm(I ,wp,vp((nODO i=1,tinget_to -%osm(-,-(ll supifaafaaa dom-R,tinget_to -%ism(-,-((iv ,wp,vp (n nnnnd_) ernelNeshlbO-nk_io,sect(to -id,einget_to -id,meshid,tinget_meshid,-BOXIIeturn88888888j,idomcoffset,ghosts-ze,nr cvls (,ir cvfiomssOdR-BOXIIeturn88888888ir cvtossO,ir cvblkReind,ir cvblkR-ze,ioffset,BO-(1:Npdx) =h0 ))))portrltis_s2p_p-isOR(_3 RusOReindddddihc(((,vp((nihc((D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil)mesh sddls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nsddls (ll supd_) ernel suppoIST NeshlisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888')ourc==sdd=)Rlels ()PPM_MESH_ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nsddls (ll supd_) ernel suppoIST NeshlisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888')dd=bO-nk Reindels ()PPM_MESH_ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST NeshlisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888')dd=bO-nk R-zeRls ()PPM_MESH_ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil)mesh r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nr cvls (ll supd_) ernel suppoIST Neshlir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'destinax)du r cv))Rlels ()PPM_MESH_IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nr cvls (ll supd_) ernel suppoIST Neshlir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'r cv)bO-nk Reindels ()PPM_MESH_IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST Neshlir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'r cv)bO-nk R-zeRls ()PPM_MESH_IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil)sd))/r cv)ls (s dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(O,u(tv)R,-ST nIroc-) CYCLd_) ernel suppoIST isddls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'globil)sd)) rank ls ()PPM_ISi) LISTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST ir cvls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'globil)r cv)rank ls ()PPM_IRECVLISTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,-ST nIroc)+ 1 ,wp,vpd_) ernel suppoIST psddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'globil)sd)) buffo,w -io,)PPM_PSi) BUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST pr cvbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'globil)r cv)buffo, -io,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Reset ====nc-BO---dobuffo, en(ries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(&-(tbuffo,_sdt)R,0 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrra=1,IrocesPors; First ise=== procesPor itself,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(ke))rankNpdx) =h0 )R,',wprankN- 1 ,wp,vpr cvrankNpdx) =h0 )R,',wprankN+,1(mk), IST psddbuffo,(tv)R,1(mk), IST pr cvbuffo,(tv)R,1(mk), IST nsddls (111111R,0 RusOR(n.--nr cvls (111111R,0 RusOR(n.--nsddbuffo,w111R,0sOR(_3lBO-plength,inobuffo, RusOR(n.--nr cvbuffo,w111R,0sOR(_3lBO-plength,inobuffo, RusOR(isetR wwNpdx) =h0 )R,0 RusOR(ibuffo,wwwwwwwwwwwwR,0 pivi DO i=1,-ST nIroc-) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpd romputertle=next IrocesPorll sup,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpke))rankN=pke))rankN+ 1 ,wp,vp((nt---ke))rank.GE.-ST nIroc)pke))rankN=pke))rankN-,-ST nIroc-) CYCL,vpr cvrankN=pr cvrankN- 1 ,wp,vp((nt---r cvrank.LT.wp,vp((ntisr cvrankN=pr cvrankN+,-ST nIroc--) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpd Sto=se=== procesPor to whichSweowi=1,sd)) to-) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpIST nsddls (111111wwwwwwwwwwR,IST nsddls (1+ 1 ,wp,vp((nIST isddls ((IST nsddls ()N=pke))rank--) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpd Sto=se=== procesPor to whichSweowi=1,r cv)fiom-) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpIST nr cvls (111111wwwwwwwwwwR,IST nr cvls (1+ 1 ,wp,vp((nIST ir cvls ((IST nr cvls ()N=pr cvrank--) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpd Find allrmesh bO-nks)R)(BOare kent-a.- Reo=se===m.-) CYCL,vpd To get allrmesh bO-nks)R)(BOare kent-inoro----) CYCL,vpd i=1,-ST nsddls (:-) CYCL,vpd dest_rankN=pIST isddls ((iv ,wp,vp (nd il))R,',wppsddbuffo,(i) ,wp,vp (nd ihi)R,',wppsddbuffo,(i+1)-1 ,wp,vp((nd DO j=il),ihi ,wp,vp((nd Si,noIST Neshlisddblk(:,j)--dokubiIST NeshlisddfiomssO(j) to-) CYCL,vpd,wp,vp((nIrocesPor dest_rankNt+subiIST NeshlisddtossO(j)) ,wp,vp (nd ihc(((,vp((n,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpibuffo,w= IST nsddls (1+ 1 ,wp,vp((nIST psddbuffo,(ibuffo,))R,',wppsddbuffo,(IST nsddls () ,wp,vp((nDO j=1,nsddls (ll suppppppppt---tinget_to -%ssO2Iroc(isddtossO(j)) .EQ.pke))rankis_s2p_p-ifaafaaa (n ((nIST psddbuffo,(ibuffo,))R,',wppsddbuffo,(ibuffo,))+ 1 ,wp,vp((n CYCL,vpisdt)R,',wppsddbuffo,(ibuffo,))- 1 ,wp,vp((n CYCL,vpIST NeshlisddfiomssO(isdt) = isddfiomssO(j) ,wp,vp((n CYCL,vpIST NeshlisddblkReind(1:- im,isdt) = isddblkReind(1:- im,j) ,wp,vp((nOReiL,vpIST NeshlisddblkR-ze(1:- im,isdt) = isddblkR-ze(1:- im,j) ,wp,vp((nOReippppt---IST r,ll---dom1is_s2p_p-ifaafaaa (n ((nppppt---IST im .EQ.p2is_s2p_p-ifaafaaa (n ((nppppppppWRITE-mesg,'(2(A,2I4),A,I3)') 'pke))----EARR-BOXIIeturn888urn8888888888isddblkReind(1:2,j),'--dok-zeR',isddblkR-ze(1:2,j),-BOXIIeturn888urn8888888888'Nt+'cke))rank_p-ifaafaaa (n ((nppppELSEt---IST im .EQ.p3is_s2p_p-ifaafaaa (n ((nppppppppWRITE-mesg,'(2(A,3I4),A,I3)') 'pke))----EARR-BOXIIeturn888urn8888888888isddblkReind(1:3,j),'--dok-zeR',isddblkR-ze(1:3,j),-BOXIIeturn888urn8888888888'Nt+'cke))rank_p-ifaafaaa (n ((nppppEhct-aafaa CLLLLLLLLLLLLd_) ernelwri,n(',wprankVLIST Nap_field_globilEAmesg,BO-(1:Npdx) =h0 ))))pppEhct-aafaa CLLLLEhct-aafaa Cs,n(((DIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRFind allrmesh bO-nks)R)(BOare receiv3 Ra.- Reo=se===m.-) CYCL,vpd To get allrmesh bO-nks)R)(BOare receiv3 Rinoro----) CYCL,vpd i=1,-ST nr cvls (:-) CYCL,vpd )ourc=_rankN=pIST ir cvls ((iv ,wp,vp (nd il))R,',wppr cvbuffo,(i) ,wp,vp (nd ihi)R,',wppr cvbuffo,(i+1)-1 ,wp,vp((nd DO j=il),ihi ,wp,vp((nd RECVoIST Neshlir cvblk(:,j)--dokubiIST Neshlir cvfiomssO(j) ,wp,vp((nd,wp,vp((nfiom+IrocesPor )ourc=_rankNt+subiIST Neshlir cvtossO(j)) ,wp,vp (nd ihc(((,vp((n,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpibuffo,w= IST nr cvls (1+ 1 ,wp,vp((nIST pr cvbuffo,(ibuffo,))R,',wppr cvbuffo,(IST nr cvls () ,wp,vp((nDO j=1,nr cvls (ll suppppppppt---to -%ssO2Iroc(ir cvfiomssO(j)) .EQ.pr cvrankis_s2p_p-ifaafaaa (n ((nIST pr cvbuffo,(ibuffo,))R,',wppr cvbuffo,(ibuffo,))+ 1 ,wp,vp((n CYCL,vpisdt)R,',wppr cvbuffo,(ibuffo,))- 1 ,wp,vp((n CYCL,vpIST Neshlir cvtossO(isdt) = ir cvtossO(j)_p-((nORei CYCL,vpIST Neshlir cvblkReind(1:- im,isdt) = ir cvblkReind(1:- im,j) ,wp,vp((nOReiL,vpIST Neshlir cvblkR-ze(1:- im,isdt) = ir cvblkR-ze(1:- im,j) ,wp,vp((nOReippppt---IST r,ll---dom1is_s2p_p-ifaafaaa (n ((nppppt---IST im .EQ.p2is_s2p_p-ifaafaaa (n ((nppppppppWRITE-mesg,'(2(A,2I4),A,I3)') 'pr cv----EARR-BOXIIeturn888urn8888888888ir cvblkReind(1:2,j),'--dok-zeR',ir cvblkR-ze(1:2,j),-BOXIIeturn888urn8888888888'Nfiom+',r cvrankll suppppppppppppppppELSEt---IST im .EQ.p3is_s2p_p-ifaafaaa (n ((nppppppppWRITE-mesg,'(2(A,3I4),A,I3)') 'pr cv----EARR-BOXIIeturn888urn8888888888ir cvblkReind(1:3,j),'--dok-zeR',ir cvblkR-ze(1:3,j),-BOXIIeturn888urn8888888888'Nfiom+',r cvrankll suppppppppppppppppEhct-aafaa CLLLLLLLLLLLLd_) ernelwri,n(',wprankVLIST Nap_field_globilEAmesg,BO-(1:Npdx) =h0 ))))pppEhct-aafaa CLLLLEhct-aafaa Cs,n(((a Cs,n(((,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Deaeindi,n.---B!--n1*j +1indil)ls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppoisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)sdd=)ourc==sRlels ()ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)sdd=destinax)du sRlels ()ISi) TOSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)sdd=bO-nk Reindels ()ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)sdd=bO-nk R-zeRls ()ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)r cv))ourc==sRlels ()IRECVFROMSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)r cv)destinax)du sRlels ()IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)r cv)bO-nk Reindels ()IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRls ()IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoioffsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globilEARR nn-BOXIIeturn88888'indil)r cv)bO-nk offsetRls ()IOFFSETp,vp, 88nv-BO-(1:Npdx) i,n.--,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Re3=bu dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 R3 Ru CONTINUE-) CYCLd_) eusOReopi,n.--Nap_field_globilEAL(mk), D) CYCLRETURp_-) CYCLdONTAINS_-) CYCLSUBROUTINEgrtrB!aafaa CLd_) ernelrtrB!_to -id(tinget_to -id,valid,BO-(1:Npdx) =h0 ze).NOTl validis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_globilEARR-BOXIIeturn888urn888'einget to -id not validp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aafaa CLd_) ernelrtrB!_meshid(to -id,meshid,valid,BO-(1:Npdx) =h0 ze).NOTl validis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_globilEARR-BOXIIeturn888urn888')ourc==meshid not validp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aafaa CLd_) ernelrtrB!_meshid(tinget_to -id,tinget_meshid,valid,BO-(1:Npdx) =h0 ze).NOTl validis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_globilEARR-BOXIIeturn888urn888'destinax)du meshid not validp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aa8888LCYCLdONTINUE-) CYCLshclSUBROUTINEgrtrB!a-) CYCLshclSUBROUTINEgn.--Nap_field_globil libn.--1.2/src/Nap/n.--Nap_field_globil_symm.f000644 000765 000024 00000062460 11445666062 021656 0uRein00ominReiff000000 000000 ) CYCLdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSubrout--e1)w:Npdx) =h0 )))) ))n.--Nap_field_globil_symm,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3Copyright (c) 2010 CSE Lab (ETH Zurich),IMOSAIC Lab (ETH Zurich),I(mk), -BRRRRRRRRRRRRRRRRRRRCeo,-box+Fluid Dynamics (DTUll sup!ll sup!ll sup! T=is-bilewis Ie=h1n1*j +1Par-BOel1ParticlewMesh Library (PPM).ll sup!ll sup! PPMwis fre==software: youScan reds (ributu+it-a.-/ox+modify pivi +it-unliEEE enterm=========GNU LessiEEGener-B Pm(-,c LicenseI(mk), -Bas Im(-,-he))by=====Fre==Software Fo---ax)du, ei,jend(mk), -Bvers)du 3========License, ox+(at(yournoption) any BBBBnd(mk), -Bvers)du.ll sup!ll sup! PPMwis ds (ributudIIc gie hope-g (BOit)wi=1,be useful,ll sup! but WITHOUT ANY WARRANTY;)B!--ouh1evec gie impliudIwarrant--n1ll sup! MERCHANTABILITY ox+FITNESS FOR A PARTICULAR PURPOSEEESeeSg ell sup! GNU Gener-B Pm(-,c LicenseIfox+morendetails.ll sup!ll sup! YouSs-ould turnereceiv3 Ra copy========GNU Gener-B Pm(-,c License(mk), -Band=====GNU LessiEEGener-B Pm(-,c LicenseIalong-B!--(PPM. If-not,ll sup! seeS.ll sup!ll sup! Par-BOel1ParticlewMesh Library (PPM)ll sup! ETH Zurich RusOR(_3CH-8092 Zurich, SB!-znrlan ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpSUBROUTINEgn.--Nap_field_globil_symm(to -id,einget_to -id,RRRRRRRRRRRR-BOXIIeturn88888888888888888888888888 meshid,tinget_meshid,eofll sup!!! T=is-rout--e1Naps-bield lBO-pbetween(two=topologiesll sup!!! (which howeveroneed)rompax)bl+1meshes rf--edEonll sup!!! ===m) us----a globil mapp--- (i.e.1every IrocesPorll sup!!! rommunidi,es-B!--(every o,jen).=Sourc==mesh must bell sup!!! on+====current-bield topology. Globil)ls (s-B!--ll sup!!! allrmesh bO-nks)R)(BOturneRoSnsekend-a.-/oxll sup!!! receiv3 Rare builtIIc gidIo)Rtt--e. Push, Iop andll sup!!! kend-wi=1,use+===s==li (s.ll sup!!!ll sup!!! [WARNING]ll sup!!! T=is-rout--e1has not been(tested,Rreviewed,Rox+ctrB!ed.3Com_ds ,wp,vpd!-Band=doc1_dax)du are wrong. T=is-rout--e1Night ki=1,yourndi, oxll sup!!! worse.ll sup!!!ll sup!!! [NOTE]ll sup!!! T=eBfirst Ie=h1n1*j +1sd))/r cv)ls (s con(t!ns)g ell sup!!! on-procesPor daxa.Dll sup!!!ll sup!!! [CAUTION]ll sup!!! Side effect: gidIo)Rtt--e,uses)R===same=globil ddddudd!! sd))/r cv)buffo,I, -io,sBand=ls (s as)R== ddddudd!! particlewmapp--- )Rtt--es (reason: ===s==buffo,Ill sup!!! ran nselinge =>.---B!--issues). Field and=particle ddddudd!! mapp---IScan g ereforenneveroornrlap, but one must ddddudd!! be romplete beforenR===o,jendReinds.ll sup!o(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,inll sup!3 Includes ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 #include "&-(t rf--e.h"D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modules dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(USEgn.--Nodule_daxa ,wp,vpUSEgn.--Nodule_daxa_mesh ,wp,vpUSEgn.--Nodule_type rf ,wp,vpUSEgn.--Nodule_usORee=h ,wp,vpUSEgn.--Nodule_usOReop ,wp,vpUSEgn.--Nodule_I-BO-)v-BO--USEgn.--Nodule_-BO-n2) CYCLUSEgn.--Nodule_wri,n2) CYCLUSEgn.--Nodule_rtrB!_i ,wp,vpUSEgn.--Nodule_NeshlbO-nk_io,sect ,wp,vpIMPLICIT NONE dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Awx1_ds ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINurns ,pINurNT(IN ) ::8to -idll sup!!! Topology)ID--dokourc= Dll sup!!!ll sup!!! CAUTION: use) t+be einget to - ID ,wp,vpINurns ,pINurNT(IN ) ::8einget_to -idll sup!!! Topology)ID--doeinget ,wp,vpINurns ,pINurNT(IN ) ::8meshidll sup!!! Mesh ID--dokourc=ll supINurns ,pINurNT(IN ) ::8einget_meshidll sup!!! Mesh ID--doeinget ,wp,vpINurns ,pINurNT( OUT) ::8eofll sup!!! n 3=bu Reitus, 0 updu sRccesP dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Lndil)variables ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINurns , DIMENSION(3) ::8ldu ,wp,vpINurns , DIMENSION(IST im) ::8ibO-nkseind,nbO-nks-ze,offset ,wp,vpINurns , DIMENSION(',wp im) ::8ghosts-zell supINurns ::8i,j,idomcke))rank,r cvrankll supINurns ::8iRt desetdebuffo,,- im ,wp,vpINurns ::8nsddls (,nsdd RusOR(INurns ::8nr cvls (ll supdHARACTER(rnelrtar) ::8mesgD) CYCLREALm'Verkind_dom(-e) ::8tt ddddudLOGICAL, DIMENSION(3) ::8lsymm,wp,vpLOGICAL ::8validll supTYPEm'Vert_to -),IIIIIIPOINurR ::8to -,einget_to -ll supTYPEm'Vert_equi_mesh),IPOINurR ::8mesh,tinget_mesh dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 ExternalR ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Initmk),se(mk), -o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(d_) eusOReind(,n.--Nap_field_globil_symmEAL(mk), D) CYCL& im)=,',wp imn,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 dos xpawx1_ds ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIe)&-(t r,ll---domtis_s2p_p-ifaOR(d_) ertrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindEOReinDIMEN/lto - =>,',wpto -(to -id)%(ll supeinget_to - =>,',wpto -(tinget_to -id)%(ll supmesh =>,to -%mesh(meshid) ll supeinget_mesh =>,tinget_to -%mesh(meshid) n,wp,vpIe)&-(tbuffo,_sdt)--domtis_s2p_p-ifaOR( )))R,',wp,nl_,Iwarn---_p-ifaOR(d_) ernelIIItim'VerletgNap_ioromp,,n.--Nap_field_globil_symmEARR-BOXIIeturn888'Buffo,)was not empty. Poss)bl+1loss--dodaxa!p,vp, 88nv-BO-(1:Npdx) i,n.--(,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Surne====map type fox+====usORequent-chlls (use) fox+ctrB!s!),wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(n.--Nap_type El-a(2ee=hiiNap_globil ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 dos xpifnorigin(and==inget meshes are rompax)bl+1(i.e.1hurne=== RusOR(_3 same=nc-BO---dogrid -isEIc ====whole romput. domain),wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(DO i=1,- im ,wp,vpnnnnt---mesh%Nm(iv-_s2p_einget_mesh%Nm(ivis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletgbad_mesh,,n.--Nap_field_globil_symmEARR-BOXIIeturn888urn888')ourc==ad=destinax)du meshes are iorompax)bl+p,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_3 RusOReindddddihct-aafaa i,n((D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary sddls (s ,wdduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,to -%osm(-,-(ll supd_) ernel suppoisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)sdd=)ourc==sRlels ()ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)sdd=destinax)du sRlels ()ISi) TOSUBp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,to -%osm(-,-(ll supd_) ernel suppoisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)sdd=bO-nk Reindels ()ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)sdd=bO-nk R-zeRls ()ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoioffsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)sdd=bO-nk offsetRls ()IOFFSETp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Find io,sect----mesh domains)RoSnsekent ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(nsddls (1R,t ddddudghosts-ze R,t ddddudoffsetR wwR,0OReindDO i=1,to -%osm(-,-(ll supfaaa dom-R,to -%ism(-,-((iv ,wp,vp (n lsymm(1:- imv)R,.TRUE.-) CYCL,vppt---to -%ssOs_bc(2,idom)rlEEEEtislsymm(1v)R,.FALSE.-) CYCL,vppt---to -%ssOs_bc(4,idom)rlEEEEtislsymm(2v)R,.FALSE.-) CYCL,vppt---to -%ssOs_bc(6,idom)rlEEEEtislsymm(3v)R,.FALSE.-) CYCL,vppDO j=1,einget_to -%osm(I ,wp,vp((nOReiid_) en.--NeshlbO-nk_io,sect(to -id,einget_to -id,meshid,tinget_meshid,-BOXIIeturn88888888888888idomcj,offset,ghosts-ze,nsddls (,RR-BOXIIeturn88888888888888isddfiomssOdisddtossO,isddblkReind,isddblkR-ze,R-BOXIIeturn88888888888888ioffset,BO-(,lsymm1:Npdx) =h0 ))))portrltis_s2p_p-isOR(_3 RusOReindddddihc(((,vp((nihc((D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,einget_to -%osm(-,-(ll supd_) ernel suppoir cvfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)r cv))ourc==sRlels ()IRECVFROMSUBp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)r cv)destinax)du sRlels ()IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,einget_to -%osm(-,-(ll supd_) ernel suppoir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)r cv)bO-nk Reindels ()IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRls ()IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Find io,sect----mesh domains)RoSnsereceiv3 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(nr cvls (1R,0 RusOR(_3inop ornrrfiomto - first ad=_s2p)ornrrtoto - Ic orliEEEo get === RusOR(_3same=orliE-----domesh bO-nks)as)Ic gie sddls (. T=is-is-crutmk) RusOR(_3box+====pushBand=====Iop to work Iroperlyp!!!ll supDO j=1,eo -%osm(I ,wp,vp((nOlsymm(1:- imv)R,.TRUE.-) CYCL,vppt---to -%ssOs_bc(2,j)rlEEEEtislsymm(1v)R,.FALSE.-) CYCL,vppt---to -%ssOs_bc(4,j)rlEEEEtislsymm(2v)R,.FALSE.-) CYCL,vppt---to -%ssOs_bc(6,j)rlEEEEtislsymm(3v)R,.FALSE.-) CYCL,vppDO i=1,tinget_to -%osm(-,-(ll supifaafaaa dom-R,tinget_to -%ism(-,-((iv ,wp,vp (n nnnnd_) ernelNeshlbO-nk_io,sect(to -id,einget_to -id,meshid,tinget_meshid,-BOXIIeturn88888888j,idomcoffset,ghosts-ze,nr cvls (,ir cvfiomssOdR-BOXIIeturn88888888ir cvtossO,ir cvblkReind,ir cvblkR-ze,ioffset,BO-(,lsymm1:Npdx) =h0 ))))portrltis_s2p_p-isOR(_3 RusOReindddddihc(((,vp((nihc((D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil)mesh sddls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nsddls (ll supd_) ernel suppoIST NeshlisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888')ourc==sdd=)Rlels ()PPM_MESH_ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nsddls (ll supd_) ernel suppoIST NeshlisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888')dd=bO-nk Reindels ()PPM_MESH_ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST NeshlisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888')dd=bO-nk R-zeRls ()PPM_MESH_ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil)mesh r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nr cvls (ll supd_) ernel suppoIST Neshlir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'destinax)du r cv))Rlels ()PPM_MESH_IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nr cvls (ll supd_) ernel suppoIST Neshlir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'r cv)bO-nk Reindels ()PPM_MESH_IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST Neshlir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'r cv)bO-nk R-zeRls ()PPM_MESH_IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil)sd))/r cv)ls (s dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(O,u(tv)R,-ST nIroc-) CYCLd_) ernel suppoIST isddls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'globil)sd)) rank ls ()PPM_ISi) LISTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST ir cvls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'globil)r cv)rank ls ()PPM_IRECVLISTp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,-ST nIroc)+ 1 ,wp,vpd_) ernel suppoIST psddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'globil)sd)) buffo,w -io,)PPM_PSi) BUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoIST pr cvbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'globil)r cv)buffo, -io,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx) =h0 sOR(_3 RusOReindi,n.--,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Reset ====nc-BO---dobuffo, en(ries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(&-(tbuffo,_sdt)R,0 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrra=1,IrocesPors; First ise=== procesPor itself,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(ke))rankNpdx) =h0 )R(&-(trankN- 1 ,wp,vpr cvrankNpdx) =h0 )R,',wprankN+,1(mk), IST psddbuffo,(tv)R,1(mk), IST pr cvbuffo,(tv)R,1(mk), IST nsddls (111111R,0 RusOR(n.--nr cvls (111111R,0 RusOR(n.--nsddbuffo,w111R,0sOR(_3lBO-plength,inobuffo, RusOR(n.--nr cvbuffo,w111R,0sOR(_3lBO-plength,inobuffo, RusOR(isetR wwNpdx) =h0 )R,0 RusOR(ibuffo,wwwwwwwwwwwwR,0 pivi DO i=1,-ST nIroc-) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpd romputertle=next IrocesPorll sup,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpke))rankN=pke))rankN+ 1 ,wp,vp((nt---ke))rank.GE.-ST nIroc)pke))rankN=pke))rankN-,-ST nIroc-) CYCL,vpr cvrankN=pr cvrankN- 1 ,wp,vp((nt---r cvrank.LT.wp,vp((ntisr cvrankN=pr cvrankN+,-ST nIroc--) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpd Sto=se=== procesPor to whichSweowi=1,sd)) to-) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpIST nsddls (111111wwwwwwwwwwR,IST nsddls (1+ 1 ,wp,vp((nIST isddls ((IST nsddls ()N=pke))rank--) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpd Sto=se=== procesPor to whichSweowi=1,r cv)fiom-) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpIST nr cvls (111111wwwwwwwwwwR,IST nr cvls (1+ 1 ,wp,vp((nIST ir cvls ((IST nr cvls ()N=pr cvrank--) CYCL,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpd Find allrmesh bO-nks)R)(BOare kent-a.- Reo=se===m.-) CYCL,vpd To get allrmesh bO-nks)R)(BOare kent-inoro----) CYCL,vpd i=1,-ST nsddls (:-) CYCL,vpd dest_rankN=pIST isddls ((iv ,wp,vp (nd il))R,',wppsddbuffo,(i) ,wp,vp (nd ihi)R,',wppsddbuffo,(i+1)-1 ,wp,vp((nd DO j=il),ihi ,wp,vp((nd Si,noIST Neshlisddblk(:,j)--dokubiIST NeshlisddfiomssO(j) to-) CYCL,vpd,wp,vp((nIrocesPor dest_rankNt+subiIST NeshlisddtossO(j)) ,wp,vp (nd ihc(((,vp((n,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpibuffo,w= IST nsddls (1+ 1 ,wp,vp((nIST psddbuffo,(ibuffo,))R,',wppsddbuffo,(IST nsddls () ,wp,vp((nDO j=1,nsddls (ll suppppppppt---tinget_to -%ssO2Iroc(isddtossO(j)) .EQ.pke))rankis_s2p_p-ifaafaaa (n ((nIST psddbuffo,(ibuffo,))R,',wppsddbuffo,(ibuffo,))+ 1 ,wp,vp((n CYCL,vpisdt)R,',wppsddbuffo,(ibuffo,))- 1 ,wp,vp((n CYCL,vpIST NeshlisddfiomssO(isdt) = isddfiomssO(j) ,wp,vp((n CYCL,vpIST NeshlisddblkReind(1:- im,isdt) = isddblkReind(1:- im,j) ,wp,vp((nOReiL,vpIST NeshlisddblkR-ze(1:- im,isdt) = isddblkR-ze(1:- im,j) ,wp,vp((nOReippppt---IST r,ll---dom1is_s2p_p-ifaafaaa (n ((nppppt---IST im .EQ.p2is_s2p_p-ifaafaaa (n ((nppppppppWRITE-mesg,'(2(A,2I4),A,I3)') 'pke))----EARR-BOXIIeturn888urn8888888888isddblkReind(1:2,j),'--dok-zeR',isddblkR-ze(1:2,j),-BOXIIeturn888urn8888888888'Nt+'cke))rank_p-ifaafaaa (n ((nppppELSEt---IST im .EQ.p3is_s2p_p-ifaafaaa (n ((nppppppppWRITE-mesg,'(2(A,3I4),A,I3)') 'pke))----EARR-BOXIIeturn888urn8888888888isddblkReind(1:3,j),'--dok-zeR',isddblkR-ze(1:3,j),-BOXIIeturn888urn8888888888'Nt+'cke))rank_p-ifaafaaa (n ((nppppEhct-aafaa CLLLLLLLLLLLLd_) ernelwri,n(',wprankVLIST Nap_field_globil_symmEA-BOXIIeturn88888888888888888888888888 mesg,BO-(1:Npdx) =h0 ))))pppEhct-aafaa CLLLLEhct-aafaa Cs,n(((DIMEN/l (ndo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BR ,wp,vp((ndBRFind allrmesh bO-nks)R)(BOare receiv3 Ra.- Reo=se===m.-) CYCL,vpd To get allrmesh bO-nks)R)(BOare receiv3 Rinoro----) CYCL,vpd i=1,-ST nr cvls (:-) CYCL,vpd )ourc=_rankN=pIST ir cvls ((iv ,wp,vp (nd il))R,',wppr cvbuffo,(i) ,wp,vp (nd ihi)R,',wppr cvbuffo,(i+1)-1 ,wp,vp((nd DO j=il),ihi ,wp,vp((nd RECVoIST Neshlir cvblk(:,j)--dokubiIST Neshlir cvfiomssO(j) ,wp,vp((nd,wp,vp((nfiom+IrocesPor )ourc=_rankNt+subiIST Neshlir cvtossO(j)) ,wp,vp (nd ihc(((,vp((n,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCL,vpibuffo,w= IST nr cvls (1+ 1 ,wp,vp((nIST pr cvbuffo,(ibuffo,))R,',wppr cvbuffo,(IST nr cvls () ,wp,vp((nDO j=1,nr cvls (ll suppppppppt---to -%ssO2Iroc(ir cvfiomssO(j)) .EQ.pr cvrankis_s2p_p-ifaafaaa (n ((nIST pr cvbuffo,(ibuffo,))R,',wppr cvbuffo,(ibuffo,))+ 1 ,wp,vp((n CYCL,vpisdt)R,',wppr cvbuffo,(ibuffo,))- 1 ,wp,vp((n CYCL,vpIST Neshlir cvtossO(isdt) = ir cvtossO(j)_p-((nORei CYCL,vpIST Neshlir cvblkReind(1:- im,isdt) = ir cvblkReind(1:- im,j) ,wp,vp((nOReiL,vpIST Neshlir cvblkR-ze(1:- im,isdt) = ir cvblkR-ze(1:- im,j) ,wp,vp((nOReippppt---IST r,ll---dom1is_s2p_p-ifaafaaa (n ((nppppt---IST im .EQ.p2is_s2p_p-ifaafaaa (n ((nppppppppWRITE-mesg,'(2(A,2I4),A,I3)') 'pr cv----EARR-BOXIIeturn888urn8888888888ir cvblkReind(1:2,j),'--dok-zeR',ir cvblkR-ze(1:2,j),-BOXIIeturn888urn8888888888'Nfiom+',r cvrankll suppppppppppppppppELSEt---IST im .EQ.p3is_s2p_p-ifaafaaa (n ((nppppppppWRITE-mesg,'(2(A,3I4),A,I3)') 'pr cv----EARR-BOXIIeturn888urn8888888888ir cvblkReind(1:3,j),'--dok-zeR',ir cvblkR-ze(1:3,j),-BOXIIeturn888urn8888888888'Nfiom+',r cvrankll suppppppppppppppppEhct-aafaa CLLLLLLLLLLLLd_) ernelwri,n(',wprankVLIST Nap_field_globil_symmEA-BOXIIeturn88888888888888888888888888 mesg,BO-(1:Npdx) =h0 ))))pppEhct-aafaa CLLLLEhct-aafaa Cs,n(((a Cs,n(((,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Deaeindi,n.---B!--n1*j +1indil)ls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hiide-BO-n2) CYCLd_) ernel suppoisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)sdd=)ourc==sRlels ()ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)sdd=destinax)du sRlels ()ISi) TOSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)sdd=bO-nk Reindels ()ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)sdd=bO-nk R-zeRls ()ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)r cv))ourc==sRlels ()IRECVFROMSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)r cv)destinax)du sRlels ()IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)r cv)bO-nk Reindels ()IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRls ()IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoioffsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'Verletgde-BO-nVLIST Nap_field_globil_symmEARR nn-BOXIIeturn88888'indil)r cv)bO-nk offsetRls ()IOFFSETp,vp, 88nv-BO-(1:Npdx) i,n.--,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Re3=bu dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 R3 Ru CONTINUE-) CYCLd_) eusOReopi,n.--Nap_field_globil_symmEAL(mk), D) CYCLRETURp_-) CYCLdONTAINS_-) CYCLSUBROUTINEgrtrB!aafaa CLd_) ernelrtrB!_to -id(tinget_to -id,valid,BO-(1:Npdx) =h0 ze).NOTl validis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_globil_symmEARR-BOXIIeturn888urn888'einget to -id not validp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aafaa CLd_) ernelrtrB!_meshid(to -id,meshid,valid,BO-(1:Npdx) =h0 ze).NOTl validis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_globil_symmEARR-BOXIIeturn888urn888')ourc==meshid not validp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aafaa CLd_) ernelrtrB!_meshid(tinget_to -id,tinget_meshid,valid,BO-(1:Npdx) =h0 ze).NOTl validis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletg)wx1_d,,n.--Nap_field_globil_symmEARR-BOXIIeturn888urn888'destinax)du meshid not validp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888 ,vpdddddudihct-aa8888LCYCLdONTINUE-) CYCLshclSUBROUTINEgrtrB!a-) CYCLshclSUBROUTINEgn.--Nap_field_globil_symmlibn.--1.2/src/Nap/n.--Nap_field_globil_useperiod.f000644 000765 000024 00000116253 11445666062 022670 0uRein00ominReiff000000 000000 ) CYCLdo(:,:)n_,no,,, POINTERrOInitialiseOso/ldou3 RusOR(_3 RusO!--(i)t----BREAL(mk), -BRSubrout--e1)w:Npdx) =h0 )))) ))n.--Nap_field_globil_useperiod,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3Copyright (c) 2010 CSE Lab (ETH Zurich),IMOSAIC Lab (ETH Zurich),I(mk), -BRRRRRRRRRRRRRRRRRRRCeo,-box+Fluid Dynamics (DTUll sup!ll sup!ll sup! T=is-bilewis Ie=h1n1*j +1Par-BOel1ParticlewMesh Library (PPM).ll sup!ll sup! PPMwis fre==software: youScan reds (ributu+it-a.-/ox+modify pivi +it-unliEEE enterm=========GNU LessiEEGener-B Pm(-,c LicenseI(mk), -Bas Im(-,-he))by=====Fre==Software Fo---ax)du, ei,jend(mk), -Bvers)du 3========License, ox+(at(yournoption) any BBBBnd(mk), -Bvers)du.ll sup!ll sup! PPMwis ds (ributudIIc gie hope-g (BOit)wi=1,be useful,ll sup! but WITHOUT ANY WARRANTY;)B!--ouh1evec gie impliudIwarrant--n1ll sup! MERCHANTABILITY ox+FITNESS FOR A PARTICULAR PURPOSEEESeeSg ell sup! GNU Gener-B Pm(-,c LicenseIfox+morendetails.ll sup!ll sup! YouSs-ould turnereceiv3 Ra copy========GNU Gener-B Pm(-,c License(mk), -Band=====GNU LessiEEGener-B Pm(-,c LicenseIalong-B!--(PPM. If-not,ll sup! seeS.ll sup!ll sup! Par-BOel1ParticlewMesh Library (PPM)ll sup! ETH Zurich RusOR(_3CH-8092 Zurich, SB!-znrlan ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpSUBROUTINEgn.--Nap_field_globil_useperiod(to -id,einget_to -id,RR-BOXIIeturn88888888888888888888888888 meshid,tinget_meshid,eofll sup!!! T=is-rout--e1Naps-bield lBO-pbetween(two=topologies (which howeveroll sup!!! need)rompax)bl+1meshes rf--edEon ===m) us----a globil mapp--- (i.e.1ll sup!!! every IrocesPor rommunidi,es-B!--(every o,jen).=Sourc==mesh must beEonll sup!!! ====current-bield topology. Globil)ls (s-B!-- allrmesh bO-nks)R)(BOturnll sup!!! =oSnsekend-a.-/ox receiv3 Rare builtIIc gidIo)Rtt--e. Push, Iop and1ll sup!!! kend-wi=1,use+===s==li (s.ll sup!!!ll sup!!! [WARNING]ll sup!!! T=is-rout--e1has not been(tested,Rreviewed,Rox+ctrB!ed.3Com_ds ,wp,vpd!-Band=doc1_dax)du are wrong. T=is-rout--e1Night ki=1,yourndi, oxll sup!!! worse.ll sup!!!ll sup!!! [NOTE]ll sup!!! T=eBfirst Ie=h1n1*j +1sd))/r cv)ls (s con(t!ns)g e on-procesPorll sup!!! daxa.Dll sup!!!ll sup!!! [CAUTION]ll sup!!! Side effect: gidIo)Rtt--e,uses)R===same=globil ddddudd!! sd))/r cv)buffo,I, -io,sBand=ls (s as)R== ddddudd!! particlewmapp--- )Rtt--es (reason: ===s==buffo,Ill sup!!! ran nselinge =>.---B!--issues). Field and=particle ddddudd!! mapp---IScan g ereforenneveroornrlap, but one must ddddudd!! be romplete beforenR===o,jendReinds.ll sup!o(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,inll sup!3 Includes ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuilpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in#include "&-(t rf--e.h"D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modules dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(USEgn.--Nodule_daxa ,wp,vpUSEgn.--Nodule_daxa_mesh ,wp,vpUSEgn.--Nodule_type rf ,wp,vpUSEgn.--Nodule_usORee=h ,wp,vpUSEgn.--Nodule_usOReop ,wp,vpUSEgn.--Nodule_I-BO-)v-BO--USEgn.--Nodule_-BO-n2) CYCLUSEgn.--Nodule_wri,n2) CYCLUSEgn.--Nodule_rtrB!_i ,wp,vpUSEgn.--Nodule_NeshlbO-nk_io,sect ,wp,vpIMPLICIT NONE dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Awx1_ds ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINurns ,pINurNT(IN ) ::8to -idll sup!!! Topology)ID--dokourc=Dll sup!!!ll sup!!! CAUTION: use) t+be einget ,wp,vpINurns ,pINurNT(IN ) ::8tinget_to -idll sup!!! Topology)ID--doeinget ,wp,vpINurns ,pINurNT(IN ) ::8meshidll sup!!! Mesh ID--dokourc=ll supINurns ,pINurNT(IN ) ::8einget_meshidll sup!!! Mesh ID--doeinget ,wp,vpINurns ,pINurNT( OUT) ::8eofll sup!!! n 3=bus Reitus, 0 updu sRccesP dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Lndil)variables ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINurns , DIMENSION(3) ::8ldu ,wp,vpINurns , DIMENSION(IST im) ::8op ,wp,vpINurns , DIMENSION(IST im,27) ::8od RusOR(INurns , DIMENSION(IST im) ::8ibO-nkseind,nbO-nks-ze RusOR(INurns , DIMENSION(IST im) ::8ghosts-zell supINurns ::8i,j,k,idomcke))rank,r cvrankll supINurns ::8iRt desetdebuffo,,- im,nd RusOR(INurns ::8nsddls (,nsdd RusOR(INurns ::8nr cvls (ll supdHARACTER(rnelrtar) ::8mesgD) CYCLREALm'Verkind_dom(-e) ::8tt ddddudLOGICAL ::8lkouth,lnorth,least,lwest,lto ,lbottom-) CYCLLOGICAL, DIMENSION(3) ::8lsymm,wp,vpLOGICAL ::8validll supTYPEm'Vert_to -),IIIIIIPOINurR ::8to -,einget_to -ll supTYPEm'Vert_equi_mesh),IPOINurR ::8mesh,tinget_mesh dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vp_3 ExternalR ,wp,vpdo(:,:)n_,nndi,n.---B!rmshcc,lmoddpidx)) ernel supportrlIF_gNp1.d 2dn,wp,in,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Initmk),se(mk), -o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(d_) eusOReind(,n.--Nap_field_globil_useperiodEAL(mk), D) CYCL& im)=,',wp imn,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 dos xpawx1_ds ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIe)&-(t r,ll---domtis_s2p_p-ifaOR(d_) ertrB!aafaa portrltis_s2p_p-isOR(_3 RusOReindEOReinDIMEN/lto - =>,',wpto -(to -id)%(ll supeinget_to - =>,',wpto -(tinget_to -id)%(ll supmesh =>,to -%mesh(meshid) ll supeinget_mesh =>,tinget_to -%mesh(meshid) n,wp,vpIe)&-(tbuffo,_sdt)--domtis_s2p_p-ifaOR( )))R,',wp,nl_,Iwarn---_p-ifaOR(d_) ernelIIItim'VerletgNap_ioromp,,n.--Nap_field_globil_useperiodEARR-BOXIIeturn888'Buffo,)was not empty. Poss)bl+1loss--dodaxa!p,vp, 88nv-BO-(1:Npdx) i,n.--(,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Surne====map type fox+====usORequent-chlls (use) fox+ctrB!s!),wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(n.--Nap_type El-a(2ee=hiiNap_globil ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 dos xpifnorigin(and==inget meshes are rompax)bl+1(i.e.1hurne=== RusOR(_3 same=nc-BO---dogrid -isEIc ====whole romput. domain),wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(DO i=1,- im ,wp,vpnnnnt---mesh%Nm(iv-_s2p_einget_mesh%Nm(ivis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletgbad_mesh,,n.--Nap_field_globil_useperiodEA-BOXIIeturn888urn888')ourc==ad=destinax)du meshes are iorompax)bl+p,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_3 RusOReindddddihct-aafaa i,n((Dafaa ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Pre-chlcuBBBB shift offsets fox+periodic8ghost images--dokubs ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpop(tv)R,mesh%Nm(1))- 1 ,wp,vpop(2v)R,mesh%Nm(2))- 1 ,wp,vpIe)& im .-dom2is_s2p_p-ifaafaaaop(3v)R,mesh%Nm(3))- 1 ,wp,vpi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary sddls (s ,wdduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,to -%osm(-,-(ll supd_) ernel suppoisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)sdd=)ourc==sRlels ()ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)sdd=destinax)du sRlels ()ISi) TOSUBp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,to -%osm(-,-(ll supd_) ernel suppoisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)sdd=bO-nk Reindels ()ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)sdd=bO-nk R-zeRls ()ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoioffsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)sdd=bO-nk offsetRls ()IOFFSETp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Find io,sect----mesh domains)RoSnsekent ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(nsddls (1R,t ddddudghosts-ze R,t ddddudDO i=1,to -%osm(-,-(ll supfaaa dom-R,to -%ism(-,-((iv ,wp,vp (n ond(1:- im,1:27) R,t ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd We=now,use+symmetry. Only sdd up to --axa-1 ,wp,vp((npd unless-we are at=non-periodic,=non-io,nil)bo---ary. ,wp,vp((npd Because+we do gidI,+we need)to consiliEEperiodic8images. ,wp,vp((npd InEperiodic8systemI,+====box needs)RoSnsekhift3 Ra.- ornrlaps ,wp,vp((npd reromputed Ic orliEEEo get ===Eperiodic8image neighbors. ,wp,vp((npd dos xpifn fac==n1*j is sRlec-icilis-B!-- aEperiodic8domain ,wp,vp((npd bo---ary. ,wp,vp((npdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vplsymm(1:- imv)R,.TRUE.-) CYCL,vppt----to -%bcdef(2v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(2,idom)rlEEEEtiislsymm(1v)R,.FALSE.-) CYCL,vppt----to -%bcdef(4v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(4,idom)rlEEEEtiislsymm(2v)R,.FALSE.-) CYCL,vppt----to -%bcdef(6v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(6,idom)rlEEEEtiislsymm(3v)R,.FALSE.-) CYCL,vpp ddddudp,vplwest )R,.FALSE.-) CYCL,vppleast )R,.FALSE.-) CYCL,vppt----to -%bcdef(1) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(1,idom)rlEEEEtiislwest R,.TRUE.-) CYCL,vpplkouth)R,.FALSE.-) CYCL,vpplnorth)R,.FALSE.-) CYCL,vppt----to -%bcdef(3) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(3,idom)rlEEEEtiislsouth)R,.TRUE.-) CYCL,vppt---& im .-dom2is_s2p_p-ifaafaaa,vpplbottomR,.FALSE.-) CYCL,vpp,vpplto )R,.FALSE.-) CYCL,vpp,vppt----to -%bcdef(5) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn888888888-to -%ssOs_bc(5,idom)rlEEEEtiislbottom)R,.TRUE.-) CYCL,vppihct-aafaa CL ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd Determ--e,nc-BO---dokhiftsBand=actuil)shift indicis-needed ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpnnd== 1 ,wp,vp((n t---lwestis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(1,ndv)R,op(tv-) CYCL,vppihct-aafaa CLt---leastis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(1,ndv)R,-op(tv-) CYCL,vppihct-aafaa CLt---lsouthis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))portlwestis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))Ehct-aafaa CLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))Ehct-aafaa CLihct-aafaa CLt---lnorthis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))portlwestis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))Ehct-aafaa CLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))Ehct-aafaa CLihct-aafaa CLt---& im .-dom2is_s2p_p-ifaafaaa,vppt---lbottomis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLportlwestis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---lsouthis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLLLLLt---lnorthis_s2p_p-ifaafaaa,vppppppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLEhct-aafaa CLLLLLt---lto is_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLportlwestis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---lsouthis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLLLLLt---lnorthis_s2p_p-ifaafaaa,vppppppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLEhct-aafaa CLihct-aafaa CL ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd Do+====uhift----and romputermesh bO-nks ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpDO k=1,nd RusOR(ddudp,vpDO j=1,tinget_to -%osm(saafaa CLLLLLLLLLd_) ernelNeshlbO-nk_io,sect(to -id,einget_to -id,meshid,-BOXIIeturn8888888888888tinget_meshid,edomcj,ond(1:- im,k),ghosts-ze,nsddls (,R-BOXIIeturn8888888888888isddfiomssOdisddtossO,isddblkReind,isddblkR-ze,R-BOXIIeturn8888888888888ioffset,BO-(,lsymm1:Npdx) =h0 ))))))))portrltis_s2p_p-isOR(_3 RusOReindddddddddihc(((,vp((n,vpdihc(((,vp((nihc((D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,tinget_to -%osm(-,-(ll supd_) ernel suppoir cvfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)r cv))ourc==sRlels ()IRECVFROMSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)r cv)destinax)du sRlels ()IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,tinget_to -%osm(-,-(ll supd_) ernel suppoir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)r cv)bO-nk Reindels ()IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppoir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRls ()IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Find io,sect----mesh domains)RoSnsereceiv3 dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(nr cvls (1R,t ddddud! inop ornrrfiomto - first and _s2p ornrrtoto - Ic orliEEEo get === ddddud! same=orliE----ofrmesh bO-nks)asEIc ====sddls (. T=is-is-crutmk) ddddud! box+====push and=====Iop to work Iroperlyp!!!ll supDO j=1,to -%osm(saafaa CLond(1:- im,1:27) R,t ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd We=now,use+symmetry. Only sdd up to --axa-1 ,wp,vp((npd unless-we are at=non-periodic,=non-io,nil)bo---ary. ,wp,vp((npd Because+we do gidI,+we need)to consiliEEperiodic8images. ,wp,vp((npd InEperiodic8systemI,+====box needs)RoSnsekhift3 Ra.- ornrlaps ,wp,vp((npd reromputed Ic orliEEEo get ===Eperiodic8image neighbors. ,wp,vp((npd dos xpifn fac==n1*j is sRlec-icilis-B!-- aEperiodic8domain ,wp,vp((npd bo---ary. ,wp,vp((npdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vplsymm(1:- imv)R,.TRUE.-) CYCL,vppt----to -%bcdef(2v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(2,j)rlEEEEtiislsymm(1v)R,.FALSE.-) CYCL,vppt----to -%bcdef(4v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(4,j)rlEEEEtiislsymm(2v)R,.FALSE.-) CYCL,vppt----to -%bcdef(6v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(6,j)rlEEEEtiislsymm(3v)R,.FALSE.-) CYCL,vpp ddddudp,vplwest )R,.FALSE.-) CYCL,vppleast )R,.FALSE.-) CYCL,vppt----to -%bcdef(1) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(1,j)rlEEEEtiislwest R,.TRUE.-) CYCL,vpplkouth)R,.FALSE.-) CYCL,vpplnorth)R,.FALSE.-) CYCL,vppt----to -%bcdef(3) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(3,j)rlEEEEtiislsouth)R,.TRUE.-) CYCL,vppt---& im .-dom2is_s2p_p-ifaafaaa,vpplbottomR,.FALSE.-) CYCL,vpp,vpplto )R,.FALSE.-) CYCL,vpp,vppt----to -%bcdef(5) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn888888888-to -%ssOs_bc(5,j)rlEEEEtiislbottom)R,.TRUE.-) CYCL,vppihct-aafaa CL ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd Determ--e,nc-BO---dokhiftsBand=actuil)shift indicis-needed ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpnnd== 1 ,wp,vp((n t---lwestis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(1,ndv)R,op(tv-) CYCL,vppihct-aafaa CLt---leastis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(1,ndv)R,-op(tv-) CYCL,vppihct-aafaa CLt---lsouthis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))portlwestis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))Ehct-aafaa CLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))Ehct-aafaa CLihct-aafaa CLt---lnorthis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))portlwestis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))Ehct-aafaa CLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))Ehct-aafaa CLihct-aafaa CLt---& im .-dom2is_s2p_p-ifaafaaa,vppt---lbottomis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLportlwestis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---lsouthis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCwp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLLLLLt---lnorthis_s2p_p-ifaafaaa,vppppppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,op(3v-))))))))))))))))))))))t---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCwp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =hpp((n CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLEhct-aafaa CLLLLLt---lto is_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLportlwestis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wwwwwwwwwwwwwwwwwwwwwond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---lsouthis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLLLLLt---lnorthis_s2p_p-ifaafaaa,vppppppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =vpp((n CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLEhct-aafaa CLihct-aafaa CL ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd Do+====uhift----and romputermesh bO-nks ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpDO k=1,nd RusOR(ddudp,vpDO i=1,tinget_to -%osm(ls (ll suppppppppppppp dom-R,tinget_to -%ism(-,-((iv ,wp,vp (n d_) ernelNeshlbO-nk_io,sect(to -id,einget_to -id,meshid,-BOXIIeturn8888888888888tinget_meshid,j,edomcond(1:- im,k),ghosts-ze,nr cvls (,R-BOXIIeturn8888888888888ir cvfiomssOdir cvtossO,ir cvblkReind,ir cvblkR-ze,R-BOXIIeturn8888888888888ioffset,BO-(,lsymm1:Npdx) =h0 )))))))portrltis_s2p_p-isOR(_3 RusOReindddddddddihc(((,vp((n,vpdihc((,vp((n,vpd ddddddihc((( dddddddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil mesh sddls (s ,wdduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nsddls ( d_) ernel suppornelNeshlisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888')ourc==sdd=)Rlels ()PPM_MESH_ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) ))))sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nsddls ( d_) ernel suppornelNeshlisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'sdd=bO-nk Reindels ()PPM_MESH_ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppornelNeshlisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'sdd=bO-nk R-zeRls ()PPM_MESH_ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil mesh r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nr cvls (ll supd_) ernel suppornelNeshlir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'destinax)du r cv))Rlels ()PPM_MESH_IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,- im ,wp,vpO,u(2v)R,nr cvls (ll supd_) ernel suppornelNeshlir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'r cv)bO-nk Reindels ()PPM_MESH_IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppornelNeshlir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'r cv)bO-nk R-zeRls ()PPM_MESH_IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globil sd))/r cv)ls (s dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(O,u(tv)R,-ST nproc-) CYCLd_) ernel suppornelisddls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'globil sd)) rankRls ()PPM_ISi) LISTp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppornelir cvls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'globil r cv)rankRls ()PPM_IRECVLISTp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLO,u(tv)R,-ST nproc=+ 1 ,wp,vpd_) ernel suppornelpsddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'globil sdd=buffo,) -io,)PPM_PSi) BUFFERp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.--) CYCLd_) ernel suppornelpr cvbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'globil r cv)buffo,) -io,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx) sOR(_3 RusOReindi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Reset ===Enc-BO---dobuffo,)entries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIST buffo,_sdt)R,t dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrprocesPors; First is)R===IrocesPor itself dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(ke))rankNpdx) )R,',wprankN- 1 ,wp,vpr cvrankNpdx) )R,',wprankN+ 1 ,wp,vprnelpsddbuffo,(tv)R,1 ,wp,vprnelpr cvbuffo,(tv)R,1 ,wp,vprnelnsddls (1 )R,0 ,wp,vprnelnr cvls (1 )R,0 ,wp,vprnelnsddbuffo, )R,0sOR(_3lBO-plength Ic buffo, ,wp,vprnelnr cvbuffo, )R,0sOR(_3lBO-plength Ic buffo, ,wp,vpeset R,0 ,wp,vpibuffo, ) R,0 ,wp,vpDO i=1,-ST nproc-) CYCLduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudd romputer===Enext procesPorll supduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudke))rankN=dke))rankN+ 1 ,wp,vp((nt---ke))rank.GE.-ST nproc)dke))rankN=dke))rankN-,-ST nproc-) CYCL,vpr cvrankN=pr cvrankN- 1 ,wp,vp((nt---r cvrank.LT.wp,vp((ntisr cvrankN=pr cvrankN+,-ST nproc--) CYCLduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudd StorenR===IrocesPor to which we-wi=1,sdd=to-) CYCLduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudrnelnsddls (1 ) ) R,rnelnsddls (1+ 1 ,wp,vp((nrnelisddls ((rnelnsddls ()N=dke))rank--) CYCLduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudd StorenR===IrocesPor to which we-wi=1,r cv)fiom-) CYCLduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudrnelnr cvls (1 ) ) R,rnelnr cvls (1+ 1 ,wp,vp((nrnelir cvls ((rnelnr cvls ()N=pr cvrank--) CYCLduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudd Find allrmesh bO-nks)R)(BOare kent-and storenR==m.-) CYCLdudd To get allrmesh bO-nks)R)(BOare kent-Ic ro----) CYCLdudd i=1,-ST nsddls (:-) CYCLdudd dest_rankN=prnelisddls ((iv ,wp,vp (nd il))R,',wppsddbuffo,(iv ,wp,vp (nd ihi)R,',wppsddbuffo,(i+1)-1 ,wp,vp((nd DO j=il),ihi ,wp,vp((nd Si,nornelNeshlisddblk(:,j)r-dokub rnelNeshlisddfiomssO(j)rto-) CYCLdudd,wp,vp((nrrocesPor dest_rankNto kub rnelNeshlisddtossO(j)v ,wp,vp (nd ihc(((,vp((n,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudibuffo, R,rnelnsddls (1+ 1 ,wp,vp((nrnelpsddbuffo,(ibuffo,))R,',wppsddbuffo,(rnelnsddls () ,wp,vp((nDO j=1,nsddls ( t---tinget_to -%ssO2rroc(isddtossO(j)v .EQ.pke))rankis_s2p_p-ifaafaaa,vpp,vprnelpsddbuffo,(ibuffo,))R,',wppsddbuffo,(ibuffo,))+ 1 ,wp,vp((n CYCLCYCisdt)R,',wppsddbuffo,(ibuffo,))- 1 ,wp,vp((n CYCLCYCrnelNeshlisddfiomssO(isdt) = isddfiomssO(j) ,wp,vp((n CYCLCYCrnelNeshlisddblkReind(1:- im,isdt) = isddblkReind(1:- im,j) ,wp,vp((n CYCLCYCrnelNeshlisddblkRize(1:- im,isdt) = isddblkRize(1:- im,j) ,wp,vp((n CYCLCYCIe)&-(t r,ll---dom1is_s2p_p-ifaafaaa,vpp,vpp,vpIe)&-(t im .EQ.p2is_s2p_p-ifaafaaa,vpppppppppppppWRITE-mesg,'(2(A,2I4),A,I3)') 'pke))----EARR-BOXIIeturn8888888888888888isddblkReind(1:2,j),'r-dok-zeR',isddblkRize(1:2,j),-BOXIIeturn8888888888888888'Nto 'cke))rank_p-ifaafaaa,vpppppppppELSEIe)&-(t im .EQ.p3is_s2p_p-ifaafaaa,vpppppppppppppWRITE-mesg,'(2(A,3I4),A,I3)') 'pke))----EARR-BOXIIeturn8888888888888888isddblkReind(1:3,j),'r-dok-zeR',isddblkRize(1:3,j),-BOXIIeturn8888888888888888'Nto 'cke))rank_p-ifaafaaa,vpppppppppEhct-aafaa CLLLLLLLLLLLLd_) ernelwri,n(',wprank,,n.--Nap_field_globil_useperiodEA-BOXIIeturn888urn888888888888888888888mesg,BO-(1:Npdx) =h0 ))))pppEhct-aafaa CLLLLEhct-aafaa Cihc((( dddddd uddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudd Find allrmesh bO-nks)R)(BOare receiv3 Rand storenR==m.-) CYCLdudd To get allrmesh bO-nks)R)(BOare receiv3 RIc ro----) CYCLdudd i=1,-ST nr cvls (:-) CYCLdudd )ourc=_rankN=prnelir cvls ((iv ,wp,vp (nd il))R,',wppr cvbuffo,(iv ,wp,vp (nd ihi)R,',wppr cvbuffo,(i+1)-1 ,wp,vp((nd DO j=il),ihi ,wp,vp((nd RECVornelNeshlir cvblk(:,j)r-dokub rnelNeshlir cvfiomssO(j) ,wp,vp((nd,wp,vp((nfiomnrrocesPor )ourc=_rankNto kub rnelNeshlir cvtossO(j)v ,wp,vp (nd ihc(((,vp((n,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-) CYCLdudibuffo, R,rnelnr cvls (1+ 1 ,wp,vp((nrnelpr cvbuffo,(ibuffo,))R,',wppr cvbuffo,(rnelnr cvls () ,wp,vp((nDO j=1,nr cvls (ll suppppppppt---to -%ssO2rroc(ir cvfiomssO(j)v .EQ.pr cvrankis_s2p_p-ifaafaaa,vpp,vprnelpr cvbuffo,(ibuffo,))R,',wppr cvbuffo,(ibuffo,))+ 1 ,wp,vp((n CYCLCYCisdt)R,',wppr cvbuffo,(ibuffo,))- 1 ,wp,vp((n CYCLCYCrnelNeshlir cvtossO(isdt) = ir cvtossO(j) ,wp,vp((n CYCLCYCrnelNeshlir cvblkReind(1:- im,isdt) = ir cvblkReind(1:- im,j)r-BOXIIeturn888urn8888888888888888888888888888888888888888+ioffset(1:- im,j) ,wp,vp((n CYCLCYCrnelNeshlir cvblkR-ze(1:- im,isdt) = ir cvblkR-ze(1:- im,j) ,wp,vp((n CYCLCYCIe)&-(t r,ll---dom1is_s2p_p-ifaafaaa,vpp,vpp,vpIe)&-(t im .EQ.p2is_s2p_p-ifaafaaa,vpppppppppppppWRITE-mesg,'(2(A,2I4),A,I3)') 'pr cv----EARR-BOXIIeturn8888888888888888ir cvblkReind(1:2,j),'r-dok-zeR',ir cvblkR-ze(1:2,j),-BOXIIeturn8888888888888888'Nfiomn',r cvrankll suppppppppppppppppELSEIe)&-(t im .EQ.p3is_s2p_p-ifaafaaa,vpppppppppppppWRITE-mesg,'(2(A,3I4),A,I3)') 'pr cv----EARR-BOXIIeturn8888888888888888ir cvblkReind(1:3,j),'r-dok-zeR',ir cvblkR-ze(1:3,j),-BOXIIeturn8888888888888888'Nfiomn',r cvrankll suppppppppppppppppEhct-aafaa CLLLLLLLLLLLLd_) ernelwri,n(',wprank,,n.--Nap_field_globil_useperiodEA-BOXIIeturn888urn888888888888888888888mesg,BO-(1:Npdx) =h0 ))))pppEhct-aafaa CLLLLEhct-aafaa Cihc(((a Cihc((( dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Deaeindi,n.---B!--n1*j ==indil)ls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hiideaeind-) CYCLd_) ernel suppoisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'VerletgdeaeindVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)sdd=)ourc==sRlels ()ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'VerletgdeaeindVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)sdd=destinax)du sRlels ()ISi) TOSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'VerletgdeaeindVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)sdd=bO-nk Reindels ()ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'VerletgdeaeindVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)sdd=bO-nk R-zeRls ()ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'VerletgdeaeindVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)r cv))ourc==sRlels ()IRECVFROMSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'VerletgdeaeindVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)r cv)destinax)du sRlels ()IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'VerletgdeaeindVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)r cv)bO-nk Reindels ()IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'VerletgdeaeindVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRls ()IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) i,n.--) CYCLd_) ernel suppoioffsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,II-BO-)v-BO--CYCLd_) ernelIIItim'VerletgdeaeindVLIST Nap_field_globil_useperiodEARR nn-BOXIIeturn88888'indil)r cv)bO-nk offsetRls ()IOFFSETp,vp, 88nv-BO-(1:Npdx) i,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Return dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 R3 Ru CONTINUE-) CYCLd_) essOstop(LIST Nap_field_globil_useperiodEAt0-BO-(1:Npdx) RETURN- ddddudCONTAINS- ddddudSUBROUTINE cos x)v-BO--CYCLd_) ernelcos x_to -id(einget_to -id,valid,eO-(1:Npdx) =h0 t---.NOdomvalidis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'VerletgingumentVLIST Nap_field_globil_useperiodEARR-BOXIIeturn888urn888'einget to -id notmvalidp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888:Npdx) =h0 Ehct-aafaa CLd_) ernelcos x_meshid(to -id,meshid,valid,eO-(1:Npdx) =h0 t---.NOdomvalidis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'VerletgingumentVLIST Nap_field_globil_useperiodEARR-BOXIIeturn888urn888')ourc==meshid notmvalidp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888:Npdx) =h0 Ehct-aafaa CLd_) ernelcos x_meshid(tinget_to -id,tinget_meshid,valid,eO-(1:Npdx) =h0 t---.NOdomvalidis_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'VerletgingumentVLIST Nap_field_globil_useperiodEARR-BOXIIeturn888urn888'destinax)du meshid notmvalidp,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_8888:Npdx) =h0 Ehct-aa8888LCYCLdONTINUE-) CYCLEhcdSUBROUTINE cos x)-) CYCLEhcdSUBROUTINE IST Nap_field_globil_useperiod libIST-1.2/src/Nap/IST Nap_field_globil_useperiod_store.f000644 000765 000024 00000120102 11445666062 024070 0uRein00ominReiff000000 000000 ) CYCLdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Subrout--e, : IST Nap_field_globil_useperiod_store dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), RusOR(_3 Ceo,)box+Fluid Dynamics (DTU1:Npdx) !:Npdx) !:Npdx) ! T=is-file is)pinden1*j ==Paraeiel=Particle Mesh Library (PPM).:Npdx) !:Npdx) ! PPM is)fre==software: you cau r ds (ributerit-and/ox+modify:Npdx) ! it-unliEEE ==termsen1*j ==GNU LessiEEGenerae Pm(-,c License RusOR(_3as)pm(-,-hed by*j ==Fre==Software Fo---ax)du, eij =r RusOR(_3vers)du 3en1*j ==License, ox+(at your Rt )du)-any lat=r RusOR(_3vers)du.:Npdx) !:Npdx) ! PPM is)ds (ributedEIc ====hope)R)(BOit-wi=1,be,useful,:Npdx) ! but WITHOUT ANY WARRANTY;-B!--out evec ====impliedEwarrant--n1:Npdx) ! MERCHANTABILITY ox+FITNESS FOR A PARTICULAR PURPOSEEESee === ddddud! GNU Generae Pm(-,c License fox+more details.:Npdx) !:Npdx) ! You s-ould have receiv3 Ra copyen1*j ==GNU Generae Pm(-,c License RusOR(_3and=====GNU LessiEEGenerae Pm(-,c License along-B!-- PPM. If not,:Npdx) ! see .:Npdx) !:Npdx) ! Paraeiel=Particle Mesh Library (PPM):Npdx) ! ETH Zurich RusOR(_3CH-8092 Zurich, SB!-znrlan dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ddddudSUBROUTINE IST Nap_field_globil_useperiod_store(to -id,einget_to -id,RR-BOXIIeturn88888888888888888888888888888meshid,tinget_meshid,eO-(1:Npdx) !!! T=is-rout--e,Naps-field3lBO-pbetweec =wo to -logies (which:Npdx) !!! howernrrneed)rompax)bl==meshes def--ed oc ===m),us----a=globil:Npdx) !!! Napp----(i.e. every rrocesPor rommunidi,ns-B!-- every oj =r).:Npdx) !!! Sourc==mesh muRe,be,oc === current-field3to -logy. Globil ls (s ,wp,vpd!! B!-- allrmesh bO-nks)R)(BOhave RoSnsekdd=and/ox+receiv3 Rare ddddudd!! builtEIc ==is-rout--e. Pmsh, Iop and sdd=wi=1,use+===s3Sls (s.:Npdx) !!! ddddudd!! [WARNING]:Npdx) !!! T=is-rout--e,has)notmbeec =ested,Rreviewed,Ror ros xed.3Comments ,wp,vpd!! and documentax)du are wrong. T=is-rout--e,Night ki=1,your di, O-)v-BO--d!! Borse.:Npdx) !!! ddddudd!! [NOdE]:Npdx) !!! T=e first pinden1*j ==sd))/r cv)ls (s contains)Rhe ddddudd!! on-procesPor dBO-.:Npdx) !!! ddddudd!! [CAUTION]:Npdx) !!! Side effect: ==is-rout--e,uses)R===same=globil:Npdx) !!! sd))/r cv)buffo,s,) -io,sBand=ls (s as)Rhe ddddudd!! particle Napp----rout--es--r ason:+===s3Sbuffo,s ddddudd!! cau nselinge =>.---B!--issues). Field3and=particle:Npdx) !!! Napp---s cau j =refore nernrrornrlap, but o-e,Nu (ll supd!! be)rompletedEbefore R===oj =r Reinds.:Npdx) !o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 Npdx) ! Includes ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 #include "&-(t rf--e.h"- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Modules ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpUSE IST Nodule_dBO- ,wp,vpUSE IST Nodule_dBO-_mesh ,wp,vpUSE IST Nodule_type rf ,wp,vpUSE IST Nodule_ssOstind ,wp,vpUSE IST Nodule_ssOstop ,wp,vpUSE IST Nodule_I-BO-)v-BO--USE IST Nodule_aeind-) CYCLUSE IST Nodule_wri,n-) CYCLUSE IST Nodule_cos x_id-) CYCLUSE IST Nodule_NeshlbO-nk_io,sectll suptMPLICIT NONE dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Anguments ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINTEGER ,pINTENT(IN ) :: to -id:Npdx) !!! To -logy IDr-dokourc==:Npdx) !!! ddddudd!! CAUTION:,used RoSnsetinget ,wp,vpINTEGER ,pINTENT(IN ) :: tinget_to -id:Npdx) !!! To -logy IDr-dotinget ,wp,vpINTEGER ,pINTENT(IN ) :: meshid:Npdx) !!! Mesh IDr-dokourc= ,wp,vpINTEGER ,pINTENT(IN ) :: tinget_meshid:Npdx) !!! Mesh IDr-dotinget ,wp,vpINTEGER ,pINTENT( OUT) :: eO-(:Npdx) !!! Returns Reitus,)0 updu sRccesP dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Lndil)variables ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpINTEGER, DIMENSION(3) :: ldu ,wp,vpINTEGER, DIMENSION(&-(t im) :: op ,wp,vpINTEGER, DIMENSION(&-(t im,27) :: on ddddudINTEGER, DIMENSION(&-(t im) :: ibO-nkseind,nbO-nksize ddddudINTEGER, DIMENSION(&-(t im) :: ghosts-ze ,wp,vpINTEGER :: i,j,k,edomcke))rank,r cvrankll supINTEGER :: iRt deset,Bbuffo,,- im,nn ddddudINTEGER :: nsddls (,nsdd ddddudINTEGER :: nr cvls (ll supdHARACTER(rnelcoar) :: mesg:Npdx) REAL(rnelkind_dom(-e) :: t0 ,wp,vpLOGICAL :: lsouth,lnorth,least,lwest,lto ,lbottom ,wp,vpLOGICAL, DIMENSION(3) :: lsymm ,wp,vpLOGICAL :: valid ,wp,vpTYPE(rnelt_to -)ARR nn POINTER :: to -,einget_to - ,wp,vpTYPE(rnelt_equi_mesh)ARPOINTER :: mesh,tinget_mesh dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Exo,nils ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 :Npdx) !o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 Npdx) ! Initmk)ise dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(d_) essOstind(LIST Nap_field_globil_useperiod_storeEAt0-BO-(1:Npdx) & im R,',wp im :Npdx) !o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 Npdx) ! dos xpanguments ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIe)&-(t r,ll---domtis_s2p_p-ifaafad_) ecos x)v-BO--CYportrltis_s2p_p-isOR(_3 RusOReindi,n.-- ddddudto - =>.rnelto -(to -id)%(ll supeinget_to - =>.rnelto -(tinget_to -id)%(ll supmesh =>.to -%mesh(meshid)ll supeinget_mesh =>.tinget_to -%mesh(meshid) ,wp,vpIe)&-(tbuffo,_sdt)--domtis_s2p_p-ifaafa )))R,',wp,nl_,Iwarn---_p-ifaafad_) ernelIIItim'VerletgNap_incompVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn888'Buffo, was)notmempty. Poss)bl==lossr-dodBO-!p,vp, 88nv-BO-(1:Npdx) i,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Save Rhe Nap type-box+====ssOsequent-dills--used for ros xs!) dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(IST Nap_type-El-a(2ee=hiiNap_globil::Npdx) !o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 Npdx) ! dos xpif origin3and==inget meshes are rompax)bl==(i.e. have Rhe Npdx) ! same=nc-BO---dogrid) -isEIc ====whole romput.8domain) dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(DO i=1,- im ,wp,vpp,vpIe)mesh%Nm(i)rlEEEEeinget_mesh%Nm(i)is_s2p_p-ifaafaaa (n )))R,',wp,nl_,II-BO-)v-BO--CYCLCYCLd_) ernelIIItim'Verletgbad_meshVLIST Nap_field_globil_usep_storeEA-BOXIIeturn888urn888')ourc==ad=destinax)du meshes are incompax)bl=p,vp, 88nv-BO-(1:Npdx) =h0 ))))sOR(_3 RusOReindddddEhct-aafaa ihc((D dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary sddls (s ,wdduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 :Npdx) !o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 Npdx) ! dos xpif ==is-Napp----has)alreadymbeec do-e,and store dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ddddudt---.NOdoASSOCIATED)mesh%Napp---)is_s2p__3 iEEEE EEl-a(2ee=hii POINTfit _3 O,u(tv)R,-ST max_to -id ! FIXME _3 d_) ernelNeshl suppornelNapls (,ldu))Rt deof_3 t---portrlEEEEtis_s2p__3 )))R,',wp,nl_,I-BO-)v_3 d_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globilEARR-B!OXIIeturn888urn88'ls ()-doktore Napp---s PPM_MAP_FIELD_LISTp,vp, 88nv-BO-(1:_3 sOR(_3 Rus_3 Ehct-aafaa CLL_) OCATE-mesh%Napp---)aafaa ihc t-aafaa aafaa a:Npdx) !o(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 Npdx) ! Pre-dilculat=)shift offsets-box+periodic8ghost8imagesr-dokubs ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpop(tv)R,mesh%Nm(1))- 1 ,wp,vpop(21)R,mesh%Nm(2))- 1 ,wp,vpt---& im .-dom2is_s2p_p-ifaafaaaop(3v)R,mesh%Nm(3))- 1 ,wp,vpi,n.-- dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary sddls (s ,wdduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 EEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,to -%osm(-,-(ll supd_) ernel suppoisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=)ourc==sRlels ()ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa d_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=destinax)du sRlels ()ISi) TOSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa O,u(tv)R,- im ,wp,vpO,u(2v)R,to -%osm(-,-(ll supd_) ernel suppoisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=bO-nk Reindels ()ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa d_) ernel suppoisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=bO-nk R-zeRls ()ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa d_) ernel suppoioffsetdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=bO-nk offsetRls ()IOFFSETp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-a dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Find io,sect----mesh domains RoSnsekdt dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(nsddls (1R,0 ,wp,vpghosts-ze1R,0 ,wp,vpDO i=1,to -%osm(ls (ll suppppp dom-R,to -%ism(-,-((iv ,wp,vp (n ond(1:- im,1:27) R,0 ,wp,vpdduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdd up RoS--axa-1 ,wp,vp((ndd unless we-are at=non-periodic,=non-io,nil)bo---ary. ,wp,vp((npd Because+we-do ==is,+we-need)RoSconsiliEEperiodic8images. ,wp,vp((npd InEperiodic8systems,+====box-needs RoSnsekhift3 Rand ornrlaps ,wp,vp((npd reromputedEIc orliEEEo get R===Ieriodic8image-neighbors. ,wp,vp((npd dos xpif fac==of ==is-sRlecoincilis-B!-- a=Ieriodic8domain ,wp,vp((npd bo---ary. ,wp,vp((npdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ,wp,vpddudlsymm(1:- imv)R,.TRUE.-) CYCL,vppt----to -%bcdef(2v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(2,edom)rlEEEEtiislsymm(1v)R,.FALSE.-) CYCL,vppt----to -%bcdef(4v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(4,edom)rlEEEEtiislsymm(2v)R,.FALSE.-) CYCL,vppt----to -%bcdef(6v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(6,edom)rlEEEEtiislsymm(3v)R,.FALSE.-) CYCL,vpp ,wp,vpddudlwest )R,.FALSE.-) CYCL,vppleast )R,.FALSE.-) CYCL,vppt----to -%bcdef(1) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(1,edom)rlEEEEtiislwest R,.TRUE.-) CYCL,vpplsouth)R,.FALSE.-) CYCL,vpplnorth)R,.FALSE.-) CYCL,vppt----to -%bcdef(3) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(3,edom)rlEEEEtiislsouth)R,.TRUE.-) CYCL,vppt---& im .-dom2is_s2p_p-ifaafaaa,vpplbottomR,.FALSE.-) CYCL,vpp,vpplto )R,.FALSE.-) CYCL,vpp,vppt----to -%bcdef(5) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn888888888-to -%ssOs_bc(5,edom)rlEEEEtiislbottom)R,.TRUE.-) CYCL,vppihct-aafaa CL ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd Determ--e,nc-BO---dokhiftsBand=actuil)shift indicis-needed ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpnnd== 1-) CYCL,vppt---lwestis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(1,ndv)R,op(tv-) CYCL,vppihct-aafaa CLt---leastis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(1,ndv)R,-op(tv-) CYCL,vppihct-aafaa CLt---lsouthis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))portlwestis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))Ehct-aafaa CLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))Ehct-aafaa CLihct-aafaa CLt---lnorthis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(2,ndv)R,-op(21:Npdx) =vpp((n portlwestis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))Ehct-aafaa CL((n portleastis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))Ehct-aafaa CLihct-aafaa CLt---& im .-dom2is_s2p_p-ifaafaaa,vppportlbottomis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLportlwestis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wwwwwwwwwwwwwwwwwwwwwond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---lsouthis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =hpp((n CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLLLLLt---lnorthis_s2p_p-ifaafaaa,vppppppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =hpp((n CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =hpp((n CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLEhct-aafaa CLLLLLt---lto is_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLportlwestis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wwwwwwwwwwwwwwwwwwwwwond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---lsouthis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =vpp((n CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLLLLLt---lnorthis_s2p_p-ifaafaaa,vppppppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =vpp((n CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =vpp((n CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLEhct-aafaa CLihct-aafaa CL ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd Do+====shift----and romputermesh bO-nks ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpDO k=1,nn ddddudddudp,vpDO j=1,tinget_to -%nkubs ,wp,vpppppppppppppd_) ernelNeshlbO-nk_io,sect(to -id,einget_to -id,meshid,-BOXIIeturn8888888888888tinget_meshid,edomcj,ond(1:- im,k),ghosts-ze,nsddls (AR-BOXIIeturn8888888888888isddfiomssOdisddtossO,isddblkReind,isddblkR-ze,R-BOXIIeturn8888888888888ioffsetdBO-(,lsymmv-) CYCL,vpp((n CYCLportrltis_s2p_p-isOR(_3 RusOReindddddddddihc(((,vp((n,vpCihc(((a Cihc((( dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====indil)temporary r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,tinget_to -%nkub-,-(ll supd_) ernel suppoir cvfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv))ourc==sRlels ()IRECVFROMSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa d_) ernel suppoir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)destinax)du sRlels ()IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa O,u(tv)R,- im ,wp,vpO,u(2v)R,tinget_to -%nkub-,-(ll supd_) ernel suppoir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk Reindels ()IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa d_) ernel suppoir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRls ()IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-a dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Find io,sect----mesh domains RoSnsereceiv3 dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(nr cvls (1R,0 ,wp,vp! inop ornrrfiomto - first and _s2p ornrrtoto - Ic orliEEEo get R== ,wp,vp! same=orliE----ofrmesh bO-nks)asEIc ====sddls (. T=is-is-crutmk) ,wp,vp! box+====push and=====Iop to work rroperly !!! ddddudDO j=1,to -%nkubs ,wp,vpppppond(1:- im,1:27) R,0 ,wp,vpdduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdd up RoS--axa-1 ,wp,vp((ndd unless we-are at=non-periodic,=non-io,nil)bo---ary. ,wp,vp((npd Because+we-do ==is,+we-need)RoSconsiliEEperiodic8images. ,wp,vp((npd InEperiodic8systems,+====box-needs RoSnsekhift3 Rand ornrlaps ,wp,vp((npd reromputedEIc orliEEEo get R===Ieriodic8image-neighbors. ,wp,vp((npd dos xpif fac==of ==is-sRlecoincilis-B!-- a=Ieriodic8domain ,wp,vp((npd bo---ary. ,wp,vp((npdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ,wp,vpddudlsymm(1:- imv)R,.TRUE.-) CYCL,vppt----to -%bcdef(2v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(2,j)rlEEEEtiislsymm(1v)R,.FALSE.-) CYCL,vppt----to -%bcdef(4v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(4,j)rlEEEEtiislsymm(2v)R,.FALSE.-) CYCL,vppt----to -%bcdef(6v)lEEEE-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(6,j)rlEEEEtiislsymm(3v)R,.FALSE.-) CYCL,vpp ,wp,vpddudlwest )R,.FALSE.-) CYCL,vppleast )R,.FALSE.-) CYCL,vppt----to -%bcdef(1) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(1,j)rlEEEEtiislwest R,.TRUE.-) CYCL,vpplsouth)R,.FALSE.-) CYCL,vpplnorth)R,.FALSE.-) CYCL,vppt----to -%bcdef(3) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn88888-to -%ssOs_bc(3,j)rlEEEEtiislsouth)R,.TRUE.-) CYCL,vppt---& im .-dom2is_s2p_p-ifaafaaa,vpplbottomR,.FALSE.-) CYCL,vpp,vpplto )R,.FALSE.-) CYCL,vpp,vppt----to -%bcdef(5) .EQ.p-a(2ee=hiibcdef_periodicv)lAND.n-BOXIIeturn888888888-to -%ssOs_bc(5,j)rlEEEEtiislbottom)R,.TRUE.-) CYCL,vppihct-aafaa CL ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd Determ--e,nc-BO---dokhiftsBand=actuil)shift indicis-needed ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpnnd== 1-) CYCL,vppt---lwestis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(1,ndv)R,op(tv-) CYCL,vppihct-aafaa CLt---leastis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(1,ndv)R,-op(tv-) CYCL,vppihct-aafaa CLt---lsouthis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))portlwestis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))Ehct-aafaa CLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,op(21:Npdx) =h0 ))))Ehct-aafaa CLihct-aafaa CLt---lnorthis_s2p_p-ifaafaaa,vppnnd== nnd=+ 1 ,wp,vp((n CYCLond(2,ndv)R,-op(21:Npdx) =vpp((n portlwestis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))Ehct-aafaa CL((n portleastis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))Ehct-aafaa CLihct-aafaa CLt---& im .-dom2is_s2p_p-ifaafaaa,vppportlbottomis_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLportlwestis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wwwwwwwwwwwwwwwwwwwwwond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---lsouthis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCwp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =hpp((n CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLLLLLt---lnorthis_s2p_p-ifaafaaa,vppppppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,op(3v-))))))))))))))))))))))t---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCwp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =hpp((n CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =hpp((n CYCLCYCLCYCLond(3,ndv)R,op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLEhct-aafaa CLLLLLt---lto is_s2p_p-ifaafaaa,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLportlwestis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wwwwwwwwwwwwwwwwwwwwwond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLEhct-aafaa CLLLLLLLLLt---lsouthis_s2p_p-ifaafaaa,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =vpp((n CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,op(21:Npdx) =vpp((n CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLLLLLt---lnorthis_s2p_p-ifaafaaa,vppppppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =h0 ))))CYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLt---lwestis_s2p_p-ifaafaaa,vpp,vpp,vpp,vppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =vpp((n CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLLLLLt---leastis_s2p_p-ifaafaaa,vpp,vpp,vppppppnnd== nnd=+ 1 ,wp,vp((n CYCLCYCLCYCLCYCLond(1,ndv)R,-op(tv-) CYCL,vpp((n CYCLCYCLCYCLond(2,ndv)R,-op(21:Npdx) =vpp((n CYCLCYCLCYCLond(3,ndv)R,-op(3v-) CYCL,vpp((n CYCLLLLLEhct-aafaa CLLLLLLLLLEhct-aafaa CLLLLLEhct-aafaa CLihct-aafaa CL ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpd Do+====shift----and romputermesh bO-nks ddddudp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =II ddddudp,vpDO k=1,nn ddddudddudp,vpDO i=1,tinget_to -%nkubls (ll suppppppppppppp dom-R,tinget_to -%ism(-,-((iv ,wp,vp (n d_) ernelNeshlbO-nk_io,sect(to -id,einget_to -id,meshid,-BOXIIeturn8888888888888tinget_meshid,j,edomcond(1:- im,k),ghosts-ze,nr cvls (,R-BOXIIeturn8888888888888ir cvfiomssOdir cvtossO,ir cvblkReind,ir cvblkR-ze,R-BOXIIeturn8888888888888ioffsetdBO-(,lsymmv-) CYCL,vpp((n CYCportrltis_s2p_p-isOR(_3 RusOReindddddddddihc(((,vp((n,vpCihc((,vp((n,vpC ddddddihc((( dddddddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globilrmesh sddls (s ,wdduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 EEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nsddls ( d_) ernel suppornelNeshlisddfiomssOdldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globi_usep_storelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPM_MESH_ISi) FROMSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa O,u(tv)R,- im ,wp,vpO,u(2v)R,nsddls ( d_) ernel suppornelNeshlisddblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'sdd=bO-nk Reindels ()PPM_MESH_ISi) BLKSTARTp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa d_) ernel suppornelNeshlisddblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'sdd=bO-nk R-zeRls ()PPM_MESH_ISi) BLKSIZEp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-a dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globilrmesh r ceiv3Sls (s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(iEEEE EEl-a(2ee=hii POINTfit ddddudO,u(tv)R,nr cvls (ll supd_) ernel suppornelNeshlir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'destinax)du r cv))Rlels ()PPM_MESH_IRECVTOSUBp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa O,u(tv)R,- im ,wp,vpO,u(2v)R,nr cvls (ll supd_) ernel suppornelNeshlir cvblkReind,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk Reindels ()PPM_MESH_IRECVBLKSTARTp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa d_) ernel suppornelNeshlir cvblkR-ze,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk R-zeRls ()PPM_MESH_IRECVBLKSIZEp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-a dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Aeindi,n.---B!--box+====globilrsd))/r cv)ls (s dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(O,u(tv)R,-ST nprocaafaa d_) ernel suppornelisddls (Aldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'globilrsd)) rankRls ()PPM_ISi) LISTp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa d_) ernel suppornelir cvls (,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'globilrr cv)rankRls ()PPM_IRECVLISTp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa O,u(tv)R,-ST nproc=+ 1 ,wp,vpd_) ernel suppornelpsddbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'globilrsdd=buffo, -io,)PPM_PSi) BUFFERp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-aafaa d_) ernel suppornelpr cvbuffo,,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nl_,I-BO-)v-BO---nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEA-BOXIIeturn88888'globilrr cv)buffo, -io,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx) sOR(_3 Rus Ehct-a dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 Reset R===nc-BO---dobuffo, entries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIST buffo,_sdt)R,0 dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrprocesPors; First is)R===procesPor itself dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(ke))rankNpdx) )R,',wprankN- 1 ,wp,vpr cvrankNpdx) )R,',wprankN+ 1 ,wp,vprnelpsddbuffo,(tv)R,1 ,wp,vprnelpr cvbuffo,(tv)R,1 ,wp,vprnelnsddls (1 )R,0 ,wp,vprnelnr cvls (1 )R,0 ,wp,vprnelnsddbuffo, )R,0sOR(_3lBO-plengthEIc buffo, ,wp,vprnelnr cvbuffo, )R,0sOR(_3lBO-plengthEIc buffo, ,wp,vpeset R,0 ,wp,vpibuffo, ) R,0 ,wp,vpDO i=1,-ST nprocaafaa duddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN ifneeded tbuildSandO2)ore O I -BO-s ifneededNO2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdcfield0pddudd We=now,use+symmetry. Only sdcfield0pddudd We=now,use+symmetry. Only sdcfield0pddudd We=now,use+symmetry. Only sdcfield0pdduddntry. Only sdcfiah R,aeddntry. .GE.I -BO-s i)dcfield0pdduddntry. O-)v-BO---nnnnd_) eR,0 ,wp,vprn=0 ,wp,vprn-ly sdcfiah R,ae ,wp,vpr.LT.dcfiah etu ,wp,vprn=0 ,wp,vprn+)v-BO---nnnfneededNO2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdcfield0pddudSt ,wp,vpd )R,',wprdSanmmun(npdmment,ldu)tofneededNO2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdcfield0pd cvbuffo, )R,0sORfneeded tbu cvbuffo, )Rnly sdcfiah etg-BO-nVLIST( cvbuffo, ))dduddntry. nfneededNO2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdcfield0pddudSt ,wp,vpd )R,',wprdSanmmun(npdmmenttbuil-nVLfneededNO2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdcfield0pd cvbuIc buffo, ,wp,fneeded tbu cvbuIc buffo,nly sdcfiah etg-BIc buffo( cvbuIc buffo)n=0 ,wp,vprnfneededNO2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdcfield0pddudIINT!=s3Sls (s.:Npdx) !!! ((npe1R,mesh%Napp-,be,o.dcfield0pddudT bo--=s3Sls (s.:Npdx) !!! ((npe1R,m-B!rE.-)dcfield0pddude O I -BOffo, ):dcfield0pdduddddO,u(_,vprn=0etg-BO-nVLIST(domcond(1:- duddddilv)buffo,dbuffo, )Rdomcond(1:- duddddihi)buffo,dbuffo, )Rd+1)iEEperiodic8duddddeded ilv,ihiEperiodic8duddddudSfo,Itim'Verletg-BO-nV(:-s ip,vpop tim'Verletg-BO-nVLIST(s itofneededNO2sdcfiah ev)buffo,s,,u(_,vprndSapop tim'Verletg-BOVLIST(s omcond(1:- duddddINT!3 RusOR(_3 2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdcfield0pdd =IIN bu cvbuffo, )Rnly sdcfiah etg-dbuffo, )Rdo, )))buffo,dbuffo, )R cvbuffo, )) sdcfiah eded =l_,I-BO-)v-BO----------R,ae8888tinget_mIST2ev)b(tg-BOVLIST(s ofaa ddntry. nd(2,ndv)R,-op(21:Npdx)etg-dbuffo, )Rdo, )))buffo,dbuffo, )Rdo, )))CLond(3,ndv)R,-op(3viors; Fffo,dbuffo, )Rdo, )))-Lond(3,ndv)R,-op(3vtim'Verletg-BO-nVLIST(iorsget_to - ,= tg-BO-nVLIST(s nd(3,ndv)R,-op(3vtim'Verletg-BOO-nVLIST88888888iorsge= tg-BOO-nVLIST88888888s nd(3,ndv)R,-op(3vtim'Verletg-BOO-nVize88888888iorsgee= tg-BOO-nVize88888888s nd(3,ndv)R,-op(3v-id)%(ll supeinget1nd(2,ndv)R,-op(21:Npdx) =vp-id)%(llYCL,a (n CYCLportlwestis_s2ppppppppppppWRIINT!3 g,'(2(A,2I4),A,I3)') ' ddntO k= O,u(tv)R,- im ,wp,vvvvvvvvvvvvtg-BOO-nVLIST888%ssO,'ip,vpdSan',tg-BOO-nVize888%ssO,(tv)R,- im ,wp,vvvvvvvvvvvv'ndSa' ::portlwestis_s2ppppppppELSE-id)%(llYCL,a 3n CYCLportlwestis_s2ppppppppppppWRIINT!3 g,'(2(A,3I4),A,I3)') ' ddntO k= O,u(tv)R,- im ,wp,vvvvvvvvvvvvtg-BOO-nVLIST8883ssO,'ip,vpdSan',tg-BOO-nVize8883ssO,(tv)R,- im ,wp,vvvvvvvvvvvv'ndSa' ::portlwestis_s2ppppppppER,-op(tv-) CYCL,vpp((n CYCERp,vp, 8.---B( )R,0pdx) =h0 ))))sOR(_3 RusOReindddddEhct-aafaa ihc((D ddddddddddddddddddddd!3 g, ifneeded =IINT!3 pppER,-op(tv-) CYCL,vpER,-op(tv-) CYC=globilrmesh NO2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdcfield0pddudIINT!=s3Sls (s.:Npdx) !!! ((npop ornrrmesh%Napp-,be,o.dcfield0pddudT bo--=s3Sls (s.:Npdx) !!! ((npop ornrrm-B!rE.-)dcfield0pddude O I -BOIc buffo:dcfield0pddudddd(2v)R,_,vprn=0etg-BIc buffo(domcond(1:- duddddilv)buffo,dhEIc buffo,domcond(1:- duddddihi)buffo,dhEIc buffo,d+1)iEEperiodic8duddddeded ilv,ihiEperiodic8dudddduds ifItim'Verletg-BO-nV(:-s ip,vpop tim'Verlets_s2p_p-isO(s nd(3,ndv)2sdcfiah p_p- ev)buffo,s(2v)R,_,vprndSapop tim'VerletBO-nVLIST(s omcond(1:- duddddINT!3 RusOR(_3 2)ore O I -BO-s ifneeded =II ,wp,vpddudd We=now,use+symmetry. Only sdcfield0pdd =IIN bu cvbuIc buffo,nly sdcfiah etg-dhEIc buffo,do, )))buffo,dhEIc buffo, cvbuIc buffo) sdcfiah eded =l_,I-BO-)v-BO----------R,ae8et_mIST2ev)b(ts_s2p_p-isO(s ofaa ,wp,vprnd(2,ndv)R,-op(21:Npdx)etg-dhEIc buffo,do, )))buffo,dhEIc buffo,do, )))CLond(3,ndv)R,-op(3viors; Fffo,dhEIc buffo,do, )))-Lond(3,ndv)R,-op(3vtim'VerletBO-nVLIST(iorsget_to - ,ee= tBO-nVLIST(s nd(3,ndv)R,-op(3vtim'VerletBO-nO-nVLIST88888888iorsge= tBO-nO-nVLIST88888888s ict-aafaa ihc((D dddddddddddddddddddddddddddddddddddddddd+(( dddd88888888s nd(3,ndv)R,-op(3vtim'Verletg-BO-nVLIST88888888iorsgee= tg-BO-nVLIST88888888s nd(3,ndv)R,-op(3v-id)%(ll supeinget1nd(2,ndv)R,-op(21:Npdx) =vp-id)%(llYCL,a (n CYCLportlwestis_s2ppppppppppppWRIINT!3 g,'(2(A,2I4),A,I3)') ' g-BOO k= O,u(tv)R,- im ,wp,vvvvvvvvvvvvtBO-nO-nVLIST888%ssO,'ip,vpdSan',tg-BO-nVLIST888%ssO,(tv)R,- im ,wp,vvvvvvvvvvvv'np_p- ' nsddls (,nsdddddddddddddddddELSE-id)%(llYCL,a 3n CYCLportlwestis_s2ppppppppppppWRIINT!3 g,'(2(A,3I4),A,I3)') ' g-BOO k= O,u(tv)R,- im ,wp,vvvvvvvvvvvvtBO-nO-nVLIST8883ssO,'ip,vpdSan',tg-BO-nVLIST8883ssO,(tv)R,- im ,wp,vvvvvvvvvvvv'np_p- ' nsddls (,nsdddddddddddddddddER,-op(tv-) CYCL,vpp((n CYCERp,vp, 8.---B( )R,0pdx) =h0 ))))sOR(_3 RusOReindddddEhct-aafaa ihc((D ddddddddddddddddddddd!3 g, ifneeded =IINT!3 pppER,-op(tv-) CYCL,vpER,-op(tv-) CYC=globi-) CYC=globist is)R===procesPor itself dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifDeaIINT!3 RusOR(O,ore OEEEE EElt ddddudO,u(tv)R,nr cvls (ll supd_) ernel suppornelNeshlir cvtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_pdeaIINTnnnnd_) ernelIIItim'Vetg-BO-nVLIST Nap_field_globi_usep_storelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aafaa d_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=destinax)du stinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aafaa d_) ernel suppoisddtossO,ldu))Rt deoosm(-,-(ll supd_) ernel suppoisddblkReind,ldu))Rt de--nnnnd_) ernelIIItim'Verletg-BO-nVLLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk Reindelsstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aafaa d_) ernel suppoisddtossO,ldu))Rt deo deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,--nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=bO-nk R-zeRlstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aafaa d_) ernel suppoisddtossO,ldu))Rt deo deoft---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,--nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globi_usep_storelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-afaa d_) ernel suppoisddtossO,ldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)destinax)dustinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aafaa d_) ernel suppoisddtossO,ldu))Rtinget_to -%nkub-,-(ll supd_) ernel suppoir cvblkReind,ldu--nnnnd_) ernelIIItim'Verletg-BO-nVLLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk Reindelsstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aafaa d_) ernel suppoisddtossO,ldu))Ru))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,--nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aafaa d_) ernel suppoisddtossO,ldu))Ru))Rt deofre O I -BO-s ifneeded =IINT!3 RusOR(_3 Finnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=bO-nk offsetstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aafaa d_) ernel suppoisddtossO,ldu))Ru))Rt deof O I -BO-s ifneeded =IINT!3 RusOR(_3 Finfo, entries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpturntries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-BO- CONTINUEernelIIItim'e O top(R(_3 Rus Ehct-aafaa :,:)nd_) ernet0 RusOR(_3 FinRETURNntries ,CONTAINSntries ,nelROUTINE cytbux)du meshesERp,vp, 8cytbur cvfio(88888ir cvfiomvalR-BOifneeded =IINME _3 valR-n CYCLportlwestis_s2psdd=bO-nk offsetstinax)du meshesshesERp,vp, 88nv-BO-(1:Npdx888umentpdx) =h0 ))))sOR(_3 RusOReindddddEhct-aafaa ihc((D ddd'88888i )))R,not valR-d =IINT!3 RusOR(_3 Reset RRRRR===nc8888(_3 Reset RER,-op(tv-) CYCLERp,vp, 8cytbur-ze,R-( cvfiomssOdir valR-BOifneeded =IINME _3 valR-n CYCLportlwestis_s2psdd=bO-nk offsetstinax)du meshesshesERp,vp, 88nv-BO-(1:Npdx888umentpdx) =h0 ))))sOR(_3 Rt-aafaa O,u(tct-aafaa ihc((D ddd'fll ssOdir,not valR-d =IINT!3 RusOR(_3 Reset RRRRR===nc8888(_3 Reset RER,-op(tv-) CYCLERp,vp, 8cytbur-ze,R-( 8888ir cvfiom cvblkR-ze,R-BvalR-BOifneeded =IINME _3 valR-n CYCLportlwestis_s2psdd=bO-nk offsetstinax)du meshesshesERp,vp, 88nv-BO-(1:Npdx888umentpdx) =h0 ))))sOR(_3 RusOReindddddEhct-aafaa ihc((D ddd't_to -%nkub-ssOdir,not valR-d =IINT!3 RusOR(_3 Reset RRRRR===nc8888(_3 Reset RER,-op(8888sshesEONTINUEernelIIER,,nelROUTINE cytbuxernelIIER,,nelROUTINE (_3 Rus Ehct-aafaa :,:)nd_) er lib(_3-1.2/src/Rus/(_3 Rus Ehct-aa_) erd.f000644 000765 000024 00000033120 11445666062 022021 0ull00omlllff000000 000000 rnelIIwp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,Subroutfne : (_3 Rus Ehct-aa_) erdtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wpCopyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee O Iu(tvFluir,Dynamics (DTUR(_3 Res!(_3 Res!(_3 Res!) R,0 fileNpdxpll sore OEEParaIIelEParticleNMs (sLibe=hii(PPM).(_3 Res!(_3 Res!)PPMNpdxfrel software: you car cvd-s ribe=noi,mesh/(tvmodify(_3 Res!)i,mun((npdOEE-s issore OEEGNU Less(npGeneraI Phid,csLicense INT!3 ,wpadxphid,jhed bye OEEFrel Software FE.-) nkub, ei OEr INT!3 ,wpverskub-3sore OEELicense, (tv(at your ielkub)mesy latEr INT!3 ,wpverskub.(_3 Res!(_3 Res!)PPMNpdxd-s ribe=ndppond(1:hope) !!! i,mmmentbeecauful,(_3 Res!)be= WITHOUT ANY WARRANTY;ed =out eveond(1:implindpwarrantO,or(_3 Res!)MERCHANTABILITY (tvFITNESS FOR A PEtiICULAR PURPOSOXISeeroperly !!! dGNU GeneraI Phid,csLicense f(tvmore details.(_3 Res!(_3 Res!)You s=ould havnpop ornrrme copysore OEEGNU GeneraI Phid,csLicenseINT!3 ,wparOOn)ytGNU Less(npGeneraI Phid,csLicense alonged =IPPM. If,not,(_3 Res!)seer.(_3 Res!(_3 Res!)ParaIIelEParticleNMs (sLibe=hii(PPM)(_3 Res!)ETH ZurichINT!3 ,wpCH-8092 Zurich, Sd zncilndtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IItries ,nelROUTINE (_3 Rus Ehct-aa_) erd8888888888888ir cvfiom,,,,,,,,,,,,ct-aafaa ihc((D ddddddddddddddddddddddd-ze,R-BddblkR-ze,R-BOusOR(_3 Res!!!) R,0 routfneRus0 fi )n_,nnbetweeondwo ))log:,:)n_,nndi!!)(nmmun(howed = rerd W nkbll ssOdedxdeffnd on)n_,nndi!!)be,o)ecaO k=1EEl-a(2eeappO k=(i.e. evehiimetry. Only sdcfi!!)d muniT!3 ded =Ievehiio OEr)XISll ssOd munbely sdcfi!!)oond(1:curr1R,mfi ) ))logy. Gl-a(2et ddded =ly sdcfi!!)=s3Sls (s.:Npdx) !!! havnpfac==of deoesh/(tly sdcfi!!)op ornrrmere builtppond(,0 routfn. Phsh, buillndtries ,w!!of deommentrnrld(1sfit ddd.tries ,w!!tries ,w!!o[WARNING](_3 Res!!!) R,0 routfneassumex) !!! (_3 Rus Eini,mmadxcaIIed bef er ries ,w!!tries ,w!!o[WARNING](_3 Res!!!) R,0 routfnehadxnot beeond_toeom,revieweom,(tvcytburd.pComment:)n_,nndi!!)arOOdocument%nkub-ere wrong.) R,0 routfneRight kmentyour T!3 (tly sdcfi!!)worse.tries ,w!!tries ,w!!o[ E](_3 Res!!!) Re ,wp,vppll sore OEEcaafaa d_) ernputet ,wp,vhely sdcfi!!)oo-ev)buffo,s,_,n.tries ,w!!tries ,w!!o[CAUTION](_3 Res!!!)Side effect:nd(,0 routfntrnrdx) dddudEl-a(2tries ,w!!of de/tbuildSandOs,2)ore O dp,vpn) ernpap,vhely sdcfi!!)particleNeappO k=routfnsae ,ason:ld(1sfidSandOsly sdcfi!!)dar ==oldbl =>RusOR(O,issues)XIFi ),vpnparticlely sdcfi!!)eappO ks)dar OEref er= d =oincili,)be= oneRu-)v-BO---i!!)==od Wleted bef erx) o OErll d.tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,wge-nclud,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop#includ, "%(ll ffn.h"ntries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,Modulnsatries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,USE (_3 Roduln_,_,nINT!3 ,USE (_3 Roduln_,_,nR-ze,INT!3 ,USE (_3 Roduln_typel fINT!3 ,USE (_3 Roduln_e O tll INT!3 ,USE (_3 Roduln_e O topINT!3 ,USE (_3 Roduln_stinax)du meUSE (_3 Roduln_aIINTnnnnd_)USE (_3 Roduln_.---Bnnnnd_)USE (_3 Roduln_cytburidnnnnd_)USE (_3 Roduln_ cvls (,R-BOXIIeturnil_usep_MPLICIT NONEtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,A88umentddudO,u(tv)R,nr cvls (ll supd_) ernel suppornelNeshlir cvtossO,ldu))Rt deofll supt---INTEGER ,-INTENT(IN ) :: )))R(_3 Res!!!) ))logy IDip,vpll tries ,w!!tries ,w!!oCAUTION:trnrdpfac==oddblksupt---INTEGER ,-INTENT(IN ) :: 8888ir cvfio(_3 Res!!!) ))logy IDip,vddblksupt---INTEGER ,-INTENT(IN ) :: -ze,R-(_3 Res!!!)Ms (sIDip,vpllsupt---INTEGER ,-INTENT(IN ) :: 8888ir-ze,R-(_3 Res!!!)Ms (sIDip,vddblksupt---INTEGER ,-INTENT( OUT) :: OusO(_3 Res!!!)vpturnltus,20 ub-,-cbufftries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,Ldu))Rvariablnsatries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,INTEGER, DIMENSION.-doooooooooooo:: ldusupt---INTEGER ooooooooo:: iBOXIIetsupt---INTEGER ooooooooo:: iieldfaafaaa ))CHARACTER(p, 8cyar) ooooooooo:: !3 g(_3 FinREAL(p, 8kind_dohidedoooooooooooo:: tifneedeLOGICAL ooooooooo:: valR-fneedeTYPE(p, 8ir cvf)m,,,,,,POINTERooo:: tcvf888888ir cvffneedeTYPE(p, 8irequir-ze,)m,POINTERooo:: -ze,BddblkR-ze,tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,Ex+====bftries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IItries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,wge-niddudiseINT!3 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,Itim'e O tIST8dx) =h0 ))))sOR(_3 Ru_) erdnet0 RusOR(_3 Fin CYCLbO-nk aafatries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,wge)ytbuia88umentddudO,u(tv)R,nr cvls (ll supd_) ernel suppornelNeshlir cvtossO,ldu))Rt deofll supt---Iid)%(ll supeingetIeturn88888'indiItim'cytbux)du meshytbuildSandO2)ore O I -BO-s ifnefo, entries ,nd====>Rp, 8id==8888888)%ksupt---88888ir cvf==>Rp, 8id==888888ir cvfio)%ksupt---ls (s=>R8et_mls ((-ze,R-)supt---88888irls (s=>R8888tinget_mls ((-ze,R-)s supt---Iid)%(lprocesPors;ingetIeturn88888'indisdd=bO-nk offsetwarnO k8888'indiItim'p, 88nv-BO-(1:Npdxh0 )inc Wpdx) =h0 ))))sOR(_3 Rus:)n_ O,u(tv)R,- im ,wp'B =IIN wadxnot empty. Posskbll lossip,v,_,n!d =IINT!3 RusOR(_3 Finfo, entries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,SavnpfheNeap type,u(tv)R,-e O equ1R,mcaIIsaernrdpf(tvcytbus!)tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,x) =h0 )type,EEEtis_s2p_ph0 )El-a(2ttries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,wge)ytbuiif (tiginparOOn8888i ssOdedxere d W nkbll (i.e. havnpfheIries ,wgedddudo,_sdt)R,0grid2)ore pppond(1:wholedd We=.udlsymm)tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,)ore O Iaafaaa ))t---Iid)ssOd%Nm(i ifnee88888irls (%Nm(i n CYCLportlwestis_s2psdd=bO-nk offsetstinax)du meshesshesERp,vp, 88nv-BO-(1:Npdxbadrls (pdx) =h0 ))))sOR(_3 Ru_) erdne,,ct-aafaa ihc((D ddd'fll adeoosm(-,-(ll ssOdedxere inc W nkblld =IINT!3 RusOR(_3 Reset RRRRR===nc-BO-s ifneededER,-op(tv-) =globist is)R===procesPor itself dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifPore EEl-a(2ee=hii POINTfit dddpfac,vpd c8domain ,on,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrportrlEEEEtis_s2p_pdeaIINTnnnnd_)nnnnd_)',wp,nl_,1supt---Iid)ASSOCIATE,Itim'Verletg-BO-nVLIST n CYCLportlwestinnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globi_usep_ ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_) ernel suppornelNeshlisddblkReind,ldu))Rt dRR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'Verletg-BO-nVLIST =>Rus (%eappO k%tg-BO-nVLISTnnnnd_)nnnnd_)',wp2nl_,1supt---Iid)ASSOCIATE,Itim'Verletg-BO-nVLLIST n CYCLportlwestinnnd_) ernelIIItim'Verletg-BO-nVLLIST Nap_field_globil_usep ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_) ernel suppt---portrlEEEEtis_s2p_p-ifaafaaa RR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'Verletg-BO-nVLLIST =>Rus (%eappO k%tg-BO-nVLLISTnnnnd_)nnnnd_)Iid)ASSOCIATE,Itim'Verletg-BO-nVLize n CYCLportlwestinnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_) ernel suppt--eded =IINT!3 RusOR(_3 Aeindi,RR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'Verletg-BO-nVLre O=>Rus (%eappO k%tg-BO-nVLre nnnnd_)nnnnd_)st is)R===procesPor itself dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifPore EEl-a(2ee=hii POI_,I-BO-)dpfac,vpd c8domain ,on,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrportrlEEEEtis_s2p_pdeaIINTnnnnd_)nnnnd_)',wp,nl_,1supt---Iid)ASSOCIATE,Itim'VerletBO-nVLIST n CYCLportlwestinnnd_) ernelIIItim'VerletBO-nVLIST Nap_field_globil_usep ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_) erneluppornelNeshlir cvblkReind,ldu))Rt dRR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'VerletBO-nVLISTO=>Rus (%eappO k%tBO-nVLISTnnnnd_)nnnnd_)',wp2nl_,1supt---Iid)ASSOCIATE,Itim'Verletg-BO-nVLLIST n CYCLportlwestinnnd_) ernelIIItim'VerletBO-n-nVLLIST Nap_field_globil_usep ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_) ernell supt---portrlEEEEtis_s2p_p-ifaafaaa RR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'VerletBO-n-nVLLIST =>Rus (%eappO k%tBO-n-nVLLISTnnnnd_)nnnnd_)Iid)ASSOCIATE,Itim'Verletg-BO-nVLIST n CYCLportlwestinnnd_) ernelIIItim'VerletBO-n-nVLIST Nap_field_globil_usep ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_) ernel-s ifneeded =IINT!3 RusOR(_3 Aeindi,RR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'VerletBO-n-nVLre O=>Rus (%eappO k%tBO-n-nVLre ist is)R===procesPor itself dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifPore EEl-a(2ee=hicaafaa d_) ernpfac,vpd c8domain ,on,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrportrlEEEEtis_s2p_pdeaIINTnnnnd_)',wp,nl_,1supt---Iid)ASSOCIATE,Itim'BO-nVLIST n CYCLportlwestinnnd_) ernelIIItim'BO-nVLIST Nap_field_globil_usep ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_)rtrlEEEEtis_s2p_p-ifaafaaa )))R,',wRR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'BO-nVLISTO=>Rus (%eappO k%tg-BOBO-)v-BO---supt---Iid)ASSOCIATE,Itim'BIc buffo)n CYCLportlwestinnnd_) ernelIIItim'BO-nVLIST Nap_field_globil_usep ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_)ro,,ldu))Rt deofll supt---portrlERR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'BIc buffo,=>Rus (%eappO k%tBO-nBO-)v-BO---supt---Iid)ASSOCIATE,Itim'dbuffo, ))n CYCLportlwestinnnd_) ernelIIItim'g-BO-nVLIST Nap_field_globil_usep ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_)--portrlEEEEtis_s2p_p-ifaafaaa )))R,'RR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'g-BO-nVLIST,=>Rus (%eappO k%g-BO-nVLISTv-BO---supt---Iid)ASSOCIATE,Itim'dhEIc buffo)n CYCLportlwestinnnd_) ernelIIItim'g-BO-nVLIST Nap_field_globil_usep ep_storeEAR-BOXIIeturn88888'indil)lrr cv)buffo, -io,)PPM_PRECVBUFFesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Ehct-aa_) erdne,, ) ernel suppornelNes2v)R,nsddls ( d_)-s ifneeded =IINT!3 RusOR(_3 Reset RRR===nc-BO-s ifneedeER,-op(tv-) =gl -op(tv-) tim'g nprocaafaa=>Rus (%eappO k%g nprocaafav-BO---supt---tim'uffo, )R=Rus (%eappO k%l_,I-BO-)v-BO---tim'uIc buffo,=Rus (%eappO k%lBO-nBO-)v-BO---supt---wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIST buffo,_sdt)R,0 dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrprocesPors; Fir-BO---supt---wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIST buffLre s)R,0 dddd)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallr R,0 ,wp,vpiv-BO---tim'uIc b R,0 ,wp,vpivntries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpturn-supt---wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIN-BO- CONTINUEernelIIItim'e O top(R(_3 Rus Ehct-aa_) erdnet0 RusOR(_3 FinRETURNntries ,CONTAINSntries ,nelROUTINE cytbux)du meshesERp,vp, 8cytbur cvfio(88888ir cvfiomvalR-BOifneeded =IINME _3 valR-n CYCLportlwestis_s2psdd=bO-nk offsetstinax)du meshesshesERp,vp, 88nv-BO-(1:Npdx888umentpdx) =h0 ))))sOR(_3 Ru_) erdne,,ct-aafaa ihc((D ddd'88888i )))R,not valR-d =IINT!3 RusOR(_3 Reset RRRRR===nc8888(_3 Reset RER,-op(tv-) CYCLERp,vp, 8cytbur-ze,R-( cvfiomssOdir valR-BOifneeded =IINME _3 valR-n CYCLportlwestis_s2psdd=bO-nk offsetstinax)du meshesshesERp,vp, 88nv-BO-(1:Npdx888umentpdx) =h0 ))))sOR(_3 Ru_) erdne,,ct-aafaa ihc((D ddd'fll ssOdir,not valR-d =IINT!3 RusOR(_3 Reset RRRRR===nc8888(_3 Reset RER,-op(tv-) CYCLERp,vp, 8cytbur-ze,R-( 8888ir cvfiom cvblkR-ze,R-BvalR-BOifneeded =IINME _3 valR-n CYCLportlwestis_s2psdd=bO-nk offsetstinax)du meshesshesERp,vp, 88nv-BO-(1:Npdx888umentpdx) =h0 ))))sOR(_3 Ru_) erdne,,ct-aafaa ihc((D ddd't_to -%nkub-ssOdir,not valR-d =IINT!3 RusOR(_3 Reset RRRRR===nc8888(_3 Reset RER,-op(8888sshesEONTINUEernelIIER,,nelROUTINE cytbuxernelIIER,,nelROUTINE (_3 Rus Ehct-aa_) erdtlib(_3-1.2/src/Rus/(_3 Rus Eini,.f000644 000765 000024 00000112254 11445666062 020311 0ull00omlllff000000 000000 rnelIIwp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,Subroutfne : (_3 Rus Eini,tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wpCopyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee O Iu(tvFluir,Dynamics (DTUR(_3 Res!(_3 Res!(_3 Res!) R,0 fileNpdxpll sore OEEParaIIelEParticleNMs (sLibe=hii(PPM).(_3 Res!(_3 Res!)PPMNpdxfrel software: you car cvd-s ribe=noi,mesh/(tvmodify(_3 Res!)i,mun((npdOEE-s issore OEEGNU Less(npGeneraI Phid,csLicense INT!3 ,wpadxphid,jhed bye OEEFrel Software FE.-) nkub, ei OEr INT!3 ,wpverskub-3sore OEELicense, (tv(at your ielkub)mesy latEr INT!3 ,wpverskub.(_3 Res!(_3 Res!)PPMNpdxd-s ribe=ndppond(1:hope) !!! i,mmmentbeecauful,(_3 Res!)be= WITHOUT ANY WARRANTY;ed =out eveond(1:implindpwarrantO,or(_3 Res!)MERCHANTABILITY (tvFITNESS FOR A PEtiICULAR PURPOSOXISeeroperly !!! dGNU GeneraI Phid,csLicense f(tvmore details.(_3 Res!(ly !!! dYou s=ould havnpop ornrrme copysore OEEGNU GeneraI Phid,csLicenseINT!3 ,wparOOn)ytGNU Less(npGeneraI Phid,csLicense alonged =IPPM. If,not,(_3 Res!)seer.(_3 Res!(_3 Res!)ParaIIelEParticleNMs (sLibe=hii(PPM)(_3 Res!)ETH ZurichINT!3 ,wpCH-8092 Zurich, Sd zncilndtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IItries ,nelROUTINE (_3 Rus Eini,8888888888888ir cvfiomssOdir ,ct-aafaa ihc((D dddddddddddddddddddddddblkR-ze,R-BOusOR(_3 Res!!!) R,0 routfneRunbexcaIIed bef erc,vpd _3 Rus Ehct-aa_) erdt_3 Res!!!)routfn.t_3 Res!!!t_3 Res!!!)[WARNING](_3 Res!!!) R,0 routfnehadxnot beeond_toeom,revieweom,(tvcytburd.pComment:)n_,nndi!!)arOOdocument%nkub-ere wrong.) R,0 routfneRight kmentyour T!3 (tly sdcfi!!)worse.tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wpe-nclud,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop#includ, "%(ll ffn.h"ntries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,Modulnsatries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,USE (_3 Roduln_,_,nINT!3 ,USE (_3 Roduln_,_,nR-ze,INT!3 ,USE (_3 Roduln_typel fINT!3 ,USE (_3 Roduln_e O tll INT!3 ,USE (_3 Roduln_e O topINT!3 ,USE (_3 Roduln_stinax)du meUSE (_3 Roduln_aIINTnnnnd_)USE (_3 Roduln_.---Bnnnnd_)USE (_3 Roduln_cytburidnnnnd_)USE (_3 Roduln_ cvls (,R-BOXIIeturnil_usep_MPLICIT NONEtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,A88umentdT!3 ,tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,INTEGER ,-INTENT(IN ) :: )))R(_3 Res!!!) ))logy IDip,vpll tries ,w!!tries ,w!!oCAUTION:trnrdpfac==oddblksupt---INTEGER ,-INTENT(IN ) :: 8888ir cvfio(_3 Res!!!) ))logy IDip,vddblksupt---INTEGER ,-INTENT(IN ) :: -ze,R-(_3 Res!!!)Ms (sIDip,vpllsupt---INTEGER ,-INTENT(IN ) :: 8888ir-ze,R-(_3 Res!!!)Ms (sIDip,vddblksupt---INTEGER ,-INTENT( OUT) :: OusO(_3 Res!!!)vpturnsltus,20 upub-,-cbufftries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,Ldu))Rvariablnsatries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,INTEGER, DIMENSION.-doooooooooooo:: ldusupt---INTEGER, DIMENSION.%(llim)oooooo:: opINT!3 ,INTEGER, DIMENSION.%(llim,27)ooo:: ondtries ,INTEGER, DIMENSION.%(llim)oooooo:: i.:NpdxLIST n.:Npdxre nnnnd_)INTEGER, DIMENSION.%(llim)oooooo:: ghostxre nnnnd_)INTEGER ooooooooo:: iBOXkXIIet :: nsddls (,nsddINTEGER ooooooooo:: iieldiors,do, ) Iaaf,nndtries ,INTEGER ooooooooo:: l_,I-BO-)=l_,I-tries ,INTEGER ooooooooo:: l_,I-BO-)v-BO---nHARACTER(p, 8cyar) ooooooooo:: !3 g(_3 FinREAL(p, 8kind_dohidedoooooooooooo:: tifneedeLOGICAL ooooooooo:: lpth,lnorth,leaST NweST N cv,lbottetsupt---LOGICAL, DIMENSION.-doooooooooooo:: l:)n_fneedeLOGICAL ooooooooo:: valR-fneedeTYPE(p, 8ir cvf)m,,,,,,POINTERooo:: tcvf888888ir cvffneedeTYPE(p, 8irequir-ze,)m,POINTERooo:: -ze,BddblkR-ze,tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,Ex+====bftries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IItries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wpe-niddudiseINT!3 ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,Itim'e O tIST8dx) =h0 ))))sORini,net0 RusOR(_3 Fin CYCLbO-nk aafatries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,wge)ytbuia88umentddudO,u(tv)R,nr cvls (ll supd_) ernel suppornelNeshlir cvtossO,ldu))Rt deofll supt---Iid)%(ll supeingetIeturn88888'is ,Itim'cytbux)du meshytbuildSandO2)ore O I -BO-s ifnefo, entries ,nd====>Rp, 8id==8888888)%ksupt---88888ir cvf==>Rp, 8id==888888ir cvfio)%ksupt---ls (s=>R8et_mls ((-ze,R-)supt---88888irls (s=>R8888tinget_mls ((-ze,R-)s supt---Iid)%(lprocesPors;ingetIeturn88888'indisdd=bO-nk offsetwarnO k8888'indiItim'p, 88nv-BO-(1:Npdxh0 )inc Wpdx) =h0 ))))sORini,ne,u(tv)R,- im ,wp'B =IIN wadxnot empty. Posskbll lossip,v,_,n!d =IINT!3 RusOR(_3 Finfo, entries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,SavnpfheNeap type,u(tv)R,-e O equ1R,mcaIIsaernrdpf(tvcytbus!)tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,x) =h0 )type,EEEtis_s2p_ph0 )El-a(2ttries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,wge)ytbuiif (tiginparOOn8888i ssOdedxere d W nkbll (i.e. havnpfheIries ,wgedddudo,_sdt)R,0grid2)ore pppond(1:wholedd We=.udlsymm)tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,)ore O Iaafaaa ))t---Iid)ssOd%Nm(i ifnee88888irls (%Nm(i n CYCLportlwestis_s2psdd=bO-nk offsetstinax)du meshesshesERp,vp, 88nv-BO-(1:Npdxbadrls (pdx) =h0 ))))sORini,ne,u(tv)R,- im ,wpim ,wp'fll adeoosm(-,-(ll ssOdedxere inc W nkblld =IINT!3 RusOR(_3 Reset RRRRR===nc-BO-s ifneededER,-op(tv-) =globi(tv-) (_3 Reset RRRtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,wgePre-caIculatE e,Rft O I -spf(tv :,:)nic ghost imag s)R,0e O tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIries ,opp,nl_,ls (%Nm(1))-Lond(3,nopp2nl_,ls (%Nm(2))-Lond(3,nIid)%lYCL,nget(n CYCLportlwestisopp3nl_,ls (%Nm(3))-Lond(3,nfo, entries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,AIINT!3 RusOR(O,u(tv)R,-ldu))Rtempoe=hiiNTfit dddtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,portrlEEEEtis_s2p_paIINT)))ksupt---',wp,nl_,get_mnshid,j)v-BO---nernelIIItim'Vetg-BO-nVLIST Nap_field_globi_usep_storelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',RRRR===nc-BO-s ifnennnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=destinax)du o,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rt deoosm(-,-(ll supd_) ernel suppoisddblkReind,ldu))Rt deRRRR===nc-BO-s ifnennnnd_) erne',wp,nl_,Iaafaaa ))',wp2nl_,get_mnshid,j)v-BO---nernelIIItim'Vetg-BO-nVLLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk Reindelso,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rt deo deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,RRRR===nc-BO-s ifnennnnd_) ernelIIItim'Verletg-BO-n-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rt deo deoft---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,RRRR===nc-BO-s ifnennnnd_) ernelIIItim'Verletg-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=bO-nk offseto,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rt deo deof O I -BO-s ifneeded =IINT!3 RusOR(_3 FinRRRR===nc-BO-s ifnennnnd_tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,IINT!OXIIeturnO k=ls (sdlsymmspfac==of d,tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,uffo, )R=Rifneedeghostxre R=Rifneede)ore O get_mnshid,j)v-BO---dil)sdlsl_,get_mishid,j),domcond(1:- ond888888881:27)o=Rifneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,w Wudoowtrnrl:)n_etry. OnliiNTfi uppfac-) naiEEperiodic8,w unlessiwexere atdoon- :,:)nic,doon-OXIIen))RbE.-) ry.Eperiodic8,w Becarnrlwexdond(,0,lwex rerfacconsi((np :,:)nic imag s.Eperiodic8,w Inp :,:)nic system0,l)R,-boxx respfac==of,Rftrrmesh%oincilisEperiodic8,w c8domain ,ponor((npd bo--,vpd :,:)nic imag x ighbors.Eperiodic8,w )ytbuiif fall ore Ois supdcoreci((ded =Iad :,:)nic dlsymmEperiodic8,w bE.-) ry.Eperiodic8,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,l:)n_8888888)o=R.TRUE.Eperiodic8,_stoe8et_mbcdefp2nl-BOXIEtis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(2XIIet)R-BOXIIe),l:)n_88)o=R.FALSE.Eperiodic8,_stoe8et_mbcdefp4nl-BOXIEtis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(4XIIet)R-BOXIIe),l:)n_82)o=R.FALSE.Eperiodic8,_stoe8et_mbcdefp6nl-BOXIEtis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(6XIIet)R-BOXIIe),l:)n_83)o=R.FALSE.Eperiodic8,fneedees ,lweST o=R.FALSE.Eperiodic8,leaST o=R.FALSE.Eperiodic8,_stoe8et_mbcdefp1ofaa Etis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(1XIIet)R-BOXIIe),lweST =R.TRUE.Eperiodic8,lptho=R.FALSE.Eperiodic8,lnortho=R.FALSE.Eperiodic8,_stoe8et_mbcdefp3ofaa Etis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(3XIIet)R-BOXIIe),l:tho=R.TRUE.Eperiodic8,_sto%lYCL,nget(n CYCLportlwestisic8,lbottet=R.FALSE.Eperiodic8,ic8,l8et o=R.FALSE.Eperiodic8,ic8,_stoe8et_mbcdefp5ofaa Etis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNnelNe8et_mISTspbc(5XIIet)R-BOXIIe),lbotteto=R.TRUE.Eperiodic8,ER,-op(tv-) CYCLfneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,w De-s ifneo,_sdt)R,0f,Rftdp,vpnactu))Rt,RftINTic(de reedfneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,nvpn=Lond(3,ndv)R_stolweSTn CYCLportlwestisic8,nvpn=LnvpnCLond(3,ndv)R,-opond88,nnd)o=Ropp,nEperiodic8,ER,-op(tv-) CYCL_stoleaSTn CYCLportlwestisic8,nvpn=LnvpnCLond(3,ndv)R,-opond88,nnd)o=R-opp,nEperiodic8,ER,-op(tv-) CYCL_stol:thn CYCLportlwestisic8,nvpn=LnvpnCLond(3,ndv)R,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR_stolweSTn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-opond82,nnd)o=Ropp2R(_3 Reset RRRRRER,-op(tv-) CYCL,vpp_stoleaSTn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-opond82,nnd)o=Ropp2R(_3 Reset RRRRRER,-op(tv-) CYCLER,-op(tv-) CYCL_stolnorthn CYCLportlwestisic8,nvpn=LnvpnCLond(3,ndv)R,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR_stolweSTn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-opond82,nnd)o=R-opp2R(_3 Reset RRRRRER,-op(tv-) CYCL,vpp_stoleaSTn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-opond82,nnd)o=R-opp2R(_3 Reset RRRRRER,-op(tv-) CYCLER,-op(tv-) CYCL_sto%lYCL,nget(n CYCLportlwestisic8,_stolbottetn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op_stolweSTn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-opER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-opER,-op(tv-) CYCL,vpp((n _stol:thn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n _stolweSTn CYCLportlwestisic8,ic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n ER,-op(tv-) CYCL,vpp((n _stolnorthn CYCLportlwestisic8,,,,,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n _stolweSTn CYCLportlwestisic8,ic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n ER,-op(tv-) CYCL,vppER,-op(tv-) CYCL,vpp_stol8etn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op_stolweSTn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-opER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-opER,-op(tv-) CYCL,vpp((n _stol:thn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n _stolweSTn CYCLportlwestisic8,ic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n ER,-op(tv-) CYCL,vpp((n _stolnorthn CYCLportlwestisic8,,,,,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n _stolweSTn CYCLportlwestisic8,ic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n ER,-op(tv-) CYCL,vppER,-op(tv-) CYCLER,-op(tv-) CYCLfneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,w Dac,vpdt,RftO k=1nddd We=eSls (s.:Npdxfneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,DO k=1,nndtries ,eedees ,DO j O g888tinget_mne O tries ,,,,,,,,,,,,,ERp,vp, 8 cvls (,R-BOXIIeturn8888888888888ir cvfiomssOdir ct-aafaa ihc((D dddddddddblkR-ze,R-BOIet j,ond88888888k),ghostxre ,l_,I-BO-)=,ct-aafaa ihc((D dddddddtg-BO-nVLIST -BO-nVLIST tg-BO-nVLLIST -BO-n-nVLIST ,ct-aafaa ihc((D dddddddtnVLIST RusO,l:)n_nEperiodic8,dv)R,-op_stoildSandO2)ore O I -BO-s ifneeeeeeeee=globi(tv-) eeee=globi(tv-) =globist is)R===procesPor itself dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifAIINT!3 RusOR(O,u(tv)R,-ldu))Rtempoe=hiiop ornr t dddtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,portrlEEEEtis_s2p_paIINT)))ksupt---',wp,nl_,g888tinget_mne Od,j)v-BO---nernelIIItim'Vet_,I--nVLIST Nap_field_globi_usep_storelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Ra d_fll supt---pors ifEEEtis_s2p_p-ifaafaaa )))R,',RRRR===nc-BO-s ifnennnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usepstorelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Ra d_osm(-,-(ll supd_) ernuppornelNeshlir cvblkReind,ldu))Rt d===nc-BO-s ifnennnnd_) erne',wp,nl_,Iaafaaa ))',wp2nl_,g888tinget_mne Od,j)v-BO---nernelIIItim'Vet_,I--nVLLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk Reindelso,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rtbuilddeofll supt---l supt---portrlEEEEtis_s2p_p-ifaafaaa ===nc-BO-s ifnennnnd_) ernelIIItim'Verletg-BO-n-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rtbuilddeoft---portrl-s ifneeded =IINT!3 RusOR(_3 Aeindi,===nc-BO-s ifnennnnd_tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,IINT!OXIIeturnO k=ls (sdlsymmspfac==oop ornrrtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,uIc buffo,=R0INT!3 ,wploop%oinc -nVL cvf=,wp,vp1nddturn%oinc to cvf=ponor((npd bo--,vpINT!3 ,wpdddudor((nO k=ofSls (s.:Npdx)apppond(1:_,I-BO-).) R,0 ,0 cruddudINT!3 ,wpu(tv)R,-pu (sarOOn)ytbuild workimetperly,w!!tries ,DO j O get_mne O tries ,,,,,ond888888881:27)o=Rifneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,w Wudoowtrnrl:)n_etry. OnliiNTfi uppfac-) naiEEperiodic8,w unlessiwexere atdoon- :,:)nic,doon-OXIIen))RbE.-) ry.Eperiodic8,w Becarnrlwexdond(,0,lwex rerfacconsi((np :,:)nic imag s.Eperiodic8,w Inp :,:)nic system0,l)R,-boxx respfac==of,Rftrrmesh%oincilisEperiodic8,w c8domain ,ponor((npd bo--,vpd :,:)nic imag x ighbors.Eperiodic8,w )ytbuiif fall ore Ois supdcoreci((ded =Iad :,:)nic dlsymmEperiodic8,w bE.-) ry.Eperiodic8,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,l:)n_8888888)o=R.TRUE.Eperiodic8,_stoe8et_mbcdefp2nl-BOXIEtis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(2Xj)R-BOXIIe),l:)n_88)o=R.FALSE.Eperiodic8,_stoe8et_mbcdefp4nl-BOXIEtis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(4Xj)R-BOXIIe),l:)n_82)o=R.FALSE.Eperiodic8,_stoe8et_mbcdefp6nl-BOXIEtis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(6Xj)R-BOXIIe),l:)n_83)o=R.FALSE.Eperiodic8,fneedees ,lweST o=R.FALSE.Eperiodic8,leaST o=R.FALSE.Eperiodic8,_stoe8et_mbcdefp1ofaa Etis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(1Xj)R-BOXIIe),lweST =R.TRUE.Eperiodic8,lptho=R.FALSE.Eperiodic8,lnortho=R.FALSE.Eperiodic8,_stoe8et_mbcdefp3ofaa Etis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNe8et_mISTspbc(3Xj)R-BOXIIe),l:tho=R.TRUE.Eperiodic8,_sto%lYCL,nget(n CYCLportlwestisic8,lbottet=R.FALSE.Eperiodic8,ic8,l8et o=R.FALSE.Eperiodic8,ic8,_stoe8et_mbcdefp5ofaa Etis_s2p_pbcdef_ :,:)nicnl-AND. ernel suppornelNnelNe8et_mISTspbc(5Xj)R-BOXIIe),lbotteto=R.TRUE.Eperiodic8,ER,-op(tv-) CYCLfneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,w De-s ifneo,_sdt)R,0f,Rftdp,vpnactu))Rt,RftINTic(de reedfneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,nvpn=Lond(3,ndv)R_stolweSTn CYCLportlwestisic8,nvpn=LnvpnCLond(3,ndv)R,-opond88,nnd)o=Ropp,nEperiodic8,ER,-op(tv-) CYCL_stoleaSTn CYCLportlwestisic8,nvpn=LnvpnCLond(3,ndv)R,-opond88,nnd)o=R-opp,nEperiodic8,ER,-op(tv-) CYCL_stol:thn CYCLportlwestisic8,nvpn=LnvpnCLond(3,ndv)R,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR_stolweSTn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-opond82,nnd)o=Ropp2R(_3 Reset RRRRRER,-op(tv-) CYCL,vpp_stoleaSTn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-opond82,nnd)o=Ropp2R(_3 Reset RRRRRER,-op(tv-) CYCLER,-op(tv-) CYCL_stolnorthn CYCLportlwestisic8,nvpn=LnvpnCLond(3,ndv)R,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR_stolweSTn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-opond82,nnd)o=R-opp2R(_3 Reset RRRRRER,-op(tv-) CYCL,vpp_stoleaSTn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-opond82,nnd)o=R-opp2R(_3 Reset RRRRRER,-op(tv-) CYCLER,-op(tv-) CYCL_sto%lYCL,nget(n CYCLportlwestisic8,_stolbottetn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op_stolweSTn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-opER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-opER,-op(tv-) CYCL,vpp((n _stol:thn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n _stolweSTn CYCLportlwestisic8,ic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=Ropp,nEperio(3,ndv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n ER,-op(tv-) CYCL,vpp((n _stolnorthn CYCLportlwestisic8,,,,,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-opond83,nnd)o=Ropp3nEpppppppppppppppppppppp_stolweSTn CYCLportlwestisic8,ic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=Ropp,nEperio(3,ndv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset8,dv)R,-op,-op,-opond83,nnd)o=Ropp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n ER,-op(tv-) CYCL,vppER,-op(tv-) CYCL,vpp_stol8etn CYCLportlwestisic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op_stolweSTn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(((((((((((((((((((((ond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-opER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-opER,-op(tv-) CYCL,vpp((n _stol:thn CYCLportlwestisic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n _stolweSTn CYCLportlwestisic8,ic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=Ropp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n ER,-op(tv-) CYCL,vpp((n _stolnorthn CYCLportlwestisic8,,,,,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n _stolweSTn CYCLportlwestisic8,ic8,ic8,ic8,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=Ropp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Reset RRRRR,-op,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n _stoleaSTn CYCLportlwestisic8,ic8,ic8,,,,,nvpn=LnvpnCLond(3,ndv)R,-op,-op,-op,-opond88,nnd)o=R-opp,nEperiodic8,dv)R,-op,-op,-opond82,nnd)o=R-opp2R(_3 Resec8,dv)R,-op,-op,-opond83,nnd)o=R-opp3nEperiodic8,dv)R,-op((n ER,-op(tv-) CYCL,vpp((n ER,-op(tv-) CYCL,vppER,-op(tv-) CYCLER,-op(tv-) CYCLfneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,w Dac,vpdt,RftO k=1nddd We=eSls (s.:Npdxfneedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedees ,DO k=1,nndtries ,eedees ,DO i O g888tinget_mne Od,j)v-BO---dil)))))))))sdlsl_,g888tinget_mishid,j),domcond(1:- ERp,vp, 8 cvls (,R-BOXIIeturn8888888888888ir cvfiomssOdir ct-aafaa ihc((D dddddddddblkR-ze,R-BjBOIet ond88888888k),ghostxre ,lO-nVLIST ,ct-aafaa ihc((D dddddddt_,I--nVLIST -BO-nVLIST t_,I--nVLLIST -BO-n-nVLIST ,ct-aafaa ihc((D dddddddtnVLIST RusO,l:)n_nEperiodic8,dv)R,-o_stoildSandO2)ore O I -BO-s ifneeeeeeeee=globi(tv-) eeee=glob(tv-) eeee eeeeee=globiist is)R===procesPor itself dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifAIINT!3 RusOR(O,u(tv)R,-(2ee=hii POINTfit dddtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,portrlEEEEtis_s2p_paIINT)grow'g nservpINT!3 ,',wp,nl_,l_,I-BO-)v-BO---lIIItim'Verletgus (%eappO k%tg-BO-nVLIST Nap_field_globi_usep_storelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNes2v)R,nsddls ( d_) ernel supEEEtis_s2p_p-ifaafaaa )))R,',RRRR===nc-BO-s ifnennnnd_) erneINT!3 ,',wp,nl_,Iaafaaa ))',wp2nl_,l_,I-BO-)v-BO---lIIItim'Verletgus (%eappO k%tg-BO-nVLLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk Reindelso,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNet deo deofll supt-- d_) ernel suppt---portrlEEEEtis_s2p_p-ifaafaaa ===nc-BO-s ifnennnnd_) ernelIIItim'Verletgus (%eappO k%tg-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNet deo deoft---portr d_) ernel suppt--eded =IINT!3 RusOR(_3 Aeindi,===nc-BO-s ifnennnnd_tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,AIINT!3 RusOR(O,u(tv)R,-(2ee=hii POIop ornr t dddtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,portrlEEEEtis_s2p_paIINT)grow'g nservpINT!3 ,',wp,nl_,l_,I-BO-)v-BO---nIIItim'Verletgus (%eappO k%tBO-nVLIST Nap_field_globil_usepstorelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeosm(-,-(ll a d_f ( d_) ernel-s irnelNeshlir cvblkReind,ldu))Rt d===nc-BO-s ifnennnnd_) erneINT!3 ,',wp,nl_,Iaafaaa ))',wp2nl_,l_,I-BO-)v-BO---nIIItim'Verletgus (%eappO k%tBO-n-nVLLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk Reindelso,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNetbuilddeofll supt-- d_) ernel-s ifne-portrlEEEEtis_s2p_p-ifaafaaa ===nc-BO-s ifnennnnd_) ernelIIItim'Verletgus (%eappO k%tBO-n-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNetbuilddeoft---portr d_) ernel-s ifneeded =IINT!3 RusOR(_3 Aeindi,===nc-BO-s ifnennnnd_tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,AIINT!3 RusOR(O,u(tv)R,-(2ee=hit de/tbuilt dddtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,',wp,nl_,I_3 nprNTnnnnd_)lIIItim'Verletgus (%eappO k%tg-BOLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNe(2ee=hit de dls d_)rtrlEEEEtis_s2p_p-ifaafaaa )))R,',w===nc-BO-s ifnennnnd_) ernelIIItim'Verletgus (%eappO k%tBO-nLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNe(2ee=hitbuildls d_)ro,,ldu))Rt deofll supt---portrlE===nc-BO-s ifnennnnd_) erne',wp,nl_,I_3 nprNTnCLond(3,nlIIItim'Verletgus (%eappO k%g-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNe(2ee=hit deo =IIN )ore IN d_)--portrlEEEEtis_s2p_p-ifaafaaa )))R,'===nc-BO-s ifnennnnd_) ernelIIItim'Verletgus (%eappO k%g-BO-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRo,)PPM_PRECVBUFFERp,vp, 88nv-BO-(1:Npdx8IINTOR(_3 Rus Eini,ne,u ) ernel suppornelNe(2ee=hitbuild =IIN )ore IN d_)-s ifneeded =IINT!3 RusOR(_3 Reset R===nc-BO-s ifnennnnd_tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpIST buffo,_sdt)R,0 dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrprocesPors; Firtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8IIimetbuffors; Fwp,vpis-,vpd etbuffor itselftries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 , ::_3 Reset Rv)bO-nk ::_-Lond(3,nnsddls _3 Reset Rv)bO-nk ::_CLond(3,nus (%eappO k%g-BO-nVLISTp,nl_,ond(3,nus (%eappO k%g-BO-nVLISTp,nl_,ond(3,nus (%eappO k%uffo, )Ret Rv)b0nd(3,nus (%eappO k%uIc buffo,et Rv)b0nd(3,niors )b0nd(3,ni R,0 ,wp, )b0nnd(3,n)ore O I_3 nprNTnnnnd_)s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s ,w dd We=eSbuffoextd etbuffornnnnd_)s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s , ::_=, ::_CLond(3,ndv)_sto ::.GE.I_3 nprNT), ::_=, ::_-,I_3 nprNTnnd(3,ndv)nsddls _=)nsddls _-Lond(3,ndv)_stonsddls .LT.(3,ndv)IIensddls _=)nsddls _+,I_3 nprNTnnnnnnd_)s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s ,w dSt erc,vpd etbuffor d whichlwexmmentt deotonnnnd_)s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s ,us (%eappO k%uffo, )R=,us (%eappO k%uffo, )RCLo nnnnd_)s ,us (%eappO k%tg-BOLIST(us (%eappO k%uffo, ))_=, ::nnnnnd_)s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s ,w dSt erc,vpd etbuffor d whichlwexmmenttbuil-nVLnnnnd_)s ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s ,us (%eappO k%uIc buffo,=Rus (%eappO k%uIc buffo,CLond(3,ndv)us (%eappO k%tBO-nLIST(us (%eappO k%uIc buffo)_=)nsddls CLfneedees wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s ,w dIINT!8IIils (s.:Npdx) !!! ere f d,=1nddst erc,vpm.nnnnd_)s ,w dT bo--8IIils (s.:Npdx) !!! ere f d,=in roundtries ,eedw de O I_3 nffo, ):tries ,eedw ddddosm(_dls _=)I_3 tg-BOLIST(domcond(1:- w ddddilcv)bO-nkg-BO-nVLISTpdomcond(1:- w ddddihiv)bO-nkg-BO-nVLISTpd+1)iEEperiodic8w ddddDO j ilc,ihiEperiodic8w dddd dSnnn(p, 8 cvlstg-BO-nV(:Xj)RR,0e O p, 8 cvlstg-BO-nVLIST(j)Rtonnnnd_)s ,wnnnd_)s , etbuffor osm(_dls _d e O p, 8 cvlstg-BOVLIST(j)omcond(1:- w dddd=globi(tv-) eeewp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s ,i R,0 ,=,us (%eappO k%uffo, )RCLond(3,ndv)us (%eappO k%g-BO-nVLISTpdnVLIST)_=)ct-aafaa ihc((D ddddddddddddus (%eappO k%g-BO-nVLISTpus (%eappO k%uffo, ))nd(3,ndv)DO j O l_,I-BO-)v-BO----------_stog888tinget_mIST2 etb(tg-BOVLIST(j)ofaa ::n CYCLportlwestisic8,ic8us (%eappO k%g-BO-nVLISTpdnVLIST)_=)ct-aafaa ihc((D ddddddddddddtisic8,ic8us (%eappO k%g-BO-nVLISTpdnVLIST)_CLond(3,ndv)R,-op,-oiors; Fus (%eappO k%g-BO-nVLISTpdnVLIST)_-Lond(3,ndv)R,-op,-ous (%eappO k%tg-BO-nVLIST(tg-o)_=)tg-BO-nVLIST(j)nd(3,ndv)R,-op,-ous (%eappO k%tg-BO-nVLLIST88888888tg-o)=tg-BO-nVLLIST88888888j)nd(3,ndv)R,-op,-ous (%eappO k%tg-BO-nVLize88888888tg-o) )tg-BO-nVLize88888888j)nd(3,ndv)R,-op,-oIid)%(ll supeinget1n CYCLportlwestisic8,ic8,ic8Iid)%(llYCL,a (n CYCLportlwestisic8,,,,,,,,,,,,WRITEpus g,'(2(A,2I4),A,I3)') ' O k=ne,u(tv)R,- im ,wpim ,wp,-op,-oiorBO-nVLLIST8882Xj),'RR,0et---',tg-BO-nVLize8882Xj),(tv)R,- im ,wpim ,wp,-op,-o'_d ' ::portlwestisic8,,,,,,,,ELSEIid)%(llYCL,a 3n CYCLportlwestisic8,,,,,,,,,,,,WRITEpus g,'(2(A,3I4),A,I3)') ' O k=ne,u(tv)R,- im ,wpim ,wp,-op,-oiorBO-nVLLIST8883Xj),'RR,0et---',tg-BO-nVLize8883Xj),(tv)R,- im ,wpim ,wp,-op,-o'_d ' ::portlwestisic8,,,,,,,,ER,-op(tv-) CYCL,vpp((n ERp,vp, 8.---B(O-nk ::OR(_3 Rus Eini,neus g,RusOR(_3 Reset RRRRR,,,ER,-op(tv-) CYCL,vpER,-op(tv-) CYC=globist is)R s wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s ,w dIINT!8IIils (s.:Npdx) !!! ere op ornrrmenddst erc,vpm.nnnnd_)s ,w dT bo--8IIils (s.:Npdx) !!! ere op ornrrmin roundtries ,eedw de O I_3 nIc buffo:tries ,eedw dddds2v)R,_dls _=)I_3 tBO-nLIST(domcond(1:- w ddddilcv)bO-nkg-BO-nVLISTpdomcond(1:- w ddddihiv)bO-nkg-BO-nVLISTpd+1)iEEperiodic8w ddddDO j ilc,ihiEperiodic8w dddd ds if(p, 8 cvlstBO-n-nV(:Xj)RR,0e O p, 8 cvlst_,I--nVLIST(j)nd(3,ndv)wnnnd_)s ,-nVL, etbuffor s2v)R,_dls _d e O p, 8 cvlstBO-nVLIST(j)omcond(1:- w dddd=globi(tv-) eeewp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded nnnnd_)s ,i R,0 ,=,us (%eappO k%uIc buffo,CLond(3,ndv)us (%eappO k%g-BO-nVLISTpdnVLIST)_=)ct-aafaa ihc((D ddddddddddddus (%eappO k%g-BO-nVLISTpus (%eappO k%uIc buffo)nd(3,ndv)DO j O l_,I-BO-)v-BO----------_stoget_mIST2 etb(t_,I--nVLIST(j)ofaa nsddls n CYCLportlwestisic8,ic8us (%eappO k%g-BO-nVLISTpdnVLIST)_=)ct-aafaa ihc((D ddddddddddddestisic8,ic8us (%eappO k%g-BO-nVLISTpdnVLIST)_CLond(3,ndv)R,-op,-oiors; Fus (%eappO k%g-BO-nVLISTpdnVLIST)_-Lond(3,ndv)R,-op,-ous (%eappO k%tBO-nVLIST(tg-o)_=)tBO-nVLIST(j)nd(3,ndv)R,-op,-ous (%eappO k%tBO-n-nVLLIST88888888tg-o)_=)ct-aafaa ihc((D ddddddddddddestisic8,itBO-n-nVLLIST88888888j)_CLtnVLIST88888888j)nd(3,ndv)R,-op,-ous (%eappO k%tBO-n-nVLIST88888888tg-o)_=)tBO-n-nVLIST88888888j)nd(3,ndv)R,-op,-oIid)%(ll supeinget1n CYCLportlwestisic8,ic8,ic8Iid)%(llYCL,a (n CYCLportlwestisic8,,,,,,,,,,,,WRITEpus g,'(2(A,2I4),A,I3)') ' BO-nO k=ne,u(tv)R,- im ,wpim ,wp,-op,-oiBO-n-nVLLIST8882Xj),'RR,0et---',tBO-n-nVLIST8882Xj),(tv)R,- im ,wpim ,wp,-op,-o'_-nVL,' nsddls (,nsdddddddddddddddddELSEIid)%(llYCL,a 3n CYCLportlwestisic8,,,,,,,,,,,,WRITEpus g,'(2(A,3I4),A,I3)') ' BO-nO k=ne,u(tv)R,- im ,wpim ,wp,-op,-oiBO-n-nVLLIST8883Xj),'RR,0et---',tBO-n-nVLIST8883Xj),(tv)R,- im ,wpim ,wp,-op,-o'_-nVL,' nsddls (,nsdddddddddddddddddER,-op(tv-) CYCL,vpp((n ERp,vp, 8.---B(O-nk ::OR(_3 Rus Eini,neus g,RusOR(_3 Reset RRRRR,,,ER,-op(tv-) CYCL,vpER,-op(tv-) CYC=globi-) CYC=globitries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,DeaIINT!3 RusOR(O,ore O,-ldu))Rt dddtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,portrlEEEEtis_s2p_pdeaIINT_) ernelIIItim'Verletgtg-BO-nVLIST Nap_field_globi_usep_storelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rt deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,',nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=destinax)du stinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rt deoosm(-,-(ll supd_) ernel suppoisddblkReind,ldu))Rt dennnnd_) ernelIIItim'Verletg-BO-n-nVLLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk Reindelsstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rt deo deofll supt---portrlEEEEtis_s2p_p-ifaafaaa )))R,nnnnd_) ernelIIItim'Verletg-BO-n-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rt deo deoft---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nnnnd_) ernelIIItim'Verletg-BO-n-nVLIST Nap_field_globi_usep_storelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Ra d_fll supt---pors ifEEEtis_s2p_p-ifaafaaa )))R,',nnnnd_) ernelIIItim'Verletg-BO-nVLIST Nap_field_globil_usepstorelEAR-BOXIIeturn88888')ourc==sdd=)Rlels ()PPstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Ra d_osm(-,-(ll supd_) ernuppornelNeshlir cvblkReind,ldu))nnnnd_) ernelIIItim'Verletg-BO-n-nVLLIST Nap_field_globil_usep_storeEARn Rn-BOXIIeturn88888'r cv)bO-nk Reindelsstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rtbuilddeofll supt---l supt---portrlEEEEtis_s2p_p-ifaafannnnd_) ernelIIItim'Verletg-BO-n-nVLIST Nap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv)bO-nk R-zeRstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rtbuilddeoft---portrl-s ifneeded =IINT!3 RusOR(_3 Aeinnnnd_) ernelIIItim'Verletg-nVLIST Nap_field_globil_usep_storeEAR-BOXIIeturn88888'indil)sdd=bO-nk offsetstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIINTOR(_3 Rus Eini,ne,u ) ernel suppornelNeldu))Rtbuilddeof O I -BO-s ifneeded =IINT!3 RusOR(_3 Finnnnnd_tries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,vpturnRtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIr-BO- CONTINUE_) ernelIIItISTsget(R(_3 Rus Eini,net0 RusOR(_3 FinRETURN(_3 Finnnn elNROUTINE (_3 Rus Eini, lib(_3-1.2/src/Rus/(_3 Rus Epop_2d.f000644 000765 000024 00000544661 11445666062 020544 0ull00omlllff000000 000000 ries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,Subroutfne : (_3 Rus Epop_2dtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wpCopyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamics (DTUR(_3 Fin!(_3 Fin!(_3 Fin!) R,0 filepis-pll sore O,-Ps2pllel-Ps2ticlepMs (sLibe=hii(PPM).(_3 Fin!(_3 Fin!)PPMpis-frel software: you cal a d-s ribe=eSi,=1nd/(tvmodify(_3 Fin!)i,=un((npdO,--s issore O,-GNU Less(npGene2pl Phid,csLicense INT!3 ,wpall ini,n deo deoft---portrlEEEEtis_s2p_p-ifaafaaa )))R,',wp,nnnnd_) ernelIIItim'Verletg-BO-n-nVLIST Nap_field_globi_usep_storelEAR-BOXIIeyItim'FwpalS ini,n Fodic8Ietu, eitimrbi_usep_stversetur3lIIItim'eld_glo, p_p(ateo dr inietu)is_y latmrbi_usep_stversetu2pl Phid,csLicense INT!3 --portrlEEd8888881:hope-nkg-B,',,=Rusbewexdful,csLicenserlE WITH ANY WARRANTY;fneeNT! eve88881:impliEd8i,nrantdeaIcsLicenseMERCHANTABILITY p_pFITNESS FOR A P-nkICULAR PURPOSeldSee,w!!tries ,DOVerln-nVLIST Nap_field_globfp_p-in details2pl Phid,csLicenseY deseNTld havedw dddds2v) c FilIIItim'Verln-nVLIST Nap_field_gloi_usep_stoOn)ytbuVerletg-BO-n-nVLIST Nap_field_globalongfneed IN. If not,csLicensesee,2pl Phid,csLicense (npdO,--s issore O,-GNU Less(npGenecsLicenselel-Ps2tics (DTUR(_3H-8092-Ps2tic, Snezd =nch), MOSAIC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamics #Sand __DIM == __SFIELD #Sand __KI== __SINGLEs ifISIO Zuric_sca_s(,I--nVLIST -BOIST ,ct-aafaa f :,:v-) eeee eeeeee=globiist i ,:)n_,nndi,rocesPmask) #elSand__KI== __DOUBLEs ifISIO Zuric_sca_d(,I--nVLIST -BOIST ,ct-aafaa f :,:v-) eeee eeeeee=globiist i ,:)n_,nndi,rocesPmask) #elSand__KI== __SINGLEs ifISIO_COMPLEX Zuric_sca_sc(,I--nVLIST -BOIST ,ct-aafaa f :,:v) eeee eeeeee=globiist i ,:)n_,nndi,rocesPmask) #elSand__KI== __DOUBLEs ifISIO_COMPLEX Zuric_sca_dc(,I--nVLIST -BOIST ,ct-aafaa f :,:v) eeee eeeeee=globiist i ,:)n_,nndi,rocesPmask) #elSand__KI== __INTEGER Zuric_sca_i(,I--nVLIST -BOIST ,ct-aafaa f :,:v-) eeee eeeeee=globiist i ,:)n_,nndi,rocesPmask) #elSand__KI== __LOGI Zuric_sca_l(,I--nVLIST -BOIST ,ct-aafaa f :,:v-) eeee eeeeee=globiist i ,:)n_,nndi,rocesPmask) #enfaa #elSand__DIM == __VFIELD #Sand __KI== __SINGLEs ifISIO Zuric_vec_s(,I--nVLIST -BOIST ,ct-aafaa f :,:v-) eeee eeeeee=globiist i ,:lda,)n_,nndi,rocesPmask) #elSand__KI== __DOUBLEs ifISIO Zuric_vec_d(,I--nVLIST -BOIST ,ct-aafaa f :,:v-) eeee eeeeee=globiist i ,:lda,)n_,nndi,rocesPmask) #elSand__KI== __SINGLEs ifISIO_COMPLEX Zuric_vec_sc(,I--nVLIST -BOIST ,ct-aafaa f :,:v) eeee eeeeee=globiist i ,:lda,)n_,nndi,rocesPmask) #elSand__KI== __DOUBLEs ifISIO_COMPLEX Zuric_vec_dc(,I--nVLIST -BOIST ,ct-aafaa f :,:v) eeee eeeeee=globiist i ,:lda,)n_,nndi,rocesPmask) #elSand__KI== __INTEGER Zuric_vec_i(,I--nVLIST -BOIST ,ct-aafaa f :,:v-) eeee eeeeee=globiist i ,:lda,)n_,nndi,rocesPmask) #elSand__KI== __LOGI Zuric_vec_l(,I--nVLIST -BOIST ,ct-aafaa f :,:v-) eeee eeeeee=globiist i ,:lda,)n_,nndi,rocesPmask) #enfaa #enfaa t i ,:!!1nd/(tvINT!3 ,w ZuRv)bO- ,wp,-nVLISTfp_p2DR0INT!3:,: t i ,:!!1 t i ,:!!1n[NOTE] t i ,:!!1nd/e nic ore O I -B:,:T!3 888881:pu(tv)3 Fin!)i,=un-nVLIS t i ,:!!1nRrlEEEEtisRv)bO-f :,: ,nraydSanCYCLpo.nd/e u-BO-doTn CotnCYCL t i ,:!!1n,ponInp :bNT! its'indi. If ffo,antn,ponhangeO I -B,poimprosdd=)Rle!!1nclEEabilitdet RRRC, ,ngummconcbuilseseNTld bewadLpo,I_3 nprd=)Rle!!1nffsen!)if :,:. If )bO-clEEB,poinvert_ ,wp, -B,po slow imre,O I -d=)Rle!!1ncNTld bewdo ,weyItST _dls _=)R,_dls _o,I_3 eachItST log_stoe8et_!!1nAsPors;exp_globvp, oms;extra_s2p_pd. t i ,:!!1 t i ,:!!1n[WARNING] t i ,:!!1nDIM Rv)bO-dimmcsetur!)i,=un`f :,:` ,nrayd)R,_Cotn,DO kpacrd=)Rle!!1ndimmmsetur`IST8883`1 t i ,:!IC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamicst i ,:!hborclud)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8#irclud) "O-nO kf3 ,.h".---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IIr-BO- CONTINUE_) ernelIIItISTsget(R(_3Modul)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8IIimetUSodul)_3:,: t i ,:USodul)_3:,:t-aaf t i ,:USodul)_typCLpf t i ,:USodul)_ Fi t i ,:USodul)_op t i ,:USodul)_ =IINT!3 RuUSodul)_Rp,vp, 88nv-USodul)_pdo(:, 88nv-USodul)_cbuil_id, 88nv-USodul)_T!3l_invert_ ,wp) ernel MPLICIT NONE #Sand __KI== __SINGLEs ifISIO |d__KI== __SINGLEs ifISIO_COMPLEXINTEGER, P-nAMETER :: MKO-s ifkinc_single #elloi_usep_INTEGER, P-nAMETER :: MKO-s ifkinc_doNape #enfaa t i ,:!.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8IIimet =IIngummcon_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8#if __DIM == __SFIELD #Sand __KI== __INTEGERINTEGER ,nDIMENSIO(:,:,:), POINTER :: f :,: #elSan__KI== __LOGILOGI ,nDIMENSIO(:,:,:), POINTER :: f :,: #elSan__KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXCOMPLEX(MK),nDIMENSIO(:,:,:), POINTER :: f :,: #elloi_usep_REAL(MK),nDIMENSIO(:,:,:), POINTER :: f :,: #enfaa #elSan__DIM == __VFIELD #Sand __KI== __INTEGERINTEGER ,nDIMENSIO(:,:,:,:), POINTER :: f :,: #elSan__KI== __LOGILOGI ,nDIMENSIO(:,:,:,:), POINTER :: f :,: #elSan__KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXCOMPLEX(MK),nDIMENSIO(:,:,:,:), POINTER :: f :,: #elloi_usep_REAL(MK),nDIMENSIO(:,:,:,:), POINTER :: f :,: #enfaa #enfaa t i ,:!!1nF-B:,:. t i ,:!!1 t i ,:!!1n1sstolwex::lda + t i ,:!!1n2nd-3thtolwex::0INT!(i(llrelatg ns,poi Fi-1r!)i,=unn888 t i ,:!!1n(i.i. (i(l=(1,1)ncNrrespon ore Oi Fi) + t i ,:!!1n4th: BOIe 1...ssOdir c (lEEB niO I -B ore O I ). t i ,:!!1 t i ,:!!1nFO I clEaSTf)ytbuiipu(tv)olwex RvomitEEd8(buiiotimrs k=1,n t i ,:!!1naccNr ::ly). t i ,:LOGI,nDIMENSIO(:,:,:), POINTER, OPTIO :: mask t i ,:!!1nLogiO-s mask. t i ,:!!1 t i ,:!!1n rerbuii0INT!nodedfI_3 uIc butedees , De-s ,,=Rusbe t i ,:!!1n)%(po.nIf not gg nn,INT!3 e O sBO-nV)%(po. t i ,:!!1 t i ,:!!1n1ss-2!3 ,uwex::0INT!(i(ll + t i ,:!!1n3rd: BOIe.8#if __DIM == __VFIELD t i ,:INTEGER ,:INTENT(IN ) :: lda t i ,:!!1nd/e lea ::pdimmcsetur!)i,=unfB:,:. t i ,:!!1 lda=1,I_3 nprNcalobvp, clEaST :,: #enfaa t i ,:INTEGER ,:INTENT(IN ) :: ,I--nVLIST -B t i ,:!!1ndST log_ IDbvp,Rn-BOXIIetu t i ,:INTEGER ,:INTENT(IN ) :: ,I--nVL-aafaa t i ,:!!1nO,-GNIDbvp,Rn-BOXIIetu t i ,:INTEGER,nDIMENSIO(:) ,:INTENT(IN ) :: )n_,nndi,d=)Rle!!1nfndil!)i,=un)n_,n layBO-(8880INT! e O s) 888eachIdimmcsetu. t i ,:INTEGER ,:INTENT( ) :: oces t i ,:!!1nRrus surn8tu)yt0 upturn8ce O t i ,:!.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8IIimet =ILBO-s variabl)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8IIimetINTEGER,nDIMENSIO(3) :: mofs8IIimetINTEGER,nDIMENSIO(4) :: ldl t i ,:INTEGER :: o,j,k,tg-o)_=,M :,:vBOIe,bpus gOIe,e'r cv)bO-nINTEGER :: oini,ytbuil,xhi,yhi,xlo,ys _d0INT,j-aaf t i ,:INTEGER :: btypCihc((i_usep_REAL(MK) :: t0 t i ,:LOGI :: ldo t i ,:INTEGER :: rtypCCH-nACTER(LEN= ifchar) :: Sand8#if __DIM == __SFIELD IIimetINTEGER,nP-nAMETER :: lda #enfaa t i ,:TYPEies ,VLIST ) , POINTER :: ,I--nVLIST t i ,:TYPEies ,VLequiL-aaf), POINTER :: ,I--nVL-aaf t i ,:!.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8IIimet =IExxx ren_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8 t i ,:!IC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamicst i ,:!hborivpdoiloi_usep_sIC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamicst i ,:pp((' Zuric8 t i ,:!IC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamicst i ,:!hbtbuildangummcon_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8IIimetI' BO-nO k=ne,u(tv)u))Rtbuilddeof cbuililddeof _,nndi,n.---B!RrOOn)ytbuildSandO2ndi,n.---B!RrO skipdSan,wp,vpdompty8IIimetI' BO-nOors; Fwp,vpd nnnR,- im ,wpim ,wp ' BO-nO k=ne,u(tv)R,- im ,wpim ,wp,-opies ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)y Zuric,nsdddddddddddddddd'Bwp,vpds ,ompty: skipllYw Zu!'O2)ore O I -BO-IINT!3 RusOR(Odt)R,0 dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpcesPors;-BO-s re O I ore Ond_) ST log_ )R,_-aaf t i ,:!.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,wp,loop%oinc 8IIimet,I--nVLIST =>,wp,vIST (,I--nVLIST -B)%t8IIimet,I--nVL0INT!=>,dddddddddddt0INT(,I--nVL-aafaa) 8IIimetI' BO-nO k=ne,u(tv)u))Rtbuilddeof dst erc,vpm.nnnnd_)s ,w dT bo--8IIils (s.:Npdx) !!! ere op ornrrmin roundtries ,eedwnow,dSan888 k=ne,mode,cbuilOnd_)restilddeof dst erc,vpm.nnnnd_)s ,w dT bo--8IIils (s.:Npdx) !!! ere op ornrrmin roundtries ,etI' B ifSENT(mask),0et---',tBO-n-nVLISTxST(j)0-',tBO-n-nVLISTyST(j)0-',tBO-n-nVLIST8888888888ir cvfiomssOdir ct-aafaa ihc((D ddddOIe dblkR-ze,R-BjBOIet ond88888888k),ghostxre ,(D ddddddddc8Iidnnoded(1,BOIe)u(tvxST,0et---',tBO-n-nVLIST8883Xj),xST(j)dddddddc8Iidnnoded(1,BOIe)-',tBO-n-nVLIST8883 RRRRR,-op,-opond83,nnd)o=R-dddddddc8Iidnnoded(2,BOIe)u(tvyST,0et---',tBO-n-nVLIST8883Xj),yST(j)dddddddc8Iidnnoded(2,BOIe)-',tBO-n-nVLIST8883 RRRRR,-op,-opond83, -BO-s ifAIINT!3nnd)o=R-ffse(mask,1)nd nnnxST,0et---',tBO-n-nVLIST8883I -BO-s ifneeded =IINT!3 RusOR(((((((((sOR(_3 Reset R===nc-BO-sngummcoi,n.---B!RrOOn)y Zuric,nsdddddddddddddddddddddd'xpdimmcsetur!)imask-doTn CotnmatchIc8Ii =IINT!3 ,wp,vpIST buffo,_sssssssssOn)ytbuildSandO2)ore O I -BSTn CYCLportlwestisicffse(mask,2)nd nnnyST,0et---',tBO-n-nVLIST8883I -BO-s ifneeded =IINT!3 RusOR(((((((((sOR(_3 Reset R===nc-BO-sngummcoi,n.---B!RrOOn)y Zuric,nsdddddddddddddddddddddd'ypdimmcsetur!)imask-doTn CotnmatchIc8Ii =IINT!3 ,wp,vpIST buffo,_sssssssssOn)ytbuildSandO2)ore O I -BSTn CYCLportlwestisicffse(mask,3)nd nnn888ir cvfiomssOdir c,0et---',tBO-n-nVLIST8883I -BO-s ifneeded =IINT!3 RusOR(((((((((sOR(_3 Reset R===nc-BO-sngummcoi,n.---B!RrOOn)y Zuric,nsdddddddddddddddddddddd'mask-d:,: fO I -meB s ,missing =IINT!3 ,wp,vpIST buffo,_sssssssssOn)ytbuildSandO2)ore O I -BSTn CYCLportl -BSTn CYCLp(:,:)n_ t i ,:!IC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamicst i ,:!hbtbuildwkg-Bkincr!)iildSin CYCLpos ifpl2)orerwadL) t i ,:!IC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamicst i ,:I' BO-nO-B!RtypCCLfneedees ,wp,-B!R,0et---',tBO-n-I -BO-s ifneeded =IINT!3 RusOsOR(_3 Reset R===nc-BO-sngummcoi,n.---B!RrOOn)y Zuric,nsddddddddddddd'-B!RrOOn)y ZueofCotnbO-clEEs2v)ftmrb)n_,nIINT!3 ,wp,vpIST buffo,sOR(_3 Reset R===nc-BO-sngummcoi,n.---B!RrOOn)y Zuric,nsddddddddddddd')n_,n must CotnbO-clEEs2vdNTORtlyIeyItim'u-BOIINT!3 ,wp,vpIST buffo,dt)R,0 dddduddo(-n-nVLLIST8-B!RtypCCLfneedees ,wp,-B!R)n_,npu,0et---',tBO-n-rtypCinax)du meshe ZuradLddduddo(-n--',tBO-n-rtypCinax)du meshe Zurifpl2)oddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpCbuilOndatOnd_)requirs2vdNmmcseturfits')bO-dimmcsetur!)i,=un-nVLIS t i ,:!.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrralbpusinax)duors; FwpusBO-nOors; Fwp,v) #Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEX! fO I, lexytbuiies; ctg nsdimmcseturin hal)i,=und:,: dimmcsetuepusinabpus/2 #elloi_usep_epusinabpus #enfaa t i ,:I' BO-nO k=ne,u(tv)R,- im ,wpim ,wp,-)R,- im ,wpim ,wpI3)-nVL,bpus=',e'r ,'wp,-lda=',lda t i ,:ffo,sOR(_3 Repdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore O I -B(:,:)n#if __DIM == __VFIELD t i ,:I' Be'r ---Blda,- im ,wpim ,wp,I -BO-s ifneeded =IINT!3 RusORsOR(_3 Reset R===nc-BO-wrong_'r ,'n.---B!RrOOn)y Zuric,n,nsddddddddddddd'lea ::pdimmcseturLDAT!3 888set R =IINT!3 ,wp,vpIST buffo,_dt)R,0 dddduddo(:,:)n#elSan__DIM == __SFIELD t i ,:I' Be'r ---BR,- im ,wpim ,wp,I -BO-s ifneeded =IINT!3 RusORsOR(_3 Reset R===nc-BO-wrong_'r ,'n.---B!RrOOn)y Zuric,n,nsddddddddddddd',wp,vpddoTn Cotnconta8881-B:,:! =IINT!3 ,wp,vpIST buffo,_dt)R,0 dddduddo(:,:)n#enfaa _,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpCbuilOndatOnd_)requirs2vtypCi!3 8dmcoiO-s e Ond_) ypCi!)i,=un-nVLIS t i ,:!.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrralbtypCinax)duors; FwtypCBO-nOors; Fwp,v) #Sand __KI== __SINGLEs ifISIOI' BbtypC---B ifkinc_single,- im ,wpim ,wp,I -BO-s ifneeded =IINT!3 RusORsOR(_3 Reset R===nc-BO-wrong_LIST,'n.---B!RrOOn)y Zuric,n,nsddddddddddddd'try ::pe O Zuea Con-single,I ededingle, =IINT!3 ,wp,vpIST buffo,_dt)R,0 dddduddo(:,:)n#elSand__KI== __DOUBLEs ifISIOI' BbtypC---B ifkinc_doNape,- im ,wpim ,wp,I -BO-s ifneeded =IINT!3 RusORsOR(_3 Reset R===nc-BO-wrong_LIST,'n.---B!RrOOn)y Zuric,n,nsddddddddddddd'try ::pe O Zuea Con-doNape,I ededoNape, =IINT!3 ,wp,vpIST buffo,_dt)R,0 dddduddo(:,:)n#elSand__KI== __SINGLEs ifISIO_COMPLEXI' BbtypC---B ifkinc_single,- im ,wpim ,wp,I -BO-s ifneeded =IINT!3 RusORsOR(_3 Reset R===nc-BO-wrong_LIST,'n.---B!RrOOn)y Zuric,n,nsddddddddddddd'try ::pe O Zuea Con-single-, lex,I ededingle-, lex'v) eeee eeeeee=gIINT!3 ,wp,vpIST buffo,_dt)R,0 dddduddo(:,:)n#elSand__KI== __DOUBLEs ifISIO_COMPLEXI' BbtypC---B ifkinc_doNape,- im ,wpim ,wp,I -BO-s ifneeded =IINT!3 RusORsOR(_3 Reset R===nc-BO-wrong_LIST,'n.---B!RrOOn)y Zuric,n,nsddddddddddddd'try ::pe O Zuea Con-doNape-, lex,I ededoNape-, lex'v) eeee eeeeee=gIINT!3 ,wp,vpIST buffo,_dt)R,0 dddduddo(:,:)n#elSand__KI== __INTEGERI' BbtypC---B if O Ig_=)c im ,wpim ,wp,I -BO-s ifneeded =IINT!3 RusORsOR(_3 Reset R===nc-BO-wrong_LIST,'n.---B!RrOOn)y Zuric,n,nsddddddddddddd'try ::pe O Zuea Con- O Ig_=,I ede O Ig_=, =IINT!3 ,wp,vpIST buffo,_dt)R,0 dddduddo(:,:)n#elSand__KI== __LOGII' BbtypC---B iflogiO-s)c im ,wpim ,wp,I -BO-s ifneeded =IINT!3 RusORsOR(_3 Reset R===nc-BO-wrong_LIST,'n.---B!RrOOn)y Zuric,n,nsddddddddddddd'try ::pe O Zuea Con-logiO-s,I edelogiO-s,tries ,wp,vpdo(:,:)n_,nndi,n.#enfaa _,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpDe ern3 ,wsndil!)if-B:,: ,nraydCYCLpo_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrralxST(j)0-',tBO-yST(j)0-',tBO-8888888888ir cvfiomssOdir ct-aafaa ihddddddblkR-ze,R-BjBOIet ond88888888k),gh(D ddddddddc8Iidnnoded(1,Bddd)u(tvxST,0et---',tBO-n-nVLISTxST(j)dddddddc8Iidnnoded(1,Bddd)n CYCLportl -BSTn CYCLp),gh(D ddddddddc8Iidnnoded(2,Bddd)u(tvyST,0et---',tBO-n-nVLISTyST(j)dddddddc8Iidnnoded(2,Bddd)n CYCLportl -BSTn CYCLpRt dddtries ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 ,porRrlEEEEtis ,nraydSanCYCLpo t i ,:!IC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamicst i ,:I' BLIST8-B!RtypCCLfneedees ,wp,-B!R)n_,ngisic.OR.n,nsddddddddddLIST8-B!RtypCCLfneedees ,wp,-B!R)n_,npu,0.OR.n,nsddddddddddLrtypCCLfneedees ,wp, ZuradL),0et---',tBO-n-nVedees ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneededfneedePurc==sd o-f)dSantedees ,ederow'g ns)n_,nn ppO k%adLddduddofneedecontrtrlEetu88tinget_mne Od,j)v-BO---dil)))))))))sdlsl_,g888tinget_mishid,j),domcond(1:- ERp,vp,()PPselEAR-BOXIIeturn88fit)ourc==sdd=)Rle(-n--',tBO-n-p,()PPselEAR-BOXIIeturn88fit O I -B(:,:)n#if __DIM == __VFIELD t i ,:)bO-nk R-e'r cv)bO-nk ReindelxST+)n_,nndi,-) CYCL,vpk Re3ndelyST+)n_,nndi,-2 CYCL,vpk Re4)ddblkR-ze,R-BjssOdir ct-aafaaldlwp, )b0ldlwindel1-)n_,nndi,-) CYCL,vpk le3ndel1-)n_,nndi,-2 CYCL,vpk le4) #elSan__DIM == __SFIELD t i ,:)bO-nk R-xST+)n_,nndi,-) CYCL,vpk Re2ndelyST+)n_,nndi,-2 CYCL,vpk Re3)ddblkR-ze,R-BjssOdir ct-aafaaldlwp, -)n_,nndi,-) CYCL,vpk leindel1-)n_,nndi,-2 CYCL,vpk le3ndel1 #enfaa t i ,::NpdxdeaIINTOR(f :,:vk l Eini,ne,u ) ernel suppornelNe(2ee=hitbuild =IIN )ore IN d_)-s ifneeded =IINT!3 RusOR(_3 Reset R===nc-BO-s ifnennnnd_tries ,w Zuric,nsdddddddddddddd'new-B:,: FDATA =IINT!3 ,wp,vpIST buffo,_sdt)R,0 dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpBuiln)ytbuinvers888')ourc== k%fincrelEAR-B')o,uweices bass2vtulrpOOn)ytbones (nprNTnnnnd_ones O-nV, muniEtisL) t i ,:!IC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamicst i ,:sepstorelEAR-BOXIIeturn88fit O I -B)bO-nk R-blkR-ze,R-BjssOdir ct-aafaa:NpdxdeaIINTOR(sOdir c Eini,ne,u ) ernel suppornelNe(2ee=hitbuild =IIN )ore IN d_)-s ifneeded =IINT!3 RusOR(_3 Reset R===nc-BO-s ifnennnnd_tries ,w Zuric,nsdddddddddddddd'tempoess(n8')ourc==SUBLNap_field_globil_usep_storeEARn-BOXIIeturn88888'indil)r cv! WenCYCLn,pon Filit,I edea temp eriodidincevdNTORtlyIudingil)r cv! if OIet ond:g-BO-ies ,wIST -B)torean ,ngummcon,poinvert_ ,wp, -il)r cv! Cotnpossiape,dincevnprN,ngummconCYCL ,edebewa POINTER. t i ,:OIet ond1:888ir cvfiomssOdir c,0=dddddddddddddddblkR-ze,R-BjBOIet ond1:888ir cvfiomssOdir c,t-aafaa:NpdxdeaIT!3l_invert_ ,wp(sOdir c invsOdir c in_usep_stor()PPstinax)du meshesERp,vp, 88nv-BO-(1:NpdxdeaIIsOdir c Eini,ne,u ) ernel suppornelNe(2ee=hitbuild =IIN )ore IN d_)-s ifne =IINT!3 RusOR(_3 Finnnnnd_tries ,wp,vpdo(:,:)n_,nndi,n.---B! Zuric,n,nnsdddddddddddddd'tempoess(n8')ourc==SUBLNap_field_globil_usep_stor(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpDe ern3 ,wors; Firtries B:,: e O sBedebeww dddds2_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrralM :,:(j)0-'!nel suppo ifSENT(mask),0et---'be=hii(PP etbuffornnn_=)ct-aafabe=hii(PPM).n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3fabe=hii(PPM).n naccess ddddilcv)bO-belong ::pe Oytbui-th-nk ::_-Lonn nprdbe=hii(PPM).n n_=)ct-aafabe=hii(PPM).n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3fabe=hii(PPM).dnVLIx)du Xj)RR,0e O p,,x)du Xj)RR,0e O ps ,-nVLbe=hii(PPM).(_3n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusORVLbe=hii(PPM).(_3nrpDe ern3 ,wINT)grangeOnn elEAR-B')ocoNr :tisRVLbe=hii(PPM).(_3n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusORVLbe=hii(PPM).(_3jOIe d_,nnds ,i R,0 ,=,us (VLbe=hii(PPM).(_3dOIe dinvsOdir c(jOIe)-'be=hii(PPM).(_3mofs-nk R-zdc8Iidi,vpp((n gOIe,-nVLbe=hii(PPM).(_3mofs-2k R-zdc8Iidi,vpp((2 gOIe,-nVLbe=hii(PPM).(_3xtBO-n-nV(mcond(1:- w d,vpp((n g)-mofs-nkVLbe=hii(PPM).(_3ytBO-n-nV(mcond(1:- w d,vpp((2 g)-mofs-2kVLbe=hii(PPM).(_3xST(j)xtB+-nV(mcond(1:- w d,di,-) g)-nVLbe=hii(PPM).(_3yST(j)ytB+-nV(mcond(1:- w d,di,-2 g)-nVLbe=hii(PPM).(_3n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusORVLbe=hii(PPM).(_3nrpCount e O sBI_3 uIc bumask-s ,erueVLbe=hii(PPM).(_3n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusORVLbe=hii(PPM).(_3dnVLmcon=ys _y e be=hii(PPM).(_3 Fi etbmcon=xlo,x e be=hii(PPM).(_3 Fi suppomask(1,B0INT,j-aaf,BOIe))lM :,:(j)M :,:()nd(3be=hii(PPM).(_3 Fi -BO-s !ii(PPM).(_3 Fi -BO-s !ii(PPM).(_3 -BO-s !ii(PPM). -BO-s !ii(PP(-n--',tBO-n-p etbuffornnn_=)ct-aafaii(PPM).(_3n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,).n naccess ddddilcv)bO-belong ::pe Oytbui-th-nk ::_-Lonn nprd ERp,vp,).n n_=)ct-aafaii(PPM).(_3n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,).dnVLIx)du Xj)RR,0e O p,,x)du Xj)RR,0e O ps ,-nVLLLLLLLLLLLLLLLn.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusORVLLLLLLLLLLLLLLLnARnesPors; Firtries 0INT! e O sonn nps ,lcv)bVLLLLLLLLLLLLLLLn.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusORVLLLLLLLLLLLLLLLM :,:(j)M :,:()nT(j)omcond(1:- w d,di,-) g)*LLLLLLLLLsdddddddddddddddddd-nV(mcond(1:- w d,di,-2 g)IST buffo,_sss -BO-s ifAIINT! -BO-s !ii(PP(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpIf )bOrCi!3 Coth ::pe Obpdomconwe O-nVdo , t i ,:!IC Lab (ETH Zurich), INT!3 ,wp,,,,,,,,,,,,,,,,,,,Cee IN u(tvFluid Dynamicst i ,:I' BM :,:(Lfne=hitbuild =IIN )orI' BO-nO k=ne,u(tv)u))Rtbuilddeof ddddddies ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)y Zuric,nLsdddddddddddddddddd'TbOrCi!3 Co B:,: edebeww dddds2'O2)ore O I -BO-tl -BSTn CYCLp),ghdt)R,0 dddduddo(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpDecremmcon,s ,ue O I -I edend_)rew'g ns-nVLIS t i ,:!.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrralI' BO-nO k=ne,u(tv)R,- im ,wpim ,wp,-)R,- im ,wpim ,wpI9)-nVL,ornnn_=)c-nVLISTpu',ornnn_=)c-nVLIS,nLsdddddddddddddd' /)M :,:*bpusina',M :,:*bpusNT!3 RusOR(_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore O I -B(:,:)nO I -Bornnn_=)c-nVLISTpuornnn_=)c-nVLIST-)M :,:*bpusn_,nndi,i-nVLISTpuornnn_=)c-nVLISornrralI' BO-nO k=ne,u(tv)R,- im ,wpim ,wp,-)R,- im ,wpimwpI9)nVL,i-nVLISTpu',i-nVLISornrralsOR(_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore O I -B(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpDecremmcon,s ,ue O I -I edend_)ST Nap_fieldedeallow reus,weyornrrallrpmultippe,dequmcoi-s rush-ST N- Zueoycles2pl Phid,.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrralM :,:(j)0-'''''' etbuffornnnLIST)_=)ct-aafaa st erc,vpm.nnnnd_)s ,w dT bo--8IIils (s.:Npdx) !!! ere op ornrrmin roundtries ,eedwaccess ddddilcv)bO-belong ::pe Oytbui-th-nk ::_-Lonn nprd ERp,vp!nd(3,n)_=)ct-aafaa st erc,vpm.nnnnd_)s ,w dT bo--8IIils (s.:Npdx) !!! ere op ornrrmin roundtries ,ednVLIx)du Xj)RR,0e O p,,x)du Xj)RR,0e O ps ,-nVLLLLLLLLLLLLn.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,).n nnesPors; Firtries 0INT! e O sonn nps ,lcv)bVLLLLLLLLLLLLn.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,).M :,:(j)M :,:()nT(j)omcond(nk ::OR(_3 R g)*LLLLLLLLLsddddddddddddddd(j)omcond(nk ::OR(_3 2 g)IST buffo,_ore O,-ldu))Rt ddddddddd(j)onXj)RR,0e OTpuornnnXj)RR,0e OT-ax)duors; FwpusBO-nOors; Fwp,v)*M :,:n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpDe=ne,output_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrralI' BO-nO k=ne,u(tv)u))Rtbuilddeof ddO-s itypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof ddddddies ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)y Zuric,nLnLsddddddddddddddddd'Rfpl2) ::pcurrmconf-values'O2)ore O I -BO-tl -n-nVLrtypCCLfneedees ,wp, ZuradL))Rtbuilddeof ddddddies ,wp,vpdo(:,:)n_,nndi,n.---B!RrOOn)y Zuric,nLnLsddddddddddddddddd'Add ::pe Ocurrmconf-values'O2)ore O I -BO-tl -BSTn CYCLp(:,:)n_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrallrpLoZueovnnnnd_)w dddds2vddddilcv)bO_,nndi,n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrall.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrrall,ednUBLE ifISIOn.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR(_3 inop ornrralI' BO-nOkincrLfneedeekinc_doNape,- im ,wpim ,wp, etbuffornnn_=)ct-aafaii(PPM).(_3n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,).n nAccess ddddilcv)bO-belong ::pe Oytbui-th-nk ::_-Lonn nprd ERp,vp,).n n_=)ct-aafaii(PPM).(_3n.---B!RrOOn)ytbuildSandO2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,).dnVLIx)du Xj)RR,0e O p,,x)du Xj)RR,0e O ps ,-nVLLLLLLLLLLLLLLLn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ).n nnesPors;OIe ID,I_3 npis ddddilcv)bVLLLLLLLLLLLLLLLn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ).jOIe d_,nnds ,i R,0 ,=,us (VLLLLLLLLLLLLLLLn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ).n nT,nnslatm edeloEAR-B')oID,I_3 dls ::pe=und:,:VLLLLLLLLLLLLLLLn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ).dOIe dinvsOdir c(jOIe)-'LLLLLLLLLLLLLLn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ).n nO,-GN=IINT!3I_3 npis OIe-'LLLLLLLLLLLLLLn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ).mofs-nk R-dddddddc8Iidi,vpp((n gOIe,-nVL ERp,vp,). ).mofs-2k R-dddddddc8Iidi,vpp((2 gOIe,-nVL ERp,vp,). ).n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ).n nnesPbodic8riesies 0INT!eded edebeww dddds2Onn elEAR-B') ERp,vp,). ).n ncoNr :tisRVL ERp,vp,). ).n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ).xtBO-n-nV(mcond(1:- w d,vpp((n g)-mofs-nkVLLLLLLLLLLLLLLLytBO-n-nV(mcond(1:- w d,vpp((2 g)-mofs-2kVL ERp,vp,). ).xST(j)xtB+-nV(mcond(1:- w d,di,-) g)-nVLLLLLLLLLLLLLLLyST(j)ytB+-nV(mcond(1:- w d,di,-2 g)-nVLLLLLLLLLLLLLLL ' BO-nO k=ne,u(tv)R,- im ,wpim ,wp,-op,-oiBO-)R,- im ,wpimwp,-opnVL,,vpp(: ,nLnLLLLLLLLL) eeee eeeeee=globiist i -nV(mcond(1:- w d,vpp((n g),-nV(mcond(1:- w d,vpp((2 g),wpim ,wp,-op,-oiBO-_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore O I -Bwp,-op,-oiBO-)R,- im ,wpimwp,-opnVL,,di,: ,nLnLLLLLLLLL) eeee eeeeee=globiist i -nV(mcond(1:- w d,di,-) g),-nV(mcond(1:- w d,di,-2 g),wpim ,wp,-op,-oiBO-_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore O I -Bwp,-op,-oiBO-)R,- im ,wpimwp,-opnVL,m,-GN=IINT!: mofs-nk,mofs-2kVL ERp,vp,). ).iBO-_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore O I -Bwp,-op,-oiBO-)R,- im ,wpimwp,-opnVL,xlo,.xST: xlo,x e ERp,vp,). ).iBO-_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore O I -Bwp,-op,-oiBO-)R,- im ,wpimwp,-opnVL,ys _LyST: ys _y e ERp,vp,). ).iBO-_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore O I -Bwp,-op,-oiBO-)R,- im ,wpimwpI1-nVL,bwp,vpddim: epusNT!3 RusOR(). ).iBO-_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore #if __DIM == __VFIELD t i ,:wp,-op,-oiBO-)R,- im ,wpimwp,-opnVL,ffse(f :,:): ffse(f :,:,2)(,nsdddddddddddddddddER,-opffse(f :,:,3kVL ERp,vp,). ).iBO-_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore #elSan__DIM == __SFIELD t i ,:wp,-op,-oiBO-)R,- im ,wpimwp,-opnVL,ffse(f :,:): ffse(f :,:,1)(,nsdddddddddddddddddER,-opffse(f :,:,2kVL ERp,vp,). ).iBO-_3 Finnnnpdo(:,:)n_,nndi,n.---B!RrOOn)y ZuricSandO2)ore #enfaa t i ,::::::::::(:,:)n#if __DIM == __VFIELD t i ,::::::::::n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ).n nWneeNT! mask:nd/(tv,=Rusvecls ze t i ,::::::::::n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR- ERp,vp,). ). ' B.NOT. ifSENT(mask),0et---',tBO-n-nVLIST::::n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEs2vI_3 epus=aafaa ihc((D ddddd:n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::I' Be'r rLfneR,- im ,wpim ,wp,-op,-oiBO-n-nVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(RRRRR,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEs2vI_3 epus=2R,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::(-n-nVLLe'r rLfne2,- im ,wpim ,wp,-op,-oiBO-n-nVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(2,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(2,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e dddddddnVbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(2,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(2,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(RRRRR,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEs2vI_3 epim=3R,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::(-n-nVLLe'r rLfne3,- im ,wpim ,wp,-op,-oiBO-n-nVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(2,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(2,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(3,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(3,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e dddddddnVbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(2,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(2,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(3,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(3,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(RRRRR,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEs2vI_3 epim=4R,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::(-n-nVLLe'r rLfne4,- im ,wpim ,wp,-op,-oiBO-n-nVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(2,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(2,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(3,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(3,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(4,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(4,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e dddddddnVbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(2,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(2,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(3,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(3,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(4,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(4,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(RRRRR,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEs2vI_3 epim=5R,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::(-n-nVLLe'r rLfne5,- im ,wpim ,wp,-op,-oiBO-n-nVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(5,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(2,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(2,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(3,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(3,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(4,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(4,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.',tBO-n-nVi-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(5,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(5,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e dddddddnVbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(5,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(5,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n_usep_i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(5,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(5,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(2,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(3,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddf :,:(4,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) i-nVLISTpui-nVLIST+ 1 f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddf :,:(5,B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(2,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddddd(f :,:(2,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(3,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(3,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(3,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(4,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(4,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(4,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.L ERp,vp,). ).iBO------------i-nVLISTpui-nVLIST+ 1 I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(5,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(5,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(5,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(RRRRR,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n F_3 epimu(tv5 the vect_3 length will be epim !!R,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::(-n--',tBO-n-p,nVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e etk=1,epime#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEX i-nVLISTpui-nVLIST+ 2 #elloi_usep_ i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIO f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd ddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd dd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEX f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd dd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEX f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd dd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGER f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd ddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIdddddddddddddddddddddddd I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd dd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nV f :,:(k,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV --(-n--',tBO-n-p, f :,:(k,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV --(di,n.#enfaa BO-n-nV (diO-s ifAIINT!3nnd) (diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e dddddddnVbmcon=xlo,x e dddddd etk=1,epime#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEX i-nVLISTpui-nVLIST+ 2 #elloi_usep_ i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd ddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd dd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEX f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd dd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEX f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd dd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGER f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd ddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIdddddddddddddddddddddddd I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd dd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nV f :,:(k,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd dd(f :,:(k,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------ --(-n--',tBO-n-p, f :,:(k,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd dd(f :,:(k,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------ --(di,n.#enfaa BO-n-nV (diO-s ifAIINT!3nnd) (diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(di,nd)! rtypC-',tBO-n-nVLIST::::(di,nd)! lda0= . -',tBO-n-nVn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:! With mask: This will not vect_3ize so no need to unroEE-',tBO-n-nVn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:(-n--',tBO-n-p,dnVLmcon=ys _y e dnVbmcon=xlo,x e dddI' Bmask(B0INT,j-aaf,BOIe),0et---',tBO-n-nV etk=1,epime#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa _usep_nVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbui#Sand __KI== __SINGLEs ifISIO f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd ddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd dd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEX f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd dd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEX f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd dd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGER f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd ddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIdddddddddddddddddddddddd I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd dd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nV f :,:(k,B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV --(-n--',tBO-n-p, f :,:(k,B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV --(di,n.#enfaa BO-n-nV (-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbui#Sand __KI== __SINGLEs ifISIOf :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd ddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd dd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEX f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd dd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEX f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd dd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGER f :,:(k,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddd ddf :,:(k,B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddddd ddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGI I' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd dd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nV f :,:(k,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd dd(f :,:(k,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------ --(-n--',tBO-n-p, f :,:(k,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd dd(f :,:(k,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------ --(di,n.#enfaa BO-n-nV (di,n.L ERp,vp,). ).iBO---------(diO-s ifAIINT!3nnd)(-n--',tBO-n-p,n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IIN-',tBO-n-p,nIf ldoLfn FA-n- skip this point-',tBO-n-p,n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IIN-#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ Le'r *2) #elloi_usep_i-nVLISTpui-nVLIST+ epime#enfaa BO-n-nV(di,nd)! maskLfn De-s -',tBO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(di,nd)! ifSENT(mask) #elSan__DIM== __SFIELDs ifAIINT!3nnd)I' B.NOT. ifSENT(mask),0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof ddddddddddddddnVLmcon=ys _y e ddddnVbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(B0INT,j-aaf,BOIe)0=:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGII' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)ddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbuilddeof ddddddddddddddnVLmcon=ys _y e ddddnVbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __SINGLEs ifISIOf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGII' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)ddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd(f :,:(B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO---------(-n--',tBO-n-p,f :,:(B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd(f :,:(B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO---------(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(di,n.L ERp,vp,). ).(-n- ERp,vp,). ).! ifSENT(mask) ifAIINT!3nnd)dnVLmcon=ys _y e dnVbmcon=xlo,x e dddI' Bmask(B0INT,j-aaf,BOIe),0et---#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa _usep_nVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbui#Sand __KI== __SINGLEs ifISIOf :,:(B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddd ddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(B0INT,j-aaf,BOIe)0=:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddd ddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddd ddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(B0INT,j-aaf,BOIe)0= De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(B0INT,j-aaf,BOIe)0= FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV(-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbui#Sand __KI== __SINGLEs ifISIOf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIOf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+ddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Od(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Od(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Od(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(B0INT,j-aaf,BOIe)0=f :,:(B0INT,j-aaf,BOIe)+dddddddddddddddddddddddddddddddd ddINT(:)n_,j)RR,0e Od(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Od(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_doNape-n.---yepsL),0et---',tBO-n-nVf :,:(B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd(f :,:(B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nV(di,n.L ERp,vp,). ).iBO------(-n--',tBO-n-p,n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IIN-',tBO-n-p,nIf ldoLfn FA-n- skip this point-',tBO-n-p,n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IIN-#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa _usep_(di,nd)! maskLfn De-s -',tBO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(di,nd)! ifSENT(mask) #enfaa _usep_(diO-fAIINT!3nnd)!eedees,j)RR,0e O ep_(diO-fAIINT!3nnd)d)!eedeen,j)Rlist-',tBO-n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsORded =IIN-',tBO-nSINGLE ifISIOn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsORded =IIN-',tBO-(-n--',tBO-n-pdnVb=1,edeen,j)Rlist-',tBO-n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsORded-',tBO-n Access -aaf blocks belonging to the i-th processor in the-',tBO-n ,j)Rlist-',tBO-n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsORded-',tBO-dnVL=edees,j)RR,0e O(i),-nV(s,j)RR,0e O(i+1)-1 n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:! Get the OIe ID for this -aaf block n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:jOIe =:)n_-aaf_i,j)RtoOIe(jkVL ERp,vp,). ).n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:! Translate to local OIe ID for st_3ing the :,:VL ERp,vp,). ).n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:iOIe =invOIelist(jOIekVL ERp,vp,). ).n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:! Maaf offset for this OIeVL ERp,vp,). ).n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:mofs(1)0=target_-aaf%istart(1,jOIek-1 mofs(2)0=target_-aaf%istart(2,jOIek-1 n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:! Get boundaries of -aaf block to be ,j)eived in local OIe-',tBO-n-nVLIST:! coordinates n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:xlo =:)n_-aaf_i,j)Rblkstart(1,j)-mofs(1)-',tBO-n-nVLIST:ylo =:)n_-aaf_i,j)Rblkstart(2,j)-mofs(2)-',tBO-n-nVLIST:xhi =xlo+:)n_-aaf_i,j)Rblksize(1,j)-1 yhi =ylo+:)n_-aaf_i,j)Rblksize(2,j)-1 I' BO-nOdebug,u(tv)1,0et---',tBO-n-nVWRITE(-aag,'(A,2I4)') 'start: ',n-nVdddddddddddddddddddddddd:)n_-aaf_i,j)Rblkstart(1,j),:)n_-aaf_i,j)Rblkstart(2,j)-',tBO-n-nVLd:)n_writeBO-nO,ank,':)n_-ap_field, Zur2d',-aag,info)-',tBO-n-nVWRITE(-aag,'(A,2I4)') 'size: ',n-nVdddddddddddddddddddddddd:)n_-aaf_i,j)Rblksize(1,j),:)n_-aaf_i,j)Rblksize(2,j)-',tBO-n-nVLd:)n_writeBO-nO,ank,':)n_-ap_field, Zur2d',-aag,info)-',tBO-n-nVWRITE(-aag,'(A,2I4)') 'maaf offset: ',mofs(1),mofs(2)-',tBO-n-nVLIST:Ld:)n_writeBO-nO,ank,':)n_-ap_field, Zur2d',-aag,info)-',tBO-n-nVWRITE(-aag,'(A,2I4)') 'xlo,:xhi: ',xlo,x e Ld:)n_writeBO-nO,ank,':)n_-ap_field, Zur2d',-aag,info)-',tBO-n-nVWRITE(-aag,'(A,2I4)') 'ys _yhi: ',ys _y e Ld:)n_writeBO-nO,ank,':)n_-ap_field, Zur2d',-aag,info)-',tBO-n-nVWRITE(-aag,'(A,I1)') '-nVLISTdim: ',epime Ld:)n_writeBO-nO,ank,':)n_-ap_field, Zur2d',-aag,info)-#Sand __DIM== __VFIELDs ifAIINT!3nnd)WRITE(-aag,'(A,2I4)') 'SIZE(f :,:): ',SIZE(f :,:,2)(,nsdddddddddddddddddER,-opSIZE(f :,:,3)-',tBO-n-nVLIST:Ld:)n_writeBO-nO,ank,':)n_-ap_field, Zur2d',-aag,info)-#elSan__DIM== __SFIELDs ifAIINT!3nnd)WRITE(-aag,'(A,2I4)') 'SIZE(f :,:): ',SIZE(f :,:,1)(,nsdddddddddddddddddER,-opSIZE(f :,:,2)-',tBO-n-nVLIST:Ld:)n_writeBO-nO,ank,':)n_-ap_field, Zur2d',-aag,info)-#enfaa _usep_(di,n.#Sand __DIM== __VFIELDs ifAIINT!3nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:! Without mask: This will vect_3izes ifAIINT!3nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusORsOR-',tBO-n-nVLIST:I' B.NOT. ifSENT(mask),0et---',tBO-n-nVn.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEed f_3 epim=1 n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::I' Bepim Lfne1,0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddd ddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dd,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,nsdddddddddddddddddER,-opddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,nsdddddddddddddddddER,-opddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddd ddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=d FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(-n-nVLLrtypCCLfneedees ,wp, ZuradL))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e dddddddnVbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Os(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nV(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(RRRRR,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEed f_3 epim=2R,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifISIO_COMPLEXi-nVLISTpui-nVLIST+ 2 #elloi_usep_i-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Os(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Os(i-nVLIS)n#elSand__KI== __SINGLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddlSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIf :,:(1,B0INT,j-aadddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aad-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=d FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))Rtbuilddeof dddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifIIIIIIIIIIIIIdddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#ei-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinnnnnnnnnnnnnnnnnnnnnnddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,B0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Os(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf,BOIe)0+ddddddddddddddddddddand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,B0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIlSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO------------and__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIf :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:f :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nVim=3(diO-s ifAIINT!3nnd)(diO-s ifAIINT!3nnd)(RRRRR,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s3ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEed f_3 epim=2R,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))RtbuilddddddddddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifIIIIIIIIIIIIIdddddddddddddddCMPLX(:)n_,j)RR,R,0e Os(i-nVLIS),-nV(kinc_doNape,n#ei-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddR,0e Os(i-nVLIS),-nV(kinc_doNape,n#ei-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddddddddddddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)dddddddddd:)n_,j)RR,0e Os(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INTLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(ddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 )f :,:(opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIOf :,i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIf :,:(1,B0INT,j-aadddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aad-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGI3,BOIe)0=ddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)ddddddddddddddddddddddddddddddddddd3,BOIe)0=dddddddddddd-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=d FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))RtbuilddddddddddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifIIIIIIIIIIIIIdddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#ei-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinnnnnnnnnnnnnnnnnnnnnnddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,B0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Os(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,nui-nVLIST+ 1 #enfaa #Sand __KI-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,nui-nVLIST+ 1 #enfaa #Sand __KI-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf,BOIe)0+ddddddddddddddddddddand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,B0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIpond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIlSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO------------and__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGIf :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:f :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO------------and__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGI3,BOIe)0=ddddddddddddddd :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddd_LOGI3,BOIe)0=dddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:3,BOIe)0=ddddddddddddddd :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddd_LOGI3,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nVim=4dddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-dSa2)ore O I -BO-s4ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEed f_3 epim=2R,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))RtbuilddddddddddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifIIIIIIIIIIIIIdddddddddddddddCMPLX(:)n_,j)RR,LISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddR,0e Os(i-nVLIS),-nV(kinc_doNape,n#ei-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)Ri-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)dddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)dddddddddd:)n_,j)RR,0e Os(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INTLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(ddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 83,f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 )f :,:(opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIOf :,i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGIf :,:(1,B0INT,j-aadddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aad-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGI3,BOIe)0=ddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)ddddddddddddddddddddddddddddddddddd3,BOIe)0=dddddddddddd-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGI4,BOIe)0=ddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)ddddddddddddddddddddddddddddddddddd4,BOIe)0=dddddddddddd-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=d FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))RtbuilddddddddddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifIIIIIIIIIIIIIdddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#eRi-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa4,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinnnnnnnnnnnnnnnnnnnnnnddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,B0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsd3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO4,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Os(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,nui-nVLIST+ 1 #enfaa #Sand __KI-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,4,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,nui-nVLIST+ 1 #enfaa #Sand __KI-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,4,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __INTEGERf,BOIe)0+ddddddddddddddddddddand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,B0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIpond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIlSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO4,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIlSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddd dd (f :,:(1,B0INT,j-aaf,BOIe)ddddddd De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO------------and__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGIf :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:f :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO------------and__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGI3,BOIe)0=ddddddddddddddd :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddd_LOGI3,BOIe)0=dddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:3,BOIe)0=ddddddddddddddd :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddd_LOGI3,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO------------and__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))4,BOIe)0=ddddddddddddddd :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddd4,BOIe)0=dddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:4,BOIe)0=ddddddddddddddd :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBO------------(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-nVim=5dddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO------------(di,n.#enfaa BO-n-dSa2)ore O I -BO-s5ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::n UnroEEed f_3 epim=2R,-op,-opond83,nnd)n.---B!RrOOn)ytbuildSa2)ore O I -BO-s ifneeded =IINT!3 RusOR-',tBO-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))RtbuilddddddddddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifIIIIIIIIIIIIIdddddddddddddddCMPLX(:)n_,j)RR,LISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=ddddddddddddddR,0e Os(i-nVLIS),-nV(kinc_doNape,n#ei-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)Ri-nVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n_usep_faa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n_usep_i-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,BddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)dddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)dddddddddd:)n_,j)RR,0e faa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)dddddddddd:)n_,j)RR,0e Os(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INTLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(2,B0INT,j-aaf,BOIe)0=ddddddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(ddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 83,f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 83,f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 )f :,:(opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,ni-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIOf :,i-nVLISTpui-nVLIST+ 2R,-op,-opond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO3,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO4,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGIf :,:(1,B0INT,j-aadddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)dddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aad-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGI3,BOIe)0=ddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)ddddddddddddddddddddddddddddddddddd3,BOIe)0=dddddddddddd-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))4,BOIe)0=ddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)ddddddddddddddddddddddddddddddddddd4,BOIe)0=dddddddddddd-n.---yepss),0et---',tBO-n-nVepss),0et---',tBO-n-nVand__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))5,BOIe)0=ddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)ddddddddddddddddddddddddddddddddddd5,BOIe)0=dddddddddddd-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=d FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfneedees ,wp, Zurifpl2)o))RtbuilddddddddddddddddddddddddnVLmcon=ys _y e etbmcon=xlo,x e#Sand __KI== __SINGLEs ifISIO_COMPLEX |d__KI== __DOUBLEs ifIIIIIIIIIIIIIdddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#eRR,0e Os(i-nVLIS),-nV(kinc_doNape,n_usep_faa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa4,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,5,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinnnnnnnnnnnnnnnnnnnnnnddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIOf :,:(1,B0INT,j-aaf,B0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsd3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO4,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinc_doNape,n#elSand__KI== __SINGLEs ifISIO5,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,5,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Os(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,0e Os(i-nVLIS-1)(,nsdddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,f,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,n,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,n,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_sinfd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddf :,:(1,B0I(i-nVLIS),-nV(kinc_sinfd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(dddddER,5,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Os(i-nVLIS)ni-nVLISTpui-nVLIST+ 1 f :,:(2,B0INT,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBLEs ifISIO_COMPLEXf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddf :,:(1,B0If :,:(2,B0INT,nsdddddddddddddddddER,-opdddddddddd:)n_,j)RR,0e Os(i-nVLIS),-nV(kinc_single,n#elSand__KI== __DOUBL Os(i-nVLIS),-nV(kinc_single,n,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,n,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_sinfd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddf :,:(1,B0I(i-nVLIS),-nV(kinc_sinfd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddddd-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIRR,0e Os(i-nVLIS),-nV(kinc_single,ni-nVLISTpui-nVLIST+ 2 dddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinnnnnnnnnnnnnnnnnnnnnnddddREAL(:)n_,j)RR,0e Os(i-nVLIS),-nV(kinVLIST+ 2R,-op,-opond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIOf :,e)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIpond83,nnd)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,3,BOIe)0=dddddddddVLddd0e Os(i-nVLIS-1)(,nsdddddddddddddddddER,d)f :,:(opdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO3,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsd(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 1 #enfaa #Sand __KIdddddddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kinddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGERf :,:(1,B0INT,j-aaf,BOIe)0=dddddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)) #elSand__KI== __LOGIddddddddddddddddddddddddI' BO-nO,j)RR,0e Os(i-nVLIS),u(tv)ddddddddddddddd=dddddddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:3,BOIe)0=ddddddddddddddd :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddd_LOGI3,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,).....................d__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGIf :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:f :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO------------and__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))_LOGI3,BOIe)0=ddddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIeNT,j-ddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:f :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO--------------d__KI== __SINGLEs ifISIOdddddddddddddddddddddddddddddddddf :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))))))))4,BOIe)0=ddddddddddddddd :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddd4,BOIe)0=dddddddddddddddddddd(1.0_-nV(kinc_single-n.---yedddddddd(1.0_-nV(kinc_single-nf :,:f :,:(1,B0INT,j-aaaaaaaaadddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO--------------d__KI4,BOIe)0= (f :,:f :,:(1,B0INT,j-ddddddd De- De-sd__KI4,BOaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))4,BOIe)0= (f :,:f :,:(1,B0INT,j-ddddddd De- De-sd__KI4,BOaf,BOIeddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nVf :,:4,BOIe)0=ddddddddddddddd :,:(1,B0INT,j-aaf,BOIe)0+dddddddddddddddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBO------------(-n--',tBOFddd 5 the vectlength will be !!Ie)0+dddddddddddddddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBO------------(-n--',ddINT(:)n_,j)RR,0e Os(i-nV--------(di,n.#enfaa BO-n-nVim=5dddddd dd (f :,:(1,B0INT,j-aaf,BOIe)0.AND. FA-n- kVL ERp,vp,). ).iBO----------0.AND. FA-n- kVL ERp,vp,)p,). )k=1,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe) e)0=d FA-n- -',tBO-n-nV(di,n.#enfaa BO-n e)0=d FA-n- -',tBO-n-n-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfne ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd I== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1) ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd Ic_doNape,n#elSand__KI== __SINGLEs ifISIO5,BOIe)0=dddddddddddddd0e ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf Ic_doNape,n#elSand__KIddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREA ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf Ic_doNape,n#elSand__KIdddddddddd-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nV ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd IddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI= ddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De- e-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO-------------- ))))))))k4,BOIedddddddddddddd ddddINT(:)n_,j)RR,0e Os(i-nVLIS))))))))) ))))))))k4,BOIedddddddddddddddINT(:)n_,j)RR,0e Os(i- -n.---yepss),0et---',tBO-n-nV f :,:4,BOIe)0=ddddd f :,:4,BOIe)0=ddddd-nO,j)RR,0e Os(i-nVLIS),u(tv)ddddddddddddddddddddddddddddddddddd5,BOIe)0=dddddddddddd-n.---yepss),0et---',tBO-n-nVf :,:(1,B0INT,jO-n-nV ,). )k=1,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe) e)0=d FA-n- -',tBO-n-nV(di,n.#enfaa BO-n e)0=d FA-n- -',tBO-n-n-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n--------------------------------))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin I== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1) ))))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin Ic_doNape,n#elSand__KI== __SINGLEs ifISIO5,BOIe)0=dddddddddddddd0e ))))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf Ic_doNape,n#elSand__KIddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREA ))))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf Ic_doNape,n#elSand__KIdddddddddd-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nV ))))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin IddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI= ddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De- e-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO-------------- ))))))))k4,BOIe)0= (f :,:f :,:(1,B0INT,j-ddddddd De- De- e-sd__KIk4,BOaf,BOIe)0+ddddddddddddddddddddddddddddddddd ddddINT(:)n_,j)RR,0e Os(i-nVLIS))))))))) ))))))))k4,BOIe)0= (f :,:f :,:(1,B0INT,j-ddddddd De- De- e-sd__KIk4,BOaf,BOIeddddddddddddddd(1.0_-nV(kinc_single-n -n.---yepss),0et---',tBO-n-nV f :,:4,BOIe)0=ddddd f :,:4,BOIe)0=ddddd-nO,j)RR,0e Os(i-nVLIS),u(tv---y-nVLIS),u(t! dddd------------(-n--',d---y-nVLIS),u(tt! ldaOIe.ddddddddddINT(:)nddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBO------------(-n-! With mask: This will not vectize so no need to un-p,dddddddddINT(:)nddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBO------------(-n-ddINT(:)n_,j)RR,0e Os(iyepss),0et---',tBO-n-nVf :,:(1,B0INT,jO-n-nVddddmask(4,B--(-n--'L ERp,vp,). ).iBO--------. )k=1,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BOIe)0=d FA-n- -',tBO-n-nV(di,n.#enfaa BO-n-nV-n-nVLIST(di,n.#enfaa BO-n--------(di,n.#enfaa BO-n-nV::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfne ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd I== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1) ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd Ic_doNape,n#elSand__KI== __SINGLEs ifISIO5,BOIe)0=dddddddddddddd0e ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf Ic_doNape,n#elSand__KIddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREA ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf Ic_doNape,n#elSand__KIdddddddddd-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nV ))))))))k4,BOIe)0=dddddddddddddddddddddddddddddddddd IddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI= ddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De- e-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO-------------- ))))))))k4,BOIedddddddddddddd ddddINT(:)n_,j)RR,0e Os(i-nVLIS))))))))) ))))))))k4,BOIedddddddddddddddINT(:)n_,j)RR,0e Os(i- -n.---yepss),0et---',tBO-n-nV )ddddddddddddddddddddddddddddddddddd5,BOI::::(-n-I' Bepim Lfne2,0et---',tBO-n--------------------------------))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin I== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1) ))))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin Ic_doNape,n#elSand__KI== __SINGLEs ifISIOddddddddddddddddddddddddddddddddddREA ))))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf Ic_doNape,n#elSand__KIddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREA ))))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf Ic_doNape,n#elSand__KIdddddddddd-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nV ))))))))k4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd De- e-))))))k4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(kin IddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI= ddddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd De- e-s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO-------------- ))))))))k4,BOIeeeeeeee :,:f :,:(1,B0INT,j-ddddddd De- De- e-sd__KIk4,BOaf,BOIe)0+ddddddddddddddddddddddddddddddddd ddddINT(:)n_,j)RR,0e Os(i-nVLIS))))))))) ))))))))k4,BOIe)0= (f :,:f :,:(1,B0INT,j-ddddddd De- De- e-sd__KIk4,BOaf,BOIeddddddddddddddd(1.0_-nV(kinc_single-n -n.---yepss),0et---',tBO-n-nV -yedddddddd(1.0_-nV(kinc_singlf :,:4,BOIe)0=ddddd-dINT(:)n_,j)RR,0e Os(i-nVLIS)))ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vpT(:)n_,j)RR,0e Os(i-nVLIS)))dddf ldoddddeddddd skip this pointT(:)n_,j)RR,0e Os(i-nVLIS)))ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vpT-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BO-nVe)0.A*2)(di,n.#enfaa B-nVj-ss),0et---',tBO-n-nVd---y-nV! maskddddedddddf :,:4,BOIe)0=f :,:4,BOIed---y-nVLIS),u(tt! SEdddmask== __INT,tBIM De-s -FIELDf :,:4,BOIedddd.NOT.SEdddmask=--(-n--'L ERp,vp,). ).iB--------(di,n.#enfaa BO-n-nVim=5dddddd dd (f :,:yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BO0=d FA-n- -',tBO-n-nV(di,n.#enfaa B0=d FA-n- -',tBO-n-n-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n--------------------------d__KI4,BOIe)0=ddddddddddddddddddddddddddddddd== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=dddddddddddddd0e Os(i-nVLISd__KI4,BOIe)0=dddddddddddddddddddddddddddddddc_doNape,n#elSand__KI== __SINGLEs ifISIOddddddddddddddddddddddddddddddddddd__KI4,BOIe)0=ddddddddddddddddddddddddddddddd-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-c_doNape,n#elSand__KIddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddd__KI4,BOIe)0=ddddddddddddddddddddddddddddddd-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-c_doNape,n#elSand__KIdddddddddd-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpuid__KI4,BOIe)0=dddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KIdddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO-----------d__KI4,BOIedddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS))))))d__KI4,BOIedddddddddddddddINT(:)n_,j)RR,0e Os.---yepss),0et---',tBO-n-nV-nO,j)RR,0e Os(i-nVLIS),u(tv--f :,:4,BOIe)0=)ddddddddddddddddddddddddddddddddddd5,BOIe)0=dddddddddddd-n.yepss),0et---',tBO-n-nVf :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BO0=d FA-n- -',tBO-n-nV(di,n.#enfaa B0=d FA-n- -',tBO-n-n-n-nVLIST::::(-n-I' Bepim Lfne2,0et---',tBO-n--------------------------d__KI4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd d__KI4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=dddddddddddddd0e Os(i-nVLISd__KI4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd d__KI4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(c_doNape,n#elSand__KI== __SINGLEs ifISIOddddddddddddddddddddddddddddddddddd__KI4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd d__KI4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-c_doNape,n#elSand__KIddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddd__KI4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd d__KI4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-c_doNape,n#elSand__KIdddddddddd-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpuid__KI4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd d__KI4,BOdddddd:)n_,j)RR,0e Osi-nVLIS),-nV(ddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KIdddddddddddddddddddddddddddddddd dd (f :,:f :,:(1,B0INT,j-ddddddd s kVL ERp,vp,). ).iBO------------(-n--'L ERp,vp,). ).iBO-----------d__KI4,BOIeeeeeeee :,:f :,:(1,B0INT,j-ddddddd De- (d__KI4,BOaf,BOIe)0+ddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS))))))d__KI4,BOIeeeeeeee :,:f :,:(1,B0INT,j-ddddddd De- (d__KI4,BOaf,BOIeddddddddddddddd(1.0_-nV(kinc_singl.---yepss),0et---',tBO-n-nV-nO,j)RR,0e Os(i-nVLIS),u(tv--f :,:4,BOIe)0=-yedddddddd(1.0_-ddINdddddd(1.0_-!dddSEdddmask==f :,:4,BOIe)0=yepss),0et---',tBO-n-nVf :,:(1,B0INT,jO-n-nVddddmask(4,B--(-n---aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BO0=d FA-n- -',tBO-n-nV(di,n.#enfaa B0=d FA-n- -',tBO-n-n-n-nVLIST(di,n.#enfaa B--------(di,n.#enfaa BO-n-nV::::(-n-I' Bepim Lfne2,0et---',tBO-n-nVnVLLitypCCLfned__KI4,BOIe)0=ddddddddddddddddddddddddddddddd I== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsd4,BOIe)0=ddddddddddddddddddddddddddddddd Ic_doNape,n#elSand__KI== __SINGLEs ifISIOddddddddddddddddddddddddddddddddddREA(,nsd4,BOIe)0=ddddddddddddddddddddddddddddddd I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_4,BOIe)0=ddddddddddddddddddddddddddddddd I-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddddd-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 4,BOIe)0=ddddddddddddddddddddddddddddddd IddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGER4,BOIeddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))4,BOIedddddddddddddddINT(:)n_,j)RR,0e Os(i-.---yepss),0et---',tBO-n-nV)ddddddddddddddddddddddddddddddddddd5,BOI::::(-n-I' Bepim Lfne2,0et---',tBO-n-----------------------------d__KI4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd ---d__KI4,BOfaa #Sand __KI== __DOUBLEs ifISIOf :,:(1,B0INT,j-aa5,BOIe)0=dddddddddddddd0e Os(i-nVLIS-1)(,nsd4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd ---d__KI4,BOfaa #Sand __KIc_doNape,n#elSand__KI== __SINGLEs ifISIOddddddddddddddddddddddddddddddddddREA(,nsd4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd ---d__KI4,BOfaa #Sand __KI-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,dddddddddddddddddddddddddddddddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd ---d__KI4,BOfaa #Sand __KI-nVLISTpui-nVLIST+ 2 f :,:(1,B0INT,j-aaf,BOIe)0=dd,ddddddddddddddddddddd-nVLIS-1)(,nsdddddddddddddddddER,4,BOIe)0=dddddddddVLISTpui-nVLIST+ 4,BOIe)0= :,:f :,:(1,B0INT,j-ddddddd ---d__KI4,BOfaa #Sand __KIddddREAL(:)n_,j)lSand__KI== __INTEGERpdddddddddd:)n_,j)RR,0kCddddddand__KI== __SINGLEs ifISIO5,BOIe)0=ddddddddddddddddddddddddddddddddddddddREAL(:)n_,j)lSand__KI== __INTEGER4,BOIeeeeeeee :,:f :,:(1,B0INT,j-ddddddd De- De-sd__KI4,BOaf,BOIe)0+dddddddddddddddddddddddddddddddddddINT(:)n_,j)RR,0e Os(i-nVLIS)))))))))))))))4,BOIeeeeeeee :,:f :,:(1,B0INT,j-ddddddd De- De-sd__KI4,BOaf,BOIeddddddddddddddd(1.0_-nV(kinc_single-n.---yepss),0et---',tBO-n-nV-yedddddddd(1.0_-nV(kinc_si-dINT(:)n_,j)RR,0e Os(i-nVLIS)))ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vpT(:)n_,j)RR,0e Os(i-nVLIS)))dddf ldoddddeddddd skip this pointT(:)n_,j)RR,0e Os(i-nVLIS)))ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vpT-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,f :,:(1,B0INT,j-aaf,BO0=d FA-n- -',tBO-n-nV(di,n.#enfaa B0=d FA-n- -',tBO-n-n-n-nVLIST(di,n.#enfad---y-nVL! maskddddedddddf :,:4,BOIe)0=f :,:4,BOIed---y-nVLIS),u(! SEdddmask== _VLISTf :,:4,BOIe!ddddddLEs ifISI f :,:4,BOIeOIe!dddddnLEs listT(:)n_,d---y-nVLIS),u(ttBOIeOIe!ddddddddd T(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddDecrement the set countSI ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddddifISI_set =,ddddifISI_set -n-nT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddDeallocate the LEseive ',tBO-naafall sets have 'een popedT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,= __SINGifISI_set .L1,j)lSand__KI==iopt =,dddddddddddeallocnd__KI=== __SINGddddddddddddddddddddddddddj)lSand__KI== __IdddLdddddalloc_SINGLEs ifISIO,ldu,iopt,infodddddddddd(1-dINT(:)n_,j)RR,0e dddLdddddalloc_SINGLEs ifISId,ldu,iopt,infodddddddddd(1--yedddddddd(1= __info .Ndd 0dj)lSand__KI== __Iinfo =,dddderrorderrorT(:)n_,j)RR,0e dddLddddderror(dddderrdalloc,'ddREAap_fieldddddd2d',R,0e :,:f :,:(1,B0IN'LEseive ',tBO-nPPM_VBUFFER',dddINE__,infodddddddddd(1--yedddddd--yeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddDeallocate invSIOe sub listT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,iopt =,dddddddddddeallocnd__KIdddLdddddalloc_invsublist,ldu,iopt,infodddddddd= __info .Ndd 0dj)lSand__KI==info =,dddderrorderrorT(:)n_,j)RRdddLddddderror(dddderrddealloc,'ddREAap_fieldddddd2d',R,0e :,:f :,:(1,'invSIOe sub listddVS-n-IST',dddINE__,infodddddddd--yeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddReturnT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(9999 CONTINUEnd__KIdddLdsubstop('ddREAap_fieldddddd2d',t0,infoddddddddRETURand__KICONTAINSnd__KIS-nROUTINE checkT(:)n_,j)RRdddLdddddcheck_id(target_topoid,target_id,ldo,infodddddddddd(1= __SINGifISI_set .L1,j)lSand__KI====info =,dddderrordnotic(dddLddddderror(dddderrdargument,'ddREAap_fieldddddd2d',R, :,:f :,:(1,B0IN'',tBO-nas empty. Cannot ddd.',dddINE__,infodddddddddd(11111GOTO 8888ddddddddd(1--yedddddddd(1= __.NOT. ldodj)lSand__KI== __Iinfo =,dddderrorderrorT(:)n_,j)RR,0e dddLddddderror(dddderrdargument,'ddREAap_fieldddddd2d',R, :,:f :,:(1,B0IN'destination id out of range',dddINE__,infodddddddddd(11111GOTO 8888ddddddddd(1--ye-aaf,B,tBIM De-s VFIELDf :,:4= __ldaO.L1,j)lSand__KI====info =,dddderrorderrorT(:)n_,j)RR,0e dddLddddderror(dddderrdargument,'ddREAap_fieldddddd2d',R, :,:f :,:(1,B0IN'ldaOmustbe >0 for vect__KI',dddINE__,infodddddddddd(11111GOTO 8888ddddddddd(1--ye-__INT,tBIM De-s -FIELDf :,:4= __ldaO.Ndd 1,j)lSand__KI====info =,dddderrorderrorT(:)n_,j)RR,0e dddLddddderror(dddderrdargument,'ddREAap_fieldddddd2d',R, :,:f :,:(1,B0IN'ldaOmustbe =1 for scala__KI',dddINE__,infodddddddddd(11111GOTO 8888ddddddddd(1--ye-_VLIST= __SIZE(ghostsize,1,j.L2,j)lSand__KI====info =,dddderrorderrorT(:)n_,j)RR,0e dddLddddderror(dddderrdargument,'ddREAap_fieldddddd2d',R, :,:f :,:(1,B0IN'ghostsizeOmustbe given for all dnsions',dddINE__,infodddddddddd(11111GOTO 8888ddddddddd(1--yedddddddd(1= __(ghostsize(1,j.L0dj.OR. (ghostsize(2,j.L0d,j)lSand__KI====info =,dddderrorderrorT(:)n_,j)RR,0e dddLddddderror(dddderrdargument,'ddREAap_fieldddddd2d',R, :,:f :,:(1,B0IN'ghostsizeOmustbe >=0=in all dnsions',dddINE__,infodddddddddd(11111GOTO 8888ddddddddd(1--yedddddddd(1= __(ddddddNdd enfaa BO-n-nVaf,BOI::,:f :,:(1,(ddddddNdd enfaa BO-n-nVdddd,j)lSand__KI====info =,dddderrorderrorT(:)n_,j)RR,0e dddLddddderror(dddderrdargument,'ddREAap_fieldddddd2d',R, :,:f :,:(1,B0IN'Unknown LEseive dddddspecified',dddINE__,infodddddddddd(11111GOTO 8888ddddddddd(1--yed8888R,0e dONTINUEnd__KI-S-nROUTINE checkT-aaf,BOIeBIM De-s -FIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI-S-nROUTINE ddREAap_fieldddddd2d_sca_sdddddddCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI-S-nROUTINE ddREAap_fieldddddd2d_sca_d== __SINGLEs ifISIOddddddddddddd-S-nROUTINE ddREAap_fieldddddd2d_sca_scdddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd-S-nROUTINE ddREAap_fieldddddd2d_sca_dcdddddddCMPLX(:)n_,j)ddddER,4,BOIe)-S-nROUTINE ddREAap_fieldddddd2d_sca_i= __INTEGERpdddddddddd:)n_,j-S-nROUTINE ddREAap_fieldddddd2d_sca_le-_VLIST= __INTEGEBIM De-s VFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI-S-nROUTINE ddREAap_fieldddddd2d_vec_sdddddddCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI-S-nROUTINE ddREAap_fieldddddd2d_vec_d== __SINGLEs ifISIOddddddddddddd-S-nROUTINE ddREAap_fieldddddd2d_vec_scdddddddCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd-S-nROUTINE ddREAap_fieldddddd2d_vec_dcdddddddCMPLX(:)n_,j)ddddER,4,BOIe)-S-nROUTINE ddREAap_fieldddddd2d_vec_i= __INTEGERpdddddddddd:)n_,j-S-nROUTINE ddREAap_fieldddddd2d_vec_le-_VLIST-_VLISTlibddR-1.2/src/Aap/ddREAap_fieldddddd3d.f000644 000765 000024 00000567437 11445666062 020553 0ustar00omarstaff000000 000000 :)n_,jddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddSubroutinen_,:dddddddd(11111 ddREAap_fieldddddd3dT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), T(:)n_,ddCentSI for Fluid Dynamics (DTUdddddddd!ddddddd!ddddddd! This filenas a Bt of the P BOllel P BticlenM Library (PPM).ddddddd!ddddddd! PPMnas free software: you can LEdistribute it and/or moLISyddddddd! it undSI the tSIms of the GNU LessSI GeneBOl Public Licnse T(:)n_,ddas aublished by the Free Software Foundation, either T(:)n_,ddvSIOion 3 of the Licnse, or (at your option) any later T(:)n_,ddvSIOion.ddddddd!ddddddd! PPMnas distributed=in the hope that it will beuseful,ddddddd! but WITHOUT ANY WARRANTY; without even the implied warranty ofddddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOddd See theddddddd! GNU GeneBOl Public Licnse for more details.ddddddd!ddddddd! You should have LEseived a copy of the GNU GeneBOl Public LicnseT(:)n_,ddand the GNU LessSI GeneBOl Public Licnse along with PPM.df not,ddddddd! see .ddddddd!ddddddd! P BOllel P BticlenM Library (PPM)ddddddd! ETH ZurichT(:)n_,! CH-8092 Zurich, SwitzerlandT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT-aaf,BOIeBIM De-s -FIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIS-nROUTINE ddREAap_fieldddddd3d_sca_s(target_topoid,target_id,d__KI,e :,:f :,:(1,B0INT,j-dddghostsize,info,mask== __INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIS-nROUTINE ddREAap_fieldddddd3d_sca_d(target_topoid,target_id,d__KI,e :,:f :,:(1,B0INT,j-dddghostsize,info,mask== __INTCMPLX(:)n_,j)dddddddddddddS-nROUTINE ddREAap_fieldddddd3d_sca_sc(target_topoid,target_id,d__KI, :,:f :,:(1,B0INT,j-dddghostsize,info,mask== __INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddS-nROUTINE ddREAap_fieldddddd3d_sca_dc(target_topoid,target_id,d__KI, :,:f :,:(1,B0INT,j-dddghostsize,info,mask== __INTCMPLX(:)n_,j)ddddER,4,BOIe)S-nROUTINE ddREAap_fieldddddd3d_sca_i(target_topoid,target_id,d__KI,e :,:f :,:(1,B0INT,j-dddghostsize,info,mask== __INTCMPLX(:)n_,j)dddddddd:)n_,jS-nROUTINE ddREAap_fieldddddd3d_sca_l(target_topoid,target_id,d__KI,e :,:f :,:(1,B0INT,j-dddghostsize,info,mask== _VLIST-__INTEGEBIM De-s VFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIS-nROUTINE ddREAap_fieldddddd3d_vec_s(target_topoid,target_id,d__KI,e :,:f :,:(1,B0INT,j-dddlda,ghostsize,info,mask== __INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIS-nROUTINE ddREAap_fieldddddd3d_vec_d(target_topoid,target_id,d__KI,e :,:f :,:(1,B0INT,j-dddlda,ghostsize,info,mask== __INTCMPLX(:)n_,j)dddddddddddddS-nROUTINE ddREAap_fieldddddd3d_vec_sc(target_topoid,target_id,d__KI, :,:f :,:(1,B0INT,j-dddlda,ghostsize,info,mask== __INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddS-nROUTINE ddREAap_fieldddddd3d_vec_dc(target_topoid,target_id,d__KI, :,:f :,:(1,B0INT,j-dddlda,ghostsize,info,mask== __INTCMPLX(:)n_,j)ddddER,4,BOIe)S-nROUTINE ddREAap_fieldddddd3d_vec_i(target_topoid,target_id,d__KI,e :,:f :,:(1,B0INT,j-dddlda,ghostsize,info,mask== __INTCMPLX(:)n_,j)dddddddd:)n_,jS-nROUTINE ddREAap_fieldddddd3d_vec_l(target_topoid,target_id,d__KI,e :,:f :,:(1,B0INT,j-ddlda,ghostsize,info,mask== _VLIST-_VLISTT,j-dd!!! This routinenddds the list',tBO-nfor 3D __KITT,j-dd!!!TT,j-dd!!! [NOTE]TT,j-dd!!! The on-process__KInas in the firsta Bt of the ifISI !!! Reallocates the d__KI arraynaafneeded. The usSI does not need !!! to care about its size.df we want to change this to improve !!! callability from C, argument checks should beaddednfor theddddddd!!! SIZE of d__KI.df the call to invSIt_listis too slow here, this !!! could bedonenby topo_store and storednfor each topology. !!! At the expnse of some extra mory. !!!TT,j-dd!!! [WARN]TT,j-dd!!! BIM is the dnsion of the d__KI arraynand not the spaceddddddd!!! dmsion ddREd!TT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dd! IncludesTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT#include "ddREdefine.h"eT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddModulesTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddUSE ddREAodule___KITT,j-ddUSE ddREAodule___KI_TT,j-ddUSE ddREAodule_dddddefTT,j-ddUSE ddREAodule_subst BtTT,j-ddUSE ddREAodule_substopTT,j-ddUSE ddREAodule_errorT(:)n_,USE ddREAodule_allocnd__KIUSE ddREAodule_writend__KIUSE ddREAodule_check_idnd__KIUSE ddREAodule_util_invSIt_listnd__KIIddICIT NONE-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tdddddddddddddddddER,, PARAMETER :: MK =,dddddddddddddddddddER,, PARAMETER :: MK =,ddddddddd-nVLIST-_VLISTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddddArgumentsTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT#iaf,B,tBIM De-s -FIELD-aaf,BMPLX(:)n_,j)ddddER,4,BOIe)ddddER, , BIMEN(:,:,:,:)Ie), POddddR :: d__KIe-__INT,tLX(:)n_,j)dddddddd:)n_,jddddddd , BIMEN(:,:,:,:)Ie), POddddR :: d__KIe-__INT,tLX(:)n_,j)-',tBO-n-nV(-n--',tBO-n-p,f(MK), BIMEN(:,:,:,:), POddddR :: d__KIe-__== MK), BIMEN(:,:,:,:)Ie), POddddR :: d__KIe-_VLIST-__INTGEBIM De-s VFIELD-aaf,BMPLX(:)n_,j)ddddER,4,BOIe)ddddER, , BIMEN(:,:,:,:,:)Ie), POddddR :: d__KIe-__INT,tLX(:)n_,j)dddddddd:)n_,jddddddd , BIMEN(:,:,:,:,:)Ie), POddddR :: d__KIe-__INT,tLX(:)n_,j)-',tBO-n-nV(-n--',tBO-n-p,f(MK), BIMEN(:,:,:,:,:), POddddR :: d__KIe-__== MK), BIMEN(:,:,:,:,:)Ie), POddddR :: d__KIe-_VLIST-_VLISTT,j-dd!!! Field__KI. !!!TT,j-dd!!! 1stindex: ldaOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO+TT,j-dd!!! 2nd-4thindex: (i,j,k) relative do ist Bt-1 of the sub TT,j-dd!!! (i.e.(i,j,k)=(1,1,1,jcorresponds do ist Bt)OOOOOOOOOOOOOOOOOOOOOOOOOOOOO+TT,j-dd!!! 5th: 4, 1...nsublist (all subs on this process). !!!TT,j-dd!!! For scalafields, the firstindex is omitted=(the others shiftTT,j-dd!!! accordddddy). ddddddd, BIMEN(:,:,:,:), POddddR, OPTdd :: maskTT,j-dd!!! Logical maskd !!!TT,j-dd!!! Only the nodesnfor which this is e will beTT,j-dd!!! Aapped. df not given, all points are Aapped. !!!TT,j-dd!!! 1st-3ndindex: (i,j,k) OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO+TT,j-dd!!! 4rd: 4,.e-aaf,B,tBIM De-s VFIELDf ddddER, , ddddNT(IN ) :: ldaTT,j-dd!!! The leadddd dnsion of the d__KI. !!! lda=1 for the case of scala__KIT-_VLISTT,j-ddddddER, , ddddNT(IN ) :: target_id !!! M ID of destinationTT,j-ddddddER, , ddddNT(IN ) :: target_topoidTT,j-dd!!! Topology ID of destinationTT,j-ddddddER,, BIMEN(:) , ddddNT(IN ) :: ghostsizeTT,j-dd!!! NumbSI of points in the ghost layO-nan each dnsionTT,j-ddddddER, , ddddNT( OUT) :: info !!! Return status, 0 on successTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddddLocal variablesTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddddddER,, BIMEN(3) :: mofsTT,j-ddddddER,, BIMEN(5) :: ldu,ldlTT,j-ddddddER, :: i,j,k,-',tBO-,M__KI,k4,TT,j-ddddddER, :: iopt,xhi-',t,z,t,,B0It---z---bd,j4,TT,j-ddddddER, :: bdddd,,idom== MK) :: t0d:)n_,jddddddd :: ldoTT,j-ddddddER, :: dddd-------CHARACddR(LEN=ddddchar) :: gT#iaf,B,tBIM De-s -FIELDT,j-ddddddER,, PARAMETER :: ldaOIe-n-nVLISTTYPE(ddddt_equi_), POddddR :: target_TTYPE(ddddt_topo),R,0e POddddR :: target_topoeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddExternalsTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dd! InitialiseTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dddddLdsubst Bt('ddREAap_fieldddddd3d',t0,infoddTTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dd! Check argumentsTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddd __SINGdebug0dj)lSand__KIdddLdcheckT(:)n_,j)= __info .Ndd 0djGOTO 9999T(:)n_,--yeT(:)n_,d skip iaf',tBO-nemptyTT,j-ddd __SINGifISI_set .L1,j)lSand__KId __SINGdebug1,j)lSand__KI==dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',R, :,:f :,:(1,B0'B,tBO-nas empty: skippddd ddd!',infodddddddddd--yeddddddddGOTO 9999T(:)n_,--yeTTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dd! set the local pointers do the topology and T!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddtarget_topo =>dddddtopo(target_topoid)%tTT,j-ddtarget_=>dtarget_topo%(target_id) TT,j-ddd __SINGdebug0dj)lSand__KIdddLdcheck_twoT(:)n_,j)= __info .Ndd 0djGOTO 9999T(:)n_,--yeT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dd! Check what dddddof dddnas needed ( or ddddTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddd __SINGAap_ddddddddddddddddddddAap_initdj)lSand__KIinfo =,dddderrorderrorT(:)n_,j)dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',R, :,:f :,:(1'Aap_fielddddd cannot be called after ghost_init',dddINE__,infodddddddddddddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',R, :,:f :,:(1'ghost_initOmustnot be called directly by the usSI',dddINE__,infoddddddddddGOTO 9999T(:)n_,-)ddddddSINGAap_ddddddddddddddddddddAap_ghost_putdj)lSand__KIddddd=,dddddddddd-nVdddT(:)n_,-)ddnd__KIddddd=,dddddddddd-nVT(:)n_,--yeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dd! Check that the LEquired dinsion fits the dnsion of the ifISI !dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddbd =,ddddifISI_d_SINGifISI_set)-aaf,BMPLX(:)n_,j)-',tBO-n-nV(-n--',tBO-n-p,f! for complex the eISctive dnsion is half the __KI dnsionTT,j-dded =,bd/Ved =,bdT-_VLISTT,j-ddd __SINGdebug1,j)lSand__KI==WRITE(g,'(2(A,I3))') 'bd=',,'==lda=',ldaTT,j-dddddddddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodddddddd--ye-aaf,B,tBIM De-s VFIELDf dFe)0.A.Nddlda,j)lSand__KI=info =,dddderrorderrorT(:)n_,j)RdddLddddderror(dddderrdwrong_,'ddREAap_fieldddddd3d',R,R, :,:f :,:(1'leadddd dnsion LDAnas in error',dddINE__,infodddddddddd(GOTO 9999T(:)n_,--ye-__INT,tBIM De-s -FIELDf dFe)0.A.Ndd1,j)lSand__KI=info =,dddderrorderrorT(:)n_,j)RdddLddddderror(dddderrdwrong_,'ddREAap_fieldddddd3d',R,R, :,:f :,:(1'',tBO-ndoes not contain 1d__KI!',dddINE__,infodddddddddd(GOTO 9999T(:)n_,--ye-_VLIST=!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dd! Check that the LEquired dddddas identical do the tddddof the ifISI !dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddbddddd=,ddddifISI_dddd_SINGifISI_set)-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIdFebdddd.Nddddddddddddddddd,j)lSand__KI=info =,dddderrorderrorT(:)n_,j)RdddLddddderror(dddderrdwrong_dLEs,'ddREAap_fieldddddd3d',R,R, :,:f :,:(1'tryddd do ddd a non-dddddd=indo dddddd=',dddINE__,infodddddddddd(GOTO 9999T(:)n_,--ye-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIdFebdddd.Nddddddddddd-nVLIS-j)lSand__KI=info =,dddderrorderrorT(:)n_,j)RdddLddddderror(dddderrdwrong_dLEs,'ddREAap_fieldddddd3d',R,R, :,:f :,:(1'tryddd do ddd a non--nVLIS=indo -nVLIS=',dddINE__,infodddddddddd(GOTO 9999T(:)n_,--ye-__INTCMPLX(:)n_,j)ddddddddddddddFebdddd.Nddddddddddddddddd,j)lSand__KI=info =,dddderrorderrorT(:)n_,j)RdddLddddderror(dddderrdwrong_dLEs,'ddREAap_fieldddddd3d',R,R, :,:f :,:(1'tryddd do ddd a non-dddddd-complex indo dddddd-complex', :,:f :,:(1dddINE__,infodddddddddd(GOTO 9999T(:)n_,--ye-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddddFebdddd.Nddddddddddd-nVLIS-j)lSand__KI=info =,dddderrorderrorT(:)n_,j)RdddLddddderror(dddderrdwrong_dLEs,'ddREAap_fieldddddd3d',R,R, :,:f :,:(1'tryddd do ddd a non--nVLIS-complex indo -nVLIS-complex', :,:f :,:(1dddINE__,infodddddddddd(GOTO 9999T(:)n_,--ye-__INTCMPLX(:)n_,j)ddddER,4,BOIe)dFebdddd.Nddddddinteg)lSand__KI=info =,dddderrorderrorT(:)n_,j)RdddLddddderror(dddderrdwrong_dLEs,'ddREAap_fieldddddd3d',R,R, :,:f :,:(1'tryddd do ddd a non-integ indo integ ',dddINE__,infodddddddddd(GOTO 9999T(:)n_,--ye-__INTCMPLX(:)n_,j)dddddddd:)n_,jdFebdddd.Nddddddlogical)lSand__KI=info =,dddderrorderrorT(:)n_,j)RdddLddddderror(dddderrdwrong_dLEs,'ddREAap_fieldddddd3d',R,R, :,:f :,:(1'tryddd do ddd a non-logical indo logical ',dddINE__,infodddddddd--ye-_VLIST=!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dd! DetSIminensizeOof dield__KI arraynneeded=!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddxhi =,0d:)n_,jyhi =,0d:)n_,jzhi =,0d:)n_,jf =1,target_topo%nsublistTT,j-ddddddidom =,target_topo%isublist(idddddddddd(1= __target_%nnodes(1,idom)xhi,j)lSand__KI====xhi =,target_%nnodes(1,idom)nd__KI==--yedddddddd(1= __target_%nnodes(2,idom)yhi,j)lSand__KI====yhi =,target_%nnodes(2,idom)nd__KI==--yedddddddd(1= __target_%nnodes(3,idom)zhi,j)lSand__KI====zhi =,target_%nnodes(3,idom)nd__KI==--yedddddd=!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-dd! Reallocate arraynaafneededTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddd __dSINGAap_ddddddddddddddddddddAap_ghost_getdj.OR. R, :,:f :,dSINGAap_ddddddddddddddddddddAap_ghost_putdj.OR. R, :,:f :,ddddddddddddddddddddddddddddd,j)lSand__KI==!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERnd__KI==! Preserve oldfieldsnaafthis is do LEseive ghosts or do dddT(:)n_,==! contributionsnd__KI==!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERnd__KI==iopt =,ddddddddddalloc_fit_dLEserveT(:)n_,-)ddnd__KI==iopt =,ddddddddddalloc_fitddddddd--ye-aaf,B,tBIM De-s VFIELDf ldu(1,j=jf ldu(2,j=xhi+ghostsize(1,jf ldu(3,j=yhi+ghostsize(2,jf ldu(4,j=zhi+ghostsize(3,jf ldu(5) =,target_topo%nsublistTT,j-ddldl(1,j=1TT,j-ddldl(2,j=1-ghostsize(1,jf ldl(3,j=1-ghostsize(2,jf ldl(4,j=1-ghostsize(3,jf ldl(5)OIe-n-n_INT,tBIM De-s -FIELDf ldu(1,j=xhi+ghostsize(1,jf ldu(2,j=yhi+ghostsize(2,jf ldu(3,j=zhi+ghostsize(3,jf ldu(4) =,target_topo%nsublistTT,j-ddldl(1,j=1-ghostsize(1,jf ldl(2,j=1-ghostsize(2,jf ldl(3,j=1-ghostsize(3,jf ldl(4,j=1T-_VLISTT,j-dddddLdddddalloc_d__KI,ldl,ldu,iopt,infodddddddd= __info .Ndd 0dj)lSand__KI==info =,dddderrordf_KIlnd__KI==dddLddddderror(dddderrdalloc,'ddREAap_fieldddddd3d',R, :,:f :,:(1,'new__KI FDATA',dddINE__,infodddddddddd(1GOTO 9999T(:)n_,--yeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ER ERnd__KI! Build the invSIOe sub listdo fddddlocal sub indeices based onTT,j-dd! global ones (the global ones are communicateddTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddiopt =,ddddddddddalloc_fitdddddddldu(1,j=target_topo%nsublistTT,j-dddddLdddddalloc_sublist,ldu,iopt,infodddddddd= __info .Ndd 0dj)lSand__KI==info =,dddderrordf_KIlnd__KI==dddLddddderror(dddderrdalloc,'ddREAap_fieldddddd3d',R, :,:f :,:(1,'temporary sub listS-n-IST',dddINE__,infodddddddddd(1GOTO 9999T(:)n_,--yeT,j-dd! Wefneed to copy it indo a temp list, dddce directly uddddeT,j-dd! ddddisublist(:dddddfielddtopoid)das an argument to invSIt_listiseT,j-dd! not ddssiLIS=dddce the argument needs do bea POddddR. sublist(1:target_topo%nsublist,j= :,:f :,:(1,B0INT,j-ddddddtarget_topo%isublist(1:target_topo%nsublist,TT,j-dddddLdddddutil_invSIt_list_sublist,invsublist,infoddddddddiopt =,dddddddddddeallocnd__KIdddLdddddalloc_sublist,ldu,iopt,infodddddddd= __info .Ndd 0dj)lSand__KI==info =,dddderrorderrorT(:)n_,j)RRdddLddddderror(dddderrddealloc,'ddREAap_fieldddddd3d',R,0e :,:f :,:(1,'temporary sub listS-n-IST',dddINE__,infodddddddd--yeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddDetSIminenthe numbSI of __KI points do beLEseivedT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,M__KI =,0d:!ddddd= __SEdddmask=--(-n--'ddf =1,ddREnLEs listT(ddddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(ddd access blocks belongddd do the i-th process in theT(ddd LEs listT(ddddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(ddyeps=dddddLEs ifISI(id,dddddLEs ifISI(i+1)-1T(ddddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOT(ddddDetSIminenrange in local sub coordddatesT(ddddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOT(ddj4, =,dddd_irecvto4,(j)T(ddi4, =,invsublist(j4,)T(ddmofs(1,j=p_%ist Bt(1,j4,)-1T(ddmofs(2,j=p_%ist Bt(2,j4,)-1T(ddmofs(3,j=p_%ist Bt(3,j4,)-1T(ddxlo =,dddd_irecvblkst Bt(1,j)-mofs(1,T(ddylo =,dddd_irecvblkst Bt(2,j)-mofs(2,T(ddzlo =,dddd_irecvblkst Bt(3,j)-mofs(3,T(ddxhi =,xlo+dddd_irecvblksize(1,j)-1T(ddyhi =,ylo+dddd_irecvblksize(2,j)-1T(ddzhi =,zlo+dddd_irecvblksize(3,j)-1T(ddddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOT(ddddCount points for which mask is drueT(ddddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOT(ddyepk=z---zT,jOddyepss),0et---',tBOddf :,:(1,B0INT,jOdd ddddmask(1,k4,=--M__KI =,M__KI -n-nOdddddddddddd-)ddnd__KI=f =1,ddREnLEs listT((((((((((((ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T((((((((((((d access blocks belongddd do the i-th process in theT((((((((((((d LEs listT((((((((((((ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T((((((((((((yeps=dddddLEs ifISI(id,dddddLEs ifISI(i+1)-1T(((((((((((((((ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOT(((((((((((((((d(1Get the numbSI of points in this blockT(((((((((((((((ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOT(((((((((((((((M__KI =,M__KI -n(dddd_irecvblksize(1,j)*((((((((( :,:f :,:(1,B0INdddd_irecvblksize(2,j)*dddd_irecvblksize(3,j)dddddddddd(111f :,:dd--yeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,dddf therddas nothddd do be sent we are doneTT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddd __M__KI ddddd0dj)lSand__KI==d __SINGdebug0dj)lSand__KIdddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',R,, :,:f :,:(1,B0IN'Therddas no __KI do beLEseived',infodddddddddd==--yedddddddd(1GOTO 9999T(:)n_,--yeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ER ERnd__KI! Decrement the pointer indo the LEseive ',tBO-TT,j-dd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpTT,j-ddd __SINGdebug1,j)lSand__KI==WRITE(g,'(2(A,I9))') 'ddREnLEs =d FA-n- ',ddREnLEs =d FA-,R,, :,:f :,:(1,'M__KI*bd =,',M__KI*bdT(:)n_,j)RRdddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodddddddd--yeddddddddREnLEs =d FA-n- ddREnLEs =d FA-n- M__KI*bdTdddddddi=d FA-n- ddREnLEs =d FA-TT,j-ddd __SINGdebug1,j)lSand__KI==WRITE(g,'(A,I9)') 'i=d FA-n- ',iifISI RdddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodddddddd--yeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ER ERnd__KI! Decrement the pointer indo the sendf',tBO-ndo allow reusenbynd__KI! multipIS=dequential push-send-ddd cycles.ddddddd!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ER ERnd__KIM__KI =,0d::::::f =1,ddREnsendlistT(((((((((!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ER T(((((((((! access blocks belongddd do the i-th process in theT(((((((((! sendlistT(((((((((!dd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ER T(((((((((yeps=dddddsendifISI(id,dddddsendifISI(i+1)-1T((((((((((((ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T((((((((((((d Get the numbSI of points in this blockT((((((((((((ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T((((((((((((M__KI =,M__KI -n(dddd_isendilksize(1,j)*((((((((( :,:f :,:(1,Bdddd_isendilksize(2,j)*dddd_isendilksize(3,j)dddddddddd(f f ddREnsend=d FA-n- ddREnsend=d FA-n-,ddddifISI_d_SINGifISI_set)*M__KIeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ER ERnd__KI! DebugoutputT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,d __SINGdebug0dj)lSand__KI--------(di,n.#enfaa BO-n-nV dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',R,,,, :,:f :,:(1,B0I'Rddd current dieldvalues',infodddddddddd==-)dddddddddddddddddddddddddddddddddd5,BOI dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',R,,,, :,:f :,:(1,B0I'Addddd do current dieldvalues',infodddddddddd==--yedddddd--yeT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddLodd ovSI the LEseived blocksT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,d((ye,5,B Ie)0=dddnd__KIddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL ERp,vpT(:)n_,d __SINGddddddddddddddddddd-nVLIS-j)lSand__KI=f =1,ddREnLEs listT((((((((((((ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T((((((((((((d Access blocks belongddd do the i-th process in theT((((((((((((d LEs listT((((((((((((ddd4,BOIe)0=dddddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T((((((((((((yeps=dddddLEs ifISI(id,dddddLEs ifISI(i+1)-1T(((((((((((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((d Get the 4, ID for this blockT(((((((((((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((j4, =,dddd_irecvto4,(j)T(((((((((((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((d TLanslate to local sub ID for storddd dhe __KIT(((((((((((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((i4, =,invsublist(j4,)T(((((((((((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((d M offset for this 4,TT,j-dd(((((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((mofs(1,j=target_%ist Bt(1,j4,)-1T(((((((((((( ((mofs(2,j=target_%ist Bt(2,j4,)-1T(((((((((((( ((mofs(3,j=target_%ist Bt(3,j4,)-1T(((((((((((( ((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((d Get boundaries of block do beLEseived in local subT(((((((((((( ((d coordddatesT(((((((((((( ((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((xlo =,dddd_irecvblkst Bt(1,j)-mofs(1,T(((((((((((((((ylo =,dddd_irecvblkst Bt(2,j)-mofs(2,T(((((((((((((((zlo =,dddd_irecvblkst Bt(3,j)-mofs(3,T(((((((((((( ((xhi =,xlo+dddd_irecvblksize(1,j)-1T(((((((((((((((yhi =,ylo+dddd_irecvblksize(2,j)-1T(((((((((((((((zhi =,zlo+dddd_irecvblksize(3,j)-1T(((((((((((((((d __SINGdebug1,j)lSand__KI==WRITE(g,'(A,3I4)') 'st Bt: ',R,,,,,,,,,,,, :,:f :,:(1,B0INT,j-ddddd_irecvblkst Bt(1,j),R,,,,,,,,,,,, :,:f :,:(1,B0INT,j-ddddd_irecvblkst Bt(2,j),dddd_irecvblkst Bt(3,j)nd__KI==dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodddddddd==WRITE(g,'(A,3I4)') 'size: ',R,,,,,,,,,,,, :,:f :,:(1,B0INT,j-ddddd_irecvblksize(1,j),R,,,,,,,,,,,, :,:f :,:(1,B0INT,j-ddddd_irecvblksize(2,j),dddd_irecvblksize(3,j)nd__KI==dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodddddddd==WRITE(g,'(A,3I4)') 'm offset: ',mofs(1,,mofs(2,,mofs(3,T(((((((((((( ((dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodddddddd==WRITE(g,'(A,2I4)') ',B0I(xhi: ',,B0INT,jO((((((((((( ((dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodddddddd==WRITE(g,'(A,2I4)') 't---(yhi: ',t---',tBO((((((((((( ((dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodddddddd==WRITE(g,'(A,2I4)') 'z---(zhi: ',z---zT,jO((((((((((( ((dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodddddddd==WRITE(g,'(A,I1)') 'b,tBO-ndim: ',edT(:)n_,j)RR(( ((dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodd-aaf,B,tBIM De-s VFIELDf :,:4WRITE(g,'(A,3I4)') 'SIZE(d__KI): ',SIZE(d__KI,2),R, :,:f :,:(1,B0INNNNNNSIZE(d__KI,3),SIZE(d__KI,4,T(((((((((((( ((dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodd-__INT,tBIM De-s -FIELDf :,:4WRITE(g,'(A,3I4)') 'SIZE(d__KI): ',SIZE(d__KI,1),R, :,:f :,:(1,B0INNNNNNSIZE(d__KI,2),SIZE(d__KI,3,T(((((((((((( ((dddLdddddwrite_SINGLank,'ddREAap_fieldddddd3d',g,infodd _VLIST (1--ye-aaf,B,tBIM De-s VFIELDf :,:444444ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((d Without mask: This will vectizeTT,j-dd:,:444444ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOL T(((((((((((( ((= __.NOT.SEdddmask=--(-n--''''''''''''''''''ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''''''''''''''''d Unrolled for ed=1T((((((((((((((('''ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''''''''''''''''dFe)0.Adddddd1,j)lSand__KI==--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(1,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''''''''''''''''d Unrolled for ed=2edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''''''''''''''''-)dddddd)0.Adddddd2,j)lSand__KI==--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(2,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(2,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d Unrolled for ed=3edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''''''''''''''''-)dddddd)0.Adddddd3,j)lSand__KI==--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(1,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(2,k4,=n- end__KI====-)ddnd__KI====d__KI(2,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(3,k4,=n- end__KI====-)ddnd__KI====d__KI(3,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(3,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(3,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d Unrolled for ed=4edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111-)dddddd)0.Adddddd4,j)lSand__KI==--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(1,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(2,k4,=n- end__KI====-)ddnd__KI====d__KI(2,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(3,k4,=n- end__KI====-)ddnd__KI====d__KI(3,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(4,k4,=n- end__KI====-)ddnd__KI====d__KI(4,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,d__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,d__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,d__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(3,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(3,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(4,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(4,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d Unrolled for ed=5edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111-)dddddd)0.Adddddd5,j)lSand__KI==--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(1,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(2,k4,=n- end__KI====-)ddnd__KI====d__KI(2,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(3,k4,=n- end__KI====-)ddnd__KI====d__KI(3,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(4,k4,=n- end__KI====-)ddnd__KI====d__KI(4,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(5,k4,=n- end__KI====-)ddnd__KI====d__KI(5,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,d__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,d__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(3,k4,=n- :,:f :,d__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 2edddddddd(111111111d__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(3,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(3,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(4,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(4,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KId __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(5,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(5,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(5,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(5,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d For ed5 the vector length will be ed !!edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111-)ddnd__KI====--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOOOOO yepk=1,edj-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)ddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddddd d __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd dd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI==== d__KI(k,k4,=n- end__KI==== -)ddnd__KI==== d__KI(k,k4,=n- eFA)ddnd__KI==== --ye-_VLIST= -f :,:=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOOOOO yepk=1,edj-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d__KI(k,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)ddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddddd d __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd dd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI==== d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd dd dd(d__KI(k,k4,=n.AND.e,T(((((((((((( (( -)ddnd__KI==== d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd dd dd(d__KI(k,k4,=n.AND.eFA)dd,T(((((((((((( (( --ye-_VLIST= -f :,:=-f :,:=-f :,:=-f :,:=--y! dddd-''''dddd(111111111--y! ldan- e.nd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111! With mask: This will not vectorize so no need to unrollnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111-)ddnd__KI====yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOd __mask(k4,=,j)lSand__KI====yepk=1,edj-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,fffffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLISTffffffffffffffffffffffff--------(di,n.#enfaa BO-n-nV-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)ddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddddd d __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd dd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI==== d__KI(k,k4,=n- end__KI==== -)ddnd__KI==== d__KI(k,k4,=n- eFA)ddnd__KI==== --ye-_VLIST= -)ddddddddddddddddddddddddddddddddddd5,BOI-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d__KI(k,k4,=+ :,:f :,:(1,B0INT,j-dddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)ddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INN,j-ddddddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INN,j-ddddddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=+ :,:f :,:(1,B0INT,j-ddddddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddddd d __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd dd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI==== d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd dd dd(d__KI(k,k4,=.AND. :,:f :,:(1,B0INT,j-ddddddddddd dd dde,T(((((((((((( (( -)ddnd__KI==== d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd dd dd(d__KI(k,k4,=.AND. :,:f :,:(1,B0INT,j-ddddddddddd dd ddeFA)dd,T(((((((((((( (( --ye-_VLIST= --ye(((((((((((( ((-f :,:=-)ddnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI====ddf ldoddddeFA)dd skip this pointnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).n-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ d)0.A*2)fffffffffffffffffffffi=d FA-n- i=d FA-n+ edj-_VLIST=--y! maskddddend__KI====-f :,:=-f :,:=-f :,:=--y! SEdd mask== __INT,tBIM De-s -FIELDf :,:=d __.NOT.SEdd mask=,j)lSand__KI====--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vfffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INN,j-ddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INN,j-ddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-dddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(k4,=n- end__KI====-)ddnd__KI====d__KI(k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vfffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-dddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-dddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-ddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INN,j-ddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-ddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INN,j-ddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-ddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-dddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddd dd(d__KI(k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddd dd(d__KI(k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--ye(((((((((((( ((-)dd(((((((((( ((! SEdd mask==f :,:=yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOd __mask(k4,=,j)lSan-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vfffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLISTfffffffffffffffffffff--------(di,n.#enfaa BO-n-nV-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISId(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(k4,=n- end__KI====-)ddnd__KI====d__KI(k4,=n- eFA)ddnd__KI====--ye-_VLIST=-)ddddddddddddddddddddddddddddddddddd5,BOI-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-dddddddd dd== SINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-ddddddddd ddSINGLEs ifISId(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-dddddddd ddCddX SINGLEs ifISId(i=d FA--1), :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-dddddddd ddCddX SINGLEs ifISId(i=d FA--1), :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISId(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(k4,=+ :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISId(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISId(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddd-nVLIS-ddREAyepsdd,j)lSand__KI====d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd dd(d__KI(k4,=n.AND.e,T(((((((((((( (( -)ddnd__KI====d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd dd(d__KI(k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=--ye(((((((((((( ((-)ddnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI====ddf ldoddddeFA)dd skip this pointnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).n-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vfffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLISTffffffffffffffffff--y! maskddddend__KI====-f :,:=-f :,:=-f :,:=--y! SEdd mask== _VLISTffffff-f :,:=!ddddddLEs ifISI ffffff-f :,:=!dddddnLEs listnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KId-',tBO Ie)0=dddnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KI-)ddnd__KI=yep =1,ddddnLEs listnd__KId__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpnd__KId__KId Access blocks belongddd to the i-th processor in thend__KId__KId LEs listnd__KId__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpnd__KId__KIyeps=dddddLEs ifISI(i),dddddLEs ifISI(i+1)-1Td__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111! Get the 4, ID for this blockTd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111j4, =ddddd_iLEs to4,(j,T(((((((((((( ((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111! Translate to local 4, ID for storidd the __KIT(((((((((((( ((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111i4, =dinv4,list(j4,,T(((((((((((( ((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111! M offset for this 4,T(((((((((((( ((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111mofs(1=n- targetd%istart(1,j4,,-1Td__KImofs(2=n- targetd%istart(2,j4,,-1Td__KImofs(3=n- targetd%istart(3,j4,,-1Td__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111! Get boundaries of block to be LEseived in local 4,-''''dddd(111111! coordinatesTd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111xlo =ddddd_iLEs blkstart(1,j)-mofs(1=-''''dddd(111111ylo =ddddd_iLEs blkstart(2,j)-mofs(2=-''''dddd(111111zlo =ddddd_iLEs blkstart(3,j)-mofs(3=-''''dddd(111111xhi =dxlo+dddd_iLEs blksize(1,j)-1Td__KIyhi =dylo+dddd_iLEs blksize(2,j)-1Td__KIzhi =dzlo+dddd_iLEs blksize(3,j)-1Td__KId __SINGdebug1,j)lSand__KI====WRITE(g,'(A,3I4)') 'start: ',==== :,:f :,:(1,B0INT,j-ddddd_iLEs blkstart(1,j),==== :,:f :,:(1,B0INT,j-ddddd_iLEs blkstart(2,j),dddd_iLEs blkstart(3,j)nd__KI====dddLdddddwrite_SINGLank,'ddddap_fieldddddd3d',g,info)nd__KI====WRITE(g,'(A,3I4)') 'size: ',==== :,:f :,:(1,B0INT,j-ddddd_iLEs blksize(1,j),==== :,:f :,:(1,B0INT,j-ddddd_iLEs blksize(2,j),dddd_iLEs blksize(3,j)nd__KI====dddLdddddwrite_SINGLank,'ddddap_fieldddddd3d',g,info)nd__KI====WRITE(g,'(A,3I4)') 'm offset: ',mofs(1=,mofs(2=,mofs(3=-''''dddd(111111dddLdddddwrite_SINGLank,'ddddap_fieldddddd3d',g,info)nd__KI====WRITE(g,'(A,2I4)') ',B0I1xhi: ',,B0INT,jOOOOOOOOOOOOOOOOOOOdddLdddddwrite_SINGLank,'ddddap_fieldddddd3d',g,info)nd__KI====WRITE(g,'(A,2I4)') 't---yhi: ',t---',tBOOOOOOOOOOOOOOOOOOOdddLdddddwrite_SINGLank,'ddddap_fieldddddd3d',g,info)nd__KI====WRITE(g,'(A,2I4)') 'z---zhi: ',z---zT,jOOOOOOOO dddLdddddwrite_SINGLank,'ddddap_fieldddddd3d',g,info)nd__KI====WRITE(g,'(A,I1)') '=d FA-ndim: ',edjOOOOOOOO dddLdddddwrite_SINGLank,'ddddap_fieldddddd3d',g,info)n-aaf,B,tBIM De-s VFIELDf :,:=WRITE(g,'(A,3I4)') 'SIZE(d__KI): ',SIZE(d__KI,2),R, :,:f :,:(1,B0INNNNNNSIZE(d__KI,3),SIZE(d__KI,4=-''''dddd(111111dddLdddddwrite_SINGLank,'ddddap_fieldddddd3d',g,info)n __INT,tBIM De-s -FIELDf :,:=WRITE(g,'(A,3I4)') 'SIZE(d__KI): ',SIZE(d__KI,1),R, :,:f :,:(1,B0INNNNNNSIZE(d__KI,2),SIZE(d__KI,3)-''''dddd(111111dddLdddddwrite_SINGLank,'ddddap_fieldddddd3d',g,info)n _VLISTfffffffff--ye-aaf,B,tBIM De-s VFIELDf :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111! Without mask: This will vectorizef :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111d __.NOT.SEdd mask=,j)lSand__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d Unrolled for ed=1Td__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d __ed ddddd1,j)lSand__KI====--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddd dd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(1,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d(d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d Unrolled for ed=2edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111-)ddd __ed ddddd2,j)lSand__KI====--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(1,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(2,k4,=n- end__KI====-)ddnd__KI====d__KI(2,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d(d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d(d__KI(2,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d Unrolled for ed=3edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111-)ddd __ed ddddd3,j)lSand__KI====--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(1,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(2,k4,=n- end__KI====-)ddnd__KI====d__KI(2,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(3,k4,=n- end__KI====-)ddnd__KI====d__KI(3,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d(d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d(d__KI(2,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd (d__KI(3,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd(d__KI(3,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d Unrolled for ed=4edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111-)ddd __ed ddddd4,j)lSand__KI====--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(1,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(2,k4,=n- end__KI====-)ddnd__KI====d__KI(2,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(3,k4,=n- end__KI====-)ddnd__KI====d__KI(3,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(4,k4,=n- end__KI====-)ddnd__KI====d__KI(4,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f IIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f IIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f IIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d(d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d(d__KI(2,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd (d__KI(3,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd(d__KI(3,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI==d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddd(d__KI(4,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd(d__KI(4,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d Unrolled for ed=5edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111-)ddd __ed ddddd5,j)lSand__KI====--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- end__KI====-)ddnd__KI====d__KI(1,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(2,k4,=n- end__KI====-)ddnd__KI====d__KI(2,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(3,k4,=n- end__KI====-)ddnd__KI====d__KI(3,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(4,k4,=n- end__KI====-)ddnd__KI====d__KI(4,k4,=n- eFA)ddnd__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(5,k4,=n- end__KI====-)ddnd__KI====d__KI(5,k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f IIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)ed__KIi=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f IIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,eddddddi=d FA-n- i=d FA-n+ Vddddddd__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(3,k4,=n- :,:f IIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-effffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vddddddd__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(1,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(2,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(2,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(3,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(4,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(4,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)==,BOIe)i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(5,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd__KI(5,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d(d__KI(1,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(1,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(1,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d(d__KI(2,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(2,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(2,k4,=n.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd (d__KI(3,k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(3,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd (d__KI(3,k4,=.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI=======================d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddd(d__KI(4,k4,=.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(4,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddd(d__KI(4,k4,=.AND.eFA)dd,T(((((((((((( ((--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Td__KIIIIIIIIIIIIIIIIIIIIIIIIIId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI=======================d__KI(5,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddd(d__KI(5,k4,=.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(5,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddd(d__KI(5,k4,=.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--yedddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111d For ed5 the vector length will be ed !!edddddddd(111111111ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBO-''''dddd(111111111-)ddnd__KI====--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOOOO yepk=1,edj-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIII d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)ddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddddd IId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd dd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI======================= d__KI(k,k4,=n- end__KI==== -)ddnd__KI==== d__KI(k,k4,=n- eFA)ddnd__KI==== --ye-_VLIST= -f :,:=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOOOO yepk=1,edj-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIII d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)ddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddddd IId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd dd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI======================= d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddd dd(d__KI(k,k4,=.AND. :,:f :,:(1,B0INT,j-ddddddddddddddd dde,T(((((((((((( (( -)ddnd__KI==== d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddd dd(d__KI(k,k4,=.AND. :,:f :,:(1,B0INT,j-ddddddddddddddd ddeFA)dd,T(((((((((((( (( --ye-_VLIST= -f :,:=-f :,:=-f :,:=-f :,:=--y! dddd-''''dddd(111111111--y! ldan- e.nd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111! With mask: This will not vectorize so no need to unrollnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBO-''''dddd(111111-)ddnd__KI====yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOd __mask(k4,=,j)lSand__KI=================yepk=1,edj-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffff ffi=d FA-n- i=d FA-n+ Vffffffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLISTffffffffffffffffffffffff--------(di,n.#enfaa BO-n-nV-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIII d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-dddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)ddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNdddddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddddd IId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd dd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI======================= d__KI(k,k4,=n- end__KI==== -)ddnd__KI==== d__KI(k,k4,=n- eFA)ddnd__KI==== --ye-_VLIST= -)ddddddddddddddddddddddddddddddddddd5,BOI-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIII d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd d__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)ddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INT,j-ddddddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd ddd__KI(k,k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddddd IId __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd dd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI======================= d__KI(k,k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddddd dd(d__KI(k,k4,=.AND. :,:f :,:(1,B0INT,j-ddddddddddddddd dde,T(((((((((((( (( -)ddnd__KI==== d__KI(k,k4,=n- :,:f :,:((((((((((((((((((((((((((((((d__KI(k,k4,=.AND. :,:f :,:(1,B0INT,j-ddddddddddddddd ddeFA)dd,T(((((((((((( (( --ye-_VLIST= --ye(((((((((((( ((-f :,:=-)ddnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI====dIIdf ldoddddeFA)dd skip this pointnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).n-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ _ed*2)fffffffffffffffffffffi=d FA-n- i=d FA-n+ edj-_VLIST=--y! maskddddend__KI====-f :,:=-f :,:=-f :,:=--y! SEdd mask== __INT,tBIM De-s -FIELDf :,:=d __.NOT.SEdd mask=,j)lSand__KI========--------(di,n.#enfaa BO-n-nV yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vfffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIId__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INT,j-ddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INT,j-ddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-dddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====================d__KI(k4,=n- end__KI====-)ddnd__KI====d__KI(k4,=n- eFA)ddnd__KI====--ye-_VLIST=-f :,:=-f :,:=-f :,:=-)ddddddddddddddddddddddddddddddddddd5,BOI yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,j-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vfffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLIST-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIId__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddd__KI(k4,=n+ :,:f :,:(1,B0INT,j-dddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddd__KI(k4,=n+ :,:f :,:(1,B0INT,j-ddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddd__KI(k4,=n+ :,:f :,:(1,B0INT,j-ddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INT,j-ddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddd__KI(k4,=n+ :,:f :,:(1,B0INT,j-ddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INT,j-ddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddd__KI(k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-dddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====================d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(k4,=n.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddd (d__KI(k4,=n.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=-f :,:=-f :,:=-f :,:=--ye(((((((((((( (-)dd(((((((((( (!dd _SEdd mask==f :,:=yepk=z---zT,jOOOOOOOO yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOd __mask(k4,=,j)lSan-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vfffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLISTfffffffffffffffffffff--------(di,n.#enfaa BO-n-nV-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddd dd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(k4,=n- :,:f :,:(1,B0INT,j-dddddddd ddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(k4,=n- end__KI====-)ddnd__KI====d__KI(k4,=n- eFA)ddnd__KI====--ye-_VLIST=-)ddddddddddddddddddddddddddddddddddd5,BOI-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIIIIIIId__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddIIId__KI(k4,=n+ :,:f :,:(1,B0INT,j-ddddddddddd== SINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KId__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddIIId__KI(k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddSINGLEs ifISIs(i=d FA-)e-__INTCMPLX(:)n_,j)dddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddIIId__KI(k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddddddddd,e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddd__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddIIId__KI(k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddCddX SINGLEs ifISIs(i=d FA--1),R, :,:f :,:(1,B0INNNNNNddddddddddSINGLEs ifISIs(i=d FA-),ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddIIId__KI(k4,=n+ :,:f :,:(1,B0INT,j-dddddddddddddd SINGLEs ifISIs(i=d FA-)== __INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddddddddd __SINGLEs ifISIs(i=d FA-) :,:f :,:(1,B0INT,j-ddddddddddd(1.0_ddddddddddddddd-ddREAyepssd,j)lSand__KI====d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddd(d__KI(k4,=.AND.e,T(((((((((((( ((-)ddnd__KI====d__KI(k4,=n- :,:f :,:(1,B0INT,j-ddddddddddddd(d__KI(k4,=.AND.eFA)dd,T(((((((((((( ((--ye-_VLIST=--ye(((((((((((( ((-)ddnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI====dIIdf ldoddddeFA)dd skip this pointnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).n-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tBO-n-p,ffffffffffffffffffffffi=d FA-n- i=d FA-n+ Vfffffffffffffffffffffi=d FA-n- i=d FA-n+ 1T-_VLISTffffffffffffffffff--y! maskddddend__KI====-f :,:=-f :,:=-f :,:=--y! SEdd mask== _VLISTffffff-f :,:=!ddddddLEs ifISI ffffff-f :,:=!dddddnLEs listnd__KI--y!ddddddddd nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIDecrement the set countSI fffddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIddddifISI_set =ddddifISI_set - 1Tnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIDeallocate the LEseive =d FA-naafall sets have =een popednd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KId __SINGifISI_set .L1,j)lSand__KI==iopt =dddddddddddeallocnd__KI==d __SINGddddddddddddddddddddddddd,j)lSand__KI====dddLdddddalloc_SINGLEs ifISIs,ldu,iopt,info,T((((((((((-)ddnd__KI====dddLdddddalloc_SINGLEs ifISId,ldu,iopt,info,T((((((((((--ye((((((((((d __info .Nd 0,j)lSand__KI====info =dddderrorderrornd__KI====dddLddddderror(dddderrdalloc,'ddREAap_fieldddddd3d',=== :,:f :,:(1,B0IN'LEseive =d FA-nPPM_VBUFFER',j)dINE__,info,T((((((((((--ye((((((--yend__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIDeallocate invSIse sub listnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIiopt =dddddddddddeallocnd__KIdddLdddddalloc_invsublist,ldu,iopt,info,T((((((d __info .Nd 0,j)lSand__KI==info =dddderrorderrornd__KI==dddLddddderror(dddderrddealloc,'ddREAap_fieldddddd3d',=== :,:f :,:(1,'invSIse sub listdddVS-n-IST',j)dINE__,info,T((((((--yend__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIReturnnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd9999 CONTINUEnd__KIdddLdsubstop('ddREAap_fieldddddd3d',t0,info,T((((((RETURand__KICONTAINSnd__KIS-nROUTINE checknd__KI==dddLdddddcheck_id(target_topoid,target_id,ldo,info,T((((((((((d __SINGifISI_set .L1,j)lSand__KI====info =dddderrordnoticffffffffdddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0IN'=d FA-nas empty. Cannot ddd.',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--ye((((((((((d __.NOT. ldo,j)lSand__KI====info =dddderrorderrornd__KI====dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0IN'destination id out of range',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--ye-aaf,B,tBIM De-s VFIELDf :,:=d __ldan.L1,j)lSand__KI====info =dddderrorderrornd__KI====dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0IN'ldanmustdbe >0 for vector __KI',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--ye-__INT,tBIM De-s -FIELDf :,:=d __ldan.Nd 1,j)lSand__KI====info =dddderrorderrornd__KI====dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0IN'ldanmustdbe =1 for scalar __KI',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--ye-_VLISTffffd __SIZE(ghostsize,1,j.L3,j)lSand__KI====info =dddderrorderrornd__KI====dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0IN'ghostsizenmustdbe given for all dnsions',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--ye((((((((((d __(ghostsize(1,j.L0,j.OR. (ghostsize(2,j.L0,j.OR. :,:f :,:(1,(ghostsize(3,j.L0,,j)lSand__KI====info =dddderrorderrornd__KI====dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0IN'ghostsizenmustdbe >=0=in all dnsions',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--ye((((((((((d __(ddddddNd enfaa BO-n-nV.AND.,::,:f :,:(1,(ddddddNd enfaa BO-n-nVdddd,j)lSand__KI====info =dddderrorderrornd__KI====dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0IN'Unknown LEseive dddddspecified',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--ye(8888===dONTINUEnd__KI-S-nROUTINE checknd__KIS-nROUTINE check_twoT(((((((((d __SEdd mask=,j)lSand__KI====xhi =0nd__KI====yhi =0nd__KI====zhi =0nd__KI====yep =1,target_topo%nsublistf :,:=4, =target_topo%isublist(i,T(((((((((((( ((d __target_%nnodes(1,4,=.GT.xhi,j)lSand__KI====xhi =target_%nnodes(1,4,=f :,:=--ye(((((((((((( ((d __target_%nnodes(2,4,=.GT.yhi,j)lSand__KI====yhi =target_%nnodes(2,4,=f :,:=--ye(((((((((((( ((d __target_%nnodes(3,4,=.GT.zhi,j)lSand__KI====zhi =target_%nnodes(3,4,=f :,:=--ye(((((((((((( (-f :,:=d __SIZE(mask,1,j.Lxhi,j)lSand__KI====info =dddderrorderrornd__KI========dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0INNNNN'x dnsion of mask does not match ',j)dINE__,info,T((((((((((((((((((GOTO 7777e(((((((((((( (--ye(((((((((((( (d __SIZE(mask,2,j.Lyhi,j)lSand__KI====info =dddderrorderrornd__KI========dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0INNNNN'y dnsion of mask does not match ',j)dINE__,info,T((((((((((((((((((GOTO 7777e(((((((((((( (--ye(((((((((((( (d __SIZE(mask,3,j.Lzhi,j)lSand__KI====info =dddderrorderrornd__KI========dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0INNNNN'z dnsion of mask does not match ',j)dINE__,info,T((((((((((((((((((GOTO 7777e(((((((((((( (--ye(((((((((((( (d __SIZE(mask,4,j.Ltarget_topo%nsublist,j)lSand__KI====info =dddderrorderrornd__KI========dddLddddderror(dddderrdargument,'ddREAap_fieldddddd3d',= :,:f :,:(1,B0INNNNN'mask d_KI for some subsnas misdddd',j)dINE__,info,T((((((((((((((((((GOTO 7777e(((((((((((( (--ye((((((((((--ye(7777=====dONTINUEnd__KI-S-nROUTINE check_twoT-aaf,BOIeBIM De-s -FIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI-S-nROUTINE ddREAap_fieldddddd3d_sca_se-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI-S-nROUTINE ddREAap_fieldddddd3d_sca_de-__INTCMPLX(:)n_,j)ddddddddddddd-S-nROUTINE ddREAap_fieldddddd3d_sca_sce-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd-S-nROUTINE ddREAap_fieldddddd3d_sca_dce-__INTCMPLX(:)n_,j)ddddER,4,BOIe)-S-nROUTINE ddREAap_fieldddddd3d_sca_i= __INTCMPLX(:)n_,j)dddddddd:)n_,j-S-nROUTINE ddREAap_fieldddddd3d_sca_le-_VLIST= __INTCMPBIM De-s VFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI-S-nROUTINE ddREAap_fieldddddd3d_vec_se-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI-S-nROUTINE ddREAap_fieldddddd3d_vec_de-__INTCMPLX(:)n_,j)ddddddddddddd-S-nROUTINE ddREAap_fieldddddd3d_vec_sce-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd-S-nROUTINE ddREAap_fieldddddd3d_vec_dce-__INTCMPLX(:)n_,j)ddddER,4,BOIe)-S-nROUTINE ddREAap_fieldddddd3d_vec_i= __INTCMPLX(:)n_,j)dddddddd:)n_,j-S-nROUTINE ddREAap_fieldddddd3d_vec_le-_VLIST-_VLISTlibddR-1.2/src/Aap/ddREAap_fieldddush_2d.f000644 000765 000024 00000250455 11445666062 020720 0ustar00omarstaff000000 000000 :)n_,jddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIISubroutineKI:(((((((((((((((ddREAap_fieldddush_2dnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdICopyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), nd__KIdIIIIIIIIIIIIIIIIIIIICentSI for Fluid Dynamics (DTU,T((((((!T((((((!T((((((! This filenas part of the Parallel ParticlenM Library (PPM).T((((((!T((((((! PPMnas free software: you can LEdistribute it and/or moLISyT((((((! it undSI the tSIms of the GNU LessSI General Public Licnse nd__KIdIas published by the Free Software Foundation, either nd__KIdIvSIsion 3 of the Licnse, or (at your option) any later nd__KIdIvSIsion.T((((((!T((((((! PPMnas distributed=in the hope that it will be useful,T((((((! but WITHOUT ANY WARRANTY; without even the implied=warranty ofT((((((! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOdd See theT((((((! GNU General Public Licnse for more details.T((((((!T((((((! You should have LEseived a copy of the GNU General Public Licnsend__KIdIand the GNU LessSI General Public Licnse along with PPM.Idf not,T((((((! see .T((((((!T((((((! Parallel ParticlenM Library (PPM)T((((((! ETH Zurichnd__KIdICH-8092 Zurich, Switzerlandnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).n T-aaf,BOIeBIM De-s -FIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIS-nROUTINE ddREAap_fieldddush_2d_sca_s(topoid,id,d__KI,info,mask== __INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIS-nROUTINE ddREAap_fieldddush_2d_sca_d(topoid,id,d__KI,info,mask== __INTCMPLX(:)n_,j)dddddddddddddS-nROUTINE ddREAap_fieldddush_2d_sca_sc(topoid,id,d__KI,info,mask== __INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddS-nROUTINE ddREAap_fieldddush_2d_sca_dc(topoid,id,d__KI,info,mask== __INTCMPLX(:)n_,j)ddddER,4,BOIe)S-nROUTINE ddREAap_fieldddush_2d_sca_i(topoid,id,d__KI,info,mask== __INTCMPLX(:)n_,j)dddddddd:)n_,jS-nROUTINE ddREAap_fieldddush_2d_sca_l(topoid,id,d__KI,info,mask== _VLIST-__INTCMPBIM De-s VFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIS-nROUTINE ddREAap_fieldddush_2d_vec_s(topoid,id,d__KI,ldI,info,mask== __INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIS-nROUTINE ddREAap_fieldddush_2d_vec_d(topoid,id,d__KI,ldI,info,mask== __INTCMPLX(:)n_,j)dddddddddddddS-nROUTINE ddREAap_fieldddush_2d_vec_sc(topoid,id,d__KI,ldI,info,mask== __INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddS-nROUTINE ddREAap_fieldddush_2d_vec_dc(topoid,id,d__KI,ldI,info,mask== __INTCMPLX(:)n_,j)ddddER,4,BOIe)S-nROUTINE ddREAap_fieldddush_2d_vec_i(topoid,id,d__KI,ldI,info,mask== __INTCMPLX(:)n_,j)dddddddd:)n_,jS-nROUTINE ddREAap_fieldddush_2d_vec_l(topoid,id,d__KI,ldI,info,mask==d__KId!! This routineKdushes field d_KI onto the send =d FA-nfor 2D es.T((((((!!!eddddddd!! [NOTE]eddddddd!! =======================================================================d__KId!! The on-processor __KInas stored=in the first part of the ifISI fff!!!eddddddd!! If the call to invSIt_listdas too slow here, thiseddddddd!! could be doneKby topo_storeIand stored=for eachnd__KId!! topology. At the expnse of some extra mory.T((((((!!!eddddddd!! The d__KI arrays are passSdIas `POddddR`Iand noteddddddd!! `ddddNT(IN)` even though they are not changed oI fff!!! LEallocated=inside this routine. The LEason as that fff!!! LBOU(:)can be non-standard (i.e. != 1,jINTwe have fff!!! ghost laySIsIand the corLEst LBOU(:)as only passSd fff!!! along with the arrayjINTthe lattA-nas given theT((((((!!! POddddR attribute.T((((((!!!eddddddd!! When N__KInas detSImined,Tthe mask is noteddddddd!! considered. This could lead to a too largeeddddddd!! send=d FA-nbeing allocated=inTthe last push andnd__KId!! could be optimized=later.eddddddd!! =======================================================================d__KId!!eddddddd!! [WARN]eddddddd!! BIM as the dnsion of the d__KI arrayIand not the spaceeddddddd!! dnsion ddREd!e-_VLIST-_VLISTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd IncludesTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).n#include "ddREdefine.h"end__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIModulesTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddUSE ddREAodule___KInddddddUSE ddREAodule___KI_nddddddUSE ddREAodule_dddddefnddddddUSE ddREAodule_substartnddddddUSE ddREAodule_substopnddddddUSE ddREAodule_errornd__KIUSE ddREAodule_allocnd__KIUSE ddREAodule_writend__KIUSE ddREAodule_check_idnd__KIUSE ddREAodule_util_invSIt_listnd__KIIddICIT NONE-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tdddddddddddddddddER,, PARAMEddR :: MK =dddddddddddddddddddER,, PARAMEddR :: MK =ddddddddd-nVLIST-_VLISTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd ArgumentsTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).n#iaf,B,tBIM De-s -FIELD-aaf,BMPLX(:)n_,j)ddddER,4,BOIe)ddddER, , BIMEN(:,:,:)Ie), POddddR :: d__KIe-__INT,tLX(:)n_,j)dddddddd:)n_,jddddddd , BIMEN(:,:,:)Ie), POddddR :: d__KIe-__INT,tLX(:)n_,j)-',tBO-n-nV(-n--',tBO-n-p,f(MK), BIMEN(:,:,:), POddddR :: d__KIe-__== MK), BIMEN(:,:,:)Ie), POddddR :: d__KIe-_VLIST= __INTMPBIM De-s VFIELD-aaf,BMPLX(:)n_,j)ddddER,4,BOIe)ddddER, , BIMEN(:,:,:,:)Ie), POddddR :: d__KIe-__INT,tLX(:)n_,j)dddddddd:)n_,jddddddd , BIMEN(:,:,:,:)Ie), POddddR :: d__KIe-__INT,tLX(:)n_,j)-',tBO-n-nV(-n--',tBO-n-p,f(MK), BIMEN(:,:,:,:), POddddR :: d__KIe-__== MK), BIMEN(:,:,:,:)Ie), POddddR :: d__KIe-_VLIST-_VLISTddddddd!! Field d_KI.T((((((!!!eddddddd!! 1stdandex: ldannnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn+eddddddd!! 2nd-3th andex: (i,j) LElative do istart-1 of the 4, eddddddd!! (i.e. (i,j)=(1,1,jcorLEsponds do istart)nnnnnnnnnnnnnnnnnnnnnnnnnnnnn+eddddddd!! 4th:4, 1...nsublist (all subsnon this processor).T((((((!!!eddddddd!! For scalar fields, the first andex)as omitted=(the others shifteddddddd!! accordddddy).T((((((ddddddd, BIMEN(:,:,:), POddddR, OPTdd :: mask fff!!! Logical maskdT((((((!!!eddddddd!! Only the m nodes=for which this is e will beeddddddd!! Aapped. df not given, all points are Aapped.T((((((!!!eddddddd!! 1st-2nd andex: (i,j) nnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn+eddddddd!! 3rd:4,.e-aaf,B,tBIM De-s VFIELDf ddddER, , ddddNT(IN ) :: ldaeddddddd!! The leading dnsion of the d__KI.eddddddd!! lda=1 for the case of scalar __KIT-_VLISTddddddddddER, , ddddNT(IN ) :: topoideddddddd!! Topology ID of sourceTddddddddddER, , ddddNT(IN ) :: ideddddddd!! M ID of sourceTddddddddddER, , ddddNT( OUT) :: infoeddddddd!! Returns status, 0 upon successTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd Local variablesTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddddddER,, BIMEN(2) nn:: ldu,mofsTddddddddddER, :: i,j,k,i=d FA-,4,,j4,TddddddddddER, :: iopt,N__KI,,B0INT,,t---',t,ld,Tdddddd== MK) :: t0T((((((ddddddd :: ldoeddddddCHARACddR(LEN=ddddchar) :: gn#iaf,B,tBIM De-s -FIELDddddddddddER,, PARAMEddR :: ldan- 1T-_VLISTTYPE(ddddt_topo),=== POddddR :: topoTTYPE(ddddt_equi_), POddddR :: Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd ExternalsTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd InitialiseTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).ndddddddddLdsubstart('ddREAap_fieldddush_2d',t0,info,TnTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd Check argumentsTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd __SINGdebug0,j)lSand__KIdddLdchecknd__KId __info .Nd 0,jGOTO 9999nd__KI--yend__KItopo =>ddddtopo(topoid)%tedddddd =>topo%(id)Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd Count number of __KI points do be sentnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIN__KIn=0nd__KIyep =1,ddddnsendlistf :,:ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vpf :,:d accessd blocks belonging to the i-th processor in theT((((((:,:d sendlistf :,:ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vpf :,:yeps=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1f :,::,:ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpf :,::,:d Get the number of points in this blockf :,::,:ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpf :,::,:N__KIn=N__KIn+__SING_isend=lksize(1,j)*::,: :,:f :,:(1,B0INT,j-dddddddSING_isend=lksize(2,j),T(((((((((-f -Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd If there is nothing to be sentTwe are doneTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd __N__KInddddd0,j)lSand__KI==d __SINGdebug0,j)lSand__KIdddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',:,: :,:f :,:(1,B0IN'There is no __KI to be sent',info,T((((((((((--ye((((((((((GOTO 9999nd__KI--yend__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd Increment the =d FA-nsetnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIddddifISI_set =ddddifISI_set + 1Tnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIAllocate mory for the =d FA-ndnsion and tddd-''''ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIiopt =ddddddddddalloc_growddLEserve fffldu(1,j =ddddifISI_setndddddddddLdddddalloc_SINGifISI_d,ldu,iopt,info,T((((((d __info .Nd 0,j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLddddderror(dddderrdalloc,'ddREAap_fieldddush_2d',:,:== :,:f :,:(1,'=d FA-ndnsionsnPPM_BUFFERtBIM',j)dINE__,info,T((((((((((GOTO 9999nd__KI--yedddddddddLdddddalloc_SINGifISI_tddd,ldu,iopt,info,T((((((d __info .Nd 0,j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLddddderror(dddderrdalloc,'ddREAap_fieldddush_2d',:,:== :,:f :,:(1,'=d FA-ntdddsnPPM_BUFFERtTYPE',j)dINE__,info,T((((((((((GOTO 9999nd__KI--yend__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIA complex number as treated=as two LEals. Cannot change ldaeddddddd because it as ddddNT(IN)Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).n#iaf,B,tLX(:)n_,j)-',tBO-n-nV(-n--',tBO-n-p,fld, =2*ldae-__ld, =ldae-_VLIST=d__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIStoreIthe dnsion and tddd-''''ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KISINGifISI_d_SINGifISI_set,j =ld,T-aaf,BOIe)0=d De-s -',tBO-n-nV(-n--',tdddddddddddddSINGifISI_tddd_SINGifISI_set,j=dddddddddddddddINT,tLX(:)n_,j)BO-n-p,(-n--',tBO-n-p,fSINGifISI_tddd_SINGifISI_set,j=ddddddddd-nVLIST-_INT,tLX(:)n_,j)ddddER,4,BOIe)SINGifISI_tddd_SINGifISI_set,j=ddddintegere-__INT,tLX(:)n_,j)dddddddd:)n_,jSINGifISI_tddd_SINGifISI_set,j=ddddlogicale-_VLIST=d__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIBuild the invSIse sub listdto fddddlocal sub andeices basSdIonnd__KIdIIglobal ones=(the global ones=are communicated)Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddiopt =ddddddddddalloc_fitldu(1,j= topo%nsublistf dddLdddddalloc_sublist,ldu,iopt,info,T((((((d __info .Nd 0,j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLddddderror(dddderrdalloc,'ddREAap_fieldddush_2d',:, :,:f :,:(1,'temporary sub listdS-n-IST',j)dINE__,info,T((((((((((GOTO 9999nd__KI--yedddddd! We need to copy it anto a temp list, dddce dLEstly uddddedddddd! ddddisublist(:,ddddfielddtopoid)=as an argument to invSIt_listdasedddddd! not ddssiLIS dddce the argument needs do be a POddddR.eddddddsublist(1:topo%nsublist,j- :,:f :,topo%isublist(1:topo%nsublist,f dddLdddddutil_invSIt_list_sublist,invsublist,info,T((((((iopt =dddddddddddeallocnd__KIdddLdddddalloc_sublist,ldu,iopt,info,T((((((d __info .Nd 0,j)lSand__KI==info =dddderrorderrornd__KI==dddLddddderror(dddderrddealloc,'ddREAap_fieldddush_2d',:,:== :,:f :,:(1,'temporary sub listdS-n-IST',j)dINE__,info,T((((((--yend__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nd__KIdIIloop ovSI the processors=inTthe ddddisendlist()Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddi=d FA-n- ddddnsendifISI fff!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).ndddddddIIDO-n-p BUFFERTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vp,).nddddddd __SINGddddddddddddddddd-nVLIS,j)lSand__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vpf :,:d (Re)allocate mory for the =d FA-nd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERp,vpf :,:iopt =ddddddddddalloc_growddLEserve fff ldu(1,j= ddddnsendifISI + ld,*N__KInddddddKIdddLdddddalloc_ddddsendifISId,ldu,iopt,info,T(((((((((d __info .Nd 0,j)lSand__KI===info =dddderrordf_KIlnd__KI====dddLddddderror(dddderrdalloc,'ddREAap_fieldddush_2d',:,:== :,:f :,:(1,(1,'global send =d FA-nPPM_S-BUFFERD',j)dINE__,info,T(((((((((((((GOTO 9999nd__KI ((--yend__KI Iyep =1,ddddnsendlistf :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpf :,::,:d accessd blocks belonging to the i-th processor in theT((((((:,: ,:d sendlistf :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpf :,::,:yeps=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1f :,::,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Get the sub ID for thisd blockf :,::,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=j4, =SING_isendfrom4,(j,T(((((((((((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Translate todlocal sub ID for storing the d_KInddddddKI((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=4, =invsublist(j4,=f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d M offset for thisd4,Tdddddd:,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=mofs(1,j= %istart(1,j4,=-1f :,::,:=mofs(2,j= %istart(2,j4,=-1f :,::,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Get boundaries of block to be sentTondlocal subf :,::,:=d coordddatesf :,::,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=xlo =SING_isend=lkstart(1,j)-mofs(1,f :,::,:=ylo =SING_isend=lkstart(2,j)-mofs(2,f :,::,:=xhi =xlo+SING_isend=lksize(1,j)-1f :,::,:=yhi =ylo+SING_isend=lksize(2,j)-1f :,::,:=d __SINGdebug1,j)lSand__KI=========WRITE(g,'(A,2I4)') 'start: ',:,:========== :,:f :,:(1,B0INT,j-dSING_isend=lkstart(1,j),SING_isend=lkstart(2,j)nd__KI=========dddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') 'size: ',:,:========== :,:f :,:(1,B0INT,j-dSING_isend=lksize(1,j),SING_isend=lksize(2,j)nd__KI=========dddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') 'm offset: ',mofs(1,,mofs(2,f :,::,:=====dddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') ',B0I=xhi: ',,B0INT,jOOOOOOOOOOOOOOOOOOOdddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') 't---=yhi: ',t---',tBOOOOOOOOOOOOOOOOOOOdddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,I1)') '=d FA-nd: ',ldaeddddddOOOOOOOOOOOOOdddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T(((((((((((((((--ye(((((((((((( ((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Loop ovSI all points of this block and append d_KInddddddKI((((((d:,to send =d FA-nd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d ldon- end__KI====d d __SEdd mask=,j)lSand__KI====dIIIIIIIIIId __.NOT.mask(1,4,=,jldon- eFA)ddnd__KI====!((((((--ye(((((((((((( ((dIIIIIId __ldo,j)lSan-aaf,BOIeBIM De-s VFIELDf :,:===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=1f :,:===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d __ldan.dddd1,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddd__KI(1,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBAIMAG d__KI(1,4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=2f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddddddldan.dddd2,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBB== d__KI(2,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddd__KI(1,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(2,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(2,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBAIMAG d__KI(1,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBB== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(2,4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(2,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=3f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddddddldan.dddd3,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddd__KI(1,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(2,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(3,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(2,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(3,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBAIMAG d__KI(1,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBB== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(2,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(3,4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBB== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(2,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(3,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=4f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddddddldan.dddd4,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddd__KI(1,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(2,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(3,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(4,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(2,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(3,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(4,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBAIMAG d__KI(1,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBB== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(2,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(3,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(4,4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBB== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(2,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(3,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--yeKI====i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(4,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=5f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddddddldan.dddd5,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(5,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddd__KI(1,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(2,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(3,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(4,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBd__KI(5,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(2,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(3,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(4,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(5,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(5,4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBBAIMAG d__KI(1,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBB== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(2,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(3,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(4,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(5,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddAIMAG d__KI(5,4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,BBBBBBBBBBBBBB== d__KI(2,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,ddddddddd-nVLIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(5,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(2,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye(((((((((((( ((i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(3,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--yeKI====i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(4,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--yeKI====i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(5,4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d For lda5 vector length as ldaeddddddOOOOOOOOOddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddf :,:=yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOyepk=1,ldaeddddddOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddddd== d__KI(k,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIII ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddddd d__KI(k,4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddddd== d__KI(k,4,=,ddddddddd-nVLIS-edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddddd== AIMAG d__KI(k,4,=),:,: :,:f :,:(1,B0IN ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddddd== d__KI(k,4,=,ddddddddd-nVLIS-edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddddddAIMAG d__KI(k,4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddddd== d__KI(k,4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(k,4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI==== --ye-_VLIST= -f :,:= -f :,:=-f :,:=--ye-__INTCMPBIM De-s SFIELDf :,:===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Scalar versionf :,:===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=yepss),0et---',tBOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== d__KI(4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIddddsendifISId(i=d FA-)- d__KI(4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== d__KI(4,=,ddddddddd-nVLIS-eOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== AIMAG d__KI(4,=),:,: :,:f :,:(1,B0INddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== d__KI(4,=,ddddddddd-nVLIS-eOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- AIMAG d__KI(4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== d__KI(4,=,ddddddddd-nVLIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddd __d__KI(4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddd-nVLISTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddd-nVLISTKI====--ye-_VLIST=-f :,:=--_VLIST=-=!p =1,ddddnsendlistf :,:-=! psend=d FA-f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d S Ie)0=ddd BUFFERf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf -)ddnd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOnd__KI=d (Re)allocate memory for the =d FA-f =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOnd__KI=iopt==SINGparam_alloc_grow_preservSTKI==ldu(1,j= ddddnsend=d FA-n+ ldb*N__KITKI==dddLdddddalloc(ddddsendifISIs,ldu,iopt,info,T(((((((((d __info .NE. 0)j)lSand__KI===info = dddderror_f_KIlnd__KI===dddLddddderror(dddderrdalloc,'ddREAap_fieldddush_2d',=== :,:f :,:(1,B0I'global send =d FA- PPM_S-BUFFERS',j)dINE__,info,T(((((((((((((GOTO 9999f :,:--yef :,:yep =1,ddddnsendlistf :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpf :,:=d access blocks belonging,to the i-th processor in thef :,:=d sendlistf :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpf :,:=yeps=SINGpsendifISI(i=,ddddpsendifISI(i+1=-1f :,::,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Get the 4, ID for this blockf :,::,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=j4, =SING_isendfrom4,(j)nd__KI=====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Translate to local 4, ID for storing,the __KITKI======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=i4, =inv4,list(j4,=eddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Me offset for this 4,eddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=mofs(1, =%istart(1,j4,=-1f :,::,:=mofs(2, =%istart(2,j4,=-1f :,::,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Get boundaries of block to be sent on local 4,f :,::,:=d coordinatesf :,::,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=,B0 =SING_isendblkstart(1,j)-mofs(1,f :,::,:=yB0 =SING_isendblkstart(2,j)-mofs(2,f :,::,:=NT, =,B0+SING_isendblksize(1,j)-1f :,::,:=yT, =yB0+SING_isendblksize(2,j)-1f :,::,:=d __SINGdebug d1,j)lSand__KI=========WRITE(g,'(A,2I4)') 'start: ',========= :,:f :,:(1,B0INT,j-dSING_isendblkstart(1,j),SING_isendblkstart(2,j)nd__KI=========dddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') 'size: ',========= :,:f :,:(1,B0INT,j-dSING_isendblksize(1,j),SING_isendblksize(2,j)nd__KI=========dddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') 'me offset: ',mofs(1,,mofs(2,f :,::,:=====dddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') ',B0I=NT,: ',,B0INT,jOOOOOOOOOOOOOOOOOOOdddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') 't---=yT,: ',t---',tBOOOOOOOOOOOOOOOOOOOdddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T((((((((((((((((((=WRITE(g,'(A,I1)') '=d FA- dim: ',ldaeddddddOOOOOOOOOOOOOdddLdddddwrite_SINGLank,'ddREAap_fieldddush_2d',g,info,T(((((((((((((((--yeKI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Loop ovA- all points of this block and append __KITKI======d to send =d FA-.eKI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d ld0 =.TRUE.eKI====d=d __Ie)S-T(mask=)j)lSand__KI====!====d __.NOT.mask(1,4,=)jld0 =.FA)dd.eKI====d=--yeKI====d==d __ld0)j)lSan-aaf,BOIeBIM De-s VFIELDf :,:===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=1f :,::,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=ddddldan.dddd1,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(1,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(1,4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=2f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddddddldan.dddd2,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(2,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(1,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(2,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(1,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(2,4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(2,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-e,BOIe)i=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(2,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=3f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddddddldan.dddd3,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-e,BOIe)i=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(3,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(1,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(2,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(3,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(1,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(2,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(3,4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(2,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(3,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-e,BOIe)i=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(2,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(3,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=4f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddddddldan.dddd4,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(4,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(1,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(2,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(3,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(4,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(1,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(2,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(3,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(4,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(4,4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(2,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(3,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(4,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-e,BOIe)i=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(2,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(3,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(4,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Unrolled=for lda=5f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddddddldan.dddd5,j)lSand__KI========yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIIIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(4,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(5,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(1,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(2,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(3,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(4,4,=eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(5,4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(1,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(2,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(3,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(4,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(4,4,=)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(5,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(5,4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(1,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(2,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(3,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(4,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(5,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== AIMAG d__KI(5,4,=),:,: :,:f :,:(1,B0INdddddddddsingIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(1,4,=,dddddddddsingIS-e,BOIe)i=d FA-n- i=d FA-n+ 1TddOIe)ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(2,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(3,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(4,4,=,dddddddddsingIS-eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd== d__KI(5,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(1,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(2,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(3,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(4,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye= i=d FA-n- i=d FA-n+ 1Tddddddd __d__KI(5,4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye-_VLIST=-f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d For lda5,the vector length is lda !!f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=-)ddnd__KI====yepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOyepk=1,ldaeddddddOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIIII ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd== d__KI(k,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd ddd__KI(k,4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd== d__KI(k,4,=,dddddddddsingIS-edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd ddAIMAG d__KI(k,4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd== d__KI(k,4,=,dddddddddsingIS-edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd== AIMAG d__KI(k,4,=),:,: :,:f :,:(1,B0IN dddddddddsingIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd== d__KI(k,4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(k,4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST= -)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST= --ye-_VLIST= -f :,:= -f :,:=-f :,:=--ye-__INTCMPBIM De-s SFIELDf :,:===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=d Serial versionf :,:===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOf :,::,:=yepss),0et---',tBOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIIIIIIIIIIIIIIIIIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== d__KI(4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KIddddsendifISIs(i=d FA-)- d__KI(4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== d__KI(4,=,dddddddddsingIS-eOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- AIMAG d__KI(4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== d__KI(4,=,dddddddddsingIS-eOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== AIMAG d__KI(4,=),dddddddddsingIS-e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddd== d__KI(4,=,dddddddddsingIS-e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddd __d__KI(4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsingIST=-)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsingIST=--ye-_VLIST=-f :,:=--_VLIST=-=!ddddpsendifISI =-==! =1,ddddnsendlistf --yf :,:=!ddddddddef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Update the =d FA-n__KI countf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf ddddnsend=d FA-n- i=d FA-ef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Deallocate inverse 4, listf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf ioptf =SINGparaNGdeallocf dddLdddddalloc(inv4,list,ldu,iopt,info,T((((((d __info .NE. 0)j)lSand__KI==info =SINGerrorGerrornd__KI==dddLddddderror(dddderrGdealloc,'ddREAap_fieldddush_2d',== :,:f :,:(1,'inverse 4, list INVS,5,IST',j)dINE__,info,T((((((--yef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Returnf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBO9999 CONTINUEf dddLd4,stop('ddREAap_fieldddush_2d',t0,info,T((((((RETURand__KICONTAINSnd__KIS,5ROUTINE checknd__KI==dddLdddddcheckGid(topoid,id,ldo,info,T((((((((((d __.NOT. ld0)j)lSanf :,:==info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'source id out of range',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--yeNT, =0eyT, =0eyep =1,ddddtopo(topoid)%t%n4,listnf :,:==i4, =SINGtopo(topoid)%t%i4,list(i,T((((((((((((((d __SINGtopo(topoid)%t%(id)%nnodes(1,4,=NT,)j)lSand__KI====NT, =SINGtopo(topoid)%t%(id)%nnodes(1,4,=nd__KI====--ye=d __SINGtopo(topoid)%t%(id)%nnodes(2,4,=yT,)j)lSand__KI====yT, =SINGtopo(topoid)%t%(id)%nnodes(2,4,=nd__KI====--ye--aaf,BIeBIM De-s VFIELDf :,:=ddddldan.Ld1,j)lSand__KI====info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'ldanmust be >=1=for vector __KI',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--yeddddSIZE_d__KI,4)n.Ldddddtopo(topoid)%t%n4,list,j)lSand__KI====info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'fieldn__KI for some 4,s is missing',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--yeddddSIZE_d__KI,1)n.Ldlda,j)lSand__KI====info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'leading dimension of __KI does not matchdlda',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--yeddddSIZE_d__KI,2)n.LdNT,)j)lSand__KI====info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'x dimension of fieldn__KI does not matchd',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--yeddddSIZE_d__KI,3)n.LdyT,)j)lSand__KI====info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'y dimension of fieldn__KI does not matchd',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--ye-__INTMPBIM De-s SFIELDf :,:=ddddldan.NE. 1,j)lSand__KI====info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'ldanmust be =1=for scalar __KI',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--yeddddSIZE_d__KI,3)n.Ldddddtopo(topoid)%t%n4,list,j)lSand__KI====info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'fieldn__KI for some 4,s is missing',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--yeddddSIZE_d__KI,1)n.LdNT,)j)lSand__KI====info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'x dimension of fieldn__KI does not matchd',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--yeddddSIZE_d__KI,2)n.LdyT,)j)lSand__KI====info =SINGerrorGerrornd__KI====dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0IN'y dimension of fieldn__KI does not matchd',j)dINE__,info,T((((((((((((((GOTO 8888T((((((((((--ye-_VLISTddddPRESENT(mask=)j)lSand__KI====ddddSIZE_mask,1)n.LdNT,)j)lSand__KI======info =SINGerrorGerrornd__KI======dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0INB0IN'x dimension of mask does not matchd',j)dINE__,info,T((((((((((((((((((GOTO 8888T((((((((((((((--yed__KI====ddddSIZE_mask,2)n.LdyT,)j)lSand__KI======info =SINGerrorGerrornd__KI======dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0INB0IN'y dimension of mask does not matchd',j)dINE__,info,T((((((((((((((((((GOTO 8888T((((((((((((((--yed__KI====ddddSIZE_mask,3)n.Ldddddtopo(topoid)%t%n4,list,j)lSand__KI======info =SINGerrorGerrornd__KI======dddLddddderror(dddderrGargument,'ddREAap_fieldddush_2d', :,:f :,:(1,B0INB0IN'mask d_KI for some 4,s is missing',j)dINE__,info,T((((((((((((((((((GOTO 8888T((((((((((((((--yed__KI==--yed8888===dONTINUEf -S,5ROUTINE checkn-aaf,BOIeBIM De-s SFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI-S,5ROUTINE ddREAap_fieldddush_2d_sca_se-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI-S,5ROUTINE ddREAap_fieldddush_2d_sca_de-__INTCMPLX(:)n_,j)ddddddddddddd-S,5ROUTINE ddREAap_fieldddush_2d_sca_sce-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd-S,5ROUTINE ddREAap_fieldddush_2d_sca_dce-__INTCMPLX(:)n_,j)ddddER,4,BOIe)-S,5ROUTINE ddREAap_fieldddush_2d_sca_ie-__INTCMPLX(:)n_,j)dddddddd:)n_,j-S,5ROUTINE ddREAap_fieldddush_2d_sca_le-_VLISTe-__INTCMPBIM De-s VFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI-S,5ROUTINE ddREAap_fieldddush_2d_vec_se-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI-S,5ROUTINE ddREAap_fieldddush_2d_vec_de-__INTCMPLX(:)n_,j)ddddddddddddd-S,5ROUTINE ddREAap_fieldddush_2d_vec_sce-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd-S,5ROUTINE ddREAap_fieldddush_2d_vec_dce-__INTCMPLX(:)n_,j)ddddER,4,BOIe)-S,5ROUTINE ddREAap_fieldddush_2d_vec_ie-__INTCMPLX(:)n_,j)dddddddd:)n_,j-S,5ROUTINE ddREAap_fieldddush_2d_vec_le-_VLIST-_VLISTlibddR-1.2/src/Aap/ddREAap_fieldddush_3d.f000644 000765 000024 00000277607 11445666062 020731 0ustar00omarstaff000000 000000 :)n_,jddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Subroutinef :(((((((((((((((ddREAap_fieldddush_3df ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), f d Center for Fluid Dynamics (DTU,T((((((!T((((((!T((((((! This file is part of the Parallel Particle M LibraryddPPM).T((((((!T((((((! PPM is free oftware: you can redistribute it and/or moLISyT((((((! it under the terms of the GNU Lesser General P4,lic License f d as p4,lished by the Free Software Foundation, either f d version 3 of the License, or (at your option) any later f d version.T((((((!T((((((! PPM is distributed=in the hope that it will be useful,T((((((! but WITHOUT ANY WARRANTY; without even the implied=warranty ofT((((((! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theT((((((! GNU General P4,lic License for more details.T((((((!T((((((! You shouldnhave received=I copy of the GNU General P4,lic Licensef d and the GNU Lesser General P4,lic License along with PPM. If not,T((((((! see .T((((((!T((((((! Parallel Particle M LibraryddPPM)T((((((! ETH Zurichf d CH-8092 Zurich, Switzerlandf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOn-aaf,BOIeBIM De-s SFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIS,5ROUTINE ddREAap_fieldddush_3d_sca_s(topoid,id,d__KI,info,mask=e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIS,5ROUTINE ddREAap_fieldddush_3d_sca_d(topoid,id,d__KI,info,mask=e-__INTCMPLX(:)n_,j)dddddddddddddS,5ROUTINE ddREAap_fieldddush_3d_sca_sc(topoid,id,d__KI,info,mask=e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddS,5ROUTINE ddREAap_fieldddush_3d_sca_dc(topoid,id,d__KI,info,mask=e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)S,5ROUTINE ddREAap_fieldddush_3d_sca_i(topoid,id,d__KI,info,mask=e-__INTCMPLX(:)n_,j)dddddddd:)n_,jS,5ROUTINE ddREAap_fieldddush_3d_sca_l(topoid,id,d__KI,info,mask=e-_VLISTe-__INTCMPBIM De-s VFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIS,5ROUTINE ddREAap_fieldddush_3d_vec_s(topoid,id,d__KI,ldI,info,mask=e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIS,5ROUTINE ddREAap_fieldddush_3d_vec_d(topoid,id,d__KI,ldI,info,mask=e-__INTCMPLX(:)n_,j)dddddddddddddS,5ROUTINE ddREAap_fieldddush_3d_vec_sc(topoid,id,d__KI,ldI,info,mask=e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddS,5ROUTINE ddREAap_fieldddush_3d_vec_dc(topoid,id,d__KI,ldI,info,mask=e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)S,5ROUTINE ddREAap_fieldddush_3d_vec_i(topoid,id,d__KI,ldI,info,mask=e-__INTCMPLX(:)n_,j)dddddddd:)n_,jS,5ROUTINE ddREAap_fieldddush_3d_vec_l(topoid,id,d__KI,ldI,info,mask=e-_VLIST-_VLISTf d!! This routinedushes fieldn__KI onto the send =d FA-nfor 3Ddes.T((((((!!!f d!! [NOTE]f d!! ======================================================================Tf d!! The on-processor __KI is stored=in the first part of the ifISI !!!f d!! If the call to invert_list is too slow here, thisf d!! couldnbe doneby topo_store and stored=for eachf d!! topology. At the expense of some extradmory.T((((((!!!f d!! The d__KI arrays are passed as `POddddR` and notf d!! `ddddNT(IN)` even though they are not changed oI !!! reallocated=inside this routine. The reason is that !!! LBOU(:)can be non-standard (i.e. != 1,jINTwenhave !!! ghost layers and the correct LBOU(:)is only passed !!! along with the arrayjINTthe latter is given the !!! POddddR attribute.T((((((!!!f d!! When N__KI is determined,Tthe mask is notf d!! considered. This couldnlead to a too large !!! send=d FA-nbeing allocated=inTthe last push andf d!! couldnbe optimized=later.f d!! ======================================================================Tf d!!f d!! [WARN]f d!! BIM is the dimension of the d__KI array and not the space !!! dimension ddREdim!f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Includesf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBO#include "ddREdefine.h"ef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Modulesf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf USE ddREAodule___KIf USE ddREAodule___KIGf USE ddREAodule_typedeff USE ddREAodule_4,startf USE ddREAodule_4,stopf USE ddREAodule_errornd__KIUSE ddREAodule_allocf USE ddREAodule_writef USE ddREAodule_checkGidf USE ddREAodule_util_invert_listf IddICIT NONE-aaf,BOIe)0=d De-s -',tBO-n-nV |CMPLX(:)n_,j)dddddddddddddddddER,, PARAMEddR :: MK =SINGdddddsingIST-__sef ddddER,, PARAMEddR :: MK =SINGddddddo4,leT-_VLISTf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Argumentsf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBO#iaf,BIeBIM De-s SFIELD-aaf,BMPLX(:)n_,j)ddddER,4,BOIe)ddddER, , BIMEN(:,:,:,:)Ie), POddddR :: d__KIe-__INTMPLX(:)n_,j)dddddddd:)n_,jddddddd , BIMEN(:,:,:,:)Ie), POddddR :: d__KIe-__INTMPLX(:)n_,j)dddddd |CMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddddddddd(MK), BIMEN(:,:,:,:), POddddR :: d__KIe-__sef == MK), BIMEN(:,:,:,:)Ie), POddddR :: d__KIe-_VLIST-__INTMPBIM De-s VFIELD-aaf,BMPLX(:)n_,j)ddddER,4,BOIe)ddddER, , BIMEN(:,:,:,:,:)Ie), POddddR :: d__KIe-__INTMPLX(:)n_,j)dddddddd:)n_,jddddddd , BIMEN(:,:,:,:,:)Ie), POddddR :: d__KIe-__INTMPLX(:)n_,j)dddddd |CMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddddddddd(MK), BIMEN(:,:,:,:,:), POddddR :: d__KIe-__sef == MK), BIMEN(:,:,:,:,:)Ie), POddddR :: d__KIe-_VLIST-_VLISTf d!! Fieldn__KI.T((((((!!!f d!! 1st index: lda +f d!! 2nd-4th index: (i,j,k) relative to istart-1 of the 4, f d!! (i.e. (i,j,k)=(1,1,1)ncorresponds to istart) +f d!! 5th:=i4, 1...n4,list (all 4,s on this processor).T((((((!!!f d!! For scalar fields, the first index)is omitted=(the others shiftf d!! accordingly).T((((((ddddddd, BIMEN(:,:,:,:), POddddR, OPTdd :: mask !!! Logical mask.T((((((!!!f d!! Only the m nodes=for which this is .TRUE. will bef d!! Aapped. If not given, all points are Aapped.T((((((!!!f d!! 1st-3nd index: (i,j,k) +f d!! 4rd:=i4,.-aaf,BIeBIM De-s VFIELDf ddddER, , ddddNT(IN ) :: ldaeddddddd!! the leading dimension of the d__KI.f d!! lda=1=for the case of scalar __KIT-_VLISTf ddddER, , ddddNT(IN ) :: topoidf d!! topology ID of sourceTf ddddER, , ddddNT(IN ) :: idf d!! A ID of sourceTf ddddER, , ddddNT( OUT) :: infof d!! Returns status, 0 upon 4ccessTf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Local variablesf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf ddddER,, BIMEN(3) :: ldu,mofsTf ddddER, :: i,j,k,i=d FA-,4,,k4,,ldbTf ddddER, :: iopt,N__KI,,B0INT,,t---',t,z---zT,jOOOOOO== MK) :: t0T((((((ddddddd :: ldof CHARACddR(LEN=ddddchar) :: g#iaf,BIeBIM De-s SFIELDf ddddER,, PARAMEddR :: lda- 1T-_VLISTf TYPE_SINGt_equiG), POddddR :: Tf TYPE_SINGt_topo),== POddddR :: topoTf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Externalsf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Initialisef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf dddLd4,start('ddREAap_fieldddush_3d',t0,info,T f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Check argumentsf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d __SINGdebug 0)j)lSand__KIdddLdchecknd__KId __info .NE. 0)jGOTO 9999nd__KI--yef topo =>dddddtopo(topoid)%tf A =>dtopo%(id)f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Count number of __KI points to be sentf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf N__KI =0eyep =1,ddddnsendlistf f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOf f d access A blocks belonging to the i-th processor in the f d sendlistf f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOf f yeps=ddddpsendifISI(i=,ddddpsendifISI(i+1)-1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpTddddddd Get the number of A points in this blockTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpTddddddN__KI =N__KI +__SINGA_isendilksize(1,j)*ddd :,:f :,:(1,BSINGA_isendilksize(2,j)*SINGA_isendilksize(3,j),T(((((((((-f -f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d If there is nothing to be sentTwenare donef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d __N__KI .dddd0)j)lSand__KI==d __SINGdebug 0)j)lSand__KIdddLdddddwrite_SINGrank,'ddREAap_fieldddush_3d', :,:f :,:(1,B0IN'There is no __KI to be sent',info,T((((((((((--yed__KI==GOTO 9999nd__KI--yef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Increment the =d FA-nsetf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf dddd=d FA-_set =SING=d FA-_set + 1TTf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Allocate mory=for the =d FA-n_imension and typef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf iopt=SINGparaNGalloc_grow_preserve ldu(1) =SING=d FA-_setf dddLdpdddalloc(SING=d FA-__im ,ldu,iopt,info,T((((((d __info .NE. 0)j)lSand__KI==info =SINGerrorGf_KIlnd__KI==dddLddddderror(dddderrGalloc,'ddREAap_fieldddush_3d',== :,:f :,:(1,'=d FA-n_imensions PPM_BUFFEReBIM',j)dINE__,info,T((((((((((GOTO 9999nd__KI--yef dddLdpdddalloc(SING=d FA-_type,ldu,iopt,info,T((((((d __info .NE. 0)j)lSand__KI==info =SINGerrorGf_KIlnd__KI==dddLddddderror(dddderrGalloc,'ddREAap_fieldddush_3d',== :,:f :,:(1,'=d FA-ntypes PPM_BUFFEReTYPE',j)dINE__,info,T((((((((((GOTO 9999nd__KI--yeTf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d A complex number is treated=as two reals. Cannot change ldaeddddddd because it is ddddNT(IN)f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBO#iaf,BIeLX(:)n_,j)dddddd |CMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddldb =2*ldae-__sef ldb =ldae-_VLISTef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Store the dimension and typef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf SING=d FA-__im(SING=d FA-_set) =ldbT-aaf,BOIe)0=d De-s -',tBO-n-nV |CMPLX(:)n_,j)dddddddddddddSING=d FA-_type(SING=d FA-_set) =SINGdddddsingIST-__INTMPLX(:)n_,j)RR,5,BOIe)0=ddd |CMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddSING=d FA-_type(SING=d FA-_set) =SINGddddddo4,leT-__INTMPLX(:)n_,j)ddddER,4,BOIe)SING=d FA-_type(SING=d FA-_set) =SINGintegere-__INTMPLX(:)n_,j)dddddddd:)n_,jSING=d FA-_type(SING=d FA-_set) =SINGlogicale-_VLISTef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d Build the inverse 4, list to fddd local 4, indeices based onf d global ones=(the global ones=are communicated)f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOI==ioptf =SINGparaNGalloc_fitf ldu(1) =dtopo%n4,listnf :,dddLdpdddalloc(4,list,ldu,iopt,info,T((((((d __info .NE. 0)j)lSand__KI==info =SINGerrorGf_KIlnd__KI==dddLddddderror(dddderrGalloc,'ddREAap_fieldddush_3d', :,:f :,:(1,'temporaryd4, list S,5,IST',j)dINE__,info,T((((((((((GOTO 9999nd__KI--yef ! We need to copy it into a temp list, since directly usingef ! SINGi4,list(:,ddddfielddtopoid)=as an argument to invert_list isef ! not possi,le since the argument needs to be a POddddR.f 4,list(1:topo%n4,list) =dtopo%i4,list(1:topo%n4,list)nf :,dddLdpdddutil_invert_list(4,list,inv4,list,info,T((((((ioptf =SINGparaNGdeallocf dddLdddddalloc(4,list,ldu,iopt,info,T((((((d __info .NE. 0)j)lSand__KI==info =SINGerrorGerrornd__KI==dddLddddderror(dddderrGdealloc,'ddREAap_fieldddush_3d',== :,:f :,:(1,'temporaryd4, list S,5,IST',j)dINE__,info,T((((((--yeTf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d loop over the processors=inTthe SINGiendlist()f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOI==i=d FA-n- ddddnsendifISI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOI==d DR,5,B Ie)0=dddnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOiBOf d __SINGdddd.dddSINGddddddo4,le)j)lSand__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOf f d (Re)allocate mory=for the =d FA-nd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpiBOf f ioptf =SINGparaNGalloc_grow_preserve f ldu(1) =dddddnsendifISI + ldb*N__KIf f dddLdddddalloc(ddddsendifISId,ldu,iopt,info,T(((((((((d __info .NE. 0)j)lSand__KI====info =SINGerrorGf_KIlnd__KI====dddLddddderror(dddderrGalloc,'ddREAap_fieldddush_3d',== :,:f :,:(1,(1,'global send =d FA-nPPM_S-BUFFERD',j)dINE__,info,T(((((((((((((GOTO 9999nd__KI ((--yeTf yep =1,ddddnsendlistf f =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpTddddddd access A blocks belonging to the i-th processor in the f f d sendlistf f =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOERpTddddddyeps=ddddpsendifISI(i=,ddddpsendifISI(i+1)-1Tdddddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Get the 4, ID=for this A blockTdddddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=j4, =SINGA_isendfrom4,(j,T(((((((((((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Translate to local 4, ID=for storing the d_KIf f ((((((ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=i4, =inv4,list(j4,=nd__KI====(ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d M offset for this 4,nd__KI====(ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=mofs(1) =dA%istart(1,j4,=-1Tdddddd=mofs(2) =dA%istart(2,j4,=-1Tdddddd=mofs(3) =dA%istart(3,j4,=-1Tdddddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Get boundaries of A block to be sentTon local 4,Tdddddd=d coordinatesTdddddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=xlo =SINGA_isendilkstart(1,j)-mofs(1)Tdddddd=ylo =SINGA_isendilkstart(2,j)-mofs(2)Tdddddd=zlo =SINGA_isendilkstart(3,j)-mofs(3)Tdddddd=NT, =xlo+SINGA_isendilksize(1,j)-1Tdddddd=yT, =ylo+SINGA_isendilksize(2,j)-1Tdddddd=zT, =zlo+SINGA_isendilksize(3,j)-1Tdddddd=d __SINGdebug 1,j)lSand__KI=========WRITE(g,'(A,3I4)') 'start: ',========== :,:f :,:(1,B0INT,j-dSINGA_isendilkstart(1,j),========== :,:f :,:(1,B0INT,j-dSINGA_isendilkstart(2,j),SINGA_isendilkstart(3,j)nd__KI=========dddLdddddwrite_SINGrank,'ddREAap_fieldddush_3d',g,info,T((((((((((((((((((=WRITE(g,'(A,3I4)') 'size: ',========== :,:f :,:(1,B0INT,j-dSINGA_isendilksize(1,j),========== :,:f :,:(1,B0INT,j-dSINGA_isendilksize(2,j),SINGA_isendilksize(3,j)nd__KI=========dddLdddddwrite_SINGrank,'ddREAap_fieldddush_3d',g,info,T((((((((((((((((((=WRITE(g,'(A,3I4)') 'm offset: ',mofs(1),mofs(2),mofs(3)Tdddddd=====dddLdddddwrite_SINGrank,'ddREAap_fieldddush_3d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') ',B0I=NT,: ',,B0INT,jOOOOOOOOOOOOOOOOOOOdddLdddddwrite_SINGrank,'ddREAap_fieldddush_3d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') 't---=yT,: ',t---',tBOOOOOOOOOOOOOOOOOOOdddLdddddwrite_SINGrank,'ddREAap_fieldddush_3d',g,info,T((((((((((((((((((=WRITE(g,'(A,2I4)') 'z---=zT,: ',z---zT,jOOOOOOOOOOOOOOOOOOOdddLdddddwrite_SINGrank,'ddREAap_fieldddush_3d',g,info,T((((((((((((((((((=WRITE(g,'(A,I1)') '=d FA-n_im: ',ldaeddddddOOOOOOOOOOOOOdddLdddddwrite_SINGrank,'ddREAap_fieldddush_3d',g,info,T(((((((((((((((--ye=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Loop over all A points of this block and append d_KIf f ((((((df to send =d FA-.e=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d ldo =.TRUE.Tdddddd=d ddddPRESENT(mask=)j)lSand__KI==== d d __.NOT.mask(1,k4,=)jldo=.FALSE.Tdddddd=d --ye=d d __ld0)j)lSan-aaf,BOIeBIM De-s VFIELDf :,:==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=1f :,:==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=ddddldan.dddd1,j)lSand__KI========yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=2f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddddddldan.dddd2,j)lSand__KI========yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(2,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(2,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(2,k4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI==== i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(2,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=3f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddddddldan.dddd3,j)lSand__KI========yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(2,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(3,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(2,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(3,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(2,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(3,k4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e,BOIe) i=d FA-n- i=d FA-n+ 1TdddIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI==== i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(2,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI==== i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(3,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=4f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddddddldan.dddd4,j)lSand__KI========yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e,BOIe) i=d FA-n- i=d FA-n+ 1TdddIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(2,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(3,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(4,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(2,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(3,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(4,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(2,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(3,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(4,k4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e,BOIe) i=d FA-n- i=d FA-n+ 1TdddIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI==== i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(2,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI==== i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(3,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI==== i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(4,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=5f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddddddldan.dddd5,j)lSand__KI========yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e,BOIe) i=d FA-n- i=d FA-n+ 1TdddIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(5,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(2,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(3,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(4,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(5,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(2,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(3,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(4,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(5,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(5,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(2,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(3,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(4,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(5,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(5,k4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e,BOIe) i=d FA-n- i=d FA-n+ 1TdddIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(5,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI==== i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(2,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI==== i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(3,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI======================i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(4,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --yeKI======================i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(5,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d For lda5 the vector length is lda !!f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddnd__KI====yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOyepk=1,ldaeddddddOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== d__KI(k,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d dd__KI(k,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== d__KI(k,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== AIMAG d__KI(k,k4,=), :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== d__KI(k,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d dAIMAG d__KI(k,k4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== d__KI(k,k4,=,:,: :,:f :,:(1,B0IN SINGddddddo4,le)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(k,k4,=)j)lSand__KI==== ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI==== -)ddnd__KI==== ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI==== --ye-_VLIST= -f :,:= -f :,:= -f :,:=-f :,:=--ye-__INTCMPBIM De-s SFIELDf :,:==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Scalar versionf :,:==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(k4,=,:,: :,:f :,:(1,B0INSINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KIddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddddd__KI(k4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(k4,=,:,: :,:f :,:(1,B0INSINGddddddo4,le)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== AIMAG d__KI(k4,=), :,:f :,:(1,B0INSINGddddddo4,le)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(k4,=,:,: :,:f :,:(1,B0INSINGddddddo4,le)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISId(i=d FA-)- :,:f :,:(111111111111111AIMAG d__KI(k4,=)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISId(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(k4,=,:,: :,:f :,:(1,B0INSINGddddddo4,le)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(k4,=)j)lSand__KI====ddddsendifISId(i=d FA-)- 1.0_ddddddddddo4,leTKI====-)ddnd__KI====ddddsendifISId(i=d FA-)- 0.0_ddddddddddo4,leTKI====--ye-_VLIST=-f :,:=-f :,:=--_VLIST=-=! i=1,ddddnsendlist =-=! psendifISI ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd S Ie)0=dddnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddd-)ddnd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOnd__KI=d (Re)allocate memory=for the ifISI =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOnd__KI=iopt==ddddparam_alloc_grow_preserveTKI==ldu(1)==ddddnsendifISIn+ ldb*N__KITKI==dddLddddalloc(ddddsendifISIs,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI===info =dddderror_f_KIlnd__KI===dddLdddderror(dddderrdalloc,'ddddmap_field_push_3d',=== :,:f :,:(1,B0I'global send ifISI PPM_S-BUFFERS',j)dINE__,info)eddddddGOTO 9999 =--ye =yep =1,ddddnsendlist ==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ==d access blocks belonging to the i-th processor in the ==d sendlist ==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ==yeps=ddddpsendifISI(i),ddddpsendifISI(i+1)-1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Get the 4, ID=for this blockTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=j4, =dddd_isendfrom4,(j)eddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Translate to local 4, ID=for storing the __KITKI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=i4, =inv4,list(j4,=ed__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d M offset for this 4,ed__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=mofs(1)==%istart(1,j4,=-1Tddddddmofs(2)==%istart(2,j4,=-1Tddddddmofs(3)==%istart(3,j4,=-1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Get boundaries of block to be sent on local 4,Tdddddd=d coordinatesTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=xlo =dddd_isendblkstart(1,j)-mofs(1)Tdddddd=ylo =dddd_isendblkstart(2,j)-mofs(2)Tdddddd=zlo =dddd_isendblkstart(3,j)-mofs(3)Tdddddd=xhi =xlo+dddd_isendblksize(1,j)-1Tddddddyhi =ylo+dddd_isendblksize(2,j)-1Tddddddzhi =zlo+dddd_isendblksize(3,j)-1Tddddddd __dddddebug 1)j)lSand__KI====WRITE(g,'(A,3I4)') 'start: ',=========== :,:f :,:(1,B0INdddd_isendblkstart(1,j),=========== :,:f :,:(1,B0INdddd_isendblkstart(2,j),dddd_isendblkstart(3,j)nd__KI====dddLddddwrite_ddddrank,'ddddmap_field_push_3d',g,info)edddddd=WRITE(g,'(A,3I4)') 'size: ',=========== :,:f :,:(1,B0INdddd_isendblksize(1,j),=========== :,:f :,:(1,B0INdddd_isendblksize(2,j),dddd_isendblksize(3,j)nd__KI====dddLddddwrite_ddddrank,'ddddmap_field_push_3d',g,info)edddddd=WRITE(g,'(A,3I4)') 'm offset: ',mofs(1),mofs(2),mofs(3)Tdddddd=dddLddddwrite_ddddrank,'ddddmap_field_push_3d',g,info)edddddd=WRITE(g,'(A,2I4)') ',B0I=xhi: ',,B0INT,jOOOOOOOOOOOOOOOOOOOdddLddddwrite_ddddrank,'ddddmap_field_push_3d',g,info)edddddd=WRITE(g,'(A,2I4)') 't---yhi: ',t---',tBOOOOOOOOOOOOOOOOOOOdddLddddwrite_ddddrank,'ddddmap_field_push_3d',g,info)edddddd=WRITE(g,'(A,2I4)') 'z---zhi: ',z---zT,jOOOOOOOOOOOOOOOOOOOdddLddddwrite_ddddrank,'ddddmap_field_push_3d',g,info)edddddd=WRITE(g,'(A,I1)') 'ifISI dim: ',ldaeddddddOOOOOOOOOOOOOdddLddddwrite_ddddrank,'ddddmap_field_push_3d',g,info)edddddd=--yeKI==========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Loop ovSI all points of this block and append __KITKI==d to send ifISI.eKI==========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d ldo =.TRUE.eKI==========d d __PRES-T(mask=)j)lSand__KI====!====d __.NOT.mask(1,k4,=)jldo=.FALSE.eKI==========d --yeKI============d d __ldo)j)lSan-aaf,BOIeBIM De-s VFIELDf :,:==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=ddddldan.dddd1)j)lSand__KI====yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=2f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddddddldan.dddd2)j)lSand__KI====yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(2,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(2,k4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(2,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(2,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=3f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddddddldan.dddd3)j)lSand__KI====yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(2,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(3,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f ::::::::::::::::::::::== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(2,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(3,k4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(2,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(3,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(2,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(3,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=4f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddddddldan.dddd4)j)lSand__KI====yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(2,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(3,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(4,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f ::::::::::::::::::::::== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(2,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(3,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(4,k4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(2,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(3,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(4,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(2,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(3,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(4,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Unrolled=for lda=5f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddddddldan.dddd5)j)lSand__KI====yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(5,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(1,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(2,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(3,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(4,k4,=ed__KI i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dd__KI(5,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(1,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f == d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(2,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(3,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(4,k4,=)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(5,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd dAIMAG d__KI(5,k4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(1,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(2,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(3,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(4,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(5,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== AIMAG d__KI(5,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(1,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(2,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(3,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e,BOIe) i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(4,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d== d__KI(5,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(1,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(2,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KI====i=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(3,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KIi=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(4,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--yed__KIi=d FA-n- i=d FA-n+ 1Tdddddd d __d__KI(5,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--ye-_VLIST= -f :,:= -f :,:=-f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d For lda5 the vector length is lda !!f :,:=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=-)ddnd__KI====yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOO OOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOO OOyepk=1,ldaeddddddOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== d__KI(k,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KI ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d dd__KI(k,k4,=e-__INTCMPLX(:)n_,j)ddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== d__KI(k,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d dAIMAG d__KI(k,k4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== d__KI(k,k4,=,:,:: :,:f :,:(1,B0IN SINGdddddsingle)edddddd i=d FA-n- i=d FA-n+ 1Tdddddd ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== AIMAG d__KI(k,k4,=), :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe) ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd d d== d__KI(k,k4,=,:,: :,:f :,:(1,B0IN SINGdddddsingle)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-ddddd d __d__KI(k,k4,=)j)lSand__KI==== ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI==== -)ddnd__KI==== ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI==== --ye-_VLIST= -f :,:= -f :,:= -f :,:=-f :,:=--ye-__INTCMPBIM De-s SFIELDf :,:==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=d Scalar versionf :,:==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd=yepk:,:(1z---zT,jOOOOOOOOOOOOOOOOOOyepss),0et---',tBOOOOOOOOOOOOOOOOOOOOOyep :,:(1,B0INT,jOOOOOOOOOOOOOOOOOOOOOOOOi=d FA-n- i=d FA-n+ 1T-aaf,BOIe)0=d De-s RR,5,BOIe)0=dddnd__KIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(k4,=,:,: :,:f :,:(1,B0INSINGdddddsingle)e-__INTCMPLX(:)n_,j)-',tBO-n-nVnd__KIddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddd__KI(k4,=e-__INTCMPLX(:)n_,j)dddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(k4,=,:,: :,:f :,:(1,B0INSINGdddddsingle)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-dddddAIMAG d__KI(k4,=)e-__INTCMPLX(:)n_,j)RR,5,BOIe)0=ddddddddddddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(k4,=,:,:: :,:f :,:(1,B0INSINGdddddsingle)eddddddi=d FA-n- i=d FA-n+ 1TddddddddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== AIMAG d__KI(k4,=), :,:f :,:(1,B0INSINGdddddsingle)e-__INTCMPLX(:)n_,j)ddddER,4,BOIe)ddddsendifISIs(i=d FA-)- :,:f :,:(1,B0INT,j-ddddd== d__KI(k4,=,:,: :,:f :,:(1,B0INSINGdddddsingle)e-__INTCMPLX(:)n_,j)dddddddd:)n_,j,:(1,B0INT,j-dddddd __d__KI(k4,=)j)lSand__KI====ddddsendifISIs(i=d FA-)- 1.0_dddddddddsinglend__KI====-)ddnd__KI====ddddsendifISIs(i=d FA-)- 0.0_dddddddddsinglend__KI====--ye-_VLIST=-f :,:=-f :,:=--_VLIST=-=!ddddpsendifISI =-! i=1,ddddnsendlist --y=!dddddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Up__Ke the =d FA-n__KI count ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddnsend=d FA-n- i=d FA- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Dealloc_Ke inverse 4, list ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptddd=ddddparam_deallocTdddddddddLddddalloc(inv4,list,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_push_3d',:,::: :,:f :,:(1,'inverse 4, list INVS,5,IST',j)dINE__,info)edddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Return ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTd9999 CONTINUETdddddddddL4,stop('ddddmap_field_push_3d',t0,info)eddddddRETURand__KICONTAINSnd__KIS,5ROUTINE checkT=dddLddddcheck_id(topoid,id,ldo,info)eddddddddddd __.NOT. ldo)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'source id out of range',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KINT,- 0ed__KIyT,- 0ed__KIzT,- 0ed__KIyep =1,ddddtopo(topoid)%t%n4,listnd__KI====i4, =ddddtopo(topoid)%t%i4,list(i)eddddddddddddddd __ddddtopo(topoid)%t%(id)%nnodes(1,4,=NT,)j)lSand__KI====NT,- ddddtopo(topoid)%t%(id)%nnodes(1,4,=nd__KI====--yed__KId __ddddtopo(topoid)%t%(id)%nnodes(2,4,=yT,)j)lSand__KI====yT,- ddddtopo(topoid)%t%(id)%nnodes(2,4,=nd__KI====--yed__KId __ddddtopo(topoid)%t%(id)%nnodes(3,4,=zT,)j)lSand__KI====zT,- ddddtopo(topoid)%t%(id)%nnodes(3,4,=nd__KI====--yed__KI--aaf,BMPBIM De-s VFIELDf :,:=ddddldan.LT. 1)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'ldanmust be >=1=for vector __KI',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KIddddSIZE_d__KI,5)n.LT. ddddtopo(topoid)%t%n4,list)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'fieldn__KI for some 4,s is missing',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KIddddSIZE_d__KI,1)n.LT. lda)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'leading dnsion of __KI does not match lda',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KIddddSIZE_d__KI,2)n.LT. NT,)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'x dnsion of fieldn__KI does not match ',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KIddddSIZE_d__KI,3)n.LT. yT,)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'y dnsion of fieldn__KI does not match ',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KIddddSIZE_d__KI,4)n.LT. zT,)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'z dnsion of fieldn__KI does not match ',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--ye-__INTMPBIM De-s SFIELDf :,:=ddddldan.NE. 1)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'ldanmust be =1=for scalar __KI',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KIddddSIZE_d__KI,4)n.LT. ddddtopo(topoid)%t%n4,list)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'fieldn__KI for some 4,s is missing',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KIddddSIZE_d__KI,1)n.LT. NT,)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'x dnsion of fieldn__KI does not match ',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KIddddSIZE_d__KI,2)n.LT. yT,)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'y dnsion of fieldn__KI does not match ',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--yed__KIddddSIZE_d__KI,3)n.LT. zT,)j)lSand__KI====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0IN'z dnsion of fieldn__KI does not match ',j)dINE__,info)eddddddddddddddGOTO 8888edddddddddd--ye-_VLISTddddPRESENT(mask=)j)lSand__KI====ddddSIZE_mask,1)n.LT. NT,)j)lSand__KI======info =dddderrorderrornd__KI======dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0INB0IN'x dnsion of mask does not match ',j)dINE__,info)eddddddddddddddddddGOTO 8888edddddddddddddd--yed__KI====ddddSIZE_mask,2)n.LT. yT,)j)lSand__KI======info =dddderrorderrornd__KI======dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0INB0IN'y dnsion of mask does not match ',j)dINE__,info)eddddddddddddddddddGOTO 8888edddddddddddddd--yed__KI====ddddSIZE_mask,3)n.LT. zT,)j)lSand__KI======info =dddderrorderrornd__KI======dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0INB0IN'z dnsion of mask does not match ',j)dINE__,info)eddddddddddddddddddGOTO 8888edddddddddddddd--yed__KI====ddddSIZE_mask,4)n.LT. ddddtopo(topoid)%t%n4,list)j)lSand__KI======info =dddderrorderrornd__KI======dddLdddderror(dddderr_argument,'ddddmap_field_push_3d',:, :,:f :,:(1,B0INB0IN'mask d_KI for some 4,s is missing',j)dINE__,info)eddddddddddddddddddGOTO 8888edddddddddddddd--yed__KI==--yed8888===dONTINUETdddddd-S,5ROUTINE checkT-aaf,BOIeBIM De-s SFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI-S,5ROUTINE ddddmap_field_push_3d_sca_se-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI-S,5ROUTINE ddddmap_field_push_3d_sca_de-__INTCMPLX(:)n_,j)ddddddddddddd-S,5ROUTINE ddddmap_field_push_3d_sca_sce-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd-S,5ROUTINE ddddmap_field_push_3d_sca_dce-__INTCMPLX(:)n_,j)ddddER,4,BOIe)-S,5ROUTINE ddddmap_field_push_3d_sca_ie-__INTCMPLX(:)n_,j)dddddddd:)n_,j-S,5ROUTINE ddddmap_field_push_3d_sca_le-_VLISTe-__INTCMPBIM De-s VFIELD-aaf,BOIe)0=d De-s -',tBO-n-nVnd__KI-S,5ROUTINE ddddmap_field_push_3d_vec_se-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddnd__KI-S,5ROUTINE ddddmap_field_push_3d_vec_de-__INTCMPLX(:)n_,j)ddddddddddddd-S,5ROUTINE ddddmap_field_push_3d_vec_sce-__INTCMPLX(:)n_,j)RR,5,BOIe)0=dddddddddddddddd-S,5ROUTINE ddddmap_field_push_3d_vec_dce-__INTCMPLX(:)n_,j)ddddER,4,BOIe)-S,5ROUTINE ddddmap_field_push_3d_vec_ie-__INTCMPLX(:)n_,j)dddddddd:)n_,j-S,5ROUTINE ddddmap_field_push_3d_vec_le-_VLIST-_VLISTlibddd-1.2/src/map/ddddmap_field_send.f000644 000765 000024 00000070567 11445666062 020311 0ustar00omarstaff000000 000000 :)n_,jddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Subroutineddd:dddddddddddddddddddddmap_field_send :)n_,jddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), Tddddddd Center for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle M LibraryddPPM).edddddd!edddddd! PPM is free oftware: you can redistribuKe it and/or moLISyedddddd! it under the terms of the GNU Lesser General P4,lic Licnse Tddddddd as p4,lished by the Free Software Foundation, either Tddddddd version 3 of the Licnse, or (at your option) any later Tddddddd version.edddddd!edddddd! PPM is distribuKed=in the hope that it will be useful,edddddd! buK WITHOUT ANY WARRANTY; without even the implied=warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic Licnse for more details.edddddd!edddddd! You should have received=I copy of the GNU General P4,lic LicnseTddddddd and the GNU Lesser General P4,lic Licnse along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle M LibraryddPPM)edddddd! ETH ZurichTddddddd CH-8092 Zurich, Switzerland :)n_,jddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOT :)n_,jS,5ROUTINE ddddmap_field_send(info)edddddd!!! This routinedperforms the actual send/recv of theedddddd!!! blocks and all pushedn__KI.edddddd!!!edddddd!!! [NOTE]edddddd!!! The first part of the =d FA-ncontains the on processor __KI.edddddd!!!edddddd!!! [NOTE]edddddd!!! Using non-blocking communication (ISend,Irecv)edddddd!!! could possibly speed-up this routinedsince only aedddddd!!! Send/Recv/SendRecv is donedwhere neededn(we know aedddddd!!! priori how much d_KI we are going to receive).edddddd!!! Skipped=Ictions could then already loop to the nextedddddd!!! item and would not have to wait for others.edddddd!!!edddddd!!! [TIP]edddddd!!! If you want to only send certain nodes you have to first calledddddd!!! pdddmap_field_push for a logical mask, then call pdddmap_field_popedddddd!!! and recover the new mask. First 3 (2 for 2D es)edddddd!!! iVLIces are (i,j[,k]), last onedis subid=for all 4,s onf !!! the loc_l processor.e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Modules ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddUSE ddddmodule_d_KITddddddUSE ddddmodule_d_KI_TddddddUSE ddddmodule_4,startTddddddUSE ddddmodule_4,stopeddddddUSE ddddmodule_errornd__KIUSE ddddmodule_allocTddddddUSE ddddmodule_writeTddddddIddICIT NONE ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Includes ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOT#include "dddddefine.h"-aadef,j)MPITddddddINCLUDE 'mpif.h'T-_VLIS ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Argumentsddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddER, ,dddddNT( OUT) ::=infof !!! Return status, 0 upon success ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Loc_l variables ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddER,, DIMENddd(3) ::=lduTddddddddddER, ::=i,j,k,i=d FA-,j=d FA-,bdim,offsTddddddddddER, ::=iopt,tag1,N__KI,msend,mrecv,allsend,allrecvTddddddCHARACTER(ddddchar) ::=gTdddddd== ddddddddddo4,le) ::=t0-aadef,j)MPITddddddINddER,, DIMENddd(MPI_STATUS_SIZE) ::=commstate-_VLISTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Externals ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Initialised ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddddddL4,start('ddddmap_field_send',t0,info)ee d skip if the =d FA-nis emptyeddddddd __dddd=d FA-_setn.LT. 1)j)lSand__KId __dddddebug 1)j)lSand__KIdddLddddwrite_ddddrank,'ddddmap_field_send',:, :,:f :,:('Bd FA-nis empty: skipping send!',info)edddddddd--yed__KIGOTO 9999 dddddd--yee ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptd=ddddparam_alloc_fitd ldu(1)d=ddddnsendlist dddLddddalloc(nsend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,'send countA-nNS-',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yedddLddddalloc(psend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,'particle send countA-nPS-',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeldu(1)d=ddddnrecvlist dddLddddalloc(nrecv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,'receive countA-nNRECV',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yedddLddddalloc(precv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,'particle receive countA-nPRECV',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeldu(1)d=ddddnrecvlistd ldu(2)d=dddd=d FA-_setnedddLddddalloc(pp,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,'work =d FA-nPP',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeldu(1)d=ddddnsendlistd ldu(2)d=dddd=d FA-_setnedddLddddalloc(qq,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,'work =d FA-nQQ',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Count the size of the =d FA-nthat will not be send ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddN__KI- 0ed__KId __dddddimn.LT. 3)j)lSand__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d access blocks belonging to the 1st processornd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=ddddpsend=d FA-(1),ddddpsend=d FA-(2)-1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTdddddddddGet the numbA-nof m pointsdin this blockTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTddddddN__KI- N__KI+__ddddm_isend=lksize(1,j)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,j))edddddddddd-f -)ddnd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d access blocks belonging to the 1st processornd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=ddddpsend=d FA-(1),ddddpsend=d FA-(2)-1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTdddddddddGet the numbA-nof m pointsdin this blockTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTddddddN__KI- N__KI+__ddddm_isend=lksize(1,j)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,j)*ddddm_isend=lksize(3,j))edddddddddd-f --yei=d FA-n- 0ed__KIyeps=1,dddd=d FA-_setedddddddddbdimddddd=dddd=d FA-_dim(j)edddddddddi=d FA-nn- i=d FA-n+_bdim*Nd_KITdddddd-e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Initialize the =d FA-ncountA-s ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddnrecv=d FA-n- i=d FA- ddddddnsend(1)dddddddd- i=d FA- ddddddnrecv(1)dddddddd- i=d FA- ddddddpsend(1)dddddddd- Nd_KITddddddprecv(1)dddddddd- Nd_KITddddddmrecv(1,,,,,,,,,= -1Tddddddmsend(1,,,,,,,,,= -1T ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Count the size of the =d FA-snthat will be sent ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddyepk=2,ddddnsendlist ddddnsend(k)- 0ed__KIpsend(k)- 0ed__KIN__KI,,,= 0 nd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d NumbA-nof m pointsdto be sentnoff to the k-th processor innd__KI==d the sendlist ddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d __dddddimn.LT. 3)j)lSand__KI==ddddyepi=ddddpsend=d FA-(k),ddddpsend=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_isend=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,i=)edddddd-f :,:=-)ddnd__KI====yepi=ddddpsend=d FA-(k),ddddpsend=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_isend=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,i=*ddddm_isend=lksize(3,i=)edddddd-f :,:=--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the numbA-nof m pointsdin psend ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==psend(k)- Nd_KIT ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the size of the __KIto be sentnd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=1,dddd=d FA-_seteddddddddddddddnsend(k)- nsend(k)+__dddd=d FA-_dim(j)*Nd_KI)edddddddddd- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Find the maximum =d FA-nlength (for the alloc_Ke) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==msend(= MAX(msend,nsend(k))eddddddddddd __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'msend(= ',msendnd__KIdddLddddwrite_ddddrank,'ddddmap_field_send',g,info)edddddddddd--ye- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Count the size of the =d FA-snthat will be receivedTddddddd (For es we know this a priori. This is di FA-entnfromTddddddd particles)edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddyepk=2,ddddnrecvlist ddddnrecv(k)- 0ed__KIprecv(k)- 0ed__KIN__KI,,,= 0 nd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d NumbA-nof m pointsdto be received=from the k-th processor innd__KI==d the recvlist ddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d __dddddimn.LT. 3)j)lSand__KI==ddddyepi=ddddprecv=d FA-(k),ddddprecv=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_irecv=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_irecv=lksize(2,i=)edddddd-f :,:=-)ddnd__KI====yepi=ddddprecv=d FA-(k),ddddprecv=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_irecv=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_irecv=lksize(2,i=*ddddm_irecv=lksize(3,i=)edddddd-f :,:=--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the numbA-nof m pointsdin precvTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==precv(k)- Nd_KIT ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the size of the __KIto be receivedTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=1,dddd=d FA-_seteddddddddddddddnrecv(k)- nrecv(k)+__dddd=d FA-_dim(j)*Nd_KI)edddddddddd- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Find the maximum =d FA-nlength (for the alloc_Ke) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==mrecv(= MAX(mrecv,nrecv(k))eddddddddddd __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'mrecv(= ',mrecvnd__KIdddLddddwrite_ddddrank,'ddddmap_field_send',g,info)edddddddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Increment the total receive =d FA-ncountTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==pdddnrecv=d FA-n- pdddnrecv=d FA-n+ nrecv(k) eddddddddddd __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'pdddnrecv=d FA-n- ',pdddnrecv=d FA-nd__KIdddLddddwrite_ddddrank,'ddddmap_field_send',g,info)edddddddddd--ye- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke the memory for the copy of the particle =d FA-nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptddd=ddddparam_alloc_growTddddddldu(1)d=ddddnrecv=d FA-n ddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KIdddLddddalloc(ppddrecv=d FA-d,ldu,iopt,info)edddddd-)ddnd__KI=dddLddddalloc(ppddrecv=d FA-s,ldu,iopt,info)edddddd--y ddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,'global receive =d FA-nPPM_RECVBUFFER',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the smaller send and receive =d FA- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd only alloc_Ke if there actually is anything to be sent/recvd withTddddddd other processors. Otherwisedmrecv(and msend(would both still be -1Tdddddd! (asdinitialized above) and the alloc(would throw a FATAL. This was d Bug ID 000012. ddddddd __ddddnrecvlistd 1)j)lSand__KIioptddd=ddddparam_alloc_growTddddddddddldu(1)d=MAX(mrecv,1)eddddddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=dddLddddalloc(recvd,ldu,iopt,info)edddddddddd-)ddnd__KI===dddLddddalloc(recvs,ldu,iopt,info)edddddddddd--y eddddddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI====dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,,,,,'loc_l receive =d FA-nRECV',j)dINE__,info)eddddddddddddddGOTO 9999 dddddddddd--y dddddd--ye d __ddddnsendlistd 1)j)lSand__KIldu(1)d=MAX(msend,1)eddddddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=dddLddddalloc(sendd,ldu,iopt,info)edddddddddd-)ddnd__KI===dddLddddalloc(sends,ldu,iopt,info)edddddddddd--y eddddddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI====dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,,,,,'loc_l send(=d FA-nS-',j)dINE__,info)eddddddddddddddGOTO 9999 dddddddddd--y dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Sum of all m pointsdthat will be sent and received ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddallsend =SUM(psend(1:ddddnsendlist))eddddddallrecv =SUM(precv(1:ddddnrecvlist)) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd CompuKe the pointA-nto the position of the __KIin the main send Tddddddd =d FA-n ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'pddd=d FA-_set=',dddd=d FA-_setedddddddddddddLddddwrite_ddddrank,'ddddmap_field_send',g,info)edddddd--y ddddddbdimd- 0ed__KIoffsn- 0ed__KIyepk=1,dddd=d FA-_setedddddddddoffsn dd=offsn+dallsend*bdimedddddddddqq(1,k)- offsn+d1Tddddddbdimdddd=dddd=d FA-_dim(k)edddddddddyeps=2,ddddnsendlist ddddddqq(j,k)- qq(j-1,k)+=psend(j-1)*bdimeddddddddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9)') 'qq(j,k)=',qq(j,k)nd__KIIdddLddddwrite_ddddrank,'ddddmap_field_send',g,info)edddddddddddd--yed__KI=-f - ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd CompuKe the pointA-nto the position of the __KIin the main receive Tddddddd =d FA-n ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddbdimd- 0ed__KIoffsn- 0ed__KIyepk=1,dddd=d FA-_setedddddddddoffsn dd=offsn+dallrecv*bdimedddddddddpp(1,k)- offsn+d1Tddddddbdimdddd=dddd=d FA-_dim(k)edddddddddyeps=2,ddddnrecvlist ddddddpp(j,k)- pp(j-1,k)+=precv(j-1)*bdimeddddddddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9)') 'pp(j,k)=',dd(j,k)nd__KIIdddLddddwrite_ddddrank,'ddddmap_field_send',g,info)eddddddddddddWRITE(g,'(A,I9,A,I4)') 'precv(j-1)=',drecv(j-1),',:bdim=',bdimedddddddddddddddLddddwrite_ddddrank,'ddddmap_field_send',g,info)edddddddddddd--yed__KI=-f - ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd First copy the on processor __KI - which is in the first =d FA- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KIyepk=1,dddd=d FA-_seteddddddddd i=d FA-n- pp(1,k)- 1Tddddddj=d FA-n- qq(1,k)- 1Tddddddyeps=1,dsend(1)*dddd=d FA-_dim(k)edddddddddddd i=d FA-nnnnnnnnnnnnnnnnnn- i=d FA-n+ 1Tddddddj=d FA-nnnnnnnnnnnnnnnnnn- j=d FA-n+ 1Tddddddppddrecv=d FA-d(i=d FA-)- ppddsend=d FA-d(j=d FA-)edddddddddddd-eddddddddd-edddddd-)ddnd__KI=yepk=1,dddd=d FA-_seteddddddddd i=d FA-n- pp(1,k)- 1Tddddddj=d FA-n- qq(1,k)- 1Tddddddyeps=1,dsend(1)*dddd=d FA-_dim(k)edddddddddddd i=d FA-nnnnnnnnnnnnnnnnnn- i=d FA-n+ 1Tddddddj=d FA-nnnnnnnnnnnnnnnnnn- j=d FA-n+ 1Tddddddppddrecv=d FA-s(i=d FA-)- ppddsend=d FA-s(j=d FA-)edddddddddddd-eddddddddd-edddddd--y e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd loop over the processors in the ppddisendlist(); skip the first entryedddddd! which is the loc_l processor ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOnd__KId For each destination processor in the sendlist dddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOnd__KIyepk=2,ddddnsendlist ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ddddddd Collect each =d FA-nseteddddddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ddddddi=d FA-n- 0ed__KIKIyeps=1,dddd=d FA-_seteddddddddddddddj=d FA-n- qq(k,j)- 1Tdddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd d Collect the __KIinto the send(=d FA-Tdddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd yep =1,dsend(k)*dddd=d FA-_dim(j)eddddddddddddi=d FA-nnnnnnnn- i=d FA-n+ 1Tddddddj=d FA-nnnnnnnn- j=d FA-n+ 1Tddddddsendd(i=d FA-)- ppddsend=d FA-d(j=d FA-)edddddddddddd dd-eddddddddd dd-e ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ddddddd Perform the actual send/recv as needed ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO -aadef,j)MPITddddddddddddd The following d _is needed in ordA-nto skip "dummy"Tddddddddddddd communication roundsdwhere the cur-entnprocessor has to waitTddddddddddddd (only needed in the partial mapping).eddddddddddddd __ddddisendlist(k).GE. 0 .AND. ddddirecvlist(k).GE. 0)j)lSand__KIItag1- knd__KIId __dsend(k) 0 .AND. drecv(k) 0)j)lSand__KI====d __dddddebug 1)j)lSand__KIIWRITE(g,'(2(A,I3))') 'SendRecv to ',ddddisendlist(k), :,:f :,:(1,B0IN'=from ',ddddirecvlist(k)nd__KIIdddLddddwrite_ddddrank,'ddddmap_field_send',g,info)edddddddddddd--yed__KI====dddLMPI_SendRecv(sendd,nsend(k),ddddmpiddddd,:, :,:f :,:(1,B0INB0IN ddddisendlist(k),tag1,recvd,nrecv(k),ddddmpiddddd,:, :,:f :,:(1,B0INB0IN ddddirecvlist(k),tag1,ddddcomm,commstat,info)edddddddddddd-)ddd __dsend(k) 0 .AND. drecv(k)EQ. 0)j)lSand__KI====d __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I3)') 'Send to ',ddddisendlist(k)nd__KIIdddLddddwrite_ddddrank,'ddddmap_field_send',g,info)edddddddddddd--yed__KI====dddLMPI_Send(sendd,nsend(k),ddddmpiddddd,:,,,,, :,:f :,:(1,B0INB0IN ddddisendlist(k),tag1,ddddcomm,info)edddddddddddd-)ddd __dsend(k)EQ. 0 .AND. drecv(k) 0)j)lSand__KI====d __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I3)') 'Recv from ',ddddirecvlist(k)nd__KIIdddLddddwrite_ddddrank,'ddddmap_field_send',g,info)edddddddddddd--yed__KI====dddLMPI_Recv(recvd,nrecv(k),ddddmpiddddd,:,,,,, :,:f :,:(1,B0INB0IN ddddirecvlist(k),tag1,ddddcomm,commstat,info)edddddddddddd-)dded__KI====! do nothingedddddddddddd--yed__KI==--ye-__send__KI==recvd =sendde-_VLISTe====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ====! Store the __KIback in the recv =d FA-Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ddddddi=d FA-n- 0ed__KIKIyeps=1,dddd=d FA-_seteddddddddddddddj=d FA-n- pp(k,j)- 1Tdddddd yep =1,drecv(k)*dddd=d FA-_dim(j)eddddddddddddi=d FA-nnnnnnnnnnnnnnnnnn- i=d FA-n+ 1Tddddddj=d FA-nnnnnnnnnnnnnnnnnn- j=d FA-n+ 1Tddddddppddrecv=d FA-d(j=d FA-)- recvd(i=d FA-)edddddddddddd dd-eddddddddd dd-edddddd dd-edddddd-)ddnd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOnd__KId For each destination processor in the sendlist dddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOnd__KIyepk=2,ddddnsendlist ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOnd__KI ddd Collect each =d FA-nseteddddddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ddddddi=d FA-n- 0ed__KIKIyeps=1,dddd=d FA-_seteddddddddddddddj=d FA-n- qq(k,j)- 1Tdddddd ddd4,BOIe)0=ddddddddddddd De-sL ERp,vp,). ).iBOiBOiBOiBO dddddd d Collect the __KIinto the send(=d FA-Tdddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOTdddddd yep =1,dsend(k)*dddd=d FA-_dim(j)eddddddddddddi=d FA-nnnnnnnn- i=d FA-n+ 1Tddddddj=d FA-nnnnnnnn- j=d FA-n+ 1Tddddddsends(i=d FA-)- ppddsend=d FA-s(j=d FA-)edddddddddddd dd-eddddddddd dd-e ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ddddddd Perform the actual send/recv as needed ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO -aadef,j)MPITddddddd The following d _is needed in ordA-nto skip "dummy"Tddddddddddddd communication roundsdwhere the cur-entnprocessor has to waitTddddddddddddd (only needed in the partial mapping).eddddddddddddd __ddddisendlist(k).GE. 0 .AND. ddddirecvlist(k).GE. 0)j)lSand_______________tag1- knd__KIId __dsend(k) 0 .AND. drecv(k) 0)j)lSand__KI====dddLMPI_SendRecv(sends,nsend(k),ddddmpiddddd,:, :,:f :,:(1,B0INB0IN ddddisendlist(k),tag1,recvs,nrecv(k),ddddmpiddddd,:, :,:f :,:(1,B0INB0IN ddddirecvlist(k),tag1,ddddcomm,commstat,info)edddddddddddd-)ddd __dsend(k) 0 .AND. drecv(k)EQ. 0)j)lSand__KI====dddLMPI_Send(sends,nsend(k),ddddmpiddddd,:,::,:f :,:(1,B0INB0IN ddddisendlist(k),tag1,ddddcomm,info)edddddddddddd-)ddd __dsend(k)EQ. 0 .AND. drecv(k) 0)j)lSand__KI====dddLMPI_Recv(recvs,nrecv(k),ddddmpiddddd,:,::,:f :,:(1,B0INB0IN ddddirecvlist(k),tag1,ddddcomm,commstat,info)edddddddddddd-)dded__KI====! do nothingedddddddddddd--yed__KI==--ye-__send__KI==recvs =sendse-_VLISTe====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ====! Store the __KIback in the recv =d FA-Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBO ddddddi=d FA-n- 0ed__KIKI yeps=1,dddd=d FA-_seteddddddddddddddj=d FA-n- pp(k,j)- 1Tdddddd yep =1,drecv(k)*dddd=d FA-_dim(j)eddddddddddddi=d FA-nnnnnnnnnnnnnnnnnn- i=d FA-n+ 1Tddddddj=d FA-nnnnnnnnnnnnnnnnnn- j=d FA-n+ 1Tddddddppddrecv=d FA-s(j=d FA-)- recvs(i=d FA-)edddddddddddd dd-eddddddddd dd-edddddd dd-edddddd--y e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Dealloc_Ke the send(=d FA-nto save memory ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptd=ddddparam_deallocTddddddd __ddddddddEQ. dddddddddsingle) )lSand__KIdddLddddalloc(ppddsend=d FA-s,ldu,iopt,info)edddddd-)ddnd__KI=dddLddddalloc(ppddsend=d FA-d,ldu,iopt,info)edddddd--yed__KId __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_send',:, :: :,:f :,:(1,'send =d FA-nPPM_S-BUFFER',j)dINE__,info)edddddd--yed__K ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Dealloc_Ke ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptd=ddddparam_deallocTdddddddddLddddalloc(nsend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'send countA-nNS-',j)dINE__,info)edddddd--yedddLddddalloc(nrecv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'receive countA-nNRECV',j)dINE__,info)edddddd--yedddLddddalloc(psend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'particle send countA-nPS-',j)dINE__,info)edddddd--yedddLddddalloc(precv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'particle receive countA-nPRECV',j)dINE__,info)edddddd--yedddLddddalloc( pp,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'work arraynPP',j)dINE__,info)edddddd--yedddLddddalloc( qq,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'work arraynQQ',j)dINE__,info)edddddd--yedddLddddalloc(recvd,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'loc_l receive =d FA-nRECV',j)dINE__,info)edddddd--yedddLddddalloc(recvs,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'loc_l receive =d FA-nRECVS',j)dINE__,info)edddddd--yedddLddddalloc(sendd,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'loc_l send(=d FA-nS-',j)dINE__,info)edddddd--yedddLddddalloc(sends,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_send',:, :: :,:f :,:(1,'loc_l send(=d FA-nS-S',j)dINE__,info)edddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Return ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTd9999=dONTINUETdddddddddL4,stop('ddddmap_field_send',t0,info)eddddddRETURdnd__KI-S,5ROUTINE ddddmap_field_sendnlibddd-1.2/src/map/ddddmap_field_senddalltoall.f000644 000765 000024 00000102635 11445666062 022165 0ustar00omarstaff000000 000000 ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Subroutineddd:dddddddddddddddddddddmap_field_senddalltoall ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), Tddddddd Center for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle M LibraryddPPM).edddddd!edddddd! PPM is free oftware: you can redistribuKe it and/or moLISyedddddd! it under the terms of the GNU Lesser General P4,lic Licnse Tddddddd as p4,lished by the Free Software Foundation, either Tddddddd version 3 of the Licnse, or (at your option) any later Tddddddd version.edddddd!edddddd! PPM is distribuKed=in the hope that it will be useful,edddddd! buK WITHOUT ANY WARRANTY; without even the implied=warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic Licnse for more details.edddddd!edddddd! You should have received=I copy of the GNU General P4,lic LicnseTddddddd and the GNU Lesser General P4,lic Licnse along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle M LibraryddPPM)edddddd! ETH ZurichTddddddd CH-8092 Zurich, Switzerland :)n_,jddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOT :)n_,jS,5ROUTINE ddddmap_field_senddalltoall(info)edddddd!!! This routinedperforms the actual send/recv of theedddddd!!! blocks and all pushedn__KI.edddddd!!!edddddd!!! [WARNING]edddddd!!! This routinedhas not been tesKed, reviewed, or checked. Commentsedddddd!!! and documentation are wrong. This routinedmight kill your cat or d!! worse.edddddd!!!edddddd!!! [NOTE]edddddd!!! The first part of the =d FA-ncontains the on-processor __KI.edddddd!!!edddddd!!! [NOTE]edddddd!!! Using global communication (AllToAll)edddddd!!! could possibly speed-up this routinedon very large architectures.e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Modules ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddUSE ddddmodule_d_KITddddddUSE ddddmodule_d_KI_TddddddUSE ddddmodule_4,startTddddddUSE ddddmodule_4,stopeddddddUSE ddddmodule_errornd__KIUSE ddddmodule_allocTddddddUSE ddddmodule_writeTddddddIddICIT NONE ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Includes ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOT#include "dddddefine.h"-aadef,j)MPITddddddINCLUDE 'mpif.h'T-_VLISe intAger, parameter :: MK =ddddddddddo4,le ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Argumentsddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddER, ,dddddNT( OUT) ::=infof !!! Return status, 0 upon success ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Loc_l variables ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddER,, DIMENddd(3) ::=ldl,lduTddddddddddER, ::=i,j,k,i=d FA-,j=d FA-,bdim,offsTddddddddddER, ::=iopt,tag1,N__KI,msend,mrecv,allsend,allrecvTddddddCHARACTER(ddddchar) ::=gTdddddd== ddddddddddo4,le) ::=t0-aadef,j)MPITddddddINddER,, DIMENddd(MPI_STATUS_SIZE) ::=commstate-_VLISTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddd AllToAll Communication std FTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). TddddddddddER, ::=k=d FA-TddddddINddER,, DIMENddd(:), POINddR ::=irecvo FTINddER,, DIMENddd(:), POINddR ::=isendo Fglobal,=irecvo FglobalTINddER,, DIMENddd(:), POINddR ::=nsendglobal,=nrecvglobalT== ddddddddddo4,le), DIMENddd(:), POINddR ::=isendd,=irecvdT== dddddddddsingle), DIMENddd(:), POINddR ::=isends,=irecvs dd ddLOGICAL ::=rflag dd== ddddddddddo4,le) ::=nonblock_time0,=nonblock_timer,=nonblock_timeoutT ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Externals ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Initialised ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddddddL4,start('ddddmap_field_senddalltoall',t0,info)eeddddddd skip if the =d FA-nis emptyeddddddd __dddd=d FA-_setn.LT. 1)j)lSand__KId __dddddebug 1)j)lSand__KIdddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',:, :,:f :,:('Bd FA-nis empty: skipping send!',info)edddddddd--yed__KIGOTO 9999 dddddd--yeddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptd=ddddparam_alloc_fitd ldu(1)d=ddddnsendlist dddLddddalloc(nsend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd_d__KIdddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'send countA-nNS-',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yedddLddddalloc(psend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'particle send countA-nPS-',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeldu(1)d=ddddnrecvlist dddLddddalloc(nrecv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'receive countA-nNRECV',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yedddLddddalloc(precv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'particle receive countA-nPRECV',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeldu(1)d=ddddnrecvlistd ldu(2)d=dddd=d FA-_setnedddLddddalloc(pp,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'work =d FA-nPP',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeldu(1)d=ddddnsendlistd ldu(2)d=dddd=d FA-_setnedddLddddalloc(qq,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'work =d FA-nQQ',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Count the size of the =d FA-nthat will not be send ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddN__KI- 0ed__KId __dddddimn.LT. 3)j)lSand__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d access blocks belonging to the 1st processornd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=ddddpsend=d FA-(1),ddddpsend=d FA-(2)-1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTdddddddddGet the numbA-nof m pointsdin this blockTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTddddddN__KI- N__KI+__ddddm_isend=lksize(1,j)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,j))edddddddddd-f -)ddnd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d access blocks belonging to the 1st processornd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=ddddpsend=d FA-(1),ddddpsend=d FA-(2)-1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTdddddddddGet the numbA-nof m pointsdin this blockTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTddddddN__KI- N__KI+__ddddm_isend=lksize(1,j)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,j)*ddddm_isend=lksize(3,j))edddddddddd-f --yei=d FA-n- 0ed__KIyeps=1,dddd=d FA-_setedddddddddbdimddddd=dddd=d FA-_dim(j)edddddddddi=d FA-nn- i=d FA-n+_bdim*Nd_KITdddddd-e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). )vp,). ).iBOiBOiBOiBTddddddd Initialize the =d FA-ncountA-s ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddnrecv=d FA-n- i=d FA- ddddddnsend(1)dddddddd- i=d FA- ddddddnrecv(1)dddddddd- i=d FA- ddddddpsend(1)dddddddd- Nd_KITddddddprecv(1)dddddddd- Nd_KITddddddmrecv(1,,,,,,,,,= -1Tddddddmsend(1,,,,,,,,,= -1T ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Count the size of the =d FA-snthat will be sent ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddyepk=2,ddddnsendlist ddddnsend(k)- 0ed__KIpsend(k)- 0ed__KIN__KI,,,= 0 nd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d NumbA-nof m pointsdto be sentnoff to the k-th processor innd__KI==d the sendlist ddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d __dddddimn.LT. 3)j)lSand__KI==ddddyepi=ddddpsend=d FA-(k),ddddpsend=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_isend=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,i=)edddddd-f :,:=-)ddnd__KI====yepi=ddddpsend=d FA-(k),ddddpsend=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_isend=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,i=*ddddm_isend=lksize(3,i=)edddddd-f :,:=--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the numbA-nof m pointsdin psend ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==psend(k)- Nd_KIT ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the size of the __KIto be sentnd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=1,dddd=d FA-_seteddddddddddddddnsend(k)- nsend(k)+__dddd=d FA-_dim(j)*Nd_KI)edddddddddd- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Find the maximum =d FA-nlength (for the alloc_Ke) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==msend(= MAX(msend,nsend(k))eddddddddddd __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'msend(= ',msendnd__KIdddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)edddddddddd--ye- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Count the size of the =d FA-snthat will be receivedTddddddd (For es we know this a priori. This is di FA-entnfromTddddddd particles)edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddyepk=2,ddddnrecvlist ddddnrecv(k)- 0ed__KIprecv(k)- 0ed__KIN__KI,,,= 0 nd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d NumbA-nof m pointsdto be received=from the k-th processor innd__KI==d the recvlist ddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d __dddddimn.LT. 3)j)lSand__KI==ddddyepi=ddddprecv=d FA-(k),ddddprecv=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_irecv=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_irecv=lksize(2,i=)edddddd-f :,:=-)ddnd__KI====yepi=ddddprecv=d FA-(k),ddddprecv=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_irecv=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_irecv=lksize(2,i=*ddddm_irecv=lksize(3,i=)edddddd-f :,:=--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the numbA-nof m pointsdin precvTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==precv(k)- Nd_KIT ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the size of the __KIto be receivedTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=1,dddd=d FA-_seteddddddddddddddnrecv(k)- nrecv(k)+__dddd=d FA-_dim(j)*Nd_KI)edddddddddd- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Find the maximum =d FA-nlength (for the alloc_Ke) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==mrecv(= MAX(mrecv,nrecv(k))eddddddddddd __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'mrecv(= ',mrecvnd__KIdddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)edddddddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Increment the total receive =d FA-ncountTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==pdddnrecv=d FA-n- pdddnrecv=d FA-n+ nrecv(k) eddddddddddd __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'pdddnrecv=d FA-n- ',pdddnrecv=d FA-nd__KIdddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)edddddddddd--ye- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke the memory for the copy of the particle =d FA-nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptddd=ddddparam_alloc_growTddddddldu(1)d=ddddnrecv=d FA-n ddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KIdddLddddalloc(ppddrecv=d FA-d,ldu,iopt,info)edddddd-)ddnd__KI=dddLddddalloc(ppddrecv=d FA-s,ldu,iopt,info)edddddd--y ddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'global receive =d FA-nPPM_RECVBUFFER',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the smaller send and receive =d FA- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd only alloc_Ke if there actually is anything to be sent/recvd withTddddddd other processors. Otherwisedmrecv(and msend(would both still be -1Tdddddd! (asdinitialized above) and the alloc(would throw a FATAL. This was d Bug ID 000012. ddddddd __ddddnrecvlistd 1)j)lSand__KIioptddd=ddddparam_alloc_growTddddddddddldu(1)d=MAX(mrecv,1)eddddddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=dddLddddalloc(recvd,ldu,iopt,info)edddddddddd-)ddnd__KI===dddLddddalloc(recvs,ldu,iopt,info)eddddddd dd--y ddddddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI====dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'loc_l receive =d FA-nRECV',j)dINE__,info)eddddddddddddddGOTO 9999 dddddddddd--y dddddd--ye d __ddddnsendlistd 1)j)lSand__KIldu(1)d=MAX(msend,1)eddddddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=dddLddddalloc(sendd,ldu,iopt,info)edddddddddd-)ddnd__KI===dddLddddalloc(sends,ldu,iopt,info)edddddddddd--y eddddddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI====dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'loc_l send(=d FA-nS-',j)dINE__,info)eddddddddddddddGOTO 9999 dddddddddd--y dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Sum of all m pointsdthat will be sent and received ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddallsend =SUM(psend(1:ddddnsendlist))eddddddallrecv =SUM(precv(1:ddddnrecvlist)) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd CompuKe the pointA-nto the position of the __KIin the main send Tddddddd =d FA-n ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'pddd=d FA-_set=',dddd=d FA-_setedddddddddddddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)edddddd--y ddddddbdimd- 0ed__KIoffsn- 0ed__KIyepk=1,dddd=d FA-_setedddddddddoffsn dd=offsn+dallsend*bdimedddddddddqq(1,k)- offsn+d1Tddddddbdimdddd=dddd=d FA-_dim(k)edddddddddyeps=2,ddddnsendlist ddddddqq(j,k)- qq(j-1,k)+=psend(j-1)*bdimeddddddddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9)') 'qq(j,k)=',qq(j,k)nd__KIIdddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)edddddddddddd--yed__KI=-f - ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd CompuKe the pointA-nto the position of the __KIin the main receive Tddddddd =d FA-n ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddbdimd- 0ed__KIoffsn- 0ed__KIyepk=1,dddd=d FA-_setedddddddddoffsn dd=offsn+dallrecv*bdimedddddddddpp(1,k)- offsn+d1Tddddddbdimdddd=dddd=d FA-_dim(k)edddddddddyeps=2,ddddnrecvlist ddddddpp(j,k)- pp(j-1,k)+=precv(j-1)*bdimeddddddddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9)') 'pp(j,k)=',dd(j,k)nd__KIIdddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)eddddddddddddWRITE(g,'(A,I9,A,I4)') 'precv(j-1)=',drecv(j-1),',:bdim=',bdimedddddddddddddddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)edddddddddddd--yed__KI=-f - ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd First copy the on processor __KI - which is in the first =d FA- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KIyepk=1,dddd=d FA-_seteddddddddd i=d FA-n- pp(1,k)- 1Tddddddddddddj=d FA-n- qq(1,k)- 1Tddddddyeps=1,dsend(1)*dddd=d FA-_dim(k)edddddddddddd i=d FA-nnnnnnnnnnnnnnnnnn- i=d FA-n+ 1Tddddddj=d FA-nnnnnnnnnnnnnnnnnn- j=d FA-n+ 1Tddddddppddrecv=d FA-d(i=d FA-)- ppddsend=d FA-d(j=d FA-)edddddddddddd-eddddddddd-edddddd-)ddnd__KI=yepk=1,dddd=d FA-_seteddddddddd i=d FA-n- pp(1,k)- 1Tddddddj=d FA-n- qq(1,k)- 1Tddddddyeps=1,dsend(1)*dddd=d FA-_dim(k)edddddddddddd i=d FA-nnnnnnnnnnnnnnnnnn- i=d FA-n+ 1Tddddddj=d FA-nnnnnnnnnnnnnnnnnn- j=d FA-n+ 1Tddddddppddrecv=d FA-s(i=d FA-)- ppddsend=d FA-s(j=d FA-)edddddddddddd-eddddddddd-edddddd--y e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddd Alloc_Ke =d FA-snfor all-to-all communication ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddioptddd=ddddparam_alloc_fitTddddddldu(1)d=ddddnsendlist dddLddddalloc(irecvo F,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'irecvo F array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeTddddddioptddd=ddddparam_alloc_fitTddddddldl(1)d=0Tddddddldu(1)d=ddddnproc-1TdddddddddLddddalloc(isendo Fglobal,ldl,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'isendo Fglobal array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeioptddd=ddddparam_alloc_fitTddddddldl(1)d=0Tddddddldu(1)d=ddddnproc-1TdddddddddLddddalloc(irecvo Fglobal,ldl,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'irecvo Fglobal array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeioptddd=ddddparam_alloc_fitTddddddldl(1)d=0Tddddddldu(1)d=ddddnproc-1TdddddddddLddddalloc(nsendglobal,ldl,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'nsendglobal array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeioptddd=ddddparam_alloc_fitTddddddldl(1)d=0Tddddddldu(1)d=ddddnproc-1TdddddddddLddddalloc(nrecvglobal,ldl,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'nrecvglobal array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeTdddddde d _dddddddd.EQ.ddddddddddo4,le) )lSand__KIioptddd=ddddparam_alloc_fitTdddddddddldu(1)d=SUM(nsend(2:ddddnsendlist))eddddddddddddLddddalloc(isendd,ldu,iopt,info)edddddddddd _info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'isendd array',j)dINE__,info)eddddddddddddGOTO 9999 dddddd dd--yed__KI=ioptddd=ddddparam_alloc_fitTdddddddddldu(1)d=SUM(nrecv(2:ddddnsendlist))eddddddddddddLddddalloc(irecvd,ldu,iopt,info)edddddddddd _info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'irecvd array',j)dINE__,info)eddddddddddddGOTO 9999 dddddd dd--yed__KI-)ddnd__KI=ioptddd=ddddparam_alloc_fitTdddddddddldu(1)d=SUM(nsend(2:ddddnsendlist))eddddddddddddLddddalloc(isends,ldu,iopt,info)edddddddddd _info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'isends array',j)dINE__,info)eddddddddddddGOTO 9999 dddddd dd--yed__KI=ioptddd=ddddparam_alloc_fitTdddddddddldu(1)d=SUM(nrecv(2:ddddnsendlist))eddddddddddddLddddalloc(irecvs,ldu,iopt,info)edddddddddd _info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,,,,,'irecvs array',j)dINE__,info)eddddddddddddGOTO 9999 dddddd dd--yed__KI-ND -yeTddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddd loop ovA-ncpus in isendlist, skip the first guy which is the loc_lTddddddd processor, put the std F in one (bigish) send(=d FA-nand store theTddddddd dddex ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KIisendo Fglobal - 0ed__KIirecvo Fglobal - 0ed__KInsendglobal - 0ed__KInrecvglobal - 0ed__KIed__KIk=d FA-n- 0ed__KIKIyepk=2,ddddnsendlist ddddddd _dsend(k)0)j)lSand__KI====isendo Fglobal_ddddisendlist(k))d=k=d FA-Tddddddddddddddddnsendglobal_ddddisendlist(k))d=nsend(k)edddddddddddd- -yed__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd collect each =d FA-nseteddddddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddyeps=1,dddd=d FA-_seteddddddddd dj=d FA-n- qq(k,j)- 1Tdddddd yep =1,dsend(k)*dddd=d FA-_dim(j)eddddddddddddk=d FA-n- k=d FA-n+ 1Tdddddd dj=d FA-n- j=d FA-n+ 1Tddddddisendd(k=d FA-)- ppddsend=d FA-d(j=d FA-)eddddddddddddddd- f :,:=dd dd ___dsend(k)0).AND._dddddebug 1))j)lSand__KI====! dj=d FA-n- qq(k,j)nd__KI====! dWRITE(g,'(A,I9,A,I9,F10.4,A,I9)') 'Initial send(hash ',k,' =d FA-nset ',j,SUM(ppddsend=d FA-d(j=d FA-:j=d FA-+dsend(k)*dddd=d FA-_dim(j)-1)),' to ',ddddisendlist(k)nd__KI====! ddddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)edddddddddddd!--yed__KI==- edddddd dd- edddddd ddk=d FA-n- 1ed__KIKIyepk=2,ddddnsendlist ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd construct irecvo FTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd _drecv(k)0)j)lSand__KI====irecvo Fglobal_ddddirecvlist(k))d=k=d FA--1Tddddddnrecvglobal_ddddirecvlist(k))d=nrecv(k) d__KI====irecvo F(k)- k=d FA-Tdddddddddddddddk=d FA-n- k=d FA-n+ nrecv(k) d__KI==-)dded__KI====irecvo F(k)- -1Tdddddd- -yed__KI=- edddddd dd -aadef,j)MPITdddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI=d Perform the All To all Send/Recvnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI=d __ddddnsendlist1)j)lSand__KIIdddLMPI_AllToAllv(isendd(1),=nsendglobal,=isendo Fglobal,ddddmpiddddd,: :,:f :,:(1,,,,,,,,,irecvd(1),=nrecvglobal,irecvo Fglobal,ddddmpiddddd,: :,:f :,:(1,,,,,,,,,ddddcomm, info)eddddddddd- -ye-__sen#error not implemented=for usage without MPI. take ddddmap_field_send.F insteade-_VLIST edddddd-)ddnd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddd single=precision casend__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddisendo Fglobal - 0ed__KIirecvo Fglobal - 0ed__KInsendglobal - 0ed__KInrecvglobal - 0ed__KIed__KIk=d FA-n- 0ed__KIKIyepk=2,ddddnsendlist ddddddd _dsend(k)0)j)lSand__KI====isendo Fglobal_ddddisendlist(k))d=k=d FA-Tddddddddddddddddnsendglobal_ddddisendlist(k))d=nsend(k)edddddddddddd- -yed__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd collect each =d FA-nseteddddddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddyeps=1,dddd=d FA-_seteddddddddd dj=d FA-n- qq(k,j)- 1Tdddddd yep =1,dsend(k)*dddd=d FA-_dim(j)eddddddddddddk=d FA-n- k=d FA-n+ 1Tdddddd dj=d FA-n- j=d FA-n+ 1Tddddddisends(k=d FA-)- ppddsend=d FA-s(j=d FA-)edddddddddddd dd- f :,:=dd dd ___dsend(k)0).AND._dddddebug 1))j)lSand__KI====! dj=d FA-n- qq(k,j)nd__KI====! dWRITE(g,'(A,I9,I9,F10.4,A,I9)') 'Initial send(hash ',k,j,SUM(ppddsend=d FA-s(j=d FA-:j=d FA-+dsend(k)*dddd=d FA-_dim(j)-1)),' to ',ddddisendlist(k)nd__KI====! ddddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)edddddddddddd!--yed__KI==- edddddd dd- edddddd ddk=d FA-n- 1ed__KIKIyepk=2,ddddnsendlist ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd construct irecvo FTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd _drecv(k)0)j)lSand__KI====irecvo Fglobal_ddddirecvlist(k))d=k=d FA--1Tddddddnrecvglobal_ddddirecvlist(k))d=nrecv(k) d__KI====irecvo F(k)- k=d FA-Tdddddddddddddddk=d FA-n- k=d FA-n+ nrecv(k) d__KI==-)dded__KI====irecvo F(k)- -1Tdddddd- -yed__KI=- edddddd dd -aadef,j)MPITddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). kVL ERp,vp,). Tdddddddddd Perform the All To all Send/Recvnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI=d __ddddnsendlist1)j)lSand__KIIdddLMPI_AllToAllv(isends(1),=nsendglobal,=isendo Fglobal,ddddmpiddddd,: :,: f :,:(1,,,,,,,,,irecvs(1),=nrecvglobal,irecvo Fglobal,ddddmpiddddd,: :,: f :,:(1,,,,,,,,,ddddcomm, info)eddddddddd- -ye-__sen#error not implemented=for usage without MPI. take ddddmap_field_send.F insteade-_VLIST--ye d _dddddddd.EQ.ddddddddddo4,le) )lSand__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddd now copy the __KI backinto the re_l receive =d FA-nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddk=d FA-n- 0ed__KIKIyepk=2,ddddnsendlist ddddddk=d FA-n- irecvo F(k)-1Tddddddyeps=1,dddd=d FA-_seteddddddddd dj=d FA-n- pp(k,j)- 1Tdddddd yep =1,drecv(k)*dddd=d FA-_dim(j)eddddddddddddj=d FA-n- j=d FA-n+ 1Tddddddk=d FA-n- k=d FA-n+ 1Tdddddd dppddrecv=d FA-d(j=d FA-)- irecvd(k=d FA-)edddddddddddd dd- f :,:=dd dd ___drecv(k)0).AND._dddddebug 1))j)lSand__KI====! dj=d FA-n- pp(k,j)nd__KI====! dWRITE(g,'(A,I9,A,I9,F10.4,A,I9)') 'Received=hash ',k,' =d FA-nset ',j,SUM(ppddrecv=d FA-d(j=d FA-:j=d FA-+drecv(k)*dddd=d FA-_dim(j)-1)),' to ',ddddirecvlist(k)nd__KI====! ddddLddddwrite_ddddrank,'ddddmap_field_senddalltoall',g,info)edddddddddddd!--yed__KI==- edddddd dd- edddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddd dealloc_Ke=non-blocking thingsedddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddioptd=ddddparam_deallocTdddddd dddLddddalloc(irecvo F,ldu,iopt,info)edddddd dddLddddalloc(isendd,ldu,iopt,info)eddddddddddddLddddalloc(irecvd,ldu,iopt,info)edddddddddedddddd dddLddddalloc(isendo Fglobal,ldu,iopt,info)eddddddddddddLddddalloc(irecvo Fglobal,ldu,iopt,info)eddddddddddddLddddalloc(nsendglobal,ldu,iopt,info)eddddddddddddLddddalloc(nrecvglobal,ldu,iopt,info)edddddd-)dd ddedddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddd now copy the __KI backinto the re_l receive =d FA-nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddk=d FA-n- 0ed__KIKIyepk=2,ddddnsendlist ddddddk=d FA-n- irecvo F(k)-1Tddddddyeps=1,dddd=d FA-_seteddddddddd dj=d FA-n- pp(k,j)- 1Tdddddd yep =1,drecv(k)*dddd=d FA-_dim(j)eddddddddddddj=d FA-n- j=d FA-n+ 1Tddddddk=d FA-n- k=d FA-n+ 1Tdddddd dppddrecv=d FA-s(j=d FA-)- irecvs(k=d FA-)edddddddddddd dd- f :,:=dd- edddddd dd- edddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddd dealloc_Ke=non-blocking thingsedddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddioptd=ddddparam_deallocdddddddddTdddddd dddLddddalloc(irecvo F,ldu,iopt,info)edddddd dddLddddalloc(isends,ldu,iopt,info)eddddddddddddLddddalloc(irecvs,ldu,iopt,info)edddddddddedddddd dddLddddalloc(isendo Fglobal,ldu,iopt,info)eddddddddddddLddddalloc(irecvo Fglobal,ldu,iopt,info)eddddddddddddLddddalloc(nsendglobal,ldu,iopt,info)eddddddddddddLddddalloc(nrecvglobal,ldu,iopt,info)edddddd- -yed__KI= ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Dealloc_Ke=the send =d FA-nto save memory ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptd=ddddparam_deallocTddddddd __dddddddd .EQ. dddddddddsingle)j)lSand__KI==dddLddddalloc(ppddsend=d FA-s,ldu,iopt,info)edddddd-)ddnd__KI==dddLddddalloc(ppddsend=d FA-d,ldu,iopt,info)edddddd--yed__KId __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'send =d FA-nPPM_S-BUFFER',j)dINE__,info)edddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Dealloc_Ke ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptd=ddddparam_deallocTdddddddddLddddalloc(nsend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'send countA-nNS-',j)dINE__,info)edddddd--yedddLddddalloc(nrecv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'receive countA-nNRECV',j)dINE__,info)edddddd--yedddLddddalloc(psend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'particle send countA-nPS-',j)dINE__,info)edddddd--yedddLddddalloc(precv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'particle receive countA-nPRECV',j)dINE__,info)edddddd--yedddLddddalloc( dpp,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'work arraynPP',j)dINE__,info)edddddd--yedddLddddalloc( dqq,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'work arraynQQ',j)dINE__,info)edddddd--yedddLddddalloc(recvd,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'loc_l receive =d FA-nRECV',j)dINE__,info)edddddd--yedddLddddalloc(recvs,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'loc_l receive =d FA-nRECVS',j)dINE__,info)edddddd--yedddLddddalloc(sendd,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'loc_l send(=d FA-nS-',j)dINE__,info)edddddd--yedddLddddalloc(sends,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_dealloc,'ddddmap_field_senddalltoall',:, :: :,:f :,:(1,'loc_l send(=d FA-nS-S',j)dINE__,info)edddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Return ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTd9999 CONTINUEedddL4,stop('ddddmap_field_senddalltoall',t0,info)eRETURNedddddd- SUBROUTINE ddddmap_field_senddalltoall libddd-1.2/src/map/ddddmap_field_senddnoblock.f000644 000765 000024 00000116747 11445666062 022021 0ustar00omarstaff000000 000000 ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Subroutineddd: ddddmap_field_senddnoblock ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), Tddddddd CentA-nfor Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle M Library (PPM).edddddd!edddddd! PPM is free software: you can redistribuKe it and/or odify ddd ddd it under the tA-ms of the GNU Lesser General Public Licensed d as published(=y the Free Software Foundation, either d version 3 of the License, or (at your option) any later d version.edddddd!edddddd! PPM is distribuKed in the hopedthat it will be useful,edddddd! buK WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theTddddddd GNU General Public Licensedfor ore details.edddddd!edddddd! You should have received=a copy of the GNU General Public License d and the GNU Lesser General Public Licensedalong with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle M Library (PPM)edddddd! ETH ZurichTddddddd CH-8092 Zurich, Switzerland ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOT SUBROUTINE ddddmap_field_senddnoblock(info)e!!! This routinedperforms the actual send/recv of thee!!! blocks and all pushed(__KI. This is the non-blocking version ofedddddd!!! `ddddmap_field_send`.edddddd!!!edddddd!!! [WARNING]e!!! This routinedhas not been tesKed, reviewed, or checked. Commentse!!! and documentation are wrong. This routinedmight kill your cat ornd__KI!!! worse.edddddd!!!edddddd!!! [NOTE]e!!! The first part of the =d FA-ncontains the on processor __KI. ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Modules= ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TddddddUSE ddddmodule_d_KITddddddUSE ddddmodule_d_KIdmTddddddUSE ddddmodule_4,startTddddddUSE ddddmodule_4,stopTddddddUSE ddddmodule_errornd__KIUSE ddddmodule_allocTddddddUSE ddddmodule_writeedddddddMPLICIT NONE ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Includes ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOT#include "dddddefine.h" -aadef,j)MPITdddINCLUDE 'mpif.h'e-_VLISTintAger, parameter :: mk =ddddddddddo4,le= ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Argumentsn ddn ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddddNTEGER ,ddNTENT( OUT) :: infoe!!! Return status, 0 on success ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Loc_l variables= ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TdddddddNTEGER, DIMENSION(3) :: lduTdddddddNTEGER :: i,j,k,i=d FA-,j=d FA-,bdim,offsTdddddddNTEGER :: iopt,tag1,Nd_KI,msend,mrecv,allsend,allrecvnd__KICHARACTER(ddddchar) :: geREAL(ddddddddddo4,le) :: t0 -aadef,j)MPITdddINTEGER, DIMENSION(MPI_STATUS_SIZE) :: commstate-_VLISTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddd Non-blockingTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). TdddddddNTEGER :: k=d FA-, kreq, rdddex INTEGER, DIMENSION(:), POINTER :: klist INTEGER, DIMENSION(:), POINTER :: isendo F,irecvo F, request ! 3 linesnfor new separate request arraysTdddddddNTEGER :: kreqrecv, kreqsend INTEGER, DIMENSION(:), POINTER :: sendreqs, recvreqs INTEGER, DIMENSION(:), POINTER :: klistsend, klistrecvnd__KIREAL(ddddddddddo4,le), DIMENSION(:), POINTER :: isendd,irecvdnd__KIREAL(dddddddddsingle), DIMENSION(:), POINTER :: isends,irecvs LOGICAL :: rflageREAL(ddddddddddo4,le) :: nonblock_time0, nonblock_timer, nonblock_timeoute ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Externals= ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tdddddd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Initialise= ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TdddddddddL4,start('ddddmap_field_senddnoblock',t0,info)eedddddd! skip if the =d FA-nis empty ddd ddd __dddd=d FA-_setn.LT. 1)j)lSand__KId __dddddebug 1)j)lSand__KIdddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',:: :,:f :,:('Bd FA-nis empty: skipping send!',info)edddddddd--yed__KIGOTO 9999 dddddd--ye ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Alloc_Ke ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptd=ddddparam_alloc_fit= ddd ddldu(1)d=ddddnsendlist dddLddddalloc(nsend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'send countA-nNS-',j)dINE__,info)eddddddIGOTO 9999 dddddd--yedddLddddalloc(psend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'particle send countA-nPS-',j)dINE__,info)eddddddIGOTO 9999 dddddd--yeldu(1)d=ddddnrecvlist dddLddddalloc(nrecv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'receive countA-nNRECV',j)dINE__,info)eddddddIGOTO 9999 dddddd--yedddLddddalloc(precv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'particle receive countA-nPRECV',j)dINE__,info)eddddddIGOTO 9999 dddddd--yeldu(1)d=ddddnrecvlist= ddd ddldu(2)d=dddd=d FA-_setnedddLddddalloc(pp,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'work =d FA-nPP',j)dINE__,info)eddddddIGOTO 9999 dddddd--yeldu(1)d=ddddnsendlist= ddd ddldu(2)d=dddd=d FA-_setnedddLddddalloc(qq,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'work =d FA-nQQ',j)dINE__,info)eddddddIGOTO 9999 dddddd--ye ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Count the size of the =d FA-dthat will not be send ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TddddddN__KI- 0eddddddd __dddddimn.LT. 3)j)lSand__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d access blocks belonging to the 1st processornd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=ddddpsend=d FA-(1),ddddpsend=d FA-(2)-1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTdddddddGet the numbA-nof m pointsdin this block ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTddddddN__KI- N__KI+__ddddm_isend=lksize(1,j)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,j))edddddddddd-f -)ddnd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d access blocks belonging to the 1st processornd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=ddddpsend=d FA-(1),ddddpsend=d FA-(2)-1Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTdddddddGet the numbA-nof m pointsdin this block ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBTddddddN__KI- N__KI+__ddddm_isend=lksize(1,j)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,j)*ddddm_isend=lksize(3,j))edddddddddd-f --yei=d FA-n- 0ed__KIyeps=1,dddd=d FA-_setedddddddddbdimddddd=dddd=d FA-_dim(j)edddddddddi=d FA-nn- i=d FA-n+_bdim*Nd_KIf -e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Initialize the =d FA-ncountA-s ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddddddnrecv=d FA-n- i=d FA-nd__KInsend(1)dddddddd- i=d FA-nd__KInrecv(1)dddddddd- i=d FA-nd__KIpsend(1)dddddddd- Nd_KIf precv(1)dddddddd- Nd_KIf mrecv(((((((((((- -1Tddddddmsend(((((((((((- -1T ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Count the size of the =d FA-sdthat will be sent ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddyepk=2,ddddnsendlist ddddnsend(k)n- 0ed__KIKI psend(k)n- 0ed__KIKI N__KI(((- 0e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d NumbA-nof m pointsdto be sent off to the k-th processor innd__KI==d the sendlist ddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d __dddddimn.LT. 3)j)lSand__KI==ddddyepi=ddddpsend=d FA-(k),ddddpsend=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_isend=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,i=)edddddd-f :,:=-)dded__KI====yepi=ddddpsend=d FA-(k),ddddpsend=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_isend=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_isend=lksize(2,i=*ddddm_isend=lksize(3,i=)edddddd-f :,:=--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the numbA-nof m pointsdin psend ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==psend(k)n- Nd_KI ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the size of the __KIto be sentnd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=1,dddd=d FA-_seteddddddddd dnsend(k)n- nsend(k)n+__dddd=d FA-_dim(j)*Nd_KI)edddddddddd- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Find the maximum =d FA-nlength (for the alloc_Ke) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==msend(=MAX(msend,nsend(k))nd__KI==d __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'msend(=',msendnd__KIdddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddddddd--ye- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Count the size of the =d FA-sdthat will be received d (For es we know this a priori. This is di FA-ent from d particles) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddyepk=2,ddddnrecvlist ddddnrecv(k)n- 0ed__KIKI precv(k)n- 0ed__KIKI N__KI(((- 0e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d NumbA-nof m pointsdto be received=from the k-th processor innd__KI==d the recvlist ddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d __dddddimn.LT. 3)j)lSand__KI==ddddyepi=ddddprecv=d FA-(k),ddddprecv=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_irecv=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_irecv=lksize(2,i=)edddddd-f :,:=-)dded__KI====yepi=ddddprecv=d FA-(k),ddddprecv=d FA-(k+1)-1TddddddN__KI- N__KI+__ddddm_irecv=lksize(1,i)*, :: :,:f :,:(1,,,,,,,,,ddddm_irecv=lksize(2,i=*ddddm_irecv=lksize(3,i=)edddddd-f :,:=--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the numbA-nof m pointsdin precvnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==precv(k)n- Nd_KI ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Store the size of the __KIto be received ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==yeps=1,dddd=d FA-_seteddddddddd dnrecv(k)n- nrecv(k)n+__dddd=d FA-_dim(j)*Nd_KI)edddddddddd- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Find the maximum =d FA-nlength (for the alloc_Ke) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==mrecv =MAX(mrecv,nrecv(k))nd__KI==d __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'mrecv =',mrecvnd__KIdddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==d Increment the tot_l receive =d FA-ncountnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBnd__KI==pdddnrecv=d FA-n- pdddnrecv=d FA-n+ nrecv(k) nd__KI==d __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'pdddnrecv=d FA-n- ',pdddnrecv=d FA-nd__KIdddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddddddd--ye- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke the memory for the copy of the particle =d FA-nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptddd=ddddparam_alloc_growTddddddldu(1)d=ddddnrecv=d FA-n I==d __dddddddd.EQ.ddddddddddo4,le) )lSand__KIdddLddddalloc(ppddrecv=d FA-d,ldu,iopt,info)edddddd-)ddnd__KI=dddLddddalloc(ppddrecv=d FA-s,ldu,iopt,info)edddddd--y eI==d __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'global receive =d FA-nPPM_RECVBUFFER',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Alloc_Ke memory for the smaller send and receive =d FA-nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd only alloc_Ke if there actually is anythingto be sent/recvd withTddddddd other processors. Otherwise=mrecv and msend(would both still be -1Tdddddd! (asdinitialized above) and the allocdwould throw a FATAL. This was ddd ddd Bug ID 000012. I==d __ddddnrecvlist= 1)j)lSand__KIioptddd=ddddparam_alloc_growTddddddddddldu(1)d=MAX(mrecv,1)nd__KI==d __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=dddLddddalloc(recvd,ldu,iopt,info)eddddddddd=-)dded__KI===dddLddddalloc(recvs,ldu,iopt,info)edddddddddd--y nd__KI==d __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI====dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'loc_l receive =d FA-nRECV',j)dINE__,info)eddddddddddddddGOTO 9999 dddddd ddd--ye--ye d __ddddnsendlist= 1)j)lSand__KIldu(1)d=MAX(msend,1)nd__KI==d __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=dddLddddalloc(sendd,ldu,iopt,info)eddddddddd=-)dded__KI===dddLddddalloc(sends,ldu,iopt,info)edddddddddd--y nd__KI==d __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI====dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'loc_l send(=d FA-nS-',j)dINE__,info)eddddddddddddddGOTO 9999 dddddd ddd--ye--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Sum of all m pointsdthat will be sent and received ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddallsendd=SUM(psend(1:ddddnsendlist))eddddddallrecvd=SUM(precv(1:ddddnrecvlist)) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd CompuKe the pointA-nto the position of the __KIin the main senddTddddddd =d FA-n I==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd __dddddebug 1)j)lSand__KIWRITE(g,'(A,I9)') 'pddd=d FA-_set=',dddd=d FA-_seteddddddddd dddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddd--yebdimd- 0ed__KIoffsn- 0ed__KIyepk=1,dddd=d FA-_setedddddddddoffsn dd=offsn+dallsend*bdimedddddddddqq(1,k)n- offsn+d1Tddddddbdimdddd=dddd=d FA-_dim(k)nd__KI=yeps=2,ddddnsendlist ddddddqq(j,k)n- qq(j-1,k)n+=psend(j-1)*bdimeddddddddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9)') 'qq(j,k)=',qq(j,k)nd__KIIdddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddddddddd--yed__KI=-f - ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd CompuKe the pointA-nto the position of the __KIin the main receive Tddddddd =d FA-n I==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddbdimd- 0ed__KIoffsn- 0ed__KIyepk=1,dddd=d FA-_setedddddddddoffsn dd=offsn+dallrecv*bdimedddddddddpp(1,k)n- offsn+d1Tddddddbdimdddd=dddd=d FA-_dim(k)nd__KI=yeps=2,ddddnrecvlist ddddddpp(j,k)n- pp(j-1,k)n+=precv(j-1)*bdimeddddddddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9)') 'pp(j,k)=',dd(j,k)nd__KIIdddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)eddddddddddddWRITE(g,'(A,I9,A,I4)') 'precv(j-1)=',drecv(j-1),',:bdim=',bdimedddddddddddddddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddddddddd--yed__KI=-f - ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd First copy the on processor __KI - which is in the first =d FA-nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KIyepk=1,dddd=d FA-_seteddddddddd i=d FA-n- pp(1,k)n- 1Tddddddj=d FA-n- qq(1,k)n- 1Tddddddyeps=1,dsend(1)*dddd=d FA-_dim(k) d__KI====i=d FA-n- i=d FA-n+ 1Tddddddj=d FA-n- j=d FA-n+ 1Tddddddppddrecv=d FA-d(i=d FA-)- ppddsend=d FA-d(j=d FA-)edddddddddddd-eddddddddd-edddddd-)dded__KI=yepk=1,dddd=d FA-_seteddddddddd i=d FA-n- pp(1,k)n- 1Tddddddj=d FA-n- qq(1,k)n- 1Tddddddyeps=1,dsend(1)*dddd=d FA-_dim(k) d__KI====i=d FA-n- i=d FA-n+ 1Tddddddj=d FA-n- j=d FA-n+ 1Tddddddppddrecv=d FA-s(i=d FA-)- ppddsend=d FA-s(j=d FA-)edddddddddddd-eddddddddd-edddddd--y nnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddd Alloc_Ke =d FA-sdfor non-blocking communicationnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddioptddd=ddddparam_alloc_fitTddddddldu(1)d=2*ddddnsendlist dddLddddalloc(klist,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'request array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeioptddd=ddddparam_alloc_fitTddddddldu(1)d=2*ddddnsendlist dddLddddalloc(request,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'request array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeTddddddd 4 new arraysdfor separate request listseioptddd=ddddparam_alloc_fitTddddddldu(1)d=ddddnsendlist dddLddddalloc(klistsend,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'k listdfor send requests',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeioptddd=ddddparam_alloc_fitTddddddldu(1)d=ddddnsendlist dddLddddalloc(klistrecv,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'k listdfor recvdrequests',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeioptddd=ddddparam_alloc_fitTddddddldu(1)d=ddddnsendlist dddLddddalloc(sendreqs,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'send requests array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeioptddd=ddddparam_alloc_fitTddddddldu(1)d=ddddnsendlist dddLddddalloc(recvreqs,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'recvdrequests array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeTddddddioptddd=ddddparam_alloc_fitTddddddldu(1)d=ddddnsendlist dddLddddalloc(isendo F,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'isendo F array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeioptddd=ddddparam_alloc_fitTddddddldu(1)d=ddddnsendlist dddLddddalloc(irecvo F,ldu,iopt,info)eddddddd _info.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'irecvo F array',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeeddddddd _dddddddd.EQ.ddddddddddo4,le) )lSand__KIioptddd=ddddparam_alloc_fitTdddddddddldu(1)d=SUM(nsend(2:ddddnsendlist))edddddddddLddddalloc(isendd,ldu,iopt,info)edddddddddd _info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'isendd array',j)dINE__,info)eddddddddddddGOTO 9999 dddddd dd--yed__KI=ioptddd=ddddparam_alloc_fitTdddddddddldu(1)d=SUM(nrecv(2:ddddnsendlist))edddddddddLddddalloc(irecvd,ldu,iopt,info)edddddddddd _info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'irecvd array',j)dINE__,info)eddddddddddddGOTO 9999 dddddd dd--yed__KI-)dded__KI=ioptddd=ddddparam_alloc_fitTdddddddddldu(1)d=SUM(nsend(2:ddddnsendlist))edddddddddLddddalloc(isends,ldu,iopt,info)edddddddddd _info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'isendd array',j)dINE__,info)eddddddddddddGOTO 9999 dddddd dd--yed__KI=ioptddd=ddddparam_alloc_fitTdddddddddldu(1)d=SUM(nrecv(2:ddddnsendlist))edddddddddLddddalloc(irecvs,ldu,iopt,info)edddddddddd _info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI==dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,,,,,'irecvd array',j)dINE__,info)eddddddddddddGOTO 9999 dddddd dd--yed__KI- -yed__KI dd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddd loop ovA-ncpus in isendlist, skip the first guy which is the loc_lTddddddd processor, put the stufF in one (bigish) send(=d FA-nand store theTddddddd dddex ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KIk=d FA-n- 0ed__KIKIyepk=2,ddddnsendlist ddddddd _dsend(k)0)j)lSand__KI==== isendo F(k)- k=d FA-+1Tdddddd-)dded__KI==== isendo F(k)- -1Tdddddd- -yed__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd collect each =d FA-nseted__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddyeps=1,dddd=d FA-_seteddddddddd dj=d FA-n- qq(k,j)- 1Tdddddd yep =1,dsend(k)*dddd=d FA-_dim(j)eddddddddddddk=d FA-n- k=d FA-n+ 1Tdddddd dj=d FA-n- j=d FA-n+ 1Tddddddisendd(k=d FA-)- ppddsend=d FA-d(j=d FA-)edddddddddddd dd- f :,:=dd- edddddd dd- edddddd ddk=d FA-n- 1ed__KIKIyepk=2,ddddnsendlist ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd construct irecvo F ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd _drecv(k)0)j)lSand__KI====irecvo F(k)n- k=d FA-nd__KI====k=d FA-n- k=d FA-n+ nrecv(k) f :,:=dd-)dded__KI====irecvo F(k)n- -1Tdddddd- -yed__KI=- edddddd dd -aadef,j)MPITddd==kreqsendn- 0ed__KIKIkreqrecvn- 0ed__KIKIyepk=2,ddddnsendlist ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd perform the actual send/recv as needed,Tddddddddddddd skip zero-communication rounds (see ddddmap_field_send.f) ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd _ddddisendlist(k)E.0.AND.ddddirecvlist(k)E.0)j)lSand__KI====tag1n- knd__KI====d _dsend(k)0)j)lSand__KI==== =kreqsendn- kreqsendn+ 1TdddddddddLMPI_ISend(isendd(isendo F(k)),nsend(k),ddddmpiddddd,: :,:& ddddisendlist(k),tag1,ddddcomm,sendreqs(kreqsend),info)edddddddddddd klistsend(kreqsend)n- knd__KI====- -yed__KI= ddd _drecv(k)0)j)lSand__KI==== Ikreqrecvn- kreqrecvn+ 1TdddddddddLMPI_IRecv(irecvd(irecvo F(k)),nrecv(k),ddddmpiddddd,: :,:& ddddirecvlist(k),tag1,ddddcomm,recvreqs(kreqrecv),info)edddddddddddd klistrecv(kreqrecv)n- knd__KI====- -yed__KI=-)dded__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddddd==d do nothingT====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddddd- -yed__KI=- edddddd ddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9,I9)') 'send/recv requests- ', kreqsend, kreqrecvnd__KI==dddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)eddddddddd--ye#elsee#error not implemented=for usage without MPI.take ddddmap_field_send.f ddsteade-_VLIST edddddd-)dded__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddd single=precision case =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddk=d FA-n- 0ed__KIKIyepk=2,ddddnsendlist ddddddd _dsend(k)0)j)lSand__KI==== isendo F(k)- k=d FA-+1Tdddddd-)dded__KI==== isendo F(k)- -1Tdddddd- -yed__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd collect each =d FA-nseted__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddyeps=1,dddd=d FA-_seteddddddddd dj=d FA-n- qq(k,j)- 1Tdddddd yep =1,dsend(k)*dddd=d FA-_dim(j)eddddddddddddk=d FA-n- k=d FA-n+ 1Tddddddddddd dj=d FA-n- j=d FA-n+ 1Tddddddisends(k=d FA-)- ppddsend=d FA-s(j=d FA-)edddddddddddd dd- f :,:=dd ddd ___dsend(k)0).AND._dddddebug 1))j)lSand__KI==== Ij=d FA-n- qq(k,j)nd__KI==== IWRITE(g,'(A,I9,I9,F10.4,A,I9)') 'Initial send(hash ', :,:f :,:(1,,,,,,,,,k,j,SUM(ppddsend=d FA-s(j=d FA-:j=d FA-+dsend(k)* :,:f :,:(1,,,,,,,,,dddd=d FA-_dim(j)-1)),'nto ',ddddisendlist(k)TdddddddddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddddddddd dd--yed__KI=- edddddd dd- edddddd ddk=d FA-n- 1ed__KIKIyepk=2,ddddnsendlist ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd construct irecvo F ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd _drecv(k)0)j)lSand__KI====irecvo F(k)n- k=d FA-nd__KI====k=d FA-n- k=d FA-n+ nrecv(k) f :,:=dd-)dded__KI====irecvo F(k)n- -1Tdddddd- -yed__KI=- edddddd dd -aadef,j)MPITddd==kreqsendn- 0ed__KIKIkreqrecvn- 0ed__KIKIyepk=2,ddddnsendlist ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd perform the actual send/recv as needed,Tddddddddddddd skip zero-communication rounds (see ddddmap_field_send.f) ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tddddddddddddd _ddddisendlist(k)E.0.AND.ddddirecvlist(k)E.0)j)lSand__KI====tag1n- knd__KI====d _dsend(k)0)j)lSand__KI==== =kreqsendn- kreqsendn+ 1TdddddddddLMPI_ISend(isends(isendo F(k)),nsend(k),ddddmpiddddd,: :,:& ddddisendlist(k),tag1,ddddcomm,sendreqs(kreqsend),info)edddddddddddd klistsend(kreqsend)n- knd__KI====- -yed__KI= ddd _drecv(k)0)j)lSand__KI==== Ikreqrecvn- kreqrecvn+ 1TdddddddddLMPI_IRecv(irecvs(irecvo F(k)),nrecv(k),ddddmpiddddd,: :,:& ddddirecvlist(k),tag1,ddddcomm,recvreqs(kreqrecv),info)edddddddddddd klistrecv(kreqrecv)n- knd__KI====- -yed__KI=-)dded__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddddd =d do nothingT====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddddd- -yed__KI= =- edddddd ddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9,I9)') 'send/recv requests- ', kreqsend, kreqrecvnd__KI==dddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)eddddddddd--ye#elsee#error not implemented=for usage without MPI.take ddddmap_field_send.f ddsteade-_VLIST--yeeddddddd _dddddddd.EQ.ddddddddddo4,le) )lSan#undef,j)NONBLOCKDBG -aadef,j)NONBLOCKDBG KI==dddLMPI_Barrier(ddddcomm,info)edddddddddnonblock_time0d=MPI_Wtime(info)edddddddddWRITE(*,*) ddddrank, ': nonblocking ddebug started'edddddddddnonblock_timeout = 20.0_mknd__KI=f :,:=dddddLMPI_TestAny(kreq,request,rdddex,rflag,MPI_STATUSES_IGNORE,info)eddddddddddddd __rflag.EQV..TRUE.)j)lSand__KI====d __rdddex.EQ.MPI_UNDEFINED)j)lSand__KI==== Inonblock_timerd=MPI_Wtime(info)- nonblock_time0nd__KI==== IWRITE(*,*) ddddrank, ': all non-blocking stufF compleKed in ', nonblock_timernd__KI==== IEXITnd__KI====-)dded__KI==== Inonblock_timerd=MPI_Wtime(info)- nonblock_time0nd__KI====--yed__KI=-)dded__KI====nonblock_timerd=MPI_Wtime(info)- nonblock_time0nd__KI====d __nonblock_timernonblock_timeout)j)lSand__KI==== IWRITE(*,*) ddddrank, ': non-blocking stufF timed out'nd__KI==== Iyepk=1,kreq:,:dddLMPI_Test(request(k),rflag,MPI_STATUS_IGNORE,info)edddddddddddd====d __.NOT.rflag)j)lSand__KI==== I== IWRITE(*,*) ddddrank, ': was still waiting for recvdfrom ', ddddirecvlist(klist(k))edddddddddddd====--yed__KI====-f :,:=dd dddddLMPI_Abort(ddddcomm,info)eddddddddd===--yed__KI=--yed__KI=-f dd -_VLIST eddddddddddddLMPI_WaitAny(kreqrecv,recvreqs,rdddex,MPI_STATUSES_IGNORE,info)eddddddddddddd _rdddex.EQ.MPI_UNDEFINED)jEXITnd__KI==k =klistrecv(rdddex)eddddddddddddk=d FA-n- irecvo F(k)-1Tddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9,A,I9)') 'IRecv ', rdddex, 'compleKed,k =', knd__KIIdddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddddddddd--yed__KI= ddyeps=1,dddd=d FA-_seteddddddddd dj=d FA-n- pp(k,j)- 1Tdddddd yep =1,drecv(k)*dddd=d FA-_dim(j)eddddddddddddj=d FA-n- j=d FA-n+ 1Tddddddk=d FA-n- k=d FA-n+ 1Tddddddddddd dddddrecv=d FA-d(j=d FA-)- irecvd(k=d FA-)edddddddddddd dd- f :,:=dd- edddddd dd- edddddd ddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A)') 'All IRecv compleKed'nd__KI===dddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)eddddddddd--yeI===dddLMPI_Waitall(kreqsend,sendreqs,MPI_STATUSES_IGNORE,info)edddddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A)') 'All ISend compleKed'nd__KI===dddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)eddddddddd--yef dd f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddd dealloc_Ke non-blocking things f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddioptd=ddddparam_dealloceI===dddLddddalloc(klist,ldu,iopt,info)edddddd=dddLddddalloc(request,ldu,iopt,info)edddddd ddd 4 new arrayseI===dddLddddalloc(klistsend,ldu,iopt,info)edddddd=dddLddddalloc(sendreqs,ldu,iopt,info)edddddd=dddLddddalloc(klistrecv,ldu,iopt,info)edddddd=dddLddddalloc(recvreqs,ldu,iopt,info)edddddd dd f dddddLddddalloc(isendo F,ldu,iopt,info)edddddd dddddLddddalloc(irecvo F,ldu,iopt,info)edddddd dddddLddddalloc(isendd,ldu,iopt,info)edddddd=dddLddddalloc(irecvd,ldu,iopt,info)edddddd-)dde dd -aadef,j)NONBLOCKDBG KI==dddLMPI_Barrier(ddddcomm,info)edddddddddnonblock_time0d=MPI_Wtime(info)edddddddddWRITE(*,*) ddddrank, ': nonblocking ddebug started'edddddddddnonblock_timeout = 20.0_mknd__KI=f :,:=dddddLMPI_TestAny(kreq,request,rdddex,rflag,MPI_STATUSES_IGNORE,info)eddddddddddddd __rflag.EQV..TRUE.)j)lSand__KI====d __rdddex.EQ.MPI_UNDEFINED)j)lSand__KI==== Inonblock_timerd=MPI_Wtime(info)- nonblock_time0nd__KI==== IWRITE(*,*) ddddrank, ': all non-blocking stufF compleKed in ', nonblock_timernd__KI==== IEXITnd__KI====-)dded__KI==== Inonblock_timerd=MPI_Wtime(info)- nonblock_time0nd__KI====--yed__KI=-)dded__KI====nonblock_timerd=MPI_Wtime(info)- nonblock_time0nd__KI====d __nonblock_timernonblock_timeout)j)lSand__KI==== IWRITE(*,*) ddddrank, ': non-blocking stufF timed out'nd__KI==== Iyepk=1,kreq:,:dddLMPI_Test(request(k),rflag,MPI_STATUS_IGNORE,info)edddddddddddd====d __.NOT.rflag)j)lSanddddddddddddddddddddddddWRITE(*,*) ddddrank, ': was still waiting for recvdfrom ', ddddirecvlist(klist(k))edddddddddddd====--yed__KI====-f :,:=dd dddddLMPI_Abort(ddddcomm,info)eddddddddd===--yed__KI=--yed__KI=--_VLIST edddddd eddddddddddddLMPI_WaitAny(kreqrecv,recvreqs,rdddex,MPI_STATUSES_IGNORE,info)eddddddddddddd _rdddex.EQ.MPI_UNDEFINED)jEXITnd__KI==k =klistrecv(rdddex)eddddddddddddk=d FA-n- irecvo F(k)-1Tddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A,I9,A,I9)') 'IRecv ', rdddex, 'compleKed,k =', knd__KIIdddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddddddddd--yed__KI= ddyeps=1,dddd=d FA-_seteddddddddd dj=d FA-n- pp(k,j)- 1Tdddddd yep =1,drecv(k)*dddd=d FA-_dim(j)eddddddddddddj=d FA-n- j=d FA-n+ 1Tddddddk=d FA-n- k=d FA-n+ 1Tddddddddddd dddddrecv=d FA-s(j=d FA-)- irecvs(k=d FA-)edddddddddddd dd- f :,:=dd ddd ___drecv(k)0).AND._dddddebug 1))j)lSand__KI==== Ij=d FA-n- pp(k,j)nd__KI==== IWRITE(g,'(A,I9,I9,F10.4,A,I9)') 'Fin_l recv(hash ', :,:f :,:(1,,,,,k,j,SUM(ppddrecv=d FA-s(j=d FA-:j=d FA-+drecv(k)*: :,:f :,:(1,,,,,dddd=d FA-_dim(j)-1)),'nfrom ',ddddirecvlist(k)f :,:=dd dddddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)edddddddddddd dd--yed__KI=- edddddd dd- edddddd ddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A)') 'All IRecv compleKed'nd__KI===dddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)eddddddddd--yeI===dddLMPI_Waitall(kreqsend,sendreqs,MPI_STATUSES_IGNORE,info)edddddddddd __dddddebug 1)j)lSand__KIIWRITE(g,'(A)') 'All ISend compleKed'nd__KI===dddLddddwrite_ddddrank,'ddddmap_field_senddnoblock',g,info)eddddddddd--yedddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddd dealloc_Ke non-blocking things f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Tdddddddddioptd=ddddparam_dealloce =dddLddddalloc(klist,ldu,iopt,info)edddddd=dddLddddalloc(request,ldu,iopt,info)edddddd ddd 4 new arrayseI===dddLddddalloc(klistsend,ldu,iopt,info)edddddd=dddLddddalloc(sendreqs,ldu,iopt,info)edddddd=dddLddddalloc(klistrecv,ldu,iopt,info)edddddd=dddLddddalloc(recvreqs,ldu,iopt,info)edddddd dd f dddddLddddalloc(isendo F,ldu,iopt,info)edddddd dddddLddddalloc(irecvo F,ldu,iopt,info)edddddd dddddLddddalloc(isends,ldu,iopt,info)edddddd=dddLddddalloc(irecvs,ldu,iopt,info)edddddd- -yed__KI= f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Dealloc_Ke the send =d FA-dto save memory f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptd=ddddparam_dealloceI==d __dddddddd .EQ. dddddddddsingle)j)lSand__KIdddLddddalloc(ppddsend=d FA-s,ldu,iopt,info)edddddd-)ddnd__KI=dddLddddalloc(ppddsend=d FA-d,ldu,iopt,info)edddddd--yeddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_alloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'send =d FA-nPPM_S-BUFFER',j)dINE__,info)edddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Dealloc_Ke f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptd=ddddparam_dealloceI==dddLddddalloc(nsend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'send countA-nNS-',j)dINE__,info)edddddd--yedddLddddalloc(nrecv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'receive countA-nNRECV',j)dINE__,info)edddddd--yedddLddddalloc(psend,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'particle send countA-nPS-',j)dINE__,info)edddddd--yedddLddddalloc(precv,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'particle receive countA-nPRECV',j)dINE__,info)edddddd--yedddLddddalloc( ,,dd,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'work arraynPP',j)dINE__,info)edddddd--yedddLddddalloc( ,,qq,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'work arraynQQ',j)dINE__,info)edddddd--yedddLddddalloc(recvd,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'loc_l receive =d FA-nRECV',j)dINE__,info)edddddd--yedddLddddalloc(recvs,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'loc_l receive =d FA-nRECVS',j)dINE__,info)edddddd--yedddLddddalloc(sendd,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'loc_l send =d FA-nS-',j)dINE__,info)edddddd--yedddLddddalloc(sends,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_field_senddnoblock',:: :: :,:f :,:(1,'loc_l send =d FA-nS-S',j)dINE__,info)edddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Return= f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Td9999 CONTINUEedddLsubstop('ddddmap_field_senddnoblock',t0,info)eddddddRETURNedddddd- SUBROUTINE ddddmap_field_senddnoblock libddd-1.2/src/map/ddddmap_part_cancel.f000644 000765 000024 00000006223 11445666062 020454 0ustar00omarstaff000000 000000 ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Subroutineddd: ddddmap_part_cancel ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), Tddddddd CentA-nfor Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle M Library (PPM).edddddd!edddddd! PPM is free software: you can redistribuKe it and/or odify f ddd it under the tA-ms of the GNU Lesser General Public License Tddddddd as published =y the Free Software Foundation, either Tddddddd version 3 of the License, or (at your option) any later Tddddddd version.edddddd!edddddd! PPM is distribuKed in the hopedthat it will be useful,edddddd! buK WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theTddddddd GNU General Public License for ore details.edddddd!edddddd! You should have received a copy of the GNU General Public LicenseTddddddd and the GNU Lesser General Public License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle M Library (PPM)edddddd! ETH ZurichTddddddd CH-8092 Zurich, Switzerland ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T SUBROUTINE ddddmap_part_cancel(info)edddddd!!! This routinedcancels an ongoing mapping calling sequence edddddd!!! and resets the intA-n_l mapping staKe variables.edddddd!!!edddddd!!! [NOTE]edddddd!!! one needsdto reset the arraysdsince thay are alloc_fit-ed the next time aedddddd!!! mapping is called. Their dealloc_Kion only happens innd__KI!!! ddddfin_lize anyway.edddddd! TODO: Fix this awful docstring!e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Modules ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddUSE ddddmodule_substartTddddddUSE ddddmodule_substopTddddddUSE ddddmodule_d_KIddddddIMPLICIT NONE e ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Arguments ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddINTEGER ,dINTENT( OUT) ::=infond__KI!!! Returns staKus, 0 upon success ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Loc_l Variables ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TddddddREAL_ddddddddddo4,le) ::=t0 ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Initialise f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TdddddddddLsubstart('ddddmap_part_cancel',t0,info)e e ddd dddddd=d FA-_setd dd- 0ed__KIddddnsend=d FA- dd- 0ed__KIddddnrecv=d FA-n((- 0e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Return f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Td9999 CONTINUEedddLsubstop('ddddmap_part_cancel',t0,info)eddddddRETURNedddddd- SUBROUTINE ddddmap_part_cancel libddd-1.2/src/map/ddddmap_part_eqdistrib.f000644 000765 000024 00000053646 11445666062 021230 0ustar00omarstaff000000 000000 ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Subroutineddd: ddddmap_part_eqdistrib ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), Tddddddd CentA-nfor Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle M Library (PPM).edddddd!edddddd! PPM is free software: you can redistribuKe it and/or odify f ddd it under the tA-ms of the GNU Lesser General Public License Tddddddd as published =y the Free Software Foundation, either Tddddddd version 3 of the License, or (at your option) any later Tddddddd version.edddddd!edddddd! PPM is distribuKed in the hopedthat it will be useful,edddddd! buK WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theTddddddd GNU General Public License for ore details.edddddd!edddddd! You should have received a copy of the GNU General Public LicenseTddddddd and the GNU Lesser General Public License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle M Library (PPM)edddddd! ETH ZurichTddddddd CH-8092 Zurich, Switzerland ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T #if__KI ==__SINGLE_PRECISIONeddddddSUBROUTINE ddddmap_part_eqdistrib_s(xp,Npart,info)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmap_part_eqdistrib_d(xp,Npart,info)e#eVLIST!!! This routinedmaps the particles onto the givennd__KI!!! drocessors without respect to the topology (i.e. every f ddd!! drocessor gets as many particles asdit can handle f ddd!! accordingto `ddddproc_speed`).edddddd!!!edddddd!!! [NOTE]edddddd!!! The first part of the =d FA-ncontains the on processoredddddd!!! d_KI.edddddd!!!edddddd!!! NOTE: The storingof `ddddmap_type` is not used (yet) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Modules= f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TddddddUSE ddddmodule_d_KIddddddUSE ddddmodule_substartTddddddUSE ddddmodule_substopTddddddUSE ddddmodule_errornd__KIUSE ddddmodule_alloceI==dMPLICIT NONE #if__KI ==__SINGLE_PRECISIONeddddddINTEGER, PARAMETER ::=MK =dddddddddsinglee#elseeddddddINTEGER, PARAMETER ::=MK =ddddddddddo4,lee#eVLIST ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Includes ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T#include "dddddefine.h" -aadef,j)MPITdddINCLUDE 'mpif.h'e#eVLIST ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Argumentsddddd ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TddddddREAL_MK), DIMENSION(:,:),dINTENT(INddd) ::=xpedddddd!!! The positions of the particlesTddddddINTEGER ,dINTENT(INddd) ::=Npartedddddd!!! The numbA-nof particlesTddddddINTEGER ,dINTENT( OUT) ::=infond__KI!!! The return=staKus, 0 on success ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Loc_l variables ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TddddddINTEGER, DIMENSION(3) ::=lduTddddddINTEGER ::=i,j,k,iparteddddddINTEGER ::=iopt,iset,i=d FA-,dim,totalparteddddddINTEGER ::=ipos,max_val,max_exc,min_val,min_exc,temp_valedHARACTER(ddddchar) ::=gTddddddREAL_MK) ::=t0 ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd ExtA-n_ls= f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tdddddd ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Initialised ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TdddddddddLsubstart('ddddmap_part_eqdistrib',t0,info)edddddddimd- dddddim ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Check arguments ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddI __dddddebug 0)j)lSand__KIdddLchecknd__KId __info .NE. 0)jGOTO 9999 dddddd--yeeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Save the map type for the subsequent calls__not used yet)ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddmap_typed=ddddparam_map_globale ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Alloc_Ke memory for particle pA-ndrocessor listseddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptddd=ddddparam_alloc_fitTddddddldu(1)d=ddddndrocTdddddddddLddddalloc(plistddes,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :,:f :,:(1,'particle pA-ndrocessor desired listdPLIST_DES',j)dINE__,info)edddddd ddGOTO 9999 dddddd--yedddLddddalloc(plistdact,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :,:f :,:(1,'particle pA-ndrocessor actual listdPLIST_ACT',j)dINE__,info)edddddd ddGOTO 9999 dddddd--yedddLddddalloc(plistdexc,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :,:f :,:(1,'particle pA-ndrocessor excess listdPLIST_EXC',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Alloc_Ke memory for particle to/from drocessor listseddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptddd=ddddparam_alloc_fitTddddddldu(1)d=ddddndroc- 1TdddddddddLddddalloc(srlist1,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :,:f :,:(1,'particle to/from drocessor list 1 SRLIST1',j)dINE__,info)edddddd ddGOTO 9999 dddddd--yedddLddddalloc(srlist2,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :,:f :,:(1,'particle to/from drocessor list 2 SRLIST2',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Fddd out how many particles are on each processoredddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddplistdact(:)d- 0ed__KIdlistddes(:)d- 0eTddddddplistdact(ddddrankn+ 1)d- Nparte -aadef,j)MPITddddddLMPI_AllReduce(plistdact,plistddes,ddddndroc,MPI_INTEGER, :,:f :,:(1,,,,,,,,,MPI_SUM,ddddcomm,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_mpidfail,'ddddmap_part_eqdistrib',: :,:f :,:(1,'MPI_AllReduce failed',j)dINE__,info)edddddddddGOTO 9999 dddddd--ye#elseedddddddlistddes(ddddrankn+ 1)d- Nparte#eVLIST ddd ddtotalpartd- 0ed__KIyepsn- 1,ddddndrocedddddddddplistdact(j)d=dlistddes(j)nd__KI=totalpartd- totalpartd+dplistdact(j) dddddd-DO ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Calcul_Ke the desired numbA-nof particles pA-ndrocessor basedTddddddd on pdddproc_speed and correct a possible trunc_Kion errornd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddipartd- 0ed__KIyepsn- 1,ddddndrocedddddddddplistddes(j)n- INT(REAL_totalpart,ddddddddddo4,le) *: :,:f :,:(1,,,,,ddddddpdddproc_speed(j- 1))edddddddddipartd- ipartd+dplistddes(j)nd__KI-DO d __totalpartd.NE. ipart)j)lSand__KI=jn- 1ed__KIKIyeed__KIKId __j ddddndroc)=jn- 1ed__KIKIdddplistddes(j)n- plistddes(j)n+ 1Tdddddddddddipartd- ipartd+d1Tddddddd __ipartd.EQ. totalpart)jEXITnd__KI==jn- jd+d1Tdddddd-f --yeTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Calcul_Ke the particle excess _too much or too little particles) ofedddddd! each processoredddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddyepsn- 1,ddddndrocedddddddddplistdexc(j)n- plistdact(j)d-dplistddes(j)nd__KI-DOTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Now lets do some magic. Here we have to figure out how many particlesTddddddd have to be send to whom or received from. srlist1ncontains theTddddddd drocessors to send to or receive from, srlist2ncontains the amount ofedddddd! particlesTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddiposd- 0ed__KITddddddyeedddddddddmax_excn- 1ed__KIKImax_valn- plistdexc(max_exc)edddddddddmin_excn- 1ed__KIKImin_valn- plistdexc(min_exc)ef ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Fdrst find the maximum and minimum excess in the list. The dddex ddd of plistdexc correspondsdto the processor numbA-n+d1.f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddyepsn- 1,ddddndroceddddddddd ddI __dlistdexc(j)n max_val)j)lSand__KI====max_valn- plistdexc(j)nd__KI====max_excn- jnd__KI==-)ddI __dlistdexc(j)nL min_val)j)lSand__KI====min_valn- plistdexc(j)nd__KI====min_excn- jnd__KI==--yed__KI=-f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Ifmax_excnand min_excnare equal (e.g. maximum and minimum excessf ddd are the same) there is nothing more to shuffle around and we aref ddd finished.f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddI __max_excn.EQ. min_exc)jEXITnf ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Calcul_Ke how many particles can be send/receivedf ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddI __ABS(min_val)jL max_val)j)lSand__KI==temp_valn- ABS(min_val)ed__KI=-)dded__KI===temp_valn- max_valed__KI=--yef ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Fdll the lists only if this processor has to send or receivef ddd something. srlist1(ipos) is the processor to send to or receivef ddd from. srlist2(ipos) is the numbA-nof particles to send to orf ddd receive from the processor in srlist1(ipos).f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddI __(_max_excn- 1) .EQ. ddddrank) .OR.: :,:f :,((min_excn- 1) .EQ. ddddrank))j)lSand__KI==I __(max_excn- 1) .EQ. ddddrank) )lSand__KI====srlist1(iposn+ 1)d- min_excn- 1nd__KI==-)dded__KI====srlist1(iposn+ 1)d- max_excn- 1nd__KI==--yef dd srlist2(iposn+ 1)d- temp_valef dd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERpf dd d Count the entries in the srlistsf dd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERpf dd iposd- iposn+ 1ed__KI=--yef ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Upd_Ke the excess listdto the new situ_Kion. In the end all entriesf ddd in plistdexc should be zero.f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddplistdexc(max_exc)n- plistdexc(max_exc)n- temp_vale ddplistdexc(min_exc)j- plistdexc(min_exc)n+ temp_vale-DOTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Consistencycheck: all entries in plistdexc should be zeroedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddyepsn- 1,ddddndrocedddddddddI __dlistdexc(j)nNE. 0)j)lSand__KI===info =dddderrordf_KIlnd__KI= =dddLdddderror(dddderr_map_incomp,'ddddmap_part_eqdistrib',: :,:f :,:(1,,,,'Could not distribuKe all particles to drocessors',: :,:f :,:(1,,,,j)dINE__,info)eddddddddd ddGOTO 9999 dddddd --yed__KI-DO ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Calcul_Ke the particle excess again since it has been destroyedTddddddd during the above calucul_Kion and to figure out if this processorTddddddd has to send, receive or do nothingT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddyepsn- 1,ddddndrocedddddddddplistdexc(j)n- plistdact(j)d-dplistddes(j)nd__KI-DO ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the pointA-dto the =d FA-; we only needdto talkTddddddd to (iposn+ 1)ddrocessors (including this one)ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptddd=ddddparam_alloc_fitTddddddldu(1)d=iposn+ 2 = =dddLddddalloc(ppddpsend=d FA-,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'particle send =d FA-nPPM_PS-BUFFER',j)dINE__,info)edddddd ddGOTO 9999 dddddd--yef ioptddd=ddddparam_alloc_fitTddddddldu(1)d=NpartedddddddddLddddalloc(ppdd=d FA-2part,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'=d FA--to-particles map PPM_BUFFER2PART',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Store the numbA-nof =d FA-nentries (this is the first)ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddddddd=d FA-_setd- 1e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the field registers that holds the dimension and Tddddddd typedof the d_KIddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptddd=ddddparam_alloc_fitTddddddldu(1)d=dddd=d FA-_setedddddddddLddddalloc(ppdd=d FA-ddim,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'=d FA- dimensions PPM_BUFFER_DIM',j)dINE__,info)edddddd ddGOTO 9999 dddddd--yedddLddddalloc(ppdd=d FA-dtype,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'=d FA- types PPM_BUFFER_TYPE',j)dINE__,info)edddddddddGOTO 9999 dddddd--yeeddddddppdd=d FA-ddim(dddd=d FA-_set)dd=dimddddddd __dddddddd .EQ. dddddddddsingle)j)lSand__KIppdd=d FA-dtype(dddd=d FA-_set)d=dddddddddsingleedddddd-)dded__KI=ppdd=d FA-dtype(dddd=d FA-_set)d=ddddddddddo4,leedddddd--yeeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd (Re)alloc_Ke memory for the =d FA-nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptddd=ddddparam_alloc_fitTddddddldu(1)d=dimd*Nparteddddddd __dddddddd .EQ. ddddddddddo4,le) )lSand__KI=dddLddddalloc(ppddsend=d FA-d,ldu,iopt,info)edddddd-)dded__KI=dddLddddalloc(ppddsend=d FA-s,ldu,iopt,info)edddddd--yeddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'global send =d FA-nPPM_S-BUFFER',j)dINE__,info)edddddd ddGOTO 9999 dddddd--yef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the sendlistddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddnsendlistd- iposn+ 1ed__KIpdddnrecvlistd- iposn+ 1eTddddddioptd=ddddparam_alloc_fitTddddddldu(1)d=ddddnsendlistdddddddddLddddalloc(ppddisendlist,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'send listdPPM_IS-LIST',j)dINE__,info)edddddd ddGOTO 9999 dddddd--yef ldu(1)d=ddddnrecvlistdddddddddLddddalloc(ppddirecvlist,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_alloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'receive listdPPM_IRECVLIST',j)dINE__,info)edddddd ddGOTO 9999 dddddd--yeddddddf ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Fdll the send=d FA- with the particles that will stay on thisTddddddd processoredddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddppddpsend=d FA-(1)d=1ed__KIisetd ddddddddddddd- 0ed__KIi=d FA-n((ddddddddd- 0ed__KITddddddppddisendlist(1)d=ddddrankTddddddppddirecvlist(1)d=ddddrankTddddddeddddddd __dlistdexc(ddddrankn+ 1)d.LE. 0)j)lSand__KI=temp_valn- Npartedddddd-)dded__KI=temp_valn- dlistddes(ddddrankn+ 1) dddddd--yeddddddf yep partd- 1,temp_valeddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,eddd! Store the id of the particleeddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,edddppdd=d FA-2part(ipart)j- ipartef ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Store the particleeddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,edddyep d- 1,dimddddddd__KIi=d FA-n((ddddddddddddddd=i=d FA-n+ 1e#if__KI ==__SINGLE_PRECISIONedddddddddppddsend=d FA-s(i=d FA-)- xp(i,ipart)e#elseedddddddddppddsend=d FA-d(i=d FA-)- xp(i,ipart)e#eVLIST -f -DO ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Lets see ifwe have anything more to send ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tdddyepsn- 2,iposn+ 1ed__KI=ppddpsend=d FA-(j)d- temp_valn+ 1eTdddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Only if we have to send something add it to the send=d FA-Tdddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd __dlistdexc(ddddrankn+ 1)d. 0)j)lSand__KIdddyepkd- 1,srlist2(j- 1)nd__KIddd =temp_valn- temp_valn+ 1eTdddddd ddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL Tdddddd ddddd ddd Store the id of the particleedddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL Tdddddd ddddd ddppdd=d FA-2part(temp_val)d- temp_valef dd d ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL Tdddddd ddddd ddd Store the particleedddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL Tdddddd ddddd ddyep d- 1, dimddddddd__KIi=d FA-n((ddddddddddddddd=i=d FA-n+ 1e#if__KI ==__SINGLE_PRECISIONedddddddddddd ddppddsend=d FA-s(i=d FA-)- xp(i,temp_val)e#elseedddddddddddd ddppddsend=d FA-d(i=d FA-)- xp(i,temp_val)e#eVLIST -f :,:=dd-f :,:--yef ddppddisendlist(j)d- srlist1(j- 1)nd__KIppddirecvlist(j)d- srlist1(j- 1)nd__KI-DO ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Everything has to go! ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddppddpsend=d FA-(iposn+ 2)d=Npartn+ 1eTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Store the current size of the =d FA-ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddnsend=d FA-n- i=d FA-Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Dealloc_Ke the memory for the listseddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptd=ddddparam_dealloceI==dddLddddalloc(srlist1,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'particle to/from drocessor list 1 SRLIST1',j)dINE__,info)edddddd--yedddLddddalloc(srlist2,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'particle to/from drocessor list 2 SRLIST2',j)dINE__,info)edddddd--yedddLddddalloc(plistddes,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'particle pA-ndrocessor desired listdPLIST_DES',j)dINE__,info)edddddd--yedddLddddalloc(plistdact,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'particle pA-ndrocessor actual listdPLIST_ACT',j)dINE__,info)edddddd--yedddLddddalloc(plistdexc,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI=info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_part_eqdistrib',:: :: :,:f :,:(1,'particle pA-ndrocessor excess listdPLIST_EXC',j)dINE__,info)edddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Return= f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Td9999 CONTINUEedddLsubstop('ddddmap_part_eqdistrib',t0,info)eddddddRETURNeddddddCONTAINSeddddddSUBROUTINE checknd__KId __NpartnL 0)j)lSand__KI===info =dddderrorderrornd__KI==dddLdddderror(dddderr_argument,'ddddmap_part_eqdistrib',:: :,:f :,:(1,(1,'Npartnmustdbe >=0',j)dINE__,info)edddddd dd ddGOTO 8888edddddd d--ye8888dddCONTINUEe- SUBROUTINE checkne#if__KI ==__SINGLE_PRECISIONedddddd- SUBROUTINE ddddmap_part_eqdistrib_se#elif__KI ==__DOUBLE_PRECISIONedddddd- SUBROUTINE ddddmap_part_eqdistrib_de#eVLISTlibddd-1.2/src/map/ddddmap_part_get_sub.f000644 000765 000024 00000071545 11445666062 020670 0ustar00omarstaff000000 000000 ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Subroutineddd: ddddmap_part_get_sub ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), Tddddddd CentA-nfor Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle M Library (PPM).edddddd!edddddd! PPM is free software: you can redistribuKe it and/or odify f ddd it under the tA-ms of the GNU Lesser General Public License Tddddddd as published =y the Free Software Foundation, either Tddddddd version 3 of the License, or (at your option) any later Tddddddd version.edddddd!edddddd! PPM is distribuKed in the hopedthat it will be useful,edddddd! buK WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theTddddddd GNU General Public License for ore details.edddddd!eddddddd You should have received a copy of the GNU General Public LicenseTddddddd and the GNU Lesser General Public License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle M Library (PPM)edddddd! ETH ZurichTddddddd CH-8092 Zurich, Switzerland ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T #if__KI ==__SINGLE_PRECISIONeddddddSUBROUTINE ddddmap_part_get_sub_s(topoid,isublist,nsublist,xp,Npart,info)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmap_part_get_sub_d(topoid,isublist,nsublist,xp,Npart,info)ed!! This routinedmaps (retrieves) the particles on the sub domains and d!! topology listed in the input list. d!! d!! [WARNING]edddddd!!! this routinedwas NOT tAsted in serial !e#eVLIST ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Modules ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddUSE ddddmodule_d_KIddddddUSE ddddmodule_substartTddddddUSE ddddmodule_substopTddddddUSE ddddmodule_errornd__KIUSE ddddmodule_alloceI==USE ddddmodule_check_id dMPLICIT NONE #if__KI ==__SINGLE_PRECISION |__KI_AUX ==__SINGLE_PRECISIONeddddddINTEGER, PARAMETER ::=MK =dddddddddsinglee#elseeddddddINTEGER, PARAMETER ::=MK =ddddddddddo4,lee#eVLISTddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Includes ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T#include "dddddefine.h" -aadef,j)MPITdddINCLUDE 'mpif.h'e#eVLISTddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Arguments ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddREAL_MK), DIMENSION(:,:),dINTENT(INddd) ::=xpedddddd!!! Particle coordinatesTddddddINTEGER , DIMENSION(:) ,dINTENT(INddd) ::=isublistedddddd!!! Listdof sub domain in topologyTddddddINTEGER ,dINTENT(INddd) ::=nsublistedddddd!!! Length of list(:)TddddddINTEGER ,dINTENT(INddd) ::=Npartedddddd!!! NumbA-nof particlesTddddddINTEGER ,dINTENT(INddd) ::=topoided!! Topology IDTddddddINTEGER ,dINTENT( OUT) ::=infond__KI!!! Returns 0 upon success ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Loc_l variables ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TddddddINTEGER, DIMENSION(3) ::=lduTddddddINTEGER ::=i,j,k,isub INTEGER ::=nsublist1,nsublist2,nghosteddddddINTEGER ::=nghostplusTddddddINTEGER ::=ipart,sendrank,recvrankTddddddINTEGER ::=iopt,iset,i=d FA-TddddddINTEGER ::=tag1,tag2TddddddINTEGER, DIMENSION(:),dPOINTER ::=bcdefTddddddREAL_MK), DIMENSION(:,:),dPOINTER ::=in_sub,max_sub REAL_MK) ::=t0ed__KILOGICAL ::=valide-aadef,j)MPITdddINTEGER, DIMENSION(MPI_STATUS_SIZE) ::=staKuse#eVLISTddd ddTYPE(ddddt_topo) ,dPOINTER ::=topo ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd ExtA-n_ls ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Initialise f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). TdddddddddLsubstart('ddddmap_part_get_sub',t0,info)eddddddbcdef =>=topo%bcdef(:)T ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Check arguments ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddI __dddddebug 0)j)lSand__KIdddLchecknd__KId __info .NE. 0)jGOTO 9999 dddddd--yeddddddtopo =>=ddddtopo(topoid)%tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Now if we have only one drocessor skip the restddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddI __ddddndroc.EQ.1)j)lSand__KI=GOTO 9999 dddddd--yef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Moreover, if we are not using MPI we can skip the rest of the source f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T-aadef,j)MPIT ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Checking precision and pointing tree d_KI to correct variables ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T#if__KI ==__SINGLE_PRECISIONeddddddin_subdddddd=>=topo%in_subs ddd ddmax_subdddddd=>=topo%ax_subse#elseeddddddin_subdddddd=>=topo%in_subd ddd ddmax_subdddddd=>=topo%ax_subde#eVLIST ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Save the map type for the subsequent callsTddddddd this mapping is a ghost get mapping: the (real)dparticle on theTddddddd processor is NOT touched =y this mapping - the ghosts are justddddddd addeddto the end of the particle listddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddmap_typed=ddddparam_map_ghost_get ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the pointA-sdto the particles that will be sendddddddd and received from and to a processor. The ddddrecv=d FA-nis NOT usedTddddddd in this routine, buK initialized from the precv() array in the routineTddddddd pdddmap_part_send().edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddldu(1)d=ddddndroc+ 1ed__KIioptddd=ddddparam_alloc_growTdddddddddLddddalloc(ppddpsend=d FA-,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub',= :,:f :,:(1,'global send =d FA-npointA-dPPM_PS-BUFFER',j)dINE__,info)edddddd dddGOTO 9999 dddddd--yef ldu(1)d=NpartedddddddddLddddalloc(ppdd=d FA-2part,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub',= :,:f :,:(1,'=d FA--to-particles map PPM_BUFFER2PART',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Store the numbA-nof =d FA-nentries (this is the first)ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddddddd=d FA-_setd- 1e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the field registers that holds the dimension andTddddddd typedof the d_KIddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddldu(1)d=dddd=d FA-_setedddddddddLddddalloc(ppdd=d FA-ddim ,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub',= :,:f :,:(1,'=d FA- dimensions PPM_BUFFER_DIM',j)dINE__,info)edddddd dddGOTO 9999 dddddd--yedddLddddalloc(ppdd=d FA-dtype,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub',= :,:f :,:(1,'=d FA- types PPM_BUFFER_TYPE',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Store the dimension and typeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddddddd=d FA-_dim(dddd=d FA-_set)dd=dddddim #if__KI ==__SINGLE_PRECISIONeddddddppdd=d FA-dtype(dddd=d FA-_set)d=dddddddddsinglee#elseedddddddpdd=d FA-dtype(dddd=d FA-_set)d=ddddddddddo4,lee#eVLIST ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd (Re)alloc_Ke memory for the =d FA- (needdnot save the contentsdof theTddddddd =d FA- since this is a global map).edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddldu(1)d=dddddim*Nparteddddddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=dddLddddalloc(ppddsend=d FA-d,ldu,iopt,info)edddddd-)dded__KI=dddLddddalloc(ppddsend=d FA-s,ldu,iopt,info)edddddd--yeddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub',= :,:f :,:(1,'global send =d FA-nPPM_S-BUFFER',j)dINE__,info)edddddd dddGOTO 9999 dddddd--yef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the sendlistddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddnsendlistd- ddddndrocTddddddddddnrecvlistd- ddddndrocTddddddldu(1)dddddddd=ddddnsendlistdddddddddLddddalloc(ppddisendlist,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub',= :,:f :,:(1,'send listdPPM_IS-LIST',j)dINE__,info)edddddd dddGOTO 9999 dddddd--yedddLddddalloc(ppddirecvlist,ldu,iopt,info)eddddddd __info .NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub',= :,:f :,:(1,'receive listdPPM_IRECVLIST',j)dINE__,info)edddddd dddGOTO 9999 dddddd--yef ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Before we start, copy the isublist=into a temporary arrayedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddldu(1)d=nsublisteddddddioptddd=ddddparam_alloc_fitTdddddddddLddddalloc(ilist1,ldu,iopt,info)edddddddddLddddalloc(ilist2,ldu,iopt,info)edddddddddLddddalloc(ilist3,ldu,iopt,info)edddddddddLddddalloc(ilist4,ldu,iopt,info)eddddddilist1n- isublisteddddddnlist1n- nsublisteddddddtag1ddd=100eddddddtag2ddd=200 ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Initialize the =d FA-s ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddsendrankdddddd dddd=ddddrankn- 1nd__KIrecvrankdddddd dddd=ddddrankn+ 1ed__KIpdddpsend=d FA-(1)d=1ed__KIddddnsendlistd dddd=0ed__KIddddnrecvlistd dddd=0ed__KIisetd ddddddddddddd- 0ed__KIi=d FA-n((ddddddddd- 0eeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Since we skip the loc_l drocessor entirely,=increment the pointA-sdonce f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddsendrankdddddd dddd(ddddddddd- sendrankd+ 1nd__KIrecvrankdddddd dddd(ddddddddd- recvrankd-1ed__KIddddnsendlistd ddddddddd dddd=ddddnsendlistd+ 1ed__KIpdddisendlist(ddddnsendlist)d- sendranked__KIddddnrecvlistd ddddddddd dddd=ddddnrecvlistd+ 1ed__KIpdddirecvlist(ddddnrecvlist)d- recvranked__KIpdddpsend=d FA-(2)dddddd dddd=ddddpsend=d FA-(1) ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Loop over all processors buK skip the processor itselSTddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddyep =2,ddddndrocedddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd compuKe the next processoredddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddsendrankd- sendrankd+ 1nd__KI ddd __sendrankddddndroc-1)dsendrankd- sendrankd- ddddndrocTdddddd Irecvrankd- recvrankd-1ed__KI ddd __recvrankL 0)jrecvrankd- recvrankd+ ddddndrocTedddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Store the processor to which we will send toedddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddddddnsendlistd ddddddddd dddd=ddddnsendlistd+ 1ed__KI Ipdddisendlist(ddddnsendlist)d- sendrankeedddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Store the processor to which we will recv fromedddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddddddnrecvlistd ddddddddd dddd=ddddnrecvlistd+ 1ed__KI Ipdddirecvlist(ddddnrecvlist)d- recvrankeedddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Loop over the entire listdof subs that we needdon=topoidedddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddnlist2n- 0ed__KI ddnlist3n- 0ed__KI ddyeps=1,nlist1edddddd dddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddd Check if they belong to the processor from where we will receivef dddddd d_KIdddddd dddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddd __topo%sub2proc(ilist1(j)).EQ.recvrank)j)lSand__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d Ifyes, then store it in the loc_l receive listd(ilist3)nd__KIddd =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====nlist3nnnnnnnnn=nlist3n+d1Tdddddd ddilist3(nlist3)j- ilist1(j)Tdddddd-)dded__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d otherwise store the sub in the second listdto be swapped laternd__KIddd =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====nlist2nnnnnnnnn=nlist2n+d1Tdddddd ddilist2(nlist2)j- ilist1(j)Tdddddd--yed__KI=-f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Swap the listse ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddilist1n- ilist2ed__KI ddnlist1n=nlist2f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Now send the listdof d_KI we needdto the recvrankddrocessor andf ddd receive the request from the sendrankdprocessor for d_KI we havef ddd to drovide. Notice: the first part of the envelope is the S- partedddddd ddd so we send to the recvlistdwhat we needf ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f dddddLMPI_SendRecv(nlist3,1,MPI_INTEGER,recvrank,tag1, :,:f :,:(1,,,,,,,,,ddnlist4,1,MPI_INTEGER,sendrank,tag1, :,:f :,:(1,,,,,,,,,ddddddcomm,staKus,info)ef ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Realloc_Ke if needed the (partial)dlistd(ilist4)dof subs that wef ddd have and should send to sendranked__KI ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddioptddd=ddddparam_alloc_growTdddddd ddldu(1)d=nlist4ed__KI=dddLddddalloc(ilist4,ldu,iopt,info)edddddd ddd __info.NE.0)j)lSand__KI====info =dddderrordf_KIlnd__KI= = dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub', :,:f :,:(1,(1,'alloc_Kion of ilist4 failed',j)dINE__,info)edddddddddddddGOTO 9999 dddddd --yed__KI ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd and receive the d_KIdddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f dddddLMPI_SendRecv(ilist3,nlist3,MPI_INTEGER,recvrank,tag2, :,:f :,:(1,,,,,,,,,ddilist4,nlist4,MPI_INTEGER,sendrank,tag2, :,:f :,:(1,,,,,,,,,ddddddcomm,staKus,info)ef ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Realloc_Ke to make sure we have enough memory in theTdddddd ddd pddd=d FA-2part and ppddsend=d FA-s/d; we can at most send all ourf ddd particles, so we increment the =d FA- with Npartedddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddioptddd=ddddparam_alloc_grow_preservef ddldu(1)d=i=d FA-n+ Npart*dddddim f ddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KI= =dddLddddalloc(ppddsend=d FA-d,ldu,iopt,info)edddddd -)dded__KI==dddLddddalloc(ppddsend=d FA-s,ldu,iopt,info)edddddd --yed__KI ddd __info .NE. 0)j)lSand__KI== ==info =dddderrordf_KIlnd__KI= = dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub',:: :,:f :,:(1,(1,'global send =d FA-nPPM_S-BUFFER',j)dINE__,info)edddddd ddd ddGOTO 9999 dddddd --yef ddldu(1)d=isetd+ Npartedddddd dddddLddddalloc(ppdd=d FA-2part,ldu,iopt,info)edddddd ddd __info .NE. 0)j)lSand__KI== ==info =dddderrordf_KIlnd__KI= = dddLdddderror(dddderr_alloc,'ddddmap_part_get_sub',:: :,:f :,:(1,(1'=d FA-2particles map PPM_BUFFER2PART',j)dINE__,info)edddddddddd ddGOTO 9999 dddddd --yef ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Now we know what to do, and loop over our subs in the ilist4 toedddddddddd extract the particlesf ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddyeps=1,nlist4edddddddddd dddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddd Get the sub idedddddddddd dddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddisubn- ilist4(j)TddddddI __dddddim.EQ.2)j)lSand__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d Loop over the particles in 2Dnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====yepk=1,Npartedddddd dd====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d and check if they are inside the subedddddd dd====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====I __xp(1,k).GE.in_sub(1,isub).AND. :,:f :,:(1,,,,,,,,,xp(1,k).LE.ax_sub(1,isub).AND. :,:f :,:(1,,,,,,,,,xp(2,k).GE.in_sub(2,isub).AND. :,:f :,:(1,,,,,,,,,xp(2,k).LE.ax_sub(2,isub))j)lSand__KI========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-snd__KI========d In the non-periodic case, allow particles that aref dd=======d exactly ON an uppA-nEXTERNAL boundary.nd__KI========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-snd__KI========IF(_xp(1,k).LT.ax_sub(1,isub)===.OR.: :,:f :,:(1,,,,,,,,,_topo%subs_bc(2,isub).EQ.1,,,,,,,,.AND. :,:f :,:(1,,,,,,,,,bcdef(2).NE. ddddparam_bcdef_periodic)),.AND. :,:f :,:(1,,,,,,,,,(xp(2,k).LT.ax_sub(2,isub)===.OR.: :,:f :,:(1,,,,,,,,,_topo%subs_bc(4,isub).EQ.1,,,,,,,,.AND. :,:f :,:(1,,,,,,,,,bcdef(4).NE. ddddparam_bcdef_periodic)))j)lSand__KI======== =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Dnd__KI======== =d Ifyes, then store themddddddd__KI== =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Dnd__KI======== =isetd ddddddddddddd d=isetd+ 1eTdddddd ddddd dd==== =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Dnd__KI======== =d store the ID of the particlesTdddddd ddddd dd==== =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Dnd__KI======== =ppdd=d FA-2part(iset)d=keTdddddd ddddd dd==== =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Dnd__KI======== =d store the particleedddddd dd==== =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Dnd__KI======== =d __dddddddd.EQ.ddddddddddo4,le) )lSan#if__KI ==__SINGLE_PRECISIONedddddddddddd ddddddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddddddppddsend=d FA-d(i=d FA-)- :,:f :,:(1,,,,,,,,,dddddddREAL_xp(1,k),ddddddddddo4,le)edddddddddddd ddddddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddddddppddsend=d FA-d(i=d FA-)- :,:f :,:(1,,,,,,,,,dddddddREAL_xp(2,k),ddddddddddo4,le)e#elseedddddddddddd ddddddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddddddppddsend=d FA-d(i=d FA-)- xp(1,k)edddddddddddd ddddddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddddddppddsend=d FA-d(i=d FA-)- xp(2,k)e#eVLIST -)dde#if__KI ==__SINGLE_PRECISIONedddddddddddd ddddddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddddddppddsend=d FA-d(i=d FA-)- xp(1,k)edddddddddddd ddddddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddddddppddsend=d FA-d(i=d FA-)- xp(2,k)e#elseedddddddddddd ddddddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddddddppddsend=d FA-d(i=d FA-)- :,:f :,:(1,,,,,,,,,dddddddREAL_xp(1,k),dddddddddsingle)edddddddddddd ddddddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddddddppddsend=d FA-d(i=d FA-)- :,:f :,:(1,,,,,,,,,dddddddREAL_xp(2,k),dddddddddsingle)e#eVLIST --yef dd--yd for inside/outsidef dd--yd for inside/outsidef dd-d end loop over 2D particlesTdddddd ddddd-)ddd else of 2d versus 3df ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d Loop over the particles in 3Dnd__KI====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====yepk=1,Npartedddddd dd====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d and check if they are inside the subedddddd dd====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====I __xp(1,k).GE.in_sub(1,isub).AND. :,:f :,:(1,,,,,,,,,xp(1,k).LE.ax_sub(1,isub).AND. :,:f :,:(1,,,,,,,,,xp(2,k).GE.in_sub(2,isub).AND. :,:f :,:(1,,,,,,,,,xp(2,k).LE.ax_sub(2,isub).AND. :,:f :,:(1,,,,,,,,,xp(3,k).GE.in_sub(3,isub).AND. :,:f :,:(1,,,,,,,,,xp(3,k).LE.ax_sub(3,isub))j)lSand__KI======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======d In the non-periodic case, allow particles that aref dd=====d exactly ON an uppA-nEXTERNAL boundary.nd__KI======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======IF(_xp(1,k).LT.ax_sub(1,isub)===.OR.: :,:f :,:(1,,,,,,,,,_topo%subs_bc(2,isub).EQ.1,,,,,,,,.AND. :,:f :,:(1,,,,,,,,,bcdef(2).NE. ddddparam_bcdef_periodic)),.AND. :,:f :,:(1,,,,,,,,,_xp(2,k).LT.ax_sub(2,isub)===.OR.: :,:f :,:(1,,,,,,,,,_topo%subs_bc(4,isub).EQ.1,,,,,,,,.AND. :,:f :,:(1,,,,,,,,,bcdef(4).NE. ddddparam_bcdef_periodic)),.AND. :,:f :,:(1,,,,,,,,,_xp(3,k).LT.ax_sub(3,isub)===.OR.: :,:f :,:(1,,,,,,,,,_topo%subs_bc(6,isub).EQ.1,,,,,,,,.AND. :,:f :,:(1,,,,,,,,,bcdef(6).NE. ddddparam_bcdef_periodic)),)j)lSand__KI========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d Ifyes, then store themddddddd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========isetd ddddddddddddd d=isetd+ 1eTdddddd ddddd dd====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d store the ID of the particlesTdddddd ddddd dd====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========ppdd=d FA-2part(iset)d=keTdddddd ddddd dd====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d store the particleedddddd dd====ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d __dddddddd.EQ.ddddddddddo4,le) )lSan#if__KI ==__SINGLE_PRECISIONedddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- REAL_xp(1,k),ddddddddddo4,le)edddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- REAL_xp(2,k),ddddddddddo4,le)edddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- REAL_xp(3,k),ddddddddddo4,le)e#elseedddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- xp(1,k)edddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- xp(2,k)edddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- xp(3,k)e#eVLIST -)dde#if__KI ==__SINGLE_PRECISIONedddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- xp(1,k)edddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- xp(2,k)edddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- xp(3,k)e#elseedddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- REAL_xp(1,k),dddddddddsingle)edddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- REAL_xp(2,k),dddddddddsingle)edddddddddddd ddddddddi=d FA-n=i=d FA-n+ 1edddddddddddd ddddddddppddsend=d FA-d(i=d FA-)- REAL_xp(3,k),dddddddddsingle)e#eVLIST --yef dd--yed__KI dd--yed__KI dd-d end loop over particlesTdddddd ddddd--yd eVLIS of 2d/3df dd-d end loop over ilist4: the listdof subs to send ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Upd_Ke the =d FA-npointA-d(ie the current isetd... or the numbA-noff ddd particle we will send to the k-thnentry in the icommseq listdddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddddddpsend=d FA-(i+1)d=isetd+ 1edddddd-d end loop over ndrocTeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Store the current size of the =d FA-ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddnsend=d FA-n- i=d FA-Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Dealloc_Ke the memory for the listseddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptd=ddddparam_dealloceI==dddLddddalloc(ilist1,ldu,iopt,info)eddddddd __info.NE.0)j)lSand__KI=info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_part_get_sub',= :,:f :,:(1'ilist1',j)dINE__,info)edddddd--ye dddLddddalloc(ilist2,ldu,iopt,info)eddddddd __info.NE.0)j)lSand__KI=info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_part_get_sub',= :,:f :,:(1'ilist2',j)dINE__,info)edddddd--ye dddLddddalloc(ilist3,ldu,iopt,info)eddddddd __info.NE.0)j)lSand__KI=info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_part_get_sub',= :,:f :,:(1'ilist3',j)dINE__,info)edddddd--ye dddLddddalloc(ilist4,ldu,iopt,info)eddddddd __info.NE.0)j)lSand__KI=info =dddderrorderrornd__KI=dddLdddderror(dddderr_dealloc,'ddddmap_part_get_sub',= :,:f :,:(1'ilist4',j)dINE__,info)edddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Moreover, if we are not using MPI we can skip the rest of the source f ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T-eVLIST ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Return ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Td9999 CONTINUEedddLsubstop('ddddmap_part_get_sub',t0,info)eddddddRETURNeddddddCONTAINSeddddddSUBROUTINE checknd__KId __.NOT. ddddinitialized)j)lSand__KI====info =dddderrorderrornd__KI===dddLdddderror(dddderr_ddddnoinit,'ddddmap_part_get_sub', :,:f :,:(1,,,,,'Please call ddddinit first!',j)dINE__,info)edddddddddd dddGOTO 8888edddddd d--ye__KId __topoid 0)j)lSand__KI===dddLddddcheck_topoid(topoid,valid,info)edddddddddd dddd __.NOT. valid)j)lSand__KI======info =dddderrorderrornd__KI=====dddLdddderror(dddderr_argument,'ddddmap_part_get_sub', :,:f :,:(1,,,,,,,,,'Invalid topology ID as to_topo specified!',j)dINE__,info)edddddddddd ddd dddGOTO 8888edddddd ddddd d--ye__KI--ye8888dddCONTINUEe- SUBROUTINE checkn#if__KI ==__SINGLE_PRECISIONedddddd- SUBROUTINE ddddmap_part_get_sub_se#elif__KI ==__DOUBLE_PRECISIONedddddd- SUBROUTINE ddddmap_part_get_sub_de#eVLISTlibddd-1.2/src/map/ddddmap_part_ghost_get.f000644 000765 000024 00000230057 11445666062 021216 0ustar00omarstaff000000 000000 ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Subroutineddd: ddddmap_part_ghost_getddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), Tddddddd CentA-nfor Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle M Library (PPM).edddddd!edddddd! PPM is free software: you can redistribuKe it and/or odify f ddd it under the tA-ms of the GNU Lesser General Public License Tddddddd as published =y the Free Software Foundation, either Tddddddd version 3 of the License, or (at your option) any later Tddddddd version.edddddd!edddddd! PPM is distribuKed in the hopedthat it will be useful,edddddd! buK WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theTddddddd GNU General Public License for ore details.edddddd!eddddddd You should have received a copy of the GNU General Public LicenseTddddddd and the GNU Lesser General Public License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle M Library (PPM)edddddd! ETH ZurichTddddddd CH-8092 Zurich, Switzerland ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T #if__KI ==__SINGLE_PRECISIONeddddddSUBROUTINE ddddmap_part_ghost_get_s(topoid,xp,lda,Npart,isymm,:: :,:f :,:(1,(1,,,,,,,,,,,,,,,,,,,,,,,,,,ghostsize,info)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmap_part_ghost_get_d(topoid,xp,lda,Npart,isymm,:: :,:f :,:(1,(1,,,,,,,,,,,,,,,,,,,,,,,,,,ghostsize,info)e#eVLIS d!! This routinedmaps/adds the ghost particles on the current topology. d!! This routinedis similardto the partial mapping routined d!! (`ddddmap_part_partial`) in the sense that the ghost particles aref d!! assumeddto be loc_Keddon=neighbouring processors only, and thus onlyf d!! require a=nearest neighbour communic_Kion. d!! d!! [WARNING]edddddd!!! It is an error to specify a topology ID to which the particles are notedddddd!!! currently mapped d!! d!! [NOTE]edddddd!!! ============================================================== d!! This routinedSHOULD be efficient - since it will beedddddd!!! called frequently. Onedway of improving (?) theTddddddd!! performance is to use the cell lists to find theTddddddd!! potential ghosts. d!! d!! This routinedshould be split in several routines! d!! d!! The ghosts are found in three steps: d!! d!! 1. consider ghosts within the loc_l processoreddddddd!! 2. consider ghosts on=neighbouring processorseddddddd!! 3. consider ghosts on=periodic images of neighbouringeddddddd!! processorseddddddd!!eddddddd!! Comments: d!! d!! 1. Loc_l ghost particles come in two types: ghost particles thateddddddd!! existdbecause two sub domains touch, and ghosts across aeddddddd!! periodic boundary. The first is automatically handled d!!=y the particles - and no copy or/and send is d!!required. The second ghosts could be handled duringeddddddd!! the calcul_Kion of the interacKions, buK this would d!!require a check for periodicity and no expliciteddddddd!! ghosts from the processor itselS. However, it seems d!!ore natural to have ghosts - irrespectively of their d!!origin, so ghosts from periodicity (on the sameeddddddd!! processor) are copied here. d!! 2. is standard procedureeddddddd!! 3. is handled =y copying particles that are adjacent toeddddddd!! faces on=a physical boundarydto their image posiKion. d!! d!! Now, item 2. and 3. can be tre_Keddwithin the same logic d!! whereas 1. require a bit of thought:=to keep the source f ddd!! compacK, we could loop over all processors includingeddddddd!! the loc_l one and check for ghosts - the problem witheddddddd!! this procedure is, that we check for ghosts =y comparingeddddddd!! the loc_Kion of particles within the extended subs ddd ddd!! boundaries (and not their true ghost layer - which d!! would result in ore IFs than=necessary). However, ddd ddd!! because of this, looping over the processor itselSTddd ddd!! would find ghosts that are not really ghost - the onlyf d!! ghosts that should be found in this step are those due f ddd!! to deriodicity. The soluKion is to store the ghosts as ddd ddd!! ighost() with nghost denoting the tot_l numbA-noff d!! ghosts (excluding those due to deriodicity) andTddddddd!! nghostplus the tot_l numbA-nof ghosts. During the loopedddddd!!! over the processor itselS we therefore only needdtoedddddd!!! loop from nghost+1,nghostplus. d!! ============================================================== e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Modules ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddUSE ddddmoduledtypedefTddddddUSE ddddmoduledd_KIddddddUSE ddddmoduledsubstartddddddUSE ddddmoduledsubstopeddddddUSE ddddmodulederrornd__KIUSE ddddmoduledalloceI==USE ddddmoduledwriteeI==USE ddddmoduledcheck_ideddddddUSE ddddmoduleduKildcommoptedddddddMPLICIT NONde#if__KI ==__SINGLE_PRECISION |__KI_AUX ==__SINGLE_PRECISIONeddddddINTEGER, PARAMETER :: MKd=dddddddddsinglee#elseeddddddINTEGER, PARAMETER :: MKd=ddddddddddo4,lee#eVLISTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd ArgumentsdddddTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddINTEGER ,dINTENT(IN ) ::=topoidTddddddd!! ID of current topologyTddddddREAL_MK), DIMENSION(:,:),dINTENT(IN ) ::=xpedddddd!!! The dosiKion of the particlesTddddddREAL_MK) ,dINTENT(IN ) ::=ghostsizeedddddd!!! The size of the ghost layerTddddddINTEGER ,dINTENT(IN ) ::=ldaeddddddd!! Leading dimension of xpeddddddINTEGER ,dINTENT(IN ) ::=Npartedddddd!!! The numbA-nof particles (on the loc_l processor)eddddddINTEGER ,dINTENT(IN ) ::=isymmTddddddd!! IVLIc_Kor for the use of symmetryf d!!Tddddddd!! *=isymm > 0 use symmetryf d!! *=isymm = 0 do not use symmetryf INTEGER ,dINTENT( OUT) ::=infoedddddd!!! Return=staKus, 0 on successTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Loc_l variablesdTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddINTEGER, DIMENSION(3) ::=lduf INTEGER ::=i,j,k,isubf INTEGER ::=nlist1,nlist2,nghost,nghostplusf INTEGER ::=ipart,sendrank,recvranked__KIINTEGER ::=iopt,iset,i=d FA-ddddddREAL_MK), DIMENSION(:,:),dPOINTER :: xtddd dosiKion of potential ghostsddddddREAL_MK), DIMENSION(:,:),dPOINTER :: xt_offsetd! offsetdof pot. ghostsddddddREAL_MK) ::=xminf,yminf,zminfd full domainddddddREAL_MK) ::=xmaxf,ymaxf,zmaxfd full domainddddddREAL_MK) ::=xmini,ymini,zminidd innA- domainddddddREAL_MK) ::=xmaxi,ymaxi,zmaxidd innA- domainddddddREAL_MK), DIMENSION(dddddim) ::=len_physddddddREAL_MK) ::=t0f INTEGER ::=ideriodicf LOGICAL ::=validf CHARACTER(ddddchar) ::=mesgeddddddd numbA-nof periodic direcKions: between 0 and ppdddim f TYPE(ddddt_topo),POINTER ::=topoTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd ExternalsdTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Initialise Tddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddddddLsubstart('ddddmap_part_ghost_get',t0,info)eTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Check argumentsTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddI __dddddebug 1)j)lSand__KI==d __.NOT. ddddinitialized)j)lSand__KI====info =dddderrorderrornd__KI===dddLdddderror(dddderr_ddddnoinit,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,'Please call ddddinit first!',j)dINE__,info)edddddddddd dddGOTO 9999 dddddd --yed__KI ddd __topoid EQ. ddddparam_topo_undefined)j)lSand__KI====info =dddderrorderrornd__KI===dddLdddderror(dddderr_no_topo,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,'This routinedneeds a topology defined topo',j)dINE__,info)edddddddddd dddGOTO 9999 dddddd --yed__KI ddd __topoid NE. ddddparam_topo_undefined)j)lSand__KI==dddLddddcheck_topoid(topoid,valid,info)edddddddddd dd __.NOT. valid)j)lSand__KI=====info =dddderrorderrornd__KI====dddLdddderror(dddderr_argument,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,,,'topoid out of range',j)dINE__,info)edddddddddd ddd dGOTO 9999 dddddd d--ye__KI--yeddddd dd __lda L 1)j)lSand__KI===info =dddderrorderrornd__KI==dddLdddderror(dddderr_argument,'ddddmap_part_ghost_get', :,:f :,:(1,,,'lda mustdbe >0',j)dINE__,info)edddddddddd dGOTO 9999 dddddd --yeddddd dd __Npart L 0)j)lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_argument,'ddddmap_part_ghost_get', :,:f :,:(1,,,'Npart mustdbe >=0',j)dINE__,info)edddddddddd dGOTO 9999 dddddd --yeddddd dd __ghostsize L 0.0_MK) )lSand__KI==info =dddderrorderrornd__KI==dddLdddderror(dddderr_argument,'ddddmap_part_ghost_get', :,:f :,:(1,,,'ghostsize mustdbe >=0.0',j)dINE__,info)edddddddddd dGOTO 9999 dddddd --yeddddd--ye topo =>ddddtopo(topoid)%t e d if theredis still some d_KI left in the =d FA-, warn the userTddddddI __dddd=d FA-_set 0)j)lSand__KIinfo =dddderrordwarningedddddd=dddLdddderror(dddderr_map_incomp,'ddddmap_part_ghost_get', :,:f :,:(1'Bd FA- was not empty. Possible lossdof d_KI!',j)dINE__,info)edddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOTddddddd first check if the optimal communic_Kion protocoldis known ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,TddddddI __.NOT.topo%isoptimized)j)lSand__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dd if not: determineditnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd ddddLdddduKildcommopt(topoid,info)eddddddddI __dddddebug 1)j)lSand__KI==ddyep =1,topo%nneighdrocTdddddd IWRITE(mesg,'(A,I4)') 'have neighbor: ',topo%ineighdroc(i)edddddddddd ddd ddddLddddwrite_ddddrank,'ddddmap_part_ghost_get',mesg,info)edddddddddd d-d__KI==ddyep =1,topo%ncommseqTdddddd IWRITE(mesg,'(A,I4)') 'communic_Ke: ',topo%icommseq(i)edddddddddd ddd ddddLddddwrite_ddddrank,'ddddmap_part_ghost_get',mesg,info)edddddddddd d-d__KI--yeddddd--ye d for now here, buK this can be done betternd__KI! TODO: kepp this consistanK throughout simul_Kionnd__KIppddsend=d size - 0ed__KId __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=d __ASSOCIATED(ppddsend=d FA-d))j)lSand__KI==ppddsend=d size - SIZE(ppddsend=d FA-d)nd__KI=--yeddddd-)dded__KI=d __ASSOCIATED(ppddsend=d FA-s))j)lSand__KI==ppddsend=d size - SIZE(ppddsend=d FA-s)nd__KI=--yeddddd--yedddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd CompuKe the size of the compuK_Kional box on this topologyTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). T-if __KI ==__DOUBLE_PRECISIONeddddddlen_phys(:)d=topo%ax_physd(:)d-topo%in_physd(:)e#elseeddddddlen_phys(:)d=topo%ax_physs(:)d-topo%in_physs(:)e#eVLIST ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Save the map type for the subsequent callsdTddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddmap_type =ddddparam_map_ghost_get ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Alloc_Ke memory for the listnof particle on the loc_l processor thateddddddd may be ghosts on=other processorseddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddioptddd=ddddparam_alloc_growTddddddldu(1)d=Nparteddddddd ___NpartNE.prev_allocsize).OR.: :,:_.NOT.ASSOCIATED(ilist1)))j)lSand__KIdddLddddalloc(ilist1,ldu,iopt,info)eddddddd __info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'list1',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeddddddddLddddalloc(ilist2,ldu,iopt,info)eddddddd __info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'list2',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeddddddddLddddalloc(ighost,ldu,iopt,info)eddddddd __info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'ighost',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for their dosiKionseddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddldu(1)d=ppdddim f ldu(2)d=NpartedddddddddLddddalloc(xt,ldu,iopt,info)edddddddddLddddalloc(xt_offset,ldu,iopt,info)eddddddd __info.NE.0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'xt',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Listnilist1() holds the particles we are currently considering Tddddddd Listnilist2() holds the particles that have not yetdbeen associ_KeddTddddddd with a sub, and ghost() holds the ghostsddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddyep =1,Npartedddddd ddilist1(i)d=i dddddd-d__KInlist1nd=Nparteddddddnlist2nn- 0ed__KInghost n- 0e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Fill the listnwith particles that are within the reach of the ghostTddddddd regions of other subs. We do that by looping over the subs belongingeddddddd dto this processor and checking if the particles are well within theeddddddd dsub. If this is the case, the particle will never be a ghost ddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddyepk=1,topo%nsublistdddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Initialize the second listdcountA-nto zeroedddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddnlist2n- 0edddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Get the (global) id of the subedddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddisubn- topo%isublist(k)ef ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Store the full extend of the sub in ?minfand ?maxff ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,-if __KI ==__DOUBLE_PRECISIONedddddddddxminfd=topo%in_subd(1,isub)edddddddddxmaxf=topo%ax_subd(1,isub)eedddddddddyminfd=topo%in_subd(2,isub)edddddddddymaxf=topo%ax_subd(2,isub)eedddddddddI __dddddim.EQ.3)j)lSand__KI==zminfd=topo%in_subd(3,isub)eddddddddd=zmaxf=topo%ax_subd(3,isub)eddddddddd--ye#elseeddddddxminfd=topo%in_subs(1,isub)edddddddddxmaxf=topo%ax_subs(1,isub)eedddddddddyminfd=topo%in_subs(2,isub)edddddddddymaxf=topo%ax_subs(2,isub)edddddddddI __dddddim.EQ.3)j)lSand__KI==zminfd=topo%in_subs(3,isub)eddddddddd=zmaxf=topo%ax_subs(3,isub)eddddddddd--ye#eVLIST ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd CompuKe the size of the innA- region ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd __isymm0)j)lSand__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddd if we use symmetry the uppA-/right part of our sub will have edddddd dddddd ghosts and therefore the particle at the uppA-/right part of the edddddd dddddd sub cannot be ghosts on=other processors. Thus the ghosts mustdedddddd dddddd be found at the lowA-/left of the subedddddd dd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddxmini- xminfd+=ghostsizeedddddd dddddxmaxid=dxmaxfef ddymini- yminfd+=ghostsizeedddddd dddddymaxid=dymaxfedddddd dddddI __dddddim.EQ.3)j)lSand__KI== zminid=dzminfd+=ghostsizeedddddd ddddd zmaxid=dzmaxff dd dd--yef dd dd-)dded__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddd if we do not use symmetry, the particles along the entire edddddd dddddd boundarydof the sub will be ghosts on=other processorsedddddd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddxmini- xminfd+=ghostsizeedddddd dddddxmaxid=dxmaxf -=ghostsizeef ddymini- yminfd+=ghostsizeedddddd dddddymaxid=dymaxf -=ghostsizeef ddI __dddddim.EQ.3)j)lSand__KI== zminid=dzminfd+=ghostsizeedddddd ddddd zmaxid=dzmaxf -=ghostsizeeddd ddddd --yef dd dd--ye ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd loop over the remaining particles ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd __dddddim.EQ.2)j)lSand__KI==yeps=1,nlist1eddddddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d get the particle indexeddddddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====ipartn- ilist1(j)Tdddeddddddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d check if the particles belongsdto this subedddddd dd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====I __xp(1,ipart).GE.xminf.AND.xp(1,ipart).LT.xmaxf.AND. :,:f :,:(1,,,,,,xp(2,ipart).GE.yminf.AND.xp(2,ipart).LT.ymaxf)j)lSand__KI======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d ifyes, check if the particles are in the ghost layerdedddddddddddd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====I __xp(1,ipart).LT.xmini.OR.xp(1,ipart).GT.xmaxi.OR.: :,:f :,:(1,,,,,,,,,xp(2,ipart).LT.ymini.OR.xp(2,ipart).GT.ymaxi)j)lSand__KI========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d ifyes the particle will be a ghost somewherend__KI========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========nghost nnnnnnnn==nghost + 1,,,nd__KI========ighost(nghost)d=ipartedddddd dd====,,,xt(1,nghost)nnn==xp(1,ipart)edddddd dd====,,,xt(2,nghost)nnn==xp(2,ipart)edddddd dd====,,,xt_offset(1,nghost)n= 0.0_MKedddddd dd====,,,xt_offset(2,nghost)n= 0.0_MKedddddd dd====--yed__KI dd-)dd,,,nd__KI======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d If not on this sub we needdto consider it furthernd__KI======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====nlist2nnnnnnnnn=nlist2n+ 1edddddddddddd ddilist2(nlist2)d=ipartedddddd dd==--yed__KI dd-d__KI=-)dded__KI==yeps=1,nlist1eddddddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d get the particle indexeddddddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====ipartn- ilist1(j)Tdddeddddddddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d check if the particles belongsdto this subedddddd dd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====I __xp(1,ipart).GE.xminf.AND.xp(1,ipart).LT.xmaxf.AND. :,:f :,:(1,,,,,,xp(2,ipart).GE.yminf.AND.xp(2,ipart).LT.ymaxf.AND. :,:f :,:(1,,,,,,xp(3,ipart).GE.zminf.AND.xp(3,ipart).LT.zmaxf)j)lSand__KI======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d ifyes, check if the particles is in the ghost layerdedddddddddddd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====I __xp(1,ipart).LT.xmini.OR.xp(1,ipart).GT.xmaxi.OR.: :,:f :,:(1,,,,,,,,,xp(2,ipart).LT.ymini.OR.xp(2,ipart).GT.ymaxi.OR.: :,:f :,:(1,,,,,,,,,xp(3,ipart).LT.zmini.OR.xp(3,ipart).GT.zmaxi)j)lSand__KI========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d ifyes the particle will be a ghost somewherend__KI========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI====nghost nnnnnnnn==nghost + 1,,,nd__KI========ighost(nghost)d=ipartedddddd dd====,,,xt(1,nghost)nnn==xp(1,ipart)edddddd dd====,,,xt(2,nghost)nnn==xp(2,ipart)edddddd dd====,,,xt(3,nghost)nnn==xp(3,ipart)edddddd dd====,,,xt_offset(1,nghost)n= 0.0_MKedddddd dd====,,,xt_offset(2,nghost)n= 0.0_MKedddddd dd====,,,xt_offset(3,nghost)n= 0.0_MKedddddd dd====--yed__KI dd-)dd,,,nd__KI======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d If not on this sub we needdto consider it furthernd__KI======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====nlist2nnnnnnnnn=nlist2n+ 1edddddddddddd ddilist2(nlist2)d=ipartedddddd dd==--yed__KI dd-d__KI=--ye ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd swap the lists ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddyeps=1,nlist2ed__KI ddilist1(j)n- ilist2(j)Tddd dd-d__KI=nlist1n=nlist2e ddd dd-d end of subs on loc_l processore e ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd At the end the nlist2nshould be zeroeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddI __nlist2.NE.0)j)lSand__KI=info =dddderrordf_KIlnd__KI=dddLdddderror(dddderr_dart_unass,'ddddmap_part_ghost_get', :,:f :,:(1'nlist2n> 0',j)dINE__,info)edddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Initialize the tot_l numbA-nof ghosts incl. those due to deriodicity ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddnghostplus ==nghoste ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Ok, we now have a listnof potential ghosts. From these we extracK/addTddddddd their deriodic images (ifany). So, first we check for deriodicity ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddideriodicn- 0ed__KIyepk=1,ppdddim f dd __topo%bcdef(2*k-1).EQ.ddddparam_bcdef_periodic) )lSand__KI==ideriodicn- ideriodicn+ 1edddddd--yef dd- ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd If we have deriodicity, cre_Ke the periodicnghostsddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd __iperiodic0)j)lSand__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd handle periodicity in xnd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd __topo%bcdef(1).EQ.ddddparam_bcdef_periodic) )lSand__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddd (Re)alloc_Ke memory for the periodicnghostsdddddd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddioptddd=ddddparam_alloc_grow_preservend__KI==ldu(1)d=ppdddim f ==ldu(2)d=2*nghostplusf dddLddddalloc(xt,ldu,iopt,info) f dddLddddalloc(xt_offset,ldu,iopt,info)edddddd dddddI __info.NE.0)j)lSand__KI==dddddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,'xt',j)dINE__,info)edddddddddddddddGOTO 9999 dddddd d--yend__KI==ldu(1)d=ldu(2)f dddLddddalloc(ighost,ldu,iopt,info)edddddd dddddI __info.NE.0)j)lSand__KI==ddddddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,,'ighost',j)dINE__,info)eddddddddddddddddGOTO 9999 dddddd d--yend__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddd copy periodicnghosts in the x-direcKionnd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,e#if__KI ==__SINGLE_PRECISIONedddddddddxminfd=topo%in_physs(1)edddddddddxminid=topo%in_physs(1)d+=ghostsizee#elseedddddddddxminfd=topo%in_physd(1)edddddddddxminid=topo%in_physd(1)d+=ghostsizee#eVLIST k = nghostplusf yep =1,nghostplusf =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d first those at the west boundarydedddddd dd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====I __xt(1,i).GE.xminf.AND.xt(1,i).LT.xmini)j)lSand__KI======k======k=+ 1edddddddddddd ddighost(k)n- ighost(i)edddddddddd ddd d,,xt(1,k)nnn==xt(1,i)=+ len_phys(1)edddddddddd ddd d,,xt(2,k)nnn==xt(2,i)edddddddddd ddd d,,xt_offset(1,k)n- len_phys(1)edddddddddd ddd d,,xt_offset(2,k)n= 0.0_MKedddddd dd====I __dddddim.EQ.3)j)lSand__KI== dd d,,xt(3,k)nnn==xt(3,i)edddddddddd ddd d,, ,,xt_offset(3,k)n= 0.0_MKedddddd dd====--yef dd dd===--yed__KI dd-d__KI= ddd __isymmEQ.0)j)lSand__KI==dddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d then the east bc, buK only if we are not using symmetryf ==dddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL En#if__KI ==__SINGLE_PRECISIONeddddddddddddxmaxf=topo%ax_physs(1)eddddddddd ddxmaxid=dtopo%ax_physs(1) -=ghostsizee#elseeddddddddddddxmaxf=topo%ax_physd(1)eddddddddd ddxmaxid=dtopo%ax_physd(1) -=ghostsizee#eVLIST yep =1,nghostplusf = ddd ___xt(1,i).GT.xmaxi.AND.xt(1,i).LT.xmaxf)j)lSand__KI====== =k======k=+ 1edddddddddddd dd ddighost(k)n- ighost(i)edddddddddd ddd d,, ,,xt(1,k)nnn==xt(1,i)=- len_phys(1)edddddddddd ddd d,, ,,xt(2,k)nnn==xt(2,i)edddddddddd ddd d,, ,,xt_offset(1,k)n- -len_phys(1)edddddddddd ddd d,, ,,xt_offset(2,k)n= 0.0_MKedddddd dd==== =I __dddddim.EQ.3)j)lSand__KI== dd d,, ,,xt(3,k)nnn==xt(3,i)edddddddddd ddd d,, ,, ,,xt_offset(3,k)n= 0.0_MKedddddd dd==== =--yef dd dd=== =--yed__KI dd-d__KI= dd--ye ddd dd dd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddd upd_Ke the ghost countA- ddd dd dd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddnghostplus ==knd__KId--yd of periodicity in xe ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd handle periodicity in y ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd __topo%bcdef(3).EQ.ddddparam_bcdef_periodic) )lSand__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddd (Re)alloc_Ke memory for the periodicnghostsdddddd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,eddddddddddddioptddd=ddddparam_alloc_grow_preservend__KI==ldu(1)d=ppdddim f ==ldu(2)d=2*nghostplusf dddLddddalloc(xt,ldu,iopt,info) f dddLddddalloc(xt_offset,ldu,iopt,info)edddddd dddddI __info.NE.0)j)lSand__KI==dddddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,'xt',j)dINE__,info)edddddddddddddddGOTO 9999 dddddd d--yend__KI==ldu(1)d=ldu(2)f dddLddddalloc(ighost,ldu,iopt,info)edddddd dddddI __info.NE.0)j)lSand__KI==ddddddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,,'ighost',j)dINE__,info)eddddddddddddddddGOTO 9999 dddddd d--yend__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,eddddddddddddd copy periodicnghosts in the y-direcKionnd__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,e#if__KI ==__SINGLE_PRECISIONedddddddddyminfd=topo%in_physs(2)f yminid=topo%in_physs(2)d+=ghostsizee#elseedddddddddyminfd=topo%in_physd(2)f yminid=topo%in_physd(2)d+=ghostsizee#eVLIST k = nghostplusf yep =1,nghostplusf =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d first those at the south boundarydedddddd dd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====I __xt(2,i).GE.yminf.AND.xt(2,i).LT.ymini)j)lSand__KI======k======k=+ 1edddddddddddd ddighost(k)n- ighost(i)edddddddddd ddd d,,xt(1,k)nnn==xt(1,i)=edddddddddd ddd d,,xt(2,k)nnn==xt(2,i)=+ len_phys(2)edddddddddd ddd d,,xt_offset(1,k)n- 0.0_MKedddddd dd====xt_offset(2,k)n= len_phys(2)edddddddddd ddd d,,I __dddddim.EQ.3)j)lSand__KI== dd d,,xt(3,k)nnn==xt(3,i)edddddddddd ddd d,, ,,xt_offset(3,k)n= 0.0_MKedddddd dd====--yef dd dd===--yed__KI dd-d__KI= ddd __isymmEQ.0)j)lSand__KI==dddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d then the north bc, buK only if we are not using symmetryf ==dddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL En#if__KI ==__SINGLE_PRECISIONeddddddddddddymaxf=topo%ax_physs(2)f ddymaxid=dtopo%ax_physs(2) -=ghostsizee#elseeddddddddddddymaxf=topo%ax_physd(2)f ddymaxid=dtopo%ax_physd(2) -=ghostsizee#eVLIST yep =1,nghostplusf = ddd ___xt(2,i).GT.ymaxi.AND.xt(2,i).LT.ymaxf)j)lSand__KI====== =k======k=+ 1edddddddddddd dd ddighost(k)n- ighost(i)edddddddddd ddd d,, ,,xt(1,k)nnn==xt(1,i)edddddddddd ddd d,, ,,xt(2,k)nnn==xt(2,i)=- len_phys(2)edddddddddd ddd d,, ,,xt_offset(1,k)n- 0.0_MKedddddd dd==== =xt_offset(2,k)n= -len_phys(2)edddddddddd ddd d,, ,,I __dddddim.EQ.3)j)lSand__KI== dd d,, ,,xt(3,k)nnn==xt(3,i)edddddddddd ddd d,, ,, ,,xt_offset(3,k)n= 0.0_MKedddddd dd==== =--yef dd dd=== =--yed__KI dd-d__KI= dd--ye ddd dd dd ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVL End__KI==d upd_Ke the ghost countA- ddd dd dd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddnghostplus ==knd__KId--yd of periodicity in ye ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd handle periodicity in z (if3D) ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddI __dddddim.EQ.3)j)lSand__KI==ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVL End__KI==d yes, we split the if in two, since we do not know in what ordA- ddd dd dd d the compilA- will check and ppddbcdef will only be alloc_Keddto ddd dd dd d four (4) in 2Dnd__KI==ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVL End__KI==d __topo%bcdef(5).EQ.ddddparam_bcdef_periodic) )lSand__KI===ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVLnd__KI====d (Re)alloc_Ke memory for the periodicnghostsdddddd===ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVLnd__KI====ioptddd=ddddparam_alloc_grow_preservend__KI== ldu(1)d=ppdddim f == ldu(2)d=2*nghostplusf dddLddddalloc(xt,ldu,iopt,info) f dddLddddalloc(xt_offset,ldu,iopt,info)edddddd ddddd ddI __info.NE.0)j)lSand__KI==ddddddddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,,,,'xt',j)dINE__,info)eddddddddddddddd ddGOTO 9999 dddddd d d--yend__KI== ldu(1)d=ldu(2)f dddLddddalloc(ighost,ldu,iopt,info)edddddd ddddd ddI __info.NE.0)j)lSand__KI==dddddddddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,,,,,'ighost',j)dINE__,info)edddddddddddddddd ddGOTO 9999 dddddd d d--yend__KI== ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d copy periodicnghosts in the z-direcKionnd__KI== ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL En#if__KI ==__SINGLE_PRECISIONeddddddddddddzminfd=topo%in_physs(3)edddddddddddddddzminid=topo%in_physs(3)d+=ghostsizee#elseeddddddddddddzminfd=topo%in_physd(3)edddddddddddddddzminid=topo%in_physd(3)d+=ghostsizee#eVLIST k = nghostplusedddddd ddddd ddyep =1,nghostplusf = ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d first those at the south boundarydedddddd dd== ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====I __xt(3,i).GE.zminf.AND.xt(3,i).LT.zmini)j)lSand__KI====== =k======k=+ 1edddddddddddd dd ddighost(k)n- ighost(i)edddddddddd ddd d,, ,,xt(1,k)nnn==xt(1,i)=edddddddddd ddd d,, ,,xt(2,k)nnn==xt(2,i)nd__KI== dd d,,xt(3,k)nnn==xt(3,i)=+ len_phys(3)end__KI== dd d,,xt_offset(1,k)n- 0.0_MKedddddd dd==== =xt_offset(2,k)n= 0.0_MKedddddd dd====,,,xt_offset(3,k)n= len_phys(3)eddddddddddddddd =--yed__KI dd-d__KI= dd ddd __isymmEQ.0)j)lSand__KI==ddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d then the north bc, buK only if we are not using symmetryf ==ddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe#if__KI ==__SINGLE_PRECISIONedddddddddddd zmaxf=topo%ax_physs(3)eddddddddddddddd zmaxid=dtopo%ax_physs(3) -=ghostsizee#elseedddddddddddd zmaxf=topo%ax_physd(3)eddddddddddddddd zmaxid=dtopo%ax_physd(3) -=ghostsizee#eVLIST ddyep =1,nghostplusf = dd ddd ___xt(3,i).GT.zmaxi.AND.xt(3,i).LT.zmaxf)j)lSand__KI====== = =k======k=+ 1edddddddddddd dd dd ddighost(k)n- ighost(i)edddddddddd ddd d,, ,, ,,xt(1,k)nnn==xt(1,i)edddddddddd ddd d,, ,, ,,xt(2,k)nnn==xt(2,i)=nd__KI== dd d,, ,,xt(3,k)nnn==xt(3,i)=- len_phys(3)eddddddddddddddd =--yed__KI dd -d__KI= dd dd--ye ddd dd dd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d upd_Ke the ghost countA- ddd dd dd ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====nghostplus ==knd__KId d--yd of periodicity in zef dd dd--yd of 3Dnd__KI--yd of periodicity at all/any direcKione ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Ok, now we have anshortA-nlistnof potential ghosts to searchdTddddddd alloc_Ke memory for the lghosts ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptddd=ddddparam_alloc_fitnd__KIldu(1)d=nghostplusf dddLddddalloc(lghost,ldu,iopt,info)eddddddd __info NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'logic_l list: lghost',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the global send/recv lists ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddldu(1)d=topo%ncommseqTdddddddddLddddalloc(ddddisendlist,ldu,iopt,info)eddddddd __info NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'global send ranknlistnPPM_IS-LIST',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeddddddddLddddalloc(ddddirecvlist,ldu,iopt,info)eddddddd __info NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'global recv ranknlistnPPM_IRECVLIST',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the pointA-sdto the particles that will be sendTddddddd and received from and to anprocessor. The ddddrecv=d FA- is NOT usedTddddddd in this routine, buK initialized from the precv() array in the routineTddddddd ddddmap_part_send(). ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddldu(1)d=topo%ncommseq=+ 1edddddddddLddddalloc(ddddpsend=d FA-,ldu,iopt,info)eddddddd __info NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'global send =d FA- pointA-nPPM_PS-BUFFER',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Step 1:Tddddddd First we find the ghosts due to deriodicity on the loc_l processor ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddpsend=d FA-(1)d=1Tddddddddddnsendlistdddddd- 0ed__KIddddnrecvlistdddddd- 0ed__KIiset - 0ed__KIi=d FA- - 0ed__KIk =1T ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Get the ranknof the processor ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddsendrankd=topo%icommseq(k)n!nshould be ddddrank !Tddddddrecvrankd=sendranke ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Store the processor to whichdwe will send toeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddnsendlistdddddd =ddddnsendlistd+1Tddddddddddisendlist(ddddnsendlist)d=sendranke ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Store the processor to whichdwe will recv fromeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddnrecvlistdddddd =ddddnrecvlistd+1Tddddddddddirecvlist(ddddnrecvlist)d=recvranke ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Store the numbA-nof =d FA- entries (this is the first)eddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddddddd=d FA-_set =1T ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Alloc_Ke memory for the field registA-sdthat holds the dimension andTddddddd type of the d_KI ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddioptddd=ddddparam_alloc_fitnd__KIldu(1)d=dddd=d FA-_setedddddddddLddddalloc(dddd=d FA-_dim ,ldu,iopt,info)eddddddd __info NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'=d FA- dimensionsnPPM_BUFFER_DIM',j)dINE__,info)eddddddddddGOTO 9999 dddddd--yeddddddddLddddalloc(dddd=d FA-_type,ldu,iopt,info)eddddddd __info NE. 0)j)lSand__KI==info =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,'=d FA- typesnPPM_BUFFER_TYPE',j)dINE__,info)eddddddddddGOTO 9999 dddddd--ye ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Store the dimension and typeeddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTdddddddddd=d FA-_dim_dddd=d FA-_set)dd=dddddim #if__KI ==__SINGLE_PRECISIONedddddddddd=d FA-_type_dddd=d FA-_set)d=dddddddddsinglee#elseedddddddddd=d FA-_type_dddd=d FA-_set)d=ddddddddddo4,lee#eVLIST ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Well we only do the std F for re_l if we have deriodicity !Tddddddd (Re)alloc_Ke memory for the send =d FA-. The required size of thesedTddddddd arrays is not easydto compuKe. The first step (step 1)drequire ateddddddd most ddddnsublist(topoid)*(nghostplus -nghost)*dddddim. The arraysTddddddd are resized further below during step 2 and 3. ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd __iperiodic0)j)lSand__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Well we can grow or fit the arrays - a matter of taste nd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddioptddd=ddddparam_alloc_growTdddddd ldu(1)d=ppdddim*(nghostplus -nghost)*topo%nsublistdddddd ddppddsend=d size - ldu(1)nd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd First alloc_Ke the send=d FA-nd__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd __dddddddd.EQ.ddddddddddo4,le) )lSand__KI= dddddLddddalloc(ddddsend=d FA-d,ldu,iopt,info)edddddd= dddddLddddalloc(ddddghost_offsetd,ldu,iopt,info)edddddd=-)dded__KI==dddLddddalloc(ddddsend=d FA-s,ldu,iopt,info)edddddd= dddddLddddalloc(ddddghost_offsets,ldu,iopt,info)edddddd=--yed__KI ddd __info NE. 0)j)lSand__KI== ddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,'global send =d FA- PPM_S-BUFFER',j)dINE__,info)edddddddddd ddGOTO 9999 dddddd --yend__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd then alloc_Ke the index list: =d FA-2partedddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddldu(1)d=(nghostplus -nghost)*topo%nsublistdddddd dddddLddddalloc(dddd=d FA-2part,ldu,iopt,info)edddddd=d __info NE. 0)j)lSand__KI== ddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,'=d FA--to-particles map PPM_BUFFER2PART',j)dINE__,info)edddddddddd ddGOTO 9999 dddddd --yend__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd flag all ghosts as not yetdtaken ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddyeps=1,nghostplusf lghost(:)d=.TRUE. dddddd - =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd loop over the subs on the loc_l processor ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddyeps=1,topo%nsublistdddddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,dddddd dd ddd Get the global ID of the subedddddd dd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,edddddd dddddisubn- topo%isublist(j)e ddd dd dd ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVL End__KI==d Define the extended resize of this sub ddd dd dd ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVL End__KI==d __isymm0)j)lSand__KI== ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVLnd__KI== d if we use symmetry ghosts will only be present at thend__KI== d uppA-/right part of the subedddddd dd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL En-if __KI ==__SINGLE_PRECISIONeddddddddddddxminid=topo%in_subs(1,isub)edddddddddddddddxmaxid=dtopo%ax_subs(1,isub)d+=ghostsizeedddedddddddddddddddyminid=topo%in_subs(2,isub)edddddddddddddddymaxid=dtopo%ax_subs(2,isub)d+=ghostsizeedddedddddddddddddddI __dddddim.EQ.3)j)lSand__KI== dd zminid=topo%in_subs(3,isub)eddddddddd= dd zmaxid=dtopo%ax_subs(3,isub)d+=ghostsizeeddddddddddddddd--ye#elseeddddddddddddxminid=topo%in_subd(1,isub)edddddddddddddddxmaxid=dtopo%ax_subd(1,isub)d+=ghostsizeedddedddddddddddddddyminid=topo%in_subd(2,isub)edddddddddddddddymaxid=dtopo%ax_subd(2,isub)d+=ghostsizeedddedddddddddddddddI __dddddim.EQ.3)j)lSand__KI== dd zminid=topo%in_subd(3,isub)eddddddddd= dd zmaxid=dtopo%ax_subd(3,isub)d+=ghostsizeeddddddddddddddd--ye#eVLIST -)dded__KI== ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVLnd__KI== d if we do not use symmetry, we have ghost all aroundedddddd dd==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL En-if __KI ==__SINGLE_PRECISIONeddddddddddddxminid=topo%in_subs(1,isub) -=ghostsizeeddd ddddd ddxmaxid=dtopo%ax_subs(1,isub)d+=ghostsizeedddedddddddddddddddyminid=topo%in_subs(2,isub) -=ghostsizeeddd ddddd ddymaxid=dtopo%ax_subs(2,isub)d+=ghostsizeedddedddddddddddddddI __dddddim.EQ.3)j)lSand__KI== dd zminid=topo%in_subs(3,isub) -=ghostsizeeddd ddddd dd d zmaxid=dtopo%ax_subs(3,isub)d+=ghostsizeeddddddddddddddd--ye#elseeddddddddddddxminid=topo%in_subd(1,isub) -=ghostsizeeddd ddddd ddxmaxid=dtopo%ax_subd(1,isub)d+=ghostsizeedddedddddddddddddddyminid=topo%in_subd(2,isub) -=ghostsizeeddd ddddd ddymaxid=dtopo%ax_subd(2,isub)d+=ghostsizeedddedddddddddddddddI __dddddim.EQ.3)j)lSand__KI== dd zminid=topo%in_subd(3,isub) -=ghostsizeeddd ddddd dd d zmaxid=dtopo%ax_subd(3,isub)d+=ghostsizeeddddddddddddddd--ye#eVLIST --ye ddd dd dd ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVL End__KI==d Realloc_Ke the arrays: ddddsend=d FA-s/d and ppddbd FA-2part. edddddd dddddd The required size is the current size inus the current use plusedddddd dddddd the maximum increment (nghostplus-nghost).edddddd dddddd We derform a grow_preserve to dreserve the contents buK only to edddddd dddddd realloc_Ke ifan increased size is required. ddd dd dd ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVL End__KI==ioptddd=ddddparam_alloc_grow_preservend__KI==d __dddddddd.EQ.ddddddddddo4,le) )lSand__KI= dd=d __ASSOCIATED(ddddsend=d FA-d))j)lSand__KI== dd ldu(1)d=ppddsend=d size + :,:f :,:(1,,,,,,,,,,,,,,(nghostplus -nghost -i=d FA-)*dddddimeddddddddddddddd-)dded__KI== ddldu(1)d=(nghostplus -i=d FA-)*dddddimeddddddddddddddd--yed__KI dddddLddddalloc(ddddsend=d FA-d,ldu,iopt,info)edddddd= dddddLddddalloc(ddddghost_offsetd,ldu,iopt,info)edddddd=ddd-)dded__KI== d __ASSOCIATED(ddddsend=d FA-s))j)lSand__KI== dd ldu(1)d=ppddsend=d size + :,:f :,:(1,,,,,,,,,,,,,,(nghostplus -nghost -i=d FA-)*dddddimeddddddddddddddd-)dded__KI== ddldu(1)d=(nghostplus -nghost -i=d FA-)*dddddimef dd dd===--y f dddLddddalloc(ddddsend=d FA-s,ldu,iopt,info)edddddd= dd dddLddddalloc(ddddghost_offsets,ldu,iopt,info)edddddd= dd--yed__KI ddppddsend=d size - ldu(1)edddddd dddddI __info NE. 0)j)lSand__KI== dd ddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,,'global send =d FA- PPM_S-BUFFER',j)dINE__,info)edddddddddd dd ddGOTO 9999 dddddd d--yend__KI==d __ASSOCIATED(ddddbd FA-2part))j)lSand__KI== ldu(1)d=SIZE(ddddbd FA-2part) +nghostplus -nghost -isetedddddd d-)dded__KI== ldu(1)d=nghostplus -nghost -isetedddddd d--y f dddLddddalloc(dddd=d FA-2part,ldu,iopt,info)edddddd= ddI __info NE. 0)j)lSand__KI== dd ddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,,'=d FA--to-particles map PPM_BUFFER2PART',j)dINE__,info)edddddddddd dd ddGOTO 9999 dddddd d--yend__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,eddddddddddddd loop over the potential ghost particles due to deriodicity ==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,eddddddddddddd __dddddim.EQ.2)j)lSand__KI===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI== d Two dimensionsnd__KI===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI== yep =nghost+1,nghostplusf = ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d and check if it is inside the ghost regiondedddddd dd== ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====I __xt(1,i).GT.xmini.AND.xt(1,i).LT.xmaxi.AND. :,:f :,:(1,,,,,, xt(2,i).GT.ymini.AND.xt(2,i).LT.ymaxi.AND.lghost(i))j)lSand__KI========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d mark the ghost asdtaken ddd dd dd=======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========lghost(i)d=.FA)dd.end__KI== dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d found one -increment the =d FA- countA- ddd dd dd dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========iset dd=iset +1Tdddnd__KI== dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d store the ID of the particles ddd dd dd= dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========dddd=d FA-2part(iset)d=ighost(i)edddnd__KI== dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d store the particlend__KI== dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d __dddddddd.EQ.ddddddddddo4,le) )lSan#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=REAL_xt(1,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =REAL_xt_offset(1,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=REAL_xt(2,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =REAL_xt_offset(2,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)e#elseedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(1,i)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(1,i)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(2,i)nd__KI== dd d,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(2,i)n#eVLIST dd d-)dde#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(1,i)edddddddddd ddd d,, ,, ,, ddddghost_offsets(i=d FA-) =xt_offset(1,i)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(2,i)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =xt_offset(2,i)n#elseedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(1,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(1,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(2,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(2,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)n#eVLIST dd d--yed__KI dd --yef dd dd===-d__KI= dd-)dded__KI== ddd4,BOIe)0=ddddddddddddd De-se-s kVL ERp,vp,). De-s kVLnd__KI== d Three dimensionsnd__KI===ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI== yep =nghost+1,nghostplusf = ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d and check if it is inside the ghost regiondedddddd dd== ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====I __xt(1,i).GT.xmini.AND.xt(1,i).LT.xmaxi.AND. :,:f :,:(1,,,,,, xt(2,i).GT.ymini.AND.xt(2,i).LT.ymaxi.AND.f:,:f :,:(1,,,,,, xt(3,i).GT.zmini.AND.xt(3,i).LT.zmaxi.AND.lghost(i))j)lSand__KI========ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d mark the ghost asdtaken ddd dd dd=======ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========lghost(i)d=.FA)dd.end__KI== dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d found one -increment the =d FA- countA- ddd dd dd dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI====iset dd=iset +1Tnd__KI== dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d store the ID of the particles ddd dd dd= dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========dddd=d FA-2part(iset)d=ighost(i)end__KI== dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d store the particlend__KI== dd d,,ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d __dddddddd.EQ.ddddddddddo4,le) )lSan#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=REAL_xt(1,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =REAL_xt_offset(1,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=REAL_xt(2,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =REAL_xt_offset(2,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=REAL_xt(3,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =REAL_xt_offset(3,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)e#elseedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(1,i)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(1,i)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(2,i)nd__KI== dd d,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(2,i)nedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(3,i)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(3,i)n#eVLIST dd d-)dde#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(1,i)edddddddddd ddd d,, ,, ,, ddddghost_offsets(i=d FA-) =xt_offset(1,i)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(2,i)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =xt_offset(2,i)nedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(3,i)edddddddddd ddd d,, ,, ,, ddddghost_offsets(i=d FA-) =xt_offset(3,i)n#elseedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(1,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(1,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(2,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(2,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(3,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(3,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)n#eVLIST dd d--yed__KI dd --yef dd dd===-d__KI= dd--yd 2/3 dimension d__KI= d dd===-d end of loop over subs on loc_l processor --yd of periodicnghosts ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,). Tddddddd Upd_Ke the =d FA- pointA-n(ie the current iset ... or the numbA-nofTddddddd particledwe will send to the k-th entry in the icommseq listddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddddddpsend=d FA-(k+1)d=iset +1Tnd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddd Step 2 and 3:Tddddddd Notice the pdddicommseq(1,topoid) pointsdto the loc_l processor, andTddddddd we already considered this on step 1, so we now start at kd=2nd__KIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOiBOTddddddk=2,topo%ncommseqTddddddKIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). ).iBOiBOiBOiBOiBOTddddddKId for each processor in the sendrankdlistdwe needdto send the ghostsTddddddKId only once, so we flag the lghost asdtrue initially ddd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddyeps=1,nghostplusf lghost(j)d=.TRUE. dddddd - =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Get the ranknof the processor =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddsendrankd=topo%icommseq(k)f ddrecvrankd=sendranke =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Store the processor to whichdwe will send toedddddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddpdddnsendlistdddddd =ddddnsendlistd+1Tdddddd ddddddisendlist(ddddnsendlist)d=sendranke =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Store the processor to whichdwe will recv fromedddddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddpdddnrecvlistdddddd =ddddnrecvlistd+1Tdddddd ddddddirecvlist(ddddnrecvlist)d=recvranke =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd only consider positive sendranks =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd __sendrank.GE.0)j)lSand__KI== dddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,eddddddddddddd loop over all the subs in the current topologydedddddd dd=d this is a bit tedious and perhaps inefficient, buK we do notedddddd dd=d have the subs belonging to all processors stored for each topoidedddddd dd=d sorry ! so we have to derform the calculationsneach timend__KI== dddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,eddddddddddddyeps=1,topo%nsubsf =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d consider only those beloging to rankef =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL End__KI====d __topo%sub2proc(j).EQ.sendrank)j)lSand__KI==ddddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d Define the extended resize of this sub ddd dd dd ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d __isymm0)j)lSand__KI== ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d if we use symmetry ghosts will only be present at thend__KI== ====d uppA-/right part of the subedddddd dd==ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s n-if __KI ==__SINGLE_PRECISIONeddddddddddddddddddxminid=topo%in_subs(1,j)nd__KI== dd d,,xmaxid=dtopo%ax_subs(1,j)d+=ghostsizeend__KI== dd d,,yminid=topo%in_subs(2,j)nd__KI== dd d,,ymaxid=dtopo%ax_subs(2,j)d+=ghostsizeend__KI== dd d,,I __dddddim.EQ.3)j)lSand__KI== dd d,, ,,zminid=topo%in_subs(3,j)nd__KI== dd d,, d zmaxid=dtopo%ax_subs(3,j)d+=ghostsizeeddddddddddddddddddddd--ye#elseeddddddddddddddddddxminid=topo%in_subd(1,j)nd__KI== dd d,,xmaxid=dtopo%ax_subd(1,j)d+=ghostsizeend__KI== dd d,,yminid=topo%in_subd(2,j)nd__KI== dd d,,ymaxid=dtopo%ax_subd(2,j)d+=ghostsizee,edddddddddddd I __dddddim.EQ.3)j)lSand__KI== dd d,, ,,zminid=topo%in_subd(3,j)nd__KI== dd d,, d zmaxid=dtopo%ax_subd(3,j)d+=ghostsizeeddddddddddddddddddddd--ye#eVLIST dd-)dded__KI== dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d if we do not use symmetry, we have ghost all aroundedddddd dd== dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s n-if __KI ==__SINGLE_PRECISIONeddddddddddddddddddxminid=topo%in_subs(1,j) -=ghostsizeeddd ddddd dd d ,,xmaxid=dtopo%ax_subs(1,j)d+=ghostsizeend__KI== dd d,,yminid=topo%in_subs(2,j) -=ghostsizeeddd ddddd dd d ,,ymaxid=dtopo%ax_subs(2,j)d+=ghostsizeend__KI== dd d,,I __dddddim.EQ.3)j)lSand__KI== dd d,, ,,zminid=topo%in_subs(3,j) -=ghostsizeeddd ddddd dd d ,, d zmaxid=dtopo%ax_subs(3,j)d+=ghostsizeeddddddddddddddddddddd--ye#elseeddddddddddddddddddxminid=topo%in_subd(1,j) -=ghostsizeeddd ddddd dd d ,,xmaxid=dtopo%ax_subd(1,j)d+=ghostsizeend__KI== dd d,,yminid=topo%in_subd(2,j) -=ghostsizeeddd ddddd dd d ,,ymaxid=dtopo%ax_subd(2,j)d+=ghostsizeeedddddddddddd I __dddddim.EQ.3)j)lSand__KI== dd d,, ,,zminid=topo%in_subd(3,j) -=ghostsizeeddd ddddd dd d ,, d zmaxid=dtopo%ax_subd(3,j)d+=ghostsizeeddddddddddddddddddddd--ye#eVLIST dd--ye ddd dd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d Realloc_Ke to make sure we have enough memory in theedddddd dd====d dddd=d FA-2part and ppddsend=d FA-s/d ddd dd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====ioptddd=ddddparam_alloc_grow_preservend__KI== ldu(1)d=i=d FA- + nghostplus*dddddim*10d test 20061109 dddddd d d d __dddddddd.EQ.ddddddddddo4,le) )lSand__KI= dd= d d __(i=d FA- + nghostplus*dddddim).GT.ppddsend=d size)j)lSand__KI== dd d,, ,,dddLddddalloc(ddddsend=d FA-d,ldu,iopt,info)edddddd= dddd d,, ,,dddLddddalloc(ddddghost_offsetd,ldu,iopt,info)edddddd=dddddddddddddddppddsend=d size - ldu(1)T dd d--yed__KI dd -)dded__KI== dd ddd __(i=d FA- + nghostplus*dddddim).GT.ppddsend=d size)j)lSand__KI== dd d,, ,,dddLddddalloc(ddddsend=d FA-s,ldu,iopt,info)edddddd= dd dd d,, ,,dddLddddalloc(ddddghost_offsets,ldu,iopt,info)edddddd= dd dd d,, ,,ppddsend=d size - ldu(1)T dd d--yed__KI dd --yed__KI dd I __info NE. 0)j)lSand__KI== dd ddddddddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,,,,,,,,'global send =d FA- PPM_S-BUFFER',j)dINE__,info)edddddddddd dd ddddddddGOTO 9999 dddddd d d d--yend__KI==ldu(1)d=iset +nghostplus*10d test 20061109 dddddd d d d __(iset +nghostplus).GT.SIZE(ddddbd FA-2part))j)lSand__KI== dd ddddddddddLddddalloc(dddd=d FA-2part,ldu,iopt,info)edddddd= dd d d--yedddddd d d d __info NE. 0)j)lSand__KI== dd ddddddddinfo =dddderrordf_KIlnd__KI= dddLdddderror(dddderr_alloc,'ddddmap_part_ghost_get', :,:f :,:(1,,,,,,,,,,,,'=d FA-2particles map PPM_BUFFER2PART',j)dINE__,info)edddddddddd dd ddddddddGOTO 9999 dddddd d d d--yend__KI==ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d loop over the potential ghost particles ddd dd dd ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddd dd====d __dddddim.EQ.2)j)lSand__KI===ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d Two dimensionsnd__KI===ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========yep =1,nghostplusf = dd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Def = dd dd ddd and check if it is inside the ghost regiondedddddd dd== dd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Def = dd dd ddI __xt(1,i).GT.xmini.AND.xt(1,i).LT.xmaxi.AND. :,:f :,:(1,,,,,, xt(2,i).GT.ymini.AND.xt(2,i).LT.ymaxi.AND.:,:f :,:(1,,,,,, lghost(i))j)lSand__KI======== dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddd Mark the ghost asdtaken for this sendranked__KI======== dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddlghost(i)d=.FA)dd.end__KI== dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddd found one -increment the =d FA- countA- ddd dd dd dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddiset dd=iset +1Tnd__KI== dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddd store the ID of the particles ddd dd dd= dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd dddddd=d FA-2part(iset)d=ighost(i)end__KI== dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddd store the particlend__KI== dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddd __dddddddd.EQ.ddddddddddo4,le) )lSan#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=REAL_xt(1,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =REAL_xt_offset(1,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=REAL_xt(2,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddddd ddddghost_offsetd(i=d FA-) =REAL_xt_offset(2,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)e#elseedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(1,i)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(1,i)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(2,i)nd__KI== dd d,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(2,i)n#eVLIST dd ddddddd-)dde#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(1,i)edddddddddd ddd d,, ,, ,, ddddghost_offsets(i=d FA-) =xt_offset(1,i)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(2,i)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =xt_offset(2,i)n#elseedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(1,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(1,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(2,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(2,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)n#eVLIST dd ddddddd--yef dd dd=== ddddddd--yef dd dd=== dddd-d__KI= dd dddd-)dded__KI== dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========d Three dimensionsnd__KI=== dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========yep =1,nghostplusf = dd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Def = dd dd ddd and check if it is inside the ghost regiondedddddd dd== dd dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Def I __xt(1,i).GT.xmini.AND.xt(1,i).LT.xmaxi.AND. :,:f :,:(1,,,,,, xt(2,i).GT.ymini.AND.xt(2,i).LT.ymaxi.AND.f:,:f :,:(1,,,,,, xt(3,i).GT.zmini.AND.xt(3,i).LT.zmaxi.AND.:,:f :,:(1,,,,,, lghost(i))j)lSannd__KI======== dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddd Mark the ghost asdtaken for this sendranked__KI======== dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== d lghost(i)d=.FA)dd.end__KI== dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddd found one -increment the =d FA- countA- ddd dd dd dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI=================iset dd=iset +1Tnd__KI== dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddd store the ID of the particles ddd dd dd= dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__________________________dddd=d FA-2part(iset)d=ighost(i)end__KI== dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI======== dd ddd store the particlend__KI== dd d,, dd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).nd__KI==d __dddddddd.EQ.ddddddddddo4,le) )lSan#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=REAL_xt(1,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddddd ddddghost_offsetd(i=d FA-) =REAL_xt_offset(1,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) =REAL_xt(2,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddddd ddddghost_offsetd(i=d FA-) =REAL_xt_offset(2,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)eedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=REAL_xt(3,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)edddddddddddd ddddghost_offsetd(i=d FA-) =REAL_xt_offset(3,i), :,:f :,:(1,,,,,,,,,,,,,, ddddddddddo4,le)e#elseedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(1,i)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(1,i)edddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(2,i)nd__KI== dd d,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(2,i)ndddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-d(i=d FA-) dd=xt(3,i)edddddddddd ddd d,, ,, ,, ddddghost_offsetd(i=d FA-) =xt_offset(3,i)n#eVLIST dd ddddddd-)dde#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(1,i)edddddddddd ddd d,, ,, ,, ddddghost_offsets(i=d FA-) =xt_offset(1,i)edddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(2,i)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =xt_offset(2,i)ndddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=xt(3,i)edddddddddd ddd d,, ,, ,, ddddghost_offsets(i=d FA-) =xt_offset(3,i)n#elseedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(1,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== dd d,, ,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(1,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(2,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== ,,,,,,,,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(2,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nedddddddddddd i=d FA- =i=d FA- + 1,edddddddddddd ddddsend=d FA-s(i=d FA-) dd=REAL_xt(3,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)nd__KI== ,,,,,,,,, ddddghost_offsets(i=d FA-) =REAL_xt_offset(3,i), :,:f :,:(1,,,,,,,,,,,,,, dddddddddsingle)n#eVLIST dd ddddddd--yef dd dd=== ddddddd--yef dd dd=== dddd-d__KI= dd dddd--yd 2/3 dimension d__KI= ddddd--yd only consider subs belonging to ranked__KI==-d loop over all subs in topoedddddd=--yd skipped negative ranks =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddd Upd_Ke the =d FA- pointA-n(ie the current iset ... or the numbA-nofTdddddd ddd particledwe will send to the k-th entry in the icommseq listdddddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,f ddddddpsend=d FA-(k+1)d=iset +1Tnd__KI-d loop over all processors in commseqT ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Store the current size of the =d FA- ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f ddddnsend=d FA- =i=d FA-T ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Dealloc_Ke the memory for the lists ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f ioptd=ddddparam_dealloc !f dddLddddalloc(ilist1,ldu,iopt,info)e!f d __info NE. 0)j)lSan!f ddinfo =dddderrorderrorn!f dddddLdddderror(dddderr_dealloc,'ddddmap_part_ghost_get', :!ff :,:(1'ilist1',j)dINE__,info)e!ddd=--y ! !f dddLddddalloc(ilist2,ldu,iopt,info)e!f d __info NE. 0)j)lSan!f ddinfo =dddderrorderrorn!f dddddLdddderror(dddderr_dealloc,'ddddmap_part_ghost_get', :!ff :,:(1'ilist2',j)dINE__,info)e!ddd=--y ! !f dddLddddalloc(ighost,ldu,iopt,info)e!f d __info NE. 0)j)lSan!f ddinfo =dddderrorderrorn!f dddddLdddderror(dddderr_dealloc,'ddddmap_part_ghost_get', :!ff :,:(1'ighost',j)dINE__,info)e!ddd=--y f dddLddddalloc(f xt,ldu,iopt,info)eddddddd __info NE. 0)j)lSand__KI=info =dddderrorderrornf dddddLdddderror(dddderr_dealloc,'ddddmap_part_ghost_get', :ff :,:(1'xt',j)dINE__,info)eddd=--y f dddLddddalloc(xt_offset,ldu,iopt,info)eddddddd __info NE. 0)j)lSand__KI=info =dddderrorderrornf dddddLdddderror(dddderr_dealloc,'ddddmap_part_ghost_get', :ff :,:(1'xt',j)dINE__,info)eddd=--y f dddLddddalloc(lghost,ldu,iopt,info)eddddddd __info NE. 0)j)lSand__KI=info =dddderrorderrornf dddddLdddderror(dddderr_dealloc,'ddddmap_part_ghost_get', :ff :,:(1'lghost',j)dINE__,info)eddd=--y f ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Return ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,9999 CONTINUE f dddLsubstop('ddddmap_part_ghost_get',t0,info)eddd=RETURan#if__KI ==__SINGLE_PRECISIONedddddd- SUBROUTINE ddddmap_part_ghost_get_sn#elif__KI ==__DOUBLE_PRECISIONedddddd- SUBROUTINE ddddmap_part_ghost_get_dn#eVLISTlibddd-1.2/src/map/ddddmap_part_ghost_pop.f000644 000765 000024 00000177405 11445666062 021244 0ustar00omarstaff000000 000000 ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Subroutine : ddddmap_part_ghost_pop ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), f d CentA-nfor Fluid Dynamics (DTU)eddd=!eddd=!eddd=! This file is part of the Parallel ParticledMesh Library (PPM).edddddd!eddd=! PPM is free software: you can redistri=dKe it and/or moLISyeddd=! it under the tA-ms of the GNU Lesser General Public License f d as published by the Free Software Foundation, either f d version 3 of the License, or (at your option) any later f d version.edddddd!eddd=! PPM is distri=dKed in the hope that it will be useful,eddd=! buK WITHOUT ANY WARRANTY; without even the implied warrantynofTddddddd MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General Public License for more details.edddddd!eddd=! You should have received a copy of the GNU General Public Licensef d and the GNU Lesser General Public License along with PPM. If not,eddd=! see .edddddd!eddd=! Parallel ParticledMesh Library (PPM)eddd=! ETH Zurichf d CH-8092 Zurich, SwitzerlandTddddddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,n#if__DIM ==1n#if__KI ==__SINGLE_PRECISIONeddddddSUBROUTINE ddddmap_part_ghost_pop_1ds(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmap_part_ghost_pop_1dd(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmap_part_ghost_pop_1dsc(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmap_part_ghost_pop_1ddc(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__INTEGEReddddddSUBROUTINE ddddmap_part_ghost_pop_1di(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__LOGIdddeddddddSUBROUTINE ddddmap_part_ghost_pop_1dl(pd_Ka,lda,Npart,Mpart,info)e#eVLIS e#elif__DIM == 2n#if__KI ==__SINGLE_PRECISIONeddddddSUBROUTINE ddddmap_part_ghost_pop_2ds(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmap_part_ghost_pop_2dd(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmap_part_ghost_pop_2dsc(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmap_part_ghost_pop_2ddc(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__INTEGEReddddddSUBROUTINE ddddmap_part_ghost_pop_2di(pd_Ka,lda,Npart,Mpart,info)e#elif__KI ==__LOGIdddeddddddSUBROUTINE ddddmap_part_ghost_pop_2dl(pd_Ka,lda,Npart,Mpart,info)e#eVLIS #eVLIST!!! This routine pops the contents of the receive =d FA- ddd=d!! when sending the ghosts back. Notice the value popped ddd=d!! will be *added* to array passed to the routine. ddd=d!! ddd=d!! [WARNING] ddd=d!! DIM is the dimension of the pd_Ka array and not the space ddd=d!! dimension dddddim! ddd=dTODO: DIM? or lda? ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Includes ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,#include "dddddefine.h"T ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Modules ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f USE ddddmodule_d_Kaf USE ddddmodule_substartf USE ddddmodule_substop ddd=USE ddddmodule_errornf USE ddddmodule_alloc f USE ddddmodule_write ddd=IMPLICIT NONde#if__KI ==__SINGLE_PRECISION |__KI ==__SINGLE_PRECISION_COMPLEXeddddddINTEGER, PARAMETER :: MK =dddddddddsinglen#elseeddddddINTEGER, PARAMETER :: MK =ddddddddddo4,le #eVLIST!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Arguments ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,#if __DIM == 1#if __KI ==__INTEGEReddddddINTEGER , DIMENSION(: ), POINTERdddd:: pd_Kae#elif__KI ==__LOGIdddeddddddLOGIddd , DIMENSION(: ), POINTERdddd:: pd_Kae#elif__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXeddddddCOMPLEX(MK), DIMENSION(: ), POINTERd:: pd_Kae#elseeddddddREAL_MK), DIMENSION(: ), POINTERdddd:: pd_Kae#eVLIST#elif__DIM == 2n#if__KI ==__INTEGEReddddddINTEGER , DIMENSION(:,:), POINTERdddd:: pd_Kae#elif__KI ==__LOGIdddeddddddLOGIddd , DIMENSION(:,:), POINTERdddd:: pd_Kae#elif__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXeddddddCOMPLEX(MK), DIMENSION(:,:), POINTERd:: pd_Kae#elseeddddddREAL_MK), DIMENSION(:,:), POINTERdddd:: pd_Kae#eVLIST#eVLIST!!! Particledd_Ka to be popped. T!!! Can be either 1D or 2D array.eddddddINTEGER ,dINTENT(IN )d:: ldaT!!! The leading dimension of pd_Ka. ddd=d!! In the case of pd_Ka being a 1D array use lda=1.eddddddINTEGER ,dINTENT(IN )d:: NpartT!!! The numbA-nof re_l particles (on the processor)eddddddINTEGER ,dINTENT(IN )d:: MpartT!!! The numbA-nof re_l + ghost particles (on the processor)eddddddINTEGER ,dINTENT( OUT)d:: infoT!!! Return status. 0 upon success.T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Loc_l variables ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f INTEGER, DIMENSION(3)d:: ldueddddddINTEGER :: k,ipart,bdim,i=d FA-,btypeeddddddINTEGER :: iopt,edim,i,jeddddddCHARACTER(ddddcha-) dd:: mesgeddddddREAL_MK) :: t0T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Externals ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp, ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Initialise f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f dddLsubstart('ddddmap_part_ghost_pop',t0,info)e ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Check arguments ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f I __dddddebug .GT. 0)j)lSand__KIdddLchecknd__KId __info NE. 0)jGOTO 9999 dddddd--y f d skip if the =d FA- is emptyf I __dddd=d FA-_set .LT. 1)j)lSand__KII __dddddebug .GT. 1)j)lSand__KIIdddLddddwrite_ddddrank,'ddddmap_part_ghost_pop', :,:f :,:(1,,,'Bd FA- is empty: skipping pop!',info)edddddddd--yedddddd GOTO 9999 dddddd--y f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Check that the required dimension fits the dimension of the =d FA- ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f bdim =dddd=d FA-_dim_dddd=d FA-_set)n#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd! for complex, the e FActive dimension is half the d_Ka dimensioneddddddedim =bdim/2e#elseeddddddedim =bdimT#eVLISTI __dddddebug .GT. 1)j)lSand__KIIWRITE(mesg,'(2(A,I3))') 'bdim=',edim,'Ilda=',ldaTIdddLddddwrite_ddddrank,'ddddmap_part_ghost_pop',mesg,info)eddd=--y #if __DIM == 2TI __edimNE.lda)j)lSand__KI=info =dddderrorderrornf dddddLdddderror(dddderr_wrong_dim,'ddddmap_part_ghost_pop', :ff :,:(1'leading dimension LDA is in error',j)dINE__,info)edddddddddGOTO 9999 dddddd--y T#elif__DIM == 1TI __edimNE.1)j)lSand__KIIinfo =dddderrorderrornf dddddLdddderror(dddderr_wrong_dim,'ddddmap_part_ghost_pop', :ff :,:(1'=d FA- does not contain 1d d_Ka!',j)dINE__,info)edddddddddGOTO 9999 dddddd--y T#eVLIST f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Check that the required type is identic_l to the type of the =d FA- ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f btype =dddd=d FA-_type_dddd=d FA-_set)n#if__KI ==__SINGLE_PRECISIONeddddddI __btypeNE.dddddddddsingle)j)lSand__KIIinfo =dddderrorderrornf dddddLdddderror(dddderr_wrong_prec,'ddddmap_part_ghost_pop', :ff :,:(1'trying to pop a non-singleIinto singleI',j)dINE__,info)edddddddddGOTO 9999 dddddd--ye#elif__KI ==__DOUBLE_PRECISIONeddddddI __btypeNE.ddddddddddo4,le) )lSand__KI=info =dddderrorderrornf dddddLdddderror(dddderr_wrong_prec,'ddddmap_part_ghost_pop', :ff :,:(1'trying to pop a non-do4,leIinto do4,leI',j)dINE__,info)edddddddddGOTO 9999 dddddd--ye#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddI __btypeNE.dddddddddsingle)j)lSand__KIIinfo =dddderrorderrornf dddddLdddderror(dddderr_wrong_prec,'ddddmap_part_ghost_pop', :ff :,:(1'trying to pop a non-single-complexIinto single-complex', :,:f :,:(1j)dINE__,info)edddddddddGOTO 9999 dddddd--ye#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddI __btypeNE.ddddddddddo4,le) )lSand__KI=info =dddderrorderrornf dddddLdddderror(dddderr_wrong_prec,'ddddmap_part_ghost_pop', :ff :,:(1'trying to pop a non-do4,le-complexIinto do4,le-complex', :,:f :,:(1j)dINE__,info)edddddddddGOTO 9999 dddddd--ye#elif__KI ==__INTEGEReddddddI __btypeNE.ddddintAgA-) )lSand__KI=info =dddderrorderrornf dddddLdddderror(dddderr_wrong_prec,'ddddmap_part_ghost_pop', :ff :,:(1'trying to pop a non-intAgA-Iinto intAgA-I',j)dINE__,info)edddddddddGOTO 9999 dddddd--ye#elif__KI ==__LOGIdddeddddddI __btypeNE.ddddlogic_l) )lSand__KI=info =dddderrorderrornf dddddLdddderror(dddderr_wrong_prec,'ddddmap_part_ghost_pop', :ff :,:(1'trying to pop a non-logic_lIinto logic_lI',j)dINE__,info)eddd=--y #eVLIST f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Decrement the pointA-ninto the receive =d FA- - this should be the f d tot_lIamount of particledsend off to any processor time the sizeeddddddd (dimension) of the d_Ka; see ddddmap_part_ghost_put for the contentseddddddd of the pdddghosthack array f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f id=d0Tk=1,ddddnsendlistd! or ddddncommseq(topoid) or ddddnrecvlistnd__KI=i =i + pdddghosthack(1,k)eddd=-d__KIddddnrecv=d FA- =ddddnrecv=d FA- - i*bdim T f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d Decrement the pointA-ninto the send =d FA- to allow reuse byeddd=! multipledsequential push-send-pop cycles.T! JHWi dont know if this works with ghost - no time tochecknd__KI! buK should not mattA-nhere f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f ddddnsend=d FA- =ddddnsend=d FA- -dddd=d FA-_dim_dddd=d FA-_set)* :ff :,(ddddpsend=d FA-(ddddnsendlist+1)-1)e ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d loop over the processors in the pdddisendlist() ddd=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,#ifdef__MPIf i=d FA- =ddddnrecv=d FA- eddddddI __dddddebug .GT. 1)j)lSand__KIIWRITE(mesg,'(A,I9)') 'i=d FA- =',i=d FA-TIdddLddddwrite_ddddrank,'ddddmap_part_ghost_pop',mesg,info)eddd=--y f ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f d DOUBLE PRECISION BUFFER ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f I __dddddddd.EQ.ddddddddddo4,le) )lSan#if__DIM == 2T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled version of edim=1T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddI __edim .EQ. 1)j)lSand__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,eddddddddddddd now empty the receive =d FA-: nd__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,eddddddddddddk=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL Eeddd=d__KIId Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL Ee! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)en#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd============i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIddde! JHWdoes not make sence toget the logic_lIcontrib from ghost or ?edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== dd ddpd_Ka(1,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled version of edim=2T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)ddI __edim .EQ. 2)j)lSand__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddd=d__KIId Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd============i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== dd ddpd_Ka(1,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(2,ipart) =.TRUE.nd__KI======-)dded__KI== dd ddpd_Ka(2,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled version of edim=3T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)ddI __edim .EQ. 3)j)lSand__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddd=d__KIId Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd============i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISIONe!JHWWRITE(40+ddddrank,'(I8,6E12.4)') ipart,dd_Ka(:,ipart),ddddrecv=d FA-d(i=d FA-),ddddrecv=d FA-d(i=d FA-+1),ddddrecv=d FA-d(i=d FA-+2)edddddd============pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dddddrecv=d FA-d(i=d FA-)ee!JHW===========pd_Ka(1,ipart) =ddddrecv=d FA-d(i=d FA-)e!JHW===========i=d FA- =i=d FA- + 1e!JHW===========pd_Ka(2,ipart) =ddddrecv=d FA-d(i=d FA-)e!JHW===========i=d FA- =i=d FA- + 1e!JHW===========pd_Ka(3,ipart) =ddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== ====pd_Ka(1,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(2,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(2,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(3,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(3,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled version of edim=4T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)ddI __edim .EQ. 4)j)lSand__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddd=d__KIId Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd============i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== ====pd_Ka(1,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(2,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(2,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(3,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(3,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(4,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(4,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled version of edim=5T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)ddI __edim .EQ. 5)j)lSand__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddd=d__KIId Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd============i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dddddrecv=d FA-d(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== ====pd_Ka(1,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(2,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(2,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(3,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(3,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(4,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(4,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI========pd_Ka(5,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(5,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd For edim.GT.5 the vector length will be edim !!d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)dded__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddd=d__KIId Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)eddd=============yepi=1,edimT#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd============ ==i=d FA- =i=d FA- + 2e#elseedddddd============ ==i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),d == :ff :,:(1dddddd dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)e#elif__KI ==__INTEGERedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dINT_ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1dddddd (1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI======== ==pd_Ka(i,ipart) =.TRUE.nd__KI====== =-)dded__KI======== ==pd_Ka(i,ipart) =.FA)dd.ed__KI====== =--ye#eVLIST -d__KI= dd -d__KI= dd-d__KI=--ye#elif__DIM == 1T =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Scalar versionT =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddd=d__KIId Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd=========i=d FA- =i=d FA- + 2e#elseedddddd=========i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONeddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dREAL_ddddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISIONeddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1ddddddpdddrecv=d FA-d(i=d FA-),dddddddddsingle)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dCMPLX_ddddrecv=d FA-d(i=d FA--1), :ff :,:(1ddddddpdddrecv=d FA-d(i=d FA-),ddddddddddo4,le)e#elif__KI ==__INTEGEReddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dINT_ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddeddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT. :ff :,:(1ddddd(1.0_ddddddddddo4,le-ddddmyepsd))j)lSand__KI======pd_Ka(ipart) =.TRUE.nd__KI====-)dded__KI======pd_Ka(ipart) =.FA)dd.ed__KI====--ye#eVLIST -d__KI=-#eVLIST!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! SINGLE PRECISION BUFFER ddd ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,vp,f -)dde#if__DIM == 2T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled verion for edim=1T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddI __edim .EQ. 1)j)lSand__KIIk=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddd=d__KIId Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd========= ==i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== ====pd_Ka(1,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled verion for edim=2T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)ddI __edim .EQ. 2)j)lSand__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddde)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd ddd Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if __KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd========= ==i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(1,ipart) =dd_Ka(2,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(2,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== ====pd_Ka(1,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(2,ipart) =.TRUE.nd__KI======-)dded__KI== dd ddpd_Ka(2,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled verion for edim=3T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)ddI __edim .EQ. 3)j)lSand__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddde)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd ddd Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if __KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd========= ==i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== ====pd_Ka(1,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(2,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(2,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(3,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(3,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled verion for edim=4T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)ddI __edim .EQ. 4)j)lSand__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddde)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd ddd Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if __KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd========= ==i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== ====pd_Ka(1,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(2,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(2,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(3,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(3,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(4,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(4,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd Unrolled verion for edim=5T ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)ddI __edim .EQ. 5)j)lSand__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KII ddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLT dd ddd Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if __KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd========= ==i=d FA- =i=d FA- + 2e#elseedddddd============i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dddddrecv=d FA-s(i=d FA-)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)edddddd============i=d FA- =i=d FA- + 2edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)e#elif__KI ==__INTEGERedddddddddddd pd_Ka(1,ipart) =dd_Ka(1,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(2,ipart) =dd_Ka(2,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(3,ipart) =dd_Ka(3,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(4,ipart) =dd_Ka(4,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))edddddd============i=d FA- =i=d FA- + 1edddddddddddd pd_Ka(5,ipart) =dd_Ka(5,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(1,ipart) =.TRUE.nd__KI======-)dded__KI== ====pd_Ka(1,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(2,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(2,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(3,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(3,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(4,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(4,ipart) =.FA)dd.ed__KI======--yed__KI======i=d FA- =i=d FA- + 1edddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI========pd_Ka(5,ipart) =.TRUE.nd__KI======-)dded__KI========pd_Ka(5,ipart) =.FA)dd.ed__KI======--ye#eVLIST -d__KI= dd-d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T ddd For edim.GT.5 the vector length will be edim !!d__KI=ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd-)dded__KI==k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)edddddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLT dd ddd Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)eddd=============yepi=1,edimT#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd============ ==i=d FA- =i=d FA- + 2e#elseedddddd============ ==i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),d == :ff :,:(1dddddd ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1dddddd pdddrecv=d FA-s(i=d FA-),dddddddddsingle)e#elif__KI ==__INTEGERedddddddddddd ==pd_Ka(i,ipart) =dd_Ka(i,ipart) +dINT_ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddd I __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1dddddd (1.0_dddddddddsingle-ddddmyepss))j)lSand__KI======== ==pd_Ka(i,ipart) =.TRUE.nd__KI====== =-)dded__KI======== ==pd_Ka(i,ipart) =.FA)dd.ed__KI====== =--ye#eVLIST -d__KI= dd -d__KI= dd-d__KI=--ye#elif__DIM == 1T =ddd4,BOIe)0=ddddddddddddd Dedddddd De-s kVL ERp,vp,). De-s kVLT ddd Scalar versionT =ddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd k=1,ddddnsendlistd! or ddddnrecvlistdor ddddncommseq(topoid)edddddddddddd ddyeps=1,pdddghosthack(1,k)eddd=d__KIIddd4,BOIe)0=dddd De-s kVL ERp,vp,). De-s kVL ERp,vp,T dd ddd Get the id of the particleeddd=d__KIIddd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLe! if we are going to run this efficiently on ivos machine, we should put a vector directive hered!eddd=============ipart =ddddghosthack(j+2,k)e#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXedddddd=========i=d FA- =i=d FA- + 2e#elseedddddd=========i=d FA- =i=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONeddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONeddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dREAL_ddddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1ddddddpdddrecv=d FA-s(i=d FA-),ddddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dCMPLX_ddddrecv=d FA-s(i=d FA--1), :ff :,:(1ddddddpdddrecv=d FA-s(i=d FA-),dddddddddsingle)e#elif__KI ==__INTEGEReddddddddddddpd_Ka(ipart) =dd_Ka(ipart) +dINT_ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddeddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT. :ff :,:(1ddddd(1.0_dddddddddsingle-ddddmyepss))j)lSand__KI======pd_Ka(ipart) =.TRUE.nd__KI====-)dded__KI======pd_Ka(ipart) =.FA)dd.ed__KI====--ye#eVLIST -d__KI=-#eVLIST--y!dddddddd#eVLISTT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Decrement the set counterT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLedddd=d FA-_set =dddd=d FA-_set - 1 TT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Deallocate the receive =d FA- ifall sets have =een popedT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeI __dddd=d FA-_set .LT. 1)j)lSand__KIIiopt =ddddparam_deallocnd__KIII __dddddddd .EQ. dddddddddsingle)j)lSand__KI====dddL ddddalloc_ddddrecv=d FA-s,ldu,iopt,info)eddd=d__K-)dded__KI====dddL ddddalloc_ddddrecv=d FA-d,ldu,iopt,info)eddd=d__K--yed__KIII __info .NE. 0)j)lSand__KI====info =dddderrorderrored__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdghost_pop',d :ff :,:(1ddddd'receive =d FA- PPM_RECVBUFFER',__LINE__,info)eddd=d__K--yed__KI--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Return T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe9999 CONTINUded__KIdddL substop('ddddmapdpartdghost_pop',t0,info)eddd=RETURand__KICONTAINSnd__KISUBROUTINE checkeddd=d__I __dddd=d FA-_set .LT. 1)j)lSand__KII==info =dddderrorderrored__KI====dddL dddderror(dddderrdargument,'ddddmapdpartdghost_pop',d :ff :,:(1ddddd'=d FA- is empty. Cannot pop.',__LINE__,info)eddd=d__KKKKKGOTO 8888eddd=d__K--yed__KIII __Npart .LT. 0)j)lSand__KI====info =dddderrorderrored__KI====dddL dddderror(dddderrdargument,'ddddmapdpartdghost_pop',d :ff :,:(1ddddd'Npart mustdbe >=0',__LINE__,info)eddd=d__KKKKKGOTO 8888eddd=d__K--yed__KIII __Mpart .LT. 0)j)lSand__KI====info =dddderrorderrored__KI====dddL dddderror(dddderrdargument,'ddddmapdpartdghost_pop',d :ff :,:(1ddddd'Mpart mustdbe >=0',__LINE__,info)eddd=d__KKKKKGOTO 8888eddd=d__K--ye#if__DIM == 2T ddI __lda .LT. 1)j)lSand__KII==info =dddderrorderrored__KI====dddL dddderror(dddderrdargument,'ddddmapdpartdghost_pop',d :ff :,:(1ddddd'lda mustdbe >0 for vector d_Ka',__LINE__,info)eddd=d__KKKKKGOTO 8888eddd=d__K--ye#elif__DIM == 1T =I __lda .NE. 1)j)lSand__KII==info =dddderrorderrored__KI====dddL dddderror(dddderrdargument,'ddddmapdpartdghost_pop',d :ff :,:(1ddddd'lda mustdbe =1 for scalar d_Ka',__LINE__,info)eddd=d__KKKKKGOTO 8888eddd=d__K--ye#eVLIST8888===dONTINUded__KI-SUBROUTINE checke#if__DIM == 1T#if__KI ==__SINGLE_PRECISIONedddddd-SUBROUTINE ddddmapdpartdghost_pop_1dse#elif__KI ==__DOUBLE_PRECISIONedddddd-SUBROUTINE ddddmapdpartdghost_pop_1dde#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpartdghost_pop_1dsce#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpartdghost_pop_1ddce#elif__KI ==__INTEGERedddddd-SUBROUTINE ddddmapdpartdghost_pop_1die#elif__KI ==__LOGIdddedddddd-SUBROUTINE ddddmapdpartdghost_pop_1dl#eVLISTT#elif__DIM == 2T#if__KI ==__SINGLE_PRECISIONedddddd-SUBROUTINE ddddmapdpartdghost_pop_2dse#elif__KI ==__DOUBLE_PRECISIONedddddd-SUBROUTINE ddddmapdpartdghost_pop_2dde#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpartdghost_pop_2dsce#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpartdghost_pop_2ddce#elif__KI ==__INTEGERedddddd-SUBROUTINE ddddmapdpartdghost_pop_2die#elif__KI ==__LOGIdddedddddd-SUBROUTINE ddddmapdpartdghost_pop_2dl#eVLIST#eVLISTlibddd-1.2/src/map/ddddmapdpartdghost_put.f000644 000765 000024 00000031271 11445666062 021244 0ustar00omarstaff000000 000000 dddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Subroutine:ddd=d__KKKKKddddmapdpartdghost_putT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! Center for Fluid Dynamics (DTU)eddd=!eddd=!eddd=! This file is part of the Parallel Particle Mesh Library (PPM).eddd=!eddd=! PPM is free software: you can redistribute it and/or moLISyeddd=! it under the terms of the GNU Lesser General Public License e! as published by the Free Software Foundation, either e! version 3 of the License,dor (at your option) any later e! version.eddd=!eddd=! PPM is distributed=in the hope that it will be useful,eddd=! but WITHOUT ANY WARRANTY; without even the implied=warranty ofeddd=! MERCHANTABILITYdor FITNESS FOR A PARTICULAR PURPOSE. See theeddd=! GNU General Public License for more details.eddd=!eddd=! You should have received a copy of the GNU General Public Licensee! and the GNU Lesser General Public License along with PPM. If not,eddd=! see .eddd=!eddd=! Parallel Particle Mesh Library (PPM)eddd=! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLend__KISUBROUTINE ddddmapdpartdghost_put(topoid,info)eddd=!!! This routineswaps the send and receive lists of theeddd=!!! mapping routinetoallow sending back the value/d_Kaeddd=!!! computed=on the ghost particles. The routinemustdbeeddd=!!! called after `ddddmapdpartdsend` and should be followedT!!! by a `ddddmapdpartdpush`, `ddddmapdpartdsend` and `ddddmapdpartdpop` T!!! toget.T!!!T!!! [NOTE]eddd=!!! This implementation=onlyallows *one* ghost put at aT!!! time; Toallow multiple ghosts we have topassT!!! the pddduser_hack to the ghostdpop OR to copy theeddd=!!! userpassed array to the internally storedddddghosthackeddd=!!! used (and *not* passed) by the ghostdpop()T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Modules T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeUSE ddddmodule_typedefeUSE ddddmodule_d_Kaeddd=USE ddddmodule_allocnd__KIUSE ddddmodule_substartnd__KIUSE ddddmodule_substopnd__KIUSE ddddmodule_errored__KIUSE ddddmodule_writeed__KIUSE ddddmodule_check_ided__KIUSE ddddmodule_util_commopteIMPLICIT NONET!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! This routineis ddL integer, except the timing variable t0e! We pick do4,le as the precision - no real reason for that T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeINTEGER, PARAMETER:: MK =ddddddddddo4,leT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! ArgumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeINTEGER, INTENT(IN):: topoideddd=!!! Topology IDeINTEGER, INTENT( OUT):: infoeddd=!!! Return status, 0=on successT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Local variables T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeINTEGER, DIMENSION(2):: ldueTYPE(ddddt_topo), POINTER:: topoeINTEGER :: i,j,keINTEGER :: iopteCHARACTER(ddddchar) :: mesgeLOGIddd :: valideddd=REAL_MK) :: t0e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Externals T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Initialise e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLedddL substart('ddddmapdpartdghost_put',t0,info)eee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeI __dddddebug .GT. 0)j)lSand__KIdddL checkeddd=d_I __info .NE. 0)jGOTO 9999edddddd--yeTtopo =>ddddtopo(topoid)%tee! iftheredis still some d_Ka left=in the =d FA-,=warn the usereI __dddd=d FA-_set .GT. 0)j)lSand__KIinfo =dddderrordwarningnd__KIdddL dddderror(dddderrdmapdincomp,'ddddmapdpartdghost_put',d :ff :,:(1'Bd FA- was not empty. Possi,le loss of d_Ka!',__LINE__,info)eddd=--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s e! first check ifthe optimal communication=protocoldis knownT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s eI __.NOT.topo%isoptimized) )lSand__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI! ifnot: determineitdbefore calling mapdpartdghost_putT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KIdddL ddddutil_commopt(topoid,info)eddd=I __dddddebug .GT. 1)j)lSand__KIIyepi=1,topo%nneighprocnd__KIIWRITE(mesg,'(A,I4)') 'have neighbor: ',dtopo%ineighproc(i)eddd=d__KIIdddL ddddwrite_ddddrank,'ddddmapdpartdghost_put',mesg,info)eddd=d__KKK-d__KI= ddyepi=1,topo%ncommseqnd__KIIWRITE(mesg,'(A,I4)') 'communicate: ',dtopo%icommseq(i)eddd=d__KIIdddL ddddwrite_ddddrank,'ddddmapdpartdghost_put',mesg,info)eddd=d__KKK-d__KI--yed__KI--yeTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Save the map type for the subsequent calls T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeddddmapdtype =ddddparam_mapdghost_putTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Find the requiredsize of the pdddghosthack array: the total numbA- of e! particles send times the pdddncommseqnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLej =0ek=1,topo%ncommseqnd__KIIj =MAX(j,_ddddpsend=d FA-(k+1)j- ddddpsend=d FA-(k)))eddd=-T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! The 2nd leading dimension is plus onetocatchall ghosts -)T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeldu(1)j =j + 2eddddddldu(2)j =topo%ncommseq + 1eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Allocate the arrayT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeiopt =ddddparam_alloc_growedddL ddddalloc_ddddghosthack,ldu,iopt,info)eddd=I __info.NE.0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdghost_put',d :ff :,:(1d'allocation=of pdddghosthack failed',__LINE__,info)eddd=d__KGOTO 9999edddddd--ye!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! now store the d_Ka in ddddghosthack()T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLei =0ek=1,ddddnsendlisteddd=d__ddd4,BOIe)0=ddddddddddddd Dedddddd De-s kVL ERp,vp,). De-s kVLT ddd Store the numbA- of particles send to the k-th procnd__KIIddd4,BOIe)0=ddddddddddddd Dedddddd De-s kVL ERp,vp,). De-s kVLT ddpdddghosthack(1,k) =ddddpsend=d FA-(k+1)j- ddddpsend=d FA-(k)ed__KI=yeps=1,pdddghosthack(1,k)eddd=d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI ddd Increment the counterTd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI ddi =i + 1eTd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI ddd store the id of the particles send to the k-th procnd__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI ddddddghosthack(j+2,k) =dddd=d FA-2part(i)ed__KI=-d__KI-T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! now store the d_Ka in ddddghosthack()T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLek=1,ddddnsendlistd+ 1T =ddd4,BOIe)0=ddddddddddddd Dedddddd De-s kVL ERp,vp,). De-s kVLT ddd ddddghosthack(2,k) stores the pointer to the first particle received T ddd from the k-th procnd__KIIddd4,BOIe)0=ddddddddddddd Dedddddd De-s kVL ERp,vp,). De-s kVLT ddpdddghosthack(2,k) =ddddprecv=d FA-(k) d__KI-T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Prepare what to send:e! we have tosend the ghost back :-) so consequtive piece of d_Kae! starting at Npart + 1 and ending at Mpart; the pointer to the firste! particle was storedin ddddprecv=d FA-(k)and now in ddddghosthack(2,k).e! The =d FA-2part is easy as the d_Ka is consequtiveT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLei =-1ek=1,ddddnsendlistT ddi =MAX(i,ddddghosthack(2,k+1))eddd=-ddd=ldu(1)j=iedddL ddddalloc_dddd=d FA-2part,ldu,iopt,info)eddd=k=1,ddddnsendlisteddd=d__ddd4,BOIe)0=ddddddddddddd Dedddddd De-s kVL ERp,vp,). De-s kVLT ddd ddddpsend=d FA-(k)stores the pointer to the first particle received T ddd from the k-th procnd__KIIddd4,BOIe)0=ddddddddddddd Dedddddd De-s kVL ERp,vp,). De-s kVLT ddpdddpsend=d FA-(k)=ddddghosthack(2,k) ed__KI=yeps=ddddghosthack(2,k),ddddghosthack(2,k+1)-1eddddddddddddd=d FA-2part(j)=jed__KI=-d__KI- ed__KIpdddpsend=d FA-(ddddnsendlist+1)=ddddghosthack(2,ddddnsendlist+1)T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Prepare what to receive:e! We will recieve the function=valuecarried by the ghosts - these ghostse! are REAL particles on=our processor so we should NOT pop them as usualnd__KI! Notice the push does not care (after all it is just packing things fore! sending), neither does the send (it is just sending the =d FA- of andT! receiving one) - the pop cares - so muchthat we need a special popnd__KI! Now=in the full version, the pdddghosthack should be passed back oute! to the user (OR be given a 3rdindex with an internal 'pset' entry).e! so either we pass the pddduser_hack to the ghostdpop OR we copy theeddd=! userpassed array to the internally storedddddghosthack usededdd=! (and NOT passed) by the ghostdpop() ... let us see !eddd=! =yepieddd=! = ddpdddghosthack()=userpassed()T!I=-d__KId For the time =eing we assume ONE set of ghost and store this array ind__KId ddddmodule_d_Ka. This piece of d_Ka will be used directly by the d__KId ghostdpop routineT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! flip the send and receive listsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLek=1,ddddnrecvlistnd__KIIj =ddddirecvlist(k)eddd=d__ddddirecvlist(k) =ddddisendlist(k)eddd=d__ddddisendlist(k)=jed__KI-T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Return T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe9999 CONTINUded__KIdddL substop('ddddmapdpartdghost_put',t0,info)ed__KIRETURand__KICONTAINSnd__KISUBROUTINE checkeddd=d__I __.NOT._ddddinitialized) )lSand__KIinfo =dddderrorderrored__KI====dddL dddderror(dddderrdddddnoinit,'ddddmapdpartdghost_put',d :ff :,:(111111'Please call_ddddinit first!',__LINE__,info)eddd=========GOTO 8888eddd=d__K--yed__KIII __topoid .EQ. ddddparam_topo_undefined) )lSand__KIinfo =dddderrorderrored__KI====dddL dddderror(dddderrdno_topo,'ddddmapdpartdghost_put',d :ff :,:(111111'This routineneeds atopology definedtopo',__LINE__,info)eddd=========GOTO 8888eddd=d__K--yed__KIII __topoid .NE. ddddparam_topo_undefined) )lSand__KIdddL ddddcheck_topoid(topoid,valid,info)eddd=======I __.NOT._valid)j)lSand__KI=====info =dddderrorderrored__KI======dddL dddderror(dddderrdargument,'ddddmapdpartdghost_put',d :ff :,:(111111111'topoid out of range',__LINE__,info)eddd===========GOTO 8888eddd=d__K_K--yed__KI--yed8888=dONTINUded__KI-SUBROUTINE checked__KI-SUBROUTINE ddddmapdpartdghost_putTlibddd-1.2/src/map/ddddmapdpartdglobal.f000644 000765 000024 00000105145 11445666062 020472 0ustar00omarstaff000000 000000 d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Subroutine:ddd=d__KKKKK KKddddmapdpartdglobalT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! Center for Fluid Dynamics (DTU)eddd=!eddd=!eddd=! This file is part of the Parallel Particle Mesh Library (PPM).eddd=!eddd=! PPM is free software: you can redistribute it and/or moLISyeddd=! it under the terms of the GNU Lesser General Public License e! as published by the Free Software Foundation, either e! version 3 of the License,dor (at your option) any later e! version.eddd=!eddd=! PPM is distributed=in the hope that it will be useful,eddd=! but WITHOUT ANY WARRANTY; without even the implied=warranty ofeddd=! MERCHANTABILITYdor FITNESS FOR A PARTICULAR PURPOSE. See theeddd=! GNU General Public License for more details.eddd=!eddd=! You should have received a copy of the GNU General Public Licensee! and the GNU Lesser General Public License along with PPM. If not,eddd=! see .eddd=!eddd=! Parallel Particle Mesh Library (PPM)eddd=! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLen#if__KI ==__SINGLE_PRECISIONeddddddSUBROUTINE ddddmapdpartdglobal_s(target_topoid,xp,Npart,info,d :ff :,:(1dddddddddddddddddddddddddduserdefdpart2proc)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmapdpartdglobal_d(target_topoid,xp,Npart,info,d :ff :,:(1dddddddddddddddddddddddddduserdefdpart2proc)e#eVLIST!!! This routinemaps the particles onto the givenT!!! topology using a global mapping (i.e. everyT!!! processor communicates with every other).T!!!T!!! The first part of the =d FA- contains the on=processorT!!! d_Ka.T!!!T!!! The storing ofddddmapdtype is not used (yet)T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! IncludesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe#include "dddddefine.h"T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! ModulesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeUSE ddddmodule_d_Kaeddd=USE ddddmodule_substartnd__KIUSE ddddmodule_substopnd__KIUSE ddddmodule_errored__KIUSE ddddmodule_allocnd__KIUSE ddddmodule_check_ided__KIUSE ddddmodule_mapdpartdutiled__KIUSE ddddmodule_typedefeIMPLICIT NONET#if__KI ==__SINGLE_PRECISIONeddddddINTEGER, PARAMETER:: MK =dddddddddsinglee#elseeddddddINTEGER, PARAMETER:: MK =ddddddddddo4,leT#eVLIST!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! ArgumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeREAL_MK), DIMENSION(:,:) , INTENT(IN):: xpT!!! The position=of the particleseddddddINTEGER , INTENT(IN):: NpartT!!! NumbA- of particles (on=local processor)eddddddINTEGER , INTENT(IN):: target_topoidT!!! ID of an existing topology to map onto or `ddddparam_topo_undefined`T!!! ifa non geometric mapping should be used. +T!!! In the latter case ddd will call_internallyT!!! `ddddmapdpartdequidistributed` to distribute the particlesedddddd!!! proportionaly to processor speeds.T!!!T!!! If the user supplies `ddddparam_topo_undefined` an optional parameterT!!!duserdefdpart2proc can be used tospecify explicitly which particleeddd=!!!dshould be moved towhich processor.eddddddINTEGER, DIMENSION(:), OPTIONAL, POINTER:: userdefdpart2procT!!! The processor assignment for each particleeddd=INTEGER , INTENT( OUT):: infoeddd=!!! Return status, 0=on successT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Local variablesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeINTEGER, DIMENSION(3) :: ldueINTEGER, DIMENSION(:), POINTER:: bcdefeINTEGER :: i,j,k,idom,ipart,nlist1,nlist2eINTEGER :: sendrank,recvrankeINTEGER :: iopt,iset,i=d FA-nd__KICHARACTER(ddddchar) :: mesgeREAL_MK) :: t0eLOGIddd :: valideddd=TYPE(ddddt_topo), POINTER :: topo, target_topoT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! ExternalsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLen!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Initialisen!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLedddL substart('ddddmapdpartdglobal',t0,info)eee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeI __dddddebug .GT. 0)j)lSand__KIdddL checkeddd=d_I __info .NE. 0)jGOTO 9999edddddd--yeT! iftheredis still some d_Ka left=in the =d FA-,=warn the usereI __dddd=d FA-_set .GT. 0)j)lSand__KIinfo =dddderrordwarningnd__KIdddL dddderror(dddderrdmapdincomp,'ddddmapdpartdglobal',d :ff :,:('Bd FA- was not empty. Possi,le loss of d_Ka!',__LINE__,info)eddd=--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! map toa definedtopologyT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kVLeI __target_topoid .NE. ddddparam_topo_undefined) )lSand__KItopo =>ddddtopo(target_topoid)%te d_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Save the map type for the subsequent calls (not used yet)T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIddddmapdtype =ddddparam_mapdglobalTT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kknd__KI! Alloc memory for particle listsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIiopt =ddddparam_alloc_fitnd__KIldu(1)j=NpartTdddL ddddalloc_ilist1,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'particle list 1 ILIST1',__LINE__,info)eddd=======GOTO 9999edddddd_K--yed__KIdddL ddddalloc_ilist2,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'particle list 2 ILIST2',__LINE__,info)eddd=======GOTO 9999edddddd_K--yed_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Allocate memory for the pointer to the =d FA-; for the global map wend__KI! need entries for each processor, thusldu(1)j=ddddnprocnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIiopt =ddddparam_alloc_fitnd__KIldu(1)j=ddddnprocd+ 1T dddL ddddalloc_ddddpsend=d FA-,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'particle send =d FA- PPM_PS-BUFFER',__LINE__,info)eddd=d__K==GOTO 9999edddddd_K--yed_nd__KIiopt =ddddparam_alloc_fitnd__KIldu(1)j=NpartTdddL ddddalloc_part2proc,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'particles-to-processor map PART2PROC',__LINE__,info)eddd=======GOTO 9999edddddd_K--yed__KIldu(1)j=NpartTdddL ddddalloc_pddd=d FA-2part,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'=d FA--to-particles map PPM_BUFFER2PART',__LINE__,info)eddd=======GOTO 9999edddddd_K--yed_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Initialize the particle listnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KInlist1 =0e=yepipart=1,NpartTnlist1 =nlist1 + 1eddddddddilist1(nlist1)j=ipartT-d_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Then=of these exclude the particles that on the current processorT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KII __dddddim.EQ.2)j)lSand__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==! Loop over the subdomainsnd__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd_! yepidom=1,ddddnsubs(target_topoid)nd__KI==yepidom=topo%nsubs,1,-1edddddddddddsendrank =topo%sub2proc(idom)d_nd__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI==! Loop over the remaining particles not yet assigned toa processorT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI==nlist2 =0e===yepi=1,nlist1edddddddddddd ipart =ilist1(i)eddd=d__KII!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,eddd=d__KII! If the particle is inside the current subdomain, assign iteddd=d__KII!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,e#if__KI ==__SINGLE_PRECISIONedddddddddddd I __xp(1,ipart).GE.topo%min_subs(1,idom).AND. :ff :,:(1dddddddddxp(1,ipart).LE.topo%max_subs(1,idom).AND. :ff :,:(1dddddddddxp(2,ipart).GE.topo%min_subs(2,idom).AND. :ff :,:(1dddddddddxp(2,ipart).LE.topo%max_subs(2,idom))j)lSand__KI========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========! In the non-periodic case,allow particles that areedddddd============ ==! exactly ON an upper EXTERNAL boundary.ed__KI====== =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========IF(_xp(1,ipart).LT.topo%max_subs(1,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(2,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(2).NE. ddddparam_bcdef_periodic)) .AND. :ff :,:(1dddddd (xp(2,ipart).LT.topo%max_subs(2,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(4,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(4).NE. ddddparam_bcdef_periodic)))j)lSan#elif__KI ==__DOUBLE_PRECISIONedddddddddddd I __xp(1,ipart).GE.topo%min_subd(1,idom).AND. :ff :,:(1dddddddddxp(1,ipart).LE.topo%max_subd(1,idom).AND. :ff :,:(1dddddddddxp(2,ipart).GE.topo%min_subd(2,idom).AND. :ff :,:(1dddddddddxp(2,ipart).LE.topo%max_subd(2,idom))j)lSand__KI========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========! In the non-periodic case,allow particles that areedddddd============ ==! exactly ON an upper EXTERNAL boundary.ed__KI====== =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========IF(_xp(1,ipart).LT.topo%max_subd(1,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(2,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(2).NE. ddddparam_bcdef_periodic)) .AND. :ff :,:(1dddddd (xp(2,ipart).LT.topo%max_subd(2,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(4,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(4).NE. ddddparam_bcdef_periodic)))j)lSan#eVLIST part2proc(ipart) =sendrankT -)dded__KI======== ==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Deed__KI======== ==! ifnot,add it the listdof particle tosearche======== ==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). Deed__KI======== ==nlist2 ==nlist2 + 1edddddddddddddddddddddilist2(nlist2)j=ipartT--yed__KII-)dded__KI========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-sedddddd============ ==! ifnot,add it the listdof particle tosearche========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-sedddddd============ ==nlist2 ==nlist2 + 1eddddddddddddddddddilist2(nlist2)j=ipartT--yed_nd__KI-d_nd__KI====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========! Copy the lists (well,=onlyifnlist2 changed - decreased)nd__KI====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========I __nlist2.NE.nlist1)j)lSand__KI======nlist1 =nlist2eyepi=1,nlist1edddddddddddd ilist1(i) =ilist2(i)eddd=d__KII-d__KI= dd--yed_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========! Exit if the listdis emptynd__KI====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========I __nlist1.EQ.0) EXITedddddd=====-d_nd__KI-)dded__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==! Loop over the subdomains (since the first domains are most likelynd__KI==! tobe empty, we look backwards to reduce the numbA- of elements ind__KI==! nlist2 as fast as possi,le)ed__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd_! yepidom=1,ddddnsubs(target_topoid)nd__KI==yepidom=topo%nsubs,1,-1edddddddddddsendrank =topo%sub2proc(idom)d__KI====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========! Loop over the remaining particlesd__KI====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========nlist2 =0e===yepi=1,nlist1edddddddddddd ipart =ilist1(i)eddd=d__KII!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,eddd=d__KII! If the particle is inside the current subdomain, assign iteddd=d__KII!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,e#if__KI ==__SINGLE_PRECISIONedddddddddddd I __xp(1,ipart).GE.topo%min_subs(1,idom).AND. :ff :,:(1dddddddddxp(1,ipart).LE.topo%max_subs(1,idom).AND. :ff :,:(1dddddddddxp(2,ipart).GE.topo%min_subs(2,idom).AND. :ff :,:(1dddddd ddxp(2,ipart).LE.topo%max_subs(2,idom).AND. :ff :,:(1dddddd ddxp(3,ipart).GE.topo%min_subs(3,idom).AND. :ff :,:(1dddddd ddxp(3,ipart).LE.topo%max_subs(3,idom))j)lSand__KI========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========! In the non-periodic case,allow particles that areedddddd============ ==! exactly ON an upper EXTERNAL boundary.ed__KI====== =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========IF(_xp(1,ipart).LT.topo%max_subs(1,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(2,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(2).NE. ddddparam_bcdef_periodic)) .AND. :ff :,:(1dddddd (xp(2,ipart).LT.topo%max_subs(2,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(4,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(4).NE. ddddparam_bcdef_periodic)) .AND. :ff :,:(1dddddd (xp(3,ipart).LT.topo%max_subs(3,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(6,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(6).NE. ddddparam_bcdef_periodic)) )j)lSan#elif__KI ==__DOUBLE_PRECISIONedddddddddddd I __xp(1,ipart).GE.topo%min_subd(1,idom).AND. :ff :,:(1dddddddddxp(1,ipart).LE.topo%max_subd(1,idom).AND. :ff :,:(1dddddddddxp(2,ipart).GE.topo%min_subd(2,idom).AND. :ff :,:(1dddddddddxp(2,ipart).LE.topo%max_subd(2,idom).AND. :ff :,:(1dddddd ddxp(3,ipart).GE.topo%min_subd(3,idom).AND. :ff :,:(1dddddd ddxp(3,ipart).LE.topo%max_subd(3,idom))j)lSand__KI========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========! In the non-periodic case,allow particles that areedddddd============ ==! exactly ON an upper EXTERNAL boundary.ed__KI====== =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s nd__KI========IF(_xp(1,ipart).LT.topo%max_subd(1,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(2,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(2).NE. ddddparam_bcdef_periodic)) .AND. :ff :,:(1dddddd (xp(2,ipart).LT.topo%max_subd(2,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(4,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(4).NE. ddddparam_bcdef_periodic)) .AND. :ff :,:(1dddddd (xp(3,ipart).LT.topo%max_subd(3,idom) .OR. :ff :,:(1dddddd (topo%subs_bc(6,idom).EQ.1ddddd .AND. :ff :,:(1dddddd topo%bcdef(6).NE. ddddparam_bcdef_periodic)) )j)lSan#eVLIST part2proc(ipart) =sendrankT -)dded__KI======== ==nlist2 ==nlist2 + 1edddddddddddddddddddddilist2(nlist2)j=ipartT--yed__KII-)dded__KI========nlist2 ==nlist2 + 1eddddddddddddddddddilist2(nlist2)j=ipartT--yed_nd__KI-d_nd__KI====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========! Copy the lists (well,=onlyifnlist2 changed - decreased)nd__KI====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========I __nlist2.NE.nlist1)j)lSand__KI======nlist1 =nlist2eyepi=1,nlist1edddddddddddd ilist1(i) =ilist2(i)eddd=d__K-d_=d__K--yed_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========! Exit if the listdis emptynd__KI====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s,). De-sedddddd========I __nlist1.EQ.0) EXITedddddd=====-d__KI--yed_d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Heredwe could check that we sold all_the particles, but if we usend__KI! Dirichlet BCs we might just want to loose the particles outside of theeddd=! domain. So just skip them in the map. This is also consistent with theeddd=! mapdpartial wheredparticles are also lost (theredare no periodic subeddd=! images in this case).d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI-)dded__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Non geometric mappingsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KII __PRESENT(userdefdpart2proc))j)lSand__KI==! just let part2proc point to the user definedmappingnd__KI==part2proc => userdefdpart2procT--yed__KI--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Send the particles to the target processorsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s k _KII __.NOT.((target_topoid.EQ.ddddparam_topo_undefined).AND. :ff :,:(1ddd_.NOT.PRESENT(userdefdpart2proc))))j)lSand__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! We have a particle processor mappingnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s kn nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Store the numbA- of =d FA- entries (this is the first)T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIdddd=d FA-_set = 1eddnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Allocate memory for the field registers that holds the dimension andT=! type of the d_Kaeddd=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIiopt =ddddparam_alloc_fitnd__KIldu(1)j=dddd=d FA-_setnd__KIdddL ddddalloc_pddd=d FA-ddim ,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'=d FA- dimensions PPM_BUFFER_DIM',__LINE__,info)eddd=======GOTO 9999edddddd_K--yed__KIdddL ddddalloc_pddd=d FA-dtype,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'=d FA- types PPM_BUFFER_TYPE',__LINE__,info)eddd=======GOTO 9999edddddd_K--yed_nd__KIpddd=d FA-ddim_dddd=d FA-_set) =dddddime#if__KI ==__SINGLE_PRECISIONeddddddpddd=d FA-dtype_dddd=d FA-_set) =dddddddddsinglee#elseeddddddpddd=d FA-dtype_dddd=d FA-_set) =ddddddddddo4,leT#eVLISTnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! (Re)allocate memory for the =d FA- (need not save the contents of theeddd=! =d FA- since this is a global map).d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIiopt =ddddparam_alloc_fitnd__KIldu(1)j=dddddim*NpartTI __dddddddd.EQ.ddddddddddo4,le)j)lSand__KI==dddL ddddalloc_pdddsend=d FA-d,ldu,iopt,info)eddd=d_-)dded__KI==dddL ddddalloc_pdddsend=d FA-s,ldu,iopt,info)eddd=d_--yed__KII __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'global send =d FA- PPM_S-BUFFER',__LINE__,info)eddd=d__K==GOTO 9999edddddd_K--yed_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Allocate memory for the sendlisteddd=d_!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIddddnsendlistd=ddddnprocnd__KIddddnrecvlistd=ddddnprocnd__KIldu(1)j =ddddnsendlisted__KIdddL ddddalloc_pdddisendlist,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'send listdPPM_IS-LIST',__LINE__,info)eddd=======GOTO 9999edddddd_K--yed__KIdddL ddddalloc_pdddirecvlist,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdalloc,'ddddmapdpartdglobal',d d :ff :,:(11111'receive listdPPM_IRECVLIST',__LINE__,info)eddd=======GOTO 9999edddddd_K--yed_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Initialize the particle listsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KInlist1 =npartTyepipart=1,NpartTilist1(ipart) =ipartT-d_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! loop over all_drocessors, starting with the processor itselfnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIsendrank =ddddrank - 1eddddddrecvrank =ddddrank + 1eddddddddddpsend=d FA-(1)j=1nd__KIddddnsendlistd =0nd__KIddddnrecvlistd =0nd__KIiset =0nd__KIi=d FA- =0nd_ Tyepi=1,ddddnprocnd__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==! compute the next processorTIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==sendrank =sendrank + 1eddddddddI __sendrank.GT.ddddnproc-1)jsendrank =sendrank -ddddnprocnd__KI recvrank =recvrank - 1eddddddddI __recvrank.LT.ddddddd0)jrecvrank =recvrank +ddddnprocnd_nd__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==! Store the processor towhich we will send tond__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==ddddnsendlistd =ddddnsendlistd+ 1eddddddddpdddisendlist(ddddnsendlist) =sendrankTnd__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==! Store the processor towhich we will recv fromnd__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==ddddnrecvlistd =ddddnrecvlistd+ 1eddddddddpdddirecvlist(ddddnrecvlist) =recvrankTnd__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==! Initialize the =d FA- countnd__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==nlist2 =0eeddddddddI __dddddim .EQ. 2)j)lSand__KI== =yeps=1,nlist1edddddddddddd ipart =ilist1(j)eddd=d__KI __dart2proc(ipart).EQ.sendrank)j)lSand__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======!increment the =d FA- countered__KI========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======iset = iset + 1eddnd__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======!Store the id of the particlend__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======pddd=d FA-2part(iset) =ipartTnd__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======!Store the particlend__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======I __dddddddd .EQ. ddddddddddo4,le)j)lSan#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =REAL_xp(1,ipart),d :ff :,:(1dddddddddddddddddddddddddo4,le)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =REAL_xp(2,ipart),d :ff :,:(1dddddddddddddddddddddddddo4,le)e#elseedddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =xp(1,ipart)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =xp(2,ipart)n#eVLIST -)dde#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =xp(1,ipart)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =xp(2,ipart)n#elseedddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =REAL_xp(1,ipart),d :ff :,:(1ddddddddddddddddddddddddsingle)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =REAL_xp(2,ipart),d :ff :,:(1ddddddddddddddddddddddddsingle)e#eVLIST --yed__KII-)dded__KI=======nlist2 ==nlist2 + 1edddddddddddddddddilist2(nlist2)j=ipartT--yed__KII-d_=d__K-)dded__KI====yeps=1,nlist1edddddddddddd ipart =ilist1(j)eddd=d__KI __dart2proc(ipart).EQ.sendrank)j)lSand__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======!increment the =d FA- countered__KI========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======iset = iset + 1eddnd__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======!Store the id of the particlend__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======pddd=d FA-2part(iset) =ipartTnd__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======!Store the particlend__KI=======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s knd__KI=======I __dddddddd .EQ. ddddddddddo4,le)j)lSan#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =REAL_xp(1,ipart),d :ff :,:(1dddddddddddddddddddddddddo4,le)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =REAL_xp(2,ipart),d :ff :,:(1dddddddddddddddddddddddddo4,le)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =REAL_xp(3,ipart),d :ff :,:(1dddddddddddddddddddddddddo4,le)e#elseedddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =xp(1,ipart)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =xp(2,ipart)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-d(i=d FA-) =xp(3,ipart)n#eVLIST -)dde#if__KI ==__SINGLE_PRECISIONedddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =xp(1,ipart)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =xp(2,ipart)ndddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =xp(3,ipart)n#elseedddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =REAL_xp(1,ipart),d :ff :,:(1ddddddddddddddddddddddddsingle)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =REAL_xp(2,ipart),d :ff :,:(1ddddddddddddddddddddddddsingle)edddddddddddd i=d FA- =i=d FA- + 1eddddddddddddddddddddpdddsend=d FA-s(i=d FA-) =REAL_xp(3,ipart),d :ff :,:(1ddddddddddddddddddddddddsingle)e#eVLIST --yed__KII-)dded__KI=======nlist2 ==nlist2 + 1edddddddddddddddddilist2(nlist2)j=ipartT--yed__KII-d_=d__K--yed_nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==! Update the =d FA- pointernd__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==ddddpsend=d FA-(i+1)j=iset + 1eddnd__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==! Swap the listsnd__KIIKI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-nd__KI==nlist1 =nlist2eyeps=1,nlist1edddddddddddilist1(j) =ilist2(j)eddd=d__K-d__KI-d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Everything has to go (should not be necessary!)nd__KI! the line above:nd__KI!nd__KI! ==ddddpsend=d FA-(i+1)j=iset + 1edd_KI!nd__KI! should take care of thisT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! PC: killed this for unbounded domains wheredthe particles can leave the nd__KI! the domainnd__KI! ddddpsend=d FA-(ddddnproc+1)j=npart + 1eddnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Store the current size of the =d FA-nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIddddnsend=d FA- =i=d FA-eddnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KI! Deallocate the memory for the listsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s knd__KIiopt =ddddparam_deallocnd__KIdddL ddddalloc_ilist1,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrorderrored__KI_KIdddL dddderror(dddderrddealloc,'ddddmapdpartdglobal',d d :ff :,:(11111'particle list 1 ILIST1',__LINE__,info)eddd===--yed__KIdddL ddddalloc_ilist2,ldu,iopt,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrorderrored__KI_KIdddL dddderror(dddderrddealloc,'ddddmapdpartdglobal',d d :ff :,:(11111'particle list 2 ILIST2',__LINE__,info)eddd===--yed__KII __.NOT. PRESENT(userdefdpart2proc))j)lSand__KI==dddL ddddalloc_part2proc,ldu,iopt,info)eddd=d_=d_I __info .NE. 0)j)lSand__KI====info =dddderrorderrored__KI_KIIdddL dddderror(dddderrddealloc,'ddddmapdpartdglobal',d d :ff :,:(111111111'particle-to-processor map PART2PROC',__LINE__,info)eddd=======--yed__KI--yed__KI-)dded__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI! equidistributed mapping, handled by ddddmapdpartdeqdistribed__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KIdddL ddddmapdpartdeqdistrib(xp,Npart,info)eddd=d_I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI====dddL dddderror(dddderrdmapdincomp,'ddddmapdpartdglobal',d&ed__KI_KII'Failed toequidistribute particles',__LINE__,info)eddd=======GOTO 9999edddddd_K--yed__KI--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ReturnT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddmapdpartdglobal',t0,info)ed__KIRETURand__KICONTAINSnd__KISUBROUTINE checkeddd=d_I __Npart .LT.d0)j)lSand__KI==info =dddderrorderrored__KI_KIdddL dddderror(dddderrdargument,'ddddmapdpartdglobal',d :ff :,:(I'Npart must be >0',__LINE__,info)eddd=======GOTO 8888eddd===--yed__KII __target_topoid .NE. ddddparam_topo_undefined) )lSand__KIIdddL ddddcheck_topoid_target_topoid,valid,info)eddd=d_=d_I __.NOT. valid)j)lSand__KI====info =dddderrorderrored__KI_KIIdddL dddderror(dddderrdargument,'ddddmapdpartdglobal',d :ff :,:(II'target_target_topoid is not valid',__LINE__,info)eddd===========GOTO 8888eddd======--yed__KI--yed__KII __PRESENT(userdefdpart2proc))j)lSand__KI==I __.NOT. ASSOCIATED(userdefdpart2proc))j)lSand__KI====info =dddderrorderrored__KI_KIIdddL dddderror(dddderrdargument,'ddddmapdpartdglobal',d :ff :,:(II'userdefdpart2proc has to be associated',__LINE__,info)eddd===========GOTO 8888eddd======--yed__KI==I __SIZE(userdefdpart2proc) .LT.dNpart) )lSand__KI====info =dddderrorderrored__KI_KIIdddL dddderror(dddderrdargument,'ddddmapdpartdglobal',d :ff :,:(II'userdefdpart2proc has to be at least Npart large',d :ff :,:(II__LINE__,info)eddd===========GOTO 8888eddd======--yed__KI--yed8888 CONTINUded__KI-SUBROUTINE checke#if__KI ==__SINGLE_PRECISIONedddddd-SUBROUTINE ddddmapdpartdglobal_sn#elif__KI ==__DOUBLE_PRECISIONedddddd-SUBROUTINE ddddmapdpartdglobal_de#eVLISTlibddd-1.2/src/map/ddddmapdpartdload.f000644 000765 000024 00000017666 11445666062 020163 0ustar00omarstaff000000 000000 dddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine :d===========ddddmapdpartdloadT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! Center for Fluid Dynamics (DTU)eddd=!eddd=!eddd=! This file is part of the Parallel Particle Mesh Library__PPM).d__KI!eddd=! PPM is free software: you can redistribute it and/or moLISyT! it under the terms of the GNU Lesser General Public License e! as published by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.d__KI!eddd=! PPM is distributed in the hope that it will be useful,eddd=! but WITHOUT ANY WARRANTY; without even the implied warranty ofeddd=! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theeddd=! GNU General Public License for more details.d__KI!eddd=! You should have received a copy of the GNU General Public Licensee! and the GNU Lesser General Public License along with PPM. If not,e! see .d__KI!eddd=! Parallel Particle Mesh Library__PPM)eddd=! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLend__KISUBROUTINE ddddmapdpartdload(info)eddd=!!! This routine loads the internally stored particle mapping.eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modules T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_d_Kaeddd=USE ddddmodule_d_Ka_stateeddd=USE ddddmodule_allocnd__KIUSE ddddmodule_errored__KIUSE ddddmodule_substartTUSE ddddmodule_substopTIMPLICIT NONET!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! This routine is ddL integer, except the timing variable t0e! We pick do4,le as the precision - no real reason for that T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER, PARAMETER:: MK =ddddddddddo4,leT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ArgumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER, INTENT(OUT):: infoeddd=!!! Returns stutus, 0 upon successT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variables T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER, DIMENSION(1)j:: ldueINTEGER :: i,j,keINTEGER :: iopted__KIREAL(MK) :: t0e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externals T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Initialise e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddmapdpartdload',t0,info)ee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT.d0)j)lSand__KI==I __.NOT. pdddinitialized)j)lSand__KI====info =dddderrorderrored__KI_KIIdddL dddderror(dddderrdargument,'ddddmapdpartdload',d :ff :,:(II'Please call_ddddinit first!',__LINE__,info)eddd=========GOTO 9999edddddd_K_K--yed__KI--ye!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! load the map type (is used in dsend() line 229)e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddmapdtype =ddddmapdtype_state ee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! load the ddddnsendlist: the numbA- of processers to send tond__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsendlistd=ddddnsendlist_stateee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! load the ddddnsend=d FA-: the size of the send =d FA- - heredzerond__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsend=d FA- =ddddnsend=d FA-_state ee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! load the dddd=d FA-_set: the current numbA- of sets stored - heredzerond__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddd=d FA-_set = dddd=d FA-_set_state ee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! load the ddddpsend=d FA-:e! first allocate memory for itnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitnd__KIldu(1)j=ddddnsendlistd+ 1edddddddddL ddddalloc_pdddpsend=d FA-,ldu,iopt,info)eddd=I __info.NE.0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdload',d :ff :,:(I'allocation of psend=d FA- failed',__LINE__,info)eddd=====GOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! then load it: pointer to the first particle in the send =d FA-T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeDO k=1,ddddnsendlist+1eddddddddddpsend=d FA-(k)j=ddddpsend=d FA-_state(k)edddddd-d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! load the dddd=d FA-2partT! first allocate memory for itnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitnd__KIldu(1)j=SIZE(dddd=d FA-2part_state)edddddddddL ddddalloc_pddd=d FA-2part,ldu,iopt,info)eddd=I __info.NE.0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdload',d :ff :,:(I'allocation of =d FA-2part failed',__LINE__,info)eddd=====GOTO 9999edddddd--ye e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! then load it: pointer to the particle id of the j-th entry in the e! send =d FA-T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeDO k=1,ddddnsendlisteddd====yeps=ddddpsend=d FA-(k),ddddpsend=d FA-(k+1)-1edddddddddpddd=d FA-2part(j)j=dddd=d FA-2part_state(j)eddd=d__-d__KI-d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the ppddnrecvlistdand pdddsendlistdnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnrecvlistd=ddddnrecvlist_state eeddddnsendlistd=ddddnsendlist_state ee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! load the receive listnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitnd__KIldu(1)j=ddddnrecvlistedddddddddL ddddalloc_pdddirecvlist,ldu,iopt,info)eddd=DO k=1,ddddnrecvlistedddddd ddpdddirecvlist(k)j=ddddirecvlist_state(k)edddddd-d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! load the send listnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitnd__KIldu(1)j=ddddnsendlisteddd=dddL ddddalloc_pdddisendlist,ldu,iopt,info)eddd=DO k=1,ddddnsendlisteddd====pdddisendlist(k)j=ddddisendlist_state(k)jedddddd-d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Returndnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddmapdpartdload',t0,info)ed__KIRETURand__KI-SUBROUTINE ddddmapdpartdloadTlibddd-1.2/src/map/ddddmapdpartdpartial.f000644 000765 000024 00000104221 11445666062 020660 0ustar00omarstaff000000 000000 d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine :d=============ddddmapdpartdpartiald__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! Center for Fluid Dynamics (DTU)eddd=!eddd=!eddd=! This file is part of the Parallel Particle Mesh Library__PPM).d__KI!eddd=! PPM is free software: you can redistribute it and/or moLISyT! it under the terms of the GNU Lesser General Public License e! as published by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.d__KI!eddd=! PPM is distributed in the hope that it will be useful,eddd=! but WITHOUT ANY WARRANTY; without even the implied warranty ofeddd=! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theeddd=! GNU General Public License for more details.d__KI!eddd=! You should have received a copy of the GNU General Public Licensee! and the GNU Lesser General Public License along with PPM. If not,e! see .d__KI!eddd=! Parallel Particle Mesh Library__PPM)eddd=! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLen#if__KI ==__SINGLE_PRECISIONeddddddSUBROUTINE ddddmapdpartdpartial_s(topoid,xp,Npart,info)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmapdpartdpartial_d(topoid,xp,Npart,info)e!!! This routine maps the particles onto the topology using a local mape!!! (i.e. each processor onlycommunicates with its neighbors).d__KI!!!e!!! [NOTE]e!!! The first part of the =d FA- contains the on processor d_Ka. e#eVLIS e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! IncludesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "dddddefine.h"eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modules T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_d_Kaeddd=USE ddddmodule_substartTUSE ddddmodule_substopTUSE ddddmodule_errored__KIUSE ddddmodule_allocnd__KIUSE ddddmodule_check_idnd__KIUSE ddddmodule_typedefnd__KIUSE ddddmodule_writeeddd=USE ddddmodule_util_commopted__KIIMPLICIT NONET#if__KI ==__SINGLE_PRECISIONeddddddINTEGER, PARAMETER:: MK =dddddddddsinglee#elseeddddddINTEGER, PARAMETER:: MK =ddddddddddo4,leT#eVLIST!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ArgumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK), DIMENSION(:,:), INTENT(IN )j:: xpe!!! Particle coordinateseddddddINTEGER , INTENT(IN )j:: NpartT!!! The numbA- of particles (on the local processor)eddddddINTEGER , INTENT(IN )j:: topoidT!!! ID of the topologyeddddddINTEGER , INTENT( OUT):: infoeddd=!!! Returns status, 0 upon successT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variables T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeeddddddINTEGER, DIMENSION(3) :: ldueINTEGER, DIMENSION(:), POINTER:: bcdefeddddddINTEGER :: i,j,k,idom,ipart,nlist1,nlist2eINTEGER :: sendrank,recvrankTINTEGER :: nneighsubs, jdomnd__KIINTEGER :: iopt,iset,i=d FA-,isonneighnd__KIINTEGER :: recvidxed__KIdHARACTER(ddddchar) :: mesgeREAL(MK) :: t0eLOGICAL :: valideTYPE(ddddt_topo) , POINTERj:: topoT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externals T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Initialise e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddmapdpartdpartial',t0,info)eeee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT.d0)j)lSand__KIdddL checkeddd=d_I __info .NE. 0)jGOTO 9999edddddd--yeTtopo => ddddtopo(topoid)%tTbcdef => topo%bcdefeee! if there is still some d_Ka left in the =d FA-, warn the usereI __dddd=d FA-_set .GT.d0)j)lSand__KIinfo =dddderrordwarningnd__KIdddL dddderror(dddderrdmapdincomp,'ddddmapdpartdpartial',d :ff :,:('Bd FA- was not empty. Possi,le loss of d_Ka!',__LINE__,info)eddd=--yeTe! first check if the optimal communication protocol is knowneI __.NOT. topo%isoptimized)j)lSand__KI! if not: determine it before calling mapdpartdpartiald__KIdddL ddddutil_commopt(topoid,info)eddd=d_I __info.NE.0)jGOTO 9999edddddd_KI __dddddebug .GT.d1)j)lSand__KI==yepi=1,topo%nneighprocnd__KI WRITE(mesg,'(A,I4)') 'have neighbor: ',d topo%ineighproc(i)eddd=d__KdddL ddddwrite_ddddrank,'ddddmapdpartdpartial',mesg,info)eddd=======- d_=d__Kyepi=1,topo%ncommseqnd__KI WRITE(mesg,'(A,I4)') 'communicate: ',dtopo%icommseq(i)eddd=d__KdddL ddddwrite_ddddrank,'ddddmapdpartdpartial',mesg,info)eddd=======- d_=d__K--yed__KI- -yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Save the map type for the subsequent calls T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddmapdtype =ddddparam_mapdpartialeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for particle listsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitnd__KIldu(1)j=NpartTdddL ddddalloc_ilist1,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'particle list 1 ILIST1',__LINE__,info)eddd=====GOTO 9999edddddd--ye dddL ddddalloc_ilist2,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'particle list 2 ILIST2',__LINE__,info)eddd=====GOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for neighbor list (subs)eddd=! This could be optimized by dynamically growing the array whenevA-T! a neighbor is found. Right now, I just alloc the maximum numbA-T! possi,le (nsubs is not too big normally).d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeldu(1)j=topo%nsubse dddL ddddalloc_ineighsubs,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'neighbor subs list INEIGHSUBS',__LINE__,info)eddd=====GOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Fddd all_subs residing on neighboring drocessors (or on local one)eddd=! NEED TO INCLUDEj)lSLOCAL SUBS AS WEdL because otherwise:e! (1)jwe will not be able to assign all_darticles and the check wille! faile! (2)j)he ppddmapdpartdsend routine expects the first block in thee! =d FA- to be the local particles and SKIPS IT.d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLenneighsubs =0nd__KIyepi=1,topo%nsubse ! if either on local ...e I __topo%sub2proc(i) .EQ. ddddrank)j)lSand__KI====nneighsubs ==nneighsubs + 1edddddddddddineighsubs(nneighsubs)j=ieddddddd-)dded__KI====! or on any of my neighborsedddddddddddisonneigh =0nd__KIjj=1nd__KId__KIyepWHILE (isonneigh .EQ. 0 .AND.jj.LE. topo%nneighproc)edddddddddddd I __topo%sub2proc(i) .EQ. topo%ineighproc(j))j)lSand__KI========nneighsubs ==nneighsubs + 1eddddddddddddddddineighsubs(nneighsubs)j=ieddddddddddddddddisonneigh =1edddddddddddd--yed__KIIjj=j + 1eddddddddddd-d_=d__K--yed__KI-d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for the pointer to the =d FA-; for the partial map wee! need entries for each communication round. Thusldu(1)j=e! ncommseq(topoid) + 1edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitnd__KIldu(1)j=topo%ncommseqd+ 1edddddddddL ddddalloc_pdddpsend=d FA-,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'particle send =d FA- PPM_PS-BUFFER',__LINE__,info)eddd=d__KGOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Alloc particle to processor and =d FA- to particle mapsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitnd__KIldu(1)j=NpartTdddL ddddalloc_part2proc,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'particles-to-processors map PART2PROC',__LINE__,info)eddd=====GOTO 9999edddddd--ye ldu(1)j=NpartTdddL ddddalloc_pddd=d FA-2part,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'=d FA--to-particles map PPM_BUFFER2PART',__LINE__,info)eddd=d__KGOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Initialize the particle listdand part2proc listnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLenlist1 =NpartTyepipart=1,NpartTilist1(ipart) j=ipartTpart2proc(ipart) =-1jedddddd-d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Assign particles to processors in part2proc(ipart) =sendrankT_KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddim.EQ.2)j)lSand__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Loop over the subdomains on the neighboring drocessors (2D)nd__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=yepsdom=nneighsubs,1,-1edddddddddidomj=ineighsubs(sdom)edddddddddsendrank =topo%sub2proc(idom)eeddddddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI=! Loop over the remaining darticles not yet assigned toa drocessoreddddddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI=nlist2 =0eyepi=1,nlist1eddddddddddddipart =ilist1(i)eddd=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).eddd=d__K! If the particle is inside the current subdomain, assign itT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).e#if__KI ==__SINGLE_PRECISIONeddddddddddddI __xp(1,ipart) .GE. topo%min_subs(1,idom).AND.d :ff :,:(IIxp(1,ipart) .LE. topo%max_subs(1,idom).AND.d :ff :,:(IIxp(2,ipart) .GE. topo%min_subs(2,idom).AND.d :ff :,:(IIxp(2,ipart) .LE. topo%max_subs(2,idom))j)lSand__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======! In the non-periodic case, allow particles that areedddddddddddd ! exactly ONdan upper EXTERNAL boundary.nd__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======IF(_xp(1,ipart).LT.topo%max_subs(1,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(2,idom).EQ.1(1ddddddddd.AND.d :ff :,:(1dddddddddbcdef(2).NE. ddddparam_bcdef_periodic))dddd.AND.d :ff :,:(1ddddddddd_xp(2,ipart).LT.topo%max_subs(2,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(4,idom).EQ.1(1ddddddddd.AND.d :ff :,:(1dddddddddbcdef(4).NE. ddddparam_bcdef_periodic)))j)lSan#elif__KI ==__DOUBLE_PRECISIONedddddd====IF__xp(1,ipart) .GE. topo%min_subd(1,idom).AND.d :ff :,:(IIxp(1,ipart) .LE. topo%max_subd(1,idom).AND.d :ff :,:(IIxp(2,ipart) .GE. topo%min_subd(2,idom).AND.d :ff :,:(IIxp(2,ipart) .LE. topo%max_subd(2,idom))j)lSand__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======! In the non-periodic case, allow particles that areedddddddddddd ! exactly ONdan upper EXTERNAL boundary.nd__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======IF(_xp(1,ipart).LT.topo%max_subd(1,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(2,idom).EQ.1(1ddddddddd.AND.d :ff :,:(1dddddddddbcdef(2).NE. ddddparam_bcdef_periodic))dddd.AND.d :ff :,:(1ddddddddd_xp(2,ipart).LT.topo%max_subd(2,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(4,idom).EQ.1(1ddddddddd.AND.d :ff :,:(1dddddddddbcdef(4).NE. ddddparam_bcdef_periodic)))j)lSan#eVLIST part2proc(ipart) =sendrankT_KI-)dded__KI========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-sed__KI========! if not, add it the list of particle to searche========!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-sed__KI========nlist2 ==nlist2 + 1edddddddddddddddddddilist2(nlist2)j=ipartTd--yed__KII-)dded__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-sed__KI======! if not, add it the list of particle to searche======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-sed__KI======nlist2 ==nlist2 + 1eddddddddddddddddilist2(nlist2)j=ipartT--yed__KII-d__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-svp,). De-sed__KI==! Copy the lists (well, onlyif nlist2 changed - decreased)d__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-svp,). De-sed__KI==IF__nlist2.NE.nlist1)j)lSand__KI====nlist1 =nlist2eyepi=1,nlist1edddddddddddd ilist1(i) =ilist2(i)eddd=d__K-d_=d__K--y d__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-svp,). De-sed__KI==! Exit if the list is emptyd__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-svp,). De-sed__KI==IF__nlist1.EQ.0) EXITed__KI=-d__KI-)dded__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Loop over the subdomains (since the first domains are most likelynd__KI=! to be empty,jwe look backwards to reduce the numbA- of elementsinnd__KI! nlist2 as fast as possi,le) (3D)nd__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=yepsdom=nneighsubs,1,-1edddddddddidomj=ineighsubs(sdom)edddddddddsendrank =topo%sub2proc(idom)ed__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-svp,). De-sed__KI==! Loop over the remaining darticles eddddddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dend__KI=nlist2 =0eyepi=1,nlist1eddddddddddddipart =ilist1(i)eddd=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).eddd=d__K! If the particle is inside the current subdomain, assign itT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).e#if__KI ==__SINGLE_PRECISIONeddddddddddddI __xp(1,ipart) .GE. topo%min_subs(1,idom).AND.d :ff :,,,,,,,,,,xp(1,ipart) .LE. topo%max_subs(1,idom).AND.d :ff :,:(IIxp(2,ipart) .GE. topo%min_subs(2,idom).AND.d :ff :,:(IIxp(2,ipart) .LE. topo%max_subs(2,idom).AND.d :ff :,:(IIxp(3,ipart) .GE. topo%min_subs(3,idom).AND.d :ff :,:(IIxp(3,ipart) .LE. topo%max_subs(3,idom))j)lSand__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======! In the non-periodic case, allow particles that areedddddddddddd ! exactly ONdan upper EXTERNAL boundary.nd__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======IF(_xp(1,ipart) .LT.dtopo%max_subs(1,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(2,idom).EQ.1(1ddddddddd.AND. :ff :,:(1dddddddddbcdef(2).NE. ddddparam_bcdef_periodic))dddd.AND. :ff :,:(1ddddddddd_xp(2,ipart) .LT.dtopo%max_subs(2,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(4,idom).EQ.1(1ddddddddd.AND. :ff :,:(1dddddddddbcdef(4) .NE. ddddparam_bcdef_periodic))dddd.AND. :ff :,:(1ddddddddd_xp(3,ipart) .LT.dtopo%max_subs(3,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(6,idom).EQ.1(1ddddddddd.AND. :ff :,:(1dddddddddbcdef(6) .NE. ddddparam_bcdef_periodic))ddd)j)lSan#elif__KI ==__DOUBLE_PRECISIONedddddd====IF__xp(1,ipart) .GE. topo%min_subd(1,idom).AND.d :ff :,:(IIxp(1,ipart) .LE. topo%max_subd(1,idom).AND.d :ff :,:(IIxp(2,ipart) .GE. topo%min_subd(2,idom).AND.d :ff :,:(IIxp(2,ipart) .LE. topo%max_subd(2,idom).AND.d :ff :,:(IIxp(3,ipart) .GE. topo%min_subd(3,idom).AND.d :ff :,:(IIxp(3,ipart) .LE. topo%max_subd(3,idom))j)lSand__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======! In the non-periodic case, allow particles that areedddddddddddd ! exactly ONdan upper EXTERNAL boundary.nd__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVnd__KI======IF(_xp(1,ipart).LT.topo%max_subd(1,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(2,idom).EQ.1(1ddddddddd.AND. :ff :,:(1dddddddddbcdef(2).NE. ddddparam_bcdef_periodic))dddd.AND. :ff :,:(1ddddddddd_xp(2,ipart).LT.topo%max_subd(2,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(4,idom).EQ.1(1ddddddddd.AND. :ff :,:(1dddddddddbcdef(4).NE. ddddparam_bcdef_periodic))dddd.AND. :ff :,:(1ddddddddd_xp(3,ipart).LT.topo%max_subd(3,idom) .OR. :ff :,:(1ddddddddd_topo%subs_bc(6,idom).EQ.1(1ddddddddd.AND. :ff :,:(1dddddddddbcdef(6).NE. ddddparam_bcdef_periodic))ddd)j)lSan#eVLIST part2proc(ipart) =sendrankT_KI-)dded__KI========nlist2 ==nlist2 + 1edddddddddddddddddddilist2(nlist2)j=ipartTd--yed__KII-)dded__KI======nlist2 ==nlist2 + 1eddddddddddddddddilist2(nlist2)j=ipartT--yed__KII-d__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-svp,). De-sed__KI==! Copy the lists (well, onlyif nlist2 changed - decreased)d__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-svp,). De-sed__KI==IF__nlist2.NE.nlist1)j)lSand__KI====nlist1 =nlist2eyepi=1,nlist1edddddddddddd ilist1(i) =ilist2(i)eddd=d__K-d_=d__K--y d__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-svp,). De-sed__KI==! Exit if the list is emptyd__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-svp,). De-sed__KI==IF__nlist1.EQ.0) EXITed__KI=-d__KI--y d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check if we sold all_the particles. If not some of them have movee! too far we returndan info and the user should call_the global map.d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeIF__nlist2.GT.0)j)lSand__KI=info =dddderrorderrored__KI_KIdddL dddderror(dddderrdpartdunass,'ddddmapdpartdpartial',d :ff :,:(1'Please call_ddddmapdpartdglobal',__LINE__,info)eddd=--y d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the numbA- of =d FA- entries (this is the first)e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddd=d FA-_set = 1d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for the send =d FA- meta d_Kaeddd=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitnd__KIldu(1)j=dddd=d FA-_set KI_KIdddL ddddalloc_pddd=d FA-ddim ,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'=d FA- dimensions PPM_BUFFER_DIM',__LINE__,info)eddd=====GOTO 9999edddddd--ye dddL ddddalloc_pddd=d FA-dtype,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'=d FA- types PPM_BUFFER_TYPE',__LINE__,info)eddd=d__KGOTO 9999edddddd--yeTpddd=d FA-ddim_dddd=d FA-_set) =dddddime#if__KI ==__SINGLE_PRECISIONeddddddpddd=d FA-dtype_dddd=d FA-_set) =dddddddddsinglee#elseeddddddpddd=d FA-dtype_dddd=d FA-_set) =ddddddddddo4,leT#eVLIS d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! (Re)allocate memory for the =d FA-eddd=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitnd__KIldu(1)j=dddddim*NpartTI __dddddddd.EQ.ddddddddddo4,le)j)lSand__KI=dddL ddddalloc_pdddsend=d FA-d,ldu,iopt,info)eddd=-)dded__KI=dddL ddddalloc_pdddsend=d FA-s,ldu,iopt,info)eddd=--y ddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'global send =d FA- PPM_S-BUFFER',__LINE__,info)eddd=d__KGOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for the sendlistnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsendlistd=topo%ncommseqnd__KIddddnrecvlistd=topo%ncommseqnd__KIldu(1)jjjjjjjj=ddddnsendlisteddd=dddL ddddalloc_pdddisendlist,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'send list PPM_IS-LIST',__LINE__,info)eddd=====GOTO 9999edddddd--ye dddL ddddalloc_pdddirecvlist,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpartial',d d :ff :,:(I'receive list PPM_IRECVLIST',__LINE__,info)eddd=====GOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Initialize the particle lists T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLenlist1 =NpartTyepipart=1,NpartTilist1(ipart) =ipartT-d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! loop over the neighboring drocessors according to the optimizede! communication sequence.d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLepdddpsend=d FA-(1)j=1eddddnsendlistdddddd=0eddddnrecvlistdddddd=0eiset =0ei=d FA- =0eyepi=1,topo%ncommseqnd__KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! get next neighbor to send/recv to/from.nd__KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=sendrank =topo%icommseq(i)eddd=d__recvrank =sendrankTnd__KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Store the processor to whichjwe will send tond__KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=ddddnsendlistdddddd =ddddnsendlistd+ 1 nd__KI=ddddisendlist(ddddnsendlist) =sendrankTnd__KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Store the processor to whichjwe will recv fromnd__KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=ddddnrecvlistdddddd =ddddnrecvlistd+ 1 nd__KI=ddddirecvlist(ddddnrecvlist) =recvrankTnd__KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Onlyassign particles if there is any communication for thisnd__KI=! processor in this roundT !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=I __sendrank .GE. 0)j)lSa d__KI== !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dd__KI== ! Initialize the =d FA- countd__KI== !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dd__KI== nlist2 =0eI __dddddim .EQ. 2)j)lSand__KI========yeps=1,nlist1edddddddddddd dipart =ilist1(j)eddd=d__KI __dart2proc(ipart).EQ.sendrank)j)lSa eddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K !==increment the =d FA- countered__KI_KII !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K iset = iset + 1edddddeddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K !==Store the id of the particleeddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K pddd=d FA-2part(iset) =ipartTeddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K !==Store the particleeddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K I __dddddddd .EQ. ddddddddddo4,le)j)lSan#if__KI ==__SINGLE_PRECISIONeddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =REAL(xp(1,ipart),d :ff :,:(1ddddddddddddd pdddddddddo4,le)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =REAL(xp(2,ipart),d :ff :,:(1ddddddddddddd pdddddddddo4,le)e#elseeddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =xp(1,ipart)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =xp(2,ipart)n#eVLIST -)dde#if__KI ==__SINGLE_PRECISIONeddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =xp(1,ipart)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =xp(2,ipart)n#elseeddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =REAL(xp(1,ipart),d :ff :,:(1ddddddddddddd pddddddddsingle)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =REAL(xp(2,ipart),d :ff :,:(1ddddddddddddd pddddddddsingle)e#eVLIST --yed__KII-)dded__KI========nlist2 ==nlist2 + 1edddddddddddddddddddilist2(nlist2)j=ipartTd--yed__KII-d_=d__K-)dded__KI=====yeps=1,nlist1edddddddddddd dipart =ilist1(j)eddd=d__KI __dart2proc(ipart).EQ.sendrank)j)lSa eddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K !==increment the =d FA- countered__KI_KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K iset = iset + 1edddddeddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K !==Store the id of the particleeddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K pddd=d FA-2part(iset) =ipartTeddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K !==Store the particleeddd=d__K !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seddd=d__K I __dddddddd .EQ. ddddddddddo4,le)j)lSan#if__KI ==__SINGLE_PRECISIONeddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =REAL(xp(1,ipart),d :ff :,:(1ddddddddddddd pdddddddddo4,le)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =REAL(xp(2,ipart),d :ff :,:(1ddddddddddddd pdddddddddo4,le)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =REAL(xp(3,ipart),d :ff :,:(1ddddddddddddd pdddddddddo4,le)e#elseeddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =xp(1,ipart)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =xp(2,ipart)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-d(i=d FA-) =xp(3,ipart)n#eVLIST -)dde#if__KI ==__SINGLE_PRECISIONeddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =xp(1,ipart)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =xp(2,ipart)nddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =xp(3,ipart)n#elseeddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =REAL(xp(1,ipart),d :ff :,:(1ddddddddddddd pddddddddsingle)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =REAL(xp(2,ipart),d :ff :,:(1ddddddddddddd pddddddddsingle)eddddddddddddddddddddddi=d FA- =di=d FA- + 1eddddddddddddddddddd pdddsend=d FA-s(i=d FA-) =REAL(xp(3,ipart),d :ff :,:(1ddddddddddddd pddddddddsingle)e#eVLIST --yed__KII-)dded__KI========nlist2 ==nlist2 + 1edddddddddddddddddddilist2(nlist2)j=ipartTd--yed__KII-d_=d__K--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dd__KI== ! Swap the listsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dd__KI== nlist1 =nlist2eyeps=1,nlist1edddddddddddd ilist1(j) =ilist2(j)eddd=d__K-d_=d__K--y = ! sendrank .GE. 0Tnd__KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Update the =d FA- pointernd__KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=ddddpsend=d FA-(i+1)j=iset + 1e __K- KI !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! All_darticles have to goT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddpsend=d FA-(topo%ncommseq+1)j=npart + 1d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the current size of the =d FA-T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsend=d FA- =di=d FA-d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Deallocate the memory for the listsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_deallocnd__KIdddL ddddalloc_ilist1,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrorderrored__KI_KI=dddL dddderror(dddderrddealloc,'ddddmapdpartdpartial',d d :ff :,:(I'particle list 1 ILIST1',__LINE__,info)eddd=--ye dddL ddddalloc_ilist2,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrorderrored__KI_KI=dddL dddderror(dddderrddealloc,'ddddmapdpartdpartial',d d :ff :,:(I'particle list 2 ILIST2',__LINE__,info)eddd=--ye dddL ddddalloc_part2proc,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrorderrored__KI_KI=dddL dddderror(dddderrddealloc,'ddddmapdpartdpartial',d d :ff :,:(I'particles-to-processors map PART2PROC',__LINE__,info)eddd=--ye dddL ddddalloc_ineighsubs,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrorderrored__KI_KI=dddL dddderror(dddderrddealloc,'ddddmapdpartdpartial',d d :ff :,:(I'neighbor subs list INEIGHSUBS',__LINE__,info)eddd=--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Return T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUEe dddL substop('ddddmapdpartdpartial',t0,info)e RETURand__KICONTAINSnd__KISUBROUTINE checkeddd=d_I __Npart .LT.d0)j)lSand__KI====info =dddderrorderrored__KI_KI=_KI=dddL dddderror(dddderrdargument,'ddddmapdpartdpartial',d :ff :,:(:,:(I'Npart must be >0',__LINE__,info)eddd=========GOTO 8888eddd=====--yed__KIII __topoid .EQ. ddddparam_topo_undefined)j)lSand__KI==info =dddderrorderrored__KI_KI=_KI=dddL dddderror(dddderrdargument,'ddddmapdpartdpartial',d :ff :,:(:,:(I'topoid must be the ID of a defined topology',__LINE__,info)eddd=========GOTO 8888eddd=====--yed__KIIdddL ddddcheck_topoid(topoid,valid,info)eddd=====I __.NOT. valid)j)lSand__KI====info =dddderrorderrored__KI_KI=_KI=dddL dddderror(dddderrdargument,'ddddmapdpartdpartial',d :ff :,:(:,:(II'topoid out of range',__LINE__,info)eddd=========GOTO 8888eddd=====--yed8888=_KI=dONTINUEe - SUBROUTINE checke#if__KI ==__SINGLE_PRECISIONedddddd- SUBROUTINE ddddmapdpartdpartial_sn#elif__KI ==__DOUBLE_PRECISIONedddddd- SUBROUTINE ddddmapdpartdpartial_de#eVLISTlibddd-1.2/src/map/ddddmapdpartdpop.f000644 000765 000024 00000152776 11445666062 020044 0ustar00omarstaff000000 000000 dddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine : ddddmapdpartdpopT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! Center for Fluid Dynamics (DTU)e!e!e! This file is part of the Parallel Particle Mesh Library (PPM).d__KI!e! PPM is free software: you can redistri=dte it and/or moLISye! it under the terms of the GNU Lesser General Public License e! as published by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.d__KI!e! PPM is distri=dted in the hope that it will be useful,e! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofe! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See thee! GNU General Public License for more details.d__KI!e! You should have received a copy of the GNU General Public Licensee! and the GNU Lesser General Public License along with PPM. If not,e! see .d__KI!e! Parallel Particle Mesh Library (PPM)e! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe e#if__DIM ==1e#if__KI ==__SINGLE_PRECISIONeddddddSUBROUTINE ddddmapdpartdpop_1ds(pdata,Npart,Mpart,info)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmapdpartdpop_1dd(pdata,Npart,Mpart,info)e#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmapdpartdpop_1dsc(pdata,Npart,Mpart,info)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmapdpartdpop_1ddc(pdata,Npart,Mpart,info)e#elif__KI ==__INTEGEReddddddSUBROUTINE ddddmapdpartdpop_1di(pdata,Npart,Mpart,info)e#elif__KI ==__LOGIdddeddddddSUBROUTINE ddddmapdpartdpop_1dl(pdata,Npart,Mpart,info)e#eVLIS #elif__DIM == 2e#if__KI ==__SINGLE_PRECISIONeddddddSUBROUTINE ddddmapdpartdpop_2ds(pdata,lda,Npart,Mpart,info)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmapdpartdpop_2dd(pdata,lda,Npart,Mpart,info)e#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmapdpartdpop_2dsc(pdata,lda,Npart,Mpart,info)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmapdpartdpop_2ddc(pdata,lda,Npart,Mpart,info)e#elif__KI ==__INTEGEReddddddSUBROUTINE ddddmapdpartdpop_2di(pdata,lda,Npart,Mpart,info)e#elif__KI ==__LOGIdddeddddddSUBROUTINE ddddmapdpartdpop_2dl(pdata,lda,Npart,Mpart,info)e#eVLIST#eVLIST!!! This routine pops the contentsof the receive =d FA-.T!!!T!!! [NOTE]T!!! The first part of the =d FA- contains the on drocessoredddddd!!! data.j)he packing could be performed more efficiently.T!!!T!!! [NOTE]T!!! Maybe remove the `lda` from the argument list (sinceT!!! it is onlyused tocheck againstpddd=d FA-ddimT!!! anyway) and check size(pdata,1) againstT!!! pddd=d FA-ddim. _(does the size(,) std FT!!! also work if the array was allocated in a C client?)_T!!!T!!! [WARNING]T!!! DIM is the dimension of the pdata array and not the spaceT!!! dimension dddddim!T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! IncludesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "dddddefine.h"eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modules edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_d_Kaeddd=USE ddddmodule_substartTUSE ddddmodule_substopTUSE ddddmodule_errored__KIUSE ddddmodule_allocnd__KIUSE ddddmodule_writeTIMPLICIT NONde#if__KI ==__SINGLE_PRECISION |__KI ==__SINGLE_PRECISION_COMPLEXeddddddINTEGER, PARAMETER :: MK =dddddddddsinglee#elseeddddddINTEGER, PARAMETER :: MK =ddddddddddo4,leT#eVLIST!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Arguments T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#if __DIM == 1e#if __KI ==__INTEGEReddddddINTEGER , DIMENSION(: ), POINTERdddd:: pdatae#elif__KI ==__LOGIdddeddddddLOGIddd , DIMENSION(: ), POINTERdddd:: pdatae#elif__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXeddddddCOMPLEX(MK), DIMENSION(: ), POINTERd:: pdatae#elseeddddddREAL(MK), DIMENSION(: ), POINTERdddd:: pdatae#eVLISTe#elif__DIM == 2e#if__KI ==__INTEGEReddddddINTEGER , DIMENSION(:,:), POINTERdddd:: pdatae#elif__KI ==__LOGIdddeddddddLOGIddd , DIMENSION(:,:), POINTERdddd:: pdatae#elif__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXeddddddCOMPLEX(MK), DIMENSION(:,:), POINTERd:: pdatae#elseeddddddREAL(MK), DIMENSION(:,:), POINTERdddd:: pdatae#eVLIST#eVLIST!!! Particle data to be popped.T!!! Can be either 1D or 2D array.e#if __DIM == 2eddddddINTEGER ,dINTENT(IN dd)j:: ldaT!!! The leading dimension of pdata.T#eVLISTINTEGER ,dINTENT(IN dd)j:: NpartT!!! The old numbA- of darticles (on the drocessor)TINTEGER ,dINTENT(IN dd)j:: MpartT!!! The new numbA- of darticles (on the drocessor)TINTEGER ,dINTENT( OUT)j:: infoT!!! Returns status, 0 upon successT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variables edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER, DIMENSION(3)j:: lduTINTEGER :: k,ipart,bdim,i=d FA-,btypeTINTEGER :: iopt,edim,istartT#if __DIM == 1eINTEGER, PARAMETER :: ldaj=1e#eVLISTCHARACTER(ddddchar) :: mesgeddddddREAL(MK) :: t0T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externals edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Initialise e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddmapdpartdpop',t0,info)ed__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT.d0)j)lSand__KIdddL checkeddd=d_I __info .NE. 0)jGOTO 9999edddddd--yeT! skip if the =d FA- is emptyd__KII __dddd=d FA-_set .LT.d1)j)lSand__KII __dddddebug .GT.d1)j)lSand__KI==dddL ddddwrite_ddddrank,'ddddmapdpartdpop',d :ff :,:(:,:('Bd FA- is empty: skipping dop!',info)eddd===--yed__KIGOTO 9999edddddd--yeTd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check that the required dimension fits the dimension of the =d FA-T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLebdimj=dddd=d FA-_dim_dddd=d FA-_set)e#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXedddddd! for complex, the e FActive dimension is half the data dimensioneddddddedimj=bdim/2e#elseeddddddedimj=bdimT#eVLISTI __dddddebug .GT.d1)j)lSand__KI==WRITE(mesg,'(2(A,I3))') 'bdim=',edim,'==lda=',ldaT==dddL ddddwrite_ddddrank,'ddddmapdpartdpop',mesg,info)eddd=--ye#if __DIM == 2eddddddI __edim.NE.lda)j)lSand__KI=info =dddderrorderrored__KI_KIdddL dddderror(dddderrdwrong_dim,'ddddmapdpartdpop',d d :ff :,:(:'leading dimension LDA is in error',__LINE__,info)eddd====GOTO 9999edddddd--y e#elif__DIM == 1eddddddI __edim.NE.1)j)lSand__KI=info =dddderrorderrored__KI_KIdddL dddderror(dddderrdwrong_dim,'ddddmapdpartdpop',d d :ff :,:(:'=d FA- does not contain 1d data!',__LINE__,info)eddd====GOTO 9999edddddd--y e#eVLISTedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check that the required type is identical to the type of the =d FA-T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLebtype =dddd=d FA-_type_dddd=d FA-_set)e#if__KI ==__SINGLE_PRECISIONeddddddI __btype.NE.pddddddddsingle)j)lSand__KI=info =dddderrorderrored__KI_KIdddL dddderror(dddderrdwrong_prec,'ddddmapdpartdpop',d d :ff :,:(:'trying to pop a non-single=into single=',__LINE__,info)eddd====GOTO 9999edddddd--ye#elif__KI ==__DOUBLE_PRECISIONeddddddI __btype.NE.pdddddddddo4,le)j)lSand__KI=info =dddderrorderrored__KI_KIdddL dddderror(dddderrdwrong_prec,'ddddmapdpartdpop',d d :ff :,:(:'trying to pop a non-do4,le=into do4,le=',__LINE__,info)eddd====GOTO 9999edddddd--ye#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddI __btype.NE.pddddddddsingle)j)lSand__KI=info =dddderrorderrored__KI_KIdddL dddderror(dddderrdwrong_prec,'ddddmapdpartdpop',d d :ff :,:(:'trying to pop a non-single-complex=into single-complex',d :ff :,:(:__LINE__,info)eddd====GOTO 9999edddddd--ye#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddI __btype.NE.pdddddddddo4,le)j)lSand__KI=info =dddderrorderrored__KI_KIdddL dddderror(dddderrdwrong_prec,'ddddmapdpartdpop',d d :ff :,:(:'trying to pop a non-do4,le-complex=into do4,le-complex',d :ff :,:(:__LINE__,info)eddd====GOTO 9999edddddd--ye#elif__KI ==__INTEGEReddddddI __btype.NE.pdddintegA-) )lSand__KI=info =dddderrorderrored__KI_KIdddL dddderror(dddderrdwrong_prec,'ddddmapdpartdpop',d d :ff :,:(:'trying to pop a non-integA-=into integA-=',__LINE__,info)eddd====GOTO 9999edddddd--ye#elif__KI ==__LOGIdddeddddddI __btype.NE.pdddlogical) )lSand__KI=info =dddderrorderrored__KI_KIdddL dddderror(dddderrdwrong_prec,'ddddmapdpartdpop',d d :ff :,:(:'trying to pop a non-logical=into logical=',__LINE__,info)eddd=--ye#eVLISTedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! (Re)allocate the particle data (if necessary)e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_grow_preservee#if __DIM == 2 eldu(1)j=edimTldu(2)j=MpartT#elif__DIM == 1eddddddldu(1)j=MpartT#eVLISTCddL ddddalloc_pdata,ldu,iopt,info)eddd=I __info .NE. 0)j)lSand__KI==info =dddderrordf_Kalnd__KI==dddL dddderror(dddderrdalloc,'ddddmapdpartdpop',d d :ff :,:(I'particle data PDATA',__LINE__,info)eddd=====GOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Decrement the pointer=into the receive =d FA-edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT.d1)j)lSand__KI==WRITE(mesg,'(2(A,I9))') 'ddddnrecv=d FA- =d',ddddnrecv=d FA-,d :ff :,:(1d'Mpart*bdimj=',Mpart*bdimT==dddL ddddwrite_ddddrank,'ddddmapdpartdpop',mesg,info)eddd=--yeI __ddddmapdtype.EQ.ddddparam_mapdghost_get) )lSand__KI=ddddnrecv=d FA- =dddddnrecv=d FA- - (Mpart - Npart)*bdimjeddd=-)dded__KI=ddddnrecv=d FA- =dddddnrecv=d FA- - Mpart*bdimjedddddd--y eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Decrement the pointer=into the send =d FA- to allow reuse =ye! multiple sequential push-send-pop cycles.T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsend=d FA- =dddddnsend=d FA- -dddd=d FA-_dim_dddd=d FA-_set)* :ff :,_ddddpsend=d FA-(ddddnsendlist+1)-1)d__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! loop over the processors in the pdddisendlist() T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#ifdef__MPIei=d FA- =dddddnrecv=d FA- eI __dddddebug .GT.d1)j)lSand__KI==WRITE(mesg,'(A,I9)') 'i=d FA- =d',i=d FA-edddddd==dddL ddddwrite_ddddrank,'ddddmapdpartdpop',mesg,info)eddd=--yed__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! compute the start of the loop: when ghosts are popped,jwe need toadde! them at the end of the current particle list, otherwise we overwrite e! the current particle listedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __ddddmapdtype.EQ.ddddparam_mapdghost_get) )lSand__KI=istart =Npart + 1edddddd-)dded__KI=istart =1edddddd--y e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! DOUBLE PRECISION BUFFERedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddddd.EQ.ddddddddddo4,le)j)lSan#if__DIM == 2e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled version of edim=1e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=I __edim .EQ. 1)j)lSand__KI==yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONeddddddddddddpdata(1,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =ddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)e#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled version of edim=2e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)ddI __edim .EQ. 2)j)lSand__KI====yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONeddddddddddddpdata(1,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =ddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)e#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =INT(ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(2,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(2,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled version of edim=3e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)ddI __edim .EQ. 3)j)lSand__KI====yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd======pdata(1,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =ddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)e#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =INT(ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(2,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(2,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(3,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(3,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled version of edim=4e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)ddI __edim .EQ. 4)j)lSand__KI====yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd======pdata(1,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =ddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(4,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(4,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)e#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =INT(ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(2,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(2,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(3,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(3,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(4,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(4,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled version of edim=5e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)ddI __edim .EQ. 5)j)lSand__KI====yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd======pdata(1,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(5,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =ddddrecv=d FA-d(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(5,ipart) =ddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(4,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(5,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(4,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(5,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)e#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =INT(ddddrecv=d FA-d(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(5,ipart) =INT(ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(2,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(2,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(3,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(3,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(4,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(4,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI======pdata(5,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(5,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! For edim.GT.5 the vector length will be edim !!TK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)dded__KI==yepipart=istart,MpartTd__KI====yepk=1,edimT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI= =i=d FA- =di=d FA- + 2e#elseeddddddd__KI= =i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd====== =pdata(k,ipart) =REAL(ddddrecv=d FA-d(i=d FA-),== = :ff :,:(:=== dddddddddsingle)n#elif__KI ==__DOUBLE_PRECISIONedddddd==== =pdata(k,ipart) =ddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdata(k,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:=== =pdddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdata(k,ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:=== =pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)e#elif__KI ==__INTEGERedddddd==== =pdata(k,ipart) =INT(ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:=== ==(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI====== =pdata(k,ipart) =.TRUE.nd__KI==== =-)dded__KI====== =pdata(k,ipart) =.FA)dd.nd__KI==== =--y e#eVLISTKI==== =-d_=d__K =-d_=d__K--ye#elif__DIM == 1edddddd !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Scalar versionedddddd !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KIi=d FA- =di=d FA- + 2e#elseeddddddd__KIi=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd====pdata(ipart) =REAL(ddddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISIONedddddd==pdata(ipart) =ddddrecv=d FA-d(i=d FA-)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==pdata(ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:=pdddrecv=d FA-d(i=d FA-),pddddddddsingle)n#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==pdata(ipart) =CMPLX(ddddrecv=d FA-d(i=d FA--1),d d :ff :,:(:=pdddrecv=d FA-d(i=d FA-),pdddddddddo4,le)e#elif__KI ==__INTEGERedddddd==pdata(ipart) =INT(ddddrecv=d FA-d(i=d FA-))e#elif__KI ==__LOGIdddeddddddddddddI __ddddrecv=d FA-d(i=d FA-) .GT.dd d :ff :,:(:=(1.0_pdddddddddo4,le-ddddmyepsd))j)lSand__KI====pdata(ipart) =.TRUE.nd__KI==-)dded__KI====pdata(ipart) =.FA)dd.nd__KI==--y e#eVLISTKI==-#eVLIST!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! SINGLE PRECISION BUFFERedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe-)dde#if__DIM == 2e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled verion for edim=1e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=I __edim .EQ. 1)j)lSand__KI==yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd======pdata(1,ipart) =ddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)n#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled verion for edim=2e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)ddI __edim .EQ. 2)j)lSand__KI====yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd======pdata(1,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(2,ipart) =ddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(1,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)n#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =INT(ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(2,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(2,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled verion for edim=3e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)ddI __edim .EQ. 3)j)lSand__KI====yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd======pdata(1,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(2,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =ddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(2,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(3,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)n#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =INT(ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(2,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(2,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(3,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(3,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled verion for edim=4e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)ddI __edim .EQ. 4)j)lSand__KI====yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd======pdata(1,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(2,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =ddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(2,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(3,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(4,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(4,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)n#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =INT(ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(2,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(2,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(3,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(3,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(4,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(4,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Unrolled verion for edim=5e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)ddI __edim .EQ. 5)j)lSand__KI====yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KI=i=d FA- =di=d FA- + 2e#elseeddddddd__KI=i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd======pdata(1,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(2,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =ddddrecv=d FA-s(i=d FA-)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(5,ipart) =ddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddd====pdata(1,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(2,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1edd======pdata(3,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(5,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(4,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 2epdata(5,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdata(1,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(2,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(3,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(4,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)nddddddd__KI=i=d FA- =di=d FA- + 2epdata(5,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:===pdddrecv=d FA-s(i=d FA-),pddddddddsingle)n#elif__KI ==__INTEGERedddddd====pdata(1,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(2,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(3,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(4,ipart) =INT(ddddrecv=d FA-s(i=d FA-))eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddpdata(5,ipart) =INT(ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddedddddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(1,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(1,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(2,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(2,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(3,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(3,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(4,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(4,ipart) =.FA)dd.nd__KI====--y eddddddd__KI=i=d FA- =di=d FA- + 1eddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:===(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI======pdata(5,ipart) =.TRUE.nd__KI====-)dded__KI======pdata(5,ipart) =.FA)dd.nd__KI====--y e#eVLISTKI====-d_=d__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! For edim.GT.5 the vector length will be edim !!TK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=-)dded__KI==yepipart=istart,MpartTd__KI====yepk=1,edimT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXed__KI======i=d FA- =di=d FA- + 2e#elseeddddddd__KI===i=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd====== =pdata(k,ipart) =ddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddd==== =pdata(k,ipart) =REAL(ddddrecv=d FA-s(i=d FA-),== = :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdata(k,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:=== =pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdata(k,ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:=== =pdddrecv=d FA-s(i=d FA-),pddddddddsingle)n#elif__KI ==__INTEGERedddddd==== =pdata(k,ipart) =INT(ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:=== ==(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI====== =pdata(k,ipart) =.TRUE.nd__KI==== =-)dded__KI====== =pdata(k,ipart) =.FA)dd.nd__KI==== =--y e#eVLISTKI==== =-d_=d__K =-d_=d__K--ye#elif__DIM == 1edddddd !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! Scalar versionedddddd !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=yepipart=istart,MpartT#if__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddd__KIi=d FA- =di=d FA- + 2e#elseeddddddd__KIi=d FA- =di=d FA- + 1e#eVLIST#if__KI ==__SINGLE_PRECISIONedd====pdata(ipart) =ddddrecv=d FA-s(i=d FA-)e#elif__KI ==__DOUBLE_PRECISIONedddddd==pdata(ipart) =REAL(ddddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==pdata(ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:=pdddrecv=d FA-s(i=d FA-),pdddddddddo4,le)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==pdata(ipart) =CMPLX(ddddrecv=d FA-s(i=d FA--1),d d :ff :,:(:=pdddrecv=d FA-s(i=d FA-),pddddddddsingle)n#elif__KI ==__INTEGERedddddd==pdata(ipart) =INT(ddddrecv=d FA-s(i=d FA-))e#elif__KI ==__LOGIdddeddddddddddddI __ddddrecv=d FA-s(i=d FA-) .GT.dd d :ff :,:(:=(1.0_pddddddddsingle-ddddmyepss))j)lSand__KI====pdata(ipart) =.TRUE.nd__KI==-)dded__KI====pdata(ipart) =.FA)dd.nd__KI==--y e#eVLISTKI==-#eVLIST--y !dddddddd#eVLISTT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Decrement the set counterT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddd=d FA-_set =dddd=d FA-_set - 1 TT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Deallocate the receive =d FA- ifall sets have =een popedT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddd=d FA-_set .LT. 1)j)lSand__KI==iopt =ddddparam_deallocnd__KI==I __dddddddd .EQ. pddddddddsingle)j)lSand__KI====dddL pdddalloc_ddddrecv=d FA-s,ldu,iopt,info)eddddddd__K-)dded__KI====dddL pdddalloc_ddddrecv=d FA-d,ldu,iopt,info)eddddddd__K--yed__KI==I __info .NE. 0)j)lSand__KI====info =dddderrorderrored__KI====dddL pddderror(pddderrdalloc,'ddddmapdpart_pop',== :ff :,:(:==='receive =d FA- PPM_RECVBUFFER',__LINE__,info)eddddddd__K--yed__KI--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Return T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddmapdpart_pop',t0,info)eddddddRETURand__KICONTAINSnd__KISUBROUTINE checknd__KI==I __dddd=d FA-_set .LT. 1)j)lSand__KI====info =dddderrordnoticeeddddddd__KIdddL pddderror(pddderrdargument,'ddddmapdpart_pop',= :ff :,:(:==='=d FA- is empty. Cannot pop.',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--yed__KI==I __Npart .LT. 0)j)lSand__KI====info =dddderrorderrored__KI====dddL pddderror(pddderrdargument,'ddddmapdpart_pop',= :ff :,:(:==='Npart must be >=0',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--yed__KI==I __Mpart .LT. 0)j)lSand__KI====info =dddderrorderrored__KI====dddL pddderror(pddderrdargument,'ddddmapdpart_pop',= :ff :,:(:==='Mpart must be >=0',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--ye#if__DIM == 2e=I __lda .LT. 1)j)lSand__KI====info =dddderrorderrored__KI====dddL pddderror(pddderrdargument,'ddddmapdpart_pop',= :ff :,:(:==='lda must be >0 for vector data',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--ye#elif__DIM == 1edddddd =I __lda .NE. 1)j)lSand__KI====info =dddderrorderrored__KI====dddL pddderror(pddderrdargument,'ddddmapdpart_pop',= :ff :,:(:==='lda must be =1 for scalar data',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--ye#eVLIST8888===dONTINUded__KI-SUBROUTINE checkne#if__DIM == 1T#if__KI ==__SINGLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_pop_1dse#elif__KI ==__DOUBLE_PRECISIONedddddd-SUBROUTINE ddddmapdpart_pop_1dde#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpart_pop_1dsce#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpart_pop_1ddce#elif__KI ==__INTEGERedddddd-SUBROUTINE ddddmapdpart_pop_1die#elif__KI ==__LOGIdddedddddd-SUBROUTINE ddddmapdpart_pop_1dl#eVLISTT#elif__DIM == 2T#if__KI ==__SINGLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_pop_2dse#elif__KI ==__DOUBLE_PRECISIONedddddd-SUBROUTINE ddddmapdpart_pop_2dde#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpart_pop_2dsce#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpart_pop_2ddce#elif__KI ==__INTEGERedddddd-SUBROUTINE ddddmapdpart_pop_2die#elif__KI ==__LOGIdddedddddd-SUBROUTINE ddddmapdpart_pop_2dl#eVLIST#eVLISTlibddd-1.2/src/map/ddddmapdpart_push.f000644 000765 000024 00000211606 11445666062 020211 0ustar00omarstaff000000 000000 dddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddmapdpart_pushT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! Center for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistribute it and/or moLISyedddddd! it under the terms of the GNU Lesser General Public License e! as published by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distributed=in the hope that it will be useful,edddddd! but WITHOUT ANY WARRANTY; without even the implied=warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General Public License for more details.edddddd!edddddd! You should have received a copy of the GNU General Public Licensee! and the GNU Lesser General Public License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee#if__DIM == 1T#if__KI ==__SINGLE_PRECISIONedd=SUBROUTINE ddddmapdpart_push_1ds(pdata,Npart,info,pushpp)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmapdpart_push_1dd(pdata,Npart,info,pushpp)e#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmapdpart_push_1dsc(pdata,Npart,info,pushpp)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmapdpart_push_1ddc(pdata,Npart,info,pushpp)e#elif__KI ==__INTEGEReddddddSUBROUTINE ddddmapdpart_push_1di(pdata,Npart,info,pushpp)e#elif__KI ==__LOGIdddeddddddSUBROUTINE ddddmapdpart_push_1dl(pdata,Npart,info,pushpp)e#eVLIST#elif__DIM == 2T#if__KI ==__SINGLE_PRECISIONedd=SUBROUTINE ddddmapdpart_push_2ds(pdata,lda,Npart,info,pushpp)e#elif__KI ==__DOUBLE_PRECISIONeddddddSUBROUTINE ddddmapdpart_push_2dd(pdata,lda,Npart,info,pushpp)e#elif__KI ==__SINGLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmapdpart_push_2dsc(pdata,lda,Npart,info,pushpp)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXeddddddSUBROUTINE ddddmapdpart_push_2ddc(pdata,lda,Npart,info,pushpp)e#elif__KI ==__INTEGEReddddddSUBROUTINE ddddmapdpart_push_2di(pdata,lda,Npart,info,pushpp)e#elif__KI ==__LOGIdddeddddddSUBROUTINE ddddmapdpart_push_2dl(pdata,lda,Npart,info,pushpp)e#eVLIST#eVLIST!!! This routinepushes particle data onto the send =d FA-.T!!!T!!! [NOTE]T!!! The first part of the =d FA- contains the on processor data.T!!! The packing could be performed more efficiently.T!!!T!!! [WARNING]T!!! DIM is the dimension of the pdata array and not the spaceT!!! dimension dddddim!T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! IncludesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "dddddefine.h"eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modules T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_substartTd__KIUSE ddddmodule_substopTd__KIUSE ddddmodule_errored__KIUSE ddddmodule_allocnd__KIIMPLICIT NONET#if__KI ==__SINGLE_PRECISION |__KI ==__SINGLE_PRECISION_COMPLEXeddddddINTEGER, PARAMETER :: MK =dddddddddsinglee#elseeddddddINTEGER, PARAMETER :: MK =ddddddddddo4,le#eVLIST!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ArgumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#if__DIM == 1e#if__KI ==__INTEGEReddddddINTEGER , DIMENSION(: ), INTENT(INddd)dddd:: pdatae#elif__KI ==__LOGIdddeddddddLOGIddd , DIMENSION(: ), INTENT(INddd)dddd:: pdatae#elif__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXeddddddCOMPLEX(MK), DIMENSION(: ), INTENT(INddd)d:: pdatae#elseeddddddREAL(MK), DIMENSION(: ), INTENT(INddd)dddd:: pdatae#eVLISTT#elif__DIM == 2T#if__KI ==__INTEGEReddddddINTEGER , DIMENSION(:,:), INTENT(INddd)dddd:: pdatae#elif__KI ==__LOGIdddeddddddLOGIddd , DIMENSION(:,:), INTENT(INddd)dddd:: pdatae#elif__KI ==__SINGLE_PRECISION_COMPLEX |\e__KI ==__DOUBLE_PRECISION_COMPLEXeddddddCOMPLEX(MK), DIMENSION(:,:), INTENT(INddd)d:: pdatae#elseeddddddREAL(MK), DIMENSION(:,:), INTENT(INddd)dddd:: pdatae#eVLIST#eVLIST!!! Particle data.T!!! Can be either 1D or 2D array.e#if__DIM == 2eINTEGER , INTENT(INddd)dddd:: ldaT!!! The leading dimension of the pdata.T#eVLISTINTEGER , INTENT(INddd)dddd:: NpartTd__KI!!! Number of particlesTINTEGER , INTENT( OUT)dddd:: infoTd__KI!!! Returns 0 upon successeddddddLOGIddd, OPTIONdd , INTENT(INddd)dddd:: pushppTd__KI!!! If `TRUE` then pdata is assumed to contain the particle positionsTd__KI!!! (xp)T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variables T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER, DIMENSION(3)d:: lduTINTEGER :: i,j,k,ipart,i=d FA-,icountTINTEGER :: iopt,ldb,increddddddREAL(MK) :: t0eddddddLOGIddd :: lpushppT#if__DIM == 1eINTEGER, PARAMETER dd:: lda = 1e#eVLIST!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externals T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Initialise e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddmapdpart_push',t0,info)eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT.d0)j)lSand__KIdddL checknd__KII __info .NE. 0)jGOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! The default is that we do not push the particle positionsTd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __PRESENT(pushpp))j)lSand__KI=lpushpp =dushppTd__KI-)dded__KI=lpushpp =.FA)dd.nd__KI--y eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Increment the =d FA- set T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddd=d FA-_set =dddd=d FA-_set + 1eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for the =d FA- dimension and typeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_grow_preserveTldu(1) =dddd=d FA-_setedddL pdddalloc_dddd=d FA-_dim ,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KI==info =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'ddddmapdpart_push',== :ff :,:(:='=d FA- dimensions PPM_BUFFER_DIM',__LINE__,info)eddddddd__KGOTO 9999edddddd--yedddL pdddalloc_dddd=d FA-_type,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KI==info =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'ddddmapdpart_push',== :ff :,:(:='=d FA- types PPM_BUFFER_TYPE',__LINE__,info)eddddddd__KGOTO 9999edddddd--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! A complex number is treated=as two reals. Cannot change ldaT! because it is INTENT(IN)T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#if__KI ==__SINGLE_PRECISION_COMPLEX |__KI ==__DOUBLE_PRECISION_COMPLEXeddddddldb =2*ldaT#elseeddddddldb =ldaT#eVLIS eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the dimension and typeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddd=d FA-_dim_dddd=d FA-_set) =ldbT#if__KI ==__SINGLE_PRECISION |__KI ==__SINGLE_PRECISION_COMPLEXedddddddddd=d FA-_type_dddd=d FA-_set) =dddddddddsinglee#elif__KI ==__DOUBLE_PRECISION |__KI ==__DOUBLE_PRECISION_COMPLEXedddddddddd=d FA-_type_dddd=d FA-_set) =ddddddddddo4,le#elif__KI ==__INTEGERedddddddddd=d FA-_type_dddd=d FA-_set) =ddddintegere#elif__KI ==__LOGIdddedddddddddd=d FA-_type_dddd=d FA-_set) =ddddlogical#eVLISTT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! loop over the processors=in the ddddisendlist() T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLei=d FA- =dddddnsend=d FA-TT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! DOUBLE PRECISION BUFFERT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddddd.EQ.pdddddddddo4,le)j)lSand__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! (Re)allocate memory for the =d FA- nd__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=incr =d0 nd__KI=yepi=1,ddddnsendlisteddddddd__K=incr =dincr +__ddddpsend=d FA-(i+1)-ddddpsend=d FA-(i))*ldbTdddd__K=-d_=d__Kldu(1) =dddddnsend=d FA- +_incredddddd iopt =ddddparam_alloc_grow_preserveT dddL pdddalloc_ddddsend=d FA-d,ldu,iopt,info)eddddddd__I __info .NE. 0)j)lSand__KI===info =dddderrordfatalnd__KI== ==dddL pddderror(pddderrdalloc,'ddddmapdpart_push',== :ff :,:(:===='global send =d FA- PPM_SENDBUFFERD',__LINE__,info)eddddddd__KKKKGOTO 9999edddddd dd--yeT=yepi=1,ddddnsendlisteddddddd__K=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! access the particles belonging to the i-th processor in the eddddddd__K=! sendlisteddddddd__K=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Store the particle data in the =d FA-Tddddddd__K=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dee#if__DIM == 2e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=1e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=I __lda .EQ. 1)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==!KKGet the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =ddata(1,ipart)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(1,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=2e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)ddI __lda .EQ. 2)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==!KKGet the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =ddata(1,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(2,ipart)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(2,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(2,ipart)),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(1,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(2,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(2,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(2,ipart),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(2,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=3e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)ddI __lda .EQ. 3)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==!KKGet the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =ddata(1,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(2,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(3,ipart)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(2,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(2,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(3,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(3,ipart)),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(1,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(2,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(2,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(3,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(3,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(2,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(3,ipart),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(2,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(3,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=4e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)ddI __lda .EQ. 4)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==!KKGet the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =ddata(1,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(2,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(3,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(4,ipart)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(2,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(2,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(3,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(3,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(4,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(4,ipart)),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(1,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(2,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(2,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(3,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(3,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(4,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(4,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(2,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(3,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(4,ipart),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(2,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(3,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(4,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=5e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)ddI __lda .EQ. 5)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==!KKGet the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(5,ipart), :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-d(i=d FA-) =ddata(1,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(2,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(3,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(4,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =ddata(5,ipart)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(2,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(2,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(3,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(3,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(4,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(4,ipart)),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(5,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(5,ipart)),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(1,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(1,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(2,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(2,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(3,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(3,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(4,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(4,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(5,ipart),ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(5,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(1,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(2,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(3,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(4,ipart),= :ff :,:(:=== ddddddddddo4,le)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-d(i=d FA-) =REAL(ddata(5,ipart),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKIi=d FA- =di=d FA- + 1edd====== =I __ddata(2,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKI===i=d FA- =di=d FA- + 1edd====== =I __ddata(3,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(4,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(5,ipart))j)lSand__KI====== =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== =-)dded__KI====== =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Not unrolled for the rest. Vector length will be lda!!TK =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)dded__KI====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==!KKGet the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddddddipart =dddd=d FA-2part(j)eddddddd__KI= Iyepk=1,ldaTdddi=d FA- =di=d FA- + 1e#if__KI ==__SINGLE_PRECISIONedd====== = =pdddsend=d FA-d(i=d FA-) =REAL(ddata(k,ipart), :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISIONedd====== = =pdddsend=d FA-d(i=d FA-) =ddata(k,ipart)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== = =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(k,ipart),ddddddddddo4,le)eddddddd__KI= I =i=d FA- =di=d FA- + 1edd====== = =pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(k,ipart)),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== = =pdddsend=d FA-d(i=d FA-) = :ff :,:(:=== REAL(ddata(k,ipart),ddddddddddo4,le)eddddddd__KI= I =i=d FA- =di=d FA- + 1edd====== = =pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(k,ipart))n#elif__KI ==__INTEGERedddddd==== = =pdddsend=d FA-d(i=d FA-) =REAL(ddata(k,ipart),= :ff :,:(:=== ddddddddddo4,le)e#elif__KI ==__LOGIdddeddddddddddddddd dd =I __ddata(k,ipart))j)lSand__KI====== = =pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI====== = =-)dded__KI====== = =pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI====== = =--ye#eVLIST====== = =-d_=d__K = =-d_=d__K =--ye#elif__DIM == 1e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Scalar versione==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).edddddddddddd!KKGet the particle id eddddddd__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).eddddddddddddipart =dddd=d FA-2part(j)eddddddd__KI=i=d FA- =di=d FA- + 1e#if__KI ==__SINGLE_PRECISIONedd======pdddsend=d FA-d(i=d FA-) =REAL(ddata(ipart),ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISIONedd======pdddsend=d FA-d(i=d FA-) =ddata(ipart)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdddsend=d FA-d(i=d FA-) =REAL(ddata(ipart),ddddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1edddddd====pdddsend=d FA-d(i=d FA-) =REAL(AIMAG(ddata(ipart)),= :ff :,:(:===ddddddddddo4,le)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdddsend=d FA-d(i=d FA-) =REAL(ddata(ipart),ddddddddddo4,le)eddddddd__KI=i=d FA- =di=d FA- + 1edddddd====pdddsend=d FA-d(i=d FA-) =AIMAG(ddata(ipart))n#elif__KI ==__INTEGERedddddd====pdddsend=d FA-d(i=d FA-) =REAL(ddata(ipart),ddddddddddo4,le)e#elif__KI ==__LOGIdddedddddddddddddddI __ddata(ipart))j)lSand__KI======pdddsend=d FA-d(i=d FA-) =1.0_pdddddddddo4,leKI======-)dded__KI======pdddsend=d FA-d(i=d FA-) =0.0_pdddddddddo4,leKI======--ye#eVLIST======-#eVLIST====-_KI======!pi=1,ddddnsendlistedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! SINGLE PRECISION BUFFERT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe-)dded__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! (Re)allocate memory for the =d FA- nd__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=incr =d0 nd__KI=yepi=1,ddddnsendlisteddddddd_=incr =dincr +__ddddpsend=d FA-(i+1)-ddddpsend=d FA-(i))*ldbTdddd__K=-d_=d__Kldu(1) =dddddnsend=d FA- +_incredddddd iopt =ddddparam_alloc_grow_preserveT dddL pdddalloc_ddddsend=d FA-s,ldu,iopt,info)eddddddd__I __info .NE. 0)j)lSand__KI===info =dddderrordfatalnd__KI== ==dddL pddderror(pddderrdalloc,'ddddmapdpart_push',== :ff :,:(:===='global send =d FA- PPM_SENDBUFFERS',__LINE__,info)eddddddd__KKKKGOTO 9999edddddd dd--yeT=yepi=1,ddddnsendlisteddddddd__K=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! access the particles belonging to the i-th processor in the eddddddd__K=! sendlisteddddddd__K=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Store the particle data in the =d FA-Tddddddd__K=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dee#if__DIM == 2e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=1e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=I __lda .EQ. 1)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==!KKGet the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =ddata(1,ipart)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(1,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=2e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)ddI __lda .EQ. 2)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kV,vp,). De-s kVL,). Deeddddddd__K=d__K=! Get the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =ddata(1,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =ddata(2,ipart)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(2,ipart)),= :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(1,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(2,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(2,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=3e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)ddI __lda .EQ. 3)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s. Deeddddddd__K=d__K=! Get the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =ddata(1,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =ddata(2,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =ddata(3,ipart)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(2,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(3,ipart)),= :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(1,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(2,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(3,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(2,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(3,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=4e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)ddI __lda .EQ. 4)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s. Deeddddddd__K=d__K=! Get the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =ddata(1,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =ddata(2,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =ddata(3,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-s(i=d FA-) =ddata(4,ipart)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(2,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(3,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(4,ipart)),= :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(1,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(2,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(3,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(4,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(2,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(3,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(4,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Unrolled for lda=5e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)ddI __lda .EQ. 5)j)lSand__KI=====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s. Deeddddddd__K=d__K=! Get the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Ii=d FA- =di=d FA- + 1e#if__KI ==__DOUBLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(5,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISIONedd====== =pdddsend=d FA-s(i=d FA-) =ddata(1,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =ddata(2,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =ddata(3,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-s(i=d FA-) =ddata(4,ipart)eddddddd__KI= Ii=d FA- =di=d FA- + 1edd====== =pdddsend=d FA-s(i=d FA-) =ddata(5,ipart)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(1,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(2,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(3,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(4,ipart)),= :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(5,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(5,ipart)),= :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(1,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(2,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(3,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(4,ipart))nddddddd__KI= Ii=d FA- =di=d FA- + 1eddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(5,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddddd==== =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(5,ipart))n#elif__KI ==__INTEGERedddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(1,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(2,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(3,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1edddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(4,ipart), :ff :,:(:=== dddddddddsingle)eddddddd__KI= Ii=d FA- =di=d FA- + 1eddddd==== =pdddsend=d FA-s(i=d FA-) =REAL(ddata(5,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__LOGIdddeddddddddddddddd ddI __ddata(1,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(2,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(3,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(4,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--yeKI====== =i=d FA- =di=d FA- + 1edd====== =I __ddata(5,ipart))j)lSand__KI====== =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== =-)dded__KI====== =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== =--ye#eVLIST====== =-d_=d__K =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Not unrolled. Vector length will be lda !!TK =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=-)dded__KI====yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddddddddddd_K=! Get the particle id eddddddd__KI===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddd==ipart =dddd=d FA-2part(j)eddddddd__KI= Iyepk=1,ldaTdddi=d FA- =di=d FA- + 1e#if__KI ==__DOUBLE_PRECISIONedd====== = =pdddsend=d FA-s(i=d FA-) =REAL(ddata(k,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISIONedd====== = =pdddsend=d FA-s(i=d FA-) =ddata(k,ipart)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd==== = =pdddsend=d FA-s(i=d FA-) =REAL(ddata(k,ipart), :ff :,:(:=== dddddddddsingle)edddi=d FA- =di=d FA- + 1edddddd==== = =pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(k,ipart)),= :ff :,:(:=== dddddddddsingle)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd==== = =pdddsend=d FA-s(i=d FA-) =REAL(ddata(k,ipart), :ff :,:(:=== dddddddddsingle)edddi=d FA- =di=d FA- + 1edddddd==== = =pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(k,ipart))n#elif__KI ==__INTEGERedddddd==== = =pdddsend=d FA-s(i=d FA-) =REAL(ddata(k,ipart), :ff :,:(:=== dddddddddsingle)e#elif__KI ==__LOGIdddeddddddddddddddd dd =I __ddata(k,ipart))j)lSand__KI====== = =pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI====== = =-)dded__KI====== = =pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI====== = =--ye#eVLIST====== = =-d_=d__K = =-d_=d__K =--ye#elif__DIM == 1e==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=! Scalar versione==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deeddddddd__K=yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).edddddddddddd!KKGet the particle id eddddddd__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).eddddddddddddipart =dddd=d FA-2part(j)eddddddd__KI=i=d FA- =di=d FA- + 1e#if__KI ==__DOUBLE_PRECISIONedd======pdddsend=d FA-s(i=d FA-) =REAL(ddata(ipart),dddddddddsingle)e#elif__KI ==__SINGLE_PRECISIONedd======pdddsend=d FA-s(i=d FA-) =ddata(ipart)e#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd====pdddsend=d FA-s(i=d FA-) =REAL(ddata(ipart),dddddddddsingle)eddddddd__KI=i=d FA- =di=d FA- + 1edddddd====pdddsend=d FA-s(i=d FA-) =REAL(AIMAG(ddata(ipart)),= :ff :,:(:===dddddddddsingle)e#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd====pdddsend=d FA-s(i=d FA-) =REAL(ddata(ipart),dddddddddsingle)eddddddd__KI=i=d FA- =di=d FA- + 1edddddd====pdddsend=d FA-s(i=d FA-) =AIMAG(ddata(ipart))n#elif__KI ==__INTEGERedddddd====pdddsend=d FA-s(i=d FA-) =REAL(ddata(ipart),dddddddddsingle)e#elif__KI ==__LOGIdddedddddddddddddddI __ddata(ipart))j)lSand__KI======pdddsend=d FA-s(i=d FA-) =1.0_pddddddddsingleeKI======-)dded__KI======pdddsend=d FA-s(i=d FA-) =0.0_pddddddddsingleeKI======--ye#eVLIST======-#eVLIST====-_KI==!pi=1,ddddnsendlistedddddd--y_KI==!ppdddddddeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! If we are pushing particle positions (iflpushpp is true) we need toe! add the offset to the particles; pushing the particles can only occure! for 2D arrays in single or do4,le precions: xp is USUALLY stored ase! xp(1:pddddim,1:Npart)edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __lpushpp)j)lSand__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=! the particle positions are pA- construction (by a call to ghost_get) nd__KI=! ALWAYS stored from=i=d FA- =d1 to nsend=d FA-(2) -d1 and the eddddddd__!=pdddghost_offset is therefore also stored from=1 -dnsend=d FA-(2)-1edddddd! thus icount =d1 and i=d FA- =dddddnsendlist (which has not yet beenedddddd! uddated (see below)nd__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s nd__KI=icount =d0 nd__KI=i=d FA- =dddddnsend=d FA-nd__KI=I __dddddddd.EQ.pdddddddddo4,le)j)lSand__KI==yepi=1,ddddnsendlisteddddddd__K= =I __lda.EQ.2)j)lSand__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddddddddddd_K=! Unrolled for lda=2e======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddddddddddd_K=yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s edddddddddddd====!KKGet the particle idedddddddddddd====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s edddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-d(i=d FA-) =pdddsend=d FA-d(i=d FA-) :ff :,:(:=== +pdddghost_offsetd(icount) nedddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-d(i=d FA-) =pdddsend=d FA-d(i=d FA-) :ff :,:(:=== +pdddghost_offsetd(icount) n -d_=d__K = =-)ddI __lda.EQ.3)j)lSand__KI===== =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddddddddddd_K=! Unrolled for lda=3e======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddddddddddd_K=yepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s edddddddddddd====!KKGet the particle id eddddddd__KI=====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s edddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-d(i=d FA-) =pdddsend=d FA-d(i=d FA-) :ff :,:(:=== +pdddghost_offsetd(icount) nedddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-d(i=d FA-) =pdddsend=d FA-d(i=d FA-) :ff :,:(:=== +pdddghost_offsetd(icount) nedddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-d(i=d FA-) =pdddsend=d FA-d(i=d FA-) :ff :,:(:=== +pdddghost_offsetd(icount) n -d_=d__K = =-I _! end of lda = 3e==-_! enddo of nsendlisteddddddd__-)dd_! =d FA-s are single precision n yepi=1,ddddnsendlisteddddddd__K= =I __lda.EQ.2)j)lSand__KI======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddddddddddd_K=! Unrolled for lda=2e======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddddddddddddddddddyepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s edddddddddddd====!KKGet the particle ideddddddd__KI=====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s edddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-s(i=d FA-) =pdddsend=d FA-s(i=d FA-) :ff :,:(:=== +pdddghost_offsets(icount) nedddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-s(i=d FA-) =pdddsend=d FA-s(i=d FA-) :ff :,:(:=== +pdddghost_offsets(icount) n -d_=d__K = =-)ddI __lda.EQ.3)j)lSand__KI===== =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLeddddddddddd_K=! Unrolled for lda=3e======!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLedddddddddddddddyepj=ddddpsend=d FA-(i),ddddpsend=d FA-(i+1)-1edddddddddddd====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s edddddddddddd====!KKGet the particle id eddddddd__KI=====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s edddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-s(i=d FA-) =pdddsend=d FA-s(i=d FA-) :ff :,:(:=== +pdddghost_offsets(icount) nedddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-s(i=d FA-) =pdddsend=d FA-s(i=d FA-) :ff :,:(:=== +pdddghost_offsets(icount) nedddddddddddd====i=d FA- =di=d FA- + 1edddddd==== = =icount =dicount + 1edd====== = =pdddsend=d FA-s(i=d FA-) =pdddsend=d FA-s(i=d FA-) :ff :,:(:=== +pdddghost_offsets(icount) n -d_=d__K = =-I _! end of lda = 3e==-_! enddo of nsendlisteddddddd__-I _! end of single/do4,le precision =d FA-s = =-I _! end of lpushppeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Uddate the particle =d FA- countT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsend=d FA- =di=d FA-eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Return n !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddmapdpart_push',t0,info)eddddddRETURand__KICONTAINSnd__KISUBROUTINE checke#if__DIM == 2e=I __lda .LT. 1)j)lSand__KI====info =dddderrorderrornd__KI====dddL pddderror(pddderrdargument,'ddddmapdpart_push', :ff :,:(:==='lda must be >0 for vector data',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--ye#elif__DIM == 1e=I __lda .NE. 1)j)lSand__KI====info =dddderrorderrornd__KI====dddL pddderror(pddderrdargument,'ddddmapdpart_push', :ff :,:(:==='lda must be =1 for scalar data',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--ye#eVLIST=====I __Npart .LT. 0)j)lSand__KI====info =dddderrorderrornd__KI====dddL pddderror(pddderrdargument,'ddddmapdpart_push', :ff :,:(:==='Npart must be >=0',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--ye 8888===dONTINUded__KI-SUBROUTINE checke#if__DIM == 1e#if__KI ==__SINGLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_push_1dse#elif__KI ==__DOUBLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_push_1dde#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpart_push_1dsce#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpart_push_1ddce#elif__KI ==__INTEGERedddddd-SUBROUTINE ddddmapdpart_push_1die#elif__KI ==__LOGIdddedddddd-SUBROUTINE ddddmapdpart_push_1dle#eVLISTe#elif__DIM == 2e#if__KI ==__SINGLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_push_2dse#elif__KI ==__DOUBLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_push_2dde#elif__KI ==__SINGLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpart_push_2dsce#elif__KI ==__DOUBLE_PRECISION_COMPLEXedddddd-SUBROUTINE ddddmapdpart_push_2ddce#elif__KI ==__INTEGERedddddd-SUBROUTINE ddddmapdpart_push_2die#elif__KI ==__LOGIdddedddddd-SUBROUTINE ddddmapdpart_push_2dle#eVLIST#eVLISTlibddd-1.2/src/map/ddddmapdpart_remap.f000644 000765 000024 00000013652 11445666062 020337 0ustar00omarstaff000000 000000 dddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddmapdpart_remapT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#if__KI ==__SINGLE_PRECISIONedd=SUBROUTINE ddddmapdpart_remap_s(topoid,xp,Npart,info)e#elif__KI ==__DOUBLE_PRECISIONedd=SUBROUTINE ddddmapdpart_remap_d(topoid,xp,Npart,info)e#eVLIST==!!! This routinemaps the particles onto the given topology.T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! IncludesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "pddddefine.h"eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ModulesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_substarteUSE ddddmodule_substopeUSE ddddmodule_errornd__KIUSE ddddmodule_topo_checked__KIUSE ddddmodule_check_ideddddddIMPLICIT NONEe#if__KI ==__SINGLE_PRECISIONedd=INTEGER, PARAMETER :: MK =dddddddddsinglee#elseeINTEGER, PARAMETER :: MK =ddddddddddo4,lee#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ArgumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK), DIMENSION(:,:) ,INTENT(IN) :: xpT==!!! The position of the particleseINTEGER ,INTENT(IN) :: NpartT==!!! The numbA- of particles (on processor)eINTEGER ,INTENT(IN) :: topoidT==!!! Topology identifiA- of destination topology.TINTEGER ,INTENT( OUT) :: infoT==!!! Returns status, 0 upon successT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variablesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeLOGIddd :: topo_okeREAL(MK) :: t0T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ExternalsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! InitialiseT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddmapdpart_remap',t0,info)eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KIdddL checked__KII __info .NE. 0)jGOTO 9999 = =-I eT! if there is still some data left in the =d FA-, warn the usereI __dddd=d FA-_set .GT. 0)j)lSand__KIinfo =dddderrordwarningnd__KIdddL pddderror(pddderrdmapdincomp,'ddddmapdpart_remap', :ff :,:('Bd FA- was not empty. Possi,le loss of data!',__LINE__,info)edddddd-I eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check if current topology is oke!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL ddddtopo_check(topoid,xp,Npart,topo_ok,info)eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! if topology is ok remap particles otherwise abort remappingnd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI (topo_ok)j)lSand__KI=dddL ddddmapdpart_global(topoid,xp,Npart,info)edddddd-)dded__KI=info =dddderrorderrornd__KI=dddL pddderror(pddderrdtopo_missm,'ddddmapdpart_remap', :ff :,:'Particles are not on current topology. Mapping discarded.', :ff :,:__LINE__,info)eddddddd__GOTO 9999 = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Returne!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddmapdpart_remap',t0,info)ed__KIRETURand__KICONTAINSnd__KISUBROUTINE checkeddddddd__=I __Npart .LE. 0)j)lSand__KI====info =dddderrorderrornd__KI====dddL pddderror(pddderrdargument,'ddddmapdpart_remap', :ff :,:((((((('Npart must be >0',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--ye ====dddL pdddcheck_topoid(topoid,topo_ok,info)eddddddd__=I __.NOT. topo_ok)j)lSand__KI====info =dddderrorderrornd__KI====dddL pddderror(pddderrdargument,'ddddmapdpart_remap', :ff :,:((((((('topoid out of range',__LINE__,info)eddddddd__KKKKKGOTO 8888eddddddd__K--ye 8888===dONTINUded__KI-SUBROUTINE checke#if__KI ==__SINGLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_remap_se#elif__KI ==__DOUBLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_remap_dT#eVLISTlibddd-1.2/src/map/ddddmapdpart_ring_shift.f000644 000765 000024 00000030733 11445666062 021366 0ustar00omarstaff000000 000000 dd=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddmapdpart_ring_shiftT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee#if__KI ==__SINGLE_PRECISIONedd=SUBROUTINE ddddmapdpart_ring_shift_s(xp,lda,Npart,itarget,isource,info)e#elif__KI ==__DOUBLE_PRECISIONedd=SUBROUTINE ddddmapdpart_ring_shift_d(xp,lda,Npart,itarget,isource,info)e#eVLIST==!!! Prepares the send and receive lists and the =d FA-s for seVLIng theT==!!! particle data along the ring.T==!!!T==!!! [NOTE]T==!!! The first part of the =d FA- contains the on processor data.T==!!! In this case all particles will be send to itarget.T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ModulesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_substarteUSE ddddmodule_substopeUSE ddddmodule_errornd__KIUSE ddddmodule_alloceddddddIMPLICIT NONEe#if__KI ==__SINGLE_PRECISIONedd=INTEGER, PARAMETER :: MK =dddddddddsinglee#elseeINTEGER, PARAMETER :: MK =ddddddddddo4,lee#eVLISTT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! IncludesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "pddddefine.h"eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ArgumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK), DIMENSION(:,:),INTENT(IN) :: xpT==!!! Particle coordinateseINTEGER ,INTENT(IN) :: ldaT!!! The leading dimension of xpT==INTEGER ,INTENT(IN) :: NpartT==!!! NumbA- of particlesT==INTEGER ,INTENT(IN) :: itargetT==!!! Processor to send toT==INTEGER ,INTENT(IN) :: isourceT==!!! Processor to receive fromT==INTEGER ,INTENT( OUT) :: infoT==!!! Returns status, 0 upon successT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variablesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER, DIMENSION(1) :: lduT==INTEGER :: iT==INTEGER :: iopt,i=d FA-,iparteREAL(MK) :: t0T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ExternalsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! InitialiseT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddmapdpart_ring_shift',t0,info)eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KIdddL checked__KII __info .NE. 0)jGOTO 9999 = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! If there is still some data left in the =d FA-, warn the usere!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddd=d FA-_set .GT. 0)j)lSand__KIinfo =dddderrordwarningnd__KIdddL pddderror(pddderrdmapdincomp,'ddddmapdpart_ring_shift', :ff :,:((('Bd FA- was not empty. Possi,le loss of data!',__LINE__,info)edddddd-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for the pointA- to the =d FA-; we only need to talke! to 2 processors (includIng this one)edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fiteldu(1) = 3edddL pdddalloc(ddddpsend=d FA-,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdalloc,'ddddmapdpart_ring_shift', :ff :,:((('particle send =d FA- PPM_PS-BUFFER',__LINE__,info)eddddddd__GOTO 9999 = =-I eiopt =ddddparam_alloc_fiteldu(1) = NpartT==dddL pdddalloc(dddd=d FA-2part,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdalloc,'ddddmapdpart_ring_shift', :ff :,:((('=d FA--to-particles map PPM_BUFFER2PART',__LINE__,info)eddddddd__GOTO 9999 = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the numbA- of =d FA- entries (this is the first)edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddd=d FA-_set = 1ee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for the field registA-s that holds the dimension andT! type of the datae!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fiteldu(1) = dddd=d FA-_setT==dddL pdddalloc(dddd=d FA-ddim,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdalloc,'ddddmapdpart_ring_shift', :ff :,:((('=d FA- dimensions PPM_BUFFER_DIM',__LINE__,info)eddddddd__GOTO 9999 = =-I ==dddL pdddalloc(dddd=d FA-dtype,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdalloc,'ddddmapdpart_ring_shift', :ff :,:((('=d FA- types PPM_BUFFER_TYPE',__LINE__,info)eddddddd__GOTO 9999 = =-I edddd=d FA-ddim_dddd=d FA-_set) =ldaTI __dddddddd .EQ.dddddddddsingle)j)lSand__KIdddd=d FA-dtype_dddd=d FA-_set) =dddddddddsinglee = =-)dded__KI=dddd=d FA-dtype_dddd=d FA-_set) =ddddddddddo4,lee = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! (Re)allocate memory for the =d FA-nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fiteldu(1) = lda * NpartT#if__KI ==__SINGLE_PRECISIONedd=dddL pdddalloc(ddddsend=d FA-s,ldu,iopt,info)e#elseedddL pdddalloc(ddddsend=d FA-d,ldu,iopt,info)e#eVLISTTI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdalloc,'ddddmapdpart_ring_shift', :ff :,:((('global send =d FA- PPM_S-BUFFER',__LINE__,info)eddddddd__GOTO 9999 = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for the sendlistedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsendlist = 2eddddnrecvlist = 2eeiopt =ddddparam_alloc_fiteldu(1) = ddddnsendlistedddddddddL pdddalloc(ddddisendlist,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdalloc,'ddddmapdpart_ring_shift', :ff :,:((('send list PPM_IS-LIST',__LINE__,info)eddddddd__GOTO 9999 = =-I eldu(1) = ddddnrecvlistedddddddddL pdddalloc(ddddirecvlist,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdalloc,'ddddmapdpart_ring_shift', :ff :,:((('receive list PPM_IRECVLIST',__LINE__,info)eddddddd__GOTO 9999 = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Fill the send=d FA- with the particles that will stay on thise! processor (no particles will stay because the whole copy hase! to be send to the neighbour)edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddpsend=d FA-(1) = 1eddddpsend=d FA-(2) = 1ee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Set the target and source processoredddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddisendlist(1) = ddddrankeddddisendlist(2) = itargetTeddddirecvlist(1) = ddddrankeddddirecvlist(2) = isourceTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Fill the send=d FA- with the data that will be send awaye!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLei=d FA- =d0T==yepipart =1,NpartT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==! Store the id of the data entityT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==dddd=d FA-2part(ipart) = ipartTT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==! Store the datae!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==yepi =1,ldaTdddi=d FA- =di=d FA- + 1e#if__KI ==__SINGLE_PRECISIONedd====ddddsend=d FA-s(i=d FA-) =xp(i,ipart)e#elseedd====ddddsend=d FA-d(i=d FA-) =xp(i,ipart)e#eVLIST====- ===- e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Everything has to go!edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddpsend=d FA-(3) = Npart + 1ee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the current size of the =d FA-edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsend=d FA- =di=d FA-eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ReturnT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddmapdpart_ring_shift',t0,info)ed__KIRETURand__KICONTAINSnd__KISUBROUTINE checkeddddddd__I __.NOT. ddddinitialized)j)lSand__KI==info =dddderrorderrornd__KI==dddL pddderror(pddderrdddddnoinit,'ddddmapdpart_ring_shift', :ff :,:((( ,:'Please call ddddinit first!',__LINE__,info)eddddddddddddGOTO 8888eddddddd__--ye ===I __lda .LT. 1)j)lSand__KI==info =dddderrordfatalnd__KI=dddL pddderror(pddderrdargument,'ddddmapdpart_ring_shift', :ff :,:((( ,:'LDA must be >0',__LINE__,info)eddddddd__KKKGOTO 8888eddddddd__--ye ===I __Npart .LT. 0)j)lSand__KI==info =dddderrordfatalnd__KI=dddL pddderror(pddderrdargument,'ddddmapdpart_ring_shift', :ff :,:((( ,:'NPART must be >=0',__LINE__,info)eddddddd__KKKGOTO 8888eddddddd__--ye ===I __(itarget .LT. 0)j.OR. (itarget .GE. ddddnproc))j)lSand__KI==info =dddderrordfatalnd__KI=dddL pddderror(pddderrdargument,'ddddmapdpart_ring_shift',f:ff :,:((( ,:'ITARGET must be >=0 and smaller than the numbA- processors',:ff :,:((( ,:__LINE__,info)eddddddd__KKKGOTO 8888eddddddd__--ye ===I __(isource .LT. 0)j.OR. (isource .GE. ddddnproc))j)lSand__KI==info =dddderrordfatalnd__KI=dddL pddderror(pddderrdargument,'ddddmapdpart_ring_shift',f:ff :,:((( ,:'ISOURCE must be >=0 and smaller than the numbA- processors',:ff :,:((( ,:__LINE__,info)eddddddd__KKKGOTO 8888eddddddd__--ye 8888===dONTINUded__KI-SUBROUTINE checke#if__KI ==__SINGLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_ring_shift_se#elif__KI ==__DOUBLE_PRECISIONedd=-SUBROUTINE ddddmapdpart_ring_shift_dT#eVLISTlibddd-1.2/src/map/ddddmapdpart_send.f000644 000765 000024 00000067117 11445666062 020171 0ustar00omarstaff000000 000000 dd=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddmapdpart_sendT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeeSUBROUTINE ddddmapdpart_send_Npart,Mpart,info)edddddd!!! This routineperforms the actual send/recv of the particles and alledddddd!!! pushed data.T==!!!edddddd!!! [NOTE]T==!!! The first part of the =d FA- contains the on processor data. Theedddddd!!! packing could beperformed more efficiently.T==!!!edddddd!!! [NOTE]T==!!! The two send/recv of the intAgA-s should be combined into oneT==!!! send/receiveeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modules n !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_substarteUSE ddddmodule_substopeUSE ddddmodule_errornd__KIUSE ddddmodule_alloceddddddUSE ddddmodule_writeeIMPLICIT NONEe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! IncludesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "pddddefine.h"e#ifdef__MPIeINCLUDE 'mpif.h'T#eVLIS n !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Argumentsn !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER ,INTENT(IN) :: NpartT==!!! The old numbA- of particles on the processoreddddddINTEGER ,INTENT( OUT) :: MpartT==!!! The new numbA- of particles on processor after the send/recveddddddINTEGER ,INTENT( OUT) :: infoT==!!! Return status, 0 upon successT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variablesn !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER, DIMENSION(3) :: ldl,lduT==INTEGER :: i,j,k,idom,n=d FA-,i=d FA-,j=d FA-,bdim,sbdimT==INTEGER :: iopt,count,tag1,qpart,msend,mrecveddddddINTEGER :: npart_send,npart_recveddddddCHARACTER(pdddchar) :: mesgnd__KIREAL(ddddddddddo4,le) :: t0T#ifdef__MPIeINTEGER, DIMENSION(MPI_STATUS_SIZE) :: statuse#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externalsn !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Initialisee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddmapdpart_send',t0,info)eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 3)j)lSand__KIdddL checked__KII __info .NE. 0)jGOTO 9999 = =-I e! skip if the =d FA- is emptyeI __dddd=d FA-_set .LT. 1)j)lSand__KII __dddddebug .GT. 1)j)lSand__KI==dddL pdddwrite(ddddrank,'ddddmapdpart_send',f:ff :,:((( ,'Bd FA- is empty: skipping send!',info)eddddddd_--ye ==GOTO 9999 = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocatee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_groweldu(1) = MAX(ddddnsendlist,1)eddddddI __(ddddnsendlist.NE.olddnsendlist)j.OR. f:ff :,_.NOT.ASSOCIATED(nsend)))j)lSand__KIolddnsendlist = ddddnsendlistedddddddddL pdddalloc(nsend,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((('send countA- NS-',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==dddL pdddalloc(nrecv,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((('receive countA- NRECV',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==dddL pdddalloc(psend,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((('particle send countA- PS-',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==dddL pdddalloc(precv,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((('particle receive countA- PRECV',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==ldu(2) = dddd=d FA-_set ==dddL pdddalloc(pp,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((('work =d FA- PP',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==dddL pdddalloc(qq,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((('work =d FA- QQ',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==-I ==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Count the total size of the =d FA- dimensions e! It is handy... simplifies many summations, avoids loops, etc... ==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLesbdim =d0T==yepj=1,dddd=d FA-_setT==sbdim =dsbdim +dddd=d FA-ddim_j)edddddd- ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Count the size of the =d FA- that will NOT be sentedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeqpart =d(ddddpsend=d FA-(2) -ddddpsend=d FA-(1))eddddddi=d FA- =dsbdim*qpartTT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Initialize the countA- for the total set of new particles e!JHW 20060928dddddI __ddddmapdtype.EQ.ddddparam_mapdghost_get) )lSand__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __ddddmapdtype.EQ.ddddparam_mapdghost_get.OR. &eddddddd__Kddddmapdtype.EQ.ddddparam_mapdghost_put)j)lSand__KIMpart =qpart + NpartT==-)dded__KI=Mpart =qpart = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Count the size of the =d FA- that WIdL be sentedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnrecv=d FA- =di=d FA-ensend(1) =di=d FA-enrecv(1) =di=d FA-epsend(1) =dqpart = =precv(1) =dqpart = =mrecvddddddd__K =d-1eddddddmsendddddddd__K =d-1eT==yepk=2,ddddnsendlisteed__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==! The numbA- of particles send off to the k-th processor in the T==! sendlisteddddddd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==qpart =d(ddddpsend=d FA-(k+1) -ddddpsend=d FA-(k))TT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==! Store the numbA- of particles to sendT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==psend(k) =qpart ! store the numbA- of particles to send TT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==! Store the size of the data to be sendT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==nsend(k) =sbdim*qpartTT#ifdef__MPIe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==! Make a send/recv of the numbA- of particles and data size to that T==! has to be send/recvedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==! The following I _is needed in ordA- to skip "dummy"T==! communication rounds where the current processor has to waiteddddddd__! (only needed in the partial mapping).edddddd I __ddddisendlist(k) .GE. 0 .AND.ddddirecvlist(k) .GE. 0)j)lSand__KI===tag1 =100nd__KI===I __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(A,I5,2(A,I9))')('sendIng to ',f :ff :,:((((((( ddddisendlist(k),',nsend=',nsend(k),',psend=',psend(k)nd__KI==dddL pdddwrite(ddddrank,'ddddmapdpart_send',mesg,info)eddddddd__KKKK--ye ====dddL MPI_SendRecv(psend(k),1,MPI_INTEGER,ddddisendlist(k),tag1, :ff :,:((((((( ((((((( drecv(k),1,MPI_INTEGER,ddddirecvlist(k),tag1, :ff :,:((((((( ((((((( ddddcomm,status,info)eddddde ====! Compdte nrecv(k) fromdrecv(k)e ====nrecv(k) =sbdim*drecv(k)end__KI===I __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(A,I5,2(A,I9))')('received from',f :ff :,:((((((( ddddirecvlist(k),',nrecv=',nrecv(k),',precv=',drecv(k)e ====dddL pdddwrite(ddddrank,'ddddmapdpart_send',mesg,info)eddddddd__KKKK--ye ===-)dded__KI==! skip this round, i.e. neither send nor receive anyed__KI==! particles.e ====nrecv(k) =0nd__KI===precv(k) =0nd__KI=--ye#eVLISTedddddd- ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s e! Find the required (maximum) size of the send/recv =d FA-s ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s eyepk=2,ddddnsendlisted__KI=I __mrecv.LE.nrecv(k))mrecvd=nrecv(k)edddddd- ===yepk=2,ddddnsendlisted__KI=I __msend.LE.nsend(k))dmsendd=nsend(k)edddddd- ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s e! Increment the total receive =d FA-edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s ===yepk=2,ddddnsendlisted__KI=ddddnrecv=d FA- =dddddnrecv=d FA- +nrecv(k)edddddd- ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s e! Increment the total numbA- of particle to receiveedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s ===yepk=2,ddddnsendlisted__KI=Mpart ==Mpart +drecv(k)e ==- ===I __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(2(A,I9))')('mrecv=',mrecv,',msend=',msendT==dddL pdddwrite(ddddrank,'ddddmapdpart_send',mesg,info)eddddddd__KWRITE(mesg,'(A,I9)')('ddddnrecv=d FA-=',ddddnrecv=d FA-T==dddL pdddwrite(ddddrank,'ddddmapdpart_send',mesg,info)eddddddd__KWRITE(mesg,'(A,I9)')('Mpart=',MpartT==dddL pdddwrite(ddddrank,'ddddmapdpart_send',mesg,info)edddddd-I eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate the memory for the copy of the particle =d FA-nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_groweldu(1) = ddddnrecv=d FA- ===I __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=dddL ddddalloc(ddddrecv=d FA-d,ldu,iopt,info)edddddd-)dded__KI=dddL ddddalloc(ddddrecv=d FA-s,ldu,iopt,info)edddddd-I ===I __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((('global receive =d FA- PPM_RECVBUFFER',__LINE__,info)eddddddd___GOTO 9999 = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for the smaller send and receive =d FA-nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! only allocate if there actually is anything to be sent/recvd withe! other processors. Otherwise mrecvdand msenddwould both still be -1edddddd! (as initialized above) and the allocdwould throw a FATAL. This wase! Bug ID 000012. ===I __ddddnsendlist .GT. 1)j)lSand__KI==iopt =ddddparam_alloc_groweldu(1) = MAX(mrecv,1)eddddddd___I __dddddddd.EQ.ddddddddddo4,le) )lSand__KI==dddL ddddalloc(recvd,ldu,iopt,info)edddddd =-)dded__KI==dddL ddddalloc(recvs,ldu,iopt,info)edddddd =-I eddddddd___I __info .NE. 0)j)lSand__KI==info =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((((((('local receive =d FA- RECV',__LINE__,info)eddddddd__KKKKKGOTO 9999 = = =-I eldu(1) = MAX(msend,1)eddddddd___I __dddddddd.EQ.ddddddddddo4,le) )lSand__KI==dddL ddddalloc(sendd,ldu,iopt,info)edddddd =-)dded__KI==dddL ddddalloc(sends,ldu,iopt,info)edddddd =-I eddddddd___I __info .NE. 0)j)lSand__KI==info =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((((((('local send =d FA- S-',__LINE__,info)eddddddd__KKKKKGOTO 9999 = = =-I = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Debugging print of the numbA- of sets in the =d FA-e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(A,I9)')('dddd=d FA-_set=',dddd=d FA-_setT==dddL pdddwrite(ddddrank,'ddddmapdpart_send',mesg,info)edddddd-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Compdte the total numbA- of particles to send T! As it is now, this should be equal to NpartT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLenpart_send =d0T==yepj=1,ddddnsendlisted__KI=npart_send =dnpart_send +psend(j)edddddd- e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Compdte the pointA- to the position of the data in the main send T! =d FA- ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeyepk=1,dddd=d FA-_setT==I __k.EQ.1)j)lSand__KI==qq(1,k) = 1e =-)dded__KI==qq(1,k) = qq(1,k-1)j+dnpart_send*dddd=d FA-ddim_k-1)nd__KI=--yed__KI=bdim =ddddd=d FA-ddim_k)nd__KI=yepj=2,ddddnsendlisted__KI==qq(j,k) = qq(j-1,k) +psend(j-1)*bdimT===I __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(A,I9)')('qq(j,k)=',qq(j,k)nd__KI==dddL pdddwrite(ddddrank,'ddddmapdpart_send',mesg,info)eddddddd__KKK--ye ===- ===- ee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Compdte the total numbA- of particles to receiveedddddd! As it is now, this should be equal to MpartT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLenpart_recvd=0T==yepj=1,ddddnsendlisted__KI=npart_recvd=npart_recvd+drecv(j)edddddd- e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Compdte the pointA- to the position of the data in the main receive T! =d FA- ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeyepk=1,dddd=d FA-_setT==I __k.EQ.1)j)lSand__KI==pp(1,k) = 1 e =-)dded__KI==pp(1,k) = pp(1,k-1)j+dnpart_recv*dddd=d FA-ddim_k-1)nd__KI=--yed__KI=bdim =ddddd=d FA-ddim_k)nd__KI=yepj=2,ddddnsendlisted__KI==pp(j,k) = pp(j-1,k) +precv(j-1)*bdimT===I __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(A,I9)')('pp(j,k)=',dd(j,k)nd__KI==dddL pdddwrite(ddddrank,'ddddmapdpart_send',mesg,info)eddddddd__KKKWRITE(mesg,'(A,I9,A,I4)')('precv(j-1)=',drecv(j-1),',bdim=',bdimT===dddL pdddwrite(ddddrank,'ddddmapdpart_send',mesg,info)eddddddd__KKK--ye ===- ===- e===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! First copy the on processor data - which is in the first =d FA-e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=yepk=1,dddd=d FA-_setT== ddi=d FA- =dpp(1,k) - 1e =j=d FA- =dqq(1,k) - 1e =yepj=1,dsend(1)*dddd=d FA-ddim_k)eddddddd__KKKi=d FA- =di=d FA- + 1e j=d FA- =dj=d FA- + 1e ddddrecv=d FA-d(i=d FA-) =ddddsend=d FA-d(j=d FA-)eddddddd__KKK-yep dddd__KKK-yep dddd__-)dded__KI=yepk=1,dddd=d FA-_setT== ddi=d FA- =dpp(1,k) - 1e =j=d FA- =dqq(1,k) - 1e =yepj=1,dsend(1)*dddd=d FA-ddim_k)eddddddd__KKKi=d FA- =di=d FA- + 1e j=d FA- =dj=d FA- + 1e ddddrecv=d FA-s(i=d FA-) =ddddsend=d FA-s(j=d FA-)eddddddd__KKK-yep dddd__KKK-yep dddd__-I ee===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! loop over the processors in the pdddisendlist(); skip the first entryedddddd! which is the local processoredddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddddd.EQ.ddddddddddo4,le) )lSand__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==! For each send/recv nd__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==yepk=2,ddddnsendlisted__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deed__KI==! Collect each data type (xp, vp, etc)ed__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deed__KI==i=d FA- =d0T===yepj=1,dddd=d FA-_setT==j=d FA- =dqq(k,j) - 1e ==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).e ==! Collect the data into the send =d FA-e ==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).e ==yepi=1,dsend(k)*dddd=d FA-ddim_j)eddddddd__KKKi=d FA- =di=d FA- + 1e j=d FA- =dj=d FA- + 1e sendd(i=d FA-) =ddddsend=d FA-d(j=d FA-)eddddddd__KKK KK-yep dddd__KKK KK-yep ed__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deed__KI==! Perform the actual send/recved__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dee#ifdef__MPIe ! The following I _is needed in ordA- to skip "dummy"T== ! communication rounds where the current processor has to waiteddddddd__ __! (only needed in the partial mapping).edddddd I __ddddisendlist(k) .GE. 0 .AND.ddddirecvlist(k) .GE. 0)j)lSand__KI=== =tag1 =300nd__KI=== dddL MPI_SendRecv( :ff :,:((((((( sendd,nsend(k),ddddmpiddddd,ddddisendlist(k),tag1, :ff :,:((((((( recvd,nrecv(k),ddddmpiddddd,ddddirecvlist(k),tag1, :ff :,:((((((( ddddcomm,status,info)edddddddddddd--ye#elseedd====recvd = sendde#eVLIST==== =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deed__KI==! Store the data back in the recv =d FA-ed__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deed__KI==i=d FA- =d0T===yepj=1,dddd=d FA-_setT==j=d FA- =dpp(k,j) - 1e ==yepi=1,drecv(k)*dddd=d FA-ddim_j)eddddddd__KKKi=d FA- =di=d FA- + 1e j=d FA- =dj=d FA- + 1e ddddrecv=d FA-d(j=d FA-) =recvd(i=d FA-)eddddddd__KKK KK-yep dddd__KKK KK-yep d__KKK KK-ye dddd__-)dded__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==! For each send/recv nd__KI=!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s T==yepk=2,ddddnsendlisted__KI==!dd4,BOIe)0=dddddddddddDe-s kVL ERp,vp,). De-s kVL,). De-s T== =! Collect each data type (xp, vp, etc)ed__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deed__KI==i=d FA- =d0T===yepj=1,dddd=d FA-_setT==j=d FA- =dqq(k,j) - 1 T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).e ==! Collect the data into the send =d FA-e ==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).e ==yepi=1,dsend(k)*dddd=d FA-ddim_j)eddddddd__KI==i=d FA- =di=d FA- + 1e j=d FA- =dj=d FA- + 1e sends(i=d FA-) =ddddsend=d FA-s(j=d FA-)eddddddd__KKK KK-yep dddd__KKK KK-yep ed__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deed__KI==! Perform the actual send/recved__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Dee#ifdef__MPIe ! The following I _is needed in ordA- to skip "dummy"T== ! communication rounds where the current processor has to waiteddddddd__ __! (only needed in the partial mapping).edddddd I __ddddisendlist(k) .GE. 0 .AND.ddddirecvlist(k) .GE. 0)j)lSand__KI=== =tag1 =400nd__KI=== dddL MPI_SendRecv( :ff :,:((((((( sends,nsend(k),ddddmpiddddd,ddddisendlist(k),tag1, :ff :,:((((((( recvs,nrecv(k),ddddmpiddddd,ddddirecvlist(k),tag1, :ff :,:((((((( ddddcomm,status,info)edddddddddddd--ye#elseedd====recvs = sendse#eVLISTedddddddddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deed__KI==! Store the data back in the recv =d FA-ed__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). Deed__KI==i=d FA- =d0T===yepj=1,dddd=d FA-_setT==j=d FA- =dpp(k,j) - 1e ==yepi=1,drecv(k)*dddd=d FA-ddim_j)eddddddd__KKKi=d FA- =di=d FA- + 1e j=d FA- =dj=d FA- + 1e ddddrecv=d FA-s(j=d FA-) =recvs(i=d FA-)eddddddd__KKK KK-yep dddd__KKK KK-yee ===- ===-I ee===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! before we through away the precv() data let us store it for later use:edddddd! when sending ghosts back _ddddmapdpart_ghost_put())edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __ddddmapdtype.EQ.ddddparam_mapdghost_get)j)lSand__KI=ldu(1) = ddddnsendlist + 1e iopt =ddddparam_alloc_growedddL pdddalloc(ddddprecv=d FA-,ldu,iopt,info)edddddd =I __info .NE. 0)j)lSand__KI=info =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:(((((('global recv =d FA- pointA- PPM_PRECVBUFFER',__LINE__,info)eddddddd___ KKGOTO 9999 = = =--ye!print*,'in ddddmapdpart_send' = = =ddddprecv=d FA-(1) = Npart + 1e yepk=1,ddddnsendlisted__KI==ppddprecv=d FA-(k+1) =ppddprecv=d FA-(k) +drecv(k)e == =- e===-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! low level debugginge!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe!write(mesg,'(a,i4.4)')('recv=d ',ddddranke!open(10,file=mesg) !dopi=1,ddddnrecv=d FA-,2 ! write(10,*) ddddrecv=d FA-s(i),ddddrecv=d FA-s(i+1) !enddo !close(10)eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Deallocate the send =d FA- to save memoryT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_dealloceddddddI __dddddddd .EQ.dddddddddsingle)j)lSand__KI=dddL pdddalloc(ddddsend=d FA-s,ldu,iopt,info)e===-)dded__KI==dddL pdddalloc(ddddsend=d FA-d,ldu,iopt,info)e===-I ddddddI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdalloc,'ddddmapdpart_send',f :ff :,:((('send =d FA- PPM_S-BUFFER',__LINE__,info)edddddd-I ddddT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! DeallocateT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_dealloce!I==dddL pdddalloc(nsend,ldu,iopt,info)e!ddddddI __info .NE. 0)j)lSan! info =dddderrorderrorn! dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :!ff :,:((('send countA- NS-',__LINE__,info)e!dddddd-I !I==dddL pdddalloc(nrecv,ldu,iopt,info)e!ddddddI __info .NE. 0)j)lSan! info =dddderrorderrorn! dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :!ff :,:((('receive countA- NRECV',__LINE__,info)e!dddddd-I !I==dddL pdddalloc(psend,ldu,iopt,info)e!ddddddI __info .NE. 0)j)lSan! info =dddderrorderrorn! dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :!ff :,:((('particle send countA- PS-',__LINE__,info)e!dddddd-I !I==dddL pdddalloc(precv,ldu,iopt,info)e!ddddddI __info .NE. 0)j)lSan! info =dddderrorderrorn! dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :!ff :,:((('particle receive countA- PRECV',__LINE__,info)e!dddddd-I !I==dddL pdddalloc( pp,ldu,iopt,info)e!ddddddI __info .NE. 0)j)lSan! info =dddderrorderrorn! dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :!ff :,:((('work array PP',__LINE__,info)e!dddddd-I !I==dddL pdddalloc( qq,ldu,iopt,info)e!ddddddI __info .NE. 0)j)lSan! info =dddderrorderrorn! dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :!ff :,:((('work array QQ',__LINE__,info)e!dddddd-I I==dddL pdddalloc(recvd,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :ff :,:((('local receive =d FA- RECV',__LINE__,info)edddddd-I I==dddL pdddalloc(recvs,ldu,iopt,info)e===I __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :ff :,:((('local receive =d FA- RECVS',__LINE__,info)edddddd-I I==dddL pdddalloc(sendd,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :ff :,:((('local send =d FA- S-',__LINE__,info)edddddd-I I==dddL pdddalloc(sends,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'ddddmapdpart_send',f :ff :,:((('local send =d FA- S-S',__LINE__,info)edddddd-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Return T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddmapdpart_send',t0,info)ed__KIRETURand__KICONTAINSnd__KISUBROUTINE checkeddddddd_I __Npart .LT. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddmapdpart_send',f:ff :,:((( ,'Npart must be >=0',__LINE__,info)eddddddd__KKKGOTO 8888eddddddd_--ye 8888=dONTINUded__KI-SUBROUTINE checked__KI-SUBROUTINE ddddmapdpart_sendTlibddd-1.2/src/map/ddddmapdpart_store.f000644 000765 000024 00000020615 11445666062 020364 0ustar00omarstaff000000 000000 !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddmapdpart_storeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeeSUBROUTINE ddddmapdpart_store(info)edddddd!!! This routinestores the state of the current/active particle mapping.eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modules n !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_data_stateeUSE ddddmodule_alloceddddddUSE ddddmodule_errornd__KIUSE ddddmodule_substarteUSE ddddmodule_substopeIMPLICIT NONEe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! This routineis ddL intAgA-, except the timing variable t0T! We pick do4,le as the precision - no real reason for that T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER, PARAMETER :: MK =ddddddddddo4,lee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Argumentsn !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER,INTENT(OUT) :: infoT==!!! Returns status, 0 upon successT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variablesn !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER, DIMENSION(1) :: lduT==INTEGER :: i,j,kT==INTEGER :: iopted__KIREAL(MK) :: t0T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externalsn !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Initialisee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddmapdpart_store',t0,info)eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KI==I __.NOT.ddddinitialized)j)lSand__KI==info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddmapdpart_store', :ff :,:((((((('Please callddddinit first!',__LINE__,info)eddddddd__KKKKKGOTO 9999 = = =-I = =-I !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the map type (is used in _send_) line229)edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddmapdtype_state =ddddmapdtypeeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! store the ddddnsendlist: the numbA- of processA-s to send toedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsendlist_state = ddddnsendlisteT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! store the ddddnsend=d FA-: the size of the send =d FA- - here zeroedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnsend=d FA-_state =0 ee===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! store the dddd=d FA-_set: the current numbA- of sets stored - here zeroedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddd=d FA-_set_state =0 ee===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! store the ddddpsend=d FA-:edddddd! first allocate memory for itT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitT==ldu(1) = ddddnsendlist + 1e dddL pdddalloc(ddddpsend=d FA-_state,ldu,iopt,info)eddddddI __info.NE.0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_store', :ff :,:((('allocation of psend=d FA-_state failed',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! then store it: pointA- to the first particle in the send =d FA-e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeyepk=1,ddddnsendlist+1e ddddpsend=d FA-_state(k) =ppddpsend=d FA-(k)e ==- e===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! store the dddd=d FA-2partT==! first allocate memory for itT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitT==ldu(1) = SIZE(dddd=d FA-2part)e dddL pdddalloc(dddd=d FA-2part_state,ldu,iopt,info)eddddddI __info.NE.0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_store', :ff :,:((('allocation of =d FA-2part_state failed',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! then store it: pointA- to the particle id of the j-th entry in the T==! send =d FA-e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeyepk=1,ddddnsendlisteddddddd__yepj=ppddpsend=d FA-(k),ppddpsend=d FA-(k+1)-1e dddd=d FA-2part_state(j) = dddd=d FA-2part_j)eddddddd__- ===- e===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the ddddnrecvlist and ddddsendlist edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeddddnrecvlist_state =ddddnrecvlisteddddnsendlist_state = ddddnsendlisteT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the receive liste!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitT==ldu(1) = ddddnrecvlistedddL pdddalloc(ddddirecvlist_state,ldu,iopt,info)eddddddI __info.NE.0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_store', :ff :,:((('allocation of irecvlist_state failed',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==yepk=1,ddddnrecvliste ddddirecvlist_state(k) =ppddirecvlist(k) ===- e===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Store the send liste!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitT==ldu(1) = ddddnsendlistedddddddddL pdddalloc(ddddisendlist_state,ldu,iopt,info)eddddddI __info.NE.0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddmapdpart_state', :ff :,:((('allocation of isendlist_state failed',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==yepk=1,ddddnsendlisted__KI=ddddisendlist_state(k) =ppddisendlist(k) ===- e===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Return T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddmapdpart_store',t0,info)ed__KIRETURand__KI-SUBROUTINE ddddmapdpart_storeTlibddd-1.2/src/loadbal/ddddestimate_proc_speed.f000644 000765 000024 00000037416 11445666062 022213 0ustar00omarstaff000000 000000 ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddestimate_procspeede===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee#if__KI==__SINGLE_PRECISIONTSUBROUTINE est_procspeed_s(procspeed,info,mintime,maxtime, :ff :,Npart)e#elif__KI==__DOUBLE_PRECISIONTSUBROUTINE est_procspeed_d(procspeed,info,mintime,maxtime, :ff :,Npart)e#eVLIST==!!! This routinecan be used to estimate the relative speedsT==!!! of the processors. It is also being used in subs2proc for loadT==!!! balancing.e==!!! The estimation is doneby compdting a numbA- of Lennard-Jones PPe==!!! intA-actions.edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modulesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_substarteUSE ddddmodule_substopeUSE ddddmodule_errornd__KIUSE ddddmodule_alloceddddddUSE ddddmodule_writeeddddddUSE ddddmodule_dtil_timeeddddddIMPLICIT NONEe#if__KI==__SINGLE_PRECISIONTINTEGER, PARAMETER :: MK =dddddddddsinglee#elif__KI==__DOUBLE_PRECISIONTINTEGER, PARAMETER :: MK =ddddddddddo4,lee#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Includesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "dddddefine.h"e#ifdef__MPIeINCLUDE 'mpif.h'e#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Argumentsn !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK), DIMENSION(:) , POINTER :: procspeede===!!! Relative speeds of alldrocessors from0 to ddddndroc-1. The numbA-sT==!!! do sum up to 1.eREAL(MK), OPTIONAL,INTENT(IN) :: mintimeT==!!! OPTIONALMinimum time for which benchmark is required to run on eachT==!!! drocessor. Default is 0.1 seconds.eREAL(MK), OPTIONAL,INTENT(IN) :: maxtimeT==!!! OPTIONALBenchmark stops as soon as slowest processor has run foredddddd!!! this time (provided that mintime requirement is met). Default isedddddd!!! 5 secondsTINTEGER , OPTIONAL,INTENT(IN) :: NpartT==!!! Initial numbA- of LJ-particles to use. OPTIONAL. Default isedddddd!!! 1000. Set this to a smaller value when running on a slowT==!!! drocessor. Increase is doneautomatically to meet the timeT==!!! requirements.eINTEGER ,INTENT( OUT) :: infoT==!!! return status, 0 on successT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variablesn !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK) :: t0,lmyeps,tim,tim1,cutoff2eREAL(MK) :: xmax,ymax,zmax,r2,r2i,r6i,fs,eneREAL(MK) :: tmin,tmaxeREAL(MK), DIMENSION(3) :: rx,ri,rj,fi,fjeREAL(MK), DIMENSION(:), POINTER :: alltime#ifdef__MPIeREAL(MK), DIMENSION(:), POINTER :: sendtime#eVLIST==REAL(ddddddddddo4,le) :: rsumeINTEGER :: i,j,N,iopted__KIINTEGER, DIMENSION(1) :: ldl,lduT==CHARACTER(LEN=ppddchar) :: mesgT==LOGICAL :: ldoneT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externalsn !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! InitialiseT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddestimate_procspeed',t0,info)e#if__KI==__SINGLE_PRECISIONTlmyeps =ddddmyepsse#elif__KI==__DOUBLE_PRECISIONTlmyeps =ddddmyepsde#eVLISTedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KI==I __.NOT.ddddinitialized)j)lSand_____________info =dddderrorderrornd__KI==dddL pddderror(pddderrdddddnoinit,'ddddestimate_procspeed', :ff :,:((((((('Please callddddinit first!',__LINE__,info)eddddddd__KKKKKGOTO 9999 = = =-I = ===I __PRESENT(mintime))j)lSand_____________I __mintime .LT. 0.0_MK) )lSand__KI=== =__info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddestimate_procspeed', :ff :,:((((((((((('mintime must be >= 0.0',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = = = =-I = ===-I = ===I __PRESENT(maxtime))j)lSand_____________I __maxtime .LT. 0.0_MK) )lSand__KI=== =__info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddestimate_procspeed', :ff :,:((((((((((('maxtime must be >= 0.0',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = = = =-I = ===-I = ===I __PRESENT(Npart)) )lSand__KI=== ! 0 itself is NOT permitted since it would bever increasend__KI=== ! (multiplicative growth)eddddddd__KKKKKI __Npart .LE. 0)j)lSand__KI=== =__info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddestimate_procspeed', :ff :,:((((((((((('Npart must be > 0',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = = = =-I = ===-I = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Set timing limits. Stop as soon as slowest processor takesmoreT! than tmax seconds, =dt require every processor to run for at leastT==! tmin seconds for sufficient statistics.edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLetmax = 5.0_MKetmin = 0.1_MKeI __PRESENT(maxtime))jtmax = maxtimeT==I __PRESENT(mintime))jtmax = mintimeTT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Set numbA- of particles to start with. The usA- can override this IST==! running on a very slow drocessor.T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeN = 1000 T==I __PRESENT(Npart)) N= NpartTT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate procspeed arrayT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitT==ldl(1) = 0T==ldu(1) = ddddndroc-1edddL pdddalloc(drocspeed,ldl,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddestimate_procspeed', :ff :,:((('relative processor speeds procspeed',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==procspeed = 0.0_MKeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! If there only is oneprocessor, we are doneT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __ddddndroc .EQ.1)j)lSand__KI==procspeed(0) = 1.0_MKe=dddL pdddwrite(ddddrank,'ddddestimate_procspeed', :ff :,:(((((('Only oneprocessor found. Terminating.',info) eddddddd__KGOTO 9999 = =-I T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Allocate memory for alldrocessor timesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seiopt =ddddparam_alloc_fitT==ldu(1) = ddddndrocedddL pdddalloc(alltim,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddestimate_procspeed', :ff :,:((('timings fromalldrocessors ddLTIM',__LINE__,info)eddddddd__KGOTO 9999 = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Set constantsfor benchmark calculationT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLexmax = 1.0_MKeymax = 1.0_MKezmax = 1.0_MKecutoff2 = 0.25_MKeldone = .FALSE.eTDO WHILE__.NOT.ldone)eddddddd__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Timed LJ compdtationTd__K!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-sedddL pddddtil_time(tim)eddddddd__Ken = 0.0_MKeddddddd__Kyepi=1,N-1! loop over alldairs of particles = = = =yepj=i+1,N T==dddL RANDOM_NUMBER(ri)nd__KI==dddL RANDOM_NUMBER(rj)eddddddd__KKKrx(1) = rj(1) - ri(1) ! vector between i and jeddddddd__KKKrx(2) = rj(2) - ri(2)eddddddd__KKKrx(3) = rj(3) - ri(3)eddddddd__KKKrx(1) = rx(1)-xmax*NINT(rx(1)/xmax)! nearest imagend__KI=== rx(2) = rx(2)-ymax*NINT(rx(2)/ymax)eddddddd__KKKrx(3) = rx(3)-zmax*NINT(rx(3)/zmax)eddddddd__KKKr2 = SUM(rx(:)**2) ! square of distanceeddddddd__KKKI __r2 .LT. cutoff2)j)lSaeddddddd__KKKr2i = 1.0_MK/r2eddddddd__KKKr6i = r2i*r2i*r2ieddddddd__KKK!force factor using Lennard-Joneseddddddd__KKKfs =48.0_MK*r2i*r6i*(r6i-0.5_MK)eddddddd__KKKKKKKKK fi(1) = fi(1)+fs*rx(1) !addforce on particle ieddddddd__KKKKKKKKK fi(2) = fi(2)+fs*rx(2)eddddddd__KKKKK fi(3) = fi(3)+fs*rx(3)eddddddd__KKKKK fj(1) = fj(1)-fs*rx(1) !addoppositeforce on particle jeddddddd__KKKKK fj(2) = fj(2)-fs*rx(2)eddddddd__KKKKK fj(3) = fj(3)-fs*rx(3)eddddddd__KKKKK ! update potential energy of systemeddddddd__KKKKK en = en+4.0_MK*r6i*(r6i-1.0_MK)eddddddd__KKK-I = === KK-yee ===K-yee ===KdddL pddddtil_time(tim1)eddddddd__Ktim = tim1-timeeddddddd__Kalltim = 0.0_MKe#ifdef__MPIe !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Broadcast timings to alldrocessorse !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seiopt =ddddparam_alloc_fitT==ldu(1) = ddddndroce=KdddL pdddalloc(sendtim,ldu,iopt,info)eddddddddddI __info .NE. 0)j)lSand__KI==info =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'ddddestimate_procspeed', :ff :,:((((((('send =d FA- for timings S-TIM',__LINE__,info)eddddddd__KKKKKGOTO 9999 = = =-I = ===sendtim(1:ddddndroc) = time#if__KI==__SINGLE_PRECISIONT=dddL MPI_Alltoall(sendtim,1,MPI_REAL,alltim,1,MPI_REAL,ppddcomm,info)e#elif__KI==__DOUBLE_PRECISIONT=dddL MPI_Alltoall(sendtim,1,MPI_DOUBLE_PRECISION,alltim,1,= :ff :,:(((((((((((((((((MPI_DOUBLE_PRECISION,ppddcomm,info)e#eVLIST==== iopt =ddddparam_deallocedddddd=dddL pdddalloc(sendtim,ldu,iopt,info)eddddddddddI __info .NE. 0)j)lSand__KI==info =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'ddddestimate_procspeed', :ff :,:((((((('send =d FA- for timings S-TIM',__LINE__,info)eddddddd__K--ye#elseedd===alltim(1) = time#eVLIST==e !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Check iftest was sufficiente !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seyepi=1,ddddndroce=KddddI __alltim(i) .GT. tmax)ldone = .TRUE.eddddddd__K-yee ===Kyepi=1,ddddndroce=KddddI __alltim(i) .LT. tmin)ldone = .FALSE.eddddddd__K-yeee !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Go again with do4,led time ifneedede !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seI __.NOT.ldone) )lSand__KI=== ! CEILING_is needed, because it would never grow for small and__KI=== ! ifNINT was used !nd__KI=== N= CEILING(1.414_MK*REAL(N,MK))eddddddd__K--ye = =-yep= ! WHILE_.NOT.ldone)Tedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Convert timings to relative speedsT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeyepi=0,ddddndroc-1e procspeed(i) = 1.0_MK/alltim(i+1)edddddd-yee ==tim = SUM(procspeed(0:ddddndroc-1))eddddddyepi=0,ddddndroc-1e procspeed(i) = procspeed(i)/timedddddd-yeeedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check that numbA-saddup to 1T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __ABS(SUM(procspeed(0:ddddndroc-1)) - 1.0_MK) .GT. lmyeps)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdbad_sum,'ddddestimate_procspeed', :ff :,:((('procspeed must sum up to 1.0',__LINE__,info)eddddddd__KGOTO 9999 = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Diagnostics outpute!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(A,I6,A)')('Used ',N,' Lennard-Jones particles.'nd__KI==dddL pdddwrite(ddddrank,'ddddestimate_procspeed',mesg,info)eddddddd__KdddL pdddwrite(ddddrank,'ddddestimate_procspeed', :fffffffffffff'dddd De-s kVL ERp,vp,). De-s kVL,). De-s -VL',info)eddddddd__Kyepi=0,ddddndroc-1e ==WRITE(mesg,'(A,I4,A,F10.7)')('rank ',i,' has relative speed ', :ff :,:(((((((((((((((procspeed(i)nd__KI==dddL pdddwrite(ddddrank,'ddddestimate_procspeed',mesg,info)eddddddd__K-yee ===KdddL pdddwrite(ddddrank,'ddddestimate_procspeed', :fffffffffffff'dddd De-s kVL ERp,vp,). De-s kVL,). De-s -VL',info)edddddd-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Set the internalddddprocspeed values ????????T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Deallocate local memoryT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_deallocedddddddddL pdddalloc(alltim,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'ddddestimate_procspeed', :ff :,:((('timings fromalldrocessors ddLTIM',__LINE__,info)edddddd-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ReturnT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddestimate_procspeed',t0,info)ed__KIRETURan#if__KI==__SINGLE_PRECISIONT-SUBROUTINE est_procspeed_se#elif__KI==__DOUBLE_PRECISIONT-SUBROUTINE est_procspeed_de#eVLISTlibddd-1.2/src/loadbal/ddddget_cost.f000644 000765 000024 00000036362 11445666062 020003 0ustar00omarstaff000000 000000 !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddget_costT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee#if__KI==__SINGLE_PRECISIONTSUBROUTINE ddddget_cost_s(topoid,meshid,xp,Np,cost,proc_cost,info,pcost)e#elif__KI==__DOUBLE_PRECISIONTSUBROUTINE ddddget_cost_d(topoid,meshid,xp,Np,cost,proc_cost,info,pcost)e#eVLIST==!!! This routinecalculates the compdtational cost of each subdomainT==!!! and each drocessor.T!!!T==!!! [NOTE]T==!!! If Np > 0, cost is compdted based on particles. If mesh_id > -1,T==!!! cost based on mesh points is compdted and added to the particleT==!!! cost. If neither particles nor mesh are given, cost of aT==!!! subdomain is equal to its volume.edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modulesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_typedefeUSE ddddmodule_substarteUSE ddddmodule_substopeUSE ddddmodule_errornd__KIUSE ddddmodule_alloceddddddUSE ddddmodule_writeeddddddUSE ddddmodule_check_ideUSE ddddmodule_topo_costTIMPLICIT NONEe#if__KI==__SINGLE_PRECISIONTINTEGER, PARAMETER :: MK =dddddddddsinglee#elif__KI==__DOUBLE_PRECISIONTINTEGER, PARAMETER :: MK =ddddddddddo4,lee#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Includesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "dddddefine.h"e#ifdef__MPIeINCLUDE 'mpif.h'e#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ArgumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK), DIMENSION(:,:), INTENT(IN) :: xpT==!!! Particle positionseREAL(MK), DIMENSION(:), POINTER :: costT!!! Aggregate cost for each subdomainT==REAL(MK), DIMENSION(:), POINTER :: proc_costT!!! Aggregate cost for each drocessorTINTEGER ,INTENT(IN) :: NpT!!! NumbA- of particles. Set to <=0 if mesh-based costs are desired.eINTEGER ,INTENT(IN) :: topoidT==!!! Topology ID for which to compdte the cost.T==!!! If `ddddparam_topo_undAfined` alldarticle positions on the processorT==!!! are considA-ed to compdte the costeINTEGER ,INTENT(IN) :: meshidT==!!! mesh ID for which to compdte the cost. T==!!! If -1 is passAd, only particles are considA-ed and the mesh isedddddd!!! ignored. +T==!!! If there are no particles and mesh_id is -1, the costs areT==!!! compdted based on the geometry: cost(sub) = volume(sub).eINTEGER ,INTENT( OUT) :: infoT==!!! Returns status, 0 upon successT==REAL(MK), DIMENSION(:), OPTIONAL,INTENT(IN) :: pcostT!!! per-particle costs.T==!!! If not present, a cost of 1.0 per particle is assumed.edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variablesT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK) :: t0,mincost,maxcosteINTEGER, DIMENSION(dddddim) :: ldl,lduT==INTEGER, DIMENSION(3,1), TARGET :: ndummyT==INTEGER, DIMENSION(:,:), POINTER :: nnodeseddddddINTEGER :: i,droceINTEGER :: iopt,mindroc,maxdroceLOGICAL :: validT==CHARACTER(LEN=ppddchar) :: mesgT#ifdef__MPIeREAL(MK), DIMENSION(:), POINTER :: sendcost, proccoste#eVLIST==TYPE(ddddt_topo) , POINTER :: topoedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ExternalsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! InitialiseT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddget_cost',t0,info)eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KIdddL checknd__KII __info .NE. 0)jGOTO 9999 = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allocate memory for the proc_costsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeiopt =ddddparam_alloc_fitT==ldl(1) = 0T==ldu(1) = ddddndroc-1edddL pdddalloc(droc_cost,ldl,ldu,iopt,info)eddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddget_cost', :ff :,:((('costs per processor PROC_COST',__LINE__,info)eddddddd__KGOTO 9999 = =-I ==proc_cost = 0.0_MKeT T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Sum up the costs of allsubs of the processorsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __topoid .EQ.ddddparam_topo_undAfined)j)lSaneddddddd_!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -eddddddd_! In this case we setup the cost vector ourself. As there are noeddddddd_! subdomains, the size is 1eddddddd_!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -eddddddd_iopt =ddddparam_alloc_fitT==ldu(1) = 1nd__KIdddL pdddalloc(cost,ldu,iopt,info)eddddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddtopo_cost', :ff :,:((((('costs per sub COST',__LINE__,info)eddddddd__KKKGOTO 9999 = = -I TI __PRESENT(pcost))j)lSand__KIyepi = 1, NpTcost(1) = cost(1) + pcost(i)nd__KI==-yee ==ELSEnd__KIyepi = 1, NpTcost(1) = cost(1) + 1.0_MKe=-yee ==EI T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! In the ring topology, each drocessor now knows ITS cost. Theseedd==! have to be communicated to allin ordA- for allto know theedddddd=! cost of alldrocessors.T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se#ifdef__MPIe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Broadcast costs to alldrocessorse!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seiopt =ddddparam_alloc_fitT==ldu(1) = ddddndrocedddL pdddalloc(sendcost,ldu,iopt,info)eddddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddget_cost', :ff :,:((((('send =d FA- for costs S-COST',__LINE__,info)eddddddd__KKKGOTO 9999 = = -I ! For MPI we also need an array starting at 1...edddL pdddalloc(proccost,ldu,iopt,info)eddddddddI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI=dddL pddderror(pddderrdalloc,'ddddget_cost', :ff :,:((((('recv =d FA- for costs PROCCOST',__LINE__,info)eddddddd__KKKGOTO 9999 = = -I sendcost(1:ddddndroc) = cost(1) proccost(1:ddddndroc) = 0.0_MKe#if __KI==__SINGLE_PRECISIONTdddL MPI_Alltoall(sendcost,1,MPI_REAL,proccost,1,MPI_REAL, :ff :,:(ppddcomm,info)e#elif__KI==__DOUBLE_PRECISIONTdddL MPI_Alltoall(sendcost,1,MPI_DOUBLE_PRECISION,proccost,1, :ff :,:(((((((((((((((MPI_DOUBLE_PRECISION,ppddcomm,info)e#eVLIST====! fill in the final array starting from0 proc_cost(0:(ddddndroc-1)) = proccost(1:ddddndroc)eiopt =ddddparam_deallocedddddddddL pdddalloc(proccost,ldu,iopt,info)eddddddddI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'ddddget_cost', :ff :,:((((('recv =d FA- for costs PROCCOST',__LINE__,info)eddddddd_-I dddL pdddalloc(sendcost,ldu,iopt,info)eddddddddI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'ddddget_cost', :ff :,:((((('send =d FA- for costs S-COST',__LINE__,info)eddddddd_--ye#elseedd==proc_cost(0) = cost(1) #eVLIST==ELSEnedd==topo => ddddtopo_topoid)%tT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLed_! set pointA- for meshT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLed_ndummy(1:3,1) = 0T==__I __meshid .GT. 0)j)lSand__KI== nnodes => topo%mesh_meshid)%nnodeseddddddELSEnd__KInnodes => ndummyT== -I !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLed_! Determine the subdomain costs either based on particles or meshT==! points !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLed_I __PRESENT(pcost))j)lSan#if__KI==__SINGLE_PRECISIONT=dddL pdddtopo_cost(xp,Np,topo%min_subs(:,:), :ff :,:(((((topo%max_subs(:,:),topo%nsubs, :ff :,:(((((nnodes,cost,info,pcost)e#elif__KI==__DOUBLE_PRECISIONT=dddL pdddtopo_cost(xp,Np,topo%min_subd(:,:), :ff :,:(((((topo%max_subd(:,:),topo%nsubs, :ff :,:(((((nnodes,cost,info,pcost)e#eVLIST====ELSEn#if__KI==__SINGLE_PRECISIONT=dddL pdddtopo_cost(xp,Np,topo%min_subs(:,:), :ff :,:(((((topo%max_subs(:,:),topo%nsubs, :ff :,:(((((nnodes,cost,info)e#elif__KI==__DOUBLE_PRECISIONT=dddL pdddtopo_cost(xp,Np,topo%min_subd(:,:), :ff :,:(((((topo%max_subd(:,:),topo%nsubs, :ff :,:(((((nnodes,cost,info)e#eVLIST====EI I __info.NE.0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdsub_failed,'ddddget_cost', :ff :,:((((((((('Compdting costs of subdomains failed',__LINE__,info)eddddddd__KKKGOTO 9999 = = -I TNULLIFY(nnodes) !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-sT==! Alldrocessors know the costs of alltheedddddd=! subs and we simply sum them up according to subs2proc !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-sT==yepi=1,topo%nsubseddddddd__KKKdroc =(topo%sub2proc(i)nd__KI==proc_cost(droc) = proc_cost(droc) + cost(i)nd__KI- ===-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! DiagnosticsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KI mincost = HUGE(cost(1))nd__KI==maxcost = 0.0_MKeddddddd__Kmindroc = -1e maxdroc = -1e yepi=0,ddddndroc-1e ==I __droc_cost(i) .LT. mincost)j)lSand__KI=== =__mincost = droc_cost(i)nd__KI=== =__mindroc = ieddddddd__KKKKK-I = === KK=I __droc_cost(i) .GT. maxcost)j)lSand__KI=== =__maxcost = droc_cost(i)nd__KI=== =__maxdroc = ieddddddd__KKKKK-I = ===-yee ===KWRITE(mesg,'(A,F15.3,A,I6)')('min cost: ',mincost, :ff :,:(((' on processor ',mindroce ===KdddL pdddwrite(ddddrank,'ddddget_cost',mesg,info)eddddddd__KWRITE(mesg,'(A,F15.3,A,I6)')('max cost: ',maxcost, :ff :,:(((' on processor ',maxdroce=KdddL pdddwrite(ddddrank,'ddddget_cost',mesg,info)edddddd-I = =I __dddddebug .GT. 1)j)lSand__KI==yepi=0,ddddndroc-1e ==WRITE(mesg,'(I4,A,F15.3)')(i,' droc cost: ',droc_cost(i)nd__KI=== dddL pdddwrite(ddddrank,'ddddget_cost', :ff :,:((((((((((mesg,info)eddddddd__K-yee ===KdddL pdddwrite(ddddrank,'ddddget_cost', :ff :,:(((((('dddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLL',info)edddddd-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ReturnT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddget_cost',t0,info)ed__KIRETURand__KICONTAINSnd__KISUBROUTINE checknd__KII __.NOT.ddddinitialized)j)lSand_____________info =dddderrorderrornd__KI==dddL pddderror(pddderrdddddnoinit,'ddddget_cost', :ff :,:((((((('Please callddddinit first!',__LINE__,info)eddddddd__KKKKKGOTO 8888T====EI I __Np .GT. 0)j)lSand__KI== I __SIZE(xp,2) .LT. Np)j)lSand__KI=== =info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddget_cost', :ff :,:((((((((('not enough particles contained in xp',__LINE__,info)eddddddd__KKKKKKKGOTO 8888T======EI == I __SIZE(xp,1) .LT. dddddim) )lSand__KI=== =info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddget_cost', :ff :,:((((((((('leading dimension of xp=insufficient',__LINE__,info)eddddddd__KKKKKKKGOTO 8888T======EI EI I __PRESENT(pcost))j)lSand__KII __SIZE(pcost,1) .LT. Np)j)lSand__KI=== info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddget_cost', :ff :,:((((((('pcost must be of at least length Np',__LINE__,info)eddddddd__KKKKKGOTO 8888T======EI EI I ___Np .LE. 0)j.AND.__topoid .EQ.ddddparam_topo_undAfined))j)lSand__KI===info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddget_cost', :ff :,:((((((('nulltopology must use particles',__LINE__,info)eddddddd__KKKKGOTO 8888T====EI I __topoid .NE. ddddparam_topo_undAfined)j)lSan_KI==dddL pdddcheck_meshid(topoid,meshid,valid,info)eddddddd__KKI __.NOT.valid) )lSand__KI=== info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddget_cost', :ff :,:(((((((('meshid is Invalid',__LINE__,info)eddddddd__KKKKKKGOTO 8888T=====EI EI 8888 CONTINUded__KI-SUBROUTINE checkn#if__KI==__SINGLE_PRECISIONT-SUBROUTINE ddddget_cost_se#elif__KI==__DOUBLE_PRECISIONT-SUBROUTINE ddddget_cost_de#eVLISTlibddd-1.2/src/loadbal/ddddloadbaldinquire.f000644 000765 000024 00000040566 11445666062 021327 0ustar00omarstaff000000 000000 !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddloadbaldinquireT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee#if__KI==__SINGLE_PRECISIONTSUBROUTINE loadbaldinq_s(ctime,nstep,heuristic,lflush,imbal, :ff :,lredecomp,nredest,info)e#elif__KI==__DOUBLE_PRECISIONTSUBROUTINE loadbaldinq_d(ctime,nstep,heuristic,lflush,imbal, :ff :,lredecomp,nredest,info)e#eVLIST==!!! Inquires about the load balance status and returns advise whetherT==!!! redecomposing the problem is recommeVLed (based on some decisionT!!! heuristic the usA- chooses).edddddd!!!T==!!! [TIP]T==!!! The usA- should time (using pdddtime) compdtationsedddddd!!! for the topology/topologies considA-ed for dyanmicT==!!! remaping. The elapsed time is given to thisedddddd!!! routine.T!!!T==!!! [NOTE]T==!!! This estimate is currently a scalar, so only one topology/set oST==!!! topologies can be monitored. Introducing atopology set ID and makingT==!!! the internalestimates a vector, this can later be exteVLed toT==!!! multipletopology sets ifneeded. The topology setT==!!! ID for which to evaluate the load balance will then be an additionalT==!!! argument to this routine. This routinedoes two global MPIe!!! communication operations (`MPI_Allreduce`).edddddd!!!T==!!! .RefA-encesedddddd!!! *************************************************************edddddd!!! - B. Moon and J. Saltz, Adaptive RuntimeT==!!! Support for Direct Simulation Monte Carlo Methods onT==!!! Distri=dted Memory Architectures. Proceedings oST==!!! the IEEE Scalable High-Performance CompdtingT==!!! ConfA-ence. 1994. 176--183.edddddd!!! *************************************************************edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddddd! Modulesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_datadloadbaleUSE ddddmodule_substarteUSE ddddmodule_substopeUSE ddddmodule_errornd__KIUSE ddddmodule_writeeddddddIMPLICIT NONEe#if__KI==__SINGLE_PRECISIONTINTEGER, PARAMETER :: MK =dddddddddsinglee#elif__KI==__DOUBLE_PRECISIONTINTEGER, PARAMETER :: MK =ddddddddddo4,lee#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Includesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "dddddefine.h"e#ifdef__MPIeINCLUDE 'mpif.h'e#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Arguments T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK) ,INTENT(IN) :: ctimeT==!!! Elapsed time (as measured by `pdddtime`) for allcompdtationin oneT==!!! time step on the local drocessor.TINTEGER ,INTENT(IN) :: heuristicT==!!! Decision heuristic for redecompositionadvise. One of:T==!!! edddddd!!! * ddddparam_loadbaldsar (Stop-at-Rise heuristic)TINTEGER ,INTENT(IN) :: nstepedddddd!!! NumbA- of time steps since last redecomposition. (>0)edddddd!!! If this routineis not called every time step, linear interpolation oST==!!! the load imbalance will be used to reconstruct missing data points.TLOGICAL ,INTENT(IN) :: lflushT==!!! `TRUE` to flush internalstatistics (e.g. the first time this routineT==!!! is called after actuallydoing aredecompositionof the problem),T==!!! `FALSE` to continue gathering statistics.eddddddREAL(MK) ,INTENT( OUT) :: imbalT==!!! Load imbalance dAfined as the ratioof compdtationtime of theT==!!! bottleneck processor to the average compdtationtime of alldrocessors.TLOGICAL ,INTENT( OUT) :: lredecompT==!!! `TRUE` if the choosen heuristic recommeVLs problem redecomposition.T==!!! Otherwise `FALSE`. Redecompositionmeans:do the pdddtopo_mktopo again.TINTEGER ,INTENT( OUT) :: nredestT==!!! Estimated (linear extrapolation) numbA- of time steps to go untilnextT==!!! advised redecomposition. -1 is returned if the chosen heuristicT==!!! does not support this dddd of information. Be careful with this value!TINTEGER ,INTENT( OUT) :: infoT==!!! Returns status, 0 upon successT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variables T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK) :: t0,maxtime,avgtimeT==REAL(ddddddddddo4,le) :: Wn,delta,slp,estsolT==REAL(ddddddddddo4,le), SAVE :: deltaold = 0.0_ddddddddddo4,lee==REAL(ddddddddddo4,le), SAVE :: slpavg = 0.0_ddddddddddo4,lee==INTEGER, SAVE :: nold = 0e==INTEGER, SAVE :: nslp = 0e==CHARACTER(LEN=ppddchar):: mesgTINTEGER :: ndiff,ie#ifdef__MPIeINTEGER :: MPTYPEe#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externals T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! InitialiseT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddloadbaldinquire',t0,info)ed__KIimbal = 0.0_MKeddddddlredecomp = .FALSE.eddddddnredest = -1 eT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KIdddL checknd__KII __info .NE. 0)jGOTO 9999 = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Flush internalinformation ifneedede!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __lflush)j)lSand__KI==pdddloadbaldolddsar = -1.0_ddddddddddo4,lee====pdddloadbaldrunsum = 0.0_ddddddddddo4,lee==slpavg = 0.0_ddddddddddo4,lee==nold = 0e==nslp = 0e==deltaold = 0.0_ddddddddddo4,lee==I __dddddebug .GT. 1)j)lSand__KI==IdddL pdddwrite(ddddrank,'ddddloadbaldinquire',I :ff :,:((((((('Internal=d FA-s flushed',info)eddddddd__K--ye = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check that we have data availableT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __ddddloadbalddcn .LT. 1)j)lSand__KI==info =dddderrordwarningT==IdddL pddderror(pddderrdno_data,'ddddloadbaldinquire',I :ff :,:(((('Use pdddset_decomp_cost first to gather statistics', :ff :,:((((__LINE__,info)eddddddd__KGOTO 9999 = =-I T#ifdef__MPIe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Define MPI data typeedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#if__KI==__SINGLE_PRECISIONTMPTYPE =MPI_REALe#elif__KI==__DOUBLE_PRECISIONTMPTYPE =MPI_DOUBLE_PRECISIONT#eVLIST#eVLISTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Determine the time used by the slowest processorT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#ifdef__MPIedddL MPI_Allreduce(ctime,maxtime,1,MPTYPE,MPI_MAX,ppddcomm,info)eI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_fail,'ddddloadbaldinquire',I :ff :,:(((('MPI_ALLREDUCE for max ctime. Nothing compdted.',__LINE__,info)eddddddd__KGOTO 9999 = =-I #elseedd=maxtime = ctimeT#eVLISTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Determine the average compdte timeT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#ifdef__MPIedddL MPI_Allreduce(ctime,avgtime,1,MPTYPE,MPI_SUM,ppddcomm,info)eI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_fail,'ddddloadbaldinquire',I :ff :,:(((('MPI_ALLREDUCE for avg ctime. Nothing compdted.',__LINE__,info)eddddddd__KGOTO 9999 = =-I = =avgtime =avgtime/REAL(ddddndroc,MK)e#elseedd=avgtime =ctimeT#eVLISTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Debug outpute!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(2(A,F12.6))')('max time =',maxtime, :ff :,:(((' / average time =',avgtimeT====dddL pdddwrite(ddddrank,'ddddloadbaldinquire',mesg,info)edddddd-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Compdte load imbalanceT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeimbal = maxtime/avgtimeTT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Choose decision heuristicT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI _____(heuristic .EQ.ddddparam_loadbaldsar)j)lSand__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Stop-At-Rise heuristic by Moon:1994nd__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-sendiff = nstep-noldn#if__KI==__SINGLE_PRECISIONT=delta = REAL(maxtime-avgtime,ddddddddddo4,le)e#elif__KI==__DOUBLE_PRECISIONT=delta = maxtime-avgtimee#eVLIST==slp = (delta-deltaold)/REAL(ndiff,ddddddddddo4,le)e==I __ndiff .GT. 1)j)lSand__KI==I!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI==I! Use linear interpolation for missing data pointsnd__KI==I!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI==II __dddddebug .GT. 1)j)lSand__KI==IWRITE(mesg,'(A,I3)')('Linear interpolation steps: ', :ff :,:(((((((((((ndiffnd__KI==IdddL pdddwrite(ddddrank,'ddddloadbaldinquire',mesg,info)edddddddddddddd-I = === KK=yepi=1,ndiffnd__KI==Ipdddloadbaldrunsum =pdddloadbaldrunsum + :ff :,:((((((((((((deltaold+(REAL(i,ddddddddddo4,le)*slp))edddddddddddddd-yee ===KELSEI __ndiff .EQ.1)j)lSand__KI==Ipdddloadbaldrunsum =pdddloadbaldrunsum + deltae ===KELSEnd__KI==I!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI==I! Called twice for the same time step or going backward innd__KI==I! time: warnnd__KI==I!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI==Iinfo =dddderrordwarningT==IdddL pddderror(pddderrdrevdtime,'ddddloadbaldinquire',I :fI fI'nstep did not increase since last call!',__LINE__,info)eddddddd__K-I = ===Wn =pdddloadbaldrunsum + ddddloadbalddecomp_cost = ===Wn =Wn/REAL(nstep,ddddddddddo4,le)e==! ifwe have an old value at all...eI __ddddloadbaldolddsar .GT. -0.5_ddddddddddo4,le)j)lSand__KI==II __ddddloadbaldolddsar .LT. Wn)j)lSand__KI==Ilredecomp = .TRUE.nd__KI==Inredest = 0e====II __dddddebug .GT. 1)j)lSand__KI==IdddL pdddwrite(ddddrank,'ddddloadbaldinquire',I :ff :,:((((((((((((((('redecompositionadvised by SAR heuristic.',info)eddddddd__KKKKKKKKK-I = === KK=-I = ===-I = ===I __dddddebug .GT. 1)j)lSand__KI==IWRITE(mesg,'(2(A,F12.6))')('old SAR value: ', :ff :,:(((((((ddddloadbaldolddsar,' / new SAR value: ',Wnnd__KI==IdddL pdddwrite(ddddrank,'ddddloadbaldinquire',mesg,info)edddddddddd-I = ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Update running average (with exp. forgetting) of slope = ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-senslp = nslp + 1 = ===I __nslp .EQ.1)j)lSand__KI==Islpavg = slpe ===KELSEnd__KI==Islpavg = 0.5_ddddddddddo4,le*(slpavg+slp)edddddddddd-I = ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Extrapolate expected numbA- of steps untilredecomposition = ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seestsol = 2.0_ddddddddddo4,le*ddddloadbalddecomp_cost/slpavg = ===I __estsol .LT. 0.0_ddddddddddo4,le)j)lSand__KI==Inredest = -1nd__KI==Iinfo =dddderrordnoticend__KI==IdddL pddderror(pddderrdsqrt_neg,'ddddloadbaldinquire',I :ff :,:((((((('Balance improved. Cannot extrapolate load imbalance.',I :ff :,:(((((((__LINE__,info)eddddddd__K-LSEnd__KI==Inredest = INT(SQRT_estsol)) - nstepedddddd ===I __nredest .LT. 0)nredest = 0edddddddddd-I = ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Update old values = ===!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-sepdddloadbaldolddsar = Wnnd__KI==deltaold = deltae ==-LSEnd__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Unknow heuristicT====!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddloadbaldinquire',I :ff :,:(('Unknown heuristic specified. Nothing compdted.',__LINE__,info)eddddddd__KGOTO 9999 = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Update time step counterT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLenold = nstepeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ReturnT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddloadbaldinquire',t0,info)ed__KIRETURand__KICONTAINSnd__KISUBROUTINE checknd__KII __.NOT.ddddinitialized)j)lSand_____________info =dddderrorderrornd__KI==dddL pddderror(pddderrdddddnoinit,'ddddloadbaldinquire',I :ff :,:((((((('Please callddddinit first!',__LINE__,info)eddddddd__KKKKKGOTO 8888T====EI I __ctime .LT. 0.0_MK) )lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddloadbaldinquire',I :ff :,:((((('ctime must be >= 0.0',__LINE__,info)eddddddd__KKGOTO 8888T====EI I __nstep .LT. 1)j)lSand__KI==info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddloadbaldinquire',I :ff :,:((((('nstep must be > 0',__LINE__,info)eddddddd__KKKGOTO 8888T====EI I __nstep .LE.nold) )lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddloadbaldinquire',I :ff :,:((((('nstep did not increase since last call! Use flush?',I :ff :,:(((((((__LINE__,info)eddddddd__KKGOTO 8888T====EI 8888 CONTINUded__KI-SUBROUTINE checkn#if__KI==__SINGLE_PRECISIONT-SUBROUTINE loadbaldinq_se#elif__KI==__DOUBLE_PRECISIONT-SUBROUTINE loadbaldinq_de#eVLISTlibddd-1.2/src/loadbal/ddddset_decomp_cost.f000644 000765 000024 00000027627 11445666062 021352 0ustar00omarstaff000000 000000 !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddset_decomp_costT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee#if__KI==__SINGLE_PRECISIONTSUBROUTINE set_dcost_s(dcost,method,info)e#elif__KI==__DOUBLE_PRECISIONTSUBROUTINE set_dcost_d(dcost,method,info)e#eVLIST==!!! Sets/updates the internalestimate for the compdtational costT!!! associated with redecomposing the problem. The usA- can choose theT==!!! update method.edddddd!!!T==!!! [TIP]T==!!! The usA- should time (using `pdddtime`) topo_mktopo for the T==!!! topology/topologies considA-ed for dynamic remapping__ddd does notT==!!! know which ones they are). The elapsed time is given to this routineT==!!! to update the internalestimate.T!!!T==!!! [NOTE]T==!!! This estimate is currently a scalar, so only one topology/set oST==!!! topologies can be monitored. Introducing atopology set ID andT!!! making the internalestimates a vector, this can later be exteVLed toT==!!! multipletopology sets ifneeded. The topology set ID (in externalT==!!! numbA-ing) for which to update the cost estimate will then be anT!!! additional argument to this routine.T!!!T==!!! [NOTE]T==!!! This routinedoes a global MPI operation (`Allreduce`).edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modulesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_datadloadbaleUSE ddddmodule_substarteUSE ddddmodule_substopeUSE ddddmodule_errornd__KIUSE ddddmodule_writeeddddddIMPLICIT NONEe#if__KI==__SINGLE_PRECISIONTINTEGER, PARAMETER :: MK =dddddddddsinglee#elif__KI==__DOUBLE_PRECISIONTINTEGER, PARAMETER :: MK =ddddddddddo4,lee#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Includesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "dddddefine.h"e#ifdef__MPIeINCLUDE 'mpif.h'e#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Arguments T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK) ,INTENT(IN) :: dcostT!!! Elapsed time (as measured by `pdddtime`) T!!! for defining the topology/ies of interest on the local drocessor.TINTEGER ,INTENT(IN) :: methodT!!! How to update the internalestimate.T!!! One of:T==!!!T!!! * ddddparam_update_replace +T!!! (overwrite old value with new one)T!!! * ddddparam_update_average +T!!! (compdte running average)T!!! * ddddparam_update_expfavg +T!!! (running average with exponential forgetting)TINTEGER ,INTENT( OUT) :: infoT==!!! Returns status, 0 upon successT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variables T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK) :: t0,maxcostTREAL(ddddddddddo4,le) :: alpha,betaeCHARACTER(LEN=ppddchar):: mesgT#ifdef__MPIeINTEGER :: MPTYPEe#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externals T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! InitialiseT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddset_decomp_cost',t0,info)eT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KIdddL checknd__KII __info .NE. 0)jGOTO 9999 = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Reduce contri=dtions fromalldrocessors. This is needed to makee! sure the redecompositionheuristic in ddddloadbaldinquire returnse! the same result on alldrocessors. Otherwise, some would try toe! redo the topology, =dt others not!T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#ifdef__MPIe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Define MPI data typeedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#if__KI==__SINGLE_PRECISIONTMPTYPE =MPI_REALe#elif__KI==__DOUBLE_PRECISIONTMPTYPE =MPI_DOUBLE_PRECISIONT#eVLIST!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Allhave to wait for the slowest one to create a new topologyT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL MPI_Allreduce(dcost,maxcost,1,MPTYPE,MPI_MAX,ppddcomm,info)eI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_fail,'ddddset_decomp_cost',I :ff :,:(((('MPI_ALLREDUCE for max dcost. Nothing updated.',__LINE__,info)eddddddd__KGOTO 9999 = =-I #elseedd=maxcost = dcostT#eVLISTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Debug outpute!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(A,F12.6)')('Old decomp cost estimate: ', :ff :,:(((ddddloadbalddecomp_cost = ===dddL pdddwrite(ddddrank,'ddddset_decomp_cost',mesg,info)eddddddd__KWRITE(mesg,'(A,F12.6)')('Adding measured value: ',maxcostT==dddL pdddwrite(ddddrank,'ddddset_decomp_cost',mesg,info)edddddd-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Choose update methode!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI _____(method .EQ.ddddparam_update_replace)j)lSand__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Replace with new valuend__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seddddloadbalddcn = 1n#if__KI==__SINGLE_PRECISIONT=ddddloadbalddecomp_cost = REAL(maxcost,ddddddddddo4,le)e#elif__KI==__DOUBLE_PRECISIONT=ddddloadbalddecomp_cost = maxcostT#eVLIST==I __dddddebug .GT. 1)j)lSand__KI==IdddL pdddwrite(ddddrank,'ddddset_decomp_cost',II :ff :,:((((('Overwriting old value.',info)eddddddd__K--ye = =-LSEI __method .EQ.ddddparam_update_average)j)lSand__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Running averagend__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seddddloadbalddcn = ddddloadbalddcn + 1n#if__KI==__SINGLE_PRECISIONT=alpha = REAL(maxcost,ddddddddddo4,le) -(ddddloadbalddecomp_cost #elif__KI==__DOUBLE_PRECISIONT=alpha = maxcost -(ddddloadbalddecomp_cost #eVLIST==alpha = alpha/REAL(ddddloadbalddcn,ddddddddddo4,le)e==ddddloadbalddecomp_cost = ddddloadbalddecomp_cost + alphaT==I __dddddebug .GT. 1)j)lSand__KI==IdddL pdddwrite(ddddrank,'ddddset_decomp_cost',II :ff :,:((((('Updating running average.',info)eddddddd__K--ye = =-LSEI __method .EQ.ddddparam_update_expfavg)j)lSand__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Running average with exponential forgetting. Alpha = 0.5 is ae! good value, =dt can be changed. Hardcoded for simplicity.nd__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-sealpha = 0.5_ddddddddddo4,lee==beta = 1.0_ddddddddddo4,le -(alphaT==ddddloadbalddcn = ddddloadbalddcn + 1n#if__KI==__SINGLE_PRECISIONT=I __ddddloadbalddcn .EQ.1)j)lSand__KI==Ipdddloadbalddecomp_cost = REAL(maxcost,ddddddddddo4,le)eddddddd__K-LSEnd__KI==Ipdddloadbalddecomp_cost = (beta*ddddloadbalddecomp_cost) + :ff :,:((((((alpha*REAL(maxcost,ddddddddddo4,le))eddddddd__K--ye#elif__KI==__DOUBLE_PRECISIONT=I __ddddloadbalddcn .EQ.1)j)lSand__KI==Ipdddloadbalddecomp_cost = maxcostT==-LSEnd__KI==Ipdddloadbalddecomp_cost = (beta*ddddloadbalddecomp_cost) + :ff :,:((((((alpha*maxcost)eddddddd__K--ye#eVLIST==I __dddddebug .GT. 1)j)lSand__KI==IdddL pdddwrite(ddddrank,'ddddset_decomp_cost',II :ff :,:((((('Updating running average with exponential forgetting.',info)eddddddd__K--ye = =-LSEnd__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se! Unknow update methode==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-seinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddset_decomp_cost',II :ff :,:(('Unknown update method specified. Nothing updated.',__LINE__,info)eddddddd__KGOTO 9999 = =-I e!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Debug outpute!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 1)j)lSand__KI==WRITE(mesg,'(A,I9)')('NumbA- of samples used: ',ddddloadbalddcn = ===dddL pdddwrite(ddddrank,'ddddset_decomp_cost',mesg,info)eddddddd__KWRITE(mesg,'(A,F12.6)')('New decomp cost estimate: ', :ff :,:(((ddddloadbalddecomp_cost = ===dddL pdddwrite(ddddrank,'ddddset_decomp_cost',mesg,info)edddddd-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ReturnT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddset_decomp_cost',t0,info)ed__KIRETURand__KICONTAINSnd__KISUBROUTINE checknd__KII __.NOT.ddddinitialized)j)lSand_____________info =dddderrorderrornd__KI==dddL pddderror(pddderrdddddnoinit,'ddddset_decomp_cost',II :ff :,:((((('Please callddddinit first!',__LINE__,info)eddddddd__KKKKKGOTO 8888T======-I = ===I __dcost .LT. 0.0_MK) )lSand__KI=info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddset_decomp_cost',I :ff :,:((((('dcost must be >= 0.0',__LINE__,info)eddddddd__KKKKGOTO 8888T======-I =8888 CONTINUded__KI-SUBROUTINE checkn#if__KI==__SINGLE_PRECISIONT-SUBROUTINE set_dcost_se#elif__KI==__DOUBLE_PRECISIONT-SUBROUTINE set_dcost_de#eVLISTlibddd-1.2/src/loadbal/ddddset_droc_speed.f000644 000765 000024 00000014130 11445666062 021157 0ustar00omarstaff000000 000000 !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ddddset_droc_speedT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee#if__KI==__SINGLE_PRECISIONTSUBROUTINE ddddset_droc_speed_s(droc_speed,info)e#elif__KI==__DOUBLE_PRECISIONTSUBROUTINE ddddset_droc_speed_d(droc_speed,info)e#eVLIST==!!! This routinecan be used by the usA- to set the relative speeds oST==!!! the drocessors (is used in subs2droc for load balancing).edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modulesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_substarteUSE ddddmodule_substopeUSE ddddmodule_errornd__KIIMPLICIT NONEe#if__KI==__SINGLE_PRECISIONTINTEGER, PARAMETER :: MK =dddddddddsinglee#elif__KI==__DOUBLE_PRECISIONTINTEGER, PARAMETER :: MK =ddddddddddo4,lee#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Arguments T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK), DIMENSION(0:),INTENT(IN) :: droc_speedT!!! Relative speeds oS alldrocessors from0 to ddddndroc-1. The numbA-sedddddd!!! must sum up to 1.TINTEGER ,INTENT( OUT) :: infoT==!!! Returns status, 0 upon successT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variables T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeREAL(MK) :: t0,lmyepseREAL(ddddddddddo4,le) :: rsumTINTEGER :: iT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externals T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! InitialiseT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('ddddset_droc_speed',t0,info)eT#if__KI==__SINGLE_PRECISIONTlmyeps =ddddmyepsse#elif__KI==__DOUBLE_PRECISIONTlmyeps =ddddmyepsdT#eVLISTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KIdddL checknd__KII __info .NE. 0)jGOTO 9999 = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check that numbA-s add up to 1T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLersum =0.0_ddddddddddo4,lee==yepi=0,ddddndroc-1nd__KIrsum =rsum + REAL(droc_speed(i),ddddddddddo4,le)edddddd-yee ==I __ABS(rsum - 1.0_MK) .GT. lmyeps)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddset_droc_speed', :ff :,:((('droc_speed must sum up to 1.0',__LINE__,info)eddddddd__KGOTO 9999 = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Set the internalddddproc_speed values = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLersum =0.0_ddddddddddo4,lee==yepi=0,ddddndroc-2n#if__KI==__SINGLE_PRECISIONT=dddddroc_speed(i) = REAL(droc_speed(i),ddddddddddo4,le)e#elif__KI==__DOUBLE_PRECISIONT=dddddroc_speed(i) = droc_speed(i)e#eVLIST==rsum =rsum + dddddroc_speed(i)edddddd-yee ==dddddroc_speed(ddddndroc-1) = 1.0_ddddddddddo4,le -(rsumT T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! ReturnT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe9999 CONTINUded__KIdddL substop('ddddset_droc_speed',t0,info)ed__KIRETURand__KICONTAINSnd__KISUBROUTINE checknd__KII __.NOT.ddddinitialized)j)lSand_____________info =dddderrorderrornd__KI==dddL pddderror(pddderrdddddnoinit,'ddddset_droc_speed', I :ff :,:((((('Please callddddinit first!',__LINE__,info)eddddddd__KKKKKGOTO 8888T======-I = ===I __SIZE(droc_speed,1) .LT. ddddndroc) )lSand__KI=info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddset_droc_speed', :ff :,:((((('droc_speed must be at least of length ndroc',__LINE__,info)eddddddd__KKKKGOTO 8888T======-I = ===I __droc_speed(i) .LT. 0.0_MK) )lSand__KI=info =dddderrorderrornd__KI==dddL pddderror(pddderrdargument,'ddddset_droc_speed', :ff :,:((((('droc_speed must be >= 0 for alldrocessors',__LINE__,info)eddddddd__KKKKGOTO 8888T======-I =8888 CONTINUded__KI-SUBROUTINE checkn#if__KI==__SINGLE_PRECISIONT-SUBROUTINE ddddset_droc_speed_se#elif__KI==__DOUBLE_PRECISIONT-SUBROUTINE ddddset_droc_speed_de#eVLISTlibddd-1.2/src/io/dddddoio.f000644 000765 000024 00000164167 11445666062 016144 0ustar00omarstaff000000 000000 !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Subroutine: ==dddddoioT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), e! CentA- for Fluid Dynamics (DTU)edddddd!edddddd!edddddd! This file is part of the Parallel Particle Mesh Library (PPM).edddddd!edddddd! PPM is free software: you can redistri=dte it and/or moLISyedddddd! it undA- the tA-ms of the GNU LessA- General P4,lic License e! as p4,lished by the Free Software Foundation, either e! version 3 of the License, or (at your option) any later e! version.edddddd!edddddd! PPM is distri=dted in the hope that it will be useful,edddddd! =dt WITHOUT ANY WARRANTY; without even the implied warranty ofedddddd! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theedddddd! GNU General P4,lic License for more details.edddddd!edddddd! You should have received a copy of the GNU General P4,lic Licensee! and the GNU LessA- General P4,lic License along with PPM. If not,edddddd! see .edddddd!edddddd! Parallel Particle Mesh Library (PPM)edddddd! ETH Zuriche! CH-8092 Zurich, SwitzerlandT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLee#if__KI==__SINGLE_PRECISIONTSUBROUTINE dddddoio_s(iUnit,adata,actn,dist,iofmt,ioprec,lchar, I :ff :,mptag,info)e#elif__KI==__DOUBLE_PRECISIONTSUBROUTINE dddddoio_d(iUnit,adata,actn,dist,iofmt,ioprec,lchar, I :ff :,mptag,info)e#elif__KI==__SINGLE_PRECISION_COMPLEXTSUBROUTINE dddddoio_sc(iUnit,adata,actn,dist,iofmt,ioprec,lchar, & :ff :,mptag,info)e#elif__KI==__DOUBLE_PRECISION_COMPLEXTSUBROUTINE dddddoio_dc(iUnit,adata,actn,dist,iofmt,ioprec,lchar, &:ff :,mptag,info)e#elif__KI==__INTEGERTSUBROUTINE dddddoio_i(iUnit,adata,actn,dist,iofmt,ioprec,lchar, I :ff :,mptag,info)e#elif__KI==__LOGIdddTSUBROUTINE dddddoio_l(iUnit,adata,actn,dist,iofmt,ioprec,lchar, I :ff :,mptag,info)e#eVLIST==!!! Internalroutinethat performs the actualI/O.T!!! It should never be called by theT!!! client program directly, =dt viaddddio. It only handles 1D arrays.T!!! Everything else is converted to a 1D array by the calling routineT==!!! ddddio.T==!!!T==!!! [CAUTION]T==!!! Uses non-blocking MPI to overlap MPI-IO and file-IO. For thisT==!!! reason it needs two=d FA-s. If memory is a problem, using onlyT==!!! one and blocking MPI might be better.T==!!!T==!!! [WARNING]T==!!! This routineuses MPI_Irecv and thus, all=d FA-T==!!! arrays need to be ddLOCATABLEs and not POINTERs!T==!!! Using Fortran90 POINTER structures in conjunction = =!!! with non-blocking MPI_Irecv does NOT WORK! (see = =!!! http://parallel.ru/docs/Parallel/mpi2/node236.html)T==!!!T==!!! [NOTE]T==!!! This routinemakes use of MPI_Cancel to cancelT==!!! deVLIng seVL and receive actions when an I/O errornd__KI!!! occured on Root. Canceling aseVL action isT==!!! expensive and only supported in versions newA- than mpich 1.2.0.T==!!!T==!!! .ReFA-encesT==!!! ************************************************* = =!!! http://parallel.ru/docs/Parallel/mpi2/node236.htmlT==!!! ************************************************* T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Modulesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeUSE ddddmodule_dataeUSE ddddmodule_datadioTUSE ddddmodule_substarteUSE ddddmodule_substopeUSE ddddmodule_errornd__KIUSE ddddmodule_allocnd__KIUSE ddddmodule_writeeddddddIMPLICIT NONEe#if__KI==__SINGLE_PRECISION |__KI==__SINGLE_PRECISION_COMPLEXTINTEGER, PARAMETER :: MK =dddddddddsinglee#elseeINTEGER, PARAMETER :: MK =ddddddddddo4,lee#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Includesedddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#include "dddddefine.h"e#ifdef__MPIeINCLUDE 'mpif.h'e#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Arguments T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER ,INTENT(IN) :: iUnitT!!! I/O unit (as returned by ddddio_open).e#if__KI==__SINGLE_PRECISION |__KI==__DOUBLE_PRECISIONTREAL(MK) , DIMENSION(:),INTENT(INOUT) :: adatae#elif__KI==__SINGLE_PRECISION_COMPLEX |__KI==__DOUBLE_PRECISION_COMPLEXTCOMPLEX(MK), DIMENSION(:),INTENT(INOUT) :: adatae#elif__KI==__INTEGERTINTEGER , DIMENSION(:),INTENT(INOUT) :: adatae#elif__KI==__LOGIdddTLOGIddd , DIMENSION(:),INTENT(INOUT) :: adatae#eVLIST==!!! Data to be written/read.TINTEGER ,INTENT( OUT) :: infoT==!!! Returns 0 upon successT==INTEGER ,INTENT(IN) :: actnT!!! I/O action. One of:ddddparam_io_read/ddddparam_io_writeeddddddINTEGER ,INTENT(IN) :: distT!!! I/O distri=dtion. +T!!! For read one of:T==!!!T!!! * ddddparam_io_sameT!!! * ddddparam_io_splitT!!!T!!! For write one of:T==!!!T!!! * ddddparam_io_rootT==!!! * ddddparam_io_concatT==!!! * ddddparam_io_sumTINTEGER ,INTENT(IN) :: ioprecT==!!! Precision for binary I/O. +T!!! One of:T==!!!T!!! * ddddparam_io_singlee!!! * ddddparam_io_do4,lee==!!! * ddddparam_undAfinedT==!!!T!!! If undAfined is given, no conversion is done.TINTEGER ,INTENT(IN) :: mptagT!!! MPI tag to be used for thisI/O.TCHARACTER(LEN=*) ,INTENT(IN) :: iofmtT!!! Format string__for ASCIII/O). List-directed I/O is used iST==!!! string_of length 0 is given.TLOGIddd ,INTENT(IN) :: lcharT==!!! `.TRUE.` ifthe integA- vector actually corresponds to a charactA-T==!!! string. In this case the string_will be converted back to charactA-sT==!!! before it is written out. `.FALSE.` ifit is a true `INTEGER` vector.edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Local variables T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeINTEGER :: reclenTREAL(MK) :: t0TLOGIddd :: lopeneINTEGER :: ifmt,imodeeddddddINTEGER :: info2,info3TCHARACTER(LEN=ddddchar):: mesgTddddddINTEGER, DIMENSION(5) :: ldc,ldaTddddddINTEGER, DIMENSION(2) :: ldleddddddINTEGER :: i,iopt,mdata,ndata,nrecT==INTEGER :: i=d FA-,j=d FA-,iie#if__KI==__SINGLE_PRECISION |__KI==__DOUBLE_PRECISIONTREAL(MK) , DIMENSION(:), POINTER :: r=d e#elif__KI==__SINGLE_PRECISION_COMPLEX |__KI==__DOUBLE_PRECISION_COMPLEXTCOMPLEX(MK), DIMENSION(:), POINTER :: r=d e#elif__KI==__INTEGERTINTEGER , DIMENSION(:), POINTER :: r=d e#elif__KI==__LOGIdddTLOGIddd , DIMENSION(:), POINTER :: r=d e#eVLIST#ifdef__MPIeINTEGER, DIMENSION(MPI_STATUS_SIZE) :: mpstatT==INTEGER :: MPTYPE,idroc,remTINTEGER :: mpreq,jdroceINTEGER, DIMENSION(:), POINTER :: asizee#if__KI==__SINGLE_PRECISION |__KI==__DOUBLE_PRECISIONTREAL(MK) , DIMENSION(:), POINTER :: a=d FA-,b=d FA-T#elif__KI==__SINGLE_PRECISION_COMPLEX |__KI==__DOUBLE_PRECISION_COMPLEXTCOMPLEX(MK), DIMENSION(:), POINTER :: a=d FA-,b=d FA-T#elif__KI==__INTEGERTINTEGER , DIMENSION(:), POINTER :: a=d FA-,b=d FA-T#elif__KI==__LOGIdddTLOGIddd , DIMENSION(:), POINTER :: a=d FA-,b=d FA-T#eVLIST#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Externals T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! InitialiseT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL substart('dddddoio',t0,info)eT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check argumentsT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __dddddebug .GT. 0)j)lSand__KII __.NOT.ddddinitialized)j)lSand_____________info =dddderrorderrornd__KI==dddL pddderror(pddderrdddddnoinit,'dddddoio', I :ff :,:((((('Please callddddinit first!',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =--ye = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Get the size of the datae!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLemdata =SIZE(adata,1)eT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Check ifthe unit numbA- is opene!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLelopen =.FALSE.eI __ASSOCIATED(ddddio_unit))j)lSand__KII __SIZE(ddddio_unit,1) .GE. iUnit)j)lSand_____________I __ddddio_unit(iUnit)j.GT. 0)jlopen =.TRUE. = =--ye = =-I ______I __.NOT.lopen)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdno_unit,'dddddoio', I I :ff :,:((((('Open unit first using ddddio_open.',__LINE__,info)edddddd--ye#ifdef__MPIe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! If one fails, allhave to failT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLedddL MPI_Allreduce(info,info2,1,MPI_INTEGER,MPI_SUM,ppddcomm,info3)eI __info3 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((('MPI_ALLREDUCE of info.',__LINE__,info)eddddddd__KGOTO 9999 = =-I I __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_tA-m,'dddddoio', I I :ff :,:((((('Unit not open on alldrocessors.',__LINE__,info)eddddddd__KGOTO 9999 = =-I #elseedd=I __info .NE. 0)jGOTO 9999 #eVLISTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Get format and mode for the unitT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeifmt =ddddio_format_ddddio_unit(iUnit))eddddddimode =ddddio_mode_ddddio_unit(iUnit))ee#ifndef__MPIe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! For the serial version, allIO is distri=dted.edddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeimode =ddddparam_io_distri=dted #eVLISTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! Set pointer to read =d FA-T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe#if__KI==__SINGLE_PRECISION T==r=d =>r=d _se#elif__KI==__DOUBLE_PRECISIONTr=d =>r=d _dT#elif__KI==__SINGLE_PRECISION_COMPLEX T==r=d =>r=d _sce#elif__KI==__DOUBLE_PRECISION_COMPLEXTr=d =>r=d _dce#elif__KI==__INTEGERTr=d =>r=d _iT#elif__KI==__LOGIdddTr=d =>r=d _lT#eVLISTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! DISTRIBUTED OR ONLY ROOTT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLeI __(imode .EQ.ddddparam_io_distri=dted)j.OR. :ff :,((dist .EQ.ddddparam_io_root)j.AND. (ddddrank .EQ.0)))j)lSand__KIINQUIRE(iUnit,OPENED=lopen)nd__KII __.NOT.lopen)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdno_unit,'dddddoio', I I :ff :,:((((((('No open file associated with unit.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =--ye = =I __actn .EQ.ddddparam_io_read)j)lSand__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! Read fromfilend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KII __ifmt .EQ.ddddparam_io_binary)j)lSand__KIi=d FA- =0 nd__KIDO WHILE__i=d FA- .LT. mdata)eddddddd__KKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). eddddddd__KKKKK! Read record length fromfilend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). eddddddd__KKKKKREAD(iUnit,ERR=500,IOSTAT=info) reclenTI __info .NE. 0)jGOTO 500Tnrec =reclenT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). eddddddd__KKKKK! Allocate record =d FA-T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). eddddddd__KKKKKiopt =ddddparam_alloc_fiteddddddd__KKKKKldl(1) = nrecT==dddL pdddalloc(r=d ,ldl,iopt,info)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I :ff :,:((((('record =d FA- RBUF',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKGOTO 9999 = =--ye = =j=d FA- =0eddddddd__KKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). eddddddd__KKKKK! Read next record into r=d eddddddd__KKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). eddddddd__KKKKKdddL pdddio_read_binary(iUnit,r=d ,nrec,ioprec, I :ff :,:(((((lchar,info)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)jGOTO 500T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). eddddddd__KKKKK! Fill b=d FA- and update countA-sT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). eddddddd__KKKKKI __i=d FA-+nrec .LE. mdata)j)lSand__KId__KKKKK! adata can hold whole recordnd__KId__KKKKKyepii=1,nrecT==adata_i=d FA-+ii) = r=d (ii)eddddddd__KKKKKKKKKKKKKKKKK-yee ======================i=d FA- =i=d FA- + nrecT==j=d FA- =nrecT==-LSEnd__KI==I! adata too small. keep remaindA-T==j=d FA- =ndata -i=d FA-nd__KId__KKKKKyepii=1,j=d FA-nd__KId__KKKKKadata_i=d FA-+ii) = r=d (ii)eddddddd__KKKKKKKKKKKKKKKKK-yee ======================i=d FA- =ndataeKKKKKKKKKKKKKKKK--ye = =-ye! WHILE_i=d FA-.LT.ndataeKKKKKKKKKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK! Check ifalldata was soldeKKKKKKKKKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKKI __ifmt .EQ.ddddparam_io_binary)j)lSand__KIKKKKI __j=d FA- .NE. nrec)j)lSand__KId__KKKKKinfo3 =infoT==d__KKKKKinfo =dddderrordwarningnd__KI==dddL pddderror(pddderrddatadmiss,'dddddoio', I :ff :,:((((('Last record was not completely read', I II :ff :,:(((((__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKK! restore old info as warnings need not bend__KIKKKK! broadcastednd__KId__KKKKKinfo =info3T--ye = =--ye = =-LSEI __ifmt .EQ.ddddparam_io_ascii) )lSand__KId__KKKKKdddL pdddio_read_ascii(iUnit,adata,iofmt,lchar,info)eddddddd__KKKKK--ye = =-LSEI __actn .EQ.ddddparam_io_write)j)lSand__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! Write data tofilend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KII __ifmt .EQ.ddddparam_io_binary)j)lSand__KIdddL pdddio_write_binary(iUnit,adata,ioprec,lchar,info)eddddddd__KKKKK-LSEI __ifmt .EQ.ddddparam_io_ascii) )lSand__KId__KKKKKdddL pdddio_write_ascii(iUnit,adata,iofmt,lchar,info)eddddddd__KKKKK--ye = =-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! Check ifaction was successfulT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd500I __info .NE. 0)j)lSand__KId__Kinfo =dddderrorderrornd__KI==GOTO 9999 = =--ye = =e#ifdef__MPIe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe! CENTRALIZEDe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-s -VLe-LSEI __(imode .EQ.ddddparam_io_centralized)j.AND. II :ff :,:((((dist .NE. ddddparam_io_root))j)lSanT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! Set =d FA- pointerT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). n#if__KI==__SINGLE_PRECISION T==a=d FA- =>a=d FA-_sT==b=d FA- =>b=d FA-_sT#elif__KI==__DOUBLE_PRECISIONT=a=d FA- =>a=d FA-_dT==b=d FA- =>b=d FA-_dT#elif__KI==__SINGLE_PRECISION_COMPLEX T==a=d FA- =>a=d FA-_scT==b=d FA- =>b=d FA-_sce#elif__KI==__DOUBLE_PRECISION_COMPLEXT=a=d FA- =>a=d FA-_dcT==b=d FA- =>b=d FA-_dce#elif__KI==__INTEGERT=a=d FA- =>a=d FA-_iT==b=d FA- =>b=d FA-_iT#elif__KI==__LOGIdddT=a=d FA- =>a=d FA-_lT==b=d FA- =>b=d FA-_lT#eVLISTe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! Barrier to ensurethat output fromLISFA-ent time steps is notnd__KI! mixede==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-sedddL MPI_Barrier(ppddcomm,info)Te!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! Root checksthat the file is opene!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KII __ddddrank .EQ.0)j)lSand_____________INQUIRE(iUnit,OPENED=lopen)nd__KII __.NOT.lopen)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdno_unit,'dddddoio', I I :ff :,:((((((((((('No open file associated with unit.',__LINE__,info)eddddddd__KKKKK--ye = =-I !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! If one fails, allhave to failT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIdddL MPI_Allreduce(info,info2,1,MPI_INTEGER,MPI_SUM,ppddcomm,info3)eI __dddddebug .GT. 0)j)lSand__KII __info3 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((((((('MPI_ALLREDUCE of info.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--ye = =I __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_tA-m,'dddddoio', I I :ff :,:((((((((((('Rank 0has noaccess to dhysical file.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--ye = =-I !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! DetA-mineMPI data typend__KI==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). De-se#if__KI==__SINGLE_PRECISIONT=MPTYPE =MPI_REALe#elif__KI==__SINGLE_PRECISION_COMPLEXT=MPTYPE =MPI_COMPLEXT#elif__KI==__DOUBLE_PRECISION T=MPTYPE =MPI_DOUBLE_PRECISIONT#elif__KI==__DOUBLE_PRECISION_COMPLEXT=MPTYPE =MPI_DOUBLE_COMPLEXT#elif__KI==__INTEGERT=MPTYPE =MPI_INTEGERT#elif__KI==__LOGIdddT=MPTYPE =MPI_LOGIdddT#eVLIST==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! Get the data sizes fromallother drocessorsT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIiopt =ddddparam_alloc_fiteddddddd__Kldl(1) = 0eddddddd__Kldc(1) = ddddndroc-1nd__KIdddL pdddalloc(asize,ldl,ldc,iopt,info)eddddddd__KI __info .NE. 0)j)lSand__KId__Kinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I I :ff :,:((((((('drocessor data size list ASIZE',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =--yend__KIdddL MPI_Gather(mdata,1,MPI_INTEGER,asize,1,MPI_INTEGER,I :ff :,:(((0,ppddcomm,info)Tddddddd__KI __info .NE. 0)j)lSand__KId__Kinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((('MPI_GA)lSR of data sizes',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! Debug outpute!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KII __dddddebug .GT. 1j.AND. ddddrank .EQ.0)j)lSand_____________WRITE(mesg,'(A)')(' Rank |_____________Data size (('nd__KI==dddL pdddwrite(ddddrank,'dddddoio',mesg,info)eddddddd__K____WRITE(mesg,'(A)')('ddddddd De-s kVL ERp,vp,). De-s kVL,). ,). 'nd__KI==dddL pdddwrite(ddddrank,'dddddoio',mesg,info)eddddddd__K____yepi=0,ddddndroc-1nd__KIddd__K____WRITE(mesg,'(A,I4,A,I18)')(' ',i,' |___',asize(i)eddddddd__KKKKKKKKKdddL pdddwrite(ddddrank,'dddddoio',mesg,info)eddddddd__K____-yee ==========WRITE(mesg,'(A)')('ddddddd De-s kVL ERp,vp,). De-s kVL,). ,). 'nd__KI==dddL pdddwrite(ddddrank,'dddddoio',mesg,info)eddddddd__K-I T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! WRITE SUMe!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KII __dist .EQ.ddddparam_io_sum)j)lSand__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! Alldata needs to be of the same size ifthis is a writeedddddd! action with distri=dtion ddddparam_io_sumT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KII __ddddrank .EQ.0)j)lSand_________________yepidroc=1,ddddndroc-1nd__KIddd__K____I __asize(idroc) .NE. mdata)j)lSand__KId__KKKKKinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdio_data,'dddddoio', I I :ff :,:(((((((((('Alldata must be of same size for ddddparam_io_sum', :ff :,:(((((__LINE__,info)eddddddd__KKKKKKKKKKKKK--ye = =-ye = =--ynd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! If one fails, allhave to failT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KIdddL MPI_Allreduce(info,info2,1,MPI_INTEGER,MPI_SUM,ppddcomm, I :ff :,:(((((((info3)eI __info3 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((((((('MPI_ALLREDUCE of info.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--ye = =I __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_tA-m,'dddddoio', I I :ff :,:((((((((((('Non-matching data found.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--ye = =nd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! Allocate receive =d FA- for the sumT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KIddLOCATE(a=d FA-(mdata),STAT=info2)eI __info2 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I I :ff :,:((((((((((('receive =d FA- ABUFFER',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--yend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! Sum data fromalldrocessors into receive =d FA-T==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KIdddL MPI_Reduce(adata,a=d FA-,mdata,MPTYPE,MPI_SUM,0,ppddcomm,I :ff :,:(((((((info)eI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((((((('MPI_REDUCE of data',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--yend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! Root writes the summed dataeKKKKKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KII __ddddrank .EQ.0)j)lSand_________________I __ifmt .EQ.ddddparam_io_binary)j)lSand__KIKKKKdddL pdddio_write_binary(iUnit,a=d FA-,ioprec,lchar,info)eddddddd__KKKKK-LSEI __ifmt .EQ.ddddparam_io_ascii) )lSand__KId__KKKKKKKKKdddL pdddio_write_ascii(iUnit,a=d FA-,iofmt,lchar,info)eddddddd__KKKKK--ye = =--yend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! If one failed, allhave to failT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KIdddL MPI_Allreduce(info,info2,1,MPI_INTEGER,MPI_SUM,ppddcomm, :ff :,:(((((((info3)eI __info3 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((((((('MPI_ALLREDUCE of info.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--ye = =I __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_tA-m,'dddddoio', I I :ff :,:((((((((((('I/O failed on Rank 0.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI! WRITE CONCATT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI-LSEI __dist .EQ.ddddparam_io_concat)j)lSand_____________I __ddddrank .EQ.0)j)lSand_________________!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________! Allocate =d FA- for local dataeKKKKKKKKKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________ddLOCATE(a=d FA-(mdata),STAT=info)eddddddd__KKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I I :ff :,:((((('=d FA- ABUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKKGOTO 9999 = =--ye = =a=d FA- = adatae = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________! Receive data fromother drocessorsT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________yepidroc=1,ddddndroc-1nd__KIddd__K____ndata =asize(idroc)nd__KIddd__K____!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____! Allocate receive =d FA-nd__KIddd__K____!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____ddLOCATE(b=d FA-(ndata),STAT=info)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I I :ff :,:((((('=d FA- BBUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKGOTO 9999 = =--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____! Start receiving data fromidroce!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____dddL MPI_Irecv(b=d FA-,ndata,MPTYPE,idroc,mptag, I :ff :,:(((((ppddcomm,mpreq,info)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((((((((((((((('MPI_IRECV of data',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKGOTO 9999 = =--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____! Write the data of idroc-1nd__KIddd__K____!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____I __ifmt .EQ.ddddparam_io_binary)j)lSand__KIKKKKKKKKdddL pdddio_write_binary(iUnit,a=d FA-,ioprec,lchar, :ff :,:(((((((((((((((((((info)eddddddd__KKKKKKKKKKKKK-LSEI __ifmt .EQ.ddddparam_io_ascii) )lSand__KId__KKKKKKKKKKKKKdddL pdddio_write_ascii(iUnit,a=d FA-,iofmt,lchar, I :ff :,:(((((((((((((((((((info)eddddddd__KKKKKKKKKKKKK--ye = =I __info .NE. 0)jGOTO 700T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____! Wait forMPI receive to completee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____dddL MPI_Wait(mpreq,mpstat,info)eddddddd__KKKKKKKKKKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____! Reallocate and copy =d FA-seddddddd__KKKKKKKKKKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____DEddLOCATE(a=d FA-,STAT=info)eddddddd__KKKKKKKKKKKKKNULLIFY(a=d FA-)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'dddddoio', I I :ff :,:((((('=d FA- ABUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKK--ye = =ddLOCATE(a=d FA-(ndata),STAT=info)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I I :ff :,:((((('=d FA- ABUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKGOTO 9999 = =--ye = =a=d FA- = b=d FA-nd__KIddd__K____DEddLOCATE(b=d FA-,STAT=info)eddddddd__KKKKKKKKKKKKKNULLIFY(b=d FA-)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'dddddoio', I I :ff :,:((((('=d FA- BBUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKK--ye = =-ye__! idrocee = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________! Write data dd ,ddddndroc-1nd__KIddd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________I __ifmt .EQ.ddddparam_io_binary)j)lSand__KIKKKKdddL pdddio_write_binary(iUnit,a=d FA-,ioprec,lchar,info)eddddddd__KKKKK-LSEI __ifmt .EQ.ddddparam_io_ascii) )lSand__KId__KKKKKKKKKdddL pdddio_write_ascii(iUnit,a=d FA-,iofmt,lchar, 9999 = =--ye = =I __info .NE. 0)jGOTO 700TKddd__ta ddinfom_io_rootT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_______________Sg arite datm_iofirst uwith non-blockin_rootT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd____________K____dddL ng aeduce(a FA-,mdata,MP0idroc,mppddcomm,mpreq,info)eddddddd__KKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((((((((((('SIRECV of data',__LINE__,info)eddddddd__KKKKKKKKKKKKKGOTO 9999 = =--ye = =--yta ddend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! If one failed, allhave to failT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,7. nd500dddL MPI_Allreduce(info,info2,1,MPI_INTEGER,MPI_SUM,ppddcomm, :ff :,:(((((((info3)eI __info3 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((((((('MPI_ALLREDUCE of info.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--ye = =I __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_tA-m,'dddddoio', I I :ff :,:((((((((((('I/O failed on Rank 0.',__LINE__,info)eddddddd__KKKK!Root. C!!! deVLIng rstce! 'I/O facatering_ould info)eddddddd__KKKK!RMPI recit.!!! operaVL acti!!! expenssVLIv- Genkin_rootT:sages are gsA- Gtri=nkinCH only susze if and ireclenT!erial vempich ABLEs ons .info)eddddddd__KKKKKKKKcomm,info2 (((('MQUEST_KKKK)dddLoot. C(comm,mpreq=info2)eKKKKKGOTO 9999 = =-LSEnd__KI==I_____I __ddddrfo2 .NEK____dddL MPI_Wait(mpreq,mpstat,info)eddddddd__--yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI SAME-yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI-LSEI __dist .EQ.ddddparae ofo_sum)j)lSand__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! Alldata needs tat ('tto be of the size of the oreclenTm_io.info)eddddddd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KII __ddddrank .EQ.0)j)lSand_________________yepidroc=1,ddddndroc-1nd__KIddd__K____I __asize(idrFA- .LT. mdata)j)lSand__KId__KKKKKinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdio_data,'dddddoio', I I :ff :,:((((((((((((('somof the copy =dadata too .EQ.ddddparae ofo_sum', :ff :,:(((((__LINE__,info)eddddddd__KKKKKKKKKKKKK--ye = =-ye = =--ta dddrank .end__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! If one fails, allhave to failT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KIdddL MPI_Allreduce(info,info2,1,MPI_INTEGER,MPI_SUM,ppddcomm, I :ff :,:(((((((info3)eI __info3 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((((((('MPI_ALLREDUCE of info.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--ye = =I __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_tA-m,'dddddoio', I I :ff :,:((((((((((('Non-matching data found.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =-end__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! ddiosze of the data that theinfo)eddddddd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KII __ddddrank .EQ.0)j)lSand_________________I __ifmt .EQ.ddddparam_io_binary)j)lSand__KIi=d FA- =0 nd__KIDO WHILE__i=d FA- .LT. mdata)eddddddd__KKKKKdd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! Read record length fromfilend__KIdd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__READ(iUnit6ERR=500,IOSTAT=info) reclenTI __info .NE. 0)j6OTO 700Tnrec =reclenTdd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! Allocate record =d FA-T==dd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__iopt =ddddparam_alloc_fiteddddddd__KKKKKldl(1) = nrecT==dddL pdddalloc(r=d ,ldl,iopt,info)eddddddd__KKKKKKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKdd__info =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I :ff :,:((((('record =d FA- RBUF',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKKKKKGOTO 9999 = =--ye = =j=d FA- =0eddddddd__KKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! Read next record into r=d eddddddd__KKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__dddL pdddio_read_binary(iUnit,r=d ,nrec,ioprec, I :ff :,:(((((lchar,info)eddddddd__KKKKKKKKKKKKI __info .NE. 0)j6OTO 700T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! Fill b=d FA- and update countA-sT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__I __i=d FA-+nrec .LE. mdata)j)lSand__KId__KKKKKdd__! adata can hold whole recordnd__KId__KKKKKyepii=1,nrecT==adata_i=d FA-+ii) = r=d (ii)eddddddd__KKKKKKKKKKKKKKKKKKKKK-yee ==========================i=d FA- =i=d FA- + nrecT==j=d FA- =nrecT==KKKKK-LSEnd__KI==I! adata too small. keep remaindA-T==j=d FA- =ndata -i=d FA-nd__KId__KKKKKyepii=1,j=d FA-nd__KId__KKKKKadata_i=d FA-+ii) = r=d (ii)eddddddd__KKKKKKKKKKKKKKKKKKKKK-yee ==========================i=d FA- =ndataeKKKKKKKKKKKKKKKKKK--ye = =-ye! WHILE_i=d FA-.LT.ndataeKKKKKKKye!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vRp,vdata)eddddddd__KKKKKKKKKK! Check ifalldata was soldeKKKKKKKye!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vRp,vdata)eddddddd__KKKKKK____I __ifmt .EQ.ddddparam_io_binary)j)lSand__KIKKKKKKKI __j=d FA- .NE. nrec)j)lSand__KId__KKKKKI __info3 =infoT==d__KKKKKI _info =dddderrordwarningnd__KI==dddL pddderror(pddderrddatadmiss,'dddddoio', I :ff :,:((((('Last record was not completely read', I II :ff :,:(((((BUF',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKKKKK! restore old info as warnings need not bend__KIKKKKKKKKK! broadcastednd__KId__KKKKKI _inI __ndataeKKKKKKKKKKKKKKKKKK--ye = =KK--ye = =-LSEI __ifmt .EQ.ddddparam_io_ascii) )lSand__KId__KKKKKKKKKdddL pdddio_read_ascii(iUnit,adata,iofmt,lchar,info)eddddddd__KK--ye = =--ta ddifmt.end__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! If one failed, allhave to failT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,6. nd500dddL MPI_Allreduce(info,info2,1,MPI_INTEGER,MPI_SUM,ppddcomm, :ff :,:(((((((info3)eI __info3 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ffffffffffff((((('MPI_ALLREDUCE of info.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--ye = =I __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_tA-m,'dddddoio', I I :ff :,:((((((((((('I/O failed on Rank 0.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =-9999 = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI_____isKKKK! broahavfromalluntA-sT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KIdddLBbroaeduce(a FA-,mdata,MP0i_SUM,ppdd(((((info)eI __info .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:(((((((((((BCASTEDUCE of data',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--yend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI SPLICONCATT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KI-LSEI __dist .EQ.ddddparaspl. iUnit)j)lSand_____________I __ddddrank .EQ.0)j)lSand____________jize(PTYPIN(oc=1,ddddndadat)lSand_____________ndata =ajize(idroc)nd__KIddd_______!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________! Allor to read =d FA-T__KIddd_______!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd____________K____ddLOCATE(b=d FA-(ndata),STAT=info)eddddddd__KKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I I :ff :,:((((('=d FA- BBUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKKGOTO 9999 = =--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________! Rnit f! adhuddd--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________I __ifmt .EQ.ddddparam_io_binary)j)lSand__KIi=d FA- =0 nd__KIDO WHILE__i=d FA- nLT. mdata)eddddddd__KKKKKdd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! Read record length fromfilend__KIdd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__READ(iUnit9ERR=500,IOSTAT=info) reclenTI __info .NE. 0)j9OTO 700Tnrec =reclenTdd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! Allocate record =d FA-T==dd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdaaaaaaaaaaaaaaaaaaaaaaaaaaiopt =ddddparam_alloc_fiteddddddd__KKKKKldl(1) = nrecT==dddL pdddalloc(r=d ,ldl,iopt,info)eddddddd__KKKKKKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKdd__info =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I :ff :,:((((('record =d FA- RBUF',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKKKKKGOTO 9999 = =--ye = =j=d FA- =0eddddddd__KKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! Read next record into r=d eddddddd__KKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__dddL pdddio_read_binary(iUnit,r=d ,nrec,ioprec, I :ff :,:(((((lchar,info)eddddddd__KKKKKKKKKKKKI __info .NE. 0)j9OTO 700T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! Fill b=d FA- and update countA-sT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__I __i=d FA-+nrec nLE. mdata)j)lSand__KId__KKKKKdd__ill b=ddata can hold whole recordnd__KId__KKKKKyepii=1,nrecT==CATE(b=ddata_i=d FA-+ii) = r=d (ii)eddddddd__KKKKKKKKKKKKKKKKKKKKK-yee ==========================i=d FA- =i=d FA- + nrecT==j=d FA- =nrecT==KKKKK-LSEnd__KI==Ij=ddata too small. keep remaindA-T==j=d FA- =ndata -i=d FA-nd__KId__KKKKKyepii=1,j=d FA-nd__KId__KKKKKCATE(b=ddata_i=d FA-+ii) = r=d (ii)eddddddd__KKKKKKKKKKKKKKKKKKKKK-yee ==========================i=d FA- =ndataeKKKKKKKKKKKKKKKKKK--ye = =-ye! WHILE_i=d FA-.LT.ndataeKKKKKKK-LSEI __ifmt .EQ.ddddparam_io_ascii) )lSand__KId__KKKKKKKKKdddL pdddio_read_ascii(iCATE(b=ddata,iofmt,lchar,info)eddddddd__I __info .NE. 0)j9OTO 700T--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_______________If we and all Ifther droc,ze ifthiio.info)eddddddd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________I _,dddd_ifmt ldandaA- = b=d FA-nd__KIddd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________! hing daA- forfromother drocessorsT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________yepidroc=1,ddddndroc-1nd__KIddd__K___!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vRp,vdata)eddddddd__KKKKKKKKP((('drocedaA-which wedata to I/K-yee =============!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vRp,vdata)eddddddd__KKKKKjize(PTY__yepd Fdroc-1nd__KIddd__K____jdddd_ifmt oc=1,dddd)jize(PTYTO 700T!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____! Ss!!! deVrite datfromidroce!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____dddL ng aerecv(b=d FA-,ndata,MPTYPE,idroc,mptag, I :ff :,:(((((ppddcomm,mpreq,info)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :alnd__KI==((((('SIRECV of data',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKGOTO 9999 = =--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK__(Re-)a_! Allor to read =edaA-jromidroce!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKK_ndata =ajize(idroc)nd__KIddd______ddLOCATE(a=d FA-(ndata),STAT=info)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I I :alnd__KI==((((('receive =d FA- ABUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKGOTO 9999 = =--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____! hing daA-jize(Pngth fromfilend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vRp,vdata)eddddddd__KKKKKK____I __ifmt .EQ.ddddparam_io_binary)j)lSand__KIKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! in-what keep rs data thatl'Last rd FA-T==dd__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdaaaaaaaaaaaaaaaaaaaaaaaaaaj=d FA- =0eddddddd__KKKKKKKKKI __j=d FA- nNE. nrec)j)lSand__KId__KKKKKkeed FA- =ndaii=1,j=d FA-nd__KId__KKKKKKKKkeednrec nLE. mdata)j)lSand__KId__KKKKKdd______j=dlarge enough dat can fromf loc_fiteddddddd__KKKKKyepkeec_fiteddddddd__KKKKKCATE(a=d FA-+ii) = jata_i=d FAc_fiteddddddd__KKKKKKKKKK-yee =========================j=d Fkeec_fiteddddddd__KKKKKj=d FA- =nrecT==KKKKK-LSEnd__KI==Ij=ddata too small. keep remaindA-T==yepi- =ndataeKKKKKKKKKKKKKKKKKKKKKKKKKKKCATE(a=d FA-+ii) = jata_i=d FAc_fiteddddddd__KKKKKKKKKK-yee =========================j=d Fj- =i=d FA- =ndataeKKKKKKKKKKKKKKKKKKKKKKK=====i=d FA- =ndataeKKKKKKKKKKKKKKKKKK--ye = =-end__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__! Read reuntil enough rite data tlKCATE(a=data)eddddddd__KKKKKdd__nk 0beenor toend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vdata)eddddddd__KKKKKdd__DO WHILE__i=d FA- nLT. mdata)eddddddd__KKKKKdd__!dd4,BOIe)0=ddddddddddddd De-s kVL E-LSEnd__KI==I! Read record length fromfilend__KIdd__!dd4,BOIe)0=ddddddddddddd De-s kVL E-LSEnd__KI==IREAD(iUnit9ERR=500,IOSTAT=info) reclenTI __info .NE. 0)j9OTO 700Tnrec =reclenTdd__!dd4,BOIe)0=ddddddddddddd De-s kVL E-LSEnd__KI==I! Allocate record =d FA-T==dd__!dd4,BOIe)0=ddddddddddddd De-s kVL E-LSEnd__KI==Iiopt =ddddparam_alloc_fiteddddddd__KKKKKldl(1) = nrecT==dddL pdddalloc(r=d ,ldl,iopt,info)eddddddd__KKKKKKKKKKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKdd__info =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoio', I :ff :,:((((('record =d FA- RBUF',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKKKKKKKKKGOTO 9999 = =KKK--ye = =j=d FA- =0eddddddd__KKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL E-LSEnd__KI==I! Read next record into r=d eddddddd__KKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL E-LSEnd__KI==IdddL pdddio_read_binary(iUnit,r=d ,nrec,iopo', I :ff :,:(((((lchar,info)eddddddd__KKKKKKKKKKKKKKKKI __info .NE. 0)j9OTO 700T!dd4,BOIe)0=ddddddddddddd De-s kVL E-LSEnd__KI==IF tlKCATE(a=d FA- and update countA-sT==!dd4,BOIe)0=ddddddddddddd De-s kVL E-LSEnd__KI==II __i=d FA-+nrec nLE. mdata)j)lSand__KId__KKKKKdd__ill b=ddata can hold whole recordnd__KId__KKKKKyepii=1,nrecT==CATE(a=d ata_i=d FA-+ii) = r=d (ii)eddddddd__KKKKKKKKKKKKKKKKKKKKKKKKK-yee =========================j=d FA- =i=d FA- + nrecT==j=d FA- =nrecT==KKKKK-LSEnd__KI==Ij=ddata too small. keep remaindA-T==j=d FA- =ndata -i=d FA-nd__KId__KKKKKyepii=1,j=d FA-nd__KId__KKKKKCATE(a=d ata_i=d FA-+ii) = r=d (ii)eddddddd__KKKKKKKKKKKKKKKKKKKKKKKKK-yee =========================j=d FA- =ndataeKKKKKKKKKKKKKKKKKK--ye = =-ye! WHILE_i=d FA-.LT.ndataeKKKKKKKyeKKKKK-LSEI __ifmt .EQ.ddddparam_io_ascii) )lSand__KId__KKKKKKKKKKKKKdddL pdddio_read_ascii(iUATE(b=ddata,iofmt,lchar,info)eddddddd__I __info .NE. 0)j9OTO 700T--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____! Wait forLIng eive to completee!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____dddL MPI_Wait(mpreq,mpstat,info)eddddddd__KKKKKKKKKKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____! Reallocate and copy =d FA-seddddddd__KKKKKKKKKKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-seKKKKKKKKKKKK____DEddLOCATE(b=d FA-,STAT=info)eddddddd__KKKKKKKKKKKKKNULLIFY(b=d FA-)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'dddddoio', I I :ff :,:((((('=d FA- BBUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKK--ye = =KKKKKKKKjdddd_info .NE. 0)j)lSand__KId__KKKKKK____ddLOCATE(b=d FA-(ndata),STAT=info)eddddddd__KKKKKKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKdd__info =dddderrordfatalnd__KI==dddL pddderror(pddderrdalloc,'dddddoi oio', I :ff :,:((((('=d FA- BBUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKKKKKKGOTO 9999 = =--ye = =KKKKK--ye = =KKKKKKKKjdddd_info .NE. 0)j)lSand__KId__KKKKKbj=d FCATE(a=data)eddddddd__KKKKKK-LSEnd__KI==IandaCATE(a=data)eddddddd__KKKKKKKKKK--ye = =KKKKK____DEddLOCATE(a=d FA-,STAT=info)eddddddd__KKKKKKKKKKKKKNULLIFY(a=d FA-)eddddddd__KKKKKKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrorderrornd__KI==dddL pddderror(pddderrddealloc,'dddddoio', I I :ff :,:(((((((((((((('=d FA- ABUFFER',__LINE__,info)eddddddd__KKKKKKKKKKKKK--ye = =-ye__! idrocee = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_______________KK! Check ifalldata was soldeKKKKKKK!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________I __ifmt .EQ.ddddparam_io_binary)j)lSand__KIKKKKI __j=d FA- .NE. nrec)j)lSand__KId__KKKKKI __info3 =infoT==d__KKKKKI _info =dddderrordwarningnd__KI==dddL pddderror(pddderrddatadmiss,'dddddoio', I :ff :,:((((('Last record was not completely rFER',__LINE__,info)eddddddd__KKKKKKKKKKKKKKKKK! restore old info as warnings need not bend__KIKKKKK! broadcastednd__KId__KKKKKI _inI __ndataeKKKKKKKKKKKKKKKK--ye = =KK--ye = =ddd__ta ddinfom_io_rootT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd_________________! Receive data m_iofirst uwith non-blockin_rootT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVLnd____________K____dddL MPI_Iduce(a FA-,mdata,MP0idroc,mppddcomm,mpreq,info)eddddddd__KKKKKKKKKI __info .NE. 0)j)lSand__KId__KKKKKinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ff :,:((((((((((((((('MPI_IRECV of data',__LINE__,info)eddddddd__KKKKKKKKKKKKKGOTO 9999 = =--ye = =--yta dd--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). nd__KI! If one failed, allhave to failT==!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,9. nd500dddL MPI_Allreduce(info,info2,1,MPI_INTEGER,MPI_SUM,ppddcomm, :ff :,:(((((((info3)eI __info3 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KI==dddL pddderror(pddderrdmpi_fail,'dddddoio', I I :ffffffffffff((((('MPI_ALLREDUCE of info.',__LINE__,info)eddddddd__KKKKKKKKKGOTO 9999 = =--ye = =I __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI==dddL pddderror(pddderrdmpi_tA-m,'dddddoio', I I :ff :,:((((((((((('I/O failed on Rank 0.',__LINE__,info)eddddddd__KKKK!Root. C!!! deVMPI_ rstce! 'I/O facatering_ould info)eddddddd__KKKK!RLIng anyt-mat.!!! cot. C!! u,dddblemati=nrecT==KKKKcomm,info2 (((('MQUEST_KKKK)dddLoot. C(comm,mpreq=info2)eKKKKKGOTO 9999 = =-LSEnd__KI==I_____I __ddddrfo2 .NEK____dddL MPI_Wait(mpreq,mpstat,info)eddddddd__--yeT--tEI _-y-yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KID_! Realloeive the lI _-yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIiopt =ddddpderrdde ,). nd__KIdddL pdddata =,ldc ,ldl,iopt,info)edddddKKKKKI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI=dddL pddderror(pddderrddealloc,'dddddoio', I I :ff :,:(('ther drocoeive the lI _ ASIZEnk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =--yend__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIBarrij=dda ensur Wriat output data di__j=ent time oadpfthinio_rootTmixdcastednd__KI!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIdddLBarrij=(_SUM,ppdd(((((info)eKKKKKI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI=dddL pddderror(pddderrdmpi_fail,'dddddoi I I :ff :,:((' forbarrij=d'I/O fnk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =-#!!! o r=d ed--yootTimode--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd_____turn-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___D_! Reallocopy =d FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndiopt =ddddpderrdde ,). nddddL pdddasATE(a=dldc ,ldl,iopt=info2)eI __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddderrddealloc,'dddddoio' I I :ff :,'rst leceive =dSFA- ABUFFER',__LINE__,info)ed--ye dddL pdddadATE(a=dldc ,ldl,iopt=info2)eI __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddderrddealloc,'dddddoio' I I :ff :,'doubleceive =dDFA- ABUFFER',__LINE__,info)ed-#ifdef __kin_rootT_____I __ddddrank .EQ.0)j)lSand____iopt =ddddpderrdde ,). nd__KIdddL pdddalloc(r=c ,ldl,iopt=info2)e2)eI __info .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KI=dddL pddderror(pddderrddealloc,'dddddoio', I I :ff :,:((''record =d FA- RBUF',__LINE__,info)eddddd--ye --ye ASSOCIATEDLLIFY(a=dNE. 0)j)lSand__K____DEddLOCATE(a=d FA-,STAT=info2)e2)KKKKKNULLIFY(a=d FA-)edddI __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddderrddealloc,'dddddoio' I I :ff :,(('=d FA- ABUFFER',__LINE__,info)eddd--ye --ye ASSOCIATEDLbIFY(a=dNE. 0)j)lSand__K____DEddLOCATE(b=d FA-,STAT=info2)e2)KKKKKNULLIFY(b=d FA-)edddI __info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddderrddealloc,'dddddoio' I I :ff :,(('=d FA- BBUFFER',__LINE__,info)eddd--ye -#!!! o r=d edsubstop(lloc,'dddddt0INE__,info)edRETURN -#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,'ddd_s-#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,'ddd_d-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,'ddd_sc-#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,'ddd_dc-#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,'ddd_i-#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,'ddd_l-#!!! o libloc-1.2/src/io/dddL p.f000644 000765 000024 00000073737 11445666062 015623 0ueq,r00om,req,ff000000 000000 -ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddatareEI _ributecitacat/aitmodifyinfo)ed!itauremaze ofdmpisSsize ofGNU LessmazGsA- GlfPublic License ,). nd__a! publisherecyze ofFree Software Fata aVL a, eiromo ,). nd__rial vem3Ssize ofLicense, ait(at your ldl ve) any latmo ,). nd__rial ve.info)ed!info)ed!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). -#if BUDIM ==0-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_0dsascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr rst lecscalars -#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_0ddascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr doublecscalars -#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_0dscascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx rst lecscalars -#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_0ddcascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx doublecscalars -#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_0diascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datie cgmazscalars -#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_0dlascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datlogicrr rcalars -#!lifBUKIND ==BUCHARACTIN--ye SUBROUTINE loc,dd_0dcascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat h! dctmazscalars -#!!! o #!lifBUDIM ==1-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_1dsascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr rst lec1D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_1ddascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr doublec1D_rictors -#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_1dscascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx rst lec1D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_1ddcascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx doublec1D_rictors -#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_1diascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datie cgmaz1D_rictors -#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_1dlascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datlogicrr 1D_rictors -#!!! o #!lifBUDIM ==2-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_2dsascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr rst lec2D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_2ddascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr dboublec2D_rictors -#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_2dscascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx rst lec2D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_2ddcascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx doublec2D_rictors -#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_2diascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datie cgmaz2D_rictors -#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_2dlascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datlogicrr 2D_rictors -#!!! o #!lifBUDIM ==3-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_3dsascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr rst lec3D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_3ddascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr doublec3D_rictors -#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_3dscascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx rst lec3D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_3ddcascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx doublec3D_rictors -#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_3diascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datie cgmaz3D_rictors -#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_3dlascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datlogicrr 3D_rictors -#!!! o #!lifBUDIM ==4-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_4dsascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr rst lec4D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_4ddascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr doublec4D_rictors -#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_4dscascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx rst lec4D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_4ddcascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx doublec4D_rictors -#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_4diascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datie cgmaz4D_rictors -#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_4dlascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datlogicrr 4D_rictors -#!!! o #!lifBUDIM ==5-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_5dsascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr rst lec5D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_5ddascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dataerr doublec5D_rictors -#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_5dscascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx rst lec5D_rictors -#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_5ddcascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) dat not cx doublec5D_rictors -#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_5diascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datie cgmaz5D_rictors -#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_5dlascii(iUnit,aactn,EI _ddata,inrec,ioeq,m)info)ed!!!Perfaim! p! dllelf(((((r to aA-wdio_) datlogicrr 5D_rictors -#!!! o #!!! o r=d ed!!!on a EI _ributereaA-cent dlizereunit openerecithloc,dd_open. r=d ed!!! r=d ed!!![NOTE] r=d ed!!!====================================================================== r=d ed!!!Many arguments are *ldl veal*. It !! adivisdcastednd!!!to use explicitacrgument namingarhenfirst ue ifroutine. Exaot c: r=d ed!!! r=d ed!!!`KKKKKdddL p(20,xp,ACTN=.EQ.ddddparar tod FA-,STAT=` r=d ed!!!====================================================================== r=d ed!!! r=d ed!!![WARNING] r=d ed!!!RESHAPE operateson e ofeq,ck, soon machines r=d ed!!!cithlimitereeq,ck the e iflimits e ofmax possibomfilend!!!eive the.!erefore we useloops (needslower)tofilend!!!eep ron e ofheap. On_rictor machines we sting_use r=d ed!!!RESHAPE becauseit !! froadr. r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). r=d ed! Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE loc,module_substartndataeUSE loc,module_substopndataeUSE loc,module_rrorderrorndUSE loc,module_rrdde ,). ndIMPLICIT NONE-#if BUKIND ==BUSINGLE_PRECISION |BUKIND ==BUSINGLE_PRECISION_COMPLEX--ye ,MPI_INT PARAMETER :: MKinfo =kind_rst le-#!lse r=d ed,MPI_INT PARAMETER :: MKinfo =kind_double #!!! o r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndncluded FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). #include "loc,'efine.h"--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( r=d ed!!!((((unit (afr_turnerecyzloc,dd_open).-#if BUDIM ==0-#if BUKIND ==BUSINGLE_PRECISION |BUKIND ==BUDOUBLE_PRECISION--ye REAL(MK) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX |BUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye COMPLEX(MK) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BU,MPI_IN--ye ,MPI_IN ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BULOGI--ye LOGI ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BUCHARACTIN--ye CHARACTIN(LEN=*) ,d,MPINT(INOUT) :: Unit,-#!!! o #!lifBUDIM ==1-#if BUKIND ==BUSINGLE_PRECISION |BUKIND ==BUDOUBLE_PRECISION--ye REAL(MK) , DIMENSION(:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX |BUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye COMPLEX(MK), DIMENSION(:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BU,MPI_IN--ye ,MPI_IN , DIMENSION(:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BULOGI--ye LOGI , DIMENSION(:) ,d,MPINT(INOUT) :: Unit,-#!!! o #!lifBUDIM ==2-#if BUKIND ==BUSINGLE_PRECISION |BUKIND ==BUDOUBLE_PRECISION--ye REAL(MK) , DIMENSION(:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX|BUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye COMPLEX(MK), DIMENSION(:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BU,MPI_IN--ye ,MPI_IN , DIMENSION(:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BULOGI--ye LOGI , DIMENSION(:,:) ,d,MPINT(INOUT) :: Unit,-#!!! o #!lifBUDIM ==3-#if BUKIND ==BUSINGLE_PRECISION |BUKIND ==BUDOUBLE_PRECISION--ye REAL(MK) , DIMENSION(:,:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX|BUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye COMPLEX(MK), DIMENSION(:,:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BU,MPI_IN--ye ,MPI_IN , DIMENSION(:,:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BULOGI--ye LOGI , DIMENSION(:,:,:) ,d,MPINT(INOUT) :: Unit,-#!!! o #!lifBUDIM ==4-#if BUKIND ==BUSINGLE_PRECISION |BUKIND ==BUDOUBLE_PRECISION--ye REAL(MK) , DIMENSION(:,:,:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX |BUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye COMPLEX(MK), DIMENSION(:,:,:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BU,MPI_IN--ye ,MPI_IN , DIMENSION(:,:,:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BULOGI--ye LOGI , DIMENSION(:,:,:,:) ,d,MPINT(INOUT) :: Unit,-#!!! o #!lifBUDIM ==5-#if BUKIND ==BUSINGLE_PRECISION |BUKIND ==BUDOUBLE_PRECISION--ye REAL(MK) , DIMENSION(:,:,:,:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX |BUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye COMPLEX(MK), DIMENSION(:,:,:,:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BU,MPI_IN--ye ,MPI_IN , DIMENSION(:,:,:,:,:) ,d,MPINT(INOUT) :: Unit,-#!lifBUKIND ==BULOGI--ye LOGI , DIMENSION(:,:,:,:,:) ,d,MPINT(INOUT) :: Unit,-#!!! o #!!! o r=d ed!!!rite datbe-wdioten/r to. Overloaderetypes are: rst le, r=d ed!!!rouble,tie cgma, rst lec not cx, doublec not cx, logicrr, r=d ed!!! h! dctma.Roottbe-eiromoscalar, 1d, 2d, 3d, 4reaA-5o. Ch! dctma r=d ed!!! _riwarndata and becscalar (i.e. no or_dd siz _riwar).info)ed,MPI_IN , OPTIONAL,d,MPINT(IN ) :: actn r=d ed!!!((((act ve. One si: r=d ed!!! r=d ed!!!* .EQ.ddddparar to r=d ed!!!* .EQ.ddddparawdio_ r=d ed!!! r=d ed!!!!not specifi fai'efault !! .EQ.ddddparar to r=d ed,MPI_IN , OPTIONAL,d,MPINT(IN ) :: EI _-y ed!!!((((EI _ribut ve. FaA-r to ane si: r=d ed!!! r=d ed!!!* .EQ.ddddparasame r=d ed!!!* .EQ.ddddparaspli( r=d ed!!! r=d ed!!!!not specifi fai'efault !! .EQ.ddddparasame. r=d ed!!! r=d ed!!! FaA-wdio_ ane si: r=d ed!!! r=d ed!!!* .EQ.ddddparam_io_rootT!!!* .EQ.ddddparaconcao_rootT!!!* .EQ.ddddparasum r=d ed!!! r=d ed!!!!not specifi fai'efault !! .EQ.ddddparaconcao_rootT,MPI_IN , OPTIONAL,d,MPINT(IN ) :: nrec,iinfo)ed!!!Pc,iil vemfaitm_io_b(((. One si: r=d ed!!! r=d ed!!!* .EQ.ddddpararst le-r=d ed!!!* .EQ.ddddparadouble r=d ed!!! r=d ed!!!Default !! leave-as-i .info)edCHARACTIN(LEN=*), OPTIONAL,d,MPINT(IN ) :: nrfmo_rootT!!!FaAmatz _riwa (faitASCII((().Default !! (*)_rootT,MPI_IN , OPTIONAL,d,MPINT( OUT) :: eq,m r=d ed!!!R_turn eq,mus, 0on sucr dr-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndREAL(MK) :: t0_rootT,MPI_IN :: duce(iactn,iEI _ddec,iinfo)ed,MPI_IN :: d,j,k,l,minfo)edCHARACTIN(LEN=9) :: eubname r=d edCHARACTIN(LEN=_SUM,h! ) :: dfmo_rootT,MPI_INT DIMENSION(5) :: lda_rootT,MPI_INT DIMENSION(1) :: ldiinfo)ed,MPI_IN :: dldl, FA-,nishif_dd.LT.ndataeLOGI :: l,h! -#if BUKIND ==BUSINGLE_PRECISION |BUKIND ==BUDOUBLE_PRECISION--ye REAL(MK) , DIMENSION(:), PO,MPIR :: LIFY-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX|BUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye COMPLEX(MK), DIMENSION(:), PO,MPIR :: LIFY-#!lifBUKIND ==BU,MPI_IN |BUKIND ==BUCHARACTIN--ye ,MPI_IN , DIMENSION(:), PO,MPIR :: LIFY-#!lifBUKIND ==BULOGI--ye LOGI , DIMENSION(:), PO,MPIR :: LIFY-#!!! o r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndExtmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndnitialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndWRITE(eubname,'(A,I1.1,A)') 'loc,dd_UFFEDIM,'d'--ye Csubstart(eubname,t0INE__,info)edl,h! = .FALSE.--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___KK! Carguments-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____I _debug .GT2 .NE. 0)j)lSand__KI,___.NOTt .EQ.initializedNE. 0)j)lSand__KIinfo =dddderrorderrornd__KI=dddL pddderror(pddrrornoinit,'loc,ddddoi I I :ff :,:(('Pleasec led,.EQ.init first!nk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =- = =--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___KK! Candi'ecodeCarguments-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___scii(+nrec .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,eubname, I :I I :ff :'cii(+numbmoingss datbe-> 0nk 0.',__LINE__,info)edddddKKKKKGOTO 9999 --yendiactniopt =ddddparar to r=d ed,___PRESINT(actndNE. 0)j)lSand__ed,______((actninfo2 pt =ddddparar to) .AND. I :I I :ff :____(actninfo2 pt =ddddparawdio_)NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,eubname, I :I I :ff :f :'Invalid((((act ve specifi fank 0.',__LINE__,info)eddddddd_KKKKKGOTO 9999 = =- = =yendiactnioactn r=d ed--yend,___sactninfmt .EQ.ddddparar to) . 0)j)lSand__KIEI _iopt =ddddparasame r=d edd ed,___PRESINT(EI _)NE. 0)j)lSand__KId,______((EI _nfo2 pt =ddddparasame) .AND. I :I I :ff :________(EI _nfo2 pt =ddddparaspli()NE. 0)j)lSand__KIdinfo =dddderrorderrornd__KIdddL pddderror(pddargument,eubname, I :I I :ff :f :::::'Invalid((((EI _ribut ve specifi fank 0.',__LINE__,info)eddddddd_____KKKKKGOTO 9999 = =--ye = =EI _ioEI _-y ed--ye -LSEnd__KIEI _iopt =ddddparaconcao_rootT,___PRESINT(EI _)NE. 0)j)lSand__KId,______((EI _nfo2 pt =ddddparam_io) .AND. I :I I :ff :________(EI _nfo2 pt =ddddparaconcao) .AND. II I :ff :________(EI _nfo2 pt =ddddparasum)NE. 0)j)lSand__KIdinfo =dddderrorderrornd__KIdddL pddderror(pddargument,eubname, I :I I :ff :f :::::'Invalid((((EI _ribut ve specifi fank 0.',__LINE__,info)eddddddd_____KKKKKGOTO 9999 = =--ye = =EI _ioEI _ 9999 = =- = =-#ifBUKIND ==BUCHARACTIN--ye ,___sEI _nfmt .EQ.ddddparaspli()E. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,eubname, I :I I :f'Spli((EI _ribut ve not possibommfait h! dctmasank 0.',__LINE__,info)edddddKKKKKGOTO - = =--ye ,___sEI _nfmt .EQ.ddddparasum)E. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,eubname, I :I I :f'Sum I_Allt ve not possibommfait h! dctmasank 0.',__LINE__,info)edddddKKKKKGOTO - = =-#!!! o -yendiI __= ''--ye ,___PRESINT(nrfmo)NE. 0)j)lSand__KIi_= LEN_TRIM(nrfmo)j)lSand__KIifmo(1:FA-+inrfmo(1:FA 9999 --yendipnr.EQ.ddddpuremfineo r=d ed,___PRESINT(nrec,idNE. 0)j)lSand__ed,______((nrec,info2 pt =ddddparasst le) .AND. I :I I :ff :____(nrec,info2 pt =ddddparadouble)NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,eubname, I :I I :ff :f :'Invalid((((pc,iil vemspecifi fank 0.',__LINE__,info)eddddddd_KKKKKGOTO 9999 = =- = =yendipnrnrec,iinfo)ed--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Point datproper work K! rage r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). #if BUKIND ==BUSINGLE_PRECISION r=d edLIFY =>dLIFY_s-#!lifBUKIND ==BUDOUBLE_PRECISION--ye LIFY =>dLIFY_d-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX r=d edLIFY =>dLIFY_sc-#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye LIFY =>dLIFY_dc-#!lifBUKIND ==BU,MPI_IN |BUKIND ==BUCHARACTIN--ye LIFY =>dLIFY_i-#!lifBUKIND ==BULOGI--ye LIFY =>dLIFY_l-#!!! o #ifBUKIND ==BUCHARACTIN--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Konvertt h! dctmazs_riwa datie cgmazrictor--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndnndaLENIduce()--yendiiopt =ddddparam_alloc_fitedldcldl(1.LT.ndataedddL pdddatloc(r=c ,ldl,ioptinfo2)eI _info2 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdaeubname,'1record =dAFA- RBUF',__LINE__,info)edddddKKKKKGOTO 9999 --yend,___sactninfmt .EQ.ddddparawdio_) . 0)j)lSand__KIshif_inIACHAR('a',info)eddddd! converttdatie cgmafr_latillhave oflower-casecaI oremazeoinfo)eddddd! be- rem!!!ent oftASCIItablecshif_son e ofdi__j=entinfo)eddddd! ther drocs,info)edddddyepi.LT.ndataeKKKa) = r)inIACHAR(duce((i:FA)-shif_ 9999 = =KK-yee --yendl,h! = .TRUE.-#!lifBUDIM ==0--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Konvertthav1reor_dd--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndnnda1--yendiiopt =ddddparam_alloc_fitedldcldl(1.LT.ndataedddL pdddatloc(r=c ,ldl,ioptinfo2)eI _info2 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdaeubname,'1record =dAFA- RBUF',__LINE__,info)edddddKKKKKGOTO 9yee --yend,___sactninfmt .EQ.ddddparawdio_) . 0)j)lSand__KIa) = ldl(a.LT.ndatae-#!lifBUDIM >a1--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Konvertthav1reor_dd--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndnnda1-edddddyepBUDIMj)lSand__KIlda r)inSIZEIduce(a=d (ii)edddddnndan*lda r)ndataeKK--yendiiopt =ddddparam_alloc_fitedldcldl(1.LT.ndataedddL pdddatloc(r=c ,ldl,ioptinfo2)eI _info2 .NE. 0)j)lSand__KIinfo =dddderrordfatalnd__KIdddL pddderror(pddderrdaeubname,'1record =dAFA- RBUF',__LINE__,info)edddddKKKKKGOTO 9tae--yend,___sactninfmt .EQ.ddddparawdio_) . 0)j#ifdef __VECTORinfo)eddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIOn_rictor machines RESHAPE is e offroad _-yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KILIFY = RESHAPEIduce(ar=c)-#!lse info)eddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIOn_scalar machines useloops rstceESHAPE operateson e of ,). nd__KIeq,ck catere easipletuntie ave oflimit.loops avoid e if.info)eddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). #if BUDIM ==2-LSEnd__KIEndaTO 700Tyeplda =info2)ejyeplda 1info2)eEndaEn+a1-eddddddddddddddddda) = ruce()dl(a.LT.(j,=d (ii)eddddddd__KKKKK-yee =KKKKK-#!lifBUDIM ==3--LSEnd__KIEndaTO 700Tyeplda (info3)ejyeplda =info2)ekyeplda 1info2)eEndaEn+a1-eddddddddddddddddddddda) = ruce()dl(a.LT.(k,j,=d (ii)eddddddd__dd__KKKKK-yee =dd__KKKKK-yee =KKKKK-#!lifBUDIM ==4--LSEnd__KIEndaTO 700Tyeplda 4info3)ejyeplda (info3)ekyeplda =info2)elyeplda 1info2)e__KIEndaEn+a1-eddddddddddddddddddddddddda) = ruce()dl(a.LT.(l,k,j,=d (ii)eddddddd__dd______KKKKK-yee =========KKKKK-yee =dd__KKKKK-yee =KKKKK-#!lifBUDIM ==5--LSEnd__KIEndaTO 700Tyeplda 5info3)ejyeplda 4info3)ekyeplda (info3)elyeplda =info2)emyeplda 1info2)e__KI__KIEndaEn+a1-eddddddddddddddddddddddddddddda) = ruce()dl(a.LT.(m,l,k,j,=d (ii)eddddddd__dd__________KKKKK-yee =========____KKKKK-yee =========KKKKK-yee =dd__KKKKK-yee =KKKKK-#!!! o #!!! o r=d ed-#!!! o -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Dave ofI/O-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). #ifBUDIM ==1--yenddddL'dddascii(iUnit,aiactn,iEI _ddta,inec,iol,h! FFEDIM,NE__,i#!lse r=d eddddL'dddascii(iUloc(iactn,iEI _ddta,inec,iol,h! FFEDIM,NE__,i#!!! o r=d edI _info2 .NEKKKKKGOTO #ifBUKIND ==BUCHARACTIN--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Konvertt av h! dctmazs_riwa--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___sactninfmt .EQ.ddddparar to) . 0)j)lSand__KIshif_inIACHAR('a', O 700Tyepi.LT.ndataeKKKauce((i:FAinCHAR(d) = r)+shif_)-yee =KKKKK-r=d ed--yendiiopt =ddddpderrdde ,). nddddL pdddatloc(r=c ,ldl,ioptinfo2)eI _info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddderrddeaeubname,'1record =dAFA- RBUF',__LINE__,info)ed-#!lifBUDIM ==0--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Konvertthavscalar--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___sactninfmt .EQ.ddddparar to) . 0)j)lSand__KIandaCATE 1info2)e--yendiiopt =ddddpderrdde ,). nddddL pdddatloc(r=c ,ldl,ioptinfo2)eI _info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddderrddeaeubname,'1record =dAFA- RBUF',__LINE__,info)ed-#!lifBUDIM >a1--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Konverttb,ck toeor_dd--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___sactninfmt .EQ.ddddparar to) . 0)j#ifdef __VECTORinfo)eddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIOn_rictor machines RESHAPE is e offroad _-yeT!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KILndaRESHAPEIdloc(r=a 1:BUDIM))-#!lse info)eddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIOn_scalar machines useloops rstceESHAPE operateson e of ,). nd__KIeq,ck catere easipletuntie ave oflimit.loops avoid e if.info)eddddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). #if BUDIM ==2-LSEnd__KIEndaTO 700Tyeplda =info2)ejyeplda 1info2)eEndaEn+a1-eddddddddddddddddda.LT.(j,=dndaCATE ruce() (ii)eddddddd__KKKKK-yee =KKKKK-#!lifBUDIM ==3--LSEnd__KIEndaTO 700Tyeplda (info3)ejyeplda =info2)ekyeplda 1info2)eEndaEn+a1-eddddddddddddddddddddda.LT.(k,j,=dndaCATE ruce() (ii)eddddddd__dd__KKKKK-yee =dd__KKKKK-yee =KKKKK-#!lifBUDIM ==4--LSEnd__KIEndaTO 700Tyeplda 4info3)ejyeplda (info3)ekyeplda =info2)elyeplda 1info2)e__KIEndaEn+a1-eddddddddddddddddddddddddda.LT.(l,k,j,=dndaCATE ruce() (ii)eddddddd__dd______KKKKK-yee =========KKKKK-yee =dd__KKKKK-yee =KKKKK-#!lifBUDIM ==5--LSEnd__KIEndaTO 700Tyeplda 5info3)ejyeplda 4info3)ekyeplda (info3)elyeplda =info2)emyeplda 1info2)e__KI__KIEndaEn+a1-eddddddddddddddddddddddddddddda.LT.(m,l,k,j,=dndaCATE ruce() (ii)eddddddd__dd__________KKKKK-yee =========____KKKKK-yee =========KKKKK-yee =dd__KKKKK-yee =KKKKK-#!!! o #!!! o r=d ed--yendiiopt =ddddpderrdde ,). nddddL pdddatloc(r=c ,ldl,ioptinfo2)eI _info2 .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddderrddeaeubname,'1record =dAFA- RBUF',__LINE__,info)ed-#!!! o -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd_____turn-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yend,___PRESINT(eq,m)) eq,mndaE__ ,). ndsubstop(eubname,t0INE__,info)edRETURN #if BUDIM ==0-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_0ds-#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_0dd-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_0dsc-#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_0ddc-#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_0di-#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_0dl-#!lifBUKIND ==BUCHARACTIN--ye SUBROUTINE loc,dd_0dc-#!!! o #!lifBUDIM ==1-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_1ds-#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_1dd-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_1dsc-#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_1ddc-#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_1di-#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_1dl-#!!! o #!lifBUDIM ==2-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_2ds-#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_2dd-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_2dsc-#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_2ddc-#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_2di-#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_2dl-#!!! o #!lifBUDIM ==3-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_3ds-#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_3dd-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_3dsc-#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_3ddc-#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_3di-#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_3dl-#!!! o #!lifBUDIM ==4-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_4ds-#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_4dd-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_4dsc-#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_4ddc-#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_4di-#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_4dl-#!!! o #!lifBUDIM ==5-#if BUKIND ==BUSINGLE_PRECISION--ye SUBROUTINE loc,dd_5ds-#!lifBUKIND ==BUDOUBLE_PRECISION--ye SUBROUTINE loc,dd_5dd-#!lifBUKIND ==BUSINGLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_5dsc-#!lifBUKIND ==BUDOUBLE_PRECISION_COMPLEX--ye SUBROUTINE loc,dd_5ddc-#!lifBUKIND ==BU,MPI_IN--ye SUBROUTINE loc,dd_5di-#!lifBUKIND ==BULOGI--ye SUBROUTINE loc,dd_5dl-#!!! o #!!! o libloc-1.2/src/io/dddL p_close.f000644 000765 000024 00000021112 11445666062 016764 0ueq,r00om,req,ff000000 000000 -ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_close-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddatareEI _ributecitacat/aitmodifyinfo)ed!itauremaze ofdmpisSsize ofGNU LessmazGsA- GlfPublic License ,). nd__a! publisherecyze ofFree Software Fata aVL a, eiromo ,). nd__rial vem3Ssize ofLicense, ait(at your ldl ve) any latmo ,). nd__rial ve.info)ed!info)ed!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). --yendSUBROUTINE loc,dd_closeascii(iNE__,info)ed!!!T ifroutine closes_an IOv h!nnel.--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE loc,module_.LT.,ddndataeUSE loc,module_substartndataeUSE loc,module_substopndataeUSE loc,module_rrorderrorndUSE loc,module_rrdde ,). ndUSE loc,module_wdio_ r=d edIMPLICIT NONE--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( r=d ed!!!(((unit datbe-closed.info)ed,MPI_IN ,d,MPINT( OUT) :: E__ ,). nd!!!R_turn eq,mus, 0on sucr dr-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndREAL(loc,kind_double) :: t0_rootTLOGI :: lopeninfo)ed,MPI_IN :: iou ,ldlinfo)ed,MPI_INT DIMENSION(1) :: ldiinfo)edCHARACTIN(LEN=_SUM,h! ) :: mesa--ye !dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndExtmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndnitialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCsubstart('loc,dd_close',t0INE__,i r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndKK! Carguments-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____I _debug .GT2 .NE. 0)j)lSand__CcK! j)lSand__I _info2 .NEKKKKKGOTO Sand__--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___KK! Criat e ofuii(+numbmo!! acturrdy openinfo)ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndlopen = .FALSE.-Sand__ASSOCIATED(loc,dd_uii(dNE. 0)j)lSand__ed,__(SIZEIloc,dd_uii(,1) .Go2 scii(NE. 0)j)lSand__KId,__Iloc,dd_uii((scii(NE.GT2 .NElopen = .TRUE.-nd__KId- = =-KId,__I.NOTt lopenNE. 0)j)lSand__Kinfo =ddddenoticej)lSand__KWRITE(mesa,'(A,I4,A)') 'Requesterefo ((((unit ',scii(i :I I :ff :'o!! not open.Exiting.'j)lSand__KdddL pddderror(pddnd_uii(,'loc,dd_close',mesa,BUF',__LINE__,info)eddddKKKKKGOTO Sand__--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Gettie canalfuii(+numbm-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndiouinfo =dd_uii((scii(N--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Salldy close e ofuii(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____I _dd_modeasou)infmt .EQ.ddddparacent dlizerNE. 0)j)lSand__ed,__(.EQ._ddkinfmt .NE. 0)j)lSand__KI__ed,NQUIREascii(iOPENED=lopenNj)lSand__KId,__I.NOTt lopenNE. 0)j)lSand__KlSand__Kinfo =ddddenoticej)lSand__KlSand__KWRITE(mesa,'(A,I4,A)') 'RequestereFort dn((((unit ',scii(i :I I :ff :ff :'o!! not open.Exiting.'j)lSand__KKKKKKKKKdddL pddderror(pddnd_uii(,'loc,dd_close',mesa, :I I :ff :ff : 0.',__LINE__,info)eddddddd_____KKKKKGOTO 9999 = =--ye = =CLOSoascii(iIO FA-,STAT=j)lSand__KId,__II _info2 .NE. 0)j)lSand__KIIIIIIIIinfo =dddderrorderrornd__KIWRITE(mesa,'(A,I4)') 'Failereto close open ((((unit ',scii(j)lSand__KKKKKKKKKdddL pddderror(pddclose,'loc,dd_close',mesa, I I :ff :ff : 0.',__LINE__,info)eddddddd__--ye = =--ye -LSEnd__KI,NQUIREascii(iOPENED=lopenNj)lSand__KI,__I.NOTt lopenNE. 0)j)lSand__KlSaninfo =ddddenoticej)lSand__KlSanWRITE(mesa,'(A,I4,A)') 'RequestereFort dn((((unit ',scii(i :I I :ff :f'o!! not open.Exiting.'j)lSand__KKKKKdddL pddderror(pddnd_uii(,'loc,dd_close',mesa,BUF',__LINE__,info)eddddddddKKKKKGOTO 9999 = =- = =yendCLOSoascii(iIO FA-,STAT=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIinfo =dddderrorderrornd__KIWRITE(mesa,'(A,I4)') 'Failereto close open ((((unit ',scii(j)lSand__KKKKKdddL pddderror(pddclose,'loc,dd_close',mesa, I I :ff :fBUF',__LINE__,info)eddddd- = =--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Debug outpu(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____I _debug .GT2 1NE. 0)j)lSand__KIWRITE(mesa,'(A,I4,A)') '((((unit ',scii(i'-closed.'j)lSand__KKdddLwdio_(.EQ._ddk,'loc,dd_close',mesa,NE__,info)ed--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Mark e ofuii(+asfuiusere oze ofie canalflI _-y ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd_I _dd_modeasou)i nr.EQ.ddddpuremfineo r=d ed_I _dd_faAmatasou)inr.EQ.ddddpuremfineo r=d ed_I _dd_uii((scii(NE=0- r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd!notmore uii(+!! openai'errddeateve oflists-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___MAXVAL(loc,dd_uii(dinfmt .NE. 0)j)lSand__KI,____I _debug .GT2 .NE. 0)j)lSand__KI__KKdddLwdio_(.EQ._ddk,'loc,dd_close', I :I I :ff :f'Notmore open uii(s.Derrddeatiwa ((((cont olflI _sankNE__,info)eddddd- = =====iiopt =ddddpderrdde ,). nd__KKdddL pddda_I _dd_faAmat(r=c ,ldl,ioptinfo2)e__KI,___I _info2 .NE. 0)j)lSand__KIIIIIinfo =dddderrorderrornd__KI=dddL pddderror(pddderrddea'loc,dd_close', I ::I I :ff :f'((((faAmatflI _PPM_IO_FORMAT RBUF',__LINE__,info)eddddd- = =yendCdddL pddda_I _dd_mode(r=c ,ldl,ioptinfo2)e__KI,___I _info2 .NE. 0)j)lSand__KIIIIIinfo =dddderrorderrornd__KI=dddL pddderror(pddderrddea'loc,dd_close', I ::I I :ff :f'((((modeflI _PPM_IO_MODE RBUF',__LINE__,info)eddddd- = =yendCdddL pddda_I _dd_uii(,r=c ,ldl,ioptinfo2)e__KI,___I _info2 .NE. 0)j)lSand__KIIIIIinfo =dddderrorderrornd__KI=dddL pddderror(pddderrddea'loc,dd_close', I ::I I :ff :f'((((uii(+lI _PPM_IO_UNIT RBUF',__LINE__,info)eddddd- = =--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd_____turn-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yendsubstop('loc,dd_close',t0INE__,i-yendRETURN -yendITTAINS -yendSUBROUTINE cK! j)lSand__.NOTt .EQ.initializedNE. 0)j)lSand__KIinfo =dddderrorderrornd__KI=dddL pddderror(pddrrornoinit,'loc,dd_close', I I I :ff :,:(('Pleasec led,.EQ.init first!nk 0.',__LINE__,info)eddddddd__KKKKK8888info)eddd- = =ye,___scii(+nrec .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,'loc,dd_close', I :I I :ff :'cii(+numbmoingss datbe-> 0nk 0.',__LINE__,info)edddddKKKKK8888info)eddd- 8888endITTINUE-yend SUBROUTINE cK! j)lSand SUBROUTINE loc,dd_closelibloc-1.2/src/io/dddL p_delete.f000644 000765 000024 00000020524 11445666062 017127 0ueq,r00om,req,ff000000 000000 )lSand!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_delete-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddatareEI _ributecitacat/aitmodifyinfo)ed!itauremaze ofdmpisSsize ofGNU LessmazGsA- GlfPublic License ,). nd__a! publisherecyze ofFree Software Fata aVL a, eiromo ,). nd__rial vem3Ssize ofLicense, ait(at your ldl ve) any latmo ,). nd__rial ve.info)ed!info)ed!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). --yendSUBROUTINE loc,dd_delete(a toname,mode(NE__,info)ed!!!T ifroutine deletes aea to.--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE loc,module_substartndataeUSE loc,module_substopndataeUSE loc,module_rrorderrorndIMPLICIT NONE--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCHARACTIN(LEN=*) ,d,MPINT(IN ) :: a tonameinfo)ed!!!Name size ofa to datbe-deleteo r=d ed,MPI_IN ,d,MPINT(IN ) :: modeinfo)ed!!!((((mode. One si: r=d ed!!! r=d ed!!!* .EQ.ddddparaEI _ributer r=d ed!!!* .EQ.ddddparacent dlizer r=d ed!!! r=d ed!!!In e ofdi _ributeremode( every ther droc deletes e ofa to r=d ed!!!ddeally.In e ofcent dlizeremode( and ther droc 0 deletes e ofa to.info)ed,MPI_IN ,d,MPINT( OUT) :: E__ ,). nd!!!R_turn eq,mus, 0on sucr dr-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndREAL(loc,kind_double) :: t0_rootTLOGI :: lexI _s,lopeninfo)ed,MPI_IN :: iUii(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndExtmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndnitialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCsubstart('loc,dd_delete',t0INE__,i r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndKK! Carguments-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____I _debug .GT2 .NE. 0)j)lSand____.NOTt .EQ.initializedNE. 0)j)lSand__KIinfo =dddderrorderrornd__KI=dddL pddderror(pddrrornoinit,'loc,dd_delete',oi I I :ff :,:(('Pleasec led,.EQ.init first!nk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =- = =-nd____(modefnfo2 pt =ddddparadi _ributer) .AND. I : I :I I :f(modefnfo2 pt =ddddparacent dlizerNNE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,'loc,dd_delete',oi :I I :ff :'Invalidmodefspecifi fank 0.',__LINE__,info)edddddKKKKKGOTO Sand__--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___KK! Criat a to exI _s-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___modefnfmt .EQ.ddddparadi _ributer) . 0)j)lSand____NQUIREaFILE=a toname,EXIST=lexI _sNj)lSand__KI,__I.NOTt lexI _sNE. 0)j)lSand__KlSaninfo =ddddenoticej)lSand__KlSandddL pddderror(pdda to,'loc,dd_delete',oi I I :ff :,:(TRIM(a toname),BUF',__LINE__,info)eddddddddKKKKKGOTO 9999 = =- = =-LSEnd__KI,__(.EQ._ddkinfmt .NE. 0)j)lSand__KI__ed,NQUIREaFILE=a toname,EXIST=lexI _sNj)lSand__KI__KI,__I.NOTt lexI _sNE. 0)j)lSand__KlSanlSaninfo =ddddenoticej)lSand__KlSanlSandddL pddderror(pdda to,'loc,dd_delete',oi I I :ff :,:(:,:(TRIM(a toname),BUF',__LINE__,info)eddddddddddddKKKKKGOTO 9999 = == =- = == =- = =--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___KK! Criat a to !! not connectereto afuii(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___modefnfmt .EQ.ddddparadi _ributer) . 0)j)lSand____NQUIREaFILE=a toname,OPENED=lopenNj)lSand__KI,__IlopenNE. 0)j)lSand__KlSaninfo =ddddewarniwa--ye SanlSandddL pddderror(pdddelete,'loc,dd_delete',oi I I :ff :,:('Cannot delete_an open a tonk 0.',__LINE__,info)eddddddd_KKKKKGOTO 9999 = =- = =-LSEnd__KI,__(.EQ._ddkinfmt .NE. 0)j)lSand__KI__ed,NQUIREaFILE=a toname,OPENED=lopenNj)lSand__KId,__IlopenNE. 0)j)lSand__KlSand__Kinfo =ddddewarniwa--ye SanlSanlSandddL pddderror(pdddelete,'loc,dd_delete',oi I I :ff :,:(:,:('Cannot delete_an open a tonk 0.',__LINE__,info)eddddddd_ddd_KKKKKGOTO 9999 = == =- = == =- = =--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Attempt delete-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___modefnfmt .EQ.ddddparadi _ributer) . 0)j)lSand____!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIFindfuiusereuii(+numbm-yend____!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIscii(+= O 9999 = =dddLdd_uiuser_uii((scii(,ioptinfo2)e__KI,___cii(+nrT2 .NE. 0)j)lSand__KI__Kinfo =dddderrorderrornd__KIdddL pddderror(pddopena'loc,dd_delete',oi I I :ff :,:(:,:'Not((((uii(+availableank 0.',__LINE__,info)eddddddd_KKKKKGOTO 9999 = =- = =yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIDelete-yendyend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,). ,). nd__KIOPEN(scii(,FILE=a toname, FA-US='OLD',ACTION='WRITE'iIO FA-,STAT=j)lSand__KICLOSoascii(i FA-US='DELETE'iIO FA-,STAT=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIinfo =dddderrorderrornd__KIdddL pddderror(pdddelete,'loc,dd_delete',oi I I :ff :,:(TRIM(a toname),BUF',__LINE__,info)eddddddddKKKKKGOTO 9999 = =- = =-LSEnd__KI,__(.EQ._ddkinfmt .NE. 0)j)lSand__KI__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVj)lSand__KI__edFindfuiusereuii(+numbm-yend______ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVj)lSand__KI__edscii(+= O 9999 = =IdddLdd_uiuser_uii((scii(,ioptinfo2)e__KI__KI,__(cii(+nrT2 .NE. 0)j)lSand__KI__K__edsinfo =dddderrorderrornd__KIdddL pddderror(pddopena'loc,dd_delete',oi I I :ff :,:(:,:'Not((((uii(+availableank 0.',__LINE__,info)eddddddd_____KKKKKGOTO 9999 = =--ye = =!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVj)lSand__KI__edDelete-yendyend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVj)lSand__KI__edOPEN(scii(,FILE=a toname, FA-US='OLD',ACTION='WRITE'iIO FA-,STAT=j)lSand__KILOSoascii(i FA-US='DELETE'iIO FA-,STAT=j)lSand__KIIIII,__II _info2 .NE. 0)j)lSand__KIIIIIIIIinfo =dddderrorderrornd__KIdddL pddderror(pdddelete,'loc,dd_delete',oi I I :ff :,:(:,:(TRIM(a toname),BUF',__LINE__,info)eddddddddddddKKKKKGOTO 9999 = == =- = == =- = =- == =-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd_____turn-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yendsubstop('loc,dd_delete',t0INE__,i-yendRETURN -yend SUBROUTINE loc,dd_deletelibloc-1.2/src/io/dddL p_inquire.f000644 000765 000024 00000013660 11445666062 017344 0ueq,r00om,req,ff000000 000000 -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_inquire-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). --yendSUBROUTINE loc,dd_inquire(scii(,isopenamode(pta,ieq,m)-yend!!T ifroutine inquires e ofeq,me siza giveozpo ((((unit.-yend!!-yend!![NOTE]-yend!!Ang_outpu(Carguments dtic*at! a al*.(+!! adiviser r=d ed!!!to useexplici(Cargument namingarhen usiwa d ifroutine.Example: r=d ed!!! r=d ed!!! ERp,vp,). De-s kVL,).L,). ,). nd_!!dddLdnquire(20,MODE=imode( FA-,STAT=j)lSand!!! ERp,vp,). De-s kVL,).L,). -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE loc,module_.LT.,ddndataeUSE loc,module_substartndataeUSE loc,module_substopndataeUSE loc,module_rrorderrorndIMPLICIT NONE--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( r=d ed!!!(((unit datbe-dnquireo r=d ed,MPI_IN ,dOPTIONAL ,d,MPINT( OUT) :: eq,m r=d ed!!!R_turn code. 0on sucr dr.info)ed,MPI_IN ,dOPTIONAL ,d,MPINT( OUT) :: pta, r=d ed!!!((((faAmat. One si: r=d ed!!! r=d ed!!!* .EQ.ddddparaascii r=d ed!!!* .EQ.ddddparabinary r=d ed!!!* .EQ.ddddpuremfineo r=d ed,MPI_IN ,dOPTIONAL ,d,MPINT( OUT) :: modeinfo)ed!!!((((mode. One si: r=d ed!!! r=d ed!!!* .EQ.ddddparacent dlizer r=d ed!!!* .EQ.ddddparaEI _ributer r=d ed!!!* .EQ.ddddpuremfineo r=d edLOGI ,dOPTIONAL ,d,MPINT( OUT) :: isopen r=d ed!!!Ery (P: r=d ed!!! r=d ed!!!* `.TRUE.` if e ofuii(+!! openon e ofddeal ther droc. r=d ed!!!* `.FALSE.` oy (Pwise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndREAL(loc,kind_double) :: t0_rootTLOGI :: lopeninfo)ed,MPI_IN :: iE__ ,). nd!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndExtmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndnitialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCsubstart('loc,dd_dnquire',t0INE__,i r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndKK! Cargument-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____I _debug .GT2 .NE. 0)j)lSand__CcK! j)lSand__I _info2 .NEKKKKKGOTO Sand__- r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndKK! Cif e ofuii(+numbmo!! openinfo)ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndlopen = .FALSE.-Sand__ASSOCIATED(loc,dd_uii(dNE. 0)j)lSand__ed,__(SIZEIloc,dd_uii(,1) .Go2 scii(NE. 0)j)lSand__KId,__Iloc,dd_uii((scii(NE.GT2 .NElopen = .TRUE.-nd__KId- = =-KId,__IPRESINT(isopendNEisopen = lopeni r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndGette ofoy (P iE__Amatfo)eif present-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___lopenNE. 0)j)lSand__Kl,__IPRESINT(pta,dNEpta,info =dd_faAmataloc,dd_uii((scii(N=j)lSand__KI,__IPRESINT(modedNEmodefinfo =dd_modealoc,dd_uii((scii(N=j)lSand-LSEnd__KI,__(PRESINT(pta,dNEpta,info =ddddpuremfineo r=d ed__KI,__IPRESINT(modedNEmodefinfo =ddddpuremfineo r=d ed--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd_____turn-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yend,___PRESINT(eq,m)) eq,mndaE__ ,). ndsubstop('loc,dd_dnquire',t0INE__,i,). ndRETURN -yendITTAINS -yendSUBROUTINE cK! j)lSand__.NOTt .EQ.initializedNE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddrrornoinit,'loc,dd_dnquire',oi I I :ff :,:(('Pleasec led,.EQ.init first!nk 0.',__LINE__,info)eddddddKKKKK8888info)eddd- = =ye,___scii(+nrec .NE. 0)j nd__KIinfo =dddderrorde nd__KIdddL pddderror(pddargument,'loc,dd_dnquire',oioi I :ff :'cii(+numbmoingss datbe-> 0nk 0.',__LINE__,i = =ye,___PRESINT(isopendNEisopen = .FALSE.- = =ye,___PRESINT(pta,dNEpta,info =ddddpuremfineo = =ye,___PRESINT(modedNEmodefinfo =ddddpuremfineo r=d eddddddKKKKK8888info)eddd- 8888endITTINUE-yend SUBROUTINE cK! j)lSand SUBROUTINE loc,dd_inquirelibloc-1.2/src/io/dddL p_open.f000644 000765 000024 00000046346 11445666062 016640 0ueq,r00om,req,ff000000 000000 )lSand!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_open-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). --yendSUBROUTINE loc,dd_open(scii(,a toname,actn,posn(pta,ipmode(NE__,info)ed!!!T ifroutine opens_an IOv h!nnel faitpdddllelfreadiwa ze ofPdwdioiwa info)ed!!!ang associates e ofgiveoz((((uii(+rithe ofa to indieated.-yend!!-yend!![NOTE]-yend!!T (Pe dticlotM).in`MPI_All a uce`ang `MPI_Bcast` userefaite of ,). nd!!ther drocs datnegotiate afuii(+numbmoang eatch led, pddds.T (Pe mus, r=d ed!!!be afcK!apmowad sizdoiwa d if...--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE loc,module_.LT.,ddndataeUSE loc,module_substartndataeUSE loc,module_substopndataeUSE loc,module_rrorderrorndUSE loc,module_wdio_ r=d edUSE loc,module_rrdde ,). ndIMPLICIT NONE--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Included FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). #include "_I _define.h"-#ifdef __MPIinfo)eddINCLUDE 'mpif.h' #!!! o r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: actninfo)ed!!!((((actlfPd One si: r=d ed!!! r=d ed!!!* .EQ.ddddparawdio_ r=d ed!!!* .EQ.ddddpararead r=d ed!!!* .EQ.ddddpararead_wdio_ r=d edIMPI_IN ,d,MPINT(IN ) :: posn r=d ed!!!Positfo)efait((((in a to.T if!! oand relallntefaitwdioiwainfo)ed!!!actlfPd One si: r=d ed!!! r=d ed!!!* .EQ.ddddparareplac_ r=d ed!!!* .EQ.ddddparaappeno r=d ed,MPI_IN ,d,MPINT(IN ) :: pta, r=d ed!!!FaAmatfsiz(((. One si: r=d ed!!! r=d ed!!!* .EQ.ddddparaascii r=d ed!!!* .EQ.ddddparabinary r=d ed,MPI_IN ,d,MPINT(IN ) :: pmodeinfo)ed!!!Pdddllelfmode. Specifi sarhey (PPevery ther droc wdio_f!ts .LT.ndatae!!!to afddeal a to oc if led,.LT. ifroutereto _ddki0,arhich ifndatae!!!wdioiwa everyd iwa into one siwalofa to. One si: r=d ed!!! r=d ed!!!* .EQ.ddddparaEI _ributer r=d ed!!!* .EQ.ddddparacent dlizer r=d edCHARACTIN(LEN=*) ,d,MPINT(IN ) :: a tonameinfo)ed!!!Name size ofa to datrhich IOvreflle r=d ed,MPI_IN ,d,MPINT(INOUT) :: icii( r=d ed!!!Fort dn(((unit datbe-user.!-1 ifgiveozo)einput,Writinfo)ed!!!routine ring_findfanfuiusereuii(+ang r_turn i(+ (Pe.info)ed,MPI_IN ,d,MPINT( OUT) :: E__ ,). nd!!!R_turn eq,mus, 0on sucr dr-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndREAL(loc,kind_double) :: t0_rootTLOGI :: lopen,loled r=d edCHARACTIN(LEN=loc,,h! ) :: mesa--ye CHARACTIN(LEN=12) :: cactn,cta,icposn(ceq,m r=d ed,MPI_IN :: maxuser ,ldl,iopt2 r=d ed,MPI_INT DIMENSION(1) :: ldiinfo)ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndExtmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndnitialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCsubstart('loc,dd_open',t0INE__,i r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndKK! Carguments-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____I _debug .GT2 .NE. 0)j)lSand____.NOTt .EQ.initializedNE. 0)j)lSand__KIinfo =dddderrorderrornd__KI=dddL pddderror(pddrrornoinit,'loc,dd_open',oi I I :ff :,:(('Pleasec led,.EQ.init first!nk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =- = =- r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndDecodeoang eK! Carguments-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___scii(+nrec .NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,'loc,dd_open',oi :I I :ff :'cii(+numbmoingss datbe-> 0nk 0.',__LINE__,info)edddddKKKKKGOTO Sand__--yend,______(actnfnfmt .EQ.ddddparareadNE. 0)j)lSand__KIcactnin'READ'j)lSand,___actnfnfmt .EQ.ddddparawdio_NE. 0)j)lSand__KIcactnin'WRITE'j)lSand,___actnfnfmt .EQ.ddddpararead_wdio_NE. 0)j)lSand__KIcactnin'READWRITE'j)lSandj)lSand__Kinfo =dddderrorderrornd__KdddL pddderror(pddargument,'loc,dd_open',oi :I I :ff 'InvalidactlfP typefspecifi fank 0.',__LINE__,info)eddddKKKKKGOTO Sand__--yend,______(pta,nfmt .EQ.ddddparaasciiNE. 0)j)lSand__KIcta,in'FORMATTED'j)lSand,___pta,nfmt .EQ.ddddparabinaryNE. 0)j)lSand__KIcta,in'UNFORMATTED'j)lSandj)lSand__Kinfo =dddderrorderrornd__KdddL pddderror(pddargument,'loc,dd_open',oi :I I :ff 'InvalidfaAmatftypefspecifi fank 0.',__LINE__,info)eddddKKKKKGOTO Sand__--yend,______((pmodefnfo2 pt =ddddparadi _ributer) .AND. I :I I :ff :(pmodefnfo2 pt =ddddparacent dlizerNNE. 0)j)lSand__Kinfo =dddderrorderrornd__KdddL pddderror(pddargument,'loc,dd_open',oi :I I :ff 'Invalid((((modefspecifi fank 0.',__LINE__,info)eddddKKKKKGOTO Sand__--yend,__(actnfnfmt .EQ.ddddparareadNE. 0)j)lSand__KIceq,mnda'OLD'j)lSand__KIcposnin'REWIND'j)lSandj)lSand__Kd,______(posnnfmt .EQ.ddddparaappenoNE. 0)j)lSand__KIceq,mnda'UNKNOWN'j)lSand__KKKKKKcposnin'APPEND'j)lSand__KI,___posnnfmt .EQ.ddddparareplac_NE. 0)j)lSand__KIceq,mnda'REPLACE'j)lSand__KKKKKKcposnin'REWIND'j)lSandSandj)lSand__Kd IIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,'loc,dd_open',oi :I I :ff : f 'Invalidpositfo)etypefspecifi fank 0.',__LINE__,info)eddddddddKKKKKGOTO 9999 = =- = =- r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndKK! Criat a to !! not already connectereto anoy (P uii(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndlopen = .FALSE.-Sand__pmodefnfmt .EQ.ddddparacent dlizerNE. 0)j)lSand__ed,__(.EQ._ddkinfmt .NE. 0)j)lSand__KI__ed,NQUIREaFILE=a toname,OPENED=lopenNj)lSand__KI-#ifdef __MPIinfo)eddend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddend All a uce sizlopeninfo)eddend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddendMPI_All a uce(lopen,loled,1,MPI_LOGI,MPI_LOR, :I I :ff :floc,,ommINE__,info)edddddlopen = loled #!!! o r=d ed__ed,__(lopenNE. 0)j)lSand__KlSaninfo =dddderrorderrornd__KIWRITE(mesa,'(3A)') 'F to ',TRIM(a toname),'o!! already opened!'j)lSand__KKKKKdddL pddderror(pddopena'loc,dd_open',mesa, I I :ff :fBUF',__LINE__,info)eddddd edscii(+= -1info)eddddddddKKKKKGOTO 9999 = =- = =-LSEnd__KI,NQUIREaFILE=a toname,OPENED=lopenNj)lSand__KI,__IlopenNE. 0)j)lSand__KlSaninfo =dddderrorderrornd__KIWRITE(mesa,'(3A)') 'F to ',TRIM(a toname),'o!! already opened!'j)lSand__KKKKKdddL pddderror(pddopena'loc,dd_open',mesa, I I :ff :fBUF',__LINE__,info)eddddd edscii(+= -1info)eddddddddKKKKKGOTO 9999 = =- = =- r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndKENTRALIZED(((-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____modefnfmt .EQ.ddddparacent dlizerNE. 0)j)lSand__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddend Root_finds e ofnext free uii(-yend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddend,___scii(+nrec .NE. 0)j)lSand__KId edscii(+= O 9999 = == =lopen = .TRUE.-nd__KIdddddDO WHILE_IlopenN-nd__KIddddd. nd,____EQ._ddkinfmt .NE. 0)j)lSand__KI__eddddddddddddLdd_uiuser_uii((scii(,ioptinfo2)e__KI__KIIIII-#ifdef __MPIinfo)eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__ed Bcasteto aed r=d eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__edMPI_Bcast(scii(,1,MPI_,MPI_INT0,loc,,ommINE__,i#!!! o r=d ed__edyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__ed !notuiusereuii(+wasfaund, led,ther drocs faid r=d eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__ed,__(cii(+nrT2 .NE. 0)j)lSand__KI__K__edddddinfo =dddderrorderrornd__KI__eddddL pddderror(pddopena'loc,dd_open',__ed I I :ff :,:(:,:((((('Not((((uii(+availableank 0.',__LINE__,info)eddddddd_________KKKKKGOTO 9999 = == =====- r=d eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__ed All eK! Criat notsuchzpo uii(+!! openddeally r=d eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__edlopen = .FALSE.-Sand______________,__(ASSOCIATED(loc,dd_uii(dNE. 0)j)lSand__ed____________,__(SIZEIloc,dd_uii(,1) .Go2 scii(NE. 0)j)lSand__KId____________,__(loc,dd_uii((scii(NE.GT2 .NElopen = .TRUE.-nd__KIddddddddddddd--ye = =dddd-#ifdef __MPIinfo)eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__ed All a uce sizlopeninfo)eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__edMPI_All a uce(lopen,loled,1,MPI_LOGI,MPI_LOR, :I I :ff :floc,,ommINE__,info)edddddddddddddlopen = loled #!!! o r=d ed__edddddDO - r=d eddend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddend Everyone eK! s e ofpo uii(, Root_ ofPd90uii(+!n additfo) r=d eddend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddendj)lSand__Kd IIdlopen = .FALSE.-Sand__________,____EQ._ddkinfmt .NE. 0)j)lSand__KI__eddddd,NQUIREascii(iOPENED=lopenNj)lSand__KI________,___cii(+nfmt .EQ.stdoutNElopen = .TRUE.-nd__KIddddddddd,___cii(+nfmt .EQ.std(pdNElopen = .TRUE.-nd__KIddddddddd,___cii(+nfmt .EQ.loga toNElopen = .TRUE.-nd__KIddddd--ye = =,__(ASSOCIATED(loc,dd_uii(dNE. 0)j)lSand__ed________,__(SIZEIloc,dd_uii(,1) .Go2 scii(NE. 0)j)lSand__KId________,__(loc,dd_uii((scii(NE.GT2 .NElopen = .TRUE.-nd__KIddddddddd--ye = =-#ifdef __MPIinfo)eddendyend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVj)lSand__KI__edAll a uce sizlopeninfo)eddendyend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVj)lSand__KI__edMPI_All a uce(lopen,loled,1,MPI_LOGI,MPI_LOR, :I I :ff :floc,,ommINE__,info)edddddddddlopen = loled #!!! o r=d ed__eddddd,__IlopenNE. 0)j)lSand__KlSand__Kinfo =dddderrorderrornd__KIWRITE(mesa,'(A,I4,A)') 'Requestere((((unit ',scii(i I I :ff :,:(:,:('o!! already in use. Close oy (P iEstance first!nerrornd__KIdddL pddderror(pddunitdopena'loc,dd_open',mesa, I I :ff :fffff 0.',__LINE__,info)eddddddd_____scii(+= -1info)eddddddddddddKKKKKGOTO 9999 = == =- = == =- = =!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndDISTRIBUTED(((-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd-LSEnd__KI,__(scii(+nrec .NE. 0)j)lSand__KId edscii(+= O 9999 = == =lopen = .TRUE.-nd__KIdddddDO WHILE_IlopenN-nd__KIddddd. nddddLdd_uiuser_uii((scii(,ioptinfo2)e__KI__KIIIII!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__ed Fail if notuiusereuii(+wasfaund r=d eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__ed,__(cii(+nrT2 .NE. 0)j)lSand__KI__K__edddddinfo =dddderrorderrornd__KI__eddddL pddderror(pddopena'loc,dd_open',__ed I I :ff :,:(:,:(( (('Not((((uii(+availableank 0.',__LINE__,info)eddddddd_________KKKKKGOTO 9999 = == =====-r=d eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__ed All eK! Criat notsuchzpo uii(+!! openddeally r=d eddendyend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-info)eddendyend__edlopen = .FALSE.-Sand______________,__(ASSOCIATED(loc,dd_uii(dNE. 0)j)lSand__ed____________,__(SIZEIloc,dd_uii(,1) .Go2 scii(NE. 0)j)lSand__KId____________,__(loc,dd_uii((scii(NE.GT2 .NElopen = .TRUE.-nd__KIddddddddddddd--ye = =dddd-e = =ddddDO - =ddddj)lSand__Kd IIdlopen = .FALSE.-Sand__________,NQUIREascii(iOPENED=lopenNj)lSand__KI____,___cii(+nfmt .EQ.stdoutNElopen = .TRUE.-nd__KIddddd,___cii(+nfmt .EQ.std(pdNElopen = .TRUE.-nd__KIddddd,___cii(+nfmt .EQ.loga toNElopen = .TRUE.-nd__KIddddd,__(ASSOCIATED(loc,dd_uii(dNE. 0)j)lSand__ed________,__(SIZEIloc,dd_uii(,1) .Go2 scii(NE. 0)j)lSand__KId________,__(loc,dd_uii((scii(NE.GT2 .NElopen = .TRUE.-nd__KIddddddddd--ye = =-KId________,__(lopenNE. 0)j)lSand__KlSand__Kinfo =dddderrorderrornd__KIWRITE(mesa,'(A,I4,A)') 'Requestere((((unit ',scii(i I I :ff :,:(:,:('o!! already in use. Close oy (P iEstance first!nerrornd__KIdddL pddderror(pddunitdopena'loc,dd_open',mesa, I I :ff :fffff 0.',__LINE__,info)eddddddd_____scii(+= -1info)eddddddddddddKKKKKGOTO 9999 = == =- = == =- = =- r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndOpeoze ofa to r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____modefnfmt .EQ.ddddparacent dlizerNE. 0)j)lSand__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddend Oand root_opens_e ofa to iffcent dlizereIO ifrequester-yend__ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddend,____EQ._ddkinfmt .NE. 0)j)lSand__KI__edOPEN(scii(,FILE=a toname,FORM=cta,iPOSITION=cposn( FA-US=ceq,m, I I :ff :ffACTION=cactn,IO FA-,STAT=j)lSand__KI-#ifdef __MPIinfo)eddend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVinfo)eddend All a uce sizE__ ,). nddend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVinfo)eddendMPI_All a uce(E__,iopt2,1,MPI_,MPI_INTMPI_SUM, :I I :ff :loc,,ommINE__,info)edddddiniopt2 #!!! o r=d edj)lSand__Kd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddend Oy (PwisePevery ther droc opens_afa to (sizdifferent nameinfo)eddend maybe)j)lSand__Kd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).info)eddendOPEN(scii(,FILE=a toname,FORM=cta,iPOSITION=cposn( FA-US=ceq,m, I I :ff :fACTION=cactn,IO FA-,STAT=j)lSand-KId,__II _info2 .NE. 0)j)lSand__Kinfo =dddderrorderrornd__KdddL pddderror(pddopena'loc,dd_open',__ed I I :ff 'F to doe! not exI _ oc notwdio_ permiselfPsank 0.',__LINE__,info)eddddKKKKKGOTO Sand__--yend!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndcii(+numbmobook-keepiwainfo)ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd.NOTt ASSOCIATED(loc,dd_uii(dNE. 0)j)lSand__ed,ldlfinfo =ddddprrdde_fi(-yend__edldc(1) = icii( r=d edd__KdddLrrddeIloc,dd_uii(,ldc ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =ddddefatad r=d eddendyenddddL pddderror(pddarddea'loc,dd_open',__ed I I :ff :,:(:'((((unit lI _ PPM_IO_UNITnk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =- = =. ndled,units dticuiuser- = =. ndloc,dd_uii((1:scii(NE= 0 r=d edj)lSand__KdmaxuserE= SIZEIloc,dd_uii(,1)j)lSand__ed,ldlfinfo =ddddprrdde_grow_preserve-yend__edldc(1) = icii( r=d edd__KdddLrrddeIloc,dd_uii(,ldc ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =ddddefatad r=d eddendyenddddL pddderror(pddarddea'loc,dd_open',__ed I I :ff :,:(:'((((unit lI _ PPM_IO_UNITnk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =- = =. nd,ldlfinSIZEIloc,dd_uii(,1)j)lSand__ed!se(+new,units totuiunseo r=d ed__KI,__I,ldlf.GT2 maxuserNE. 0)j)lSand__KIIIIKloc,dd_uii((maxuser+1:sldlNE= 0 r=d ed= =- = =--yend!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndGrow lI _s-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndmaxuserE= MAXVAL(loc,dd_uii(d ,). ndmaxuserE= maxuserE+ 1info)ed,ldlfinfo =ddddprrdde_grow_preserve-yendldc(1) = maxuser ndyenddddLrrddeIloc,dd_mode(ldc ,ldl,iopt=j)lSand,__II _info2 .NE. 0)j)lSand__KIinfo =ddddefatad r=d eddenddddL pddderror(pddarddea'loc,dd_open',__ed I I :ff :'((((modeflI _ PPM_IO_MODEnk 0.',__LINE__,info)edddddKKKKKGOTO Sand__-ndyenddddLrrddeIloc,dd_faAmat(ldc ,ldl,iopt=j)lSand,__II _info2 .NE. 0)j)lSand__KIinfo =ddddefatad r=d eddenddddL pddderror(pddarddea'loc,dd_open',__ed I I :ff :'((((faAmatflI _ PPM_IO_FORMATnk 0.',__LINE__,info)edddddKKKKKGOTO Sand__--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Store intmanalfuii(+numbm,(modefang faAmat-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndloc,dd_uii((scii(NEEEEE= maxuser ndyendloc,dd_mode(maxuserNEEE= pmodeinfo)edloc,dd_faAmat(maxuserNE= pta, -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Debug outpu( r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____p _debug .GT2 1NE. 0)j)lSand__KIWRITE(mesa,'(A,I4,A)') '((((unit ',scii(i' opened.' r=d eddenddddLwdio___EQ._ddka'loc,dd_open',mesa,STAT=j)lSand--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd_____turn-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yendsubstop('loc,dd_open',t0INE__,i-yendRETURN -yend SUBROUTINE loc,dd_openilibloc-1.2/src/io/dddL p_read_ascii.f000644 000765 000024 00000017415 11445666062 017755 0ueq,r00om,req,ff000000 000000 -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_read_ascii-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). -#if ff 0KI ==f 0SINGLE_PRECISION-yendSUBROUTINE p_readascii_s(scii(,a.LT. ,lta,il,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION-yendSUBROUTINE p_readascii_d(scii(,a.LT. ,lta,il,h! INE__,i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yendSUBROUTINE p_readascii_sc(scii(,a.LT. ,lta,il,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yendSUBROUTINE p_readascii_dc(scii(,a.LT. ,lta,il,h! INE__,i#!liff 0KI ==f 0,MPI_IN-yendSUBROUTINE p_readascii_i(scii(,a.LT. ,lta,il,h! INE__,i#!liff 0KI ==f 0LOGI-yendSUBROUTINE p_readascii_l(scii(,a.LT. ,lta,il,h! INE__,i#!!! o r=d ed!!Provides e ofatomicfreadiwa func! a alitySfaitASCII 1D or_dy .info)ed!!! r=d ed!!!NOTE: Never usereize ofPusmazprogram EI(((tly.--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE loc,module_substartndataeUSE loc,module_substopndataeUSE loc,module_rrorderrorndIMPLICIT NONE-#if fff 0KI ==f 0SINGLE_PRECISION |f 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend,MPI_INT PARAMETER :: MKinfo =kind_siwaloi#!lse-yend,MPI_INT PARAMETER :: MKinfo =kind_double #!!! o r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Included FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). #include "_I _define.h"-r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( r=d ed!!!Fort dn(/((unit datbe-user-#if ff 0KI ==f 0SINGLE_PRECISION |f 0KI ==f 0DOUBLE_PRECISION-yendREAL(MK) ,dDIMENSION(:) ,d,MPINT( OUT) :: a.LT.i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX |f 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yendCOMPLEX(MK),dDIMENSION(:) ,d,MPINT( OUT) :: a.LT.i#!liff 0KI ==f 0,MPI_IN-yend,MPI_IN ,dDIMENSION(:) ,d,MPINT( OUT) :: a.LT.i#!liff 0KI ==f 0LOGI-yendLOGI ,dDIMENSION(:) ,d,MPINT( OUT) :: a.LT.i#!!! o r=d ed!!DLT. v((taiteatbe-read. 1d or_dy sizary (PPsiwalo, double, r=d ed!!siwalofcomplex, doublefcomplex, intmg(PPaitlogicrr elements. r=d ed!!!Nngss datbe-arddeatereto prop(PPsizetbefore ealliwa d if r=d ed!!!routine.Its sizetdetermines e ofnumbmosizalements-read fromWritinfo)ed!!!a to. ,). nd,MPI_IN ,d,MPINT( OUT) :: E__ ,). nd!!!R_turn eq,mus, 0on sucr dr-yendCHARACTIN(LEN=*) ,d,MPINT(IN ) :: sota, r=d ed!!!FaAmatf _riwa fait(((. List-EI(((tere((((!! usere o r=d ed!!lengthzerof _riwa ifgiveo.-yendLOGI ,d,MPINT(IN ) :: l,h! r=d ed!!`.TRUE.` if adCHARACTINf _riwa ifeatbe-read_ang hafeatbe r=d ed!!convertereto and,MPI_IN or_dy before r_turniwa it.-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndREAL(MK) :: t0_rootTLOGI :: lta, #iff 0KI ==f 0,MPI_IN-yendCHARACTIN(LEN=SIZEIa.LT. 1)),dPO,MPIR :: cbuf ,). nd,MPI_IN :: slen,i,ishifti#!!! o -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Extmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndnitialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCsubstart('loc,dd_read_ascii',t0INE__,i r=d ed,___LEN_TRIM(sota,)infmt .NE. 0)j)lSand__KIlta,in.FALSE.-Sand__j)lSand__Kdlta,in.TRUE.-nd__KI-#iff 0KI ==f 0,MPI_IN-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arddeatev h!rac Ssbuffec if ingseg-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). r=d ed,___l,h! ) . 0)j)lSand__KIOCATE(cbuf( FA-,STAT=j)lSandd ed,___I _info2 .NEKKKKK800-nd__KI-#!!! o -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Read_actual .LT.ndatae!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___lta,)i. 0)j#iff 0KI ==f 0,MPI_IN-yendd ed,___l,h! ) . 0)j)lSand__KIIIIIREAD(scii(,ilta,iERR=800,IO FA-,STAT= cbuf ,). ndnd__j)lSand__KdIIIIREAD(scii(,ilta,iERR=800,IO FA-,STAT= a.LT.ndatae__KI-#!lse-yendIIIIREAD(scii(,ilta,iERR=800,IO FA-,STAT= a.LT.n#!!! o r=d edj#iff 0KI ==f 0,MPI_IN-yendd ed,___l,h! ) . 0)j)lSand__KIIIIIREAD(scii(,*iERR=800,IO FA-,STAT= cbuf ,). ndnd__j)lSand__KdIIIIREAD(scii(,*iERR=800,IO FA-,STAT= a.LT.ndatae__KI-#!lse-yendIIIIREAD(scii(,*iERR=800,IO FA-,STAT= a.LT.n#!!! o r=d ed-KId,__II _info2 .NEKKKKK800-#iff 0KI ==f 0,MPI_IN-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Converteto intmg(PPor_dy ang dearddeatev h!rac Ssbuffec-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). r=d ed,___l,h! ) . 0)j)lSand__KIslenfinSIZEIa.LT. 1)j)lSand__KIsshiftfinIACHAR('a')j)lSand__KID((!=1,slenj)lSand__KdIIIIa.LT.(i)finIACHAR(cbuf(i:i)) -Isshiftndatae__KIDOj)lSand__KIDEOCATE(cbuf( FA-,STAT=j)lSand-#!!! o -yendKKKKKGOTO Sand__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Erord handlec-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). r=800WRITTINUE-yendinfo =dddderrorderrornddddL pddderror(pddio,'loc,dd_read_ascii',ornd I I :f'Erord wh to readiwa fromWa tonk 0.',__LINE__,info)edKKKKKGOTO -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Return-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yendsubstop('loc,dd_read_ascii',t0INE__,i-yendRETURN -#if ff 0KI ==f 0SINGLE_PRECISION-yend SUBROUTINE p_readascii_si#!liff 0KI ==f 0DOUBLE_PRECISION-yend SUBROUTINE p_readascii_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTINE p_readascii_sci#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yend SUBROUTINE p_readascii_dci#!liff 0KI ==f 0,MPI_IN-yend SUBROUTINE p_readascii_ii#!liff 0KI ==f 0LOGI-yend SUBROUTINE p_readascii_d #!!! o libloc-1.2/src/io/dddL p_read_binary.f000644 000765 000024 00000030140 11445666062 020137 0ueq,r00om,req,ff000000 000000 -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_read_binary-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). -#if ff 0KI ==f 0SINGLE_PRECISION-yendSUBROUTINE p_readbin_s(scii(,a.LT. n((( ,ld((( l,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION-yendSUBROUTINE p_readbin_d(scii(,a.LT. n((( ,ld((( l,h! INE__,i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yendSUBROUTINE p_readbin_sc(scii(,a.LT. n((( ,ld((( l,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yendSUBROUTINE p_readbin_dc(scii(,a.LT. n((( ,ld((( l,h! INE__,i#!liff 0KI ==f 0,MPI_IN-yendSUBROUTINE p_readbin_i(scii(,a.LT. n((( ,ld((( l,h! INE__,i#!liff 0KI ==f 0LOGI-yendSUBROUTINE p_readbin_l(scii(,a.LT. n((( ,ld((( l,h! INE__,i#!!! o r=d ed!!Provides e ofatomicfreadiwa func! a alitySfaitbinary 1D or_dy .info)ed!!! r=d ed!!!NOTE: I(+!! never usereize ofPusmazprogram EI(((tly.--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE loc,module_.LT.,ddndataeUSE loc,module_substartndataeUSE loc,module_substopndataeUSE loc,module_rrorderrorndUSE loc,module_rrdde ,). ndIMPLICIT NONE-#if fff 0KI ==f 0SINGLE_PRECISION |f 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend,MPI_INT PARAMETER :: MKinfo =kind_siwaloi#!lse-yend,MPI_INT PARAMETER :: MKinfo =kind_double #!!! o r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Included FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). #include "_I _define.h"-r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( r=d ed!!!Fort dn(/((unit datbe-user-,). nd,MPI_IN ,d,MPINT(IN ) :: n((( r=d ed!!!Lengthsiz(((ordeatbe-read ,). nd,MPI_IN ,d,MPINT(IN ) :: sld((( r=d ed!!Precisfo)efait(((. One si: r=d ed!!! r=d ed!!!* .EQ.ddddparasiwaloir=d ed!!!* .EQ.ddddparadouble r=d ed!!! r=d ed!!!Intmg(PPong Logicrr cases dticnot NE_luencereize ois. N_ ,). nd!!!converelfPs dticdone if a!! value oy (P riaoze ofabove ifgiveo.#if ff 0KI ==f 0SINGLE_PRECISION |f 0KI ==f 0DOUBLE_PRECISION-yendREAL(MK) ,dDIMENSION(:) ,d,MPINT( OUT) :: a.LT.i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX |f 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yendCOMPLEX(MK),dDIMENSION(:) ,d,MPINT( OUT) :: a.LT.i#!liff 0KI ==f 0,MPI_IN-yend,MPI_IN ,dDIMENSION(:) ,d,MPINT( OUT) :: a.LT.i#!liff 0KI ==f 0LOGI-yendLOGI ,dDIMENSION(:) ,d,MPINT( OUT) :: a.LT.i#!!! o r=d ed!!DLT. v((taiteatbe-read. 1d or_dy sizary (PPsiwalo, double, r=d ed!!siwalofcomplex, doublefcomplex, intmg(PPaitlogicrr elements. r=d ed!!!Nngss datbe-arddeatereto prop(PPsizetbefore ealliwa d if r=d ed!!!routine.Its sizetdetermines e ofnumbmosizalements-read fromWritinfo)ed!!!a to. ,). nd,MPI_IN ,d,MPINT( OUT) :: E__ ,). nd!!!R_turn eq,mus, 0on sucr dr-yendLOGI ,d,MPINT(IN ) :: l,h! r=d ed!!`.TRUE.` if adCHARACTINf _riwa ifeatbe-read_ang hafeatbe r=d ed!!convertereto and,MPI_IN or_dy before r_turniwa it.-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndREAL(MK) :: t0_rootT,MPI_IN :: n.LT. ,lp( r=d edCHARACTIN(LEN=loc,,h! ) :: mesa--ye ,MPI_INT DIMENSION(1) :: ldl #iff 0KI ==f 0,MPI_IN-yendCHARACTIN(LEN=SIZEIa.LT. 1)),dPO,MPIR :: cbuf ,). nd,MPI_IN :: slen,i,ishifti#!!! o -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Extmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Initialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCsubstart('loc,dd_read_binary',t0INE__,i-yendn.LT.finSIZEIa.LT. 1)j r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___KK! Carguments-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____I _debug .GT2 .NE. 0)j)lSand- r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndKK! Cfaitread-past-!!!-of-(((ordexceptfo) r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___n(((+nrT2 n.LT.NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIWRITE(mesa,'(A,I11,A,I11)') 'Re(ordlendth: ' n((( ed I I :ff :';,.LT. size: ' n.LT.ndatae__KIdddL pddderror(pddread_eor,'loc,dd_read_binary',mesa, d I I :ff : 0.',__LINE__,info)edddddKKKKKGOTO Sand__-#iff 0KI ==f 0,MPI_IN-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arddeatev h!rac Ssbuffec if ingseg-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). r=d ed,___l,h! ) . 0)j)lSannnnnnOCATE(cbuf( FA-,STAT=j)lSandd ed,___I _info2 .NEKKKKK800-nd__KI-#!!! o nd__KI-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Read_actual .LT.ndatae!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). #if ff 0KI ==f 0SINGLE_PRECISION-yend,__I,ld(((+nfmt .EQ.ddddparadouble) . 0)j)lSand__ed,ldlfinfo =ddddprrdde_fi(-yend__edldl(1) = n.LT.ndatae__KIdddLrrddeIdbuffec,ldl ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =ddddefatad r=d eddendyenddddL pddderror(pddarddea'loc,dd_read_binary',yend I I :ff :,:(:'doublefbuffec DBUFFERnk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =- = =. ndREAD(scii(,ERR=800,IO FA-,STAT= dbuffec-yenddddda.LT.finREAL(dbuffec,fo =kind_siwalo)j)lSand__ed,ldlffinfo =ddddpdearddendatae__KIdddLrrddeIdbuffec,ldl ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =dddderrorderrornd__KI=dddL pddderror(pdddearddea'loc,dd_read_binary',yend I I :ff :,:(:'doublefbuffec DBUFFERnk 0.',__LINE__,info)eddddd- = =-LSEnd__KIREAD(scii(,ERR=800,IO FA-,STAT= a.LT.ndatae-#!liff 0KI ==f 0DOUBLE_PRECISION-yend,__I,ld(((+nfmt .EQ.ddddparasiwalo) . 0)j)lSand__ed,ldlfinfo =ddddprrdde_fi(-yend__edldl(1) = n.LT.ndatae__KIdddLrrddeIsbuffec,ldl ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =ddddefatad r=d eddendyenddddL pddderror(pddarddea'loc,dd_read_binary',yend I I :ff :,:(:'siwalofbuffec SBUFFERnk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =- = =. ndREAD(scii(,ERR=800,IO FA-,STAT= sbuffec-yenddddda.LT.finREAL(sbuffec,fo =kind_double)j)lSand__ed,ldlffinfo =ddddpdearddendatae__KIdddLrrddeIsbuffec,ldl ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =dddderrorderrornd__KI=dddL pddderror(pdddearddea'loc,dd_read_binary',yend I I :ff :,:(:'siwalofbuffec SBUFFERnk 0.',__LINE__,info)eddddd- = =-LSEnd__KIREAD(scii(,ERR=800,IO FA-,STAT= a.LT.ndatae-#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend,__I,ld(((+nfmt .EQ.ddddparadouble) . 0)j)lSand__ed,ldlfinfo =ddddprrdde_fi(-yend__edldl(1) = n.LT.ndatae__KIdddLrrddeIdcbuffec,ldl ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =ddddefatad r=d eddendyenddddL pddderror(pddarddea'loc,dd_read_binary',yend I I :ff :,:(:'doublefcomplexfbuffec DCBUFFERnk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =- = =. ndREAD(scii(,ERR=800,IO FA-,STAT= dcbuffec-yenddddda.LT.finCMPLXIdcbuffec,KI=fo =kind_siwalo)j)lSand__ed,ldlffinfo =ddddpdearddendatae__KIdddLrrddeIdcbuffec,ldl ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =dddderrorderrornd__KI=dddL pddderror(pdddearddea'loc,dd_read_binary',yend I I :ff :,:(:'doublefcomplexfbuffec DCBUFFERnk 0.',__LINE__,info)eddddd- = =-LSEnd__KIREAD(scii(,ERR=800,IO FA-,STAT= a.LT.ndatae-#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yend,__I,ld(((+nfmt .EQ.ddddparasiwalo) . 0)j)lSand__ed,ldlfinfo =ddddprrdde_fi(-yend__edldl(1) = n.LT.ndatae__KIdddLrrddeIscbuffec,ldl ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =ddddefatad r=d eddendyenddddL pddderror(pddarddea'loc,dd_read_binary',yend I I :ff :,:(:'siwalofcomplexfbuffec SCBUFFERnk 0.',__LINE__,info)eddddddd__KKKKKGOTO 9999 = =- = =. ndREAD(scii(,ERR=800,IO FA-,STAT= scbuffec-yenddddda.LT.finCMPLXIscbuffec,KI=fo =kind_double)j)lSand__ed,ldlffinfo =ddddpdearddendatae__KIdddLrrddeIscbuffec,ldl ,ldl,iopt=j)lSand__KI,__II _info2 .NE. 0)j)lSand__KIIIIKinfo =dddderrorderrornd__KI=dddL pddderror(pdddearddea'loc,dd_read_binary',yend I I :ff :,:(:'siwalofcomplexfbuffec SCBUFFERnk 0.',__LINE__,info)eddddd- = =-LSEnd__KIREAD(scii(,ERR=800,IO FA-,STAT= a.LT.ndatae-#!liff 0KI ==f 0,MPI_IN-yend,___l,h! ) . 0)j)lSannnnnnREAD(scii(,ERR=800,IO FA-,STAT= cbuf ,). nd-LSEnd__KIREAD(scii(,ERR=800,IO FA-,STAT= a.LT.ndatae-#!lse r=d edREAD(scii(,ERR=800,IO FA-,STAT= a.LT.n#!!! o nd__KI,__II _info2 .NEKKKKK800-#iff 0KI ==f 0,MPI_IN-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Converteto intmg(PPor_dy ang dearddeatev h!rac Ssbuffec-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,___l,h! ) . 0)j)lSand__KIslenfinSIZEIa.LT. 1)j)lSand__KIsshiftfinIACHAR('a')j)lSand__KID((!=1,slenj)lSand__KdIIIIa.LT.(i)finIACHAR(cbuf(i:i)) -Isshiftndatae__KIDOj)lSand__KIDEOCATE(cbuf( FA-,STAT=j)lSand-#!!! o -yendKKKKKGOTO Sand__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Erord handlec-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). r=800WRITTINUE-yendinfo =dddderrorderrornddddL pddderror(pddio,'loc,dd_read_binary',yend I I :f'Erord wh to readiwa fromWa tonk 0.',__LINE__,info)edKKKKKGOTO -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Return-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUErorndsubstop('loc,dd_read_binary',t0INE__,i-yendRETURN -#if ff 0KI ==f 0SINGLE_PRECISION-yend SUBROUTINE p_readbin_si#!liff 0KI ==f 0DOUBLE_PRECISION-yend SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTINE p_readbin_sci#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yend SUBROUTINE p_readbin_dci#!liff 0KI ==f 0,MPI_IN-yend SUBROUTINE p_readbin_ii#!liff 0KI ==f 0LOGI-yend SUBROUTINE p_readbin_l #!!! o libloc-1.2/src/io/dddL p_set_uii(.f000644 000765 000024 00000012607 11445666062 017522 0ueq,r00om,req,ff000000 000000 -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_set_uii(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). --yendSUBROUTINE loc,dd_set_uii((stdout,std(pd,loga toINE__,i-yend!!!!! routine !! eallereize ofPusmazto se(+ ofPIOi-yend!!units faitstdout, std(pd_ang log a to as usereizi-yend!!`dddL pddd`,`dddLlog`_ang `dddLwdio_`.info)ed!!! r=d ed!!![NOTE] r=d ed!!!A!! unit dat!be giveo aenegsh vofnumbmo ozwh ch case+ ofPcorrespondiwainfo)ed!!!outpu( !! supresser.info)ed!!! r=d ed!!![CAUTION] r=d ed!!!!units dtica tos,_e ofa tos dticautom,tieally opened_ang *replaced*.--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeIMPLICIT NONE--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN, OPTIONAL,d,MPINT(IN ) :: stdout r=d ed!!!cii(+numbmofaitstdout ,). nd,MPI_IN, OPTIONAL,d,MPINT(IN ) :: std pd r=d ed!!!cii(+numbmofaitstd pd r=d ed,MPI_IN, OPTIONAL,d,MPINT(IN ) :: loga to r=d ed!!!cii(+numbmofaitloga to r=d ed,MPI_IN, OPTIONAL,d,MPINT( OUT) :: E__ ,). nd!!!R_turn eq,mus, 0on sucr dr-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndLOGI :: sopenir=d ed,MPI_IN :: opt2 CHARACTIN(LEN=12) :: cfaAmat-yendCHARACTIN(LEN=80) :: a toname Sand__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Extmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Initialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndopt2E= 0 r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Define_e ofa to numbmiwa faimat-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,____I _nther.LE.1.NE. 0)j)lSand__KcfaAmatE= '(A,I1.1,A)'d r=d ed,____I _nther.LE.1..NE. 0)j)lSand__KcfaAmatE= '(A,I2.2,A)'d r=d ed,____I _nther.LE.1...NE. 0)j)lSand__KcfaAmatE= '(A,I3.3,A)'d r=d edj)lSand__KcfaAmatE= '(A,I4.4,A)'d r=d ed r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Test if aed,units dticopen ang opeoze om if ingseg-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). r=d ed,___PRESINT(stdoutN) . 0)j)lSand__KI,NQUIREastdout,OPENED=sopen=j)lSand__KI,__I.NOTt sopen=E. 0)j)lSand__KIIIIK! just in case+aed,ther droc! shdtice ofEI k...-nd__KIdddddWRITE(a toname,cfaAmat) 'loc,stdout_',_EQ._ddka'.outnerrornd__KIOPEN(stdout,FILE=a toname, nd I I :ff : FA-US='REPLACE',ACTION='WRITE',IO FA-,STAT2,info)eddddd- = =====loc,stdoutE= stdout ,). nd- r=d ed,___PRESINT(std pdN) . 0)j)lSand__KI,NQUIREastd(pd,OPENED=sopen=j)lSand__KI,__I.NOTt sopen=E. 0)j)lSand__KIIIIK! just in case+aed,ther droc! shdtice ofEI k...-nd__KIdddddWRITE(a toname,cfaAmat) 'loc,std(pdd',_EQ._ddka'.outnerrornd__KIOPEN(std(pd,FILE=a toname, nd I I :ff : FA-US='REPLACE',ACTION='WRITE',IO FA-,STAT2,info)eddddd- = =====loc,std(pd_=tstd pd r=d ed- r=d ed,___PRESINT(loga toN) . 0)j)lSand__KI,NQUIREaloga toIOPENED=sopen=j)lSand__KI,__I.NOTt sopen=E. 0)j)lSand__KIIIIK! just in case+aed,ther droc! shdtice ofEI k...-nd__KIdddddWRITE(a toname,cfaAmat) 'loc,logd',_EQ._ddka'.outnerrornd__KIOPEN(loga toIFILE=a toname, n I I :ff :POSITION='APPEND',ACTION='WRITE',IO FA-,STAT2,info)eddddd- = =====loc,loga to_=tloga to r=d ed--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd_____turn-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yend,___PRESINT(NE__,)diniopt2 -yendRETURN -yend SUBROUTINE loc,dd_set_uii(libloc-1.2/src/io/dddL p_uiuser_uii(.f000644 000765 000024 00000012355 11445666062 020232 0ueq,r00om,req,ff000000 000000 -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_uiuser_uii(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). --yendSUBROUTINE loc,dd_uiuser_uii((scii(,iE__,i-yend!!!!! routine finds e ofnexsizvoneablefuii(+numbmi-yend!!startiwa fromWe ofgiveo one ang co Mtiwa upcord .info)ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE loc,module_substartndataeUSE loc,module_substopndataeUSE loc,module_rrorderrorndIMPLICIT NONE-nfo)ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(INOUT) :: cii( r=d ed!!!One oput:startiwa numbm. r=d ed!!! r=d ed!!!Oneoutpu(:fnexsifree uii(+numbm. r=d ed!!! r=d ed!!!-1 !! r_turnere o!noifree uii(+numbm .LE. 255 was fa Me. ,). nd,MPI_IN ,d,MPINT( OUT) :: E__ ,). nd!!!R_turn eq,mus, 0on sucr dr-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndREAL(fo =kind_double) :: t0_rootTLOGI :: lopenir=d ed,MPI_IN :: locrruii(-yend,MPI_INT PARAMETER :: maxcii(+= 255 Sand__!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Extmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Initialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCsubstart('loc,dd_uiuser_uii(',t0INE__,i r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndKK! Cstartfuii(+numbmi-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,__Icii(+.LE. .NE. 0)j)lSand__KIicii(+= 10j)lSand__KIiinfo =ddddenoticej)lSand__KIdddL pddderror(pddargument,'loc,dd_uiuser_uii(',__KI I I :ff :'cii(+numbmoout siz(ange was rese(+ o 10.nk 0.',__LINE__,info)ed-KId,__Icii(+.GT2 maxcii(NE. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddargument,'loc,dd_uiuser_uii(',__KI I I :ff :'cii(+numbmoout siz(ange.nk 0.',__LINE__,info)ed__KIicii(+= -1info)ed__KIKKKKKGOTO Sand__-r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndFindfnexsifree uii(+numbmr=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndlocrruii(inicii( r=d edlopenin.TRUE.-nd__KIDO WHILE (lopen.AND.dlocrruii(.LE. maxcii(Ninfo)ed__KIlocrruii(inlocrruii(+ 1info)ed__KI,NQUIREalocrruii(IOPENED=lopen=j)lSand__KI,__Ilocrruii(.fmt .EQ.stdoutNdlopenin.TRUE.-nd__KI__KI,__Ilocrruii(.fmt .EQ.std pdNdlopenin.TRUE.-nd__KI__KI,__Ilocrruii(.fmt .EQ.loga toNdlopenin.TRUE.-nd__KIDO r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___KK! C o!one was fa Mei-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,__Ilopen=E. 0)j)lSand__KIinfo =dddderrorderrornd__KIdddL pddderror(pddoutof_uii(s,'loc,dd_uiuser_uii(',__KI I I :ff :'No uiuser(/((unit was fa Me.nk 0.',__LINE__,info)ed__KIicii(+= -1info)ed__KIKKKKKGOTO Sand__-r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndR_turn e ofaa Me uii(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndicii(+= locrruii(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd_____turn-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yendsubstop('loc,dd_uiuser_uii(',t0INE__,i-yendRETURN -yend SUBROUTINE loc,dd_uiuser_uii(libloc-1.2/src/io/dddL p_wdio__ascii.f000644 000765 000024 00000017247 11445666062 020177 0ueq,r00om,req,ff000000 000000 -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_wdio__ascii-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ,). nd_____________________Cee co WaitFluid Dynamics (DTU,info)ed!info)ed!info)ed!!!! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). -#if ff 0KI ==f 0SINGLE_PRECISION-yendSUBROUTINE p_wdio_ascii_s(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION-yendSUBROUTINE p_wdio_ascii_d(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yendSUBROUTINE p_wdio_ascii_sc(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yendSUBROUTINE p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0,MPI_IN-yendSUBROUTINE p_wdio_ascii_i(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0LOGI-yendSUBROUTINE p_wdio_ascii_l(scii(,a.LT. ilta,il,h! INE__,i#!!! o r=d ed!!Provides e ofatomicfwdioiwa func! a alitySfaitascii 1D or_dy .info)ed!!! r=d ed!!!NOTE: I(+!! never usereize ofPusmazprogram EI(((tly.--yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE loc,module_substartndataeUSE loc,module_substopndataeUSE loc,module_rrorderrorndIMPLICIT NONE-#if fff 0KI ==f 0SINGLE_PRECISION |f 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend,MPI_INT PARAMETER :: MKinfo =kind_siwaloi#!lse-yend,MPI_INT PARAMETER :: MKinfo =kind_double #!!! o r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Included FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). #include "_I _define.h"-r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( r=d ed!!!Fort dn(/((unit datbe-user-#if ff 0KI ==f 0SINGLE_PRECISION |f 0KI ==f 0DOUBLE_PRECISION-yendREAL(MK) ,dDIMENSION(:) ,d,MPINT(IN ) :: a.LT.i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX |f 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yendCOMPLEX(MK),dDIMENSION(:) ,d,MPINT(IN ) :: a.LT.i#!liff 0KI ==f 0,MPI_IN-yend,MPI_IN ,dDIMENSION(:) ,d,MPINT(IN ) :: a.LT.i#!liff 0KI ==f 0LOGI-yendLOGI ,dDIMENSION(:) ,d,MPINT(IN ) :: a.LT.i#!!! o r=d ed!!DLT. v((taiteatbe-read. 1d or_dy sizary (PPsiwalo, double, r=d ed!!siwalofcomplex, doublefcomplex, intmg(PPaitlogicrr elements._Ard r=d ed!!alements-sizitaring_be wdioten. ,). nd,MPI_IN ,d,MPINT( OUT) :: E__ ,). nd!!!R_turn eq,mus, 0on sucr dr-yendCHARACTIN(LEN=*) ,d,MPINT(IN ) :: slta, r=d ed!!!FormatE _riwa fait(((. LI _-EI(((ter(/((is usere o r=d ed!!lengthzerof _riwa ifgiveo.-yendLOGI ,d,MPINT(IN ) :: l,h! r=d ed!!.TRUE.C o!e ofintmg(PPor_dy actually ifadCHARACTINf _riwa r=d ed!!ang should,beconvertereback before outpu(.-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Locrr variables -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndREAL(MK) :: t0_rootTLOGI :: lta, #iff 0KI ==f 0,MPI_IN-yendCHARACTIN(LEN=SIZEIa.LT. 1)),dPO,MPIR :: cbuf ,). nd,MPI_IN :: slen,i,ishifti#!!! o -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Extmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Initialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCsubstart('loc,dd_wdio__ascii',t0INE__,i r=d ed,__ILEN_TRIM(slta,).fmt .NE. 0)j)lSand__KIlta,in.FALSE.-nd__KI-LSEnd__KIlta,in.TRUE.-nd__KI-#iff 0KI ==f 0,MPI_IN-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Converteto h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). r=d ed,___l,h! ) . 0)j)lSannnnnnOCATE(cbuf( FA-,STAT=j)lSandd ed,___I _info2 .NEKKKKK800-nd__KIIIIIslenfinSIZEIa.LT. 1)j)lSand__KIsshiftfinIACHAR('a')j)lSand__KID((!=1,slenj)lSand__KdIIIIcbuf(i:i)finCHAR(a.LT.(i)+sshift,info)edddddDOj)lSand-#!!! o -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,). ,). nd___Converteto intmg(PPor_dy ang dearddeatev h!rac Ssbuffec-yend!ded,___l,h-yendLOGI ,dDIMENSION(:) ,d,MPINT(IN ) :: a.LT.i#!!! o r=d ed!!DLT. v((taiteatbe-read. 1d or_dy sizary (PPsiwalo, double, r=d ed!!siwalofcomplex, doublefcomplex, intmg(PPaitlogicrr elements._Ard r=d ed!!alements-sizitaring_be wdioten. 0DOUBLE_PRECISION_COMPe #!!! o SannnnnnOCATEOCATE(cbuf( FA-,OCATEbe wdiote h_PRECISnd,__Icii(+.LE._VL ERp,vp,). De-s kVL,).L,). ,). nd,____I _nther.LE.1.NE. 0)j)lSand__KcfaAmatE= '(A,I1.1,A)'d r=d ed,____I _nther.LE.1..NE. 0)j)lSand__KcfaAmatE= '(A,I2.2,A)'d r=d ed,____I _nther.LE.1...NE. 0 !!!FormatE _j)lSaOCATEbe wdiote h_PRECISnd,__Icii(+.LE._VL ERp,vp,).* kVL,).L,). ,). nd,____I _nther.LE.1.NE. 0)j)lSand__KcfaAmatE= '(A,I1.1,A)* kVL,).L,). ,). nd,___LE.1..NE. 0)j)lSand__KcfaAmatE= '(A,I2.2,A)'d r=d * kVL,).L,). ,). nd,___LE.1..!!!FormatE _jumbmr=d ed!__KID((!=1,slenj)lSand__KdIIIIa.LT.(i)finIACHAR(cbuf(i:i)) -Isshiftndatae__KIDOj)lSand__KIDEOCATE(cbuf( FA-,STAT=j)lSand-#!!D!dd4,BOIe)0=dddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,). ,). nd___Converteto intmgord wh to readiwa fromWa tonk 0.',__LINE__,info)edKKKKKGOTO -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Return-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUErorndsubstop('loc,dd_read_binary',t0INE__,i-yendRETURN -#if ff 0KI ==,). r=d ed,__t0INON-yend SUBROUTINE c,module#!!!liff 0KI ==f 0DOUBLE_PRECISION-yend SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTINE p_readbin_sci#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yend SUBROUTINE p_readbin_dci#!liff 0KI ==f 0,MPI_IN-yend,). r=d ed,___l,h! ) .0KI liff 0KI ==f 0LOGI-yend SUBROUTINE p_readbin_l #!!! o cfwdioiwa fu EI(((tly.-cfwdioiwa fun EI(((tly.-). ,). nd___ kVL,).L,). libloc-1.2/src/io/dddL p_set_uii(.f000644 000765 000024 00000012607 11445666062 017522 0ROUTIN21466-y371!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_wdio__ascii-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrnd SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTed!PPM !! free ooftware: youdROUTINend SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROU a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).endL,).L,). -#if ff 0KI ==f 0SINGLE_PRECISION-yendSUBROUTINE p_wdio_ascii_s(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION-yendSUBROUTINE p_wdio_ascii_d(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yendSUBSUBROU p_wdio_ascii_sc(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yendSUBROUTINE p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI =,). ndUSE loc,m__KKINE p_wdio_ascii_i(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0LOGI,). ndUSE loc,m__KKINE p_wdio_ascii_i(scii(,a.LT.h! INE__,i#!!! o r=d ed!!Provides e ofatomicfwdi,). ndUSE loc,m__KKINE p_wdio_ascii_i(scii(,a.LT. ilta,il,h! INE_ r=d ed!!Provides e ofatomicfwdi-yend!dd__KKINE p_wdio_ascii_i(scii(,a.LT.kVL ERp,vp,). De-s kVL,).L,). ,)-yend!dd__KKINE p_wdio_ascii_i(scii(,a.LT.ddd De-s kVL ERp,vp,). De-s kVL,-yend!dd__KKINE p_wdio_ascSE loc,module_substartndataeUSE loc,module_substopndataeUSEROUTINmodule_rrorderrorndIMPLICIT NONE-#if fff 0KI ==f 0SINGLE_PRECISION |f 0KI ==f 0SIT. ilta,il,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yendSUBROUTINE UBSUBROUNT PARAMETER :: MKinfo =kind_double #!!! o r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Included FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). #include "_I _define.h"-r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Arguments -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( r=d ed!!!Fort dn De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) BLE_PRECISION-yendREAL(MK) ,dDIMENSION(:) ,d,MPINT(IN ) :: a.LT.i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX |f 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yendCOMPLEX(MK),dDIMENSION(:) ,d,MPINT(IN ) :: a.LT.i#!liff 0KI ==f 0,MPI_IN-yend,MPI_IN ,dDIMENSION(:) ,d,MPINT(IN ) :: a.LT ) :: a.LT.i#!liff 0KI ==f 0,MPI_IN-yend,MPI_IN ,d__KKoc,module_subecill((ables -O!! of:derrorndIMPLICIT NONE*TO 9999 = =- PLICIT NONE*TO 9999 = =ddd De-errorndIMPLICIT NONEI ::_s(L ,d,rnOPEN(ECIstopluencSINGLE_Pis. Nnvertereback 1)),dll(OPEN(d0=dornd Livalue oed!YPdddllabovevp,). De-s .i#!liff 0KI ==f 0LOGI-yendLOGI ,dDIMENSION(:) ,d,MPINT(IN ) :: a.LT.i#!!! o r=d ed!!DLT. v((taiteatbe-read. 1d or_dy sizary (PPsiwalo, double, r=d ed!!siwalofcomplex, doublefcomplex, intmg(PPaitlogicrr elements._Ard r=d ed!!alements-sizitaring_be wdioten. ,). nd,MPI_IN ,d,MPINT( OUT) :: E__ ,). nd!!!R_turn eq,mus, 0on sucr dr-yendCHARACTIN(LEN=*) ,d,MPINT(IN ) :: slta, r=d ed!!!FormatE _riwa fait(((. LI _-EI(ntmg(PPo(/((is usere o r=d ed!!lengthzerof _riwa ifgiveo.-yendLOGI ,d,MPINT(IN ) :: l,h! r=d ed!!.TRUE.C o!e ofintmg(PPor_dy actually ifadCHARACTINf _riwa r=d ed!!ang should,beconvertereback before outpu(.-yend!dd).L,). ,). ndREAL(MK) :: t0_rootTLOGI :: lta, #iff 0KI ==f 0,MPI_IN-yendCHARACTIN(LEN=SIZEIa.LT. 1)),dPO,MPIR :: cbuf ,). nd,MPI_IN :: slen,i,ishifti#!!! o -yend!ddINT(IN ) :dddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Extmanals -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,4,BOIe)0=ddddddddddddd De-s kVbec!!ddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Initialise r=d ed!!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndCsubstart('loc,dd_wdio__ascii',t0INE__,i r=d ed,__ILEN_TRIM(slta,).fmt .NE. 0)j)lSand__KIlta,in.FALsubstart('loc,dd_wdio__ascii',t0INE__,i r=d ed,__ILEN_TRIM(slta,).fm ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( r=___Converteto h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). r=ROUTINE p_readbin_ii#!bec!! ,dDIMENSION ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( 4,BOcii( r=dMETER :: MKinfo =kind_double #!!! o r=d ed!dd4,BOIe)0=ddddddddddddd De-s kVtN) . 0)debug,STAT=j)lSandd)lSand__KIsshiftfinIACHAR('a')j)lSand__KID((!=1,slenj)lSand__KdIIIIcbuf(i:i)finCHAR(a.LT.(i)+sshift,info)edddddDOj)lSand-#!!! o -yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,). ,). nd___Converteto intmg(PPor_dy ang dearddeatev h!rac Ssbuffec-yend!ded,___l,h-yendLOGI ,dDIMENSION(:) ,d,MPINT(IN ) :: a.LT.i#!!! o r=d ed!!DLT. v((taiteatbe-read. 1d or_dy sizary (PPsiwalo, double, r=d ed!!siwalofcomplex, doublefcomplexddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,).ten. 0DObecorddddd De-#!!!lif, doublefcomplexddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,)..2,A)'d r=d kVL,).L,). ,). nd,___bec!!c Ssbuffec-yend!ded,___l, doublefcomplexddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,).ten. 0DOUBLE_PRECISION_COMPe #!!! o SannnnnnOCATEOCATE(cbuf( FA-,.i#!liff 0KI ==f 0LOGI-yendLc Ssbuffecd__KKKKKGOTO 9999 = =- = =. ndREAD(sci.2,A)'d r=d kVL,).L,). ,). nd,___dddddDIMENS,IO FA-,STAT= a.LT.ndatj)lSand__KcfaAm.2,A)'d r=d kVL,).L,). ,). nd,___ff :,:(:'siwalofcomplexfbuffec SCBUFFERnk 0.',_Lc Ssbuffecd__KKKKKGOTO 9999 = =- = =. ndREAD(sci.2,A)'d r=d kVL,).L,). ,). nd,___dddddDIMENS,IO FA-,STAT= a.LT.ndatj)lSand__KcfaAm.2,A)'d r=d kVL,).L,). ,). nd,___ff :,:(:'siwalofcomplexfbuffec (PPsiwalo, double, r=d ec Ssbuffecd__KKKKKGOTO 9999 = =- = =. ndREAD(sci.2,A)'d r=d kVL,).L,). ,). nd,___KIREADDIMENSR=800,IO FA-,STAT= a.LT.ndatj)lSand__KcfaAm.2,A)'d r=d kVL,).L,). ,). nd,___ff :,:(:'siwalofcomplexfbuffec SCBUFFERnk 0.',_le, r=d ec Ssbuffecd__KKKKKGOTO 9999 = =- = =. ndREAD(sci.2,A)'d r=d kVL,).L,). ,). nd,___KIREADDIMENSR=800,IO FA-,STAT= a.LT.ndatj)lSand__KcfaAm.2,A)'d r=d kVL,).L,). ,). nd,___ff :,:(:'siwalofcomplexfbuffec ntmg(PPor_dy ang dearddeatev h!rac Ssbu.2,A)'d r=d kVL,).L,). ,). nd,___0=ddddddddddddd De-s kVL.2,A)'d r=d kVL,).L,). ,). nd,___ff :,:(:'siwalofverteto .2,A)'d r=d kVL,).L,). ,). nd,___fIACHAR('a')j)lSand__KID((!=1,slenj)lSand__KdIIIIa.LT.(i)finIACHAR(cbuf(i:i)) -Isshiftndatae__KIDOj)lSand__KIDEOCATE(cbuf( FA-,STAT=j)lSand-#!!D!dd4,BOIe)0=dddd!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,). ,). nd___Converteto intmgord wh to readiwa fromWa tonk 0.',__LINE__,info)edKKKKKGOTO -yend!dd4,BOIe)0=ddddddddddddd De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,)._Return-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUErorndsubstop('loc,dd_read_binary',t0INE__,i-yendRETURN -#if ff 0KI ==,). r=NGLE_PRECISION-yend SUBROUTINE c,module#!!!liff 0KI ==f 0DOUBLE_PRECISION-yend SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTINE p_readbin_sci#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yend SUBROUTINE p_readbin_dci#!liff 0KI ==f 0,MPI_IN-yend,). r=ROUTINE p_readbin_ii#!liff 0KI ==f 0LOGI-yend SUBROUTINE p_readbin_l #!!! o cfwdi EI((cfwdi EI((). ,) kVL,libloc-1.2/src/io/dddL p_set_uii(.f000644 000765 000024 00000012607 11445666062 01 kVL,212-6323!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_wdio__ascii-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zurrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrnd SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTed!PPM !! free ooftware: youdd ud kVL,end SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROU a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).endL,).L,). -#if ff 0KI ==f 0SINGLE_PRECISION-yendSUBROUTINE p_wdio_ascii_s(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION-yendSUBROUTINE p_wdio_ascii_d(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yendSUBSUBROU ___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.LT.ndataeUSE lo kVL,(ITTINeallyr,eadiwread,io!one was faodule_subsd!PPM !! en De-s ed_ang *repl kVL,!ddc Li!dd=f was faodul! o -yendsreplaT2,infd=f ,BOIe)MPINo!onrderrorndIMPLICIT NONEe_substopndatus-s ed_a`.2,A)` s_,istopndadddddddddddddddL ERp,vp,). De-s k, ONLYreeE. 0)j)lSa,eE. 0tTLOGI -1 !! r_turnere o!noifree uii(+numbm .LE. 255 was fa Me. ,). nd,MPI_IN ,d,MPINT( OUT) :: E__ ,). n,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,). 4,BOIe)0=ddd :: t0_roITTIPLICIT NONEMPIoITTIGLE_PRECealldule!dd 0KI =4,BOIe)0=dddd :: t0_roeallyrPLICIT NONEC o -yend!descensdule#loc,ameGLE_PRECealldulesd!PPM !! 0KI =4,BOIe)0=dddd :: t0_roe=dddddddNONEC o -yend!con kVndule#locm!dageI _-EI(pr LT ) :: a.LT.i#!liff 0Ked!!ang should,beconvertereback befors.-yend!dd).: a.LT.i#!liff 0Ked:: cfaAmiff 0K ,dDIMENSION(:) UNr_t _-pr t _-(:: cfaAm). r=daultsreplaT2,infrootTt specifiOIe)0=dddddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,).dddddddddddd De-s)0=dddddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,).=4,BOIe)0=ddE. 0tTL),BOIe)0=dddddddd4,BOIe)0=ddddddddd ,dudddddd4,BOIe)0=ddddddddd ,do!dd).: a.LT.i#!liff 0Kdddddd ,deallyr,i=dddddddNddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,).t .NE. 0)j)l4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,module_.L,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii( r=___Converteto h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddd De-s kVL !-pr t _-aT2,infensd=daultsubstu'loc,dd-yend!do!oned ed--yend!!dd0)stu'lodDIMENSION(:dd De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yendsubstop('loc,dd_uiuser_uii(',t0IGetdddd De-LE_m!dages)0=dddddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,).deallyr'lonnnOCAeallyre was fai=ds falonnnOCAeher.LAR(cbuf(i:i)) -Isshiftndatae__KIDOj)lSand__KIDEOCATE(cbuf( FA-,STAT=j)lSand-#!!Dd edpr tdd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Test if aed,units ddddd(ITTI.LT.NQUIREastdout,OPENED=sopen=j4A)yend,___tdoutN) ITTI.LT.eoze om if ingseg-yend!dd,4A)yend,___tdoutN) ITTI.LT.eo ERp,vp,). De-s kVL,).L,). r=d e,4A)yend,___tdoutN) ITTI.LT.eo NQUIREastdout,OPENED=sopen=j)lSa,4A)yend,___tdoustdout,OPENED=sopen=j)lS4,4A)yend,___td De-s kVL ERp,vp,). De-s kVL,).L,). ,GOTOWRITTINUE-yendsubstop('loc,dd_uiuser_uii(',t0IDopr ,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,). ,).ITTI.LT.NQUIREastdout,OPE!uff :'cii(+numbmoo .2,A)'du. De-s k,). ,). nos De-s kVL ERp,vp,). De-s ddddddddddddd n=jRECISIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIddddddddddddd neallyr(1:deallyr)ECISIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIddddddddddddd n=),B RECISIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIddddddddddddd nebe-r1:dher.LE.1.NE. 0jumbmr=d etdoustdout,OPE!uff :'cii(+numbmoo .2,A)'du. De-s k,). ,). nos De-s kVL ERp,vp,). De-s ddddddddddddd n=[',ITTINU] jRECISIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIddddddddddddd neallyr(1:deallyr)ECISIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIddddddddddddd n=),B RECISIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIddddddddddddd nebe-r1:dher.LE.1.NE. 0jumbmr=d etumbmr=d eo!end SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTINE p_readbin_sci#!liff 0KI ==f 0DOUBLE_PRECISION_COMPLEX-yend SUBROUTINE p_readbin_dci#!liff 0KI kVL,e 2010 CSE Lab (ETH Zurrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr youpocens/m2p_ youp_bsp2110631 02125d!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Subroutine nd: dddL p_uiuser_uii(-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd__Copyright (c) 2010 CSE Lab (ETH Zuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuund SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUT UTed!PPM !! free ooftware: youdd um2p_ youp_bsp2end SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROU a to !! p! Ssize ofPdddllelfPddticto Mesh Library (PPM).info)ed!info)ed!PPM !! free ooftware: youddat! a to !! p! Ssize ofPdddllelfPddticto Mesh Lib!PPM !! EI _ributere oze ofhop Wriat itaring_be useful,info)ed!but WITHOUT ANY WARRANTY;arithout eveoze ofimplierecor_ddtySsiinfo)ed!MERCHANTABILITY aitFITNESS FOR A PARTICULAR PURPOSo2 Se Writinfo)ed!GNU GsA- GlfPublic License faitmore detone .info)ed!info)ed!Youdshould, all(((('red ae and size ofGNU GsA- GlfPublic License ,). nd__ang e ofGNU LessmazGsA- GlfPublic License alongarithPPM.!not,info)ed!se W.info)ed!info)ed!PdddllelfPddticto Mesh Library (PPM)info)ed!ETH Zurich ,). nd__CH-8092 Zurich, Sritzerlang-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,).endL,).L,). -#if ff 0KI ==f 0SINGLE_PRECISION-yendSUBROUTINE p_wdio_ascii_s(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0DOUBLE_PRECISION-yendSUBROUTINE p_wdio_ascii_d(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yendSUBSUBROU ___Moduled FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,mod ==f 0 2Dd ==f 0MOD SCA p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INE__,i#!liffm2p_ youp_bsp2_ss_2d(topoid,m==fid,field_up,xp,up,dx,ghostsize_wdio_ascii_i(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==m2p_ youp_bsp2_ds_2d(topoid,m==fid,field_up,xp,up,dx,ghostsize_wdio_ascscii_i(sMOD VEC p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INE__,i#!liffm2p_ youp_bsp2_sv_2d(topoid,m==fid,field_up,lda,xp,up,dx,ghostsize_wdio_ascii_i(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==m2p_ youp_bsp2_dv_2d(topoid,m==fid,field_up,lda,xp,up,dx,ghostsize_wdio_ascscscii_i(s 3Dd ==f 0MOD SCA p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INE__,i#!liffm2p_ youp_bsp2_ss_3d(topoid,m==fid,field_up,xp,up,dx,ghostsize_wdio_ascii_i(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==m2p_ youp_bsp2_ds_3d(topoid,m==fid,field_up,xp,up,dx,ghostsize_wdio_ascscii_i(sMOD VEC p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INE__,i#!liffm2p_ youp_bsp2_sv_3d(topoid,m==fid,field_up,lda,xp,up,dx,ghostsize_wdio_ascii_i(scii(,a.LT. ilta,il,h! INE__,i#!liff 0KI ==m2p_ youp_bsp2_dv_3d(topoid,m==fid,field_up,lda,xp,up,dx,ghostsize_wdio_ascscscCHAR('a')jNONEM==f _-pff 0KI youpocenl((abllowdule#loc2_s(orY aiB-sfPd!! scheme.('a')jNON('a')jNONETh youpocenl((schemeblicon0KI ,). ==dddd2Dii_s(3D spaces. To('a')jNONEincreaf 0perDe-s nce il, loopicov aitFITcrruii(feperti-s eo('a')jNONEb youpocen ==frdNdlrbll ==dddd2,3,4ii_s(5-(((. Ls.('a')jNON ('a')jNON [-#if]('a')jNONEThsubstopndaton0KIperDe-sndataeBLE_PR youpocenl(.fff L,). -#tTt be('a')jNONEeallydI ==f 0!ddstopndasw.gnuinsteas(scii`-yend youp_m2p`('a')jNONEstopndatSIZEIa.LT. 0SIN=f 0Dsciikern#!lcii( r=d ,). ,).('a')jNONE`O 9999 =-snh_kern#!_bsp2`. !end dddddd De-s kVL ERp,vp,). dddddd De-s kVL!dd,vp,). dddddd De-s kVLluded FA-sed!dd4,BOIe)0=ddddddddddddd De-s kVL-s kVL,).L,). ,). nd___Inc-s k-snhVL,).L,). ,). nd___Inc-s km==fVL,).L,). ,). nd___InctypedefVL,).L,). ,). nd___Inc kVL,end -1 !! r_turner p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INERp,vp,). De-s kVL,).L,). ,). nd___Arguments i_i(scii(,a.LT. ilta,il,h! INE__,i#!lid!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii(E__ ,). n,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,). 4,BOIe)0=ddddddddddddddddd :: t0_rotopoidNSION(:) topologKId). ifiOi(fed Fgeddddddd4,BOIe)0=dddddddddddddddd :: t0_rom==fidNSION(:) to LE_PRECm==fV ==f 0MOD SCA SION(:ddddddd D ,d,MPI tialise r========_roupNSION(:) pff 0KIwe !! iconepl h FA ,). youpocen d ==f 0 2DdSION(:ddddddd D , , :: t0 :: t0=_rofield_upscii_i(s 3DdSION(:ddddddd D , , , :t0 :: t0=_rofield_upsc!FormatE _riwafield!dd h FA ,). youpocen dcii_i(sMOD VEC ddddd4,BOIe)0=dddddddddddddddd0 :: t0=_roldarmatE _riwaleas!di,).ll((LE_upNSION(:ddddddd D , )dddddd0 alise r========_roupNSION(:) pff 0KIwe !! iconepl h FA ,). youpocen d ==f 0 2DdSION(:ddddddd D , , , :t0 :: t0=_rofield_upscii_i(s 3DdSION(:ddddddd D , , , , )d :: t0=_rofield_upsc!FormatE _riwafield!dd h FA ,). youpocen dc!FormatE _ddddddd , )dddddd0 :: t0_roxpNSION(:) pff 0KIposinl(!dd).: a.LT.i : t0=dddd0 :: t0_roghostsizeNSION(:) ghost sizeNSION(:4,BOIe)0=dddddddddddddddd should,beconvertereback befors.up-yend! ERp,vp,). De-s kVL,).L,). ,). nd,MPI_IN ,d,MPINT(IN ) :: scii(dddddddddd De-s)0=dddddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). nd___Wdio_e-s kVL,).L,).d!dd , )dddddtialise r=d eied FA-sedd!dd )dddddd0 alise r= kVL ied edied2rmatE _ddddddd )dddddd0 alise r= kVmin_phys,max_physrmatE _ddddddd . 0)dim De-s kVL kVdxi,dxrmatE _ddddddd . 0)dim De-s kVL kVlen_physrmatE _ddddddd OIe)0=dddddddddddddddds kVL kVx1,x2,x3,epsilon ddddd4,BOIe)0=dddddddddddddddd0s kVL kVkern#!_suppoFA-sedd!dd . 0)dim+2)d0s kVL kVldu,ldl-sedd!dd . 0)dim)ddd0s kVL kVNc ddddd4,BOIe)0=dddddddddddddddd0s kVL kVi,j,k,ii,jj,kk,iidec,maptype ddddd4,BOIe)0=dddddddddddddddd0s kVL kVjjdec,nbOIe),npff ,ip FA-sedd!OIe)0=dddddddddddddddd0s kVL kVkkdec,ip1,nbpt_z,n ied ddddd4,BOIe)0=dddddddddddddddd0s kVL kVip2,ip3,nbpt_x,nbpt_y,iface ddddd4,BOIe)0=dddddddddddddddd0s kVL kViIe),idd,ito,ip,dimd_ ,iIe)l ddddd4,BOIe)0=dddddddddddddddd0s kVL kVmax_p FAcrruii,id,n ied2,idl-sedd!dd . 0)dim)ddd0s kVL kVNm ddddd4,BOIe)0=dddddddddddddddd0s kVL kVnIe)0-sedd!dd 6 OIe)0=dddddddddd kVbcdefVL,).L,4,BOIe)0=dddddddddddddddd0s kVL kViqVL,).L,L,). ,). ndREAL(MK) kVL kVin. 0)j)_we !! i,loIPLICIT N alinrmatE _dddddmk , )ECISIIIalise r= kVmin_Ie),Vmax_Ie)rmatE _dddddmk ndREAL(MK) kVL kVmyepsrmatE _dddddmk ndREAL(MK) kVL kVtim1s,Vtim1ermatE _dddddmk ndREAL(MK) kVL kVxp1,xp2,xp3rmatE _dddddmk ndREAL(MK) kVL kVwx1,wx2,wx3rmatE _dddddmk dd . 0)dim)ddd0s kVL kVx).L,). ,4,BOIe)0=ddddddddddddd De-s kVL kVldn dddddTYPE . 0)t_equim==f) alise r========0_rom==f dddddTYPE . 0)t_topo)dddddtialise r========0_rotopoend SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTVddd De-s dddddlrbll ==),dll(4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s kVL,).L,). ,). ndUSE loc,mod ==f 0 2DdmatE _dddddmk kVx10,x11,x20,x21dmatE _dddddmk kVa10,a11,a20,a2 ddddd4,BOI kVip10,ip1 edp20,ip21dmatE _dddddmk kVa10a20dmatE _dddddmk kVa10a21dmatE _dddddmk kVa11a20dmatE _dddddmk kVa11a21dscii_i(s 3DdSION(:dddddmk kVx10,x11,x12,x13,x20,x21,x22,x23,x30,x31,x32,x33rmatE _dddddmk kVa10,a11,a12,a13,a20,a2 ,a22,a23,a30,a31,a32,a33rmatE _4,BOI kVip10,ip1 edp12,ip13,dp20,ip21,ip22,ip23,dp30,ip31,ip32,ip33rmatE _dddddmk kVa10a20a30rmatE _dddddmk kVa10a20a31dmatE _dddddmk kVa10a20a32dmatE _dddddmk kVa10a20a33rmatE _dddddmk kVa10a21a30rmatE _dddddmk kVa10a21a31dmatE _dddddmk kVa10a21a32dmatE _dddddmk kVa10a21a33rmatE _dddddmk kVa10a22a30rmatE _dddddmk kVa10a22a31dmatE _dddddmk kVa10a22a32dmatE _dddddmk kVa10a22a33rmatE _dddddmk kVa10a23a30rmatE _dddddmk kVa10a23a31dmatE _dddddmk kVa10a23a32dmatE _dddddmk kVa10a23a33rmatE _dddddmk kVa11a20a30rmatE _dddddmk kVa11a20a31dmatE _dddddmk kVa11a20a32dmatE _dddddmk kVa11a20a33rmatE _dddddmk kVa11a21a30rmatE _dddddmk kVa11a21a31dmatE _dddddmk kVa11a21a32dmatE _dddddmk kVa11a21a33rmatE _dddddmk kVa11a22a30rmatE _dddddmk kVa11a22a31dmatE _dddddmk kVa11a22a32dmatE _dddddmk kVa11a22a33rmatE _dddddmk kVa11a23a30rmatE _dddddmk kVa11a23a31dmatE _dddddmk kVa11a23a32dmatE _dddddmk kVa11a23a33rmatE _dddddmk kVa12a20a30rmatE _dddddmk kVa12a20a31dmatE _dddddmk kVa12a20a32dmatE _dddddmk kVa12a20a33rmatE _dddddmk kVa12a21a30rmatE _dddddmk kVa12a21a31dmatE _dddddmk kVa12a21a32dmatE _dddddmk kVa12a21a33rmatE _dddddmk kVa12a22a30rmatE _dddddmk kVa12a22a31dmatE _dddddmk kVa12a22a32dmatE _dddddmk kVa12a22a33rmatE _dddddmk kVa12a23a30rmatE _dddddmk kVa12a23a31dmatE _dddddmk kVa12a23a32dmatE _dddddmk kVa12a23a33rmatE _dddddmk kVa13a20a30rmatE _dddddmk kVa13a20a31dmatE _dddddmk kVa13a20a32dmatE _dddddmk kVa13a20a33rmatE _dddddmk kVa13a21a30rmatE _dddddmk kVa13a21a31dmatE _dddddmk kVa13a21a32dmatE _dddddmk kVa13a21a33rmatE _dddddmk kVa13a22a30rmatE _dddddmk kVa13a22a31dmatE _dddddmk kVa13a22a32dmatE _dddddmk kVa13a22a33rmatE _dddddmk kVa13a23a30rmatE _dddddmk kVa13a23a31dmatE _dddddmk kVa13a23a32dmatE _dddddmk kVa13a23a33rE__,infoend SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTr=___Conzerteto h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddd De-s kVL ERp,vp,). De-s m2p_ youp_bsp2___l,h! ) . 0)j)lStopo =>ddddtopo(topoid)%A-sedm==f =>dtopo%m==f(m==fid . 0)j)lSied FA =>dm==f%ied FA- p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INmin_phys =>dtopo%min_phys4,max_phys =>dtopo%max_physmin_phys =>dtopo%min_physd4,max_phys =>dtopo%max_physdscs_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INmyepsdddddmyepssmin_p,) =>dtopo%min_Ie)0-sedmax_Ie) =>dtopo%max_Ie)0-myepsdddddmyepsdmin_p,) =>dtopo%min_Ie)d-sedmax_Ie) =>dtopo%max_Ie)dsc-seddxidd1.0_mk/dx-sed ! o r=Ie) = 1,topo%nIe) ieds_wdi 0 2DdmatE _teto h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddmatE _teto h dddd2DiddddmatE _teto h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddds_wdi 0MOD SCA SION(:0)j)lSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) d x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) d ip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1dd ip11p10I+ 1d ip21p20 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21dd a10a20INTa10*a20dmatE _ a10a21INTa10*a21dd a11a20INTa11*a20dmatE _ a11a21INTa11*a21dd up(iq)INTup(iq)I+Iddddddddddddd n a10a20*field_up(ip10,ip20,iIe))d up(iq)INTup(iq)I+Iddddddddddddd n a10a21*field_up(ip10,ip21,iIe))d up(iq)INTup(iq)I+Iddddddddddddd n a11a20*field_up(ip11,ip20,iIe))d up(iq)INTup(iq)I+Iddddddddddddd n a11a21*field_up(ip11,ip21,iIe))d o r h c! loopcov aipff 0KIsongarithcurrr=d ,e)domaindcii_i(sMOD VEC dddddddddddh!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddmatE _teto h Ulrbll ==),dll( dddd1-(((. Ls dddddddddddh!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddmatE _teto IF(ldaKKGO1d,__Icii(+.LE._VSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) d x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) d ip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1dd ip11p10I+ 1d ip21p20 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21dd a10a20INTa10*a20dmatE _ a10a21INTa10*a21dd a11a20INTa11*a20dmatE _ a11a21INTa11*a21dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20*field_up( edp10,ip20,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21*field_up( edp10,ip21,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20*field_up( edp11,ip20,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21*field_up( edp11,ip21,iIe))d o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaind h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd h Ulrbll ==),dll( dddd2-(((. Ls ddddddddddd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd tdoutN(ldaKKGO2d,__Icii(+.LE._VSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) d x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) d ip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1dd ip11p10I+ 1d ip21p20 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21dd a10a20INTa10*a20dmatE _ a10a21INTa10*a21dd a11a20INTa11*a20dmatE _ a11a21INTa11*a21dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20*field_up( edp10,ip20,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21*field_up( edp10,ip21,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20*field_up( edp11,ip20,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21*field_up( edp11,ip21,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20*field_up(2edp10,ip20,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21*field_up(2edp10,ip21,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20*field_up(2edp11,ip20,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21*field_up(2edp11,ip21,iIe))d o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaind h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd h Ulrbll ==),dll( dddd3-(((. Ls ddddddddddd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd tdoutN(ldaKKGO3d,__Icii(+.LE._VSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) d x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) d ip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1dd ip11p10I+ 1d ip21p20 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21dd a10a20INTa10*a20dmatE _ a10a21INTa10*a21dd a11a20INTa11*a20dmatE _ a11a21INTa11*a21dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20*field_up( edp10,ip20,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21*field_up( edp10,ip21,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20*field_up( edp11,ip20,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21*field_up( edp11,ip21,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20*field_up(2edp10,ip20,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21*field_up(2edp10,ip21,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20*field_up(2edp11,ip20,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21*field_up(2edp11,ip21,iIe))dd up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a20*field_up(3edp10,ip20,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a21*field_up(3edp10,ip21,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a20*field_up(3edp11,ip20,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a21*field_up(3edp11,ip21,iIe))d o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaind h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd h All oed!YldaOPEN(ECIsdlrbll =.EThsubinfo)(((. Lizecov ailda!d h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd dddddd De-s kVLLLLLLiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) d x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) d ip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1dd ip11p10I+ 1d ip21p20 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21dd a10a20INTa10*a20dmatE _ a10a21INTa10*a21dd a11a20INTa11*a20dmatE _ a11a21INTa11*a21dmatE _ o rldn=1,ldarmatE ________________up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a20*field_up(ldn,ip10,ip20,iIe))d ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a21*field_up(ldn,ip10,ip21,iIe))d ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a20*field_up(ldn,ip11,ip20,iIe))d ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a21*field_up(ldn,ip11,ip21,iIe))d o r h ldn ddddd o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaind LINE__,infscii_i(s 3DdSION(:::::::h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddmatE _teto h dddd3DiddddmatE _teto h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddds_wdii 0MOD SCA SION(:0)j)lSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d ip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1d ip30INT(NT(x0(3.) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk d xp3x0(3.-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20d a30INT1.0_mkI-dx30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31dd a10a20a30INTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dd a10a21a30INTa10*a21*a30rmatE _ a10a21a31INTa10*a21*a31dd a11a20a30INTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dd a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dd up(iq)INTup(iq)I+Iddddddddddddd n a10a20a30*field_up(ip10,ip20,ip30,iIe))d up(iq)INTup(iq)I+Iddddddddddddd n a10a20a31*field_up(ip10,ip20,ip31,iIe))dd up(iq)INTup(iq)I+Iddddddddddddd n a10a21a30*field_up(ip10,ip21,ip30,iIe))d up(iq)INTup(iq)I+Iddddddddddddd n a10a21a31*field_up(ip10,ip21,ip31,iIe))dd up(iq)INTup(iq)I+Iddddddddddddd n a11a20a30*field_up(ip11,ip20,ip30,iIe))d up(iq)INTup(iq)I+Iddddddddddddd n a11a20a31*field_up(ip11,ip20,ip31,iIe))dd up(iq)INTup(iq)I+Iddddddddddddd n a11a21a30*field_up(ip11,ip21,ip30,iIe))d up(iq)INTup(iq)I+Iddddddddddddd n a11a21a31*field_up(ip11,ip21,ip31,iIe))dn o r h iqdcii_i(sMOD VEC dddddddddddh!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddmatE _teto h Ulrbll ==),dll( dddd1-(((. Ls dddddddddddh!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddmatE _teto IF(ldaKKGO1d,__Icii(+.LE._VSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d ip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1d ip30INT(NT(x0(3.) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk d xp3x0(3.-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20d a30INT1.0_mkI-dx30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31dd a10a20a30INTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dd a10a21a30INTa10*a21*a30rmatE _ a10a21a31INTa10*a21*a31dd a11a20a30INTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dd a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a30*field_up( edp10,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a31*field_up( edp10,ip20,ip31,iIe))dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a30*field_up( edp10,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a31*field_up( edp10,ip21,ip31,iIe))dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a30*field_up( edp11,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a31*field_up( edp11,ip20,ip31,iIe))dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a30*field_up( edp11,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a31*field_up( edp11,ip21,ip31,iIe))dn o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaind h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd h Ulrbll ==),dll( dddd2-(((. Ls ddddddddddd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd tdoutN(ldaKKGO2d,__Icii(+.LE._VSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d ip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1d ip30INT(NT(x0(3.) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk d xp3x0(3.-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20d a30INT1.0_mkI-dx30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31dd a10a20a30INTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dd a10a21a30INTa10*a21*a30rmatE _ a10a21a31INTa10*a21*a31dd a11a20a30INTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dd a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a30*field_up( edp10,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a31*field_up( edp10,ip20,ip31,iIe))dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a30*field_up( edp10,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a31*field_up( edp10,ip21,ip31,iIe))dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a30*field_up( edp11,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a31*field_up( edp11,ip20,ip31,iIe))dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a30*field_up( edp11,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a31*field_up( edp11,ip21,ip31,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a30*field_up(2edp10,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a31*field_up(2edp10,ip20,ip31,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a30*field_up(2edp10,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a31*field_up(2edp10,ip21,ip31,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a30*field_up(2edp11,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a31*field_up(2edp11,ip20,ip31,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a30*field_up(2edp11,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a31*field_up(2edp11,ip21,ip31,iIe))dn o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaind h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd h Ulrbll ==),dll( dddd3-(((. Ls ddddddddddd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd tdoutN(ldaKKGO3d,__Icii(+.LE._VSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d VSiq = ied_Ie)(iIe),ip) x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d ip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1d ip30INT(NT(x0(3.) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk d xp3x0(3.-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20d a30INT1.0_mkI-dx30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31dd a10a20a30INTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dd a10a21a30INTa10*a21*a30rmatE _ a10a21a31INTa10*a21*a31dd a11a20a30INTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dd a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a30*field_up( edp10,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a31*field_up( edp10,ip20,ip31,iIe))dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a30*field_up( edp10,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a31*field_up( edp10,ip21,ip31,iIe))dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a30*field_up( edp11,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a31*field_up( edp11,ip20,ip31,iIe))dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a30*field_up( edp11,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a31*field_up( edp11,ip21,ip31,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a30*field_up(2edp10,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a31*field_up(2edp10,ip20,ip31,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a30*field_up(2edp10,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a31*field_up(2edp10,ip21,ip31,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a30*field_up(2edp11,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a31*field_up(2edp11,ip20,ip31,iIe))dd up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a30*field_up(2edp11,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a31*field_up(2edp11,ip21,ip31,iIe))dd up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a20a30*field_up(3edp10,ip20,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a20a31*field_up(3edp10,ip20,ip31,iIe))dd up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a21a30*field_up(3edp10,ip21,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a21a31*field_up(3edp10,ip21,ip31,iIe))dd up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a20a30*field_up(3edp11,ip20,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a20a31*field_up(3edp11,ip20,ip31,iIe))dd up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a21a30*field_up(3edp11,ip21,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a21a31*field_up(3edp11,ip21,ip31,iIe))dn o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaindd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd h All oed!YldaOPEN(ECIsdlrbll =.EThsubinfo)(((. Lizecov ailda!d h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddd dddddd De-s kVLLLLLLiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d VSiq = ied_Ie)(iIe),ip) x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d VSip10INT(NT(x0(1.) + 1d ip20INT(NT(x0(2.) + 1d ip30INT(NT(x0(3.) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd xp1x0(1.-dddddp10-1,mk d xp2x0(2.-dddddp20-1,mk d xp3x0(3.-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10INT1.0_mkI-dx10d a20INT1.0_mkI-dx20d a30INT1.0_mkI-dx30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31dd a10a20a30INTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dd a10a21a30INTa10*a21*a30rmatE _ a10a21a31INTa10*a21*a31dd a11a20a30INTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dd a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dd o rldn=1,ldarmatE ________________up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a20a30*field_up(ldn,ip10,ip20,ip30,iIe))d ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a20a31*field_up(ldn,ip10,ip20,ip31,iIe))dd ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a21a30*field_up(ldn,ip10,ip21,ip30,iIe))d ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a21a31*field_up(ldn,ip10,ip21,ip31,iIe))dd ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a20a30*field_up(ldn,ip11,ip20,ip30,iIe))d ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a20a31*field_up(ldn,ip11,ip20,ip31,iIe))dd ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a21a30*field_up(ldn,ip11,ip21,ip30,iIe))d ___up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a21a31*field_up(ldn,ip11,ip21,ip31,iIe))dn o r h ldn ddddd o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaind LI h ldasdlrbllNE__,infsc!FormatE _o rh iIe)foend ERp,vp,). ops m2p_ youp_bsp2___l,h! ) .nd RETURNod ==f 0 2Dds_wdii 0MOD SCA s_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INSUBROUTINE m2p_ youp_bsp2_ss_2d-SUBROUTINE m2p_ youp_bsp2_ds_2d-_,infscii_i(sMOD VEC s_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INSUBROUTINE m2p_ youp_bsp2_sv_2d-SUBROUTINE m2p_ youp_bsp2_dv_2d-_,infsc_,infscii_i(s 3Dds_wdii 0MOD SCA s_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INSUBROUTINE m2p_ youp_bsp2_ss_3d-SUBROUTINE m2p_ youp_bsp2_ds_3d-_,infscii_i(sMOD VEC s_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INSUBROUTINE m2p_ youp_bsp2_sv_3d-SUBROUTINE m2p_ youp_bsp2_dv_3d-_,infsc_,infsc_,inflibppm-1.2/src/ youpolate/m2p_ youp_mp4.f000644 000765 000024 00000277574 11445666061 021122 0ued F00omared ff000000 000000 SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUTTTTSubroutineTTT: n m2p_ youp_mp4 SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUCopyr !! (c) 2010ICSE Lab (ETH Zuricf) MOSAIC Lab (ETH Zuricf) SUBROUTTTTTTTTTTTTTTTTTTTCe you ddddFluid Dynamics (DTU .nd !.nd !.nd !EThsubfile iIipff ofarithParallelhPar 0KI M==f Library (PPM)..nd !.nd !EPPM iIifree software: you can redistribute it and/dddmo,iny.nd !EiIsdldou rithyoums ofarithGNU Lessou General Pe) ic License SUBROUaIipe) iehed byarithFree Software Fodldation, eied!Y SUBROU),dll( 3 ofarithLicense, ddd(at your option) any lateY SUBROU),dll(..nd !.nd !EPPM iIidistributedongarithhopthyhat iIsinfo)be useful,.nd !Ebut WITHOUT ANY WARRANTY;sinthout evegarithimpliedowarranty of.nd !EMERCHANTABILITY dddFITNESS FOR A PARTICULAR PURPOSE. Sethyherteto hhGNU General Pe) ic License fdddmore details..nd !.nd !EYou should have receivedoa copy ofarithGNU General Pe) ic License SUBROUa! rithGNU Lessou General Pe) ic License alongsinthEPPM. If(ECI,.nd !Eseth..nd !.nd !EParallelhPar 0KI M==f Library (PPM).nd !EETH Zuricf SUBROUCH-8092 Zuricf, Sintzerla! SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yendd ==f 0 2Dds_wdii 0MOD SCA s_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INSUBROUTINE m2p_ youp_mp4_ss_2d(topoid,m==fid,field_up,xp,up,dx,ghostsize,h! ) .SUBROUTINE m2p_ youp_mp4_ds_2d(topoid,m==fid,field_up,xp,up,dx,ghostsize,h! ) ._,infscii_i(sMOD VEC s_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INSUBROUTINE m2p_ youp_mp4_sv_2d(topoid,m==fid,field_up,lda,xp,up,dx,ghostsize,h! ) .SUBROUTINE m2p_ youp_mp4_dv_2d(topoid,m==fid,field_up,lda,xp,up,dx,ghostsize,h! ) ._,infsc_,infscii_i(s 3Dds_wdii 0MOD SCA s_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INSUBROUTINE m2p_ youp_mp4_ss_3d(topoid,m==fid,field_up,xp,up,dx,ghostsize,h! ) .SUBROUTINE m2p_ youp_mp4_ds_3d(topoid,m==fid,field_up,xp,up,dx,ghostsize,h! ) ._,infscii_i(sMOD VEC s_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INSUBROUTINE m2p_ youp_mp4_sv_3d(topoid,m==fid,field_up,lda,xp,up,dx,ghostsize,h! ) .SUBROUTINE m2p_ youp_mp4_dv_3d(topoid,m==fid,field_up,lda,xp,up,dx,ghostsize,h! ) ._,infsc_,infsc_,infS!! M==f toipff 0KI youpolatl( ddllowingsrithM'4 scheme.fS!!fS!! Th youpolatl( scheme iIionlyhimplementedodddd2DUa! 3D spaces. TofS!! increase perdddmancearithinn ailoopscov airithnumb aiofaproptf 0es tofS!! b youpolatedoare dlrbll =odddd2,3,4Ua! 5-(((. Ls.fS!! fS!! [NOTE]fS!! ThiIiroutineTonlyhperdddmsirithactual youpolatl(. It should ECIsbefS!! call =odirectlyhfromiroutinesEbut instea rith`ddd youp_m2p`fS!! routineTshould be usedsinthErithkernelhargumr=d ,et toifS!! `dddpffam_dmsh_kernel_mp4`.foend USE dddmodule_errorend USE dddmodule_allocend USE dddmodule_s,). De-end USE dddmodule_s,). opend USE dddmodule_dataend USE dddmodule_data_dmshend USE dddmodule_data_m==fend USE dddmodule_typedefend USE dddmodule_write SUBRIMPLICIT NONE- p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! ININTEGER, PARAMETER kVMK dddddkind_single.INTEGER, PARAMETER kVMK dddddkind_doe) efsc!FormatE _SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBROUArgumr=dsrmatE _SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBRINTEGER ,RINTENT(IN kVtopoidrmatE _S!! topologyhidr=difieaiofa Deget SUBRINTEGER ,RINTENT(IN kVm==fidrmatE _S!! id ofarithm==f (user)ds_wdii 0MOD SCA SION(:dddddMK) ,R N(:) ,RPOINTER kVuprmatE _S!! pff 0KI we !! Iiontoiwhicf toi youpolated ==f 0 2DdSION(:dddddMK) ,R N(:,:,: ,RINTENT(IN kVfield_upfscii_i(s 3DdSION(:dddddMK) ,R N(:,:,:,: ,RINTENT(IN kVfield_upfsc!FormatE _S!! fieldhfromiwhicf toi youpolatedcii_i(sMOD VEC dddddINTEGER ,RINTENT(IN kVldarmatE _S!! leaingsdimr=ll( ofauprmatE _dddddMK) ,R N(:,:) ,RPOINTER kVuprmatE _S!! pff 0KI we !! Iiontoiwhicf toi youpolated ==f 0 2DdSION(:dddddMK) ,R N(:,:,:,: ,RINTENT(IN kVfield_upfscii_i(s 3DdSION(:dddddMK) ,R N(:,:,:,:,:) ,RINTENT(IN kVfield_upfsc!FormatE _S!! fieldhfromiwhicf toi youpolatedc!FormatE _dddddMK),R N(:,:) ,RINTENT(IN kVxprmatE _S!! pff 0KI positl(s dddddINTEGER ,R N(: ,RINTENT(IN kVghostsizermatE _S!! ghost sizermatE _INTEGER ,RINTENT( OUT kVh! )rmatE _S!! Returns 0Vup( successrmatE _SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBR! Local varia) esrmatE _SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBRINTEGER, R N(:,:) ,RPOINTER kVh. De-end INTEGER, R N(:) ,RPOINTER kVh ied1,h ied2rmatE _dddddMK),R N(:) ,RPOINTER kVmin_phys,max_physrmatE _dddddMK),RR N(ddddim) kVdxi,dxrmatE _dddddMK),RR N(ddddim) kVlen_physrmatE _dddddMK) kVx1,x2,x3,epsilon dddddINTEGER kVkernel_suppoe-end INTEGER, R N(ddddim+2) kVldu,ldlend INTEGER, R N(ddddim) kVNc dddddINTEGER kVi,j,k,ii,jj,kk,iidec,maptype dddddINTEGER kVjjdec,nb_s,),npff ,ipDe-end INTEGER kVkkdec,ip1,nbpt_z,n ied1 dddddINTEGER kVip2edp3,nbpt_x,nbpt_y,iface dddddINTEGER kViIe),ifrom,itoedp,dim,iopt,iIe) dddddINTEGER kVmax_pDe-numb a,idom,n ied2,idomlend INTEGER, N(ddddim) kVNm dddddINTEGER kVns,).end INTEGER, N(6) kVbcdefend INTEGER kViqend LOGICAL kVi younal_we !! I,lok SUBROUaliasesrmatE _dddddmk),R N(:,:),matE _POINTER kVmin_Ie),Vmax_Ie)fmatE _dddddmk) kVmyepsfmatE _dddddmk) kVtim1s,Vtim1efmatE _dddddmk) kVxp1,xp2exp3d dddddmk) kVwx1,wx2,wx3end INTEGER kVldn ddddddddddmk),R N(ddddim) kVx0rmatE _TYPE(dddt_equi_m==f),RPOINTER kVm==frmatE _TYPE(dddt_topo) ,RPOINTER kVtopormatE _SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBR! Varia) esoddddulrbll ==),dll(srmatE _SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yendd ==f 0 2Dd dddddmk) kVa10a20d dddddmk) kVa10a21d dddddmk) kVa11a20d dddddmk) kVa11a21fscii_i(s 3DdSION(:dddddmk) kVx10,x11,x12ex13,x20,x21,x22ex23,x30,x31,x32,x33d dddddmk) kVa10,a11,a12,a13,a20,a21,a22ea23,a30,a31,a32,a33end INTEGER kVip10,ip11,ip12edp13,ip20,ip21,ip22edp23,ip30,ip31,ip32edp33d dddddmk) kVa10a20a30d dddddmk) kVa10a20a31d dddddmk) kVa10a20a32d dddddmk) kVa10a20a33d dddddmk) kVa10a21a30d dddddmk) kVa10a21a31d dddddmk) kVa10a21a32d dddddmk) kVa10a21a33d dddddmk) kVa10a22a30d dddddmk) kVa10a22a31d dddddmk) kVa10a22a32d dddddmk) kVa10a22a33d dddddmk) kVa10a23a30d dddddmk) kVa10a23a31d dddddmk) kVa10a23a32d dddddmk) kVa10a23a33d dddddmk) kVa11a20a30d dddddmk) kVa11a20a31d dddddmk) kVa11a20a32d dddddmk) kVa11a20a33d dddddmk) kVa11a21a30d dddddmk) kVa11a21a31d dddddmk) kVa11a21a32d dddddmk) kVa11a21a33d dddddmk) kVa11a22a30d dddddmk) kVa11a22a31d dddddmk) kVa11a22a32d dddddmk) kVa11a22a33d dddddmk) kVa11a23a30d dddddmk) kVa11a23a31d dddddmk) kVa11a23a32d dddddmk) kVa11a23a33d dddddmk) kVa12a20a30d dddddmk) kVa12a20a31d dddddmk) kVa12a20a32d dddddmk) kVa12a20a33d dddddmk) kVa12a21a30d dddddmk) kVa12a21a31d dddddmk) kVa12a21a32d dddddmk) kVa12a21a33d dddddmk) kVa12a22a30d dddddmk) kVa12a22a31d dddddmk) kVa12a22a32d dddddmk) kVa12a22a33d dddddmk) kVa12a23a30d dddddmk) kVa12a23a31d dddddmk) kVa12a23a32d dddddmk) kVa12a23a33d dddddmk) kVa13a20a30d dddddmk) kVa13a20a31d dddddmk) kVa13a20a32d dddddmk) kVa13a20a33d dddddmk) kVa13a21a30d dddddmk) kVa13a21a31d dddddmk) kVa13a21a32d dddddmk) kVa13a21a33d dddddmk) kVa13a22a30d dddddmk) kVa13a22a31d dddddmk) kVa13a22a32d dddddmk) kVa13a22a33d dddddmk) kVa13a23a30d dddddmk) kVa13a23a31d dddddmk) kVa13a23a32d dddddmk) kVa13a23a33dc!ForrmatE _SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBR! InitializermatE _SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEX-yend SUBRERp,vp,). De-s m2p_ youp_mp4___l,h! ) . SUBRtopo =>ddddtopo(topoid)%-end m==f =>dtopo%m==f(m==fid . SUBRh. De- =>dm==f%h. De-e p_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INmin_phys =>dtopo%min_physsrmatE _max_phys =>dtopo%max_physs.min_phys =>dtopo%min_physdrmatE _max_phys =>dtopo%max_physd-_,infs_wdio_ascii_dc(scii(,a.LT. ilta,il,h! INmyeps dddddmyepssmin_p,) =>dtopo%min_s,).end max_Ie) =>dtopo%max_s,).emyeps dddddmyepsdmin_p,) =>dtopo%min_s,)dend max_Ie) =>dtopo%max_s,)d-_,inf. SUBRdxiINT1.0_mk/dxdd ! loopcov ais,).end ! o r=Ie) = 1,topo%nIe) iedfs_wd 0 2Dd matE _SUBROUTINE p_readbin_di#!liff 0KI ==f 0SINGLE_PRECISION_COMPLEXd matE _S dddd2DiddddmatE _teto h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddds_wd 0MOD SCA SION(:0)j)lSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) x0(1. 1d(xp(1,iq)-min_phys(1.)*dxi(1)d x0(2. 1d(xp(2,iq)-min_phys(2))*dxi(2) d ip1(NT(x0(1.)+2-h. De-(1,iIe) )d ip2INT(NT(x0(2.)+2-h. De-(2,iIe) )dd xp1x0(1.-A(NT(x0(1.)d xp2x0(2.-A(NT(x0(2.)dd o rjj-1,2d x2ABS(xp2- dddddjj,mk )dn IF(x2.LT.1.0_mkd,__Icii(+.LE._VSSSSSSSwx21.0_mkI-dx2**2*(2.5_mk-1.5_mk*x2) dddddd De-s kVLLLLLLSSSSSSwx22.0_mkI+ (-4.0_mkI+ ddddddddddddd n (2.5_mkI-d0.5_mkI*dx2)*x2)*x2 dLIN o r=i =I-d1,2d x1ABS(xp1- dddddii,mk )dn IF(x1.LT.1.0_MK) __Icii(+.LE._VSSSSSSSSSSwx1T1.0_mkI-dx1**2*(2.5_mkI-dddddddddddddd n T1.5_mk*x1)d dddddd De-s kVLLLLLLSSSSSSSSSwx1T2.0_mkI+ (-4.0_mkI+ ddddddddddddd n (2.5_mkI-d0.5_mk*x1)*x1)*x1d dLIN up(iq)INTup(iq)I+Iwx1*wx2*field_up(ii+ip1,jj+ip2edIe))dn o dn o dn o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaindcii_i(sMOD VEC dddddddddddhEThsubinfo)onlyh(((. Lizecov ailda SION(:0)j)lSiee) = topo%iIe) ied(iIe))dSION(:0)j)lSo r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) x0(1. 1d(xp(1,iq)-min_phys(1.)*dxi(1)d x0(2. 1d(xp(2,iq)-min_phys(2))*dxi(2) d ip1(NT(x0(1.)+2-h. De-(1,iIe) )d ip2INT(NT(x0(2.)+2-h. De-(2,iIe) )dd xp1x0(1.-A(NT(x0(1.)d xp2x0(2.-A(NT(x0(2.)dd o rjj-1,2d x2ABS(xp2- dddddjj,mk )dn IF(x2.LT.1.0_mkd,__Icii(+.LE._VSSSSSSSwx21.0_mkI-dx2**2*(2.5_mk-1.5_mk*x2) dddddd De-s kVLLLLLLSSSSSSwx22.0_mkI+ (-4.0_mkI+ ddddddddddddd n (2.5_mkI-d0.5_mkI*dx2)*x2)*x2 dLIN o r=i =I-d1,2d x1ABS(xp1- dddddii,mk )d IF(x1.LT.1.0_MK) __Icii(+.LE._VSSSSSSSSSSwx1T1.0_mkI-dx1**2*(2.5_mkI-dddddddddddddd n T1.5_mk*x1)d dddddd De-s kVLLLLLLSSSSSSSSSwx1T2.0_mkI+ (-4.0_mkI+ ddddddddddddd n (2.5_mkI-d0.5_mk*x1)*x1)*x1d dLIN o rldn=1,ldarmatE ________________ __up(ldn,iq)INTup(ldn,iq)I+Iwx1*wx2*dddddddddddddddddd n field_up(ldn,ii+ip1,jj+ip2edIe))dn o dn o dn o dn o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaindc_,infscii_i(s 3DdSION(:::::::h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddmatE _teto h dddd3DiddddmatE _teto h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddds_wdii 0MOD SCA SION(:0)j)lSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! o r=p = 1,store_h! )(iIe))d iq = ied_Ie)(iIe),ip) x0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d ip10INT(NT(x0(1.)d ip20INT(NT(x0(2.)d ip30INT(NT(x0(3.)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd ip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd ip13p11I+ 2d dp23p21I+ 2d dp33p31 + 2dd xp1x0(1.-dddddp10,mk d xp2x0(2.-dddddp20,mk d xp3x0(3.-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33dd a10a20a30INTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rmatE _ a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rmatE _ a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rmatE _ a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30INTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rmatE _ a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rmatE _ a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30INTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE _ a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rmatE _ a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rmatE _ a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30INTa13*a20*a30rmatE _ a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rmatE _ a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rmatE _ a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dd up(iq)INTup(iq)I+Idddddddddddddd n a10a20a30*field_up(ip10,ip20,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a10a20a31*field_up(ip10,ip20,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a20a32*field_up(ip10,ip20,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a20a33*field_up(ip10,ip20,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a21a30*field_up(ip10,ip21,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a10a21a31*field_up(ip10,ip21,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a21a32*field_up(ip10,ip21,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a21a33*field_up(ip10,ip21,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a22a30*field_up(ip10,ip22,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a10a22a31*field_up(ip10,ip22,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a22a32*field_up(ip10,ip22,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a22a33*field_up(ip10,ip22,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a23a30*field_up(ip10,ip23,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a10a23a31*field_up(ip10,ip23,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a23a32*field_up(ip10,ip23,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a10a23a33*field_up(ip10,ip23,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a20a30*field_up(ip11,ip20,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a11a20a31*field_up(ip11,ip20,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a20a32*field_up(ip11,ip20,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a20a33*field_up(ip11,ip20,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a21a30*field_up(ip11,ip21,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a11a21a31*field_up(ip11,ip21,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a21a32*field_up(ip11,ip21,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a21a33*field_up(ip11,ip21,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a22a30*field_up(ip11,ip22,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a11a22a31*field_up(ip11,ip22,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a22a32*field_up(ip11,ip22,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a22a33*field_up(ip11,ip22,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a23a30*field_up(ip11,ip23,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a11a23a31*field_up(ip11,ip23,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a23a32*field_up(ip11,ip23,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a11a23a33*field_up(ip11,ip23,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a20a30*field_up(ip12,ip20,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a12a20a31*field_up(ip12,ip20,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a20a32*field_up(ip12,ip20,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a20a33*field_up(ip12,ip20,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a21a30*field_up(ip12,ip21,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a12a21a31*field_up(ip12,ip21,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a21a32*field_up(ip12,ip21,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a21a33*field_up(ip12,ip21,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a22a30*field_up(ip12,ip22,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a12a22a31*field_up(ip12,ip22,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a22a32*field_up(ip12,ip22,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a22a33*field_up(ip12,ip22,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a23a30*field_up(ip12,ip23,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a12a23a31*field_up(ip12,ip23,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a23a32*field_up(ip12,ip23,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a12a23a33*field_up(ip12,ip23,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a20a30*field_up(ip13,ip20,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a13a20a31*field_up(ip13,ip20,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a20a32*field_up(ip13,ip20,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a20a33*field_up(ip13,ip20,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a21a30*field_up(ip13,ip21,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a13a21a31*field_up(ip13,ip21,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a21a32*field_up(ip13,ip21,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a21a33*field_up(ip13,ip21,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a22a30*field_up(ip13,ip22,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a13a22a31*field_up(ip13,ip22,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a22a32*field_up(ip13,ip22,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a22a33*field_up(ip13,ip22,ip33edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a23a30*field_up(ip13,ip23,ip30,iIe))d up(iq)INTup(iq)I+Idddddddddddddd n a13a23a31*field_up(ip13,ip23,ip31,iIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a23a32*field_up(ip13,ip23,ip32edIe))dn up(iq)INTup(iq)I+Idddddddddddddd n a13a23a33*field_up(ip13,ip23,ip33edIe))dn o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaindcii_i(sMOD VEC dddddddddddh!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddddddddddh Ulrbll ==),dll(odddd1-(((. Ls dddddddddddh!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddddddddddIF(lda.EQ.1) __Icii(+.LE._VSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d VSiq = ied_Ie)(iIe),ip) d VSx0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d VSip10INT(NT(x0(1.)d VSip20INT(NT(x0(2.)d ip30INT(NT(x0(3.)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd ip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd ip13p11I+ 2d dp23p21I+ 2d dp33p31 + 2dd xp1x0(1.-dddddp10,mk d xp2x0(2.-dddddp20,mk d xp3x0(3.-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33dd a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rmatE _ a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rmatE _ a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rmatE _ a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rmatE _ a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rmatE _ a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30 NTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE _ a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rmatE _ a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rmatE _ a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30 NTa13*a20*a30rmatE _ a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rmatE _ a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rmatE _ a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a30*field_up(1,ip10,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a31*field_up(1,ip10,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a32*field_up(1,ip10,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a33*field_up(1,ip10,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a30*field_up(1,ip10,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a31*field_up(1,ip10,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a32*field_up(1,ip10,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a33*field_up(1,ip10,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a30*field_up(1,ip10,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a31*field_up(1,ip10,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a32*field_up(1,ip10,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a33*field_up(1,ip10,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a30*field_up(1,ip10,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a31*field_up(1,ip10,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a32*field_up(1,ip10,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a33*field_up(1,ip10,ip23,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a30*field_up(1,ip11,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a31*field_up(1,ip11,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a32*field_up(1,ip11,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a33*field_up(1,ip11,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a30*field_up(1,ip11,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a31*field_up(1,ip11,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a32*field_up(1,ip11,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a33*field_up(1,ip11,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a30*field_up(1,ip11,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a31*field_up(1,ip11,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a32*field_up(1,ip11,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a33*field_up(1,ip11,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a30*field_up(1,ip11,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a31*field_up(1,ip11,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a32*field_up(1,ip11,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a33*field_up(1,ip11,ip23,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a30*field_up(1,ip12,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a31*field_up(1,ip12,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a32*field_up(1,ip12,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a33*field_up(1,ip12,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a30*field_up(1,ip12,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a31*field_up(1,ip12,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a32*field_up(1,ip12,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a33*field_up(1,ip12,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a30*field_up(1,ip12,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a31*field_up(1,ip12,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a32*field_up(1,ip12,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a33*field_up(1,ip12,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a30*field_up(1,ip12,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a31*field_up(1,ip12,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a32*field_up(1,ip12,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a33*field_up(1,ip12,ip23,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a30*field_up(1,ip13,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a31*field_up(1,ip13,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a32*field_up(1,ip13,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a33*field_up(1,ip13,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a30*field_up(1,ip13,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a31*field_up(1,ip13,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a32*field_up(1,ip13,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a33*field_up(1,ip13,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a30*field_up(1,ip13,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a31*field_up(1,ip13,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a32*field_up(1,ip13,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a33*field_up(1,ip13,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a30*field_up(1,ip13,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a31*field_up(1,ip13,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a32*field_up(1,ip13,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a33*field_up(1,ip13,ip23,ip33edIe))ddn o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaindn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddn h Ulrbll ==),dll(odddd2-(((. Ls ddddddddddd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddn ddddIF(lda.EQ.2) __Icii(+.LE._VSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d VSiq = ied_Ie)(iIe),ip) d VSx0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d VSip10INT(NT(x0(1.)d VSip20INT(NT(x0(2.)d ip30INT(NT(x0(3.)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd ip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd ip13p11I+ 2d dp23p21I+ 2d dp33p31 + 2dd xp1x0(1.-dddddp10,mk d xp2x0(2.-dddddp20,mk d xp3x0(3.-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33dd a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rmatE _ a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rmatE _ a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d atE _ a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rmatE _ a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rmatE _ a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rmatE _ a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30 NTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE _ a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rmatE _ a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rmatE _ a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30 NTa13*a20*a30rma a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rmatE _ a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rmatE _ a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dd up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a30*field_up(1,ip10,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a31*field_up(1,ip10,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a32*field_up(1,ip10,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a33*field_up(1,ip10,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a30*field_up(1,ip10,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a31*field_up(1,ip10,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a32*field_up(1,ip10,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a33*field_up(1,ip10,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a30*field_up(1,ip10,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a31*field_up(1,ip10,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a32*field_up(1,ip10,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a33*field_up(1,ip10,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a30*field_up(1,ip10,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a31*field_up(1,ip10,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a32*field_up(1,ip10,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a33*field_up(1,ip10,ip23,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a30*field_up(1,ip11,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a31*field_up(1,ip11,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a32*field_up(1,ip11,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a33*field_up(1,ip11,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a30*field_up(1,ip11,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a31*field_up(1,ip11,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a32*field_up(1,ip11,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a33*field_up(1,ip11,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a30*field_up(1,ip11,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a31*field_up(1,ip11,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a32*field_up(1,ip11,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a33*field_up(1,ip11,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a30*field_up(1,ip11,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a31*field_up(1,ip11,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a32*field_up(1,ip11,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a33*field_up(1,ip11,ip23,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a30*field_up(1,ip12,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a31*field_up(1,ip12,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a32*field_up(1,ip12,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a33*field_up(1,ip12,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a30*field_up(1,ip12,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a31*field_up(1,ip12,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a32*field_up(1,ip12,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a33*field_up(1,ip12,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a30*field_up(1,ip12,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a31*field_up(1,ip12,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a32*field_up(1,ip12,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a33*field_up(1,ip12,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a30*field_up(1,ip12,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a31*field_up(1,ip12,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a32*field_up(1,ip12,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a33*field_up(1,ip12,ip23,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a30*field_up(1,ip13,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a31*field_up(1,ip13,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a32*field_up(1,ip13,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a33*field_up(1,ip13,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a30*field_up(1,ip13,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a31*field_up(1,ip13,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a32*field_up(1,ip13,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a33*field_up(1,ip13,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a30*field_up(1,ip13,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a31*field_up(1,ip13,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a32*field_up(1,ip13,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a33*field_up(1,ip13,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a30*field_up(1,ip13,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a31*field_up(1,ip13,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a32*field_up(1,ip13,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a33*field_up(1,ip13,ip23,ip33edIe))ddn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a30*field_up(2,ip10,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a31*field_up(2,ip10,ip20,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a32*field_up(2,ip10,ip20,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a33*field_up(2,ip10,ip20,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a30*field_up(2,ip10,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a31*field_up(2,ip10,ip21,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a32*field_up(2,ip10,ip21,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a33*field_up(2,ip10,ip21,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a22a30*field_up(2,ip10,ip22,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a22a31*field_up(2,ip10,ip22,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a22a32*field_up(2,ip10,ip22,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a22a33*field_up(2,ip10,ip22,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a23a30*field_up(2,ip10,ip23,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a23a31*field_up(2,ip10,ip23,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a23a32*field_up(2,ip10,ip23,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a23a33*field_up(2,ip10,ip23,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a30*field_up(2,ip11,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a31*field_up(2,ip11,ip20,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a32*field_up(2,ip11,ip20,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a33*field_up(2,ip11,ip20,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a30*field_up(2,ip11,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a31*field_up(2,ip11,ip21,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a32*field_up(2,ip11,ip21,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a33*field_up(2,ip11,ip21,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a22a30*field_up(2,ip11,ip22,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a22a31*field_up(2,ip11,ip22,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a22a32*field_up(2,ip11,ip22,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a22a33*field_up(2,ip11,ip22,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a23a30*field_up(2,ip11,ip23,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a23a31*field_up(2,ip11,ip23,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a23a32*field_up(2,ip11,ip23,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a23a33*field_up(2,ip11,ip23,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a20a30*field_up(2,ip12,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a20a31*field_up(2,ip12,ip20,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a20a32*field_up(2,ip12,ip20,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a20a33*field_up(2,ip12,ip20,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a21a30*field_up(2,ip12,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a21a31*field_up(2,ip12,ip21,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a21a32*field_up(2,ip12,ip21,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a21a33*field_up(2,ip12,ip21,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a22a30*field_up(2,ip12,ip22,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a22a31*field_up(2,ip12,ip22,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a22a32*field_up(2,ip12,ip22,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a22a33*field_up(2,ip12,ip22,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a23a30*field_up(2,ip12,ip23,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a23a31*field_up(2,ip12,ip23,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a23a32*field_up(2,ip12,ip23,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a23a33*field_up(2,ip12,ip23,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a20a30*field_up(2,ip13,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a20a31*field_up(2,ip13,ip20,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a20a32*field_up(2,ip13,ip20,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a20a33*field_up(2,ip13,ip20,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a21a30*field_up(2,ip13,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a21a31*field_up(2,ip13,ip21,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a21a32*field_up(2,ip13,ip21,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a21a33*field_up(2,ip13,ip21,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a22a30*field_up(2,ip13,ip22,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a22a31*field_up(2,ip13,ip22,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a22a32*field_up(2,ip13,ip22,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a22a33*field_up(2,ip13,ip22,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a23a30*field_up(2,ip13,ip23,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a23a31*field_up(2,ip13,ip23,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a23a32*field_up(2,ip13,ip23,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a23a33*field_up(2,ip13,ip23,ip33edIe))dddn o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaindn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddn h Ulrbll ==),dll(odddd3-(((. Ls ddddddddddd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddn ddddIF(lda.EQ.3) __Icii(+.LE._VSiee) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d VSiq = ied_Ie)(iIe),ip) d VSx0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d VSip10INT(NT(x0(1.)d VSip20INT(NT(x0(2.)d ip30INT(NT(x0(3.)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd ip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd ip13p11I+ 2d dp23p21I+ 2d dp33p31 + 2dd xp1x0(1.-dddddp10,mk d xp2x0(2.-dddddp20,mk d xp3x0(3.-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33dd a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rmatE _ a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rmatE _ a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d atE _ a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rmatE _ a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rmatE _ a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rmatE _ a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30 NTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE _ a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rmatE _ a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rmatE _ a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30 NTa13*a20*a30rma a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rmatE _ a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rmatE _ a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dddn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a30*field_up(1,ip10,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a31*field_up(1,ip10,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a32*field_up(1,ip10,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a20a33*field_up(1,ip10,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a30*field_up(1,ip10,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a31*field_up(1,ip10,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a32*field_up(1,ip10,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a21a33*field_up(1,ip10,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a30*field_up(1,ip10,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a31*field_up(1,ip10,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a32*field_up(1,ip10,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a22a33*field_up(1,ip10,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a30*field_up(1,ip10,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a31*field_up(1,ip10,ip23,ip31,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a32*field_up(1,ip10,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a10a23a33*field_up(1,ip10,ip23,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a30*field_up(1,ip11,ip20,ip30,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a31*field_up(1,ip11,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a32*field_up(1,ip11,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a20a33*field_up(1,ip11,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a30*field_up(1,ip11,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a31*field_up(1,ip11,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a32*field_up(1,ip11,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a21a33*field_up(1,ip11,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a30*field_up(1,ip11,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a31*field_up(1,ip11,ip22,ip31,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a32*field_up(1,ip11,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a22a33*field_up(1,ip11,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a30*field_up(1,ip11,ip23,ip30,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a31*field_up(1,ip11,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a32*field_up(1,ip11,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a11a23a33*field_up(1,ip11,ip23,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a30*field_up(1,ip12,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a31*field_up(1,ip12,ip20,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a32*field_up(1,ip12,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a20a33*field_up(1,ip12,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a30*field_up(1,ip12,ip21,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a31*field_up(1,ip12,ip21,ip31,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a32*field_up(1,ip12,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a21a33*field_up(1,ip12,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a30*field_up(1,ip12,ip22,ip30,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a31*field_up(1,ip12,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a32*field_up(1,ip12,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a22a33*field_up(1,ip12,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a30*field_up(1,ip12,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a31*field_up(1,ip12,ip23,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a32*field_up(1,ip12,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a12a23a33*field_up(1,ip12,ip23,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a30*field_up(1,ip13,ip20,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a31*field_up(1,ip13,ip20,ip31,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a32*field_up(1,ip13,ip20,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a20a33*field_up(1,ip13,ip20,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a30*field_up(1,ip13,ip21,ip30,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a31*field_up(1,ip13,ip21,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a32*field_up(1,ip13,ip21,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a21a33*field_up(1,ip13,ip21,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a30*field_up(1,ip13,ip22,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a31*field_up(1,ip13,ip22,ip31,iIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a32*field_up(1,ip13,ip22,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a22a33*field_up(1,ip13,ip22,ip33edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a30*field_up(1,ip13,ip23,ip30,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a31*field_up(1,ip13,ip23,ip31,iIe))d up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a32*field_up(1,ip13,ip23,ip32edIe))dn up(1,iq)INTup(1,iq)I+Iddddddddddddd n a13a23a33*field_up(1,ip13,ip23,ip33edIe))ddn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a30*field_up(2,ip10,ip20,ip30,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a31*field_up(2,ip10,ip20,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a32*field_up(2,ip10,ip20,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a20a33*field_up(2,ip10,ip20,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a30*field_up(2,ip10,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a31*field_up(2,ip10,ip21,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a32*field_up(2,ip10,ip21,ip32,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a21a33*field_up(2,ip10,ip21,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a22a30*field_up(2,ip10,ip22,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a22a31*field_up(2,ip10,ip22,ip31,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a22a32*field_up(2,ip10,ip22,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a22a33*field_up(2,ip10,ip22,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a23a30*field_up(2,ip10,ip23,ip30,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a23a31*field_up(2,ip10,ip23,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a23a32*field_up(2,ip10,ip23,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a10a23a33*field_up(2,ip10,ip23,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a30*field_up(2,ip11,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a31*field_up(2,ip11,ip20,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a32*field_up(2,ip11,ip20,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a20a33*field_up(2,ip11,ip20,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a30*field_up(2,ip11,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a31*field_up(2,ip11,ip21,ip31,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a32*field_up(2,ip11,ip21,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a21a33*field_up(2,ip11,ip21,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a22a30*field_up(2,ip11,ip22,ip30,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a22a31*field_up(2,ip11,ip22,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a22a32*field_up(2,ip11,ip22,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a22a33*field_up(2,ip11,ip22,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a23a30*field_up(2,ip11,ip23,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a23a31*field_up(2,ip11,ip23,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a23a32*field_up(2,ip11,ip23,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a11a23a33*field_up(2,ip11,ip23,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a20a30*field_up(2,ip12,ip20,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a20a31*field_up(2,ip12,ip20,ip31,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a20a32*field_up(2,ip12,ip20,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a20a33*field_up(2,ip12,ip20,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a21a30*field_up(2,ip12,ip21,ip30,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a21a31*field_up(2,ip12,ip21,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a21a32*field_up(2,ip12,ip21,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a21a33*field_up(2,ip12,ip21,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a22a30*field_up(2,ip12,ip22,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a22a31*field_up(2,ip12,ip22,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a22a32*field_up(2,ip12,ip22,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a22a33*field_up(2,ip12,ip22,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a23a30*field_up(2,ip12,ip23,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a23a31*field_up(2,ip12,ip23,ip31,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a23a32*field_up(2,ip12,ip23,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a12a23a33*field_up(2,ip12,ip23,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a20a30*field_up(2,ip13,ip20,ip30,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a20a31*field_up(2,ip13,ip20,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a20a32*field_up(2,ip13,ip20,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a20a33*field_up(2,ip13,ip20,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a21a30*field_up(2,ip13,ip21,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a21a31*field_up(2,ip13,ip21,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a21a32*field_up(2,ip13,ip21,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a21a33*field_up(2,ip13,ip21,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a22a30*field_up(2,ip13,ip22,ip30,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a22a31*field_up(2,ip13,ip22,ip31,iIe))d up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a22a32*field_up(2,ip13,ip22,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a22a33*field_up(2,ip13,ip22,ip33edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a23a30*field_up(2,ip13,ip23,ip30,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a23a31*field_up(2,ip13,ip23,ip31,iIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a23a32*field_up(2,ip13,ip23,ip32edIe))dn up(2,iq)INTup(2,iq)I+Iddddddddddddd n a13a23a33*field_up(2,ip13,ip23,ip33edIe))ddn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a20a30*field_up(3,ip10,ip20,ip30,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a20a31*field_up(3,ip10,ip20,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a20a32*field_up(3,ip10,ip20,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a20a33*field_up(3,ip10,ip20,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a21a30*field_up(3,ip10,ip21,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a21a31*field_up(3,ip10,ip21,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a21a32*field_up(3,ip10,ip21,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a21a33*field_up(3,ip10,ip21,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a22a30*field_up(3,ip10,ip22,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a22a31*field_up(3,ip10,ip22,ip31,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a22a32*field_up(3,ip10,ip22,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a22a33*field_up(3,ip10,ip22,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a23a30*field_up(3,ip10,ip23,ip30,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a23a31*field_up(3,ip10,ip23,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a23a32*field_up(3,ip10,ip23,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a10a23a33*field_up(3,ip10,ip23,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a20a30*field_up(3,ip11,ip20,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a20a31*field_up(3,ip11,ip20,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a20a32*field_up(3,ip11,ip20,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a20a33*field_up(3,ip11,ip20,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a21a30*field_up(3,ip11,ip21,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a21a31*field_up(3,ip11,ip21,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a21a32*field_up(3,ip11,ip21,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a21a33*field_up(3,ip11,ip21,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a22a30*field_up(3,ip11,ip22,ip30,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a22a31*field_up(3,ip11,ip22,ip31,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a22a32*field_up(3,ip11,ip22,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a22a33*field_up(3,ip11,ip22,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a23a30*field_up(3,ip11,ip23,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a23a31*field_up(3,ip11,ip23,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a23a32*field_up(3,ip11,ip23,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a11a23a33*field_up(3,ip11,ip23,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a20a30*field_up(3,ip12,ip20,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a20a31*field_up(3,ip12,ip20,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a20a32*field_up(3,ip12,ip20,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a20a33*field_up(3,ip12,ip20,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a21a30*field_up(3,ip12,ip21,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a21a31*field_up(3,ip12,ip21,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a21a32*field_up(3,ip12,ip21,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a21a33*field_up(3,ip12,ip21,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a22a30*field_up(3,ip12,ip22,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a22a31*field_up(3,ip12,ip22,ip31,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a22a32*field_up(3,ip12,ip22,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a22a33*field_up(3,ip12,ip22,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a23a30*field_up(3,ip12,ip23,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a23a31*field_up(3,ip12,ip23,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a23a32*field_up(3,ip12,ip23,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a12a23a33*field_up(3,ip12,ip23,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a20a30*field_up(3,ip13,ip20,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a20a31*field_up(3,ip13,ip20,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a20a32*field_up(3,ip13,ip20,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a20a33*field_up(3,ip13,ip20,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a21a30*field_up(3,ip13,ip21,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a21a31*field_up(3,ip13,ip21,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a21a32*field_up(3,ip13,ip21,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a21a33*field_up(3,ip13,ip21,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a22a30*field_up(3,ip13,ip22,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a22a31*field_up(3,ip13,ip22,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a22a32*field_up(3,ip13,ip22,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a22a33*field_up(3,ip13,ip22,ip33edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a23a30*field_up(3,ip13,ip23,ip30,iIe))d up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a23a31*field_up(3,ip13,ip23,ip31,iIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a23a32*field_up(3,ip13,ip23,ip32edIe))dn up(3,iq)INTup(3,iq)I+Iddddddddddddd n a13a23a33*field_up(3,ip13,ip23,ip33edIe))ddn o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaindn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddn h All oritr lda are not ulrbll =. This will (((. Lizecov ailda!dn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddn dddddn dIe) = topo%iIe) ied(iIe))ds_wdeSXF90 !CDIR NOD Pdc!FormatE _ ! ! o r=p = 1,store_h! )(iIe))d VSiq = ied_Ie)(iIe),ip) d VSx0(1. 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxi(1)d x0(2. 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxi(2) x0(3. 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxi(3) d VSip10INT(NT(x0(1.)d VSip20INT(NT(x0(2.)d ip30INT(NT(x0(3.)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd ip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd ip13p11I+ 2d dp23p21I+ 2d dp33p31 + 2dd xp1x0(1.-dddddp10,mk d xp2x0(2.-dddddp20,mk d xp3x0(3.-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30INT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33INT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33dd a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rmatE _ a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d atE _ a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rmatE _ a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rmatE _ a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rmatE _ a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30 NTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rmatE _ a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rmatE _ a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30 NTa13*a20*a30rma a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rmatE _ a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rmatE _ a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dd DO ldn=1,ldad up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a20a30*field_up(ldn,ip10,ip20,ip30,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a20a31*field_up(ldn,ip10,ip20,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a20a32*field_up(ldn,ip10,ip20,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a20a33*field_up(ldn,ip10,ip20,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a21a30*field_up(ldn,ip10,ip21,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a21a31*field_up(ldn,ip10,ip21,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a21a32*field_up(ldn,ip10,ip21,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a21a33*field_up(ldn,ip10,ip21,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a22a30*field_up(ldn,ip10,ip22,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a22a31*field_up(ldn,ip10,ip22,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a22a32*field_up(ldn,ip10,ip22,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a22a33*field_up(ldn,ip10,ip22,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a23a30*field_up(ldn,ip10,ip23,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a23a31*field_up(ldn,ip10,ip23,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a23a32*field_up(ldn,ip10,ip23,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a10a23a33*field_up(ldn,ip10,ip23,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a20a30*field_up(ldn,ip11,ip20,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a20a31*field_up(ldn,ip11,ip20,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a20a32*field_up(ldn,ip11,ip20,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a20a33*field_up(ldn,ip11,ip20,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a21a30*field_up(ldn,ip11,ip21,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a21a31*field_up(ldn,ip11,ip21,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a21a32*field_up(ldn,ip11,ip21,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a21a33*field_up(ldn,ip11,ip21,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a22a30*field_up(ldn,ip11,ip22,ip30,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a22a31*field_up(ldn,ip11,ip22,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a22a32*field_up(ldn,ip11,ip22,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a22a33*field_up(ldn,ip11,ip22,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a23a30*field_up(ldn,ip11,ip23,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a23a31*field_up(ldn,ip11,ip23,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a23a32*field_up(ldn,ip11,ip23,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a11a23a33*field_up(ldn,ip11,ip23,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a20a30*field_up(ldn,ip12,ip20,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a20a31*field_up(ldn,ip12,ip20,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a20a32*field_up(ldn,ip12,ip20,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a20a33*field_up(ldn,ip12,ip20,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a21a30*field_up(ldn,ip12,ip21,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a21a31*field_up(ldn,ip12,ip21,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a21a32*field_up(ldn,ip12,ip21,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a21a33*field_up(ldn,ip12,ip21,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a22a30*field_up(ldn,ip12,ip22,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a22a31*field_up(ldn,ip12,ip22,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a22a32*field_up(ldn,ip12,ip22,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a22a33*field_up(ldn,ip12,ip22,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a23a30*field_up(ldn,ip12,ip23,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a23a31*field_up(ldn,ip12,ip23,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a23a32*field_up(ldn,ip12,ip23,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a12a23a33*field_up(ldn,ip12,ip23,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a20a30*field_up(ldn,ip13,ip20,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a20a31*field_up(ldn,ip13,ip20,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a20a32*field_up(ldn,ip13,ip20,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a20a33*field_up(ldn,ip13,ip20,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a21a30*field_up(ldn,ip13,ip21,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a21a31*field_up(ldn,ip13,ip21,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a21a32*field_up(ldn,ip13,ip21,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a21a33*field_up(ldn,ip13,ip21,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a22a30*field_up(ldn,ip13,ip22,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a22a31*field_up(ldn,ip13,ip22,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a22a32*field_up(ldn,ip13,ip22,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a22a33*field_up(ldn,ip13,ip22,ip33edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a23a30*field_up(ldn,ip13,ip23,ip30,iIe))d up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a23a31*field_up(ldn,ip13,ip23,ip31,iIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a23a32*field_up(ldn,ip13,ip23,ip32edIe))dn up(ldn,iq)INTup(ldn,iq)I+Iddddddddddddd n a13a23a33*field_up(ldn,ip13,ip23,ip33edIe))dn o rh ldad o rh c! loopcov aipff 0KIsongarithcurrr=d ,e)domaindn IFrh ulrbll = lda casesdc!Forc!FormatE _o rh dIe) ds_w__DIME ==__2Dds_w__MODE ==__SCAds_w__KI==__SINGLE_PRECISION E _SUBROUTINE m2p_interp_mp4_ss_2drclif__KI==__DOUBLE_PRECISION E _SUBROUTINE m2p_interp_mp4_ds_2drc!Forclif__MODE ==__VECds_w__KI==__SINGLE_PRECISION E _SUBROUTINE m2p_interp_mp4_sv_2drclif__KI==__DOUBLE_PRECISION E _SUBROUTINE m2p_interp_mp4_dv_2drc!Forc!Forclif__DIME ==__3Dds_w__MODE ==__SCAds_w__KI==__SINGLE_PRECISION E _SUBROUTINE m2p_interp_mp4_ss_3drclif__KI==__DOUBLE_PRECISION E _SUBROUTINE m2p_interp_mp4_ds_3drc!Forclif__MODE ==__VECds_w__KI==__SINGLE_PRECISION E _SUBROUTINE m2p_interp_mp4_sv_3drclif__KI==__DOUBLE_PRECISION E _SUBROUTINE m2p_interp_mp4_dv_3drc!Forc!Forc!Forlibppm-1.2/src/interpolate/p2m_interp_bsp2.f000644 000765 000024 00000072074 11445666061 021254 0ustar00omarstaff000000 000000 E _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddddn ! Subroutine : n p2m_interp_bsp2 E _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddddn ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), dn ! Center for Fluid Dynamics (DTU)dn !dn !dn ! This file dIipff ofarithParall lhPar 0KI Mesh Library (PPM).dn !dn ! PPM dIifree software: you can redistribute dt and/or moFoydn ! it ulder rithterms ofarithGNU Lesser General Pe) ic License dn ! aIipe) ieh = byarithFree Software Fouldation, eiritr dn ! v asion 3 ofarithLicense, or (at your option) any later dn ! v asion.dn !dn ! PPM dIidistributedongarithhopththat it will be useful,dn ! but WITHOUT ANY WARRANTY; without evegarithimpliedowarranty ofdn ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Seththedn ! GNU General Pe) ic License for more details.dn !dn ! You should have receivedoa copy ofarithGNU General Pe) ic Licensedn ! a! rithGNU Lesser General Pe) ic License along with PPM. If not,dn ! seth.dn !dn ! Parall lhPar 0KI Mesh Library (PPM)dn ! ETH Zurichdn ! CH-8092 Zurich, Switzerla! E _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddddds_w__DIME ==__2Dds_w__MODE ==__SCAds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_ss_2d(topoid,xp,up,field_up,ghostsize,dx,h! ))rclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_ds_2d(topoid,xp,up,field_up,ghostsize,dx,h! ))rc!Forclif__MODE ==__VECds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_sv_2d(topoid,xp,up,field_up,lda,ghostsize,dx,h! ))rclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_dv_2d(topoid,xp,up,field_up,lda,ghostsize,dx,h! ))rc!Forc!Forclif__DIME ==__3Dds_w__MODE ==__SCAds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_ss_3d(topoid,xp,up,field_up,ghostsize,dx,h! ))rclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_ds_3d(topoid,xp,up,field_up,ghostsize,dx,h! ))rc!Forclif__MODE ==__VECds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_sv_3d(topoid,xp,up,field_up,lda,ghostsize,dx,h! ))rclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_dv_3d(topoid,xp,up,field_up,lda,ghostsize,dx,h! ))rc!Forc!Forc!For _h!!hPar 0KI to mesh interpolation fbllowing rith2! order B-spline scheme.r _h!!r _h!!hTithinterpolation scheme dIionlyhimplementedofor 3D spaces. Tor _h!!hincrease performancearithinn ailoopscov airithnumb aiofaproptr 0es tor _h!!hbthinterpolatedoare ulrbll = for 2,3,4 a! 5-(((. Ls.r _h!! r _h!! [NOTE]r _h!!hTidIiroutine onlyhperformsirithactual interpolation. It should not ber _h!!hcall = directlyhfromiroutines but instea rith`ppm_interp_m2p`r _h!!hroutine should be used with rithkern lhargumr=d ,et to r _h!!h`ppm_pffam_rmsh_kern l_bsp2`. dd USE ppm_moule_errord USE ppm_moule_allocd USE ppm_moule_substartd USE ppm_moule_substopd USE ppm_moule_datad USE ppm_moule_data_rmshd USE ppm_moule_data_meshd USE ppm_moule_typedefd USE ppm_moule_writed USE ppm_moule_map dd IMPLICIT NONEds_w__KI==__SINGLE_PRECISION E _INTEGER, PARAMETER :: MK = ppm_kind_singlerclif__KI==__DOUBLE_PRECISION E _INTEGER, PARAMETER :: MK = ppm_kind_doe) erc!FormatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn ! Argumr=dsrmatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn INTEGER , INTENT(IN ) :: topoidrmatE _h!!htopologyhidr=difieaiofatargetds_w__MODE ==__SCAdmatE _dddddMK) , DIMENSION(:) , INTENT(IN) :: uprmatE _h!!hpff 0KI weightshfromiwhich to interpolateds_w__DIME ==__2DdmatE _dddddMK) , DIMENSION(:,:,: ) , POINTER :: field_uprclif__DIME ==__3DdmatE _dddddMK) , DIMENSION(:,:,:,: ) , POINTER :: field_uprc!FormatE _h!!hfield onto which to interpolatedsclif__MODE ==__VECdn INTEGER , INTENT(IN) :: ldad h!!hleaing dimr=sion ofauprmatE _dddddMK) , DIMENSION(:,:) , INTENT(IN) :: uprmatE _h!!hpff 0KI weightshfromiwhich to interpolateds_w__DIME ==__2DdmatE _dddddMK) , DIMENSION(:,:,:,: ) , POINTER :: field_uprclif__DIME ==__3DdmatE _dddddMK) , DIMENSION(:,:,:,:,:) , POINTER :: field_uprc!FormatE _h!!hfield onto which to interpolatedsc!FormatE _dddddMK), DIMENSION(:,:) , INTENT(IN ) :: xprmatE _h!!hpff 0KI positionsdn INTEGER , DIMENSION(: ) , INTENT(IN ) :: ghostsizermatE _h!!hTithsize (width) ofarithghost layerrmatE _dddddmk), DIMENSION(ppm_dim) , INTENT(IN ) :: dxrmatE _h!!hmesh spacingdn INTEGER , INTENT( OUT) :: h! )rmatE _h!!hReturns status, 0 upon successrmatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn ! Local varia) esrmatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn INTEGER, DIMENSION(:,:) , POINTER :: hstart, ndatad INTEGER, DIMENSION(:) , POINTER :: h ied1,h ied2rmatE _dddddmk), DIMENSION(:) , POINTER :: min_phys,max_physrmatE _dddddmk), DIMENSION(ppm_dim) :: dxirmatE _dddddmk) :: dxx,dxy,dxz,dxxi,dxyi,dxzirmatE _dddddmk), DIMENSION(ppm_dim) :: len_physrmatE _dddddmk) :: x1,x2,x3dn INTEGER :: kern l_supportd INTEGER, DIMENSION(ppm_dim+2) :: ldu,ldld INTEGER, DIMENSION(ppm_dim) :: Ncdn INTEGER :: i,j,k,l,ii,jj,kk,iidec,maptypedn INTEGER :: xlo,xhi,ylo,yhi,zlo,zhidn INTEGER :: jjdec,nb_sub,npff ,ipartd INTEGER :: kkdec,ip1,n ied1dn INTEGER :: ip2,ip3,ifacedn INTEGER :: iIe),ifrom,ito,ip,dim,iopt,iIe) dn INTEGER :: max_partnumb a,idom,n ied2,idomld INTEGER, DIMENSION(ppm_dim) :: Nmdn INTEGER :: nsubsd INTEGER, DIMENSION(6) :: bcdefd INTEGER :: iqd LOGICAL :: internal_weights,lokdn ! aliasesdn dddddmk), DIMENSION(:,:),n POINTER :: min_Ie), max_Ie) n dddddmk) :: myepsrmatE _dddddmk) :: tim1s, tim1ermatE _dddddmk) :: xp1,xp2,xp3rmatE _dddddmk) :: wx1,wx2,wx3rmatE _dddddmk), DIMENSION(ppm_dim) :: x0rmatE _dddddmk) :: x01,x02,x03rmatE _CHARACTER(len=256) :: msgdn TYPE(ppm_t_topo) , POINTER :: topormatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn ! Varia) es for ulrbll = v asionsrmatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn dddddmk) :: x10,x11,x12,x13,x20,x21,x22,x23,x30,x31,x32,x33rmatE _dddddmk) :: a10,a11,a12,a13,a20,a21,a22,a23,a30,a31,a32,a33d INTEGER :: ip10,ip11,ip12,ip13,ip20,ip21,ip22,ip23,ip30,ip31,ip32edp33d INTEGER :: ldnrmatE _dddddmk) :: a10a20a30rmatE _dddddmk) :: a10a20a31rmatE _dddddmk) :: a10a20a32rmatE _dddddmk) :: a10a20a33rmatE _dddddmk) :: a10a21a30rmatE _dddddmk) :: a10a21a31rmatE _dddddmk) :: a10a21a32rmatE _dddddmk) :: a10a21a33rmatE _dddddmk) :: a10a22a30rmatE _dddddmk) :: a10a22a31rmatE _dddddmk) :: a10a22a32rmatE _dddddmk) :: a10a22a33rmatE _dddddmk) :: a10a23a30rmatE _dddddmk) :: a10a23a31rmatE _dddddmk) :: a10a23a32rmatE _dddddmk) :: a10a23a33rmatE _dddddmk) :: a11a20a30rmatE _dddddmk) :: a11a20a31rmatE _dddddmk) :: a11a20a32rmatE _dddddmk) :: a11a20a33rmatE _dddddmk) :: a11a21a30rmatE _dddddmk) :: a11a21a31rmatE _dddddmk) :: a11a21a32rmatE _dddddmk) :: a11a21a33rmatE _dddddmk) :: a11a22a30rmatE _dddddmk) :: a11a22a31rmatE _dddddmk) :: a11a22a32rmatE _dddddmk) :: a11a22a33rmatE _dddddmk) :: a11a23a30rmatE _dddddmk) :: a11a23a31rmatE _dddddmk) :: a11a23a32rmatE _dddddmk) :: a11a23a33rmatE _dddddmk) :: a12a20a30rmatE _dddddmk) :: a12a20a31rmatE _dddddmk) :: a12a20a32rmatE _dddddmk) :: a12a20a33rmatE _dddddmk) :: a12a21a30rmatE _dddddmk) :: a12a21a31rmatE _dddddmk) :: a12a21a32rmatE _dddddmk) :: a12a21a33rmatE _dddddmk) :: a12a22a30rmatE _dddddmk) :: a12a22a31rmatE _dddddmk) :: a12a22a32rmatE _dddddmk) :: a12a22a33rmatE _dddddmk) :: a12a23a30rmatE _dddddmk) :: a12a23a31rmatE _dddddmk) :: a12a23a32rmatE _dddddmk) :: a12a23a33rmatE _dddddmk) :: a13a20a30rmatE _dddddmk) :: a13a20a31rmatE _dddddmk) :: a13a20a32rmatE _dddddmk) :: a13a20a33rmatE _dddddmk) :: a13a21a30rmatE _dddddmk) :: a13a21a31rmatE _dddddmk) :: a13a21a32rmatE _dddddmk) :: a13a21a33rmatE _dddddmk) :: a13a22a30rmatE _dddddmk) :: a13a22a31rmatE _dddddmk) :: a13a22a32rmatE _dddddmk) :: a13a22a33rmatE _dddddmk) :: a13a23a30rmatE _dddddmk) :: a13a23a31rmatE _dddddmk) :: a13a23a32rmatE _dddddmk) :: a13a23a33dd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!r _h Initialisedn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!rrmatE _CALL substart('p2m_interp_bsp2',t0,h! ))rrmatE _topo => ppm_topo(topoid)%tdd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!r _h Mesh spacingdn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!rs_w__KI==__SINGLE_PRECISION E _min_phys => topo%min_physsrmatE max_phys => topo%max_physsrclif__KI==__DOUBLE_PRECISION E _min_phys => topo%min_physdrmatE max_phys => topo%max_physdrc!Fords_w__KI==__SINGLE_PRECISION E _myeps = ppm_myepssrmatE _min_Ie) => topo%min_subsd max_Ie) => topo%max_subsdclif__KI==__DOUBLE_PRECISION E _myeps = ppm_myepsdrmatE _min_Ie) => topo%min_subdd max_Ie) => topo%max_subdrc!Fordd dxxi NT1.0_mk/dx(1)d dxyi NT1.0_mk/dx(2) IF(dim.EQ.3) dxzi NT1.0_mk/dx(3) d h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddd!dn h B-spline 2 (Witch hat) h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddd!d#if__DIME ==__3DdmatE _! o r=Ie) = 1,topo%nIe) ied d#if__MODE ==__VECddmatE _! h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn h Ulrbll = v asionsofor 3-(((. LsdmatE _! h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn IF (lda .EQ. 3) THENdn dIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn VSiq = ied_Ie)(iIe),ip) d Vx01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ Vx02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ Vx03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn VSip10INT(NT(x01)I+ 1d ip20INT(NT(x02)I+ 1d ip30INT(NT(x03) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd xp1x01-dddddp10-1,mk d xp2x02-dddddp20-1,mk d xp3x03-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10 NT1.0_mkI- x10d a20INT1.0_mkI- x20d a30INT1.0_mkI- x30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31 dd a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dds_wdeNOMICROINSTRUCTIONSrmatE _ field_up(1,ip10,ip20,ip30,iIe))=field_up(1,ip10,ip20,ip30,iIe))+&rmatE _ &a10a20a30*up(1,iq)rmatE _ field_up(2,ip10,ip20,ip30,iIe))=field_up(2,ip10,ip20,ip30,iIe))+&rmatE _ &a10a20a30*up(2,iq)rmatE _ field_up(3,ip10,ip20,ip30,iIe))=field_up(3,ip10,ip20,ip30,iIe))+&rmatE _ &a10a20a30*up(3,iq)rmatE _ field_up(1,ip11,ip20,ip30,iIe))=field_up(1,ip11,ip20,ip30,iIe))+&rmatE _ &a11a20a30*up(1,iq)rmatE _ field_up(2,ip11,ip20,ip30,iIe))=field_up(2,ip11,ip20,ip30,iIe))+&rmatE _ &a11a20a30*up(2,iq)rmatE _ field_up(3,ip11,ip20,ip30,iIe))=field_up(3,ip11,ip20,ip30,iIe))+&rmatE _ &a11a20a30*up(3,iq)rmatE _ field_up(1,ip10,ip21,ip30,iIe))=field_up(1,ip10,ip21,ip30,iIe))+&rmatE _ &a10a21a30*up(1,iq)rmatE _ field_up(2,ip10,ip21,ip30,iIe))=field_up(2,ip10,ip21,ip30,iIe))+&rmatE _ &a10a21a30*up(2,iq)rmatE _ field_up(3,ip10,ip21,ip30,iIe))=field_up(3,ip10,ip21,ip30,iIe))+&rmatE _ &a10a21a30*up(3,iq)rmatE _ field_up(1,ip11,ip21,ip30,iIe))=field_up(1,ip11,ip21,ip30,iIe))+&rmatE _ &a11a21a30*up(1,iq)rmatE _ field_up(2,ip11,ip21,ip30,iIe))=field_up(2,ip11,ip21,ip30,iIe))+&rmatE _ &a11a21a30*up(2,iq)rmatE _ field_up(3,ip11,ip21,ip30,iIe))=field_up(3,ip11,ip21,ip30,iIe))+&rmatE _ &a11a21a30*up(3,iq)rmatE _ field_up(1,ip10,ip20,ip31,iIe))=field_up(1,ip10,ip20,ip31,iIe))+&rmatE _ &a10a20a31*up(1,iq)rmatE _ field_up(2,ip10,ip20,ip31,iIe))=field_up(2,ip10,ip20,ip31,iIe))+&rmatE _ &a10a20a31*up(2,iq)rmatE _ field_up(3,ip10,ip20,ip31,iIe))=field_up(3,ip10,ip20,ip31,iIe))+&rmatE _ &a10a20a31*up(3,iq)rmatE _ field_up(1,ip11,ip20,ip31,iIe))=field_up(1,ip11,ip20,ip31,iIe))+&rmatE _ &a11a20a31*up(1,iq)rmatE _ field_up(2,ip11,ip20,ip31,iIe))=field_up(2,ip11,ip20,ip31,iIe))+&rmatE _ &a11a20a31*up(2,iq)rmatE _ field_up(3,ip11,ip20,ip31,iIe))=field_up(3,ip11,ip20,ip31,iIe))+&rmatE _ &a11a20a31*up(3,iq)rmatE _ field_up(1,ip10,ip21,ip31,iIe))=field_up(1,ip10,ip21,ip31,iIe))+&rmatE _ &a10a21a31*up(1,iq)rmatE _ field_up(2,ip10,ip21,ip31,iIe))=field_up(2,ip10,ip21,ip31,iIe))+&rmatE _ &a10a21a31*up(2,iq)rmatE _ field_up(3,ip10,ip21,ip31,iIe))=field_up(3,ip10,ip21,ip31,iIe))+&rmatE _ &a10a21a31*up(3,iq)rmatE _ field_up(1,ip11,ip21,ip31,iIe))=field_up(1,ip11,ip21,ip31,iIe))+&rmatE _ &a11a21a31*up(1,iq)rmatE _ field_up(2,ip11,ip21,ip31,iIe))=field_up(2,ip11,ip21,ip31,iIe))+&rmatE _ &a11a21a31*up(2,iq)rmatE _ field_up(3,ip11,ip21,ip31,iIe))=field_up(3,ip11,ip21,ip31,iIe))+&rmatE _ &a11a21a31*up(3,iq)r#elsedn field_up(1:3,ip10,ip20,ip30,iIe))=field_up(1:3,ip10,ip20,ip30,iIe))+&rmatE _ &a10a20a30*up(1:3,iq)rmatE _ field_up(1:3,ip11,ip20,ip30,iIe))=field_up(1:3,ip11,ip20,ip30,iIe))+&rmatE _ &a11a20a30*up(1:3,iq)rmatE _ field_up(1:3,ip10,ip21,ip30,iIe))=field_up(1:3,ip10,ip21,ip30,iIe))+&rmatE _ &a10a21a30*up(1:3,iq)rmatE _ field_up(1:3,ip11,ip21,ip30,iIe))=field_up(1:3,ip11,ip21,ip30,iIe))+&rmatE _ &a11a21a30*up(1:3,iq)rmatE _ field_up(1:3,ip10,ip20,ip31,iIe))=field_up(1:3,ip10,ip20,ip31,iIe))+&rmatE _ &a10a20a31*up(1:3,iq)rmatE _ field_up(1:3,ip11,ip20,ip31,iIe))=field_up(1:3,ip11,ip20,ip31,iIe))+&rmatE _ &a11a20a31*up(1:3,iq)rmatE _ field_up(1:3,ip10,ip21,ip31,iIe))=field_up(1:3,ip10,ip21,ip31,iIe))+&rmatE _ &a10a21a31*up(1:3,iq)rmatE _ field_up(1:3,ip11,ip21,ip31,iIe))=field_up(1:3,ip11,ip21,ip31,iIe))+&rmatE _ &a11a21a31*up(1:3,iq)r#e!FormatE _ ! !o rmatE _ ! !h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn h Ulrbll = v asionsofor 2-(((. LsdmatE _! !h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn ddddIF (lda .EQ. 2) THENdn dIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn VSiq = ied_Ie)(iIe),ip) d Vx01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ Vx02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ Vx03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn VSip10INT(NT(x01)I+ 1d ip20INT(NT(x02)I+ 1d ip30INT(NT(x03) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd Vxp1x01-dddddp10-1,mk d xp2x02-dddddp20-1,mk d xp3x03-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10 NT1.0_mkI- x10d a20INT1.0_mkI- x20d a30INT1.0_mkI- x30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31 d a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dds_wdeNOMICROINSTRUCTIONSrmatE _ field_up(1,ip10,ip20,ip30,iIe))=field_up(1,ip10,ip20,ip30,iIe))+&rmatE _ &a10a20a30*up(1,iq)rmatE _ field_up(2,ip10,ip20,ip30,iIe))=field_up(2,ip10,ip20,ip30,iIe))+&rmatE _ &a10a20a30*up(2,iq)rmatE _ field_up(1,ip11,ip20,ip30,iIe))=field_up(1,ip11,ip20,ip30,iIe))+&rmatE _ &a11a20a30*up(1,iq)rmatE _ field_up(2,ip11,ip20,ip30,iIe))=field_up(2,ip11,ip20,ip30,iIe))+&rmatE _ &a11a20a30*up(2,iq)rmatE _ field_up(1,ip10,ip21,ip30,iIe))=field_up(1,ip10,ip21,ip30,iIe))+&rmatE _ &a10a21a30*up(1,iq)rmatE _ field_up(2,ip10,ip21,ip30,iIe))=field_up(2,ip10,ip21,ip30,iIe))+&rmatE _ &a10a21a30*up(2,iq)rmatE _ field_up(1,ip11,ip21,ip30,iIe))=field_up(1,ip11,ip21,ip30,iIe))+&rmatE _ &a11a21a30*up(1,iq)rmatE _ field_up(2,ip11,ip21,ip30,iIe))=field_up(2,ip11,ip21,ip30,iIe))+&rmatE _ &a11a21a30*up(2,iq)rmatE _ field_up(1,ip10,ip20,ip31,iIe))=field_up(1,ip10,ip20,ip31,iIe))+&rmatE _ &a10a20a31*up(1,iq)rmatE _ field_up(2,ip10,ip20,ip31,iIe))=field_up(2,ip10,ip20,ip31,iIe))+&rmatE _ &a10a20a31*up(2,iq)rmatE _ field_up(1,ip11,ip20,ip31,iIe))=field_up(1,ip11,ip20,ip31,iIe))+&rmatE _ &a11a20a31*up(1,iq)rmatE _ field_up(2,ip11,ip20,ip31,iIe))=field_up(2,ip11,ip20,ip31,iIe))+&rmatE _ &a11a20a31*up(2,iq)rmatE _ field_up(1,ip10,ip21,ip31,iIe))=field_up(1,ip10,ip21,ip31,iIe))+&rmatE _ &a10a21a31*up(1,iq)rmatE _ field_up(2,ip10,ip21,ip31,iIe))=field_up(2,ip10,ip21,ip31,iIe))+&rmatE _ &a10a21a31*up(2,iq)rmatE _ field_up(1,ip11,ip21,ip31,iIe))=field_up(1,ip11,ip21,ip31,iIe))+&rmatE _ &a11a21a31*up(1,iq)rmatE _ field_up(2,ip11,ip21,ip31,iIe))=field_up(2,ip11,ip21,ip31,iIe))+&rmatE _ &a11a21a31*up(2,iq)r#elsedn field_up(1:2,ip10,ip20,ip30,iIe))=field_up(1:2,ip10,ip20,ip30,iIe))+&rmatE _ &a10a20a30*up(1:2,iq)rmatE _ field_up(1:2,ip11,ip20,ip30,iIe))=field_up(1:2,ip11,ip20,ip30,iIe))+&rmatE _ &a11a20a30*up(1:2,iq)rmatE _ field_up(1:2,ip10,ip21,ip30,iIe))=field_up(1:2,ip10,ip21,ip30,iIe))+&rmatE _ &a10a21a30*up(1:2,iq)rmatE _ field_up(1:2,ip11,ip21,ip30,iIe))=field_up(1:2,ip11,ip21,ip30,iIe))+&rmatE _ &a11a21a30*up(1:2,iq)rmatE _ field_up(1:2,ip10,ip20,ip31,iIe))=field_up(1:2,ip10,ip20,ip31,iIe))+&rmatE _ &a10a20a31*up(1:2,iq)rmatE _ field_up(1:2,ip11,ip20,ip31,iIe))=field_up(1:2,ip11,ip20,ip31,iIe))+&rmatE _ &a11a20a31*up(1:2,iq)rmatE _ field_up(1:2,ip10,ip21,ip31,iIe))=field_up(1:2,ip10,ip21,ip31,iIe))+&rmatE _ &a10a21a31*up(1:2,iq)rmatE _ field_up(1:2,ip11,ip21,ip31,iIe))=field_up(1:2,ip11,ip21,ip31,iIe))+&rmatE _ &a11a21a31*up(1:2,iq)r#e!FormatE _ ! !o rmatE _ ! !h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn h Ulrbll = v asionsofor 1-(((. LsdmatE _! !h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn ddddIF (lda .EQ. 1) THENdn dIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn VSiq = ied_Ie)(iIe),ip) d Vx01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ Vx02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ Vx03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn VSip10INT(NT(x01)I+ 1d ip20INT(NT(x02)I+ 1d ip30INT(NT(x03) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd Vxp1x01-dddddp10-1,mk d xp2x02-dddddp20-1,mk d xp3x03-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10 NT1.0_mkI- x10d a20INT1.0_mkI- x20d a30INT1.0_mkI- x30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31 d a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dd _ field_up(1,ip10,ip20,ip30,iIe))=field_up(1,ip10,ip20,ip30,iIe))+&rmatE dddddddd n a10a20a30*up(1,iq)rmatE _ field_up(1,ip11,ip20,ip30,iIe))=field_up(1,ip11,ip20,ip30,iIe))+&rmatE dddddddd n a11a20a30*up(1,iq)rmatE _ field_up(1,ip10,ip21,ip30,iIe))=field_up(1,ip10,ip21,ip30,iIe))+&rmatE dddddddd n a10a21a30*up(1,iq)rmatE _ field_up(1,ip11,ip21,ip30,iIe))=field_up(1,ip11,ip21,ip30,iIe))+&rmatE dddddddd n a11a21a30*up(1,iq)rmatE _ field_up(1,ip10,ip20,ip31,iIe))=field_up(1,ip10,ip20,ip31,iIe))+&rmatE dddddddd n a10a20a31*up(1,iq)rmatE _ field_up(1,ip11,ip20,ip31,iIe))=field_up(1,ip11,ip20,ip31,iIe))+&rmatE dddddddd n a11a20a31*up(1,iq)rmatE _ field_up(1,ip10,ip21,ip31,iIe))=field_up(1,ip10,ip21,ip31,iIe))+&rmatE dddddddd n a10a21a31*up(1,iq)rmatE _ field_up(1,ip11,ip21,ip31,iIe))=field_up(1,ip11,ip21,ip31,iIe))+&rmatE dddddddd n a11a21a31*up(1,iq)rrmatE _ ! !o rmatE _ ! !h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn h All oritr lda are NOT UNROLLED. V((. Lization will be ov ailda!dn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn dddddn dIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn VSiq = ied_Ie)(iIe),ip) d Vx01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ Vx02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ Vx03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn VSip10INT(NT(x01)I+ 1d ip20INT(NT(x02)I+ 1d ip30INT(NT(x03) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd Vxp1x01-dddddp10-1,mk d xp2x02-dddddp20-1,mk d xp3x03-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10 NT1.0_mkI- x10d a20INT1.0_mkI- x20d a30INT1.0_mkI- x30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31 d a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ o rldn=1,lda d field_up(ldn,ip10,ip20,ip30,iIe))=field_up(ldn,ip10,ip20,ip30,iIe))+&rmatE dddddddd n a10a20a30*up(ldn,iq)d field_up(ldn,ip11,ip20,ip30,iIe))=field_up(ldn,ip11,ip20,ip30,iIe))+&rmatE dddddddd n a11a20a30*up(ldn,iq)d field_up(ldn,ip10,ip21,ip30,iIe))=field_up(ldn,ip10,ip21,ip30,iIe))+&rmatE dddddddd n a10a21a30*up(ldn,iq)d field_up(ldn,ip11,ip21,ip30,iIe))=field_up(ldn,ip11,ip21,ip30,iIe))+&rmatE dddddddd n a11a21a30*up(ldn,iq)d field_up(ldn,ip10,ip20,ip31,iIe))=field_up(ldn,ip10,ip20,ip31,iIe))+&rmatE dddddddd n a10a20a31*up(ldn,iq)d field_up(ldn,ip11,ip20,ip31,iIe))=field_up(ldn,ip11,ip20,ip31,iIe))+&rmatE dddddddd n a11a20a31*up(ldn,iq)d field_up(ldn,ip10,ip21,ip31,iIe))=field_up(ldn,ip10,ip21,ip31,iIe))+&rmatE dddddddd n a10a21a31*up(ldn,iq)d field_up(ldn,ip11,ip21,ip31,iIe))=field_up(ldn,ip11,ip21,ip31,iIe))+&rmatE dddddddd n a11a21a31*up(ldn,iq)d o h ldad o h iqd IF h ulrbll = lda casesdclif__MODE ==__SCAdmatE ______dIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn iq = ied_Ie)(iIe),ip) d x01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ x02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ x03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn ip10INT(NT(x01)I+ 1d ip20INT(NT(x02)I+ 1d ip30INT(NT(x03) + 1dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd xp1x01-dddddp10-1,mk d xp2x02-dddddp20-1,mk d xp3x03-dddddp30-1,mk dd x10INTxp1d x11x10I-d1.0_mkdd x20INTxp2d x21x20I-d1.0_mkdd x30INTxp3d x31x30I-d1.0_mkdd a10 NT1.0_mkI- x10d a20INT1.0_mkI- x20d a30INT1.0_mkI- x30dd a11INT1.0_mkI+ x11d a21INT1.0_mkI+ x21d a31INT1.0_mkI+ x31 d a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31ddrmatE _ field_up(ip10,ip20,ip30,iIe))=field_up(ip10,ip20,ip30,iIe))+&rmatE dddddddd n a10a20a30*up(iq)d field_up(ip11,ip20,ip30,iIe))=field_up(ip11,ip20,ip30,iIe))+&rmatE dddddddd n a11a20a30*up(iq)d field_up(ip10,ip21,ip30,iIe))=field_up(ip10,ip21,ip30,iIe))+&rmatE dddddddd n a10a21a30*up(iq)d field_up(ip11,ip21,ip30,iIe))=field_up(ip11,ip21,ip30,iIe))+&rmatE dddddddd n a11a21a30*up(iq)d field_up(ip10,ip20,ip31,iIe))=field_up(ip10,ip20,ip31,iIe))+&rmatE dddddddd n a10a20a31*up(iq)d field_up(ip11,ip20,ip31,iIe))=field_up(ip11,ip20,ip31,iIe))+&rmatE dddddddd n a11a20a31*up(iq)d field_up(ip10,ip21,ip31,iIe))=field_up(ip10,ip21,ip31,iIe))+&rmatE dddddddd n a10a21a31*up(iq)d field_up(ip11,ip21,ip31,iIe))=field_up(ip11,ip21,ip31,iIe))+&rmatE dddddddd n a11a21a31*up(iq)d o h iqd#e!FormatE _o rrrrrrrrrrrrrr! loopcov aisubsdclif__DIME ==__2DdmatE _ h! ) = ppm_error_errord _CALL ppm_error(ppm_err_argumr=d,'p2m_interp_bsp2',atE drmatE dddddddd 'Currr=dly bsp2 dIinot availa) e. Use ppm_rmsh_remesh for oritr kern ls.',a&rmatE dddddddd n __LINE__,h! ))rc!For _CALL substop('p2m_interp_bsp2',t0,h! ))r _RETURN ds_w__DIME ==__2Dds_w__MODE ==__SCAds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_ss_2drclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_ds_2drc!Forclif__MODE ==__VECds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_sv_2drclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_dv_2drc!Forc!Forclif__DIME ==__3Dds_w__MODE ==__SCAds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_ss_3drclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_ds_3drc!Forclif__MODE ==__VECds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_sv_3drclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_bsp2_dv_3drc!Forc!Forc!Forlibppm-1.2/src/interpolate/p2m_interp_mp4.f000644 000765 000024 00000315111I11445666061 021076 0ustar00omarstaff000000 000000 rrrrrr!!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd rrrrrr! Subroutine : n p2m_interp_mp4 rrrrrr!!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd rrrrrr! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), dn ! Center for Fluid Dynamics (DTU)dn !dn !dn ! This file dIipff ofarithParall lhPar 0KI Mesh Library (PPM).dn !dn ! PPM dIifree software: you can redistribute dt and/or moFoydn ! it ulder rithterms ofarithGNU Lesser General Pe) ic License dn ! aIipe) ieh = byarithFree Software Fouldation, eiritr dn ! v asion 3 ofarithLicense, or (at your option) any later dn ! v asion.dn !dn ! PPM dIidistributedongarithhopththat it will be useful,dn ! but WITHOUT ANY WARRANTY; without evegarithimpliedowarranty ofdn ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Seththedn ! GNU General Pe) ic License for more details.dn !dn ! You should have receivedoa copy ofarithGNU General Pe) ic Licensedn ! a! rithGNU Lesser General Pe) ic License along with PPM. If not,dn ! seth.dn !dn ! Parall lhPar 0KI Mesh Library (PPM)dn ! ETH Zurichdn rrrr! CH-8092 Zurich, Switzerla! E _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddddds_w__DIME ==__2Dds_w__MODE ==__SCAds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_mp4_ss_2d(topoid,xp,up,field_up,ghostsize,dx,h! ))rclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_mp4_ds_2d(topoid,xp,up,field_up,ghostsize,dx,h! ))rc!Forclif__MODE ==__VECds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_mp4_sv_2d(topoid,xp,up,field_up,lda,ghostsize,dx,h! ))rclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_mp4_dv_2d(topoid,xp,up,field_up,lda,ghostsize,dx,h! ))rc!Forc!Forclif__DIME ==__3Dds_w__MODE ==__SCAds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_mp4_ss_3d(topoid,xp,up,field_up,ghostsize,dx,h! ))rclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_mp4_ds_3d(topoid,xp,up,field_up,ghostsize,dx,h! ))rc!Forclif__MODE ==__VECds_w__KI==__SINGLE_PRECISION E _SUBROUTINE p2m_interp_mp4_sv_3d(topoid,xp,up,field_up,lda,ghostsize,dx,h! ))rclif__KI==__DOUBLE_PRECISION E _SUBROUTINE p2m_interp_mp4_dv_3d(topoid,xp,up,field_up,lda,ghostsize,dx,h! ))rc!Forc!Forc!For _h!!hPar 0KI to mesh interpolation fbllowing rithM'4 scheme.r _h!!r _h!!hTithinterpolation scheme dIionlyhimplementedofor 2D a! 3D spaces. Tor _h!!hincrease performancearithinn ailoopscov airithnumb aiofaproptr 0es tor _h!!hbthinterpolatedoare ulrbll = for 2,3,4 a! 5-(((. Ls.r _h!! r _h!! [NOTE]r _h!!hTidIiroutine onlyhperformsirithactual interpolation. It should not ber _h!!hcall = directlyhfromiroutines but instea rith`ppm_interp_m2p`r _h!!hroutine should be used with rithkern lhargumr=d ,et to r _h!!h`ppm_pffam_rmsh_kern l_mp4`. dd USE ppm_moule_errord USE ppm_moule_allocd USE ppm_moule_substartd USE ppm_moule_substopd USE ppm_moule_datad USE ppm_moule_data_rmshd USE ppm_moule_data_meshd USE ppm_moule_typedefd USE ppm_moule_writed USE ppm_moule_map dd IMPLICIT NONEds_w__KI==__SINGLE_PRECISION E _INTEGER, PARAMETER :: MK = ppm_kind_singlerclif__KI==__DOUBLE_PRECISION E _INTEGER, PARAMETER :: MK = ppm_kind_doe) erc!FormatE _h!rac Ss _riwa if ingseggggggggggggggggggggggggggggggggggggggggggggggggg!dn ! Argumr=dsrmatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn INTEGER , INTENT(IN ) :: topoidrmatE _h!!htopologyhidr=difieai(user numb aing)iofatargetds_w__MODE ==__SCAdmatE _dddddMK) , DIMENSION(:) , INTENT(IN) :: uprmatE _h!!hpff 0KI weightshfromiwhich to interpolateds_w__DIME ==__2DdmatE _dddddMK) , DIMENSION(:,:,: ) , POINTER :: field_uprclif__DIME ==__3DdmatE _dddddMK) , DIMENSION(:,:,:,: ) , POINTER :: field_uprc!FormatE _h!!hfield onto which to interpolatedsclif__MODE ==__VECdn INTEGER , INTENT(IN) :: ldad h!!hleaing dimr=sion ofauprmatE _dddddMK) , DIMENSION(:,:) , INTENT(IN) :: uprmatE _h!!hpff 0KI weightshfromiwhich to interpolateds_w__DIME ==__2DdmatE _dddddMK) , DIMENSION(:,:,:,: ) , POINTER :: field_uprclif__DIME ==__3DdmatE _dddddMK) , DIMENSION(:,:,:,:,:) , POINTER :: field_uprc!FormatE _h!!hfield onto which to interpolatedsc!FormatE _dddddMK), DIMENSION(:,:) , INTENT(IN ) :: xprmatE _h!!hpff 0KI positionsdn INTEGER , DIMENSION(: ) , INTENT(IN ) :: ghostsizermatE _h!!hTithsize (width) ofarithghost layerrmatE _dddddmk), DIMENSION(ppm_dim) , INTENT(IN ) :: dxrmatE _h!!hmesh spacingdn INTEGER , INTENT( OUT) :: h! )rmatE _h!!hReturns status, 0 upon successrmatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn ! Local varia) esrmatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn INTEGER, DIMENSION(:,:) , POINTER :: hstart, ndatad INTEGER, DIMENSION(:) , POINTER :: h ied1,h ied2rmatE _dddddmk), DIMENSION(:) , POINTER :: min_phys,max_physrmatE _dddddmk), DIMENSION(ppm_dim) :: dxirmatE _dddddmk) :: dxx,dxy,dxz,dxxi,dxyi,dxzirmatE _dddddmk), DIMENSION(ppm_dim) :: len_physrmatE _dddddmk) :: x1,x2,x3dn INTEGER :: kern l_supportd INTEGER, DIMENSION(ppm_dim+2) :: ldu,ldld INTEGER, DIMENSION(ppm_dim) :: Ncdn INTEGER :: i,j,k,l,ii,jj,kk,iidec,maptypedn INTEGER :: xlo,xhi,ylo,yhi,zlo,zhidn INTEGER :: jjdec,nb_sub,npff ,ipartd INTEGER :: kkdec,ip1,n ied1dn INTEGER :: ip2,ip3,ifacedn INTEGER :: iIe),ifrom,ito,ip,dim,iopt,iIe) dn INTEGER :: max_partnumb a,idom,n ied2,idomld INTEGER, DIMENSION(ppm_dim) :: Nmdn INTEGER :: nsubsd INTEGER, DIMENSION(6) :: bcdefd INTEGER :: iqd LOGICAL :: internal_weights,lokdn ! aliasesdn dddddmk), DIMENSION(:,:),n POINTER :: min_Ie), max_Ie) n dddddmk) :: myepsrmatE _dddddmk) :: tim1s, tim1ermatE _dddddmk) :: xp1,xp2,xp3rmatE _dddddmk) :: wx1,wx2,wx3rmatE _dddddmk), DIMENSION(ppm_dim) :: x0rmatE _dddddmk) :: x01,x02,x03rmatE _CHARACTER(len=256) :: msgdn TYPE(ppm_t_topo) , POINTER :: topormatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn ! Varia) es for ulrbll = v asionsrmatE _h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddd!dn dddddmk) :: x10,x11,x12,x13,x20,x21,x22,x23,x30,x31,x32,x33rmatE _dddddmk) :: a10,a11,a12,a13,a20,a21,a22,a23,a30,a31,a32,a33d INTEGER :: ip10,ip11,ip12,ip13,ip20,ip21,ip22,ip23,ip30,ip31,ip32edp33d INTEGER :: ldnrmatE _dddddmk) :: a10a20a30rmatE _dddddmk) :: a10a20a31rmatE _dddddmk) :: a10a20a32rmatE _dddddmk) :: a10a20a33rmatE _dddddmk) :: a10a21a30rmatE _dddddmk) :: a10a21a31rmatE _dddddmk) :: a10a21a32rmatE _dddddmk) :: a10a21a33rmatE _dddddmk) :: a10a22a30rmatE _dddddmk) :: a10a22a31rmatE _dddddmk) :: a10a22a32rmatE _dddddmk) :: a10a22a33rmatE _dddddmk) :: a10a23a30rmatE _dddddmk) :: a10a23a31rmatE _dddddmk) :: a10a23a32rmatE _dddddmk) :: a10a23a33rmatE _dddddmk) :: a11a20a30rmatE _dddddmk) :: a11a20a31rmatE _dddddmk) :: a11a20a32rmatE _dddddmk) :: a11a20a33rmatE _dddddmk) :: a11a21a30rmatE _dddddmk) :: a11a21a31rmatE _dddddmk) :: a11a21a32rmatE _dddddmk) :: a11a21a33rmatE _dddddmk) :: a11a22a30rmatE _dddddmk) :: a11a22a31rmatE _dddddmk) :: a11a22a32rmatE _dddddmk) :: a11a22a33rmatE _dddddmk) :: a11a23a30rmatE _dddddmk) :: a11a23a31rmatE _dddddmk) :: a11a23a32rmatE _dddddmk) :: a11a23a33rmatE _dddddmk) :: a12a20a30rmatE _dddddmk) :: a12a20a31rmatE _dddddmk) :: a12a20a32rmatE _dddddmk) :: a12a20a33rmatE _dddddmk) :: a12a21a30rmatE _dddddmk) :: a12a21a31rmatE _dddddmk) :: a12a21a32rmatE _dddddmk) :: a12a21a33rmatE _dddddmk) :: a12a22a30rmatE _dddddmk) :: a12a22a31rmatE _dddddmk) :: a12a22a32rmatE _dddddmk) :: a12a22a33rmatE _dddddmk) :: a12a23a30rmatE _dddddmk) :: a12a23a31rmatE _dddddmk) :: a12a23a32rmatE _dddddmk) :: a12a23a33rmatE _dddddmk) :: a13a20a30rmatE _dddddmk) :: a13a20a31rmatE _dddddmk) :: a13a20a32rmatE _dddddmk) :: a13a20a33rmatE _dddddmk) :: a13a21a30rmatE _dddddmk) :: a13a21a31rmatE _dddddmk) :: a13a21a32rmatE _dddddmk) :: a13a21a33rmatE _dddddmk) :: a13a22a30rmatE _dddddmk) :: a13a22a31rmatE _dddddmk) :: a13a22a32rmatE _dddddmk) :: a13a22a33rmatE _dddddmk) :: a13a23a30rmatE _dddddmk) :: a13a23a31rmatE _dddddmk) :: a13a23a32rmatE _dddddmk) :: a13a23a33ddrmatE h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!r _h Initialisedn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!rrmatE _CALL substart('p2m_interp_mp4',t0,h! ))rrmatE _topo => ppm_topo(topoid)%tdd h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!r _h Mesh spacingdn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!rs_w__KI==__SINGLE_PRECISION E _min_phys => topo%min_physsrmatE max_phys => topo%max_physsrclif__KI==__DOUBLE_PRECISION E _min_phys => topo%min_physdrmatE max_phys => topo%max_physdrc!Fords_w__KI==__SINGLE_PRECISION E _myeps = ppm_myepssrmatE _min_Ie) => topo%min_subsd max_Ie) => topo%max_subsdclif__KI==__DOUBLE_PRECISION E _myeps = ppm_myepsdrmatE _min_Ie) => topo%min_subdd max_Ie) => topo%max_subdrc!Fordd dxxi NT1.0_mk/dx(1)d dxyi NT1.0_mk/dx(2) IF(dim.EQ.3) dxzi NT1.0_mk/dx(3) d #if__DIME ==__3Dd ! o r=Ie) = 1,topo%nIe) ied d#if__MODE ==__VECddmatE _! h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn h Ulrbll = v asionsofor 3-(((. LsdmatE _! h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn IF (lda .EQ. 3) THENdn dIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn VSiq = ied_Ie)(iIe),ip) d Vx01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ Vx02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ Vx03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn VSip10INT(NT(x01)dn VSip20INT(NT(x02)dn VSip30INT(NT(x03)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd Vip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd Vip13p11I+ 2d ip23p21I+ 2d ip33p31 + 2dd Vxp1x01-dddddp10,mk d xp2x02-dddddp20,mk d xp3x03-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33 d a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rma a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rma a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rma a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rma a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30 NTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE _ a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rma a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rma a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30 NTa13*a20*a30rmatE _ a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rma a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rma a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dds_wdeNOMICROINSTRUCTIONSrmatE _field_up(1,ip10,ip20,ip30,iIe))=field_up(1,ip10,ip20,ip30,iIe))+&rmatE _&a10a20a30*up(1,iq)rmatE _field_up(2,ip10,ip20,ip30,iIe))=field_up(2,ip10,ip20,ip30,iIe))+&rmatE _&a10a20a30*up(2,iq)rmatE _field_up(3,ip10,ip20,ip30,iIe))=field_up(3,ip10,ip20,ip30,iIe))+&rmatE _&a10a20a30*up(3,iq)rmatE _field_up(1,ip11,ip20,ip30,iIe))=field_up(1,ip11,ip20,ip30,iIe))+&rmatE &a11a20a30*up(1,iq)rmatE _field_up(2,ip11,ip20,ip30,iIe))=field_up(2,ip11,ip20,ip30,iIe))+&rmatE _&a11a20a30*up(2,iq)rmatE _field_up(3,ip11,ip20,ip30,iIe))=field_up(3,ip11,ip20,ip30,iIe))+&rmatE _&a11a20a30*up(3,iq)rmatE _field_up(1,ip12,ip20,ip30,iIe))=field_up(1,ip12,ip20,ip30,iIe))+&rmatE _&a12a20a30*up(1,iq)rmatE _field_up(2,ip12,ip20,ip30,iIe))=field_up(2,ip12,ip20,ip30,iIe))+&rmatE _&a12a20a30*up(2,iq)rmatE _field_up(3,ip12,ip20,ip30,iIe))=field_up(3,ip12,ip20,ip30,iIe))+&rmatE _&a12a20a30*up(3,iq)rmatE _field_up(1,ip13,ip20,ip30,iIe))=field_up(1,ip13,ip20,ip30,iIe))+&rmatE _&a13a20a30*up(1,iq)rmatE _field_up(2,ip13,ip20,ip30,iIe))=field_up(2,ip13,ip20,ip30,iIe))+&rmatE _&a13a20a30*up(2,iq)rmatE _field_up(3,ip13,ip20,ip30,iIe))=field_up(3,ip13,ip20,ip30,iIe))+&rmatE _&a13a20a30*up(3,iq)rmatE _field_up(1,ip10,ip21,ip30,iIe))=field_up(1,ip10,ip21,ip30,iIe))+&rmatE &a10a21a30*up(1,iq)rmatE _field_up(2,ip10,ip21,ip30,iIe))=field_up(2,ip10,ip21,ip30,iIe))+&rmatE _&a10a21a30*up(2,iq)rmatE _field_up(3,ip10,ip21,ip30,iIe))=field_up(3,ip10,ip21,ip30,iIe))+&rmatE _&a10a21a30*up(3,iq)rmatE _field_up(1,ip11,ip21,ip30,iIe))=field_up(1,ip11,ip21,ip30,iIe))+&rmatE &a11a21a30*up(1,iq)rmatE _field_up(2,ip11,ip21,ip30,iIe))=field_up(2,ip11,ip21,ip30,iIe))+&rmatE _&a11a21a30*up(2,iq)rmatE _field_up(3,ip11,ip21,ip30,iIe))=field_up(3,ip11,ip21,ip30,iIe))+&rmatE _&a11a21a30*up(3,iq)rmatE _field_up(1,ip12,ip21,ip30,iIe))=field_up(1,ip12,ip21,ip30,iIe))+&rmatE _&a12a21a30*up(1,iq)rmatE _field_up(2,ip12,ip21,ip30,iIe))=field_up(2,ip12,ip21,ip30,iIe))+&rmatE _&a12a21a30*up(2,iq)rmatE _field_up(3,ip12,ip21,ip30,iIe))=field_up(3,ip12,ip21,ip30,iIe))+&rmatE _&a12a21a30*up(3,iq)rmatE _field_up(1,ip13,ip21,ip30,iIe))=field_up(1,ip13,ip21,ip30,iIe))+&rmatE _&a13a21a30*up(1,iq)rmatE _field_up(2,ip13,ip21,ip30,iIe))=field_up(2,ip13,ip21,ip30,iIe))+&rmatE _&a13a21a30*up(2,iq)rmatE _field_up(3,ip13,ip21,ip30,iIe))=field_up(3,ip13,ip21,ip30,iIe))+&rmatE _&a13a21a30*up(3,iq)rmatE _field_up(1,ip10,ip22,ip30,iIe))=field_up(1,ip10,ip22,ip30,iIe))+&rmatE _&a10a22a30*up(1,iq)rmatE _field_up(2,ip10,ip22,ip30,iIe))=field_up(2,ip10,ip22,ip30,iIe))+&rmatE _&a10a22a30*up(2,iq)rmatE _field_up(3,ip10,ip22,ip30,iIe))=field_up(3,ip10,ip22,ip30,iIe))+&rmatE _&a10a22a30*up(3,iq)rmatE _field_up(1,ip11,ip22,ip30,iIe))=field_up(1,ip11,ip22,ip30,iIe))+&rmatE _&a11a22a30*up(1,iq)rmatE _field_up(2,ip11,ip22,ip30,iIe))=field_up(2,ip11,ip22,ip30,iIe))+&rmatE _&a11a22a30*up(2,iq)rmatE _field_up(3,ip11,ip22,ip30,iIe))=field_up(3,ip11,ip22,ip30,iIe))+&rmatE _&a11a22a30*up(3,iq)rmatE _field_up(1,ip12,ip22,ip30,iIe))=field_up(1,ip12,ip22,ip30,iIe))+&rmatE _&a12a22a30*up(1,iq)rmatE _field_up(2,ip12,ip22,ip30,iIe))=field_up(2,ip12,ip22,ip30,iIe))+&rmatE _&a12a22a30*up(2,iq)rmatE _field_up(3,ip12,ip22,ip30,iIe))=field_up(3,ip12,ip22,ip30,iIe))+&rmatE _&a12a22a30*up(3,iq)rmatE _field_up(1,ip13,ip22,ip30,iIe))=field_up(1,ip13,ip22,ip30,iIe))+&rmatE _&a13a22a30*up(1,iq)rmatE _field_up(2,ip13,ip22,ip30,iIe))=field_up(2,ip13,ip22,ip30,iIe))+&rmatE _&a13a22a30*up(2,iq)rmatE _field_up(3,ip13,ip22,ip30,iIe))=field_up(3,ip13,ip22,ip30,iIe))+&rmatE _&a13a22a30*up(3,iq)rmatE _field_up(1,ip10,ip23,ip30,iIe))=field_up(1,ip10,ip23,ip30,iIe))+&rmatE _&a10a23a30*up(1,iq)rmatE _field_up(2,ip10,ip23,ip30,iIe))=field_up(2,ip10,ip23,ip30,iIe))+&rmatE _&a10a23a30*up(2,iq)rmatE _field_up(3,ip10,ip23,ip30,iIe))=field_up(3,ip10,ip23,ip30,iIe))+&rmatE _&a10a23a30*up(3,iq)rmatE _field_up(1,ip11,ip23,ip30,iIe))=field_up(1,ip11,ip23,ip30,iIe))+&rmatE _&a11a23a30*up(1,iq)rmatE _field_up(2,ip11,ip23,ip30,iIe))=field_up(2,ip11,ip23,ip30,iIe))+&rmatE _&a11a23a30*up(2,iq)rmatE _field_up(3,ip11,ip23,ip30,iIe))=field_up(3,ip11,ip23,ip30,iIe))+&rmatE _&a11a23a30*up(3,iq)rmatE _field_up(1,ip12,ip23,ip30,iIe))=field_up(1,ip12,ip23,ip30,iIe))+&rmatE _&a12a23a30*up(1,iq)rmatE _field_up(2,ip12,ip23,ip30,iIe))=field_up(2,ip12,ip23,ip30,iIe))+&rmatE _&a12a23a30*up(2,iq)rmatE _field_up(3,ip12,ip23,ip30,iIe))=field_up(3,ip12,ip23,ip30,iIe))+&rmatE _&a12a23a30*up(3,iq)rmatE _field_up(1,ip13,ip23,ip30,iIe))=field_up(1,ip13,ip23,ip30,iIe))+&rmatE _&a13a23a30*up(1,iq)rmatE _field_up(2,ip13,ip23,ip30,iIe))=field_up(2,ip13,ip23,ip30,iIe))+&rmatE _&a13a23a30*up(2,iq)rmatE _field_up(3,ip13,ip23,ip30,iIe))=field_up(3,ip13,ip23,ip30,iIe))+&rmatE _&a13a23a30*up(3,iq)rmatE _field_up(1,ip10,ip20,ip31,iIe))=field_up(1,ip10,ip20,ip31,iIe))+&rmatE _&a10a20a31*up(1,iq)rmatE _field_up(2,ip10,ip20,ip31,iIe))=field_up(2,ip10,ip20,ip31,iIe))+&rmatE _&a10a20a31*up(2,iq)rmatE _field_up(3,ip10,ip20,ip31,iIe))=field_up(3,ip10,ip20,ip31,iIe))+&rmatE _&a10a20a31*up(3,iq)rmatE _field_up(1,ip11,ip20,ip31,iIe))=field_up(1,ip11,ip20,ip31,iIe))+&rmatE &a11a20a31*up(1,iq)rmatE _field_up(2,ip11,ip20,ip31,iIe))=field_up(2,ip11,ip20,ip31,iIe))+&rmatE &a11a20a31*up(2,iq)rmatE _field_up(3,ip11,ip20,ip31,iIe))=field_up(3,ip11,ip20,ip31,iIe))+&rmatE &a11a20a31*up(3,iq)rmatE _field_up(1,ip12,ip20,ip31,iIe))=field_up(1,ip12,ip20,ip31,iIe))+&rmatE _&a12a20a31*up(1,iq)rmatE _field_up(2,ip12,ip20,ip31,iIe))=field_up(2,ip12,ip20,ip31,iIe))+&rmatE _&a12a20a31*up(2,iq)rmatE _field_up(3,ip12,ip20,ip31,iIe))=field_up(3,ip12,ip20,ip31,iIe))+&rmatE _&a12a20a31*up(3,iq)rmatE _field_up(1,ip13,ip20,ip31,iIe))=field_up(1,ip13,ip20,ip31,iIe))+&rmatE _&a13a20a31*up(1,iq)rmatE _field_up(2,ip13,ip20,ip31,iIe))=field_up(2,ip13,ip20,ip31,iIe))+&rmatE _&a13a20a31*up(2,iq)rmatE _field_up(3,ip13,ip20,ip31,iIe))=field_up(3,ip13,ip20,ip31,iIe))+&rmatE _&a13a20a31*up(3,iq)rmatE _field_up(1,ip10,ip21,ip31,iIe))=field_up(1,ip10,ip21,ip31,iIe))+&rmatE _&a10a21a31*up(1,iq)rmatE _field_up(2,ip10,ip21,ip31,iIe))=field_up(2,ip10,ip21,ip31,iIe))+&rmatE _&a10a21a31*up(2,iq)rmatE _field_up(3,ip10,ip21,ip31,iIe))=field_up(3,ip10,ip21,ip31,iIe))+&rmatE _&a10a21a31*up(3,iq)rmatE _field_up(1,ip11,ip21,ip31,iIe))=field_up(1,ip11,ip21,ip31,iIe))+&rmatE _&a11a21a31*up(1,iq)rmatE _field_up(2,ip11,ip21,ip31,iIe))=field_up(2,ip11,ip21,ip31,iIe))+&rmatE _&a11a21a31*up(2,iq)rmatE _field_up(3,ip11,ip21,ip31,iIe))=field_up(3,ip11,ip21,ip31,iIe))+&rmatE _&a11a21a31*up(3,iq)rmatE _field_up(1,ip12,ip21,ip31,iIe))=field_up(1,ip12,ip21,ip31,iIe))+&rmatE _&a12a21a31*up(1,iq)rmatE _field_up(2,ip12,ip21,ip31,iIe))=field_up(2,ip12,ip21,ip31,iIe))+&rmatE _&a12a21a31*up(2,iq)rmatE _field_up(3,ip12,ip21,ip31,iIe))=field_up(3,ip12,ip21,ip31,iIe))+&rmatE _&a12a21a31*up(3,iq)rmatE _field_up(1,ip13,ip21,ip31,iIe))=field_up(1,ip13,ip21,ip31,iIe))+&rmatE _&a13a21a31*up(1,iq)rmatE _field_up(2,ip13,ip21,ip31,iIe))=field_up(2,ip13,ip21,ip31,iIe))+&rmatE _&a13a21a31*up(2,iq)rmatE _field_up(3,ip13,ip21,ip31,iIe))=field_up(3,ip13,ip21,ip31,iIe))+&rmatE _&a13a21a31*up(3,iq)rmatE _field_up(1,ip10,ip22,ip31,iIe))=field_up(1,ip10,ip22,ip31,iIe))+&rmatE _&a10a22a31*up(1,iq)rmatE _field_up(2,ip10,ip22,ip31,iIe))=field_up(2,ip10,ip22,ip31,iIe))+&rmatE _&a10a22a31*up(2,iq)rmatE _field_up(3,ip10,ip22,ip31,iIe))=field_up(3,ip10,ip22,ip31,iIe))+&rmatE _&a10a22a31*up(3,iq)rmatE _field_up(1,ip11,ip22,ip31,iIe))=field_up(1,ip11,ip22,ip31,iIe))+&rmatE _&a11a22a31*up(1,iq)rmatE _field_up(2,ip11,ip22,ip31,iIe))=field_up(2,ip11,ip22,ip31,iIe))+&rmatE _&a11a22a31*up(2,iq)rmatE _field_up(3,ip11,ip22,ip31,iIe))=field_up(3,ip11,ip22,ip31,iIe))+&rmatE _&a11a22a31*up(3,iq)rmatE _field_up(1,ip12,ip22,ip31,iIe))=field_up(1,ip12,ip22,ip31,iIe))+&rmatE _&a12a22a31*up(1,iq)rmatE _field_up(2,ip12,ip22,ip31,iIe))=field_up(2,ip12,ip22,ip31,iIe))+&rmatE _&a12a22a31*up(2,iq)rmatE _field_up(3,ip12,ip22,ip31,iIe))=field_up(3,ip12,ip22,ip31,iIe))+&rmatE _&a12a22a31*up(3,iq)rmatE _field_up(1,ip13,ip22,ip31,iIe))=field_up(1,ip13,ip22,ip31,iIe))+&rmatE _&a13a22a31*up(1,iq)rmatE _field_up(2,ip13,ip22,ip31,iIe))=field_up(2,ip13,ip22,ip31,iIe))+&rmatE _&a13a22a31*up(2,iq)rmatE _field_up(3,ip13,ip22,ip31,iIe))=field_up(3,ip13,ip22,ip31,iIe))+&rmatE _&a13a22a31*up(3,iq)rmatE _field_up(1,ip10,ip23,ip31,iIe))=field_up(1,ip10,ip23,ip31,iIe))+&rmatE _&a10a23a31*up(1,iq)rmatE _field_up(2,ip10,ip23,ip31,iIe))=field_up(2,ip10,ip23,ip31,iIe))+&rmatE _&a10a23a31*up(2,iq)rmatE _field_up(3,ip10,ip23,ip31,iIe))=field_up(3,ip10,ip23,ip31,iIe))+&rmatE _&a10a23a31*up(3,iq)rmatE _field_up(1,ip11,ip23,ip31,iIe))=field_up(1,ip11,ip23,ip31,iIe))+&rmatE _&a11a23a31*up(1,iq)rmatE _field_up(2,ip11,ip23,ip31,iIe))=field_up(2,ip11,ip23,ip31,iIe))+&rmatE _&a11a23a31*up(2,iq)rmatE _field_up(3,ip11,ip23,ip31,iIe))=field_up(3,ip11,ip23,ip31,iIe))+&rmatE _&a11a23a31*up(3,iq)rmatE _field_up(1,ip12,ip23,ip31,iIe))=field_up(1,ip12,ip23,ip31,iIe))+&rmatE _&a12a23a31*up(1,iq)rmatE _field_up(2,ip12,ip23,ip31,iIe))=field_up(2,ip12,ip23,ip31,iIe))+&rmatE _&a12a23a31*up(2,iq)rmatE _field_up(3,ip12,ip23,ip31,iIe))=field_up(3,ip12,ip23,ip31,iIe))+&rmatE _&a12a23a31*up(3,iq)rmatE _field_up(1,ip13,ip23,ip31,iIe))=field_up(1,ip13,ip23,ip31,iIe))+&rmatE _&a13a23a31*up(1,iq)rmatE _field_up(2,ip13,ip23,ip31,iIe))=field_up(2,ip13,ip23,ip31,iIe))+&rmatE _&a13a23a31*up(2,iq)rmatE _field_up(3,ip13,ip23,ip31,iIe))=field_up(3,ip13,ip23,ip31,iIe))+&rmatE _&a13a23a31*up(3,iq)rmatE _field_up(1,ip10,ip20,ip32,iIe))=field_up(1,ip10,ip20,ip32,iIe))+&rmatE _&a10a20a32*up(1,iq)rmatE _field_up(2,ip10,ip20,ip32,iIe))=field_up(2,ip10,ip20,ip32,iIe))+&rmatE _&a10a20a32*up(2,iq)rmatE _field_up(3,ip10,ip20,ip32,iIe))=field_up(3,ip10,ip20,ip32,iIe))+&rmatE _&a10a20a32*up(3,iq)rmatE _field_up(1,ip11,ip20,ip32,iIe))=field_up(1,ip11,ip20,ip32,iIe))+&rmatE &a11a20a32*up(1,iq)rmatE _field_up(2,ip11,ip20,ip32,iIe))=field_up(2,ip11,ip20,ip32,iIe))+&rmatE &a11a20a32*up(2,iq)rmatE _field_up(3,ip11,ip20,ip32,iIe))=field_up(3,ip11,ip20,ip32,iIe))+&rmatE &a11a20a32*up(3,iq)rmatE _field_up(1,ip12,ip20,ip32,iIe))=field_up(1,ip12,ip20,ip32,iIe))+&rmatE _&a12a20a32*up(1,iq)rmatE _field_up(2,ip12,ip20,ip32,iIe))=field_up(2,ip12,ip20,ip32,iIe))+&rmatE _&a12a20a32*up(2,iq)rmatE _field_up(3,ip12,ip20,ip32,iIe))=field_up(3,ip12,ip20,ip32,iIe))+&rmatE _&a12a20a32*up(3,iq)rmatE _field_up(1,ip13,ip20,ip32,iIe))=field_up(1,ip13,ip20,ip32,iIe))+&rmatE _&a13a20a32*up(1,iq)rmatE _field_up(2,ip13,ip20,ip32,iIe))=field_up(2,ip13,ip20,ip32,iIe))+&rmatE _&a13a20a32*up(2,iq)rmatE _field_up(3,ip13,ip20,ip32,iIe))=field_up(3,ip13,ip20,ip32,iIe))+&rmatE _&a13a20a32*up(3,iq)rmatE _field_up(1,ip10,ip21,ip32,iIe))=field_up(1,ip10,ip21,ip32,iIe))+&rmatE _&a10a21a32*up(1,iq)rmatE _field_up(2,ip10,ip21,ip32,iIe))=field_up(2,ip10,ip21,ip32,iIe))+&rmatE _&a10a21a32*up(2,iq)rmatE _field_up(3,ip10,ip21,ip32,iIe))=field_up(3,ip10,ip21,ip32,iIe))+&rmatE _&a10a21a32*up(3,iq)rmatE _field_up(1,ip11,ip21,ip32,iIe))=field_up(1,ip11,ip21,ip32,iIe))+&rmatE _&a11a21a32*up(1,iq)rmatE _field_up(2,ip11,ip21,ip32,iIe))=field_up(2,ip11,ip21,ip32,iIe))+&rmatE _&a11a21a32*up(2,iq)rmatE _field_up(3,ip11,ip21,ip32,iIe))=field_up(3,ip11,ip21,ip32,iIe))+&rmatE _&a11a21a32*up(3,iq)rmatE _field_up(1,ip12,ip21,ip32,iIe))=field_up(1,ip12,ip21,ip32,iIe))+&rmatE _&a12a21a32*up(1,iq)rmatE _field_up(2,ip12,ip21,ip32,iIe))=field_up(2,ip12,ip21,ip32,iIe))+&rmatE _&a12a21a32*up(2,iq)rmatE _field_up(3,ip12,ip21,ip32,iIe))=field_up(3,ip12,ip21,ip32,iIe))+&rmatE _&a12a21a32*up(3,iq)rmatE _field_up(1,ip13,ip21,ip32,iIe))=field_up(1,ip13,ip21,ip32,iIe))+&rmatE _&a13a21a32*up(1,iq)rmatE _field_up(2,ip13,ip21,ip32,iIe))=field_up(2,ip13,ip21,ip32,iIe))+&rmatE _&a13a21a32*up(2,iq)rmatE _field_up(3,ip13,ip21,ip32,iIe))=field_up(3,ip13,ip21,ip32,iIe))+&rmatE _&a13a21a32*up(3,iq)rmatE _field_up(1,ip10,ip22,ip32,iIe))=field_up(1,ip10,ip22,ip32,iIe))+&rmatE _&a10a22a32*up(1,iq)rmatE _field_up(2,ip10,ip22,ip32,iIe))=field_up(2,ip10,ip22,ip32,iIe))+&rmatE _&a10a22a32*up(2,iq)rmatE _field_up(3,ip10,ip22,ip32,iIe))=field_up(3,ip10,ip22,ip32,iIe))+&rmatE _&a10a22a32*up(3,iq)rmatE _field_up(1,ip11,ip22,ip32,iIe))=field_up(1,ip11,ip22,ip32,iIe))+&rmatE _&a11a22a32*up(1,iq)rmatE _field_up(2,ip11,ip22,ip32,iIe))=field_up(2,ip11,ip22,ip32,iIe))+&rmatE _&a11a22a32*up(2,iq)rmatE _field_up(3,ip11,ip22,ip32,iIe))=field_up(3,ip11,ip22,ip32,iIe))+&rmatE _&a11a22a32*up(3,iq)rmatE _field_up(1,ip12,ip22,ip32,iIe))=field_up(1,ip12,ip22,ip32,iIe))+&rmatE _&a12a22a32*up(1,iq)rmatE _field_up(2,ip12,ip22,ip32,iIe))=field_up(2,ip12,ip22,ip32,iIe))+&rmatE _&a12a22a32*up(2,iq)rmatE _field_up(3,ip12,ip22,ip32,iIe))=field_up(3,ip12,ip22,ip32,iIe))+&rmatE _&a12a22a32*up(3,iq)rmatE _field_up(1,ip13,ip22,ip32,iIe))=field_up(1,ip13,ip22,ip32,iIe))+&rmatE _&a13a22a32*up(1,iq)rmatE _field_up(2,ip13,ip22,ip32,iIe))=field_up(2,ip13,ip22,ip32,iIe))+&rmatE _&a13a22a32*up(2,iq)rmatE _field_up(3,ip13,ip22,ip32,iIe))=field_up(3,ip13,ip22,ip32,iIe))+&rmatE _&a13a22a32*up(3,iq)rmatE _field_up(1,ip10,ip23,ip32,iIe))=field_up(1,ip10,ip23,ip32,iIe))+&rmatE _&a10a23a32*up(1,iq)rmatE _field_up(2,ip10,ip23,ip32,iIe))=field_up(2,ip10,ip23,ip32,iIe))+&rmatE _&a10a23a32*up(2,iq)rmatE _field_up(3,ip10,ip23,ip32,iIe))=field_up(3,ip10,ip23,ip32,iIe))+&rmatE _&a10a23a32*up(3,iq)rmatE _field_up(1,ip11,ip23,ip32,iIe))=field_up(1,ip11,ip23,ip32,iIe))+&rmatE _&a11a23a32*up(1,iq)rmatE _field_up(2,ip11,ip23,ip32,iIe))=field_up(2,ip11,ip23,ip32,iIe))+&rmatE _&a11a23a32*up(2,iq)rmatE _field_up(3,ip11,ip23,ip32,iIe))=field_up(3,ip11,ip23,ip32,iIe))+&rmatE _&a11a23a32*up(3,iq)rmatE _field_up(1,ip12,ip23,ip32,iIe))=field_up(1,ip12,ip23,ip32,iIe))+&rmatE _&a12a23a32*up(1,iq)rmatE _field_up(2,ip12,ip23,ip32,iIe))=field_up(2,ip12,ip23,ip32,iIe))+&rmatE _&a12a23a32*up(2,iq)rmatE _field_up(3,ip12,ip23,ip32,iIe))=field_up(3,ip12,ip23,ip32,iIe))+&rmatE _&a12a23a32*up(3,iq)rmatE _field_up(1,ip13,ip23,ip32,iIe))=field_up(1,ip13,ip23,ip32,iIe))+&rmatE _&a13a23a32*up(1,iq)rmatE _field_up(2,ip13,ip23,ip32,iIe))=field_up(2,ip13,ip23,ip32,iIe))+&rmatE _&a13a23a32*up(2,iq)rmatE _field_up(3,ip13,ip23,ip32,iIe))=field_up(3,ip13,ip23,ip32,iIe))+&rmatE _&a13a23a32*up(3,iq)rmatE _field_up(1,ip10,ip20,ip33,iIe))=field_up(1,ip10,ip20,ip33,iIe))+&rmatE _&a10a20a33*up(1,iq)rmatE _field_up(2,ip10,ip20,ip33,iIe))=field_up(2,ip10,ip20,ip33,iIe))+&rmatE _&a10a20a33*up(2,iq)rmatE _field_up(3,ip10,ip20,ip33,iIe))=field_up(3,ip10,ip20,ip33,iIe))+&rmatE _&a10a20a33*up(3,iq)rmatE _field_up(1,ip11,ip20,ip33,iIe))=field_up(1,ip11,ip20,ip33,iIe))+&rmatE &a11a20a33*up(1,iq)rmatE _field_up(2,ip11,ip20,ip33,iIe))=field_up(2,ip11,ip20,ip33,iIe))+&rmatE &a11a20a33*up(2,iq)rmatE _field_up(3,ip11,ip20,ip33,iIe))=field_up(3,ip11,ip20,ip33,iIe))+&rmatE &a11a20a33*up(3,iq)rmatE _field_up(1,ip12,ip20,ip33,iIe))=field_up(1,ip12,ip20,ip33,iIe))+&rmatE _&a12a20a33*up(1,iq)rmatE _field_up(2,ip12,ip20,ip33,iIe))=field_up(2,ip12,ip20,ip33,iIe))+&rmatE _&a12a20a33*up(2,iq)rmatE _field_up(3,ip12,ip20,ip33,iIe))=field_up(3,ip12,ip20,ip33,iIe))+&rmatE _&a12a20a33*up(3,iq)rmatE _field_up(1,ip13,ip20,ip33,iIe))=field_up(1,ip13,ip20,ip33,iIe))+&rmatE _&a13a20a33*up(1,iq)rmatE _field_up(2,ip13,ip20,ip33,iIe))=field_up(2,ip13,ip20,ip33,iIe))+&rmatE _&a13a20a33*up(2,iq)rmatE _field_up(3,ip13,ip20,ip33,iIe))=field_up(3,ip13,ip20,ip33,iIe))+&rmatE _&a13a20a33*up(3,iq)rmatE _field_up(1,ip10,ip21,ip33,iIe))=field_up(1,ip10,ip21,ip33,iIe))+&rmatE _&a10a21a33*up(1,iq)rmatE _field_up(2,ip10,ip21,ip33,iIe))=field_up(2,ip10,ip21,ip33,iIe))+&rmatE _&a10a21a33*up(2,iq)rmatE _field_up(3,ip10,ip21,ip33,iIe))=field_up(3,ip10,ip21,ip33,iIe))+&rmatE _&a10a21a33*up(3,iq)rmatE _field_up(1,ip11,ip21,ip33,iIe))=field_up(1,ip11,ip21,ip33,iIe))+&rmatE _&a11a21a33*up(1,iq)rmatE _field_up(2,ip11,ip21,ip33,iIe))=field_up(2,ip11,ip21,ip33,iIe))+&rmatE _&a11a21a33*up(2,iq)rmatE _field_up(3,ip11,ip21,ip33,iIe))=field_up(3,ip11,ip21,ip33,iIe))+&rmatE _&a11a21a33*up(3,iq)rmatE _field_up(1,ip12,ip21,ip33,iIe))=field_up(1,ip12,ip21,ip33,iIe))+&rmatE _&a12a21a33*up(1,iq)rmatE _field_up(2,ip12,ip21,ip33,iIe))=field_up(2,ip12,ip21,ip33,iIe))+&rmatE _&a12a21a33*up(2,iq)rmatE _field_up(3,ip12,ip21,ip33,iIe))=field_up(3,ip12,ip21,ip33,iIe))+&rmatE _&a12a21a33*up(3,iq)rmatE _field_up(1,ip13,ip21,ip33,iIe))=field_up(1,ip13,ip21,ip33,iIe))+&rmatE _&a13a21a33*up(1,iq)rmatE _field_up(2,ip13,ip21,ip33,iIe))=field_up(2,ip13,ip21,ip33,iIe))+&rmatE _&a13a21a33*up(2,iq)rmatE _field_up(3,ip13,ip21,ip33,iIe))=field_up(3,ip13,ip21,ip33,iIe))+&rmatE _&a13a21a33*up(3,iq)rmatE _field_up(1,ip10,ip22,ip33,iIe))=field_up(1,ip10,ip22,ip33,iIe))+&rmatE _&a10a22a33*up(1,iq)rmatE _field_up(2,ip10,ip22,ip33,iIe))=field_up(2,ip10,ip22,ip33,iIe))+&rmatE _&a10a22a33*up(2,iq)rmatE _field_up(3,ip10,ip22,ip33,iIe))=field_up(3,ip10,ip22,ip33,iIe))+&rmatE _&a10a22a33*up(3,iq)rmatE _field_up(1,ip11,ip22,ip33,iIe))=field_up(1,ip11,ip22,ip33,iIe))+&rmatE _&a11a22a33*up(1,iq)rmatE _field_up(2,ip11,ip22,ip33,iIe))=field_up(2,ip11,ip22,ip33,iIe))+&rmatE _&a11a22a33*up(2,iq)rmatE _field_up(3,ip11,ip22,ip33,iIe))=field_up(3,ip11,ip22,ip33,iIe))+&rmatE _&a11a22a33*up(3,iq)rmatE _field_up(1,ip12,ip22,ip33,iIe))=field_up(1,ip12,ip22,ip33,iIe))+&rmatE _&a12a22a33*up(1,iq)rmatE _field_up(2,ip12,ip22,ip33,iIe))=field_up(2,ip12,ip22,ip33,iIe))+&rmatE _&a12a22a33*up(2,iq)rmatE _field_up(3,ip12,ip22,ip33,iIe))=field_up(3,ip12,ip22,ip33,iIe))+&rmatE _&a12a22a33*up(3,iq)rmatE _field_up(1,ip13,ip22,ip33,iIe))=field_up(1,ip13,ip22,ip33,iIe))+&rmatE _&a13a22a33*up(1,iq)rmatE _field_up(2,ip13,ip22,ip33,iIe))=field_up(2,ip13,ip22,ip33,iIe))+&rmatE _&a13a22a33*up(2,iq)rmatE _field_up(3,ip13,ip22,ip33,iIe))=field_up(3,ip13,ip22,ip33,iIe))+&rmatE _&a13a22a33*up(3,iq)rmatE _field_up(1,ip10,ip23,ip33,iIe))=field_up(1,ip10,ip23,ip33,iIe))+&rmatE _&a10a23a33*up(1,iq)rmatE _field_up(2,ip10,ip23,ip33,iIe))=field_up(2,ip10,ip23,ip33,iIe))+&rmatE _&a10a23a33*up(2,iq)rmatE _field_up(3,ip10,ip23,ip33,iIe))=field_up(3,ip10,ip23,ip33,iIe))+&rmatE _&a10a23a33*up(3,iq)rmatE _field_up(1,ip11,ip23,ip33,iIe))=field_up(1,ip11,ip23,ip33,iIe))+&rmatE _&a11a23a33*up(1,iq)rmatE _field_up(2,ip11,ip23,ip33,iIe))=field_up(2,ip11,ip23,ip33,iIe))+&rmatE _&a11a23a33*up(2,iq)rmatE _field_up(3,ip11,ip23,ip33,iIe))=field_up(3,ip11,ip23,ip33,iIe))+&rmatE _&a11a23a33*up(3,iq)rmatE _field_up(1,ip12,ip23,ip33,iIe))=field_up(1,ip12,ip23,ip33,iIe))+&rmatE _&a12a23a33*up(1,iq)rmatE _field_up(2,ip12,ip23,ip33,iIe))=field_up(2,ip12,ip23,ip33,iIe))+&rmatE _&a12a23a33*up(2,iq)rmatE _field_up(3,ip12,ip23,ip33,iIe))=field_up(3,ip12,ip23,ip33,iIe))+&rmatE _&a12a23a33*up(3,iq)rmatE _field_up(1,ip13,ip23,ip33,iIe))=field_up(1,ip13,ip23,ip33,iIe))+&rmatE _&a13a23a33*up(1,iq)rmatE _field_up(2,ip13,ip23,ip33,iIe))=field_up(2,ip13,ip23,ip33,iIe))+&rmatE _&a13a23a33*up(2,iq)rmatE _field_up(3,ip13,ip23,ip33,iIe))=field_up(3,ip13,ip23,ip33,iIe))+&rmatE _&a13a23a33*up(3,iq)r#elsedn _field_up(1:3,ip10,ip20,ip30,iIe))=field_up(1:3,ip10,ip20,ip30,iIe))+&rmatE _&a10a20a30*up(1:3,iq)rmatE _field_up(1:3,ip11,ip20,ip30,iIe))=field_up(1:3,ip11,ip20,ip30,iIe))+&rmatE &a11a20a30*up(1:3,iq)rmatE _field_up(1:3,ip12,ip20,ip30,iIe))=field_up(1:3,ip12,ip20,ip30,iIe))+&rmatE _&a12a20a30*up(1:3,iq)rmatE _field_up(1:3,ip13,ip20,ip30,iIe))=field_up(1:3,ip13,ip20,ip30,iIe))+&rmatE _&a13a20a30*up(1:3,iq)rmatE _field_up(1:3,ip10,ip21,ip30,iIe))=field_up(1:3,ip10,ip21,ip30,iIe))+&rmatE _&a10a21a30*up(1:3,iq)rmatE _field_up(1:3,ip11,ip21,ip30,iIe))=field_up(1:3,ip11,ip21,ip30,iIe))+&rmatE _&a11a21a30*up(1:3,iq)rmatE _field_up(1:3,ip12,ip21,ip30,iIe))=field_up(1:3,ip12,ip21,ip30,iIe))+&rmatE _&a12a21a30*up(1:3,iq)rmatE _field_up(1:3,ip13,ip21,ip30,iIe))=field_up(1:3,ip13,ip21,ip30,iIe))+&rmatE _&a13a21a30*up(1:3,iq)rmatE _field_up(1:3,ip10,ip22,ip30,iIe))=field_up(1:3,ip10,ip22,ip30,iIe))+&rmatE _&a10a22a30*up(1:3,iq)rmatE _field_up(1:3,ip11,ip22,ip30,iIe))=field_up(1:3,ip11,ip22,ip30,iIe))+&rmatE _&a11a22a30*up(1:3,iq)rmatE _field_up(1:3,ip12,ip22,ip30,iIe))=field_up(1:3,ip12,ip22,ip30,iIe))+&rmatE _&a12a22a30*up(1:3,iq)rmatE _field_up(1:3,ip13,ip22,ip30,iIe))=field_up(1:3,ip13,ip22,ip30,iIe))+&rmatE _&a13a22a30*up(1:3,iq)rmatE _field_up(1:3,ip10,ip23,ip30,iIe))=field_up(1:3,ip10,ip23,ip30,iIe))+&rmatE _&a10a23a30*up(1:3,iq)rmatE _field_up(1:3,ip11,ip23,ip30,iIe))=field_up(1:3,ip11,ip23,ip30,iIe))+&rmatE _&a11a23a30*up(1:3,iq)rmatE _field_up(1:3,ip12,ip23,ip30,iIe))=field_up(1:3,ip12,ip23,ip30,iIe))+&rmatE _&a12a23a30*up(1:3,iq)rmatE _field_up(1:3,ip13,ip23,ip30,iIe))=field_up(1:3,ip13,ip23,ip30,iIe))+&rmatE _&a13a23a30*up(1:3,iq)rmatE _field_up(1:3,ip10,ip20,ip31,iIe))=field_up(1:3,ip10,ip20,ip31,iIe))+&rmatE _&a10a20a31*up(1:3,iq)rmatE _field_up(1:3,ip11,ip20,ip31,iIe))=field_up(1:3,ip11,ip20,ip31,iIe))+&rmatE &a11a20a31*up(1:3,iq)rmatE _field_up(1:3,ip12,ip20,ip31,iIe))=field_up(1:3,ip12,ip20,ip31,iIe))+&rmatE _&a12a20a31*up(1:3,iq)rmatE _field_up(1:3,ip13,ip20,ip31,iIe))=field_up(1:3,ip13,ip20,ip31,iIe))+&rmatE _&a13a20a31*up(1:3,iq)rmatE _field_up(1:3,ip10,ip21,ip31,iIe))=field_up(1:3,ip10,ip21,ip31,iIe))+&rmatE _&a10a21a31*up(1:3,iq)rmatE _field_up(1:3,ip11,ip21,ip31,iIe))=field_up(1:3,ip11,ip21,ip31,iIe))+&rmatE _&a11a21a31*up(1:3,iq)rmatE _field_up(1:3,ip12,ip21,ip31,iIe))=field_up(1:3,ip12,ip21,ip31,iIe))+&rmatE _&a12a21a31*up(1:3,iq)rmatE _field_up(1:3,ip13,ip21,ip31,iIe))=field_up(1:3,ip13,ip21,ip31,iIe))+&rmatE _&a13a21a31*up(1:3,iq)rmatE _field_up(1:3,ip10,ip22,ip31,iIe))=field_up(1:3,ip10,ip22,ip31,iIe))+&rmatE _&a10a22a31*up(1:3,iq)rmatE _field_up(1:3,ip11,ip22,ip31,iIe))=field_up(1:3,ip11,ip22,ip31,iIe))+&rmatE _&a11a22a31*up(1:3,iq)rmatE _field_up(1:3,ip12,ip22,ip31,iIe))=field_up(1:3,ip12,ip22,ip31,iIe))+&rmatE _&a12a22a31*up(1:3,iq)rmatE _field_up(1:3,ip13,ip22,ip31,iIe))=field_up(1:3,ip13,ip22,ip31,iIe))+&rmatE _&a13a22a31*up(1:3,iq)rmatE _field_up(1:3,ip10,ip23,ip31,iIe))=field_up(1:3,ip10,ip23,ip31,iIe))+&rmatE _&a10a23a31*up(1:3,iq)rmatE _field_up(1:3,ip11,ip23,ip31,iIe))=field_up(1:3,ip11,ip23,ip31,iIe))+&rmatE _&a11a23a31*up(1:3,iq)rmatE _field_up(1:3,ip12,ip23,ip31,iIe))=field_up(1:3,ip12,ip23,ip31,iIe))+&rmatE _&a12a23a31*up(1:3,iq)rmatE _field_up(1:3,ip13,ip23,ip31,iIe))=field_up(1:3,ip13,ip23,ip31,iIe))+&rmatE _&a13a23a31*up(1:3,iq)rmatE _field_up(1:3,ip10,ip20,ip32,iIe))=field_up(1:3,ip10,ip20,ip32,iIe))+&rmatE _&a10a20a32*up(1:3,iq)rmatE _field_up(1:3,ip11,ip20,ip32,iIe))=field_up(1:3,ip11,ip20,ip32,iIe))+&rmatE &a11a20a32*up(1:3,iq)rmatE _field_up(1:3,ip12,ip20,ip32,iIe))=field_up(1:3,ip12,ip20,ip32,iIe))+&rmatE _&a12a20a32*up(1:3,iq)rmatE _field_up(1:3,ip13,ip20,ip32,iIe))=field_up(1:3,ip13,ip20,ip32,iIe))+&rmatE _&a13a20a32*up(1:3,iq)rmatE _field_up(1:3,ip10,ip21,ip32,iIe))=field_up(1:3,ip10,ip21,ip32,iIe))+&rmatE _&a10a21a32*up(1:3,iq)rmatE _field_up(1:3,ip11,ip21,ip32,iIe))=field_up(1:3,ip11,ip21,ip32,iIe))+&rmatE _&a11a21a32*up(1:3,iq)rmatE _field_up(1:3,ip12,ip21,ip32,iIe))=field_up(1:3,ip12,ip21,ip32,iIe))+&rmatE _&a12a21a32*up(1:3,iq)rmatE _field_up(1:3,ip13,ip21,ip32,iIe))=field_up(1:3,ip13,ip21,ip32,iIe))+&rmatE _&a13a21a32*up(1:3,iq)rmatE _field_up(1:3,ip10,ip22,ip32,iIe))=field_up(1:3,ip10,ip22,ip32,iIe))+&rmatE _&a10a22a32*up(1:3,iq)rmatE _field_up(1:3,ip11,ip22,ip32,iIe))=field_up(1:3,ip11,ip22,ip32,iIe))+&rmatE _&a11a22a32*up(1:3,iq)rmatE _field_up(1:3,ip12,ip22,ip32,iIe))=field_up(1:3,ip12,ip22,ip32,iIe))+&rmatE _&a12a22a32*up(1:3,iq)rmatE _field_up(1:3,ip13,ip22,ip32,iIe))=field_up(1:3,ip13,ip22,ip32,iIe))+&rmatE _&a13a22a32*up(1:3,iq)rmatE _field_up(1:3,ip10,ip23,ip32,iIe))=field_up(1:3,ip10,ip23,ip32,iIe))+&rmatE _&a10a23a32*up(1:3,iq)rmatE _field_up(1:3,ip11,ip23,ip32,iIe))=field_up(1:3,ip11,ip23,ip32,iIe))+&rmatE _&a11a23a32*up(1:3,iq)rmatE _field_up(1:3,ip12,ip23,ip32,iIe))=field_up(1:3,ip12,ip23,ip32,iIe))+&rmatE _&a12a23a32*up(1:3,iq)rmatE _field_up(1:3,ip13,ip23,ip32,iIe))=field_up(1:3,ip13,ip23,ip32,iIe))+&rmatE _&a13a23a32*up(1:3,iq)rmatE _field_up(1:3,ip10,ip20,ip33,iIe))=field_up(1:3,ip10,ip20,ip33,iIe))+&rmatE _&a10a20a33*up(1:3,iq)rmatE _field_up(1:3,ip11,ip20,ip33,iIe))=field_up(1:3,ip11,ip20,ip33,iIe))+&rmatE &a11a20a33*up(1:3,iq)rmatE _field_up(1:3,ip12,ip20,ip33,iIe))=field_up(1:3,ip12,ip20,ip33,iIe))+&rmatE _&a12a20a33*up(1:3,iq)rmatE _field_up(1:3,ip13,ip20,ip33,iIe))=field_up(1:3,ip13,ip20,ip33,iIe))+&rmatE _&a13a20a33*up(1:3,iq)rmatE _field_up(1:3,ip10,ip21,ip33,iIe))=field_up(1:3,ip10,ip21,ip33,iIe))+&rmatE _&a10a21a33*up(1:3,iq)rmatE _field_up(1:3,ip11,ip21,ip33,iIe))=field_up(1:3,ip11,ip21,ip33,iIe))+&rmatE _&a11a21a33*up(1:3,iq)rmatE _field_up(1:3,ip12,ip21,ip33,iIe))=field_up(1:3,ip12,ip21,ip33,iIe))+&rmatE _&a12a21a33*up(1:3,iq)rmatE _field_up(1:3,ip13,ip21,ip33,iIe))=field_up(1:3,ip13,ip21,ip33,iIe))+&rmatE _&a13a21a33*up(1:3,iq)rmatE _field_up(1:3,ip10,ip22,ip33,iIe))=field_up(1:3,ip10,ip22,ip33,iIe))+&rmatE _&a10a22a33*up(1:3,iq)rmatE _field_up(1:3,ip11,ip22,ip33,iIe))=field_up(1:3,ip11,ip22,ip33,iIe))+&rmatE _&a11a22a33*up(1:3,iq)rmatE _field_up(1:3,ip12,ip22,ip33,iIe))=field_up(1:3,ip12,ip22,ip33,iIe))+&rmatE _&a12a22a33*up(1:3,iq)rmatE _field_up(1:3,ip13,ip22,ip33,iIe))=field_up(1:3,ip13,ip22,ip33,iIe))+&rmatE _&a13a22a33*up(1:3,iq)rmatE _field_up(1:3,ip10,ip23,ip33,iIe))=field_up(1:3,ip10,ip23,ip33,iIe))+&rmatE _&a10a23a33*up(1:3,iq)rmatE _field_up(1:3,ip11,ip23,ip33,iIe))=field_up(1:3,ip11,ip23,ip33,iIe))+&rmatE _&a11a23a33*up(1:3,iq)rmatE _field_up(1:3,ip12,ip23,ip33,iIe))=field_up(1:3,ip12,ip23,ip33,iIe))+&rmatE _&a12a23a33*up(1:3,iq)rmatE _field_up(1:3,ip13,ip23,ip33,iIe))=field_up(1:3,ip13,ip23,ip33,iIe))+&rmatE _&a13a23a33*up(1:3,iq)rrc!For END DOr h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn h Ulrbll = v asionsofor 2-(((. LsdmatE _! h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn ELSEIF (lda .EQ. 2) THENdn dIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn VSiq = ied_Ie)(iIe),ip) d Vx01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ Vx02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ Vx03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn VSip10INT(NT(x01)dn VSip20INT(NT(x02)dn VSip30INT(NT(x03)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd Vip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd Vip13p11I+ 2d ip23p21I+ 2d ip33p31 + 2dd Vxp1x01-dddddp10,mk d xp2x02-dddddp20,mk d xp3x03-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33 d a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rma a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rma a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rma a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rma a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30 NTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE _ a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rma a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rma a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30 NTa13*a20*a30rmatE _ a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rma a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rma a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dds_wdeNOMICROINSTRUCTIONSrmatE _field_up(1,ip10,ip20,ip30,iIe))=field_up(1,ip10,ip20,ip30,iIe))+&rmatE _&a10a20a30*up(1,iq)rmatE _field_up(2,ip10,ip20,ip30,iIe))=field_up(2,ip10,ip20,ip30,iIe))+&rmatE _&a10a20a30*up(2,iq)rmatE _field_up(1,ip11,ip20,ip30,iIe))=field_up(1,ip11,ip20,ip30,iIe))+&rmatE &a11a20a30*up(1,iq)rmatE _field_up(2,ip11,ip20,ip30,iIe))=field_up(2,ip11,ip20,ip30,iIe))+&rmatE &a11a20a30*up(2,iq)rmatE _field_up(1,ip12,ip20,ip30,iIe))=field_up(1,ip12,ip20,ip30,iIe))+&rmatE _&a12a20a30*up(1,iq)rmatE _field_up(2,ip12,ip20,ip30,iIe))=field_up(2,ip12,ip20,ip30,iIe))+&rmatE _&a12a20a30*up(2,iq)rmatE _field_up(1,ip13,ip20,ip30,iIe))=field_up(1,ip13,ip20,ip30,iIe))+&rmatE _&a13a20a30*up(1,iq)rmatE _field_up(2,ip13,ip20,ip30,iIe))=field_up(2,ip13,ip20,ip30,iIe))+&rmatE _&a13a20a30*up(2,iq)rmatE _field_up(1,ip10,ip21,ip30,iIe))=field_up(1,ip10,ip21,ip30,iIe))+&rmatE _&a10a21a30*up(1,iq)rmatE _field_up(2,ip10,ip21,ip30,iIe))=field_up(2,ip10,ip21,ip30,iIe))+&rmatE _&a10a21a30*up(2,iq)rmatE _field_up(1,ip11,ip21,ip30,iIe))=field_up(1,ip11,ip21,ip30,iIe))+&rmatE _&a11a21a30*up(1,iq)rmatE _field_up(2,ip11,ip21,ip30,iIe))=field_up(2,ip11,ip21,ip30,iIe))+&rmatE _&a11a21a30*up(2,iq)rmatE _field_up(1,ip12,ip21,ip30,iIe))=field_up(1,ip12,ip21,ip30,iIe))+&rmatE _&a12a21a30*up(1,iq)rmatE _field_up(2,ip12,ip21,ip30,iIe))=field_up(2,ip12,ip21,ip30,iIe))+&rmatE _&a12a21a30*up(2,iq)rmatE _field_up(1,ip13,ip21,ip30,iIe))=field_up(1,ip13,ip21,ip30,iIe))+&rmatE _&a13a21a30*up(1,iq)rmatE _field_up(2,ip13,ip21,ip30,iIe))=field_up(2,ip13,ip21,ip30,iIe))+&rmatE _&a13a21a30*up(2,iq)rmatE _field_up(1,ip10,ip22,ip30,iIe))=field_up(1,ip10,ip22,ip30,iIe))+&rmatE _&a10a22a30*up(1,iq)rmatE _field_up(2,ip10,ip22,ip30,iIe))=field_up(2,ip10,ip22,ip30,iIe))+&rmatE _&a10a22a30*up(2,iq)rmatE _field_up(1,ip11,ip22,ip30,iIe))=field_up(1,ip11,ip22,ip30,iIe))+&rmatE _&a11a22a30*up(1,iq)rmatE _field_up(2,ip11,ip22,ip30,iIe))=field_up(2,ip11,ip22,ip30,iIe))+&rmatE _&a11a22a30*up(2,iq)rmatE _field_up(1,ip12,ip22,ip30,iIe))=field_up(1,ip12,ip22,ip30,iIe))+&rmatE _&a12a22a30*up(1,iq)rmatE _field_up(2,ip12,ip22,ip30,iIe))=field_up(2,ip12,ip22,ip30,iIe))+&rmatE _&a12a22a30*up(2,iq)rmatE _field_up(1,ip13,ip22,ip30,iIe))=field_up(1,ip13,ip22,ip30,iIe))+&rmatE _&a13a22a30*up(1,iq)rmatE _field_up(2,ip13,ip22,ip30,iIe))=field_up(2,ip13,ip22,ip30,iIe))+&rmatE _&a13a22a30*up(2,iq)rmatE _field_up(1,ip10,ip23,ip30,iIe))=field_up(1,ip10,ip23,ip30,iIe))+&rmatE _&a10a23a30*up(1,iq)rmatE _field_up(2,ip10,ip23,ip30,iIe))=field_up(2,ip10,ip23,ip30,iIe))+&rmatE _&a10a23a30*up(2,iq)rmatE _field_up(1,ip11,ip23,ip30,iIe))=field_up(1,ip11,ip23,ip30,iIe))+&rmatE _&a11a23a30*up(1,iq)rmatE _field_up(2,ip11,ip23,ip30,iIe))=field_up(2,ip11,ip23,ip30,iIe))+&rmatE _&a11a23a30*up(2,iq)rmatE _field_up(1,ip12,ip23,ip30,iIe))=field_up(1,ip12,ip23,ip30,iIe))+&rmatE _&a12a23a30*up(1,iq)rmatE _field_up(2,ip12,ip23,ip30,iIe))=field_up(2,ip12,ip23,ip30,iIe))+&rmatE _&a12a23a30*up(2,iq)rmatE _field_up(1,ip13,ip23,ip30,iIe))=field_up(1,ip13,ip23,ip30,iIe))+&rmatE _&a13a23a30*up(1,iq)rmatE _field_up(2,ip13,ip23,ip30,iIe))=field_up(2,ip13,ip23,ip30,iIe))+&rmatE _&a13a23a30*up(2,iq)rmatE _field_up(1,ip10,ip20,ip31,iIe))=field_up(1,ip10,ip20,ip31,iIe))+&rmatE _&a10a20a31*up(1,iq)rmatE _field_up(2,ip10,ip20,ip31,iIe))=field_up(2,ip10,ip20,ip31,iIe))+&rmatE _&a10a20a31*up(2,iq)rmatE _field_up(1,ip11,ip20,ip31,iIe))=field_up(1,ip11,ip20,ip31,iIe))+&rmatE &a11a20a31*up(1,iq)rmatE _field_up(2,ip11,ip20,ip31,iIe))=field_up(2,ip11,ip20,ip31,iIe))+&rmatE &a11a20a31*up(2,iq)rmatE _field_up(1,ip12,ip20,ip31,iIe))=field_up(1,ip12,ip20,ip31,iIe))+&rmatE _&a12a20a31*up(1,iq)rmatE _field_up(2,ip12,ip20,ip31,iIe))=field_up(2,ip12,ip20,ip31,iIe))+&rmatE _&a12a20a31*up(2,iq)rmatE _field_up(1,ip13,ip20,ip31,iIe))=field_up(1,ip13,ip20,ip31,iIe))+&rmatE _&a13a20a31*up(1,iq)rmatE _field_up(2,ip13,ip20,ip31,iIe))=field_up(2,ip13,ip20,ip31,iIe))+&rmatE _&a13a20a31*up(2,iq)rmatE _field_up(1,ip10,ip21,ip31,iIe))=field_up(1,ip10,ip21,ip31,iIe))+&rmatE _&a10a21a31*up(1,iq)rmatE _field_up(2,ip10,ip21,ip31,iIe))=field_up(2,ip10,ip21,ip31,iIe))+&rmatE _&a10a21a31*up(2,iq)rmatE _field_up(1,ip11,ip21,ip31,iIe))=field_up(1,ip11,ip21,ip31,iIe))+&rmatE _&a11a21a31*up(1,iq)rmatE _field_up(2,ip11,ip21,ip31,iIe))=field_up(2,ip11,ip21,ip31,iIe))+&rmatE _&a11a21a31*up(2,iq)rmatE _field_up(1,ip12,ip21,ip31,iIe))=field_up(1,ip12,ip21,ip31,iIe))+&rmatE _&a12a21a31*up(1,iq)rmatE _field_up(2,ip12,ip21,ip31,iIe))=field_up(2,ip12,ip21,ip31,iIe))+&rmatE _&a12a21a31*up(2,iq)rmatE _field_up(1,ip13,ip21,ip31,iIe))=field_up(1,ip13,ip21,ip31,iIe))+&rmatE _&a13a21a31*up(1,iq)rmatE _field_up(2,ip13,ip21,ip31,iIe))=field_up(2,ip13,ip21,ip31,iIe))+&rmatE _&a13a21a31*up(2,iq)rmatE _field_up(1,ip10,ip22,ip31,iIe))=field_up(1,ip10,ip22,ip31,iIe))+&rmatE _&a10a22a31*up(1,iq)rmatE _field_up(2,ip10,ip22,ip31,iIe))=field_up(2,ip10,ip22,ip31,iIe))+&rmatE _&a10a22a31*up(2,iq)rmatE _field_up(1,ip11,ip22,ip31,iIe))=field_up(1,ip11,ip22,ip31,iIe))+&rmatE _&a11a22a31*up(1,iq)rmatE _field_up(2,ip11,ip22,ip31,iIe))=field_up(2,ip11,ip22,ip31,iIe))+&rmatE _&a11a22a31*up(2,iq)rmatE _field_up(1,ip12,ip22,ip31,iIe))=field_up(1,ip12,ip22,ip31,iIe))+&rmatE _&a12a22a31*up(1,iq)rmatE _field_up(2,ip12,ip22,ip31,iIe))=field_up(2,ip12,ip22,ip31,iIe))+&rmatE _&a12a22a31*up(2,iq)rmatE _field_up(1,ip13,ip22,ip31,iIe))=field_up(1,ip13,ip22,ip31,iIe))+&rmatE _&a13a22a31*up(1,iq)rmatE _field_up(2,ip13,ip22,ip31,iIe))=field_up(2,ip13,ip22,ip31,iIe))+&rmatE _&a13a22a31*up(2,iq)rmatE _field_up(1,ip10,ip23,ip31,iIe))=field_up(1,ip10,ip23,ip31,iIe))+&rmatE _&a10a23a31*up(1,iq)rmatE _field_up(2,ip10,ip23,ip31,iIe))=field_up(2,ip10,ip23,ip31,iIe))+&rmatE _&a10a23a31*up(2,iq)rmatE _field_up(1,ip11,ip23,ip31,iIe))=field_up(1,ip11,ip23,ip31,iIe))+&rmatE _&a11a23a31*up(1,iq)rmatE _field_up(2,ip11,ip23,ip31,iIe))=field_up(2,ip11,ip23,ip31,iIe))+&rmatE _&a11a23a31*up(2,iq)rmatE _field_up(1,ip12,ip23,ip31,iIe))=field_up(1,ip12,ip23,ip31,iIe))+&rmatE _&a12a23a31*up(1,iq)rmatE _field_up(2,ip12,ip23,ip31,iIe))=field_up(2,ip12,ip23,ip31,iIe))+&rmatE _&a12a23a31*up(2,iq)rmatE _field_up(1,ip13,ip23,ip31,iIe))=field_up(1,ip13,ip23,ip31,iIe))+&rmatE _&a13a23a31*up(1,iq)rmatE _field_up(2,ip13,ip23,ip31,iIe))=field_up(2,ip13,ip23,ip31,iIe))+&rmatE _&a13a23a31*up(2,iq)rmatE _field_up(1,ip10,ip20,ip32,iIe))=field_up(1,ip10,ip20,ip32,iIe))+&rmatE _&a10a20a32*up(1,iq)rmatE _field_up(2,ip10,ip20,ip32,iIe))=field_up(2,ip10,ip20,ip32,iIe))+&rmatE _&a10a20a32*up(2,iq)rmatE _field_up(1,ip11,ip20,ip32,iIe))=field_up(1,ip11,ip20,ip32,iIe))+&rmatE &a11a20a32*up(1,iq)rmatE _field_up(2,ip11,ip20,ip32,iIe))=field_up(2,ip11,ip20,ip32,iIe))+&rmatE &a11a20a32*up(2,iq)rmatE _field_up(1,ip12,ip20,ip32,iIe))=field_up(1,ip12,ip20,ip32,iIe))+&rmatE _&a12a20a32*up(1,iq)rmatE _field_up(2,ip12,ip20,ip32,iIe))=field_up(2,ip12,ip20,ip32,iIe))+&rmatE _&a12a20a32*up(2,iq)rmatE _field_up(1,ip13,ip20,ip32,iIe))=field_up(1,ip13,ip20,ip32,iIe))+&rmatE _&a13a20a32*up(1,iq)rmatE _field_up(2,ip13,ip20,ip32,iIe))=field_up(2,ip13,ip20,ip32,iIe))+&rmatE _&a13a20a32*up(2,iq)rmatE _field_up(1,ip10,ip21,ip32,iIe))=field_up(1,ip10,ip21,ip32,iIe))+&rmatE _&a10a21a32*up(1,iq)rmatE _field_up(2,ip10,ip21,ip32,iIe))=field_up(2,ip10,ip21,ip32,iIe))+&rmatE _&a10a21a32*up(2,iq)rmatE _field_up(1,ip11,ip21,ip32,iIe))=field_up(1,ip11,ip21,ip32,iIe))+&rmatE _&a11a21a32*up(1,iq)rmatE _field_up(2,ip11,ip21,ip32,iIe))=field_up(2,ip11,ip21,ip32,iIe))+&rmatE _&a11a21a32*up(2,iq)rmatE _field_up(1,ip12,ip21,ip32,iIe))=field_up(1,ip12,ip21,ip32,iIe))+&rmatE _&a12a21a32*up(1,iq)rmatE _field_up(2,ip12,ip21,ip32,iIe))=field_up(2,ip12,ip21,ip32,iIe))+&rmatE _&a12a21a32*up(2,iq)rmatE _field_up(1,ip13,ip21,ip32,iIe))=field_up(1,ip13,ip21,ip32,iIe))+&rmatE _&a13a21a32*up(1,iq)rmatE _field_up(2,ip13,ip21,ip32,iIe))=field_up(2,ip13,ip21,ip32,iIe))+&rmatE _&a13a21a32*up(2,iq)rmatE _field_up(1,ip10,ip22,ip32,iIe))=field_up(1,ip10,ip22,ip32,iIe))+&rmatE _&a10a22a32*up(1,iq)rmatE _field_up(2,ip10,ip22,ip32,iIe))=field_up(2,ip10,ip22,ip32,iIe))+&rmatE _&a10a22a32*up(2,iq)rmatE _field_up(1,ip11,ip22,ip32,iIe))=field_up(1,ip11,ip22,ip32,iIe))+&rmatE _&a11a22a32*up(1,iq)rmatE _field_up(2,ip11,ip22,ip32,iIe))=field_up(2,ip11,ip22,ip32,iIe))+&rmatE _&a11a22a32*up(2,iq)rmatE _field_up(1,ip12,ip22,ip32,iIe))=field_up(1,ip12,ip22,ip32,iIe))+&rmatE _&a12a22a32*up(1,iq)rmatE _field_up(2,ip12,ip22,ip32,iIe))=field_up(2,ip12,ip22,ip32,iIe))+&rmatE _&a12a22a32*up(2,iq)rmatE _field_up(1,ip13,ip22,ip32,iIe))=field_up(1,ip13,ip22,ip32,iIe))+&rmatE _&a13a22a32*up(1,iq)rmatE _field_up(2,ip13,ip22,ip32,iIe))=field_up(2,ip13,ip22,ip32,iIe))+&rmatE _&a13a22a32*up(2,iq)rmatE _field_up(1,ip10,ip23,ip32,iIe))=field_up(1,ip10,ip23,ip32,iIe))+&rmatE _&a10a23a32*up(1,iq)rmatE _field_up(2,ip10,ip23,ip32,iIe))=field_up(2,ip10,ip23,ip32,iIe))+&rmatE _&a10a23a32*up(2,iq)rmatE _field_up(1,ip11,ip23,ip32,iIe))=field_up(1,ip11,ip23,ip32,iIe))+&rmatE _&a11a23a32*up(1,iq)rmatE _field_up(2,ip11,ip23,ip32,iIe))=field_up(2,ip11,ip23,ip32,iIe))+&rmatE _&a11a23a32*up(2,iq)rmatE _field_up(1,ip12,ip23,ip32,iIe))=field_up(1,ip12,ip23,ip32,iIe))+&rmatE _&a12a23a32*up(1,iq)rmatE _field_up(2,ip12,ip23,ip32,iIe))=field_up(2,ip12,ip23,ip32,iIe))+&rmatE _&a12a23a32*up(2,iq)rmatE _field_up(1,ip13,ip23,ip32,iIe))=field_up(1,ip13,ip23,ip32,iIe))+&rmatE _&a13a23a32*up(1,iq)rmatE _field_up(2,ip13,ip23,ip32,iIe))=field_up(2,ip13,ip23,ip32,iIe))+&rmatE _&a13a23a32*up(2,iq)rmatE _field_up(1,ip10,ip20,ip33,iIe))=field_up(1,ip10,ip20,ip33,iIe))+&rmatE _&a10a20a33*up(1,iq)rmatE _field_up(2,ip10,ip20,ip33,iIe))=field_up(2,ip10,ip20,ip33,iIe))+&rmatE _&a10a20a33*up(2,iq)rmatE _field_up(1,ip11,ip20,ip33,iIe))=field_up(1,ip11,ip20,ip33,iIe))+&rmatE &a11a20a33*up(1,iq)rmatE _field_up(2,ip11,ip20,ip33,iIe))=field_up(2,ip11,ip20,ip33,iIe))+&rmatE &a11a20a33*up(2,iq)rmatE _field_up(1,ip12,ip20,ip33,iIe))=field_up(1,ip12,ip20,ip33,iIe))+&rmatE _&a12a20a33*up(1,iq)rmatE _field_up(2,ip12,ip20,ip33,iIe))=field_up(2,ip12,ip20,ip33,iIe))+&rmatE _&a12a20a33*up(2,iq)rmatE _field_up(1,ip13,ip20,ip33,iIe))=field_up(1,ip13,ip20,ip33,iIe))+&rmatE _&a13a20a33*up(1,iq)rmatE _field_up(2,ip13,ip20,ip33,iIe))=field_up(2,ip13,ip20,ip33,iIe))+&rmatE _&a13a20a33*up(2,iq)rmatE _field_up(1,ip10,ip21,ip33,iIe))=field_up(1,ip10,ip21,ip33,iIe))+&rmatE _&a10a21a33*up(1,iq)rmatE _field_up(2,ip10,ip21,ip33,iIe))=field_up(2,ip10,ip21,ip33,iIe))+&rmatE _&a10a21a33*up(2,iq)rmatE _field_up(1,ip11,ip21,ip33,iIe))=field_up(1,ip11,ip21,ip33,iIe))+&rmatE _&a11a21a33*up(1,iq)rmatE _field_up(2,ip11,ip21,ip33,iIe))=field_up(2,ip11,ip21,ip33,iIe))+&rmatE _&a11a21a33*up(2,iq)rmatE _field_up(1,ip12,ip21,ip33,iIe))=field_up(1,ip12,ip21,ip33,iIe))+&rmatE _&a12a21a33*up(1,iq)rmatE _field_up(2,ip12,ip21,ip33,iIe))=field_up(2,ip12,ip21,ip33,iIe))+&rmatE _&a12a21a33*up(2,iq)rmatE _field_up(1,ip13,ip21,ip33,iIe))=field_up(1,ip13,ip21,ip33,iIe))+&rmatE _&a13a21a33*up(1,iq)rmatE _field_up(2,ip13,ip21,ip33,iIe))=field_up(2,ip13,ip21,ip33,iIe))+&rmatE _&a13a21a33*up(2,iq)rmatE _field_up(1,ip10,ip22,ip33,iIe))=field_up(1,ip10,ip22,ip33,iIe))+&rmatE _&a10a22a33*up(1,iq)rmatE _field_up(2,ip10,ip22,ip33,iIe))=field_up(2,ip10,ip22,ip33,iIe))+&rmatE _&a10a22a33*up(2,iq)rmatE _field_up(1,ip11,ip22,ip33,iIe))=field_up(1,ip11,ip22,ip33,iIe))+&rmatE _&a11a22a33*up(1,iq)rmatE _field_up(2,ip11,ip22,ip33,iIe))=field_up(2,ip11,ip22,ip33,iIe))+&rmatE _&a11a22a33*up(2,iq)rmatE _field_up(1,ip12,ip22,ip33,iIe))=field_up(1,ip12,ip22,ip33,iIe))+&rmatE _&a12a22a33*up(1,iq)rmatE _field_up(2,ip12,ip22,ip33,iIe))=field_up(2,ip12,ip22,ip33,iIe))+&rmatE _&a12a22a33*up(2,iq)rmatE _field_up(1,ip13,ip22,ip33,iIe))=field_up(1,ip13,ip22,ip33,iIe))+&rmatE _&a13a22a33*up(1,iq)rmatE _field_up(2,ip13,ip22,ip33,iIe))=field_up(2,ip13,ip22,ip33,iIe))+&rmatE _&a13a22a33*up(2,iq)rmatE _field_up(1,ip10,ip23,ip33,iIe))=field_up(1,ip10,ip23,ip33,iIe))+&rmatE _&a10a23a33*up(1,iq)rmatE _field_up(2,ip10,ip23,ip33,iIe))=field_up(2,ip10,ip23,ip33,iIe))+&rmatE _&a10a23a33*up(2,iq)rmatE _field_up(1,ip11,ip23,ip33,iIe))=field_up(1,ip11,ip23,ip33,iIe))+&rmatE _&a11a23a33*up(1,iq)rmatE _field_up(2,ip11,ip23,ip33,iIe))=field_up(2,ip11,ip23,ip33,iIe))+&rmatE _&a11a23a33*up(2,iq)rmatE _field_up(1,ip12,ip23,ip33,iIe))=field_up(1,ip12,ip23,ip33,iIe))+&rmatE _&a12a23a33*up(1,iq)rmatE _field_up(2,ip12,ip23,ip33,iIe))=field_up(2,ip12,ip23,ip33,iIe))+&rmatE _&a12a23a33*up(2,iq)rmatE _field_up(1,ip13,ip23,ip33,iIe))=field_up(1,ip13,ip23,ip33,iIe))+&rmatE _&a13a23a33*up(1,iq)rmatE _field_up(2,ip13,ip23,ip33,iIe))=field_up(2,ip13,ip23,ip33,iIe))+&rmatE _&a13a23a33*up(2,iq)r#elsedn _field_up(1:2,ip10,ip20,ip30,iIe))=field_up(1:2,ip10,ip20,ip30,iIe))+&rmatE _&a10a20a30*up(1:2,iq)rmatE _field_up(1:2,ip11,ip20,ip30,iIe))=field_up(1:2,ip11,ip20,ip30,iIe))+&rmatE &a11a20a30*up(1:2,iq)rmatE _field_up(1:2,ip12,ip20,ip30,iIe))=field_up(1:2,ip12,ip20,ip30,iIe))+&rmatE _&a12a20a30*up(1:2,iq)rmatE _field_up(1:2,ip13,ip20,ip30,iIe))=field_up(1:2,ip13,ip20,ip30,iIe))+&rmatE _&a13a20a30*up(1:2,iq)rmatE _field_up(1:2,ip10,ip21,ip30,iIe))=field_up(1:2,ip10,ip21,ip30,iIe))+&rmatE _&a10a21a30*up(1:2,iq)rmatE _field_up(1:2,ip11,ip21,ip30,iIe))=field_up(1:2,ip11,ip21,ip30,iIe))+&rmatE _&a11a21a30*up(1:2,iq)rmatE _field_up(1:2,ip12,ip21,ip30,iIe))=field_up(1:2,ip12,ip21,ip30,iIe))+&rmatE _&a12a21a30*up(1:2,iq)rmatE _field_up(1:2,ip13,ip21,ip30,iIe))=field_up(1:2,ip13,ip21,ip30,iIe))+&rmatE _&a13a21a30*up(1:2,iq)rmatE _field_up(1:2,ip10,ip22,ip30,iIe))=field_up(1:2,ip10,ip22,ip30,iIe))+&rmatE _&a10a22a30*up(1:2,iq)rmatE _field_up(1:2,ip11,ip22,ip30,iIe))=field_up(1:2,ip11,ip22,ip30,iIe))+&rmatE _&a11a22a30*up(1:2,iq)rmatE _field_up(1:2,ip12,ip22,ip30,iIe))=field_up(1:2,ip12,ip22,ip30,iIe))+&rmatE _&a12a22a30*up(1:2,iq)rmatE _field_up(1:2,ip13,ip22,ip30,iIe))=field_up(1:2,ip13,ip22,ip30,iIe))+&rmatE _&a13a22a30*up(1:2,iq)rmatE _field_up(1:2,ip10,ip23,ip30,iIe))=field_up(1:2,ip10,ip23,ip30,iIe))+&rmatE _&a10a23a30*up(1:2,iq)rmatE _field_up(1:2,ip11,ip23,ip30,iIe))=field_up(1:2,ip11,ip23,ip30,iIe))+&rmatE _&a11a23a30*up(1:2,iq)rmatE _field_up(1:2,ip12,ip23,ip30,iIe))=field_up(1:2,ip12,ip23,ip30,iIe))+&rmatE _&a12a23a30*up(1:2,iq)rmatE _field_up(1:2,ip13,ip23,ip30,iIe))=field_up(1:2,ip13,ip23,ip30,iIe))+&rmatE _&a13a23a30*up(1:2,iq)rmatE _field_up(1:2,ip10,ip20,ip31,iIe))=field_up(1:2,ip10,ip20,ip31,iIe))+&rmatE _&a10a20a31*up(1:2,iq)rmatE _field_up(1:2,ip11,ip20,ip31,iIe))=field_up(1:2,ip11,ip20,ip31,iIe))+&rmatE &a11a20a31*up(1:2,iq)rmatE _field_up(1:2,ip12,ip20,ip31,iIe))=field_up(1:2,ip12,ip20,ip31,iIe))+&rmatE _&a12a20a31*up(1:2,iq)rmatE _field_up(1:2,ip13,ip20,ip31,iIe))=field_up(1:2,ip13,ip20,ip31,iIe))+&rmatE _&a13a20a31*up(1:2,iq)rmatE _field_up(1:2,ip10,ip21,ip31,iIe))=field_up(1:2,ip10,ip21,ip31,iIe))+&rmatE _&a10a21a31*up(1:2,iq)rmatE _field_up(1:2,ip11,ip21,ip31,iIe))=field_up(1:2,ip11,ip21,ip31,iIe))+&rmatE _&a11a21a31*up(1:2,iq)rmatE _field_up(1:2,ip12,ip21,ip31,iIe))=field_up(1:2,ip12,ip21,ip31,iIe))+&rmatE _&a12a21a31*up(1:2,iq)rmatE _field_up(1:2,ip13,ip21,ip31,iIe))=field_up(1:2,ip13,ip21,ip31,iIe))+&rmatE _&a13a21a31*up(1:2,iq)rmatE _field_up(1:2,ip10,ip22,ip31,iIe))=field_up(1:2,ip10,ip22,ip31,iIe))+&rmatE _&a10a22a31*up(1:2,iq)rmatE _field_up(1:2,ip11,ip22,ip31,iIe))=field_up(1:2,ip11,ip22,ip31,iIe))+&rmatE _&a11a22a31*up(1:2,iq)rmatE _field_up(1:2,ip12,ip22,ip31,iIe))=field_up(1:2,ip12,ip22,ip31,iIe))+&rmatE _&a12a22a31*up(1:2,iq)rmatE _field_up(1:2,ip13,ip22,ip31,iIe))=field_up(1:2,ip13,ip22,ip31,iIe))+&rmatE _&a13a22a31*up(1:2,iq)rmatE _field_up(1:2,ip10,ip23,ip31,iIe))=field_up(1:2,ip10,ip23,ip31,iIe))+&rmatE _&a10a23a31*up(1:2,iq)rmatE _field_up(1:2,ip11,ip23,ip31,iIe))=field_up(1:2,ip11,ip23,ip31,iIe))+&rmatE _&a11a23a31*up(1:2,iq)rmatE _field_up(1:2,ip12,ip23,ip31,iIe))=field_up(1:2,ip12,ip23,ip31,iIe))+&rmatE _&a12a23a31*up(1:2,iq)rmatE _field_up(1:2,ip13,ip23,ip31,iIe))=field_up(1:2,ip13,ip23,ip31,iIe))+&rmatE _&a13a23a31*up(1:2,iq)rmatE _field_up(1:2,ip10,ip20,ip32,iIe))=field_up(1:2,ip10,ip20,ip32,iIe))+&rmatE _&a10a20a32*up(1:2,iq)rmatE _field_up(1:2,ip11,ip20,ip32,iIe))=field_up(1:2,ip11,ip20,ip32,iIe))+&rmatE &a11a20a32*up(1:2,iq)rmatE _field_up(1:2,ip12,ip20,ip32,iIe))=field_up(1:2,ip12,ip20,ip32,iIe))+&rmatE _&a12a20a32*up(1:2,iq)rmatE _field_up(1:2,ip13,ip20,ip32,iIe))=field_up(1:2,ip13,ip20,ip32,iIe))+&rmatE _&a13a20a32*up(1:2,iq)rmatE _field_up(1:2,ip10,ip21,ip32,iIe))=field_up(1:2,ip10,ip21,ip32,iIe))+&rmatE _&a10a21a32*up(1:2,iq)rmatE _field_up(1:2,ip11,ip21,ip32,iIe))=field_up(1:2,ip11,ip21,ip32,iIe))+&rmatE _&a11a21a32*up(1:2,iq)rmatE _field_up(1:2,ip12,ip21,ip32,iIe))=field_up(1:2,ip12,ip21,ip32,iIe))+&rmatE _&a12a21a32*up(1:2,iq)rmatE _field_up(1:2,ip13,ip21,ip32,iIe))=field_up(1:2,ip13,ip21,ip32,iIe))+&rmatE _&a13a21a32*up(1:2,iq)rmatE _field_up(1:2,ip10,ip22,ip32,iIe))=field_up(1:2,ip10,ip22,ip32,iIe))+&rmatE _&a10a22a32*up(1:2,iq)rmatE _field_up(1:2,ip11,ip22,ip32,iIe))=field_up(1:2,ip11,ip22,ip32,iIe))+&rmatE _&a11a22a32*up(1:2,iq)rmatE _field_up(1:2,ip12,ip22,ip32,iIe))=field_up(1:2,ip12,ip22,ip32,iIe))+&rmatE _&a12a22a32*up(1:2,iq)rmatE _field_up(1:2,ip13,ip22,ip32,iIe))=field_up(1:2,ip13,ip22,ip32,iIe))+&rmatE _&a13a22a32*up(1:2,iq)rmatE _field_up(1:2,ip10,ip23,ip32,iIe))=field_up(1:2,ip10,ip23,ip32,iIe))+&rmatE _&a10a23a32*up(1:2,iq)rmatE _field_up(1:2,ip11,ip23,ip32,iIe))=field_up(1:2,ip11,ip23,ip32,iIe))+&rmatE _&a11a23a32*up(1:2,iq)rmatE _field_up(1:2,ip12,ip23,ip32,iIe))=field_up(1:2,ip12,ip23,ip32,iIe))+&rmatE _&a12a23a32*up(1:2,iq)rmatE _field_up(1:2,ip13,ip23,ip32,iIe))=field_up(1:2,ip13,ip23,ip32,iIe))+&rmatE _&a13a23a32*up(1:2,iq)rmatE _field_up(1:2,ip10,ip20,ip33,iIe))=field_up(1:2,ip10,ip20,ip33,iIe))+&rmatE _&a10a20a33*up(1:2,iq)rmatE _field_up(1:2,ip11,ip20,ip33,iIe))=field_up(1:2,ip11,ip20,ip33,iIe))+&rmatE &a11a20a33*up(1:2,iq)rmatE _field_up(1:2,ip12,ip20,ip33,iIe))=field_up(1:2,ip12,ip20,ip33,iIe))+&rmatE _&a12a20a33*up(1:2,iq)rmatE _field_up(1:2,ip13,ip20,ip33,iIe))=field_up(1:2,ip13,ip20,ip33,iIe))+&rmatE _&a13a20a33*up(1:2,iq)rmatE _field_up(1:2,ip10,ip21,ip33,iIe))=field_up(1:2,ip10,ip21,ip33,iIe))+&rmatE _&a10a21a33*up(1:2,iq)rmatE _field_up(1:2,ip11,ip21,ip33,iIe))=field_up(1:2,ip11,ip21,ip33,iIe))+&rmatE _&a11a21a33*up(1:2,iq)rmatE _field_up(1:2,ip12,ip21,ip33,iIe))=field_up(1:2,ip12,ip21,ip33,iIe))+&rmatE _&a12a21a33*up(1:2,iq)rmatE _field_up(1:2,ip13,ip21,ip33,iIe))=field_up(1:2,ip13,ip21,ip33,iIe))+&rmatE _&a13a21a33*up(1:2,iq)rmatE _field_up(1:2,ip10,ip22,ip33,iIe))=field_up(1:2,ip10,ip22,ip33,iIe))+&rmatE _&a10a22a33*up(1:2,iq)rmatE _field_up(1:2,ip11,ip22,ip33,iIe))=field_up(1:2,ip11,ip22,ip33,iIe))+&rmatE _&a11a22a33*up(1:2,iq)rmatE _field_up(1:2,ip12,ip22,ip33,iIe))=field_up(1:2,ip12,ip22,ip33,iIe))+&rmatE _&a12a22a33*up(1:2,iq)rmatE _field_up(1:2,ip13,ip22,ip33,iIe))=field_up(1:2,ip13,ip22,ip33,iIe))+&rmatE _&a13a22a33*up(1:2,iq)rmatE _field_up(1:2,ip10,ip23,ip33,iIe))=field_up(1:2,ip10,ip23,ip33,iIe))+&rmatE _&a10a23a33*up(1:2,iq)rmatE _field_up(1:2,ip11,ip23,ip33,iIe))=field_up(1:2,ip11,ip23,ip33,iIe))+&rmatE _&a11a23a33*up(1:2,iq)rmatE _field_up(1:2,ip12,ip23,ip33,iIe))=field_up(1:2,ip12,ip23,ip33,iIe))+&rmatE _&a12a23a33*up(1:2,iq)rmatE _field_up(1:2,ip13,ip23,ip33,iIe))=field_up(1:2,ip13,ip23,ip33,iIe))+&rmatE _&a13a23a33*up(1:2,iq)rrc!For ENDDOr h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn h Ulrbll = v asionsofor 1-(((. LsdmatE _! h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn ELSEIF (lda .EQ. 1) THENdn dIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn VSiq = ied_Ie)(iIe),ip) d Vx01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ Vx02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ Vx03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn VSip10INT(NT(x01)dn VSip20INT(NT(x02)dn VSip30INT(NT(x03)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd Vip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd Vip13p11I+ 2d ip23p21I+ 2d ip33p31 + 2dd Vxp1x01-dddddp10,mk d xp2x02-dddddp20,mk d xp3x03-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33 dd a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rma a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rma a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rma a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rma a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30 NTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE _ a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rma a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rma a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30 NTa13*a20*a30rmatE _ a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rma a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rma a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dd field_up(1,ip10,ip20,ip30,iIe))=field_up(1,ip10,ip20,ip30,iIe))+&rmatE & a10a20a30*up(1,iq)rmatE _ field_up(1,ip11,ip20,ip30,iIe))=field_up(1,ip11,ip20,ip30,iIe))+&rmatE & a11a20a30*up(1,iq)rmatE _ field_up(1,ip12,ip20,ip30,iIe))=field_up(1,ip12,ip20,ip30,iIe))+&rmatE & a12a20a30*up(1,iq)rmatE _ field_up(1,ip13,ip20,ip30,iIe))=field_up(1,ip13,ip20,ip30,iIe))+&rmatE & a13a20a30*up(1,iq)rmatE _ field_up(1,ip10,ip21,ip30,iIe))=field_up(1,ip10,ip21,ip30,iIe))+&rmatE & a10a21a30*up(1,iq)rmatE _ field_up(1,ip11,ip21,ip30,iIe))=field_up(1,ip11,ip21,ip30,iIe))+&rmatE & a11a21a30*up(1,iq)rmatE _ field_up(1,ip12,ip21,ip30,iIe))=field_up(1,ip12,ip21,ip30,iIe))+&rmatE & a12a21a30*up(1,iq)rmatE _ field_up(1,ip13,ip21,ip30,iIe))=field_up(1,ip13,ip21,ip30,iIe))+&rmatE & a13a21a30*up(1,iq)rmatE _ field_up(1,ip10,ip22,ip30,iIe))=field_up(1,ip10,ip22,ip30,iIe))+&rmatE & a10a22a30*up(1,iq)rmatE _ field_up(1,ip11,ip22,ip30,iIe))=field_up(1,ip11,ip22,ip30,iIe))+&rmatE & a11a22a30*up(1,iq)rmatE _ field_up(1,ip12,ip22,ip30,iIe))=field_up(1,ip12,ip22,ip30,iIe))+&rmatE & a12a22a30*up(1,iq)rmatE _ field_up(1,ip13,ip22,ip30,iIe))=field_up(1,ip13,ip22,ip30,iIe))+&rmatE & a13a22a30*up(1,iq)rmatE _ field_up(1,ip10,ip23,ip30,iIe))=field_up(1,ip10,ip23,ip30,iIe))+&rmatE & a10a23a30*up(1,iq)rmatE _ field_up(1,ip11,ip23,ip30,iIe))=field_up(1,ip11,ip23,ip30,iIe))+&rmatE & a11a23a30*up(1,iq)rmatE _ field_up(1,ip12,ip23,ip30,iIe))=field_up(1,ip12,ip23,ip30,iIe))+&rmatE & a12a23a30*up(1,iq)rmatE _ field_up(1,ip13,ip23,ip30,iIe))=field_up(1,ip13,ip23,ip30,iIe))+&rmatE & a13a23a30*up(1,iq)rmatE _ field_up(1,ip10,ip20,ip31,iIe))=field_up(1,ip10,ip20,ip31,iIe))+&rmatE & a10a20a31*up(1,iq)rmatE _ field_up(1,ip11,ip20,ip31,iIe))=field_up(1,ip11,ip20,ip31,iIe))+&rmatE & a11a20a31*up(1,iq)rmatE _ field_up(1,ip12,ip20,ip31,iIe))=field_up(1,ip12,ip20,ip31,iIe))+&rmatE & a12a20a31*up(1,iq)rmatE _ field_up(1,ip13,ip20,ip31,iIe))=field_up(1,ip13,ip20,ip31,iIe))+&rmatE & a13a20a31*up(1,iq)rmatE _ field_up(1,ip10,ip21,ip31,iIe))=field_up(1,ip10,ip21,ip31,iIe))+&rmatE & a10a21a31*up(1,iq)rmatE _ field_up(1,ip11,ip21,ip31,iIe))=field_up(1,ip11,ip21,ip31,iIe))+&rmatE & a11a21a31*up(1,iq)rmatE _ field_up(1,ip12,ip21,ip31,iIe))=field_up(1,ip12,ip21,ip31,iIe))+&rmatE & a12a21a31*up(1,iq)rmatE _ field_up(1,ip13,ip21,ip31,iIe))=field_up(1,ip13,ip21,ip31,iIe))+&rmatE & a13a21a31*up(1,iq)rmatE _ field_up(1,ip10,ip22,ip31,iIe))=field_up(1,ip10,ip22,ip31,iIe))+&rmatE & a10a22a31*up(1,iq)rmatE _ field_up(1,ip11,ip22,ip31,iIe))=field_up(1,ip11,ip22,ip31,iIe))+&rmatE & a11a22a31*up(1,iq)rmatE _ field_up(1,ip12,ip22,ip31,iIe))=field_up(1,ip12,ip22,ip31,iIe))+&rmatE & a12a22a31*up(1,iq)rmatE _ field_up(1,ip13,ip22,ip31,iIe))=field_up(1,ip13,ip22,ip31,iIe))+&rmatE & a13a22a31*up(1,iq)rmatE _ field_up(1,ip10,ip23,ip31,iIe))=field_up(1,ip10,ip23,ip31,iIe))+&rmatE & a10a23a31*up(1,iq)rmatE _ field_up(1,ip11,ip23,ip31,iIe))=field_up(1,ip11,ip23,ip31,iIe))+&rmatE & a11a23a31*up(1,iq)rmatE _ field_up(1,ip12,ip23,ip31,iIe))=field_up(1,ip12,ip23,ip31,iIe))+&rmatE & a12a23a31*up(1,iq)rmatE _ field_up(1,ip13,ip23,ip31,iIe))=field_up(1,ip13,ip23,ip31,iIe))+&rmatE & a13a23a31*up(1,iq)rmatE _ field_up(1,ip10,ip20,ip32,iIe))=field_up(1,ip10,ip20,ip32,iIe))+&rmatE & a10a20a32*up(1,iq)rmatE _ field_up(1,ip11,ip20,ip32,iIe))=field_up(1,ip11,ip20,ip32,iIe))+&rmatE & a11a20a32*up(1,iq)rmatE _ field_up(1,ip12,ip20,ip32,iIe))=field_up(1,ip12,ip20,ip32,iIe))+&rmatE & a12a20a32*up(1,iq)rmatE _ field_up(1,ip13,ip20,ip32,iIe))=field_up(1,ip13,ip20,ip32,iIe))+&rmatE & a13a20a32*up(1,iq)rmatE _ field_up(1,ip10,ip21,ip32,iIe))=field_up(1,ip10,ip21,ip32,iIe))+&rmatE & a10a21a32*up(1,iq)rmatE _ field_up(1,ip11,ip21,ip32,iIe))=field_up(1,ip11,ip21,ip32,iIe))+&rmatE & a11a21a32*up(1,iq)rmatE _ field_up(1,ip12,ip21,ip32,iIe))=field_up(1,ip12,ip21,ip32,iIe))+&rmatE & a12a21a32*up(1,iq)rmatE _ field_up(1,ip13,ip21,ip32,iIe))=field_up(1,ip13,ip21,ip32,iIe))+&rmatE & a13a21a32*up(1,iq)rmatE _ field_up(1,ip10,ip22,ip32,iIe))=field_up(1,ip10,ip22,ip32,iIe))+&rmatE & a10a22a32*up(1,iq)rmatE _ field_up(1,ip11,ip22,ip32,iIe))=field_up(1,ip11,ip22,ip32,iIe))+&rmatE & a11a22a32*up(1,iq)rmatE _ field_up(1,ip12,ip22,ip32,iIe))=field_up(1,ip12,ip22,ip32,iIe))+&rmatE & a12a22a32*up(1,iq)rmatE _ field_up(1,ip13,ip22,ip32,iIe))=field_up(1,ip13,ip22,ip32,iIe))+&rmatE & a13a22a32*up(1,iq)rmatE _ field_up(1,ip10,ip23,ip32,iIe))=field_up(1,ip10,ip23,ip32,iIe))+&rmatE & a10a23a32*up(1,iq)rmatE _ field_up(1,ip11,ip23,ip32,iIe))=field_up(1,ip11,ip23,ip32,iIe))+&rmatE & a11a23a32*up(1,iq)rmatE _ field_up(1,ip12,ip23,ip32,iIe))=field_up(1,ip12,ip23,ip32,iIe))+&rmatE & a12a23a32*up(1,iq)rmatE _ field_up(1,ip13,ip23,ip32,iIe))=field_up(1,ip13,ip23,ip32,iIe))+&rmatE & a13a23a32*up(1,iq)rmatE _ field_up(1,ip10,ip20,ip33,iIe))=field_up(1,ip10,ip20,ip33,iIe))+&rmatE & a10a20a33*up(1,iq)rmatE _ field_up(1,ip11,ip20,ip33,iIe))=field_up(1,ip11,ip20,ip33,iIe))+&rmatE & a11a20a33*up(1,iq)rmatE _ field_up(1,ip12,ip20,ip33,iIe))=field_up(1,ip12,ip20,ip33,iIe))+&rmatE & a12a20a33*up(1,iq)rmatE _ field_up(1,ip13,ip20,ip33,iIe))=field_up(1,ip13,ip20,ip33,iIe))+&rmatE & a13a20a33*up(1,iq)rmatE _ field_up(1,ip10,ip21,ip33,iIe))=field_up(1,ip10,ip21,ip33,iIe))+&rmatE & a10a21a33*up(1,iq)rmatE _ field_up(1,ip11,ip21,ip33,iIe))=field_up(1,ip11,ip21,ip33,iIe))+&rmatE & a11a21a33*up(1,iq)rmatE _ field_up(1,ip12,ip21,ip33,iIe))=field_up(1,ip12,ip21,ip33,iIe))+&rmatE & a12a21a33*up(1,iq)rmatE _ field_up(1,ip13,ip21,ip33,iIe))=field_up(1,ip13,ip21,ip33,iIe))+&rmatE & a13a21a33*up(1,iq)rmatE _ field_up(1,ip10,ip22,ip33,iIe))=field_up(1,ip10,ip22,ip33,iIe))+&rmatE & a10a22a33*up(1,iq)rmatE _ field_up(1,ip11,ip22,ip33,iIe))=field_up(1,ip11,ip22,ip33,iIe))+&rmatE & a11a22a33*up(1,iq)rmatE _ field_up(1,ip12,ip22,ip33,iIe))=field_up(1,ip12,ip22,ip33,iIe))+&rmatE & a12a22a33*up(1,iq)rmatE _ field_up(1,ip13,ip22,ip33,iIe))=field_up(1,ip13,ip22,ip33,iIe))+&rmatE & a13a22a33*up(1,iq)rmatE _ field_up(1,ip10,ip23,ip33,iIe))=field_up(1,ip10,ip23,ip33,iIe))+&rmatE & a10a23a33*up(1,iq)rmatE _ field_up(1,ip11,ip23,ip33,iIe))=field_up(1,ip11,ip23,ip33,iIe))+&rmatE & a11a23a33*up(1,iq)rmatE _ field_up(1,ip12,ip23,ip33,iIe))=field_up(1,ip12,ip23,ip33,iIe))+&rmatE & a12a23a33*up(1,iq)rmatE _ field_up(1,ip13,ip23,ip33,iIe))=field_up(1,ip13,ip23,ip33,iIe))+&rmatE & a13a23a33*up(1,iq)rrmatE _ ENDDOr h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn h All other lda are NOT UNROLLED. V((. Lization will be over lda!dn h!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd!dn ELSEdn iIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn VSiq = ied_Ie)(iIe),ip) d Vx01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ Vx02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ Vx03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn VSip10INT(NT(x01)dn VSip20INT(NT(x02)dn VSip30INT(NT(x03)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd Vip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd Vip13p11I+ 2d ip23p21I+ 2d ip33p31 + 2dd Vxp1x01-dddddp10,mk d xp2x02-dddddp20,mk d xp3x03-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33 d a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rma a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rma a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rma a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rma a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30 NTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE _ a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rma a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rma a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30 NTa13*a20*a30rmatE _ a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rma a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rma a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dd DO ldn=1,ldadd field_up(ldn,ip10,ip20,ip30,iIe))=field_up(ldn,ip10,ip20,ip30,iIe))+&rmatE & a10a20a30*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip20,ip30,iIe))=field_up(ldn,ip11,ip20,ip30,iIe))+&rmatE & a11a20a30*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip20,ip30,iIe))=field_up(ldn,ip12,ip20,ip30,iIe))+&rmatE & a12a20a30*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip20,ip30,iIe))=field_up(ldn,ip13,ip20,ip30,iIe))+&rmatE & a13a20a30*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip21,ip30,iIe))=field_up(ldn,ip10,ip21,ip30,iIe))+&rmatE & a10a21a30*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip21,ip30,iIe))=field_up(ldn,ip11,ip21,ip30,iIe))+&rmatE & a11a21a30*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip21,ip30,iIe))=field_up(ldn,ip12,ip21,ip30,iIe))+&rmatE & a12a21a30*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip21,ip30,iIe))=field_up(ldn,ip13,ip21,ip30,iIe))+&rmatE & a13a21a30*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip22,ip30,iIe))=field_up(ldn,ip10,ip22,ip30,iIe))+&rmatE & a10a22a30*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip22,ip30,iIe))=field_up(ldn,ip11,ip22,ip30,iIe))+&rmatE & a11a22a30*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip22,ip30,iIe))=field_up(ldn,ip12,ip22,ip30,iIe))+&rmatE & a12a22a30*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip22,ip30,iIe))=field_up(ldn,ip13,ip22,ip30,iIe))+&rmatE & a13a22a30*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip23,ip30,iIe))=field_up(ldn,ip10,ip23,ip30,iIe))+&rmatE & a10a23a30*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip23,ip30,iIe))=field_up(ldn,ip11,ip23,ip30,iIe))+&rmatE & a11a23a30*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip23,ip30,iIe))=field_up(ldn,ip12,ip23,ip30,iIe))+&rmatE & a12a23a30*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip23,ip30,iIe))=field_up(ldn,ip13,ip23,ip30,iIe))+&rmatE & a13a23a30*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip20,ip31,iIe))=field_up(ldn,ip10,ip20,ip31,iIe))+&rmatE & a10a20a31*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip20,ip31,iIe))=field_up(ldn,ip11,ip20,ip31,iIe))+&rmatE & a11a20a31*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip20,ip31,iIe))=field_up(ldn,ip12,ip20,ip31,iIe))+&rmatE & a12a20a31*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip20,ip31,iIe))=field_up(ldn,ip13,ip20,ip31,iIe))+&rmatE & a13a20a31*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip21,ip31,iIe))=field_up(ldn,ip10,ip21,ip31,iIe))+&rmatE & a10a21a31*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip21,ip31,iIe))=field_up(ldn,ip11,ip21,ip31,iIe))+&rmatE & a11a21a31*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip21,ip31,iIe))=field_up(ldn,ip12,ip21,ip31,iIe))+&rmatE & a12a21a31*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip21,ip31,iIe))=field_up(ldn,ip13,ip21,ip31,iIe))+&rmatE & a13a21a31*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip22,ip31,iIe))=field_up(ldn,ip10,ip22,ip31,iIe))+&rmatE & a10a22a31*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip22,ip31,iIe))=field_up(ldn,ip11,ip22,ip31,iIe))+&rmatE & a11a22a31*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip22,ip31,iIe))=field_up(ldn,ip12,ip22,ip31,iIe))+&rmatE & a12a22a31*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip22,ip31,iIe))=field_up(ldn,ip13,ip22,ip31,iIe))+&rmatE & a13a22a31*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip23,ip31,iIe))=field_up(ldn,ip10,ip23,ip31,iIe))+&rmatE & a10a23a31*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip23,ip31,iIe))=field_up(ldn,ip11,ip23,ip31,iIe))+&rmatE & a11a23a31*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip23,ip31,iIe))=field_up(ldn,ip12,ip23,ip31,iIe))+&rmatE & a12a23a31*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip23,ip31,iIe))=field_up(ldn,ip13,ip23,ip31,iIe))+&rmatE & a13a23a31*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip20,ip32,iIe))=field_up(ldn,ip10,ip20,ip32,iIe))+&rmatE & a10a20a32*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip20,ip32,iIe))=field_up(ldn,ip11,ip20,ip32,iIe))+&rmatE & a11a20a32*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip20,ip32,iIe))=field_up(ldn,ip12,ip20,ip32,iIe))+&rmatE & a12a20a32*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip20,ip32,iIe))=field_up(ldn,ip13,ip20,ip32,iIe))+&rmatE & a13a20a32*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip21,ip32,iIe))=field_up(ldn,ip10,ip21,ip32,iIe))+&rmatE & a10a21a32*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip21,ip32,iIe))=field_up(ldn,ip11,ip21,ip32,iIe))+&rmatE & a11a21a32*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip21,ip32,iIe))=field_up(ldn,ip12,ip21,ip32,iIe))+&rmatE & a12a21a32*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip21,ip32,iIe))=field_up(ldn,ip13,ip21,ip32,iIe))+&rmatE & a13a21a32*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip22,ip32,iIe))=field_up(ldn,ip10,ip22,ip32,iIe))+&rmatE & a10a22a32*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip22,ip32,iIe))=field_up(ldn,ip11,ip22,ip32,iIe))+&rmatE & a11a22a32*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip22,ip32,iIe))=field_up(ldn,ip12,ip22,ip32,iIe))+&rmatE & a12a22a32*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip22,ip32,iIe))=field_up(ldn,ip13,ip22,ip32,iIe))+&rmatE & a13a22a32*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip23,ip32,iIe))=field_up(ldn,ip10,ip23,ip32,iIe))+&rmatE & a10a23a32*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip23,ip32,iIe))=field_up(ldn,ip11,ip23,ip32,iIe))+&rmatE & a11a23a32*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip23,ip32,iIe))=field_up(ldn,ip12,ip23,ip32,iIe))+&rmatE & a12a23a32*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip23,ip32,iIe))=field_up(ldn,ip13,ip23,ip32,iIe))+&rmatE & a13a23a32*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip20,ip33,iIe))=field_up(ldn,ip10,ip20,ip33,iIe))+&rmatE & a10a20a33*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip20,ip33,iIe))=field_up(ldn,ip11,ip20,ip33,iIe))+&rmatE & a11a20a33*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip20,ip33,iIe))=field_up(ldn,ip12,ip20,ip33,iIe))+&rmatE & a12a20a33*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip20,ip33,iIe))=field_up(ldn,ip13,ip20,ip33,iIe))+&rmatE & a13a20a33*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip21,ip33,iIe))=field_up(ldn,ip10,ip21,ip33,iIe))+&rmatE & a10a21a33*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip21,ip33,iIe))=field_up(ldn,ip11,ip21,ip33,iIe))+&rmatE & a11a21a33*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip21,ip33,iIe))=field_up(ldn,ip12,ip21,ip33,iIe))+&rmatE & a12a21a33*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip21,ip33,iIe))=field_up(ldn,ip13,ip21,ip33,iIe))+&rmatE & a13a21a33*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip22,ip33,iIe))=field_up(ldn,ip10,ip22,ip33,iIe))+&rmatE & a10a22a33*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip22,ip33,iIe))=field_up(ldn,ip11,ip22,ip33,iIe))+&rmatE & a11a22a33*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip22,ip33,iIe))=field_up(ldn,ip12,ip22,ip33,iIe))+&rmatE & a12a22a33*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip22,ip33,iIe))=field_up(ldn,ip13,ip22,ip33,iIe))+&rmatE & a13a22a33*up(ldn,iq)rmatE _ field_up(ldn,ip10,ip23,ip33,iIe))=field_up(ldn,ip10,ip23,ip33,iIe))+&rmatE & a10a23a33*up(ldn,iq)rmatE _ field_up(ldn,ip11,ip23,ip33,iIe))=field_up(ldn,ip11,ip23,ip33,iIe))+&rmatE & a11a23a33*up(ldn,iq)rmatE _ field_up(ldn,ip12,ip23,ip33,iIe))=field_up(ldn,ip12,ip23,ip33,iIe))+&rmatE & a12a23a33*up(ldn,iq)rmatE _ field_up(ldn,ip13,ip23,ip33,iIe))=field_up(ldn,ip13,ip23,ip33,iIe))+&rmatE & a13a23a33*up(ldn,iq)r ENDDO ! lda ENDDO ! iq END IF ! ulrbll = lda casesr#elif __MODE == __SCA iIe) = topo%iIe) ied(iIe))dn o r=p = 1,store_h! )(iIe))ddn iq = ied_Ie)(iIe),ip) d x01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ x02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirmatE _ x03 1d(xp(3,iq)-min_Ie)(3,iIe) ))*dxziddn ip10INT(NT(x01)dn ip20INT(NT(x02)dn ip30INT(NT(x03)dd ip11p10I+ 1d ip21p20 + 1d ip31p30 + 1dd ip12p11I+ 1d ip22p21I+ 1d ip32p31 + 1dd ip13p11I+ 2d ip23p21I+ 2d ip33p31 + 2dd xp1x01-dddddp10,mk d xp2x02-dddddp20,mk d xp3x03-dddddp30,mk dd x10INTxp1 + 1.0_mkd x11x10I-d1.0_mkd x12x10I-d2.0_mkd x13x10I-d3.0_mkdd x20INTxp2 + 1.0_mkd x21x20I-d1.0_mkd x22x20I-d2.0_mkd x23x20I-d3.0_mkdd x30INTxp3 + 1.0_mkd x31x30I-d1.0_mkd x32x30I-d2.0_mkd x33x30I-d3.0_mkdd a10 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10d a20 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20d a30 NT2.0_mkI+ (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30dd a11INT1.0_mkI+ (-2.5_mk+1.5_mk*x11)*x11**2d a21INT1.0_mkI+ (-2.5_mk+1.5_mk*x21)*x21**2d a31INT1.0_mkI+ (-2.5_mk+1.5_mk*x31)*x31**2dd a12INT1.0_mkI+ (-2.5_mk-1.5_mk*x12)*x12**2d a22INT1.0_mkI+ (-2.5_mk-1.5_mk*x22)*x22**2d a32INT1.0_mkI+ (-2.5_mk-1.5_mk*x32)*x32**2dd a13 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x13)*x13)*x13d a23 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x23)*x23)*x23d a33 NT2.0_mkI+ (4.0_mkI+ (2.5_mk+0.5_mk*x33)*x33)*x33 d a10a20a30 NTa10*a20*a30rmatE _ a10a20a31INTa10*a20*a31dmatE _ a10a20a32INTa10*a20*a32d a10a20a33INTa10*a20*a33d a10a21a30INTa10*a21*a30rma a10a21a31INTa10*a21*a31dmatE _ a10a21a32INTa10*a21*a32d a10a21a33INTa10*a21*a33d a10a22a30INTa10*a22*a30rma a10a22a31INTa10*a22*a31dmatE _ a10a22a32INTa10*a22*a32d a10a22a33INTa10*a22*a33d a10a23a30INTa10*a23*a30rma a10a23a31INTa10*a23*a31dmatE _ a10a23a32INTa10*a23*a32d a10a23a33INTa10*a23*a33d a11a20a30 NTa11*a20*a30rmatE _ a11a20a31INTa11*a20*a31dmatE _ a11a20a32INTa11*a20*a32d a11a20a33INTa11*a20*a33d a11a21a30INTa11*a21*a30rmatE _ a11a21a31INTa11*a21*a31dmatE _ a11a21a32INTa11*a21*a32d a11a21a33INTa11*a21*a33d a11a22a30INTa11*a22*a30rma a11a22a31INTa11*a22*a31dmatE _ a11a22a32INTa11*a22*a32d a11a22a33INTa11*a22*a33d a11a23a30INTa11*a23*a30rma a11a23a31INTa11*a23*a31dmatE _ a11a23a32INTa11*a23*a32d a11a23a33INTa11*a23*a33d a12a20a30 NTa12*a20*a30rmatE _ a12a20a31INTa12*a20*a31dmatE _ a12a20a32INTa12*a20*a32d a12a20a33INTa12*a20*a33d a12a21a30INTa12*a21*a30rmatE _ a12a21a31INTa12*a21*a31dmatE _ a12a21a32INTa12*a21*a32d a12a21a33INTa12*a21*a33d a12a22a30INTa12*a22*a30rma a12a22a31INTa12*a22*a31dmatE _ a12a22a32INTa12*a22*a32d a12a22a33INTa12*a22*a33d a12a23a30INTa12*a23*a30rma a12a23a31INTa12*a23*a31dmatE _ a12a23a32INTa12*a23*a32d a12a23a33INTa12*a23*a33d a13a20a30 NTa13*a20*a30rmatE _ a13a20a31INTa13*a20*a31dmatE _ a13a20a32INTa13*a20*a32d a13a20a33INTa13*a20*a33d a13a21a30INTa13*a21*a30rmatE _ a13a21a31INTa13*a21*a31dmatE _ a13a21a32INTa13*a21*a32d a13a21a33INTa13*a21*a33d a13a22a30INTa13*a22*a30rma a13a22a31INTa13*a22*a31dmatE _ a13a22a32INTa13*a22*a32d a13a22a33INTa13*a22*a33d a13a23a30INTa13*a23*a30rma a13a23a31INTa13*a23*a31dmatE _ a13a23a32INTa13*a23*a32d a13a23a33INTa13*a23*a33dd field_up(ip10,ip20,ip30,iIe))=field_up(ip10,ip20,ip30,iIe))+&rmatE & a10a20a30*up(iq)rmatE _ field_up(ip11,ip20,ip30,iIe))=field_up(ip11,ip20,ip30,iIe))+&rmatE & a11a20a30*up(iq)rmatE _ field_up(ip12,ip20,ip30,iIe))=field_up(ip12,ip20,ip30,iIe))+&rmatE & a12a20a30*up(iq)rmatE _ field_up(ip13,ip20,ip30,iIe))=field_up(ip13,ip20,ip30,iIe))+&rmatE & a13a20a30*up(iq)rmatE _ field_up(ip10,ip21,ip30,iIe))=field_up(ip10,ip21,ip30,iIe))+&rmatE & a10a21a30*up(iq)rmatE _ field_up(ip11,ip21,ip30,iIe))=field_up(ip11,ip21,ip30,iIe))+&rmatE & a11a21a30*up(iq)rmatE _ field_up(ip12,ip21,ip30,iIe))=field_up(ip12,ip21,ip30,iIe))+&rmatE & a12a21a30*up(iq)rmatE _ field_up(ip13,ip21,ip30,iIe))=field_up(ip13,ip21,ip30,iIe))+&rmatE & a13a21a30*up(iq)rmatE _ field_up(ip10,ip22,ip30,iIe))=field_up(ip10,ip22,ip30,iIe))+&rmatE & a10a22a30*up(iq)rmatE _ field_up(ip11,ip22,ip30,iIe))=field_up(ip11,ip22,ip30,iIe))+&rmatE & a11a22a30*up(iq)rmatE _ field_up(ip12,ip22,ip30,iIe))=field_up(ip12,ip22,ip30,iIe))+&rmatE & a12a22a30*up(iq)rmatE _ field_up(ip13,ip22,ip30,iIe))=field_up(ip13,ip22,ip30,iIe))+&rmatE & a13a22a30*up(iq)rmatE _ field_up(ip10,ip23,ip30,iIe))=field_up(ip10,ip23,ip30,iIe))+&rmatE & a10a23a30*up(iq)rmatE _ field_up(ip11,ip23,ip30,iIe))=field_up(ip11,ip23,ip30,iIe))+&rmatE & a11a23a30*up(iq)rmatE _ field_up(ip12,ip23,ip30,iIe))=field_up(ip12,ip23,ip30,iIe))+&rmatE & a12a23a30*up(iq)rmatE _ field_up(ip13,ip23,ip30,iIe))=field_up(ip13,ip23,ip30,iIe))+&rmatE & a13a23a30*up(iq)rmatE _ field_up(ip10,ip20,ip31,iIe))=field_up(ip10,ip20,ip31,iIe))+&rmatE & a10a20a31*up(iq)rmatE _ field_up(ip11,ip20,ip31,iIe))=field_up(ip11,ip20,ip31,iIe))+&rmatE & a11a20a31*up(iq)rmatE _ field_up(ip12,ip20,ip31,iIe))=field_up(ip12,ip20,ip31,iIe))+&rmatE & a12a20a31*up(iq)rmatE _ field_up(ip13,ip20,ip31,iIe))=field_up(ip13,ip20,ip31,iIe))+&rmatE & a13a20a31*up(iq)rmatE _ field_up(ip10,ip21,ip31,iIe))=field_up(ip10,ip21,ip31,iIe))+&rmatE & a10a21a31*up(iq)rmatE _ field_up(ip11,ip21,ip31,iIe))=field_up(ip11,ip21,ip31,iIe))+&rmatE & a11a21a31*up(iq)rmatE _ field_up(ip12,ip21,ip31,iIe))=field_up(ip12,ip21,ip31,iIe))+&rmatE & a12a21a31*up(iq)rmatE _ field_up(ip13,ip21,ip31,iIe))=field_up(ip13,ip21,ip31,iIe))+&rmatE & a13a21a31*up(iq)rmatE _ field_up(ip10,ip22,ip31,iIe))=field_up(ip10,ip22,ip31,iIe))+&rmatE & a10a22a31*up(iq)rmatE _ field_up(ip11,ip22,ip31,iIe))=field_up(ip11,ip22,ip31,iIe))+&rmatE & a11a22a31*up(iq)rmatE _ field_up(ip12,ip22,ip31,iIe))=field_up(ip12,ip22,ip31,iIe))+&rmatE & a12a22a31*up(iq)rmatE _ field_up(ip13,ip22,ip31,iIe))=field_up(ip13,ip22,ip31,iIe))+&rmatE & a13a22a31*up(iq)rmatE _ field_up(ip10,ip23,ip31,iIe))=field_up(ip10,ip23,ip31,iIe))+&rmatE & a10a23a31*up(iq)rmatE _ field_up(ip11,ip23,ip31,iIe))=field_up(ip11,ip23,ip31,iIe))+&rmatE & a11a23a31*up(iq)rmatE _ field_up(ip12,ip23,ip31,iIe))=field_up(ip12,ip23,ip31,iIe))+&rmatE & a12a23a31*up(iq)rmatE _ field_up(ip13,ip23,ip31,iIe))=field_up(ip13,ip23,ip31,iIe))+&rmatE & a13a23a31*up(iq)rmatE _ field_up(ip10,ip20,ip32,iIe))=field_up(ip10,ip20,ip32,iIe))+&rmatE & a10a20a32*up(iq)rmatE _ field_up(ip11,ip20,ip32,iIe))=field_up(ip11,ip20,ip32,iIe))+&rmatE & a11a20a32*up(iq)rmatE _ field_up(ip12,ip20,ip32,iIe))=field_up(ip12,ip20,ip32,iIe))+&rmatE & a12a20a32*up(iq)rmatE _ field_up(ip13,ip20,ip32,iIe))=field_up(ip13,ip20,ip32,iIe))+&rmatE & a13a20a32*up(iq)rmatE _ field_up(ip10,ip21,ip32,iIe))=field_up(ip10,ip21,ip32,iIe))+&rmatE & a10a21a32*up(iq)rmatE _ field_up(ip11,ip21,ip32,iIe))=field_up(ip11,ip21,ip32,iIe))+&rmatE & a11a21a32*up(iq)rmatE _ field_up(ip12,ip21,ip32,iIe))=field_up(ip12,ip21,ip32,iIe))+&rmatE & a12a21a32*up(iq)rmatE _ field_up(ip13,ip21,ip32,iIe))=field_up(ip13,ip21,ip32,iIe))+&rmatE & a13a21a32*up(iq)rmatE _ field_up(ip10,ip22,ip32,iIe))=field_up(ip10,ip22,ip32,iIe))+&rmatE & a10a22a32*up(iq)rmatE _ field_up(ip11,ip22,ip32,iIe))=field_up(ip11,ip22,ip32,iIe))+&rmatE & a11a22a32*up(iq)rmatE _ field_up(ip12,ip22,ip32,iIe))=field_up(ip12,ip22,ip32,iIe))+&rmatE & a12a22a32*up(iq)rmatE _ field_up(ip13,ip22,ip32,iIe))=field_up(ip13,ip22,ip32,iIe))+&rmatE & a13a22a32*up(iq)rmatE _ field_up(ip10,ip23,ip32,iIe))=field_up(ip10,ip23,ip32,iIe))+&rmatE & a10a23a32*up(iq)rmatE _ field_up(ip11,ip23,ip32,iIe))=field_up(ip11,ip23,ip32,iIe))+&rmatE & a11a23a32*up(iq)rmatE _ field_up(ip12,ip23,ip32,iIe))=field_up(ip12,ip23,ip32,iIe))+&rmatE & a12a23a32*up(iq)rmatE _ field_up(ip13,ip23,ip32,iIe))=field_up(ip13,ip23,ip32,iIe))+&rmatE & a13a23a32*up(iq)rmatE _ field_up(ip10,ip20,ip33,iIe))=field_up(ip10,ip20,ip33,iIe))+&rmatE & a10a20a33*up(iq)rmatE _ field_up(ip11,ip20,ip33,iIe))=field_up(ip11,ip20,ip33,iIe))+&rmatE & a11a20a33*up(iq)rmatE _ field_up(ip12,ip20,ip33,iIe))=field_up(ip12,ip20,ip33,iIe))+&rmatE & a12a20a33*up(iq)rmatE _ field_up(ip13,ip20,ip33,iIe))=field_up(ip13,ip20,ip33,iIe))+&rmatE & a13a20a33*up(iq)rmatE _ field_up(ip10,ip21,ip33,iIe))=field_up(ip10,ip21,ip33,iIe))+&rmatE & a10a21a33*up(iq)rmatE _ field_up(ip11,ip21,ip33,iIe))=field_up(ip11,ip21,ip33,iIe))+&rmatE & a11a21a33*up(iq)rmatE _ field_up(ip12,ip21,ip33,iIe))=field_up(ip12,ip21,ip33,iIe))+&rmatE & a12a21a33*up(iq)rmatE _ field_up(ip13,ip21,ip33,iIe))=field_up(ip13,ip21,ip33,iIe))+&rmatE & a13a21a33*up(iq)rmatE _ field_up(ip10,ip22,ip33,iIe))=field_up(ip10,ip22,ip33,iIe))+&rmatE & a10a22a33*up(iq)rmatE _ field_up(ip11,ip22,ip33,iIe))=field_up(ip11,ip22,ip33,iIe))+&rmatE & a11a22a33*up(iq)rmatE _ field_up(ip12,ip22,ip33,iIe))=field_up(ip12,ip22,ip33,iIe))+&rmatE & a12a22a33*up(iq)rmatE _ field_up(ip13,ip22,ip33,iIe))=field_up(ip13,ip22,ip33,iIe))+&rmatE & a13a22a33*up(iq)rmatE _ field_up(ip10,ip23,ip33,iIe))=field_up(ip10,ip23,ip33,iIe))+&rmatE & a10a23a33*up(iq)rmatE _ field_up(ip11,ip23,ip33,iIe))=field_up(ip11,ip23,ip33,iIe))+&rmatE & a11a23a33*up(iq)rmatE _ field_up(ip12,ip23,ip33,iIe))=field_up(ip12,ip23,ip33,iIe))+&rmatE & a12a23a33*up(iq)rmatE _ field_up(ip13,ip23,ip33,iIe))=field_up(ip13,ip23,ip33,iIe))+&rmatE & a13a23a33*up(iq)rmatE _ ENDDO ! iq #endif E _ END DO ! loop over Ie)s r#elif __DIME == __2D E _ o r=Ie) = 1,topo%nse) iedrmatE _ o r=p = 1,store_h! )(iIe))ddn ise) = topo%iIe) ied(iIe))dn iq = ied_Ie)(iIe),ip) d x01 1d(xp(1,iq)-min_Ie)(1,iIe) ))*dxxirmatE _ x02 1d(xp(2,iq)-min_Ie)(2,iIe) ))*dxyirdn ip1(NT(x01)+1d ip2INT(NT(x02)+1dd xp1x01-A(NT(x01)dn xp2x02-A(NT(x02)ddn o rjj-1,2dd Vx2ABS(xp2- dddddjj,mk )r IF(x2.LT.1.0_mk) THEN wx2INT1.0_mkI-Vx2**2*(2.5_mk-1.5_mk*x2)dn ELSEdn wx2INT2.0_mkI+ (-4.0_mkI+ &rmatE & (2.5_mkI-V0.5_mk *Vx2)*x2)*x2dn END IFdd DO ii =I-d1,2dd V x1ABS(xp1- dddddii,mk )r IF(x1.LT.1.0_MK) THEN wx1T1.0_mkI-Vx1**2*(2.5_mkI-V&rmatE & 1.5_mk*x1)dn ELSEdn wx1T2.0_mkI+ (-4.0_mkI+ &rmatE & (2.5_mkI-V0.5_mk*x1)*x1)*x1dn END IFdd#if __MODE == __SCA field_up(ii+ip1,jj+ip2,iIe)) &rmatE & = field_up(ii+ip1,jj+ip2,iIe)) &rmatE & + wx1*wx2*up(iq)r#else DO ldn=1,ldad field_up(ldn,ii+ip1,jj+ip2,iIe)) &rmatE & = field_up(ldn,ii+ip1,jj+ip2,iIe)) &rmatE & + wx1*wx2*up(ldn,iq)rmatE _ ENDDOr#endif E _ END DOr END DOr END DOr END DO ! loop over Ie)s #endif r CALL Ie)stop('p2m_h!terp_mp4',t0,i! ))rmatE _RETURNdd#if __DIME == __2D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION END SUBROUTINE p2m_h!terp_mp4_ss_2dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE p2m_h!terp_mp4_ds_2dr#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION END SUBROUTINE p2m_h!terp_mp4_sv_2dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE p2m_h!terp_mp4_dv_2dr#endif #endif #elif __DIME == __3D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION END SUBROUTINE p2m_h!terp_mp4_ss_3dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE p2m_h!terp_mp4_ds_3dr#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION END SUBROUTINE p2m_h!terp_mp4_sv_3dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE p2m_h!terp_mp4_dv_3dr#endif #endif #endif libppm-1.2/src/h!terpolate/ppm_h!terp_m2p.f000644 000765 000024 00000074122 11445666061 021176 0ustar00omarstaff000000 000000 !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Subroutine :atE _ ppm_h!terp_m2p !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ! Ce!ter for Fluid Dynamics (DTU)rmatE _!rmatE _!rmatE _! This file is part of the Parallel Particle Mesh Library (PPM).rmatE _!rmatE _! PPM is free software: you can rediedribute it and/or modifyrmatE _! it under the terms of the GNU Lesser General Pe) ic License ! as pe) iehed by the Free Software Foundation, either ! version 3 of the License, or (at your option) any later ! version.rmatE _!rmatE _! PPM is diedributed in the hope that it will be useful,rmatE _! but WITHOUT ANY WARRANTY; without even the implied warranty ofrmatE _! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See thermatE _! GNU General Pe) ic License for more details.rmatE _!rmatE _! You should have received a copy of the GNU General Pe) ic License ! and the GNU Lesser General Pe) ic License along with PPM. If not,rmatE _! see .rmatE _!rmatE _! Parallel Particle Mesh Library (PPM)rmatE _! ETH Zurich ! CH-8092 Zurich, Switzerland !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd dd#if __DIME == __2D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION SUBROUTINE m2p_ss_2d(topoid,meshid,xp,Np,up,kernel, &rmatE & ghostsize,field_up,i! ))r#elif __KIND == __DOUBLE_PRECISION SUBROUTINE m2p_ds_2d(topoid,meshid,xp,Np,up,kernel, &rmatE & ghostsize,field_up,i! ))r#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION SUBROUTINE m2p_sv_2d(topoid,meshid,xp,Np,up,lda,kernel, &rmatE & ghostsize,field_up,i! ))r#elif __KIND == __DOUBLE_PRECISION SUBROUTINE m2p_dv_2d(topoid,meshid,xp,Np,up,lda,kernel, &rmatE & ghostsize,field_up,i! ))r#endif #endif #elif __DIME == __3D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION SUBROUTINE m2p_ss_3d(topoid,meshid,xp,Np,up,kernel, &rmatE & ghostsize,field_up,i! ))r#elif __KIND == __DOUBLE_PRECISION SUBROUTINE m2p_ds_3d(topoid,meshid,xp,Np,up,kernel, &rmatE & ghostsize,field_up,i! ))r#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION SUBROUTINE m2p_sv_3d(topoid,meshid,xp,Np,up,lda,kernel, &rmatE & ghostsize,field_up,i! ))r#elif __KIND == __DOUBLE_PRECISION SUBROUTINE m2p_dv_3d(topoid,meshid,xp,Np,up,lda,kernel, &rmatE & ghostsize,field_up,i! ))r#endif #endif #endif !!! This subroutine carries out mesh to particle h!terpolation.rmatE _!!! rmatE _!!! Curre!tly 2 h!terpolation schemes are supported:rmatE _!!!rmatE _!!! * ppm_param_rmsh_kernel_bsp2rmatE _!!! * ppm_param_rmsh_kernel_mp4rmatE _!!!rmatE _!!! [WARNING] !!! This routine assumes that `up` is already allocated. !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! INCLUDES !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd d !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Modulesd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd USE ppm_module_error USE ppm_module_alloc USE ppm_module_Ie)start USE ppm_module_Ie)stop USE ppm_module_data USE ppm_module_data_rmsh USE ppm_module_data_mesh USE ppm_module_typedef USE ppm_module_write USE ppm_module_check_id IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_singler#elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_doe) e #endif !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Argumentsd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd #if __MODE == __SCA dddddMK) , DIMENSION(:) , POINTER :: up !!! particle weights onto which to h!terpolated#if __DIME == __2D dddddMK) , DIMENSION(:,:,: ) , INTENT(IN ) :: field_up #elif __DIME == __3D dddddMK) , DIMENSION(:,:,:,: ) , INTENT(IN ) :: field_up #endif !!! field from which to h!terpolated#elif __MODE == __VEC INTEGER , INTENT(IN ) :: ldad !!! leading dimension of up dddddMK) , DIMENSION(:,:) , POINTER :: up !!! particle weights onto which to h!terpolated#if __DIME == __2D dddddMK) , DIMENSION(:,:,:,: ) , INTENT(IN ) :: field_up #elif __DIME == __3D dddddMK) , DIMENSION(:,:,:,:,:) , INTENT(IN ) :: field_up #endif !!! field from which to h!terpolated#endif dddddMK), DIMENSION(:,:) , INTENT(IN ) :: xp !!! particle positions INTEGER , DIMENSION(: ) , INTENT(IN ) :: ghostsize !!! ghost size INTEGER , INTENT(IN ) :: Np !!! number of particles.rmatE _INTEGER , INTENT(IN ) :: topoid !!! topology identifier of targetrmatE _INTEGER , INTENT(IN ) :: meshid !!! id of the mesh (user)rmatE _INTEGER , INTENT(IN ) :: kernelrmatE _!!! Choice of the kernel used to compute the weights. +rmatE _!!! One of:rmatE _!!!rmatE _!!! * ppm_param_rmsh_kernel_bsp2rmatE _!!! * ppm_param_rmsh_kernel_mp4rmatE _INTEGER , INTENT( OUT) :: i! )rmatE _!!! Returns 0 upon successd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Local variablesd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd INTEGER, DIMENSION(:,:) , POINTER :: istart INTEGER, DIMENSION(:) , POINTER :: i ied1,i ied2 dddddMK), DIMENSION(:) , POINTER :: min_phys,max_phys dddddMK), DIMENSION(ppm_dim) :: dxi,dx dddddMK), DIMENSION(ppm_dim) :: len_phys dddddMK) :: x1,x2,x3,epsilon INTEGER :: kernel_support INTEGER, DIMENSION(ppm_dim+2) :: ldu,ldl INTEGER, DIMENSION(ppm_dim) :: Nc INTEGER :: i,j,k,ii,jj,kk,iidec,maptype INTEGER :: jjdec,nb_Ie),npart,ipart INTEGER :: kkdec,ip1,nbpt_z,n ied1 INTEGER :: ip2,ip3,nbpt_x,nbpt_y,iface INTEGER :: iIe),ifrom,ito,ip,dim,iopt,iIe) INTEGER :: max_partnumber,idom,n ied2,idoml INTEGER, DIMENSION(ppm_dim) :: Nm INTEGER :: nIe)s INTEGER, DIMENSION(6) :: bcdef INTEGER :: iq LOGICAL :: i!ternal_weights,lok ! aliasesr dddddmk), DIMENSION(:,:), POINTER :: min_Ie), max_Ie)r dddddmk) :: myepsr dddddmk) :: tim1s, tim1e TYPE(ppm_t_equi_mesh), POINTER :: p_mesh TYPE(ppm_t_topo) , POINTER :: topo !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Initialize !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd CALL Ie)start('ppm_h!terp_m2p',t0,i! ))r !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Some compilers have problems i!itializing constants that are declared ! in the module therefore we do it here: !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ppm_rmsh_kernelsize 1d(/1,2,2,4/)r dim = ppm_dim i!ternal_weights = .FALSE.r !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Check argumentsd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd IF (ppm_debug .GT. 0) THEN CALL check IF (i! ) .NE. 0) GOTO 9999 ENDIFdd IF(Np.EQ.0) GOTO 9999 d topo => ppm_topo(topoid)%tr !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Get the mesh !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd p_mesh => topo%mesh(meshid) !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Get istart !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd d istart => p_mesh%istart !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Assignment of the useful arrays/scalar !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd Nm(1:dim) = p_mesh%Nm bcdef(1:(2*dim)) = topo%bcdef(1:(2*dim)) nIe)s = topo%nse) iedr !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Allocate memory for particle ieds ! The awesome ppm_alloc will (re)allocate them, so we dont need an i!it ! or a finalize routine. !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd iopt = ppm_param_alloc_fit ldu(1) = Np IF(nIe)s.NE.1) CALL ppm_alloc(i ied1,ldu,iopt,i! ))rmatE _IF (i! ).NE.0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_alloc,'ppm_h!terp_m2p_3d', &rmatE & 'particle ied 1 ILIST1',__LINE__,i! ))rmatE ____GOTO 9999 END IFd IF(nIe)s.NE.1) CALL ppm_alloc(i ied2,ldu,iopt,i! ))rmatE _IF (i! ).NE.0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_alloc,'ppm_h!terp_m2p_3d', &rmatE & 'particle ied 2 ILIST2',__LINE__,i! ))rmatE ____GOTO 9999 END IFd iopt = ppm_param_alloc_fit ldu(1) = nIe)s IF(nIe)s.NE.1) CALL ppm_alloc(store_h! ),ldu,iopt,i! ))rmatE _IF (i! ).NE.0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_alloc,'ppm_h!terp_m2p_3d', &rmatE & 'store_h! ) allocation : problem',__LINE__,i! ))rmatE ____GOTO 9999 END IFd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Mesh spacingd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd #if __KIND == __SINGLE_PRECISION min_phys => topo%min_physs max_phys => topo%max_physsr#elif __KIND == __DOUBLE_PRECISION min_phys => topo%min_physd max_phys => topo%max_physdr#endif DO i = 1,dim Nc(i) = Nm(i) - 1d len_phys(i) = max_phys(i) - min_phys(i)d dx(i) = len_phys(i)/dddddNc(i),MK) END DOr dxiINT1.0_mk/dx !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Initialize the particle iedd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd IF(nIe)s.NE.1) THEN n ied1 = 0rma store_h! ) = 0rma o r=part=1,Np n ied1 = n ied1 + 1d i ied1(n ied1) = ipart END DOr END IFd#if __KIND == __SINGLE_PRECISION myeps = ppm_myepss min_Ie) => topo%min_Ie)s max_Ie) => topo%max_Ie)s #elif __KIND == __DOUBLE_PRECISION myeps = ppm_myepsd min_Ie) => topo%min_Ie)d max_Ie) => topo%max_Ie)dr#endif !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Loop over the Ie)domains (since the fired domains are most likelyrmatE _! to be empty, we look backwards to reduce the number of elements i!rmatE _! n ied2 as fast as possible) !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd IF(nIe)s.NE.1) THEN o r=dom = topo%nse) ied,1,-1d idoml = topo%iIe) ied(idom)rmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ ! Loop over the remaining particlesrmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ n ied2 = 0rma npart = 0rma o r==1,n ied1 ipart = i ied1(i)r !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd ! If the particle is i!side the curre!t Ie)domain, assign it !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd IF(ppm_dim.EQ.3) THEN !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddd ! The particle is i! the closure of the Ie)domain !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddd IF( ( xp(1,ipart).GE.min_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).GE.min_Ie)(2,idoml) .AND. &rmatE & xp(3,ipart).GE.min_Ie)(3,idoml) .AND. &rmatE & xp(1,ipart).LE.max_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).LE.max_Ie)(2,idoml) .AND. &rmatE & xp(3,ipart).LE.max_Ie)(3,idoml) ) ) THEN IF( d(xp(1,ipart).LT.max_Ie)(1,idoml) .OR. &rmatE & (topo%Ie)s_bc(2,idoml).EQ.1 .AND. &rmatE & bcdef(2).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(2,ipart).LT.max_Ie)(2,idoml) .OR. &rmatE & (topo%Ie)s_bc(4,idoml).EQ.1 .AND. &rmatE & bcdef(4).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(3,ipart).LT.max_Ie)(3,idoml) .OR. &rmatE & (topo%Ie)s_bc(6,idoml).EQ.1 .AND. &rmatE & bcdef(6).NE. ppm_param_bcdef_periodic)) ) THEN npart = npart + 1d store_h! )(idom) = npartd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart ENDIFd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd ELSEIF (ppm_dim.EQ.2) THEN IF( ( xp(1,ipart).GE.min_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).GE.min_Ie)(2,idoml) .AND. &rmatE & xp(1,ipart).LE.max_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).LE.max_Ie)(2,idoml) ) ) THEN IF( d(xp(1,ipart).LT.max_Ie)(1,idoml) .OR. &rmatE & (topo%Ie)s_bc(2,idoml).EQ.1 .AND. &rmatE & bcdef(2).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(2,ipart).LT.max_Ie)(2,idoml) .OR. &rmatE & (topo%Ie)s_bc(4,idoml).EQ.1 .AND. &rmatE & bcdef(4).NE. ppm_param_bcdef_periodic))) THEN npart = npart + 1d store_h! )(idom) = npartd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd END IFd END DO ! end loop over remaining parts i! i ied1 !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ ! Copy the ieds (well, only if n ied2 changed - decreased)rmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ IF (n ied2.NE.n ied1) THEN n ied1 = n ied2 o r==1,n ied1 i ied1(i) = i ied2(i)d END DOd ENDIFdd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ ! Exit if the ied is emptyrmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ IF (n ied1.EQ.0) EXIT END DO ! end loop over Ie)s !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ ! Check that we sold all the particles !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ IF (n ied2.GT.0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_part_unass,'ppm_h!terp_m2p', &rmatE & 'MAJOR PROBLEM',__LINE__,i! ))rmatE ____ __GOTO 9999 END IFdd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ ! Whats the maximum number of particles per Ie)domain !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ max_partnumber = 0rma o r=dom=1,topo%nse) iedrmatE _ IF(store_h! )(idom).GE.max_partnumber) THEN max_partnumber = store_h! )(idom)d END IFd END DOd iopt = ppm_param_alloc_fit ldu(1) = topo%nse) iedrmatE _ ldu(2) = max_partnumberdd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ ! Allocate particle iedd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ CALL ppm_alloc( ied_Ie),ldu,iopt,i! ))rmatE _ IF(i! ).NE.0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_alloc,'ppm_h!terp_m2p_3d', &rmatE & 'problem i! i!ternal allocation',__LINE__,i! ))rmatE ____ __GOTO 9999 END IFdd ied_Ie) = 0rma !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ ! Initialize the particle iedd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ n ied1 = 0rma o r=part=1,Np n ied1 = n ied1 + 1d i ied1(n ied1) = ipart ENDDOdrma !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ ! Loop over the Ie)domains (since the fired domains are most likelyrmatE _ _! to be empty, we look backwards to reduce the number of elements i!rmatE _ _! n ied2 as fast as possible) !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ o r=dom = topo%nse) ied,1,-1d idoml = topo%iIe) ied(idom)rmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ ! loop over the remaining particlesrmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ n ied2 = 0rma npart = 0rma o r==1,n ied1 ipart = i ied1(i)r !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd ! If the particle is i!side the curre!t Ie)domain, assign it !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd IF(ppm_dim.EQ.3) THEN IF( ( xp(1,ipart).GE.min_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).GE.min_Ie)(2,idoml) .AND. &rmatE & xp(3,ipart).GE.min_Ie)(3,idoml) .AND. &rmatE & xp(1,ipart).LE.max_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).LE.max_Ie)(2,idoml) .AND. &rmatE & xp(3,ipart).LE.max_Ie)(3,idoml) ) ) THEN IF( d(xp(1,ipart).LT.max_Ie)(1,idoml) .OR. &rmatE & (topo%Ie)s_bc(2,idoml).EQ.1 .AND. &rmatE & bcdef(2).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(2,ipart).LT.max_Ie)(2,idoml) .OR. &rmatE & (topo%Ie)s_bc(4,idoml).EQ.1 .AND. &rmatE & bcdef(4).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(3,ipart).LT.max_Ie)(3,idoml) .OR. &rmatE & (topo%Ie)s_bc(6,idoml).EQ.1 .AND. &rmatE & bcdef(6).NE. ppm_param_bcdef_periodic)) ) THEN npart = npart + 1d ied_Ie)(idom,npart) = ipart ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart ENDIFd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd ELSEIF (ppm_dim.EQ.2) THEN IF( ( xp(1,ipart).GE.min_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).GE.min_Ie)(2,idoml) .AND. &rmatE & xp(1,ipart).LE.max_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).LE.max_Ie)(2,idoml) ) ) THEN IF( d(xp(1,ipart).LT.max_Ie)(1,idom) .OR. &rmatE & (topo%Ie)s_bc(2,idoml).EQ.1 .AND. &rmatE & bcdef(2).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(2,ipart).LT.max_Ie)(2,idoml) .OR. &rmatE & (topo%Ie)s_bc(4,idoml).EQ.1 .AND. &rmatE & bcdef(4).NE. ppm_param_bcdef_periodic))) THEN npart = npart + 1d ied_Ie)(idom,npart) = ipart ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd END IFd END DO ! end loop over Ie)s !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ ! Copy the ieds (well, only if n ied2 changed - decreased)rmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ IF (n ied2.NE.n ied1) THEN n ied1 = n ied2 o r==1,n ied1 i ied1(i) = i ied2(i)d END DOd END IFdd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ ! Exit if the ied is emptyrmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddrmatE _ IF (n ied1.EQ.0) EXIT END DOdrma !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ ! Check that we sold all the particles !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ IF (n ied2.GT.0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_part_unass,'ppm_h!terp_m2p_3d', &rmatE & 'MAJOR PROBLEM',__LINE__,i! ))rmatE ____ __GOTO 9999 ENDIFdd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ ! Allocate and alias the weights if we need them.d !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ max_partnumber = 0rma o r=dom = 1,topo%nse) iedrmatE _ IF(store_h! )(idom).GE.max_partnumber) THEN max_partnumber = store_h! )(idom)d END IFd END DOd ELSE ! now the case of one Ie)domain on this processor max_partnumber = np iopt = ppm_param_alloc_fit ldu(1) = 1 CALL ppm_alloc(store_h! ),ldu,iopt,i! ))rmatE _ IF(i! ).NE.0) THEN CALL ppm_error(ppm_err_alloc,'ppm_h!terp_m2p_3d', &rmatE & 'problem i! i!ternal allocation',__LINE__,i! ))rmatE ____ __GOTO 9999 END IFd store_h! )(1) = max_partnumberd ldu(1) = 1 ldu(2) = max_partnumberd CALL ppm_alloc( ied_Ie),ldu,iopt,i! ))rmatE _ IF(i! ).NE.0) THEN CALL ppm_error(ppm_err_alloc,'ppm_h!terp_m2p_3d', &rmatE & 'problem i! i!ternal allocation',__LINE__,i! ))rmatE ____ __GOTO 9999 END IFd o r==1,max_partnumberd ied_Ie)(1,i) = id END DOd END IFddd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Beginning of the computationd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Particle quantity reset #if __MODE == __SCA o r=p=1,np up(ip) = 0.0_mkd END DOr#elif __MODE == __VEC IF(lda.EQ.3) THEN o r=p=1,np up(1,ip) = 0.0_mkd up(2,ip) = 0.0_mkd up(3,ip) = 0.0_mkd END DOd ELSEIF(lda.EQ.5) THEN o r=p=1,np up(1,ip) = 0.0_mkd up(2,ip) = 0.0_mkd up(3,ip) = 0.0_mkd up(4,ip) = 0.0_mkd up(5,ip) = 0.0_mkd END DOd ELSE up = 0.0_mkd END IFd#endif SELECT CASE(kernel) r CASE(ppm_param_rmsh_kernel_mp4)d#if __MODE == __SCA CALL m2p_h!terp_mp4(topoid,meshid,field_up,xp,up,dx,ghostsize,i! ))r#elif __MODE == __VEC CALL m2p_h!terp_mp4(topoid,meshid,field_up,lda,xp,up,dx,ghostsize,i! ))r#endif CASE(ppm_param_rmsh_kernel_bsp2)d#if __MODE == __SCA CALL m2p_h!terp_bsp2(topoid,meshid,field_up,xp,up,dx,ghostsize,i! ))r#elif __MODE == __VEC CALL m2p_h!terp_bsp2(topoid,meshid,field_up,lda,xp,up,dx,ghostsize,i! ))r#endif CASE DEFAULT i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_m2p', &rmatE & 'Only Mp4 and BSp2 are avail. Use ppm_rmsh_remesh for other kernels.', &rmatE & __LINE__,i! ))rmatE _END SELECT ! kernel type d !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Dont deallocate if something we!t wrong, as the arrays may not even be ! associatedd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd IF (i! ).NE.0) GOTO 9999 !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Deallocation of the arrays.... !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd iopt = ppm_param_dealloc ldu(1) = 0 CALL ppm_alloc(i ied1,ldu,iopt,i! ))rmatE _IF (i! ).NE.0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_dealloc, &rmatE & 'ppm_h!terp_m2p', &rmatE & 'pb i! i ied1 deallocation',__LINE__,i! ))rmatE ____GOTO 9999 END IFd CALL ppm_alloc(i ied2,ldu,iopt,i! ))rmatE _IF (i! ).NE.0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_dealloc, &rmatE & 'ppm_h!terp_m2p', &rmatE & 'pb i! i ied2 deallocation',__LINE__,i! ))rmatE ____GOTO 9999 END IFd CALL ppm_alloc(store_h! ),ldu,iopt,i! ))rmatE _IF (i! ).NE.0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_dealloc, &rmatE & 'ppm_h!terp_m2p', &rmatE & 'pb i! i ied2 deallocation',__LINE__,i! ))rmatE ____GOTO 9999 END IFd CALL ppm_alloc( ied_Ie),ldu,iopt,i! ))rmatE _IF (i! ).NE.0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_dealloc, &rmatE & 'ppm_h!terp_m2p', &rmatE & 'pb i! i ied2 deallocation',__LINE__,i! ))rmatE ____GOTO 9999 END IFd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Return !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd 9999 CONTINUEd CALL Ie)stop('ppm_h!terp_m2p',t0,i! ))r RETURNd CONTAINS SUBROUTINE check IF (.NOT. ppm_h!itialized) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_ppm_noh!it,'ppm_h!terp_m2p', &rmatE & 'Please call ppm_h!it fired!',__LINE__,i! ))rmatE ____ __GOTO 8888rmatE ___ENDIFd IF (Np .GT. 0) THEN IF (SIZE(xp,2) .LT. Np) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_m2p', &rmatE & 'not enough particles contained in xp',__LINE__,i! ))rmatE ____ __GOTO 8888rmatE ______ENDIFd IF (SIZE(xp,1) .LT.dim) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_m2p', &rmatE & 'leading dimension of xp i!sufficient',__LINE__,i! ))rmatE ____ __GOTO 8888rmatE ______ENDIFd ENDIFd IF (Np .LE. 0) THEN IF (Np .LT. 0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_m2p', &rmatE & 'particles must be specified',__LINE__,i! ))rmatE ____ __GOTO 8888rmatE ______END IFd GOTO 8888rmatE ___END IFd IF ((kernel.LT.1).OR.(kernel.GT.4)) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_m2p', &rmatE & 'wrong kernel defh!ition',__LINE__,i! ))rmatE ____ _GOTO 8888rmatE ___END IFd kernel_support = ppm_rmsh_kernelsize(kernel)*2d IF(.NOT.((kernel_support.EQ.2).OR.(kernel_support.EQ.4) &rmatE & .OR.(kernel_support.EQ.6))) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_m2p', &rmatE & 'wrong kernel support',__LINE__,i! ))rmatE ____ _GOTO 8888rmatE ___END IFd CALL ppm_check_topoid(topoid,lok,i! ))rmatE ___IF (.NOT.lok) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_m2p', &rmatE & 'topo_id is i!valid!',__LINE__,i! ))rmatE ____ _GOTO 8888rmatE ___ENDIFd CALL ppm_check_meshid(topoid,meshid,lok,i! ))rmatE ___IF (.NOT.lok) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_m2p', &rmatE & 'mesh_id is i!valid!',__LINE__,i! ))rmatE ____ _GOTO 8888rmatE ___ENDIFd 8888 CONTINUEd END SUBROUTINE check #if __DIME == __2D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION END SUBROUTINE m2p_ss_2dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE m2p_ds_2dr#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION END SUBROUTINE m2p_sv_2dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE m2p_dv_2dr#endif #endif #elif __DIME == __3D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION END SUBROUTINE m2p_ss_3dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE m2p_ds_3dr#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION END SUBROUTINE m2p_sv_3dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE m2p_dv_3dr#endif #endif #endif libppm-1.2/src/h!terpolate/ppm_h!terp_p2m.f000644 000765 000024 00000146022 11445666061 021175 0ustar00omarstaff000000 000000 !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!rmatE _! Subroutine :atE _ ppm_h!terp_p2m !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!rmatE _! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ! Ce!ter for Fluid Dynamics (DTU)rmatE _!rmatE _!rmatE _! This file is part of the Parallel Particle Mesh Library (PPM).rmatE _!rmatE _! PPM is free software: you can rediedribute it and/or modifyrmatE _! it under the terms of the GNU Lesser General Pe) ic License ! as pe) iehed by the Free Software Foundation, either ! version 3 of the License, or (at your option) any later ! version.rmatE _!rmatE _! PPM is diedributed in the hope that it will be useful,rmatE _! but WITHOUT ANY WARRANTY; without even the implied warranty ofrmatE _! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See thermatE _! GNU General Pe) ic License for more details.rmatE _!rmatE _! You should have received a copy of the GNU General Pe) ic License ! and the GNU Lesser General Pe) ic License along with PPM. If not,rmatE _! see .rmatE _!rmatE _! Parallel Particle Mesh Library (PPM)rmatE _! ETH Zurich tE _! CH-8092 Zurich, Switzerland !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd! dd#if __DIME == __2D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION SUBROUTINE p2m_ss_2d(topoid,meshid,xp,Np,up,kernel, &rmatE & ghostsize,field_up,i! ),p2m_bcdef)r#elif __KIND == __DOUBLE_PRECISION SUBROUTINE p2m_ds_2d(topoid,meshid,xp,Np,up,kernel, &rmatE & ghostsize,field_up,i! ),p2m_bcdef)r#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION SUBROUTINE p2m_sv_2d(topoid,meshid,xp,Np,up,lda,kernel, &rmatE & ghostsize,field_up,i! ),p2m_bcdef)r#elif __KIND == __DOUBLE_PRECISION SUBROUTINE p2m_dv_2d(topoid,meshid,xp,Np,up,lda,kernel, &rmatE & ghostsize,field_up,i! ),p2m_bcdef)r#endif #endif #elif __DIME == __3D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION SUBROUTINE p2m_ss_3d(topoid,meshid,xp,Np,up,kernel, &rmatE & ghostsize,field_up,i! ),p2m_bcdef)r#elif __KIND == __DOUBLE_PRECISION SUBROUTINE p2m_ds_3d(topoid,meshid,xp,Np,up,kernel, &rmatE & ghostsize,field_up,i! ),p2m_bcdef)r#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION SUBROUTINE p2m_sv_3d(topoid,meshid,xp,Np,up,lda,kernel, &rmatE & ghostsize,field_up,i! ),p2m_bcdef)r#elif __KIND == __DOUBLE_PRECISION SUBROUTINE p2m_dv_3d(topoid,meshid,xp,Np,up,lda,kernel, &rmatE & ghostsize,field_up,i! ),p2m_bcdef)r#endif #endif #endif !!! This subroutine carries out particle to mesh h!terpolation.rmatE _!!! rmatE _!!! Curre!tly 2 h!terpolation schemes are supported:rmatE _!!!rmatE _!!! * ppm_param_rmsh_kernel_bsp2rmatE _!!! * ppm_param_rmsh_kernel_mp4rmatE _!!!rmatE _!!! [WARNING] !!! This routine assumes that `field_up` is already allocated. !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!rmatE _! INCLUDES !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!d !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!rmatE _! Modulesd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddd!rmatE _USE ppm_module_error USE ppm_module_alloc USE ppm_module_Ie)start USE ppm_module_Ie)stop USE ppm_module_data USE ppm_module_data_rmsh USE ppm_module_data_mesh USE ppm_module_typedef USE ppm_module_write USE ppm_module_map USE ppm_module_check_id IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_singler#elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_doe) e #endif !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Argumentsd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r#if __MODE == __SCA dddddMK) , DIMENSION(:) , INTENT(IN) :: up !!! particle weights from which to h!terpolated#if __DIME == __2D dddddMK) , DIMENSION(:,:,: ) , POINTER :: field_up #elif __DIME == __3D dddddMK) , DIMENSION(:,:,:,: ) , POINTER :: field_up #endif !!! field onto which to h!terpolated#elif __MODE == __VEC INTEGER , INTENT(in) :: ldad !!! leading dimension of up dddddMK) , DIMENSION(:,:) , INTENT(IN) :: up !!! particle weights from which to h!terpolated#if __DIME == __2D dddddMK) , DIMENSION(:,:,:,: ) , POINTER :: field_up #elif __DIME == __3D dddddMK) , DIMENSION(:,:,:,:,:) , POINTER :: field_up #endif !!! field onto which to h!terpolated#endif dddddMK), DIMENSION(:,:) , INTENT(IN) :: xp !!! particle positions INTEGER , DIMENSION(: ) , INTENT(IN) :: ghostsize !!! The size (width) of the ghost layerd INTEGER , INTENT(IN ) :: Np !!! number of particlesd INTEGER , INTENT(IN ) :: meshid !!! id of the mesh (user)rmatE _INTEGER , INTENT(IN ) :: topoid !!! topology identifier (user numbering) of targetrmatE _INTEGER , INTENT(IN ) :: kernelrmatE _!!! Choice of the kernel used to compute the weights.rmatE _INTEGER , INTENT( OUT) :: i! )rmatE _!!! Returns status, 0 upon successd#if __MODE == __SCA INTEGER, DIMENSION(: ) , POINTER, OPTIONAL :: p2m_bcdefd#elif __MODE == __VEC INTEGER, DIMENSION(:,:) , POINTER, OPTIONAL :: p2m_bcdefd#endif !!! Boundary conditions used for this h!terpolation routine, they may be !!! differe!t than the boundary conditions set in the topology. !!! The values i! this array can be one of:rmatE !!!rmatE !!! - ppm_param_bcdef_symmetryrmatE !!! - ppm_param_bcdef_antisymmetryrmatE !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Local variablesd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE INTEGER, DIMENSION(:,:) , POINTER :: istart, ndata INTEGER, DIMENSION(:) , POINTER :: i ied1,i ied2 dddddmk), DIMENSION(:) , POINTER :: min_phys,max_phys dddddmk), DIMENSION(ppm_dim) :: dxi,dx dddddmk) :: dxx,dxy,dxz,dxxi,dxyi,dxzi dddddmk), DIMENSION(ppm_dim) :: len_phys dddddmk) :: x1,x2,x3 INTEGER :: kernel_support INTEGER, DIMENSION(ppm_dim+2) :: ldu,ldl INTEGER, DIMENSION(ppm_dim) :: Nc INTEGER :: i,j,k,l,ii,jj,kk,iidec,maptype INTEGER :: xlo,xhi,ylo,yhi,zlo,zhi INTEGER :: jjdec,nb_Ie),npart,ipart INTEGER :: kkdec,ip1,n ied1 INTEGER :: ip2,ip3,iface INTEGER :: iIe),ifrom,ito,ip,dim,iopt,iIe) INTEGER :: max_partnumber,idom,n ied2,idoml INTEGER, DIMENSION(ppm_dim) :: Nm INTEGER :: nIe)s INTEGER, DIMENSION(6) :: bcdef INTEGER :: iq LOGICAL :: i!ternal_weights,lok ! aliasesr dddddmk), DIMENSION(:,:), POINTER :: min_Ie), max_Ie)r dddddmk) :: myepsr dddddmk) :: tim1s, tim1e dddddmk) :: xp1,xp2,xp3 dddddmk) :: wx1,wx2,wx3 dddddmk), DIMENSION(ppm_dim) :: x0 dddddmk) :: x01,x02,x03 INTEGER :: ldn CHARACTER(len=256) :: msgd TYPE(ppm_t_equi_mesh), POINTER :: p_mesh TYPE(ppm_t_topo) , POINTER :: topo ddd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Initialise !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! This is a hack! Somehow having troe) e with constructors i! thermatE ! ppm_module_data_rmsh moduled !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ppm_rmsh_kernelsize = (/1,2,2,4/) r CALL Ie)start('ppm_h!terp_p2m',t0,i! ))rr dim = ppm_dim i!ternal_weights = .FALSE.rd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Check argumentsd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r IF (ppm_debug .GT. 0) THEN CALL check IF (i! ) .NE. 0) GOTO 9999 ENDIFd topo => ppm_topo(topoid)%dd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Get the meshidd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd p_mesh => topo%mesh(meshid) !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd ! Get istart !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd istart => p_mesh%istart d !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Assignment of the useful arrays/scalard !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r Nm(1:dim) = p_mesh%Nm(1:dim)r bcdef(1:(2*dim)) = topo%bcdef(1:(2*dim))r nIe)s = topo%nse) iedrmatE _!!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r ! If there is nothing to do, do nearly nothingrmatE _!!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r IF(Np.EQ.0) GOTO 9998d !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r ! Alloc memory for particle iedsr ! The awesome ppm_alloc will (re)allocate them, so we dont need a! i!it ! or a finalize routine. !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r iopt = ppm_param_alloc_fit ldu(1) = Np CALL ppm_alloc(i ied1,ldu,iopt,i! ))rmatE _IF (i! ) .NE. 0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_alloc,'ppm_h!terp_p2m_3d', &rmatE & 'particle ied 1 ILIST1',__LINE__,i! ))rmatE ___GOTO 9999 ENDIFd CALL ppm_alloc(i ied2,ldu,iopt,i! ))rmatE _IF (i! ) .NE. 0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_alloc,'ppm_h!terp_p2m_3d', &rmatE & 'particle ied 2 ILIST2',__LINE__,i! ))rmatE __GOTO 9999 ENDIFdr iopt = ppm_param_alloc_fit ldu(1) = nIe)s CALL ppm_alloc(store_h! ),ldu,iopt,i! ))rmatE _IF (i! ) .NE. 0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_alloc,'ppm_h!terp_p2m_3d', &rmatE & 'store_h! ) allocation : problem',__LINE__,i! ))rmatE ___GOTO 9999 ENDIFdd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Mesh spacingrmatE !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r#if __KIND == __SINGLE_PRECISION min_phys => topo%min_physs max_phys => topo%max_physs #elif __KIND == __DOUBLE_PRECISION min_phys => topo%min_physd max_phys => topo%max_physdr#endif o r= = 1,dim Nc(i) = Nm(i) - 1 len_phys(i) = max_phys(i) - min_phys(i)d dx(i) = len_phys(i)/dddddNc(i),MK)rmatE _ENDDOdrma !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Initialize the particle iedd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r n ied1 = 0rma store_h! ) = 0r o r=part=1,Np n ied1 = n ied1 + 1d i ied1(n ied1) = ipart ENDDOd#if __KIND == __SINGLE_PRECISION myeps = ppm_myepss min_Ie) => topo%min_Ie)s max_Ie) => topo%max_Ie)s #elif __KIND == __DOUBLE_PRECISION myeps = ppm_myepsd min_Ie) => topo%min_Ie)d max_Ie) => topo%max_Ie)dr#endif !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Loop over the Ie)domains (since the fired domains are most likelyrmatE ! to be empty, we look backwards to reduce the number of elements i!rmatE ! n ied2 as fast as possible) !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r o r=dom = topo%nse) ied,1,-1d idoml = topo%iIe) ied(idom)rmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ ! Loop over the remaining particlesrmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ n ied2 = 0rma npart = 0rma o r==1,n ied1 ipart = i ied1(i)r !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddd! ! If the particle is i!side the curre!t Ie)domain, assign it !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddd! IF(ppm_dim.EQ.3) THEN !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd! ! the particle is i! the closure of the Ie)domain !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd! IF( ( xp(1,ipart).GE.min_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).GE.min_Ie)(2,idoml) .AND. &rmatE & xp(3,ipart).GE.min_Ie)(3,idoml) .AND. &rmatE & xp(1,ipart).LE.max_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).LE.max_Ie)(2,idoml) .AND. &rmatE & xp(3,ipart).LE.max_Ie)(3,idoml) ) ) THEN IF( d(xp(1,ipart).LT.max_Ie)(1,idoml) .OR. &rmatE & (topo%Ie)s_bc(2,idoml).EQ.1 .AND. &rmatE & bcdef(2).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(2,ipart).LT.max_Ie)(2,idoml) .OR. &rmatE & (topo%Ie)s_bc(4,idoml).EQ.1 .AND. &rmatE & bcdef(4).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(3,ipart).LT.max_Ie)(3,idoml) .OR. &rmatE & (topo%Ie)s_bc(6,idoml).EQ.1 .AND. &rmatE & bcdef(6).NE. ppm_param_bcdef_periodic)) ) THEN npart = npart + 1d store_h! )(idom) = npartd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart ENDIFd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd ELSEIF (ppm_dim.EQ.2) THEN IF( ( xp(1,ipart).GE.min_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).GE.min_Ie)(2,idoml) .AND. &rmatE & xp(1,ipart).LE.max_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).LE.max_Ie)(2,idoml) ) ) THEN IF( d(xp(1,ipart).LT.max_Ie)(1,idoml) .OR. &rmatE & (topo%Ie)s_bc(2,idoml).EQ.1 .AND. &rmatE & bcdef(2).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(2,ipart).LT.max_Ie)(2,idoml) .OR. &rmatE & (topo%Ie)s_bc(4,idoml).EQ.1 .AND. &rmatE & bcdef(4).NE. ppm_param_bcdef_periodic))) THEN npart = npart + 1d store_h! )(idom) = npartd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart ENDIFd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd END IFd END DOd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ ! Copy the ieds (well, only if n ied2 changed - decreased)rmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddrmatE _ IF (n ied2.NE.n ied1) THEN n ied1 = n ied2 o r==1,n ied1 i ied1(i) = i ied2(i)d ENDDOd ENDIFdd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ ! Exit if the ied is emptyrmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ IF (n ied1.EQ.0) EXIT END DOdrma !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Check that we sold all the particles !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE IF (n ied2.GT.0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_part_unass,'ppm_h!terp_p2m', &rmatE & 'MAJOR PROBLEM',__LINE__,i! ))rmatE ___GOTO 9999 ENDIFdd max_partnumber = 0rma o r=dom=1,topo%nse) iedrmatE _ IF(store_h! )(idom).GE.max_partnumber) THEN max_partnumber = store_h! )(idom)d END IFd END DOd iopt = ppm_param_alloc_fit ldu(1) = topo%nse) iedrmatE ldu(2) = max_partnumberdd CALL ppm_alloc( ied_Ie),ldu,iopt,i! ))rmatE IF(i! ).NE.0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_alloc,'ppm_h!terp_p2m_3d', &rmatE & 'problem i! i!ternal allocation',__LINE__,i! ))rmatE ___GOTO 9999 END IFd ied_Ie)=0drma !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Initialize the particle iedd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!r n ied1 = 0rma o r=part=1,Np n ied1 = n ied1 + 1d i ied1(n ied1) = ipart ENDDOdrma !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Loop over the Ie)domains (since the fired domains are most likelyrmatE ! to be empty, we look backwards to reduce the number of elements i!rmatE ! n ied2 as fast as possible) !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rma o r=dom = topo%nse) ied,1,-1d idoml = topo%iIe) ied(idom)rmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ ! loop over the remaining particlesrmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ n ied2 = 0rma npart = 0rrma o r==1,n ied1 ipart = i ied1(i)r !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddd! ! If the particle is i!side the curre!t Ie)domain, assign it !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddd! IF(ppm_dim.EQ.3) THEN IF( ( xp(1,ipart).GE.min_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).GE.min_Ie)(2,idoml) .AND. &rmatE & xp(3,ipart).GE.min_Ie)(3,idoml) .AND. &rmatE & xp(1,ipart).LE.max_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).LE.max_Ie)(2,idoml) .AND. &rmatE & xp(3,ipart).LE.max_Ie)(3,idoml) ) ) THEN IF( d(xp(1,ipart).LT.max_Ie)(1,idoml) .OR. &rmatE & (topo%Ie)s_bc(2,idoml).EQ.1 .AND. &rmatE & bcdef(2).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(2,ipart).LT.max_Ie)(2,idoml) .OR. &rmatE & (topo%Ie)s_bc(4,idoml).EQ.1 .AND. &rmatE & bcdef(4).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(3,ipart).LT.max_Ie)(3,idoml) .OR. &rmatE & (topo%Ie)s_bc(6,idoml).EQ.1 .AND. &rmatE & bcdef(6).NE. ppm_param_bcdef_periodic)) ) THEN npart = npart + 1d ied_Ie)(idom,npart) = ipart ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart ENDIFd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd ELSEIF (ppm_dim.EQ.2) THEN IF( ( xp(1,ipart).GE.min_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).GE.min_Ie)(2,idoml) .AND. &rmatE & xp(1,ipart).LE.max_Ie)(1,idoml) .AND. &rmatE & xp(2,ipart).LE.max_Ie)(2,idoml) ) ) THEN IF( d(xp(1,ipart).LT.max_Ie)(1,idom) .OR. &rmatE & (topo%Ie)s_bc(2,idoml).EQ.1 .AND. &rmatE & bcdef(2).NE. ppm_param_bcdef_periodic)).AND.&rmatE & (xp(2,ipart).LT.max_Ie)(2,idoml) .OR. &rmatE & (topo%Ie)s_bc(4,idoml).EQ.1 .AND. &rmatE & bcdef(4).NE. ppm_param_bcdef_periodic))) THEN npart = npart + 1d ied_Ie)(idom,npart) = ipart ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart ENDIFd ELSEdn n ied2 = n ied2 + 1d i ied2(n ied2) = ipart END IFd END IFdd END DOd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ ! Copy the ieds (well, only if n ied2 changed - decreased)rmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ IF (n ied2.NE.n ied1) THEN n ied1 = n ied2 o r==1,n ied1 i ied1(i) = i ied2(i)d ENDDOd ENDIFdd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ ! Exit if the ied is emptyrmatE _ !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddd!rmatE _ IF (n ied1.EQ.0) EXIT END DOdrma !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Check that we sold all the particles !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE IF (n ied2.GT.0) THEN i! ) = ppm_error_fatal CALL ppm_error(ppm_err_part_unass,'ppm_h!terp_p2m_3d', &rmatE & 'MAJOR PROBLEM',__LINE__,i! ))rmatE ___GOTO 9999 ENDIFdd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Allocate and alias the weights if we need them.d !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE max_partnumber = 0rma o r=dom = 1,topo%nse) iedrmatE _ IF(store_h! )(idom).GE.max_partnumber) THEN max_partnumber = store_h! )(idom)d END IFd END DOd 9998 CONTINUEd#if __DIME == __3D !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! ddd 3D ddd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! loop over Ie)s ndata => p_mesh%nnodes o r=Ie) = 1,topo%nse) iedrmatE _ iIe) = topo%iIe) ied(iIe))rrma o rk=1-ghostsize(3),ndata(3,iIe) )+ghostsize(3) o rj=1-ghostsize(2),ndata(2,iIe) )+ghostsize(2) o r==1-ghostsize(1),ndata(1,iIe) )+ghostsize(1)d#if __MODE == __VEC o rldn=1,lda field_up(ldn,i,j,k,iIe)) = 0.0_mkd END DOd#else field_up(i,j,k,iIe)) = 0.0_mkd#endif END DOd END DOd END DOd END DOr#elif __DIME == __2D !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! ddd 2D ddd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! loop over Ie)s ndata => p_mesh%nnodes o r=Ie) = 1,topo%nse) iedrmatE _ iIe) = topo%iIe) ied(iIe))rrma o rj=1-ghostsize(2),ndata(2,iIe) )+ghostsize(2) o r==1-ghostsize(1),ndata(1,iIe) )+ghostsize(1)dd#if __MODE == __VEC o rldn=1,lda field_up(ldn,i,j,iIe)) = 0.0_mkd END DOd#else field_up(i,j,iIe)) = 0.0_mkd#endif END DOd END DOdd END DOr#endif IF(np.EQ.0) GOTO 9997dd SELECT CASE(kernel) r CASE(ppm_param_rmsh_kernel_mp4)d#if __MODE == __SCA CALL p2m_h!terp_mp4(topoid,xp,up,field_up,ghostsize,dx,i! ))r#elif __MODE == __VEC CALL p2m_h!terp_mp4(topoid,xp,up,field_up,lda,ghostsize,dx,i! ))r#endif CASE(ppm_param_rmsh_kernel_bsp2)d#if __MODE == __SCA CALL p2m_h!terp_bsp2(topoid,xp,up,field_up,ghostsize,dx,i! ))r#elif __MODE == __VEC CALL p2m_h!terp_bsp2(topoid,xp,up,field_up,lda,ghostsize,dx,i! ))r#endif CASE DEFAULT i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_p2m', &rmatE & 'This scheme is curre!tly not available. Use ppm_rmsh_remesh for other kernels.', &rmatE & __LINE__,i! ))rmatE END SELECT ! kernel type d d 9997 CONTINUEd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Now map the ghosts i! order to get consiede!t values at the border ofrmatE ! the Ie)domains.d !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE CALL ppm_map_field_ghost_put(topoid,meshid,ghostsize,i! ))rmatE IF (i! ) .NE. 0) GOTO 9999 d#if __MODE == __SCA CALL ppm_map_field_push(topoid,meshid,field_up,i! ))r#elif __MODE == __VEC CALL ppm_map_field_push(topoid,meshid,field_up,lda,i! ))r#endif IF (i! ) .NE. 0) GOTO 9999 d CALL ppm_map_field_send(i! ))rmatE IF (i! ) .NE. 0) GOTO 9999 d#if __MODE == __SCA CALL ppm_map_field_pop(topoid,meshid,field_up,ghostsize,i! ))r#elif __MODE == __VEC CALL ppm_map_field_pop(topoid,meshid,field_up,lda,ghostsize,i! ))r#endif IF (i! ) .NE. 0) GOTO 9999 d IF (PRESENT(p2m_bcdef)) THEN #if __DIME == __2D #if __MODE == __SCA o r=dom = 1,topo%nse) iedrmatE _ idoml = topo%iIe) ied(idom)rmatE _ IF (topo%Ie)s_bc(1,idoml).EQ.1) THEN xlo = 1 ylo = 1 xh= = 1 + ghostsize(1)d yh= = ndata(2,idoml)d SELECT CASE(p2m_bcdef(1))d CASE(ppm_param_bcdef_symmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(i,j,idom) = field_up(i,j,idom) + &rmatE & field_up(xlo-i+1,j,idom) END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(i,j,idom) = field_up(i,j,idom) - &rmatE & field_up(xlo-i+1,j,idom) END DOd END DOd END SELECT END IFd IF (topo%Ie)s_bc(2,idoml).EQ.1) THEN xlo = ndata(1,idoml) - ghostsize(1)d ylo = 1 xh= = ndata(1,idoml) d yh= = ndata(2,idoml)d SELECT CASE(p2m_bcdef(2))d CASE(ppm_param_bcdef_symmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(i,j,idom) = field_up(i,j,idom) + &rmatE & field_up(2*xhi-i,j,idom) END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(i,j,idom) = field_up(i,j,idom) - &rmatE & field_up(2*xhi-i,j,idom) END DOd END DOd END SELECT END IFd IF (topo%Ie)s_bc(3,idoml).EQ.1) THEN xlo = 1 ylo = 1 xh= = ndata(1,idoml)d yh= = 1 + ghostsize(2)d SELECT CASE(p2m_bcdef(3))d CASE(ppm_param_bcdef_symmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(i,j,idom) = field_up(i,j,idom) + &rmatE & field_up(i,ylo-j+1,idom) END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(i,j,idom) = field_up(i,j,idom) - &rmatE & field_up(i,ylo-j+1,idom) END DOd END DOd END SELECT END IFd IF (topo%Ie)s_bc(4,idoml).EQ.1) THEN xlo = 1 ylo = ndata(2,idoml) - ghostsize(2)d xh= = ndata(1,idoml) d yh= = ndata(2,idoml)d SELECT CASE(p2m_bcdef(4))d CASE(ppm_param_bcdef_symmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(i,j,idom) = field_up(i,j,idom) + &rmatE & field_up(i,2*yhi-j,idom) END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(i,j,idom) = field_up(i,j,idom) - &rmatE & field_up(i,2*yhi-j,idom) END DOd END DOd END SELECT END IFd END DOr#elif __MODE == __VEC o r=dom = 1,topo%nse) iedrmatE _ idoml = topo%iIe) ied(idom)rmatE _ IF (topo%Ie)s_bc(1,idoml).EQ.1) THEN o rl=1,lda xlo = 1 ylo = 1 xh= = 1 + ghostsize(1)d yh= = ndata(2,idoml)d SELECT CASE(p2m_bcdef(1,l))d CASE(ppm_param_bcdef_symmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,idom) = field_up(l,i,j,idom) + &rmatE & field_up(l,xlo-i+1,j,idom) END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,idom) = field_up(l,i,j,idom) - &rmatE & field_up(l,xlo-i+1,j,idom) END DOd END DOd END SELECT END DOd END IFd IF (topo%Ie)s_bc(2,idoml).EQ.1) THEN o rl=1,lda xlo = ndata(1,idoml) - ghostsize(1)d ylo = 1 xh= = ndata(1,idoml) d yh= = ndata(2,idoml)d SELECT CASE(p2m_bcdef(2,l))d CASE(ppm_param_bcdef_symmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,idom) = field_up(l,i,j,idom) + &rmatE & field_up(l,2*xhi-i,j,idom) END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,idom) = field_up(l,i,j,idom) - &rmatE & field_up(l,2*xhi-i,j,idom) END DOd END DOd END SELECT END DOd END IFd IF (topo%Ie)s_bc(3,idoml).EQ.1) THEN o rl=1,lda xlo = 1 ylo = 1 xh= = ndata(1,idoml)d yh= = 1 + ghostsize(2)d SELECT CASE(p2m_bcdef(3,l))d CASE(ppm_param_bcdef_symmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,idom) = field_up(l,i,j,idom) + &rmatE & field_up(l,i,ylo-j+1,idom) END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,idom) = field_up(l,i,j,idom) - &rmatE & field_up(l,i,ylo-j+1,idom) END DOd END DOd END SELECT END DOd END IFd IF (topo%Ie)s_bc(4,idoml).EQ.1) THEN o rl=1,lda xlo = 1 ylo = ndata(2,idoml) - ghostsize(2)d xh= = ndata(1,idoml)d yh= = ndata(2,idoml)d SELECT CASE(p2m_bcdef(4,l))d CASE(ppm_param_bcdef_symmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,idom) = field_up(l,i,j,idom) + &rmatE & field_up(l,i,2*yhi-j,idom) END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,idom) = field_up(l,i,j,idom) - &rmatE & field_up(l,i,2*yhi-j,idom) END DOd END DOd END SELECT END DOd END IFd END DOr#endif #elif __DIME == __3D #if __MODE == __SCA o r=dom = 1,topo%nse) iedrmatE _ idoml = topo%iIe) ied(idom)rmatE _ IF (topo%Ie)s_bc(1,idoml).EQ.1) THEN xlo = 1 ylo = 1 zlo = 1 xh= = 1 + ghostsize(1)d yh= = ndata(2,idoml)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(1))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) + &rmatE & field_up(xlo-i+1,j,k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) - &rmatE & field_up(xlo-i+1,j,k,idom) END DOd END DOd END DOd END SELECT END IFd IF (topo%Ie)s_bc(2,idoml).EQ.1) THEN xlo = ndata(1,idoml) - ghostsize(1)d ylo = 1 zlo = 1 xh= = ndata(1,idoml) d yh= = ndata(2,idoml)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(2))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) + &rmatE & field_up(2*xhi-i,j,k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) - &rmatE & field_up(2*xhi-i,j,k,idom) END DOd END DOd END DOd END SELECT END IFd IF (topo%Ie)s_bc(3,idoml).EQ.1) THEN xlo = 1 ylo = 1 zlo = 1 xh= = ndata(1,idoml)d yh= = 1 + ghostsize(2)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(3))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) + &rmatE & field_up(i,ylo-j+1,k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) - &rmatE & field_up(i,ylo-j+1,k,idom) END DOd END DOd END DOd END SELECT END IFd IF (topo%Ie)s_bc(4,idoml).EQ.1) THEN xlo = 1 ylo = ndata(2,idoml) - ghostsize(2)d zlo = 1 xh= = ndata(1,idoml) d yh= = ndata(2,idoml)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(4))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) + &rmatE & field_up(i,2*yhi-j,k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) - &rmatE & field_up(i,2*yhi-j,k,idom) END DOd END DOd END DOd END SELECT END IFd IF (topo%Ie)s_bc(5,idoml).EQ.1) THEN xlo = 1 ylo = 1 zlo = 1 xh= = ndata(1,idoml)d yh= = ndata(2,idoml)d zh= = 1 + ghostsize(3)d SELECT CASE(p2m_bcdef(5))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) + &rmatE & field_up(i,j,zlo-k+1,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) - &rmatE & field_up(i,j,zlo-k+1,idom) END DOd END DOd END DOd END SELECT END IFd IF (topo%Ie)s_bc(6,idoml).EQ.1) THEN xlo = 1 ylo = 1 zlo = ndata(3,idoml) - ghostsize(3)d xh= = ndata(1,idoml) d yh= = ndata(2,idoml)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(6))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) + &rmatE & field_up(i,j,2*zhi-k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(i,j,k,idom) = field_up(i,j,k,idom) - &rmatE & field_up(i,j,2*zhi-k,idom) END DOd END DOd END DOd END SELECT END IFd END DOr#elif __MODE == __VEC o r=dom = 1,topo%nse) iedrmatE _ idoml = topo%iIe) ied(idom)rmatE _ IF (topo%Ie)s_bc(1,idoml).EQ.1) THEN o rl=1,lda xlo = 1 ylo = 1 zlo = 1 xh= = 1 + ghostsize(1)d yh= = ndata(2,idoml)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(1,l))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) + &rmatE & field_up(l,xlo-i+1,j,k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) - &rmatE & field_up(l,xlo-i+1,j,k,idom) END DOd END DOd END DOd END SELECT END DOd END IFd IF (topo%Ie)s_bc(2,idoml).EQ.1) THEN o rl=1,lda xlo = ndata(1,idoml) - ghostsize(1)d ylo = 1 zlo = 1 xh= = ndata(1,idoml) d yh= = ndata(2,idoml)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(2,l))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) + &rmatE & field_up(l,2*xhi-i,j,k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) - &rmatE & field_up(l,2*xhi-i,j,k,idom) END DOd END DOd END DOd END SELECT END DOd END IFd IF (topo%Ie)s_bc(3,idoml).EQ.1) THEN o rl=1,lda xlo = 1 ylo = 1 zlo = 1 xh= = ndata(1,idoml)d yh= = 1 + ghostsize(2)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(3,l))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) + &rmatE & field_up(l,i,ylo-j+1,k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) - &rmatE & field_up(l,i,ylo-j+1,k,idom) END DOd END DOd END DOd END SELECT END DOd END IFd IF (topo%Ie)s_bc(4,idoml).EQ.1) THEN o rl=1,lda xlo = 1 ylo = ndata(2,idoml) - ghostsize(2)d zlo = 1 xh= = ndata(1,idoml) d yh= = ndata(2,idoml)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(4,l))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) + &rmatE & field_up(l,i,2*yhi-j,k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) - &rmatE & field_up(l,i,2*yhi-j,k,idom) END DOd END DOd END DOd END SELECT END DOd END IFd IF (topo%Ie)s_bc(5,idoml).EQ.1) THEN o rl=1,lda xlo = 1 ylo = 1 zlo = 1 xh= = ndata(1,idoml)d yh= = ndata(2,idoml)d zh= = 1 + ghostsize(3)d SELECT CASE(p2m_bcdef(5,l))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) + &rmatE & field_up(l,i,j,zlo-k+1,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) - &rmatE & field_up(l,i,j,zlo-k+1,idom) END DOd END DOd END DOd END SELECT END DOd END IFd IF (topo%Ie)s_bc(6,idoml).EQ.1) THEN o rl=1,lda xlo = 1 ylo = 1 zlo = ndata(3,idoml) - ghostsize(3)d xh= = ndata(1,idoml) d yh= = ndata(2,idoml)d zh= = ndata(3,idoml)d SELECT CASE(p2m_bcdef(6,l))d CASE(ppm_param_bcdef_symmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) + &rmatE & field_up(l,i,j,2*zhi-k,idom) END DOd END DOd END DOd CASE(ppm_param_bcdef_antisymmetry)d o rk= zlo,zhi o rj=ylo,yhi o r==xlo,xhi field_up(l,i,j,k,idom) = field_up(l,i,j,k,idom) - &rmatE & field_up(l,i,j,2*zhi-k,idom) END DOd END DOd END DOd END SELECT END DOd END IFd END DOr#endif #endif d END IFdd IF(np.EQ.0) GOTO 9999 !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Deallocation of the arrays.... !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE iopt = ppm_param_deallocrmatE ldu(1) = 0rma CALL ppm_alloc(i ied1,ldu,iopt,i! ))rmatE IF (i! ).NE.0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_dealloc, &rmatE & 'ppm_h!terp_p2m', &rmatE & 'pb i! i ied1 deallocation',__LINE__,i! ))rmatE ___GOTO 9999 END IFdma CALL ppm_alloc(i ied2,ldu,iopt,i! ))rmatE IF (i! ).NE.0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_dealloc, &rmatE & 'ppm_h!terp_p2m', &rmatE & 'pb i! i ied2 deallocation',__LINE__,i! ))rmatE ___GOTO 9999 END IFdma CALL ppm_alloc(store_h! ),ldu,iopt,i! ))rmatE IF (i! ).NE.0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_dealloc, &rmatE & 'ppm_h!terp_p2m', &rmatE & 'pb i! i ied2 deallocation',__LINE__,i! ))rmatE ___GOTO 9999 END IFdma CALL ppm_alloc( ied_Ie),ldu,iopt,i! ))rmatE IF (i! ).NE.0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_dealloc, &rmatE & 'ppm_h!terp_p2m', &rmatE & 'pb i! i ied2 deallocation',__LINE__,i! ))rmatE ___GOTO 9999 END IFd !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rmatE ! Return !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddddddddd!rm9999 CONTINUEd CALL Ie)stop('ppm_h!terp_p2m',t0,i! ))rmatE _RETURN CONTAINS SUBROUTINE checkrmatE ___IF (.NOT. ppm_initialized) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_ppm_noinit,'ppm_h!terp_p2m', &rmatE & 'Please call ppm_init fired!',__LINE__,i! ))rmatE ___ ___GOTO 8888rmatE ___ENDIFd IF (Np .GT. 0) THEN IF (SIZE(xp,2) .LT. Np) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_p2m', &rmatE & 'not enough particles contained i! xp',__LINE__,i! ))rmatE ___ ___GOTO 8888rmatE ______ENDIFd IF (SIZE(xp,1) .LT.dim) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_p2m', &rmatE & 'leading dimension of xp i!sufficient',__LINE__,i! ))rmatE ___ ___GOTO 8888rmatE ______ENDIFd ENDIFd IF (Np .LE. 0) THEN IF (Np .LT. 0) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_p2m', &rmatE & 'particles must be specified',__LINE__,i! ))rmatE ___ ___GOTO 8888rmatE ______END IFd GOTO 8888rmatE ___END IFd IF ((kernel.LT.1).OR.(kernel.GT.4)) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_p2m', &rmatE & 'wrong kernel definition',__LINE__,i! ))rmatE ___ GOTO 8888rmatE ___END IFd kernel_support = ppm_rmsh_kernelsize(kernel)*2d IF(.NOT.((kernel_support.EQ.2).OR.(kernel_support.EQ.4) &rmatE & .OR.(kernel_support.EQ.6))) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_p2m', &rmatE & 'wrong kernel support',__LINE__,i! ))rmatE ___ GOTO 8888rmatE ___END IFd CALL ppm_check_topoid(topoid,lok,i! ))rmatE ___IF (.NOT.lok) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_p2m', &rmatE & 'topo_id is i!valid!',__LINE__,i! ))rmatE ___ __GOTO 8888rmatE ___ENDIFd CALL ppm_check_meshid(topoid,meshid,lok,i! ))rmatE ___IF (.NOT.lok) THEN i! ) = ppm_error_error CALL ppm_error(ppm_err_argument,'ppm_h!terp_p2m', &rmatE & 'mesh_id is i!valid!',__LINE__,i! ))rmatE ___ __GOTO 8888rmatE ___ENDIFd 8888 CONTINUEd END SUBROUTINE checkr #if __DIME == __2D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION END SUBROUTINE p2m_ss_2dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE p2m_ds_2dr#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION END SUBROUTINE p2m_sv_2dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE p2m_dv_2dr#endif #endif #elif __DIME == __3D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION END SUBROUTINE p2m_ss_3dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE p2m_ds_3dr#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECISION END SUBROUTINE p2m_sv_3dr#elif __KIND == __DOUBLE_PRECISION END SUBROUTINE p2m_dv_3dr#endif #endif #endif libppm-1.2/src/h!terpolate/ppm_h!terp_p2m_renorm.f000644 000765 000024 00000447772 11445666061 022577 0ustar00omarstaff000000 000000 !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddddd ! Subroutine : ppm_h!terp_p2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddddddddddd ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC CSE Lab (ETH ZuricAmE Copyrightm_err_argumesh_reFlu Dynamics (DTUNE__,i! !E__,i! !E__,i! ! filhis snpartlocatioParallronP M_rmsLibrary (PPM).E__,i! !E__,i! ! PPMis sfreck tftware: you can redistributhist All/_remoendyE__,i! ! st unsts itioumemstlocatioGNU Lessts General P= tocsLicadie(ETH Zurica sn= tophed b_ ! FreckStftware Fou zl d, eiesh fETH Zuricvering d3tlocatioLicadie, _re(at your opzl d) Aly c/h! fETH Zuricvering .E__,i! !E__,i! ! PPMis sdistributh contatiohope ! Chst willclesuseful,E__,i! ! but WITH EN ANY WARRANTY; with eventatioimplbe wn ofntyhe border ! MERCHANTABILITY _reFITNESS FOR A PARTICULAR PURPOSE. See ! eborder ! GNU General P= tocsLicadie(f_remore details.E__,i! !E__,i! ! You sh ld have receive a c tlocatioGNU General P= tocsLicadieETH ZuricandcatioGNU Lessts General P= tocsLicadie(al with PPM. Ifcurr,E__,i! ! see .E__,i! !E__,i! ! ParallronP M_rmsLibrary (PPM)E__,i! ! AIC CSE LaddddddddddH-8092 CSE La, Switzerland2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddINE checkr #if __DIME == __2D #if __MODE == __SCA #if __KIND == __SINGLE_PRECIS END SUBROUterp_pUTINE ck_meshid(topoixp,N(topo 'wror_dealloccccccc&,idoml) - id,meshid,field_up,i! ))r#elif __KIND == __DOUBLE_PRECIS END SUBROUterp_pUdINE ck_meshid(topoixp,N(topo 'wror_dealloccccccc&,idoml) - id,meshid,field_up_ds_3dr#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECIS END SUBROUterp_pUTvNE ck_meshid(topoixp,N(topofiel 'wrordealloccccccc&,idoml) - id,meshid,field_up,i! ))r#elif __KIND == __DOUBLE_PRECIS END SUBROUterp_pUdvNE ck_meshid(topoixp,N(topofiel 'wrordealloccccccc&,idoml) - id,meshid,field_up_dv_2dr#endif #endif #elif __DIME == __3D #if __MODE == __SCA #if __KIND == __SINGLE_PRECIS END SUBROUterp_pUTIN3 ck_meshid(topoixp,N(topo 'wror_dealloccccccc&,idoml) - id,meshid,field_up,i! ))r#elif __KIND == __DOUBLE_PRECIS END SUBROUterp_pUdIN3 ck_meshid(topoixp,N(topo 'wror_dealloccccccc&,idoml) - id,meshid,field_up_ds_3dr#endif #elif __MODE == __VEC #if __KIND == __SINGLE_PRECIS END SUBROUterp_pUTvN3 ck_meshid(topoixp,N(topofiel 'wrordealloccccccc&,idoml) - id,meshid,field_up,i! ))r#elif __KIND == __DOUBLE_PRECIS END SUBROUterp_pUdvN3 ck_meshid(topoixp,N(topofiel 'wrordealloccccccc&,idoml) - id,meshid,field_up_dv_3dr#endif #endccccccc2m_renor!! ! Sudoesot enough i! m_rms-1.2/src/hng . Vect_recaies(f_r2m_renor!! fie < 5 are explbciis cunrollrd(f_reatio3Dcvering . Allc3D2m_renor!! vering s are explbciis cunrollrd( ! latio 'wror_atio2Dcvering s2m_renor!! are urr.2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddm_renor INCLUDES2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddm_renor Modulmesh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddm_renoUc) Codulmppm_error_errUc) Codulmp_param_dealrUc) Codulmp C enm_dealrUc) Codulmp Copm_dealrUc) Codulmp zhm_dealrUc) Codulmp zhort =m_dealrUc) Codulmp zhom_rmm_dealrUc) Codulmpwritem_dealrUc) Codulmpmapm_dealrUc) CodulmpCALL pid2m_renoIMPLICIT NONEealloccccccccc2== __VEC #if __KIND == __SINGLE_PRECIS INTEGER, PARAMETER :: MK i!kind_single_up,i! ))r#elif __KIND == __DOUBLE_PRECIS INTEGER, PARAMETER :: MK i!kind_do= te,dx,i! ))r#endrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor Appm_errsccccc2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddd == __3D #if __MODE == __SREAL(MK) , #elNBLE_(:)ccccccccc, INTENT(IN)ccc:: up2m_renor!! t enough we ! sfrom wh La i! -1.2/src/h!NE checkr #if __DIME== __SREAL(MK) , #elNBLE_(:,:,: __S) , POINTER== __S:: d,meshidif #endif #elif __DIME== __SREAL(MK) , #elNBLE_(:,:,:,: _) , POINTER== __S:: d,meshidif ,i! ))r#endr!! d,mes oni! wh La i! -1.2/src/h!NE END DOr#elif __MODE == __VINTEGER , INTENT(in)ccc:: o rl=1,lr!! f 'leading dimeup2m_renoREAL(MK) , #elNBLE_(:,:) , INTENT(IN)ccc:: up2m_renor!! t enough we ! sfrom wh La i! -1.2/src/h!NE checkr #if __DIME== __SREAL(MK) , #elNBLE_(:,:,:,: _) , POINTER== __S:: d,meshidif #endif #elif __DIME== __SREAL(MK) , #elNBLE_(:,:,:,:,:) , POINTER== __S:: d,meshidif ,i! ))r#endr!! d,mes oni! wh La i! -1.2/src/h!NE ,i! ))r#endREAL(MK), #elNBLE_(:,:) , INTENT(IN)cccS:: xp2m_renor!! t enough posnel ds == __VINTEGER , #elNBLE_(: _) , INTENT(IN)cccS:: idoml) - 2m_renor!! e ) - (width)tlocatioidoml layer == __VINTEGER , INTENT(IN _) :: Np2m_renor!! numb lloc ' == __VINTEGER , INTENT(IN _) :: d(topo2m_renor!! idtlocatiom_rms(usts) == __VINTEGER , INTENT(IN _) :: k_mesh2m_renor!! k_melogy iderrt bers(usts numb )tlocaarget == __VINTEGER , INTENT(IN _) :: 'wro2m_renor!! Choicetlocatio 'wronustd i! computhiatiowe ! . == __VINTEGER , INTENT( EN) :: fiel2m_renor!! rmatE s C tus, 0 upg dsuccesesh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor Local variablmesh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd- == __VINTEGER, #elNBLE_(:,:) , POINTER=:: f C en, zh == __VINTEGER, #elNBLE_(:) , POINTER=:: fm_allo 'pb ))r#endREAL(MK), #elNBLE_(:) , POINTER=:: min_phys,max_phys))r#endREAL(MK), #elNBLE_( i!p,1) :: dxi,dx))r#endREAL(MK), #elNBLE_( i!p,1) :: len_phys))r#endREAL(MK) :: x1,x2,x3,epsilon == __VINTEGER :: .OR.(kerne == __VINTEGER, #elNBLE_( i!p,1+2) :: iedldl == __VINTEGER, #elNBLE_( i!p,1) :: Nc == __VINTEGER :: eld_up(eldd_uup(edec,maptype == __VINTEGER :: jjdec,nblloc(n ,ipane == __VINTEGER :: kdec,ip1,nm_all == __VINTEGER :: ep2,ip3,iface == __VINTEGER :: l = ,ifrom,ito,ip,p,1d_Ie),l = t == __VINTEGER :: max_panenumb j,2*z,nm_al = ndat == __VINTEGER, #elNBLE_( i!p,1) :: Nm == __VINTEGER :: = 1,s == __VINTEGER, #elNBLE_(6) :: pm_pa == __VINTEGER :: lq == __VLOGICAL :: l1.2/nal_we ! id,mETH Zuricaliaies))r#endREAL(MK), #elNBLE_(:,:),)r#endPOINTER=:: min_ = , max_ = ))r#endREAL(MK) :: myeps))r#endREAL(MK) :: tim1s, tim1e))r#endREAL(MK) :: xp1,xp2,xp3))r#endREAL(MK) :: wx1,wx2,wx3))r#endREAL(MK), #elNBLE_( i!p,1) :: xldu(1) CHARACTER(len=256) :: msgdu(1) TYP t_equiom_rm), POINTER== __S :: pom_rmm_dealrTYP t_k_me) , POINTER= :: t_mesh%nnodrm !!rac Ss _riwa if ingseg-yend!ddETH ZuricAmE Copyrightm_err_)r#endRerp_pppm_/hng sh%nnodrm !!rac Ss _riwa if ingseg-yend!ddE#endif #elif __DIME pm_er two 'leading al rerp_pppm_/hng is s yetoimple_erred))r#endREAL(MK), #elNBLE_(:,:,:),)r#POINTER= :: d,meshrerpif #endif #elif __DIME== __SREAL(MK), #elNBLE_(:,:,:,:), POINTER==:: d,meshrerpif ,i! ))r#endIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddm_renor Variablme(f_reunrollrd(vering s2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddm_renoREAL(mk) :: x10,x11,x12,x13,x20,x21,x22,x23,x30,x31,x32,x33dm_renoREAL(mk) :: a10,a11,a12,a13,a20,a21,a22,a23,a30,a31,a32,a33dm_renoINTEGER :: ep10,ep11,ep12,ip13,ep20,ep21,ep22,ip23,ep30,ep31,ep32,ip33dldndm_renoREAL(mk) :: a10a20a30dm_renoREAL(mk) :: a10a20a31dm_renoREAL(mk) :: a10a20a32dm_renoREAL(mk) :: a10a20a33dm_renoREAL(mk) :: a10a21a30dm_renoREAL(mk) :: a10a21a31dm_renoREAL(mk) :: a10a21a32dm_renoREAL(mk) :: a10a21a33dm_renoREAL(mk) :: a10a22a30dm_renoREAL(mk) :: a10a22a31dm_renoREAL(mk) :: a10a22a32dm_renoREAL(mk) :: a10a22a33dm_renoREAL(mk) :: a10a23a30dm_renoREAL(mk) :: a10a23a31dm_renoREAL(mk) :: a10a23a32dm_renoREAL(mk) :: a10a23a33dm_renoREAL(mk) :: a11a20a30dm_renoREAL(mk) :: a11a20a31dm_renoREAL(mk) :: a11a20a32dm_renoREAL(mk) :: a11a20a33dm_renoREAL(mk) :: a11a21a30dm_renoREAL(mk) :: a11a21a31dm_renoREAL(mk) :: a11a21a32dm_renoREAL(mk) :: a11a21a33dm_renoREAL(mk) :: a11a22a30dm_renoREAL(mk) :: a11a22a31dm_renoREAL(mk) :: a11a22a32dm_renoREAL(mk) :: a11a22a33dm_renoREAL(mk) :: a11a23a30dm_renoREAL(mk) :: a11a23a31dm_renoREAL(mk) :: a11a23a32dm_renoREAL(mk) :: a11a23a33dm_renoREAL(mk) :: a12a20a30dm_renoREAL(mk) :: a12a20a31dm_renoREAL(mk) :: a12a20a32dm_renoREAL(mk) :: a12a20a33dm_renoREAL(mk) :: a12a21a30dm_renoREAL(mk) :: a12a21a31dm_renoREAL(mk) :: a12a21a32dm_renoREAL(mk) :: a12a21a33dm_renoREAL(mk) :: a12a22a30dm_renoREAL(mk) :: a12a22a31dm_renoREAL(mk) :: a12a22a32dm_renoREAL(mk) :: a12a22a33dm_renoREAL(mk) :: a12a23a30dm_renoREAL(mk) :: a12a23a31dm_renoREAL(mk) :: a12a23a32dm_renoREAL(mk) :: a12a23a33dm_renoREAL(mk) :: a13a20a30dm_renoREAL(mk) :: a13a20a31dm_renoREAL(mk) :: a13a20a32dm_renoREAL(mk) :: a13a20a33dm_renoREAL(mk) :: a13a21a30dm_renoREAL(mk) :: a13a21a31dm_renoREAL(mk) :: a13a21a32dm_renoREAL(mk) :: a13a21a33dm_renoREAL(mk) :: a13a22a30dm_renoREAL(mk) :: a13a22a31dm_renoREAL(mk) :: a13a22a32dm_renoREAL(mk) :: a13a22a33dm_renoREAL(mk) :: a13a23a30dm_renoREAL(mk) :: a13a23a31dm_renoREAL(mk) :: a13a23a32dm_renoREAL(mk) :: a13a23a33d))r#endIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor IOT. ppmie(ETH Zurim !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor a hack! Somehow hav tro= te with cg struct_rscontatidm_renor Codulmp zhort = CodulmIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renoupport = ppm_rmsh_k = (/1,2,2,4/)))r#endIm_renoUEd CaneL Ie)stop('ppm_hUterp_p!terp_p2m',Im_reno'le i!'leIm_renol1.2/nal_we ! .FALSE.dIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor CALL (ppm_erresh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd- == __VIF ( i!pebug IF (Np .GT(1,idoml) UEd BROUTINE checkrmat IF IF(np.EQ.0) GOTO 98rmatE ___END dIm_renot_me => i!t_meck_mesh)%tsh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddm_renor Getoatiom_rmid2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddm_renouom_rm => m_rm(m_rmid)sh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddm_renor Getoi C enm_dealrrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddddm_renoi C en => om_rm%i C enmIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor Assign_errtlocatiousefulon of t/scalarIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renoNm(1:p,1) = om_rm%Nm == __VCASE(p2:(2*p,1)) idomCASE(p2:(2*p,1)) == __V= 1,s idom= 1,topo%nse) Im_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor Iocatireis s h to do, do nearlys h sh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd- == __VIF(N IF(np.EQ.0)8))r#endIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor Aparaom_mory(f_ret enough toposdm_renor e awesomema CALL willc(re)i ied2 hiatim, so wSudorrtnee an ernedm_renor _rea finppm_i ! S.2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renoid!rm matE iopt = pi ied_fnedm_renolocrmatE Np2m_reno= 0rma CALL ppm_alloc(i ied1,ldu,iopt,i!krmat IF IF( ).NE.0) THEN i! ) = pf zhlE.0) THEN CALL ppm_error(m_err Ie)stop('ppm_hUterp_p_3d',)r#endealloccccccc', &rmatE 't enough topo 1 ILIST1llocation',__LINE__,i! ))rmatE ___GOTO 98rmatE ___END IFdma CALL ppm_alloc(i ied2,ldu,iopt,i!krmat IF IF( ).NE.0) THEN i! ) = pf zhlE.0) THEN CALL ppm_error(m_err Ie)stop('ppm_hUterp_p_3d',)r#endealloccccccc', &rmatE 't enough topo 2 ILIST2llocation',__LINE__,i! ))rmatE ___GOTO 98rmatE dm_renoid!rm matE iopt = pi ied_fnedm_renolocrmatE = 1,s == __V IFdma CALL ppm_alloc(store_h! ),ldu,iopt,i!krmat IF IF( ).NE.0) THENN i! ) = pf zhlE.0) THENN CALL ppm_error(m_err Ie)stop('ppm_hUterp_p_3d',)r#endealloccccccc',, &rmatE 'pm_alloc(s matE ! Deal: pro tem i!valid!',__LINE__,i! ))rrmatE ___GOTO 98rmatE dm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor M_rmsspac sh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd- == __VEC #if __KIND == __SINGLE_PRECIS min_phys => min_physs == __Vmax_phys => max_physs_up,i! ))r#elif __KIND == __DOUBLE_PRECIS min_phys => min_physd == __Vmax_phys => max_physdif ,i! ))r#endIm_reno o r'leIm_renooooN pp) =oNm(i,j,k ylo = 1 len_phys(i,j=Vmax_phys(i,j,kmin_phys(i, ylo = 1 dxpp) =olen_phys(i,/REAL(N pp),MK)GOTO 98rma END dxi =o1.0_mk/dx))r#endepsilontE l.000001_mk))r#endIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor IOT. ppmzhiatiot enough topoIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renonm_all =o0dm_renopm_alloc(s =o0dIm_reno t en=1,Np2m_renoenonm_all =onm_all +k ylo = 1 pm_all(nm_all,j=Vipane == __Vrma == __VEC #if __KIND == __SINGLE_PRECIS myeps i!myepssPRECIS min_ 1, => min_ 1,s == __Vmax_ = => max_ 1,s up,i! ))r#elif __KIND == __DOUBLE_PRECIS myeps i!myepsdPRECIS min_ 1, => min_ 1,d == __Vmax_ = => max_ 1,dif ,i! )Im_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor Loop( ! latio 1,domains (sinchiatioppm_i domains are moml likelyE__,i! ! to be empty, wSulook backwards to reduchiationumb llocele_errsconE__,i! ! nm_al ca sfaml a snossi te)sh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd-Im_reno o idom= 1,topo,1,- ylo = 1 p _ idoml = topo%iIe) ied(idom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rr Loop( ! latioremain 'pied(idom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rnm_al c=o0dm_renom)rnnpart=o0dm_renom)r 1,nm_all == __Vo = 1 pnpart=opm_all(iNE__,i! ))rmatE__,i! ))rmatrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddE__,i! ))rmatr Iocatiot enough 'meshsidhiatiocurrerrt 1,domain, a sign itE__,i! ))rmatrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddE__,i! ))rmatIF( i!'le 3oml).EQ.1) THEN rm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dQ.1) THEN rcatiot enough 'meshiatioclosuretlocatio 1,domainQ.1) THEN rm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dQ.1) THEN IF( ( xp= = t en).GE.min_ 1,= = ndata(.AND.ndealloccccccc',,,,,,,,&xp=2= t en).GE.min_ 1,=2= ndata(.AND.ndealloccccccc',,,,,,,,&xp=3= t en).GE.min_ 1,=3= ndata(.AND.ndealloccccccc',,,,,,,,&xp= = t en).LE.max_ 1,= = ndata(.AND.ndealloccccccc',,,,,,,,&xp=2= t en).LE.max_ 1,=2= ndata(.AND.ndealloccccccc',,,,,,,,&xp=3= t en).LE.max_ 1,=3= ndata(a(a(l).EQealloccccccc',,,,,,IF( (xp= = t en).LT.max_ 1,= = ndata(.OR.endealloccccccc',,',,,,,,,,& IF (topo%Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p2) IF CASE(ppm_parperiodic)).AND.dealloccccccc',,',,,,,,,,&(xp=2= t en).LT.max_ 1,=2= ndata(.OR.endealloccccccc',,',,,,,,,,& IF (topo4Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p4) IF CASE(ppm_parperiodic)).AND.dealloccccccc',,',,,,,,,,&(xp=3= t en).LT.max_ 1,=3= ndata(.OR.endealloccccccc',,',,,,,,,,& IF (topo6Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p6) IF CASE(ppm_parperiodic)) (a(l).EQealloccccccc',,,,,, )rnnpart=onnpart+ ylo = 1 nopm_alloc(s((l,i,j,knpane == __VVVVVVVVVVVVVELSEealloccccccc',,,,,, )rnm_al ccccccccc=rnm_al c+ ylo = 1 nopm_all(nm_al2,j=Vipane == __VVVVVVVVVVVVVEE ______ENDIFd VVVVELSEealloccccccc',,,,,,nm_al ccccccccc=rnm_al c+ ylo = 1 pm_all(nm_al2,j=Vipane == __VVVVVVVVVV END IFd ELSEIF ( i!ple 2oml).EQ.1) THEN Q.1) THEN IF( ( xp= = t en).GE.min_ 1,= = ndata(.AND.ndealloccccccc',,,,,,,,&xp=2= t en).GE.min_ 1,=2= ndata(.AND.ndealloccccccc',,,,,,,,&xp= = t en).LE.max_ 1,= = ndata(.AND.ndealloccccccc',,,,,,,,&xp=2= t en).LE.max_ 1,=2= ndata(a(a(l).EQloccccccc',,,,,,,,ealloccccccc',,,,,,IF( (xp= = t en).LT.max_ 1,= = ndata(.OR.endealloccccccc',,',,,,,,,,& IF (topo%Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p2) IF CASE(ppm_parperiodic)).AND.dealloccccccc',,',,,,,,,,&(xp=2= t en).LT.max_ 1,=2= ndata(.OR.endealloccccccc',,',,,,,,,,& IF (topo4Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p4) IF CASE(ppm_parperiodic))a(l).EQloccccccc',,,,,,,, ,,ealloccccccc',,,,,, )rnnpart=onnpart+ ylo = 1 nopm_alloc(s((l,i,j,knpane == __VVVVVVVVVVVVVELSEealloccccccc',,,,,, )rnm_al ccccccccc=rnm_al c+ ylo = 1 nopm_all(nm_al2,j=Vipane == __VVVVVVVVVVVVVEE ______ENDIFd VVVVELSEealloccccccc',,,,,,nm_al ccccccccc=rnm_al c+ ylo = 1 pm_all(nm_al2,j=Vipane == __VVVVVVVVVV END IFd E END IFd END IFdrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rr d catiotopos (well, only i! nm_al cchanged - decr d ied(idom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rIF (nm_al IF nm_all,jl).EQloccccccc',,nm_all =rnm_al Qloccccccc',, 1,nm_all == __Vo = 1 opm_all(iNt=opm_al2(iNE__,i! ))rmatrma END VVEE ______ENDIFd END IFdrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rr Exit i! atiotopo 'meemptyied(idom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rIF (nm_al1 IF(EXIEND SELE END rm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor CALL ! Chwck tld matcatiot enoughsdIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renoIF (nm_al GT (i! ).NE.0) THENN i! ) = pf zhlE.0) THENN CALL ppm_errort en_una sr Ie)stop('ppm_hUterp_p!terp_p2m',,,,,,,,,, &rmatE'MAJOR PROBLEM i!valid!',__LINE__,i! ))rrmatE ___GOTO 98rmatE ENDIFd END rm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor selectcatiot enough f_rewith several domain comput! Deal(fterch)sh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd-Im_reno == __Vmax_panenumb t=o0dm_reno = r=dom = 1,topo%nse) iedrIF(pm_alloc(s((l,i,.GE.max_panenumb ,jl).EQloccccccc',,max_panenumb t=opm_alloc(s((l,i, END IFd tE ENDIFd END id!rm matE iopt = pi ied_fnedm_renolocrmatE =dom = 1,topo%nse) ilocr2,j=Vmax_panenumb Im_reno == __V IFdma CALL ppm_alloc( ied_Ie),ldu,iopt,i!rIF(matE IF (i! ).NE.0) THENN i! ) = pf zhlE.0) THENN CALL ppm_error(m_err Ie)stop('ppm_hUterp_p_3d',)r#endealloccccccc',, &rmatE 'pro tem 1.2/nal i ied2 deallocation',__LINE__,i! ))(np.EQ.0) GOTO 98rmatE ___END nse) ilm_alloc=0 ENDIFd END rm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor IOT. ppmzhiatiot enough topoIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renonm_all =o0dm_reno t en=1,Np2m_renoenonm_all =onm_all +k ylo = 1 pm_all(nm_all,j=Vipane == __Vrma ENDIFd END rm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor Loop( ! latio 1,domains (sinchiatioppm_i domains are moml likelyE__,i! ! to be empty, wSulook backwards to reduchiationumb llocele_errsconE__,i! ! nm_al ca sfaml a snossi te)sh%nnodrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddddddd-Im_reno o idom= 1,topo,1,- ylo = 1 p _ idoml = topo%iIe) ied(idom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rr loop( ! latioremain 'pied(idom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rnm_al c=o0dm_renom)rnnpart=o0ddm_renom)r 1,nm_all == __Vo = 1 pnpart=opm_all(iNE__,i! ))rmatrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddE__,i! ))rmatr Iocatiot enough 'meshsidhiatiocurrerrt 1,domain, a sign itE__,i! ))rmatrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dddE__,i! ))rmatIF( i!'le 3oml).EQloccccccc',,,,,IF( ( xp= = t en).GE.min_ 1,= = ndata(.AND.ndealloccccccc',,,,,,,,&xp=2= t en).GE.min_ 1,=2= ndata(.AND.ndealloccccccc',,,,,,,,&xp=3= t en).GE.min_ 1,=3= ndata(.AND.ndealloccccccc',,,,,,,,&xp= = t en).LE.max_ 1,= = ndata(.AND.ndealloccccccc',,,,,,,,&xp=2= t en).LE.max_ 1,=2= ndata(.AND.ndealloccccccc',,,,,,,,&xp=3= t en).LE.max_ 1,=3= ndata(a(a(l).EQloccccccc',,,,,,,,ealloccccccc',,,,,,IF( (xp= = t en).LT.max_ 1,= = ndata(.OR.endealloccccccc',,',,,,,,,,& IF (topo%Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p2) IF CASE(ppm_parperiodic)).AND.dealloccccccc',,',,,,,,,,&(xp=2= t en).LT.max_ 1,=2= ndata(.OR.endealloccccccc',,',,,,,,,,& IF (topo4Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p4) IF CASE(ppm_parperiodic)).AND.dealloccccccc',,',,,,,,,,&(xp=3= t en).LT.max_ 1,=3= ndata(.OR.endealloccccccc',,',,,,,,,,& IF (topo6Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p6) IF CASE(ppm_parperiodic)) (a(l).EQloccccccc',,',,,,,,,,Qloccccccc',,,,,,,, ,,ealloccccccc',,,,,, )rnnpart=onnpart+ ylo = 1 nolm_alloc(,2*z,nt en)j=Vipane == __VVVVVVVVVVVVVELSEealloccccccc',,,,,, )rnm_al ccccccccc=rnm_al c+ ylo = 1 nopm_all(nm_al2,j=Vipane == __VVVVVVVVVVVVVEE ______ENDIFd VVVVELSEealloccccccc',,,,,,nm_al ccccccccc=rnm_al c+ ylo = 1 pm_all(nm_al2,j=Vipane == __VVVVVVVVVV END IFVVVVELSEIF ( i!ple 2oml).EQQloccccccc',,,,,IF( ( xp= = t en).GE.min_ 1,= = ndata(.AND.ndealloccccccc',,,,,,,,&xp=2= t en).GE.min_ 1,=2= ndata(.AND.ndealloccccccc',,,,,,,,&xp= = t en).LE.max_ 1,= = ndata(.AND.ndealloccccccc',,,,,,,,&xp=2= t en).LE.max_ 1,=2= ndata(a(a(l).EQloccccccc',,,,,,,,,,,,,,,,,,,,,,,,,,,ealloccccccc',,,,,,IF( (xp= = t en).LT.max_ 1,= = ndaa(.OR.endealloccccccc',,',,,,,,,,& IF (topo%Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p2) IF CASE(ppm_parperiodic)).AND.dealloccccccc',,',,,,,,,,&(xp=2= t en).LT.max_ 1,=2= ndata(.OR.endealloccccccc',,',,,,,,,,& IF (topo4Ie)s_bc(2,id,,,.AND.n endealloccccccc',,',,,,,,,,& CASE(p4) IF CASE(ppm_parperiodic))a(l).EQloccccccc',,,,,,,, ,,ealloccccccc',,,,,, )rnnpart=onnpart+ ylo = 1 nolm_alloc(,2*z,nt en)j=Vipane == __VVVVVVVVVVVVVELSEealloccccccc',,,,,, )rnm_al ccccccccc=rnm_al c+ ylo = 1 nopm_all(nm_al2,j=Vipane == __VVVVVVVVVVVVVEE ______ENDIFd VVVVELSEealloccccccc',,,,,,nm_al ccccccccc=rnm_al c+ ylo = 1 pm_all(nm_al2,j=Vipane == __VVVVVVVVVV END IFd E END IFd ,,ealloccccc END IFdrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rr d catiotopos (well, only i! nm_al cchanged - decr d ied(idom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rIF (nm_al IF nm_all,jl).EQloccccccc',,nm_all =rnm_al Qloccccccc',, 1,nm_all == __Vo = 1 opm_all(iNt=opm_al2(iNE__,i! ))rmatrma END VVEE ______ENDIFd END IFdrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rr Exit i! atiotopo 'meemptyied(idom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddied(idom)rIF (nm_al1 IF(EXIEND SELE END rm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor CALL ! Chwck tld matcatiot enoughsdIm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renoIF (nm_al GT (i! ).NE.0) THENN i! ) = pf zhlE.0) THENN CALL ppm_errort en_una sr Ie)stop('ppm_hUterp_p_3d',)rp_p2m',,,,,,,,,, &rmatE'MAJOR PROBLEM i!valid!',__LINE__,i! ))rrmatE ___GOTO 98rmatE ENDIFd END rm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor Apara2 hiandcaliaiiatiowe ! i! wcknee atim.2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renomax_panenumb t=o0dm_reno o r=dom = 1,topo%nse) iedrIF(pm_alloc(s((l,i,.GE.max_panenumb ,jl).EQloccccccc',,max_panenumb t=opm_alloc(s((l,i,,,ealloccccc tE ENDIFd .0)8Fd 8888 #endif #elif __D3D2m_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor dddo3Dcddddm_renorm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=ddddddddddm_renor loop( ! l 1,s == __V zh => om_rm%nnodes))r#end OCATE(d,meshrerp((1-idoml) - (1)):( zh=1,1)+idoml) - (1))rdealloc &rmatE & (1-idoml) - (2)):( zh=2,1)+idoml) - (2))rdealloc &rmatE & (1-idoml) - (3)):( zh=3,1)+idoml) - (3))rdealloc &rmatE & =dom = 1,topo))))r#endIm_reno = =o r=dom = 1,topo%nse) iedrl = t idoml = topo%i = NE__,i! ))rdm_renom)r k=1-idoml) - (3), zh=3,l = t)+idoml) - (3)QQloccccccc',, 1-idoml) - (2), zh=2,l = t)+idoml) - (2)QQloccccccc',,,,, 1-idoml) - (1), zh=1,l = t)+idoml) - (1) #endifr#elif __MODE == __Vcccccc',,,,, ldn=loc(a == __Vcccccc',,,,, fdnield_up( = NtE l.0_mk))r#enddddddddddddd lsei! ))rdm_renom)r',,,,, eld_up( = NtE l.0_mk)f ,i! ))r#endm)r',,,,, rerp(eld_up( = NtE l.0_mk))r#endddddddddd END DOd END VVEE END EE END IFdd IF(np.EQ.0)7))r#endIm_reno EN SEernelsizE__,i! ))rdm_reno SEe CASE(prt = ppm_rm_mp4NE__,i! ))rdm_renom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dQ.1) THEN ! M Prime Fourdm_renom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dQ.1) THEN = =o r=dom = 1,topo% #endifr#elif __MODE _renom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dIe)0=dQ.1) THENr Unrollrd(vering s f_re3-vect_rs _renom)rrm !!rac Ss _riwa if ingseg-yend!dd4,BOIe)0=dIe)0=dQ.1) THENoIF (fie 3oml).EQloccccccc',, t =o rpm_alloc(s(( = NE__,i! ))ri! ))rdm_renom)rrrrrrrl = t idoml = topo%i = NE__,i! ))rrrrrrrlqrrrr=olm_alloc(, = ,ip) QQloccccccc',,,,,!x0rmat = (xp= = q)-min_phys( r=domid))*dxi(1) loccccccc',,,,,!x0r2at = (xp=2= q)-min_phys(2r=domid))*dxi(2) loccccccc',,,,,!x0r3at = (xp=3= q)-min_phys(3r=domid))*dxi(3)QQloccccccc',,,,,x0rmat= (xp= = q)-min_ 1,= = = t))*dxi(1) loccccccc',,,,,x0r2at= (xp=2= q)-min_ 1,=2= = t))*dxi(2) loccccccc',,,,,x0r3at= (xp=3= q)-min_ 1,=3= = t))*dxi(3NE__,i! ))ri! ))rdm_renom)rrrrrrr!ep11t= INT(x0rma)+2-i C en= = = t)dm_renom)rrrrrrr!ep21t= INT(x0r2a)+2-i C en=2= = t)dm_renom)rrrrrrr!ep31t= INT(x0r3a)+2-i C en=3= = t)QQloccccccc',,,,,ep10t= INT(x0rma)Qloccccccc',,,,,ep20t= INT(x0r2a)Qloccccccc',,,,,ep30t= INT(x0r3a)))r#endm)r',,,,, Qloccccccc',,,,,ep11j=Vip10t+ ylo = 1 ep21t= ep20t+ ylo = 1 ep31t= ep30t+ Qloccccccc',,,,,ep12j=Vip11t+ ylo = 1 ep22j=Vip21t+ ylo = 1 ep32j=Vip31t+ Qloccccccc',,,,,ep13j=Vip11t+ 2 ylo = 1 ep23j=Vip21t+ 2 ylo = 1 ep33j=Vip31t+ 2QQloccccccc',,,,,xp1t= x0rma-REAL(ep10,mk) loccccccc',,,,,xp2t= x0r2a-REAL(ep20,mk) loccccccc',,,,,xp3t= x0r3a-REAL(ep30,mk) loccccccc',,,,,x10t= xp1t+o1.0_mk loccccccc',,,,,x11t= x10t-o1.0_mk loccccccc',,,,,x12t= x10t-o2.0_mk loccccccc',,,,,x13t= x10t-o3.0_mk loccccccc',,,,,x20t= xp2t+o1.0_mk loccccccc',,,,,x21t= x20t-o1.0_mk loccccccc',,,,,x22j=Vx20t-o2.0_mk loccccccc',,,,,x23j=Vx20t-o3.0_mk loccccccc',,,,,x30t= xp3t+o1.0_mk loccccccc',,,,,x31t= x30t-o1.0_mk loccccccc',,,,,x32j=Vx30t-o2.0_mk loccccccc',,,,,x33j=Vx30t-o3.0_mk loccccccc',,,,,a10t= 2.0_mkt+o(-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10 loccccccc',,,,,a20t= 2.0_mkt+o(-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20 loccccccc',,,,,a30t= 2.0_mkt+o(-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30 loccccccc',,,,,a11 =o1.0_mkt+o(-2.5_mk+1.5_mk*x11)*x11**2 ylo = 1 a21 =o1.0_mkt+o(-2.5_mk+1.5_mk*x21)*x21**2 ylo = 1 a31 =o1.0_mkt+o(-2.5_mk+1.5_mk*x31)*x31**2 loccccccc',,,,,a12 =o1.0_mkt+o(-2.5_mk-1.5_mk*x12)*x12**2 ylo = 1 a22 =o1.0_mkt+o(-2.5_mk-1.5_mk*x22)*x22**2 ylo = 1 a32 =o1.0_mkt+o(-2.5_mk-1.5_mk*x32)*x32**2 loccccccc',,,,,a13t= 2.0_mkt+o(4.0_mkt+o(2.5_mk+0.5_mk*x13)*x13)*x13 ylo = 1 a23t= 2.0_mkt+o(4.0_mkt+o(2.5_mk+0.5_mk*x23)*x23)*x23 ylo = 1 a33t= 2.0_mkt+o(4.0_mkt+o(2.5_mk+0.5_mk*x33)*x33)*x33 QQloccccccc',,,,,a10a20a30t= a10*a20*a30dm_renoccc',,,,,a10a20a31t= a10*a20*a3 ylo = 1 a10a20a32t= a10*a20*a32 ylo = 1 a10a20a33t= a10*a20*a33 ylo = 1 a10a21a30t= a10*a21*a30dm_renoccc',,,,,a10a21a31t= a10*a21*a3 ylo = 1 a10a21a32t= a10*a21*a32 ylo = 1 a10a21a33t= a10*a21*a33 ylo = 1 a10a22a30t= a10*a22*a30dm_renoccc',,,,,a10a22a31t= a10*a22*a3 ylo = 1 a10a22a32t= a10*a22*a32 ylo = 1 a10a22a33t= a10*a22*a33 ylo = 1 a10a23a30t= a10*a23*a30dm_renoccc',,,,,a10a23a31t= a10*a23*a3 ylo = 1 a10a23a32t= a10*a23*a32 ylo = 1 a10a23a33t= a10*a23*a33 ylo = 1 a11a20a30t= a11*a20*a30dm_renoccc',,,,,a11a20a31t= a11*a20*a3 ylo = 1 a11a20a32t= a11*a20*a32 ylo = 1 a11a20a33t= a11*a20*a33 ylo = 1 a11a21a30t= a11*a21*a30dm_renoccc',,,,,a11a21a31t= a11*a21*a3 ylo = 1 a11a21a32t= a11*a21*a32 ylo = 1 a11a21a33t= a11*a21*a33 ylo = 1 a11a22a30t= a11*a22*a30dm_renoccc',,,,,a11a22a31t= a11*a22*a3 ylo = 1 a11a22a32t= a11*a22*a32 ylo = 1 a11a22a33t= a11*a22*a33 ylo = 1 a11a23a30t= a11*a23*a30dm_renoccc',,,,,a11a23a31t= a11*a23*a3 ylo = 1 a11a23a32t= a11*a23*a32 ylo = 1 a11a23a33t= a11*a23*a33 ylo = 1 a12a20a30t= a12*a20*a30dm_renoccc',,,,,a12a20a31t= a12*a20*a3 ylo = 1 a12a20a32t= a12*a20*a32 ylo = 1 a12a20a33t= a12*a20*a33 ylo = 1 a12a21a30t= a12*a21*a30dm_renoccc',,,,,a12a21a31t= a12*a21*a3 ylo = 1 a12a21a32t= a12*a21*a32 ylo = 1 a12a21a33t= a12*a21*a33 ylo = 1 a12a22a30t= a12*a22*a30dm_renoccc',,,,,a12a22a31t= a12*a22*a3 ylo = 1 a12a22a32t= a12*a22*a32 ylo = 1 a12a22a33t= a12*a22*a33 ylo = 1 a12a23a30t= a12*a23*a30dm_renoccc',,,,,a12a23a31t= a12*a23*a3 ylo = 1 a12a23a32t= a12*a23*a32 ylo = 1 a12a23a33t= a12*a23*a33 ylo = 1 a13a20a30t= a13*a20*a30dm_renoccc',,,,,a13a20a31t= a13*a20*a3 ylo = 1 a13a20a32t= a13*a20*a32 ylo = 1 a13a20a33t= a13*a20*a33 ylo = 1 a13a21a30t= a13*a21*a30dm_renoccc',,,,,a13a21a31t= a13*a21*a3 ylo = 1 a13a21a32t= a13*a21*a32 ylo = 1 a13a21a33t= a13*a21*a33 ylo = 1 a13a22a30t= a13*a22*a30dm_renoccc',,,,,a13a22a31t= a13*a22*a3 ylo = 1 a13a22a32t= a13*a22*a32 ylo = 1 a13a22a33t= a13*a22*a33 ylo = 1 a13a23a30t= a13*a23*a30dm_renoccc',,,,,a13a23a31t= a13*a23*a3 ylo = 1 a13a23a32t= a13*a23*a32 ylo = 1 a13a23a33t= a13*a23*a33 ylo = 1 rerp(ep10,ep20,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep20,ep30,e = Nt+ dealloccccccc',,,,,,,,& a10a20a30dm_reno 1 rerp(ep11,ep20,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep20,ep30,e = Nt+ dealloccccccc',,,,,,,,& a11a20a30dm_reno 1 rerp(ep12,ep20,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep20,ep30,e = Nt+ dealloccccccc',,,,,,,,& a12a20a30dm_reno 1 rerp(ep13,ep20,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep20,ep30,e = Nt+ dealloccccccc',,,,,,,,& a13a20a30dm_reno 1 rerp(ep10,ep21,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep21,ep30,e = Nt+ dealloccccccc',,,,,,,,& a10a21a30dm_reno 1 rerp(ep11,ep21,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep21,ep30,e = Nt+ dealloccccccc',,,,,,,,& a11a21a30dm_reno 1 rerp(ep12,ep21,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep21,ep30,e = Nt+ dealloccccccc',,,,,,,,& a12a21a30dm_reno 1 rerp(ep13,ep21,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep21,ep30,e = Nt+ dealloccccccc',,,,,,,,& a13a21a30dm_reno 1 rerp(ep10,ep22,ip30,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep22,ep30,e = Nt+ dealloccccccc',,,,,,,,& a10a22a30dm_reno 1 rerp(ep11,ep22,ip30,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep22,ip30,e = Nt+ dealloccccccc',,,,,,,,& a11a22a30dm_reno 1 rerp(ep12,ep22,ip30,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep22,ip30,e = Nt+ dealloccccccc',,,,,,,,& a12a22a30dm_reno 1 rerp(ep13,ep22,ip30,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep22,ip30,e = Nt+ dealloccccccc',,,,,,,,& a13a22a30dm_reno 1 rerp(ep10,ip23,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep23,ep30,e = Nt+ dealloccccccc',,,,,,,,& a10a23a30dm_reno 1 rerp(ep11,ep23,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep23,ep30,e = Nt+ dealloccccccc',,,,,,,,& a11a23a30dm_reno 1 rerp(ep12,ep23,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep23,ep30,e = Nt+ dealloccccccc',,,,,,,,& a12a23a30dm_reno 1 rerp(ep13,ep23,ep30,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep23,ep30,e = Nt+ dealloccccccc',,,,,,,,& a13a23a30dm_reno 1 rerp(ep10,ep20,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep20,ep31,e = Nt+ dealloccccccc',,,,,,,,& a10a20a3 ylo = 1 rerp(ep11,ep20,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep20,ep31,e = Nt+ dealloccccccc',,,,,,,,& a11a20a3 ylo = 1 rerp(ep12,ep20,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep20,ep31,e = Nt+ dealloccccccc',,,,,,,,& a12a20a3 ylo = 1 rerp(ep13,ep20,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep20,ep31,e = Nt+ dealloccccccc',,,,,,,,& a13a20a3 ylo = 1 rerp(ep10,ep21,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep21,ep31,e = Nt+ dealloccccccc',,,,,,,,& a10a21a3 ylo = 1 rerp(ep11,ep21,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep21,ep31,e = Nt+ dealloccccccc',,,,,,,,& a11a21a3 ylo = 1 rerp(ep12,ep21,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep21,ep31,e = Nt+ dealloccccccc',,,,,,,,& a12a21a3 ylo = 1 rerp(ep13,ep21,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep21,ep31,e = Nt+ dealloccccccc',,,,,,,,& a13a21a3 ylo = 1 rerp(ep10,ep22,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep22,ep31,e = Nt+ dealloccccccc',,,,,,,,& a10a22a3 ylo = 1 rerp(ep11,ep22,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep22,ep31,e = Nt+ dealloccccccc',,,,,,,,& a11a22a3 ylo = 1 rerp(ep12,ep22,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep22,ep31,e = Nt+ dealloccccccc',,,,,,,,& a12a22a3 ylo = 1 rerp(ep13,ep22,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep22,ep31,e = Nt+ dealloccccccc',,,,,,,,& a13a22a3 ylo = 1 rerp(ep10,ep23,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep23,ep31,e = Nt+ dealloccccccc',,,,,,,,& a10a23a3 ylo = 1 rerp(ep11,ep23,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep23,ep31,e = Nt+ dealloccccccc',,,,,,,,& a11a23a3 ylo = 1 rerp(ep12,ep23,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep23,ep31,e = Nt+ dealloccccccc',,,,,,,,& a12a23a3 ylo = 1 rerp(ep13,ep23,ep31,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep23,ep31,e = Nt+ dealloccccccc',,,,,,,,& a13a23a3 ylo = 1 rerp(ep10,ep20,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep20,ep32,e = Nt+ dealloccccccc',,,,,,,,& a10a20a32 ylo = 1 rerp(ep11,ep20,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep20,ep32,e = Nt+ dealloccccccc',,,,,,,,& a11a20a32 ylo = 1 rerp(ep12,ep20,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep20,ep32,e = Nt+ dealloccccccc',,,,,,,,& a12a20a32 ylo = 1 rerp(ep13,ep20,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep20,ep32,e = Nt+ dealloccccccc',,,,,,,,& a13a20a32 ylo = 1 rerp(ep10,ep21,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep21,ep32,e = Nt+ dealloccccccc',,,,,,,,& a10a21a32 ylo = 1 rerp(ep11,ep21,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep21,ep32,e = Nt+ dealloccccccc',,,,,,,,& a11a21a32 ylo = 1 rerp(ep12,ep21,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep21,ep32,e = Nt+ dealloccccccc',,,,,,,,& a12a21a32 ylo = 1 rerp(ep13,ep21,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep21,ep32,e = Nt+ dealloccccccc',,,,,,,,& a13a21a32 ylo = 1 rerp(ep10,ep22,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep22,ep32,e = Nt+ dealloccccccc',,,,,,,,& a10a22a32 ylo = 1 rerp(ep11,ep22,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep22,ep32,e = Nt+ dealloccccccc',,,,,,,,& a11a22a32 ylo = 1 rerp(ep12,ep22,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep22,ep32,e = Nt+ dealloccccccc',,,,,,,,& a12a22a32 ylo = 1 rerp(ep13,ep22,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep22,ep32,e = Nt+ dealloccccccc',,,,,,,,& a13a22a32 ylo = 1 rerp(ep10,ep23,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep23,ep32,e = Nt+ dealloccccccc',,,,,,,,& a10a23a32 ylo = 1 rerp(ep11,ep23,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep23,ep32,e = Nt+ dealloccccccc',,,,,,,,& a11a23a32 ylo = 1 rerp(ep12,ep23,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep23,ep32,e = Nt+ dealloccccccc',,,,,,,,& a12a23a32 ylo = 1 rerp(ep13,ep23,ep32,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep23,ep32,e = Nt+ dealloccccccc',,,,,,,,& a13a23a32 ylo = 1 rerp(ep10,ep20,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep20,ep33,e = Nt+ dealloccccccc',,,,,,,,& a10a20a33 ylo = 1 rerp(ep11,ep20,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep20,ep33,e = Nt+ dealloccccccc',,,,,,,,& a11a20a33 ylo = 1 rerp(ep12,ep20,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep20,ep33,e = Nt+ dealloccccccc',,,,,,,,& a12a20a33 ylo = 1 rerp(ep13,ep20,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep20,ep33,e = Nt+ dealloccccccc',,,,,,,,& a13a20a33 ylo = 1 rerp(ep10,ep21,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep21,ep33,e = Nt+ dealloccccccc',,,,,,,,& a10a21a33 ylo = 1 rerp(ep11,ep21,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep21,ep33,e = Nt+ dealloccccccc',,,,,,,,& a11a21a33 ylo = 1 rerp(ep12,ep21,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep21,ep33,e = Nt+ dealloccccccc',,,,,,,,& a12a21a33 ylo = 1 rerp(ep13,ep21,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep21,ep33,e = Nt+ dealloccccccc',,,,,,,,& a13a21a33 ylo = 1 rerp(ep10,ep22,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep22,ep33,e = Nt+ dealloccccccc',,,,,,,,& a10a22a33 ylo = 1 rerp(ep11,ep22,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep22,ep33,e = Nt+ dealloccccccc',,,,,,,,& a11a22a33 ylo = 1 rerp(ep12,ep22,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep22,ep33,e = Nt+ dealloccccccc',,,,,,,,& a12a22a33 ylo = 1 rerp(ep13,ep22,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep22,ep33,e = Nt+ dealloccccccc',,,,,,,,& a13a22a33 ylo = 1 rerp(ep10,ep23,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep10,ep23,ep33,e = Nt+ dealloccccccc',,,,,,,,& a10a23a33 ylo = 1 rerp(ep11,ep23,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep11,ep23,ep33,e = Nt+ dealloccccccc',,,,,,,,& a11a23a33 ylo = 1 rerp(ep12,ep23,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep12,ep23,ep33,e = Nt+ dealloccccccc',,,,,,,,& a12a23a33 ylo = 1 rerp(ep13,ep23,ep33,e = NtE dealloccccccc',,,,,,,,& rerp(ep13,ep23,ep33,e = Nt+ dealloccccccc',,,,,,,,& a13a23a33 ylo = 1 #endendifNOMICROINSTRUCTIONS up= = t10,ep20,ep30,e = N= up= = t10,ep20,ep30,e = N+& &a10a20a30*up= = q) up=2= t10,ep20,ep30,e = N= up=2= t10,ep20,ep30,e = N+& &a10a20a30*up=2= q) up=3= t10,ep20,ep30,e = N= up=3= t10,ep20,ep30,e = N+& &a10a20a30*up=3= q) up= = t11,ep20,ep30,e = N= up= = t11,ep20,ep30,e = N+& &a11a20a30*up= = q) up=2= t11,ep20,ep30,e = N= up=2= t11,ep20,ep30,e = N+& &a11a20a30*up=2= q) up=3= t11,ep20,ep30,e = N= up=3= t11,ep20,ep30,e = N+& &a11a20a30*up=3= q) up= = t12,ep20,ep30,e = N= up= = t12,ep20,ep30,e = N+& &a12a20a30*up= = q) up=2= t12,ep20,ep30,e = N= up=2= t12,ep20,ep30,e = N+& &a12a20a30*up=2= q) up=3= t12,ep20,ep30,e = N= up=3= t12,ep20,ep30,e = N+& &a12a20a30*up=3= q) up= = t13,ep20,ep30,e = N= up= = t13,ep20,ep30,e = N+& &a13a20a30*up= = q) up=2= t13,ep20,ep30,e = N= up=2= t13,ep20,ep30,e = N+& &a13a20a30*up=2= q) up=3= t13,ep20,ep30,e = N= up=3= t13,ep20,ep30,e = N+& &a13a20a30*up=3= q) up= = t10,ep21,ep30,e = N= up= = t10,ep21,ep30,e = N+& &a10a21a30*up= = q) up=2= t10,ep21,ep30,e = N= up=2= t10,ep21,ep30,e = N+& &a10a21a30*up=2= q) up=3= t10,ep21,ep30,e = N= up=3= t10,ep21,ep30,e = N+& &a10a21a30*up=3= q) up= = t11,ep21,ep30,e = N= up= = t11,ep21,ep30,e = N+& &a11a21a30*up= = q) up=2= t11,ep21,ep30,e = N= up=2= t11,ep21,ep30,e = N+& &a11a21a30*up=2= q) up=3= t11,ep21,ep30,e = N= up=3= t11,ep21,ep30,e = N+& &a11a21a30*up=3= q) up= = t12,ep21,ep30,e = N= up= = t12,ep21,ep30,e = N+& &a12a21a30*up= = q) up=2= t12,ep21,ep30,e = N= up=2= t12,ep21,ep30,e = N+& &a12a21a30*up=2= q) up=3= t12,ep21,ep30,e = N= up=3= t12,ep21,ep30,e = N+& &a12a21a30*up=3= q) up= = t13,ep21,ep30,e = N= up= = t13,ep21,ep30,e = N+& &a13a21a30*up= = q) up=2= t13,ep21,ep30,e = N= up=2= t13,ep21,ep30,e = N+& &a13a21a30*up=2= q) up=3= t13,ep21,ep30,e = N= up=3= t13,ep21,ep30,e = N+& &a13a21a30*up=3= q) up= = t10,ep22,ep30,e = N= up= = t10,ep22,ep30,e = N+& &a10a22a30*up= = q) up=2= t10,ep22,ep30,e = N= up=2= t10,ep22,ep30,e = N+& &a10a22a30*up=2= q) up=3= t10,ep22,ep30,e = N= up=3= t10,ep22,ep30,e = N+& &a10a22a30*up=3= q) up= = t11,ep22,ep30,e = N= up= = t11,ep22,ep30,e = N+& &a11a22a30*up= = q) up=2= t11,ep22,ep30,e = N= up=2= t11,ep22,ep30,e = N+& &a11a22a30*up=2= q) up=3= t11,ep22,ep30,e = N= up=3= t11,ep22,ep30,e = N+& &a11a22a30*up=3= q) up= = t12,ep22,ep30,e = N= up= = t12,ep22,ep30,e = N+& &a12a22a30*up= = q) up=2= t12,ep22,ep30,e = N= up=2= t12,ep22,ep30,e = N+& &a12a22a30*up=2= q) up=3= t12,ep22,ep30,e = N= up=3= t12,ep22,ep30,e = N+& &a12a22a30*up=3= q) up= = t13,ep22,ep30,e = N= up= = t13,ep22,ep30,e = N+& &a13a22a30*up= = q) up=2= t13,ep22,ep30,e = N= up=2= t13,ep22,ep30,e = N+& &a13a22a30*up=2= q) up=3= t13,ep22,ep30,e = N= up=3= t13,ep22,ep30,e = N+& &a13a22a30*up=3= q) up= = t10,ep23,ep30,e = N= up= = t10,ep23,ep30,e = N+& &a10a23a30*up= = q) up=2= t10,ep23,ep30,e = N= up=2= t10,ep23,ep30,e = N+& &a10a23a30*up=2= q) up=3= t10,ep23,ep30,e = N= up=3= t10,ep23,ep30,e = N+& &a10a23a30*up=3= q) up= = t11,ep23,ep30,e = N= up= = t11,ep23,ep30,e = N+& &a11a23a30*up= = q) up=2= t11,ep23,ep30,e = N= up=2= t11,ep23,ep30,e = N+& &a11a23a30*up=2= q) up=3= t11,ep23,ep30,e = N= up=3= t11,ep23,ep30,e = N+& &a11a23a30*up=3= q) up= = t12,ep23,ep30,e = N= up= = t12,ep23,ep30,e = N+& &a12a23a30*up= = q) up=2= t12,ep23,ep30,e = N= up=2= t12,ep23,ep30,e = N+& &a12a23a30*up=2= q) up=3= t12,ep23,ep30,e = N= up=3= t12,ep23,ep30,e = N+& &a12a23a30*up=3= q) up= = t13,ep23,ep30,e = N= up= = t13,ep23,ep30,e = N+& &a13a23a30*up= = q) up=2= t13,ep23,ep30,e = N= up=2= t13,ep23,ep30,e = N+& &a13a23a30*up=2= q) up=3= t13,ep23,ep30,e = N= up=3= t13,ep23,ep30,e = N+& &a13a23a30*up=3= q) up= = t10,ep20,ep31,e = N= up= = t10,ep20,ep31,e = N+& &a10a20a31*up= = q) up=2= t10,ep20,ep31,e = N= up=2= t10,ep20,ep31,e = N+& &a10a20a31*up=2= q) up=3= t10,ep20,ep31,e = N= up=3= t10,ep20,ep31,e = N+& &a10a20a31*up=3= q) up= = t11,ep20,ep31,e = N= up= = t11,ep20,ep31,e = N+& &a11a20a31*up= = q) up=2= t11,ep20,ep31,e = N= up=2= t11,ep20,ep31,e = N+& &a11a20a31*up=2= q) up=3= t11,ep20,ep31,e = N= up=3= t11,ep20,ep31,e = N+& &a11a20a31*up=3= q) up= = t12,ep20,ep31,e = N= up= = t12,ep20,ep31,e = N+& &a12a20a31*up= = q) up=2= t12,ep20,ep31,e = N= up=2= t12,ep20,ep31,e = N+& &a12a20a31*up=2= q) up=3= t12,ep20,ep31,e = N= up=3= t12,ep20,ep31,e = N+& &a12a20a31*up=3= q) up= = t13,ep20,ep31,e = N= up= = t13,ep20,ep31,e = N+& &a13a20a31*up= = q) up=2= t13,ep20,ep31,e = N= up=2= t13,ep20,ep31,e = N+& &a13a20a31*up=2= q) up=3= t13,ep20,ep31,e = N= up=3= t13,ep20,ep31,e = N+& &a13a20a31*up=3= q) up= = t10,ep21,ep31,e = N= up= = t10,ep21,ep31,e = N+& &a10a21a3 *up= = q) up=2= t10,ep21,ep31,e = N= up=2= t10,ep21,ep31,e = N+& &a10a21a3 *up=2= q) up=3= t10,ep21,ep31,e = N= up=3= t10,ep21,ep31,e = N+& &a10a21a3 *up=3= q) up= = t11,ep21,ep31,e = N= up= = t11,ep21,ep31,e = N+& &a11a21a3 *up= = q) up=2= t11,ep21,ep31,e = N= up=2= t11,ep21,ep31,e = N+& &a11a21a3 *up=2= q) up=3= t11,ep21,ep31,e = N= up=3= t11,ep21,ep31,e = N+& &a11a21a3 *up=3= q) up= = t12,ep21,ep31,e = N= up= = t12,ep21,ep31,e = N+& &a12a21a3 *up= = q) up=2= t12,ep21,ep31,e = N= up=2= t12,ep21,ep31,e = N+& &a12a21a3 *up=2= q) up=3= t12,ep21,ep31,e = N= up=3= t12,ep21,ep31,e = N+& &a12a21a3 *up=3= q) up= = t13,ep21,ep31,e = N= up= = t13,ep21,ep31,e = N+& &a13a21a3 *up= = q) up=2= t13,ep21,ep31,e = N= up=2= t13,ep21,ep31,e = N+& &a13a21a3 *up=2= q) up=3= t13,ep21,ep31,e = N= up=3= t13,ep21,ep31,e = N+& &a13a21a3 *up=3= q) up= = t10,ep22,ep31,e = N= up= = t10,ep22,ep31,e = N+& &a10a22a3 *up= = q) up=2= t10,ep22,ep31,e = N= up=2= t10,ep22,ep31,e = N+& &a10a22a3 *up=2= q) up=3= t10,ep22,ep31,e = N= up=3= t10,ep22,ep31,e = N+& &a10a22a3 *up=3= q) up= = t11,ep22,ep31,e = N= up= = t11,ep22,ep31,e = N+& &a11a22a3 *up= = q) up=2= t11,ep22,ep31,e = N= up=2= t11,ep22,ep31,e = N+& &a11a22a3 *up=2= q) up=3= t11,ep22,ep31,e = N= up=3= t11,ep22,ep31,e = N+& &a11a22a3 *up=3= q) up= = t12,ep22,ep31,e = N= up= = t12,ep22,ep31,e = N+& &a12a22a3 *up= = q) up=2= t12,ep22,ep31,e = N= up=2= t12,ep22,ep31,e = N+& &a12a22a3 *up=2= q) up=3= t12,ep22,ep31,e = N= up=3= t12,ep22,ep31,e = N+& &a12a22a3 *up=3= q) up= = t13,ep22,ep31,e = N= up= = t13,ep22,ep31,e = N+& &a13a22a3 *up= = q) up=2= t13,ep22,ep31,e = N= up=2= t13,ep22,ep31,e = N+& &a13a22a3 *up=2= q) up=3= t13,ep22,ep31,e = N= up=3= t13,ep22,ep31,e = N+& &a13a22a3 *up=3= q) up= = t10,ep23,ep31,e = N= up= = t10,ep23,ep31,e = N+& &a10a23a3 *up= = q) up=2= t10,ep23,ep31,e = N= up=2= t10,ep23,ep31,e = N+& &a10a23a3 *up=2= q) up=3= t10,ep23,ep31,e = N= up=3= t10,ep23,ep31,e = N+& &a10a23a3 *up=3= q) up= = t11,ep23,ep31,e = N= up= = t11,ep23,ep31,e = N+& &a11a23a3 *up= = q) up=2= t11,ep23,ep31,e = N= up=2= t11,ep23,ep31,e = N+& &a11a23a3 *up=2= q) up=3= t11,ep23,ep31,e = N= up=3= t11,ep23,ep31,e = N+& &a11a23a3 *up=3= q) up= = t12,ep23,ep31,e = N= up= = t12,ep23,ep31,e = N+& &a12a23a3 *up= = q) up=2= t12,ep23,ep31,e = N= up=2= t12,ep23,ep31,e = N+& &a12a23a3 *up=2= q) up=3= t12,ep23,ep31,e = N= up=3= t12,ep23,ep31,e = N+& &a12a23a3 *up=3= q) up= = t13,ep23,ep31,e = N= up= = t13,ep23,ep31,e = N+& &a13a23a3 *up= = q) up=2= t13,ep23,ep31,e = N= up=2= t13,ep23,ep31,e = N+& &a13a23a3 *up=2= q) up=3= t13,ep23,ep31,e = N= up=3= t13,ep23,ep31,e = N+& &a13a23a3 *up=3= q) up= = t10,ep20,ep32,e = N= up= = t10,ep20,ep32,e = N+& &a10a20a32*up= = q) up=2= t10,ep20,ep32,e = N= up=2= t10,ep20,ep32,e = N+& &a10a20a32*up=2= q) up=3= t10,ep20,ep32,e = N= up=3= t10,ep20,ep32,e = N+& &a10a20a32*up=3= q) up= = t11,ep20,ep32,e = N= up= = t11,ep20,ep32,e = N+& &a11a20a32*up= = q) up=2= t11,ep20,ep32,e = N= up=2= t11,ep20,ep32,e = N+& &a11a20a32*up=2= q) up=3= t11,ep20,ep32,e = N= up=3= t11,ep20,ep32,e = N+& &a11a20a32*up=3= q) up= = t12,ep20,ep32,e = N= up= = t12,ep20,ep32,e = N+& &a12a20a32*up= = q) up=2= t12,ep20,ep32,e = N= up=2= t12,ep20,ep32,e = N+& &a12a20a32*up=2= q) up=3= t12,ep20,ep32,e = N= up=3= t12,ep20,ep32,e = N+& &a12a20a32*up=3= q) up= = t13,ep20,ep32,e = N= up= = t13,ep20,ep32,e = N+& &a13a20a32*up= = q) up=2= t13,ep20,ep32,e = N= up=2= t13,ep20,ep32,e = N+& &a13a20a32*up=2= q) up=3= t13,ep20,ep32,e = N= up=3= t13,ep20,ep32,e = N+& &a13a20a32*up=3= q) up= = t10,ep21,ep32,e = N= up= = t10,ep21,ep32,e = N+& &a10a21a32*up= = q) up=2= t10,ep21,ep32,e = N= up=2= t10,ep21,ep32,e = N+& &a10a21a32*up=2= q) up=3= t10,ep21,ep32,e = N= up=3= t10,ep21,ep32,e = N+& &a10a21a32*up=3= q) up= = t11,ep21,ep32,e = N= up= = t11,ep21,ep32,e = N+& &a11a21a32*up= = q) up=2= t11,ep21,ep32,e = N= up=2= t11,ep21,ep32,e = N+& &a11a21a32*up=2= q) up=3= t11,ep21,ep32,e = N= up=3= t11,ep21,ep32,e = N+& &a11a21a32*up=3= q) up= = t12,ep21,ep32,e = N= up= = t12,ep21,ep32,e = N+& &a12a21a32*up= = q) up=2= t12,ep21,ep32,e = N= up=2= t12,ep21,ep32,e = N+& &a12a21a32*up=2= q) up=3= t12,ep21,ep32,e = N= up=3= t12,ep21,ep32,e = N+& &a12a21a32*up=3= q) up= = t13,ep21,ep32,e = N= up= = t13,ep21,ep32,e = N+& &a13a21a32*up= = q) up=2= t13,ep21,ep32,e = N= up=2= t13,ep21,ep32,e = N+& &a13a21a32*up=2= q) up=3= t13,ep21,ep32,e = N= up=3= t13,ep21,ep32,e = N+& &a13a21a32*up=3= q) up= = t10,ep22,ep32,e = N= up= = t10,ep22,ep32,e = N+& &a10a22a32*up= = q) up=2= t10,ep22,ep32,e = N= up=2= t10,ep22,ep32,e = N+& &a10a22a32*up=2= q) up=3= t10,ep22,ep32,e = N= up=3= t10,ep22,ep32,e = N+& &a10a22a32*up=3= q) up= = t11,ep22,ep32,e = N= up= = t11,ep22,ep32,e = N+& &a11a22a32*up= = q) up=2= t11,ep22,ep32,e = N= up=2= t11,ep22,ep32,e = N+& &a11a22a32*up=2= q) up=3= t11,ep22,ep32,e = N= up=3= t11,ep22,ep32,e = N+& &a11a22a32*up=3= q) up= = t12,ep22,ep32,e = N= up= = t12,ep22,ep32,e = N+& &a12a22a32*up= = q) up=2= t12,ep22,ep32,e = N= up=2= t12,ep22,ep32,e = N+& &a12a22a32*up=2= q) up=3= t12,ep22,ep32,e = N= up=3= t12,ep22,ep32,e = N+& &a12a22a32*up=3= q) up= = t13,ep22,ep32,e = N= up= = t13,ep22,ep32,e = N+& &a13a22a32*up= = q) up=2= t13,ep22,ep32,e = N= up=2= t13,ep22,ep32,e = N+& &a13a22a32*up=2= q) up=3= t13,ep22,ep32,e = N= up=3= t13,ep22,ep32,e = N+& &a13a22a32*up=3= q) up= = t10,ep23,ep32,e = N= up= = t10,ep23,ep32,e = N+& &a10a23a32*up= = q) up=2= t10,ep23,ep32,e = N= up=2= t10,ep23,ep32,e = N+& &a10a23a32*up=2= q) up=3= t10,ep23,ep32,e = N= up=3= t10,ep23,ep32,e = N+& &a10a23a32*up=3= q) up= = t11,ep23,ep32,e = N= up= = t11,ep23,ep32,e = N+& &a11a23a32*up= = q) up=2= t11,ep23,ep32,e = N= up=2= t11,ep23,ep32,e = N+& &a11a23a32*up=2= q) up=3= t11,ep23,ep32,e = N= up=3= t11,ep23,ep32,e = N+& &a11a23a32*up=3= q) up= = t12,ep23,ep32,e = N= up= = t12,ep23,ep32,e = N+& &a12a23a32*up= = q) up=2= t12,ep23,ep32,e = N= up=2= t12,ep23,ep32,e = N+& &a12a23a32*up=2= q) up=3= t12,ep23,ep32,e = N= up=3= t12,ep23,ep32,e = N+& &a12a23a32*up=3= q) up= = t13,ep23,ep32,e = N= up= = t13,ep23,ep32,e = N+& &a13a23a32*up= = q) up=2= t13,ep23,ep32,e = N= up=2= t13,ep23,ep32,e = N+& &a13a23a32*up=2= q) up=3= t13,ep23,ep32,e = N= up=3= t13,ep23,ep32,e = N+& &a13a23a32*up=3= q) up= = t10,ep20,ep33,e = N= up= = t10,ep20,ep33,e = N+& &a10a20a33*up= = q) up=2= t10,ep20,ep33,e = N= up=2= t10,ep20,ep33,e = N+& &a10a20a33*up=2= q) up=3= t10,ep20,ep33,e = N= up=3= t10,ep20,ep33,e = N+& &a10a20a33*up=3= q) up= = t11,ep20,ep33,e = N= up= = t11,ep20,ep33,e = N+& &a11a20a33*up= = q) up=2= t11,ep20,ep33,e = N= up=2= t11,ep20,ep33,e = N+& &a11a20a33*up=2= q) up=3= t11,ep20,ep33,e = N= up=3= t11,ep20,ep33,e = N+& &a11a20a33*up=3= q) up= = t12,ep20,ep33,e = N= up= = t12,ep20,ep33,e = N+& &a12a20a33*up= = q) up=2= t12,ep20,ep33,e = N= up=2= t12,ep20,ep33,e = N+& &a12a20a33*up=2= q) up=3= t12,ep20,ep33,e = N= up=3= t12,ep20,ep33,e = N+& &a12a20a33*up=3= q) up= = t13,ep20,ep33,e = N= up= = t13,ep20,ep33,e = N+& &a13a20a33*up= = q) up=2= t13,ep20,ep33,e = N= up=2= t13,ep20,ep33,e = N+& &a13a20a33*up=2= q) up=3= t13,ep20,ep33,e = N= up=3= t13,ep20,ep33,e = N+& &a13a20a33*up=3= q) up= = t10,ep21,ep33,e = N= up= = t10,ep21,ep33,e = N+& &a10a21a33*up= = q) up=2= t10,ep21,ep33,e = N= up=2= t10,ep21,ep33,e = N+& &a10a21a33*up=2= q) up=3= t10,ep21,ep33,e = N= up=3= t10,ep21,ep33,e = N+& &a10a21a33*up=3= q) up= = t11,ep21,ep33,e = N= up= = t11,ep21,ep33,e = N+& &a11a21a33*up= = q) up=2= t11,ep21,ep33,e = N= up=2= t11,ep21,ep33,e = N+& &a11a21a33*up=2= q) up=3= t11,ep21,ep33,e = N= up=3= t11,ep21,ep33,e = N+& &a11a21a33*up=3= q) up= = t12,ep21,ep33,e = N= up= = t12,ep21,ep33,e = N+& &a12a21a33*up= = q) up=2= t12,ep21,ep33,e = N= up=2= t12,ep21,ep33,e = N+& &a12a21a33*up=2= q) up=3= t12,ep21,ep33,e = N= up=3= t12,ep21,ep33,e = N+& &a12a21a33*up=3= q) up= = t13,ep21,ep33,e = N= up= = t13,ep21,ep33,e = N+& &a13a21a33*up= = q) up=2= t13,ep21,ep33,e = N= up=2= t13,ep21,ep33,e = N+& &a13a21a33*up=2= q) up=3= t13,ep21,ep33,e = N= up=3= t13,ep21,ep33,e = N+& &a13a21a33*up=3= q) up= = t10,ep22,ep33,e = N= up= = t10,ep22,ep33,e = N+& &a10a22a33*up= = q) up=2= t10,ep22,ep33,e = N= up=2= t10,ep22,ep33,e = N+& &a10a22a33*up=2= q) up=3= t10,ep22,ep33,e = N= up=3= t10,ep22,ep33,e = N+& &a10a22a33*up=3= q) up= = t11,ep22,ep33,e = N= up= = t11,ep22,ep33,e = N+& &a11a22a33*up= = q) up=2= t11,ep22,ep33,e = N= up=2= t11,ep22,ep33,e = N+& &a11a22a33*up=2= q) up=3= t11,ep22,ep33,e = N= up=3= t11,ep22,ep33,e = N+& &a11a22a33*up=3= q) up= = t12,ep22,ep33,e = N= up= = t12,ep22,ep33,e = N+& &a12a22a33*up= = q) up=2= t12,ep22,ep33,e = N= up=2= t12,ep22,ep33,e = N+& &a12a22a33*up=2= q) up=3= t12,ep22,ep33,e = N= up=3= t12,ep22,ep33,e = N+& &a12a22a33*up=3= q) up= = t13,ep22,ep33,e = N= up= = t13,ep22,ep33,e = N+& &a13a22a33*up= = q) up=2= t13,ep22,ep33,e = N= up=2= t13,ep22,ep33,e = N+& &a13a22a33*up=2= q) up=3= t13,ep22,ep33,e = N= up=3= t13,ep22,ep33,e = N+& &a13a22a33*up=3= q) up= = t10,ep23,ep33,e = N= up= = t10,ep23,ep33,e = N+& &a10a23a33*up= = q) up=2= t10,ep23,ep33,e = N= up=2= t10,ep23,ep33,e = N+& &a10a23a33*up=2= q) up=3= t10,ep23,ep33,e = N= up=3= t10,ep23,ep33,e = N+& &a10a23a33*up=3= q) up= = t11,ep23,ep33,e = N= up= = t11,ep23,ep33,e = N+& &a11a23a33*up= = q) up=2= t11,ep23,ep33,e = N= up=2= t11,ep23,ep33,e = N+& &a11a23a33*up=2= q) up=3= t11,ep23,ep33,e = N= up=3= t11,ep23,ep33,e = N+& &a11a23a33*up=3= q) up= = t12,ep23,ep33,e = N= up= = t12,ep23,ep33,e = N+& &a12a23a33*up= = q) up=2= t12,ep23,ep33,e = N= up=2= t12,ep23,ep33,e = N+& &a12a23a33*up=2= q) up=3= t12,ep23,ep33,e = N= up=3= t12,ep23,ep33,e = N+& &a12a23a33*up=3= q) up= = t13,ep23,ep33,e = N= up= = t13,ep23,ep33,e = N+& &a13a23a33*up= = q) up=2= t13,ep23,ep33,e = N= up=2= t13,ep23,ep33,e = N+& &a13a23a33*up=2= q) up=3= t13,ep23,ep33,e = N= up=3= t13,ep23,ep33,e = N+& &a13a23a33*up=3= q) lse up= :3= t10,ep20,ep30,e = N= up= :3= t10,ep20,ep30,e = N+& &a10a20a30*up= :3= q) up= :3= t11,ep20,ep30,e = N= up= :3= t11,ep20,ep30,e = N+& &a11a20a30*up= :3= q) up= :3= t12,ep20,ep30,e = N= up= :3= t12,ep20,ep30,e = N+& &a12a20a30*up= :3= q) up= :3= t13,ep20,ep30,e = N= up= :3= t13,ep20,ep30,e = N+& &a13a20a30*up= :3= q) up= :3= t10,ep21,ep30,e = N= up= :3= t10,ep21,ep30,e = N+& &a10a21a30*up= :3= q) up= :3= t11,ep21,ep30,e = N= up= :3= t11,ep21,ep30,e = N+& &a11a21a30*up= :3= q) up= :3= t12,ep21,ep30,e = N= up= :3= t12,ep21,ep30,e = N+& &a12a21a30*up= :3= q) up= :3= t13,ep21,ep30,e = N= up= :3= t13,ep21,ep30,e = N+& &a13a21a30*up= :3= q) up= :3= t10,ep22,ep30,e = N= up= :3= t10,ep22,ep30,e = N+& &a10a22a30*up= :3= q) up= :3= t11,ep22,ep30,e = N= up= :3= t11,ep22,ep30,e = N+& &a11a22a30*up= :3= q) up= :3= t12,ep22,ep30,e = N= up= :3= t12,ep22,ep30,e = N+& &a12a22a30*up= :3= q) up= :3= t13,ep22,ep30,e = N= up= :3= t13,ep22,ep30,e = N+& &a13a22a30*up= :3= q) up= :3= t10,ep23,ep30,e = N= up= :3= t10,ep23,ep30,e = N+& &a10a23a30*up= :3= q) up= :3= t11,ep23,ep30,e = N= up= :3= t11,ep23,ep30,e = N+& &a11a23a30*up= :3= q) up= :3= t12,ep23,ep30,e = N= up= :3= t12,ep23,ep30,e = N+& &a12a23a30*up= :3= q) up= :3= t13,ep23,ep30,e = N= up= :3= t13,ep23,ep30,e = N+& &a13a23a30*up= :3= q) up= :3= t10,ep20,ep31,e = N= up= :3= t10,ep20,ep31,e = N+& &a10a20a31*up= :3= q) up= :3= t11,ep20,ep31,e = N= up= :3= t11,ep20,ep31,e = N+& &a11a20a31*up= :3= q) up= :3= t12,ep20,ep31,e = N= up= :3= t12,ep20,ep31,e = N+& &a12a20a31*up= :3= q) up= :3= t13,ep20,ep31,e = N= up= :3= t13,ep20,ep31,e = N+& &a13a20a31*up= :3= q) up= :3= t10,ep21,ep31,e = N= up= :3= t10,ep21,ep31,e = N+& &a10a21a31*up= :3= q) up= :3= t11,ep21,ep31,e = N= up= :3= t11,ep21,ep31,e = N+& &a11a21a31*up= :3= q) up= :3= t12,ep21,ep31,e = N= up= :3= t12,ep21,ep31,e = N+& &a12a21a31*up= :3= q) up= :3= t13,ep21,ep31,e = N= up= :3= t13,ep21,ep31,e = N+& &a13a21a31*up= :3= q) up= :3= t10,ep22,ep31,e = N= up= :3= t10,ep22,ep31,e = N+& &a10a22a31*up= :3= q) up= :3= t11,ep22,ep31,e = N= up= :3= t11,ep22,ep31,e = N+& &a11a22a31*up= :3= q) up= :3= t12,ep22,ep31,e = N= up= :3= t12,ep22,ep31,e = N+& &a12a22a31*up= :3= q) up= :3= t13,ep22,ep31,e = N= up= :3= t13,ep22,ep31,e = N+& &a13a22a31*up= :3= q) up= :3= t10,ep23,ep31,e = N= up= :3= t10,ep23,ep31,e = N+& &a10a23a31*up= :3= q) up= :3= t11,ep23,ep31,e = N= up= :3= t11,ep23,ep31,e = N+& &a11a23a31*up= :3= q) up= :3= t12,ep23,ep31,e = N= up= :3= t12,ep23,ep31,e = N+& &a12a23a31*up= :3= q) up= :3= t13,ep23,ep31,e = N= up= :3= t13,ep23,ep31,e = N+& &a13a23a3 *up= :3= q) up= :3= t10,ep20,ep32,e = N= up= :3= t10,ep20,ep32,e = N+& &a10a20a32*up= :3= q) up= :3= t11,ep20,ep32,e = N= up= :3= t11,ep20,ep32,e = N+& &a11a20a32*up= :3= q) up= :3= t12,ep20,ep32,e = N= up= :3= t12,ep20,ep32,e = N+& &a12a20a32*up= :3= q) up= :3= t13,ep20,ep32,e = N= up= :3= t13,ep20,ep32,e = N+& &a13a20a32*up= :3= q) up= :3= t10,ep21,ep32,e = N= up= :3= t10,ep21,ep32,e = N+& &a10a21a32*up= :3= q) up= :3= t11,ep21,ep32,e = N= up= :3= t11,ep21,ep32,e = N+& &a11a21a32*up= :3= q) up= :3= t12,ep21,ep32,e = N= up= :3= t12,ep21,ep32,e = N+& &a12a21a32*up= :3= q) up= :3= t13,ep21,ep32,e = N= up= :3= t13,ep21,ep32,e = N+& &a13a21a32*up= :3= q) up= :3= t10,ep22,ep32,e = N= up= :3= t10,ep22,ep32,e = N+& &a10a22a32*up= :3= q) up= :3= t11,ep22,ep32,e = N= up= :3= t11,ep22,ep32,e = N+& &a11a22a32*up= :3= q) up= :3= t12,ep22,ep32,e = N= up= :3= t12,ep22,ep32,e = N+& &a12a22a32*up= :3= q) up= :3= t13,ep22,ep32,e = N= up= :3= t13,ep22,ep32,e = N+& &a13a22a32*up= :3= q) up= :3= t10,ep23,ep32,e = N= up= :3= t10,ep23,ep32,e = N+& &a10a23a32*up= :3= q) up= :3= t11,ep23,ep32,e = N= up= :3= t11,ep23,ep32,e = N+& &a11a23a32*up= :3= q) up= :3= t12,ep23,ep32,e = N= up= :3= t12,ep23,ep32,e = N+& &a12a23a32*up= :3= q) up= :3= t13,ep23,ep32,e = N= up= :3= t13,ep23,ep32,e = N+& &a13a23a32*up= :3= q) up= :3= t10,ep20,ep33,e = N= up= :3= t10,ep20,ep33,e = N+& &a10a20a33*up= :3= q) up= :3= t11,ep20,ep33,e = N= up= :3= t11,ep20,ep33,e = N+& &a11a20a33*up= :3= q) up= :3= t12,ep20,ep33,e = N= up= :3= t12,ep20,ep33,e = N+& &a12a20a33*up= :3= q) up= :3= t13,ep20,ep33,e = N= up= :3= t13,ep20,ep33,e = N+& &a13a20a33*up= :3= q) up= :3= t10,ep21,ep33,e = N= up= :3= t10,ep21,ep33,e = N+& &a10a21a33*up= :3= q) up= :3= t11,ep21,ep33,e = N= up= :3= t11,ep21,ep33,e = N+& &a11a21a33*up= :3= q) up= :3= t12,ep21,ep33,e = N= up= :3= t12,ep21,ep33,e = N+& &a12a21a33*up= :3= q) up= :3= t13,ep21,ep33,e = N= up= :3= t13,ep21,ep33,e = N+& &a13a21a33*up= :3= q) up= :3= t10,ep22,ep33,e = N= up= :3= t10,ep22,ep33,e = N+& &a10a22a33*up= :3= q) up= :3= t11,ep22,ep33,e = N= up= :3= t11,ep22,ep33,e = N+& &a11a22a33*up= :3= q) up= :3= t12,ep22,ep33,e = N= up= :3= t12,ep22,ep33,e = N+& &a12a22a33*up= :3= q) up= :3= t13,ep22,ep33,e = N= up= :3= t13,ep22,ep33,e = N+& &a13a22a33*up= :3= q) up= :3= t10,ep23,ep33,e = N= up= :3= t10,ep23,ep33,e = N+& &a10a23a33*up= :3= q) up= :3= t11,ep23,ep33,e = N= up= :3= t11,ep23,ep33,e = N+& &a11a23a33*up= :3= q) up= :3= t12,ep23,ep33,e = N= up= :3= t12,ep23,ep33,e = N+& &a12a23a33*up= :3= q) up= :3= t13,ep23,ep33,e = N= up= :3= t13,ep23,ep33,e = N+& &a13a23a33*up= :3= q) #endif ylo = 1 END DO ylo = 1!------------------------------------------------------------------------ ylo = 1! Unrolled versions for 2-vectors ylo = 1!------------------------------------------------------------------------ ylo = 1 ELSEIF (lda .EQ. 2) THEN ylo = 1 DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N ylo = 1 eq = list_ = (e = ,epN ylo = 1 !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) ylo = 1 !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) ylo = 1 !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N ylo = 1 x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) ylo = 1 x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) ylo = 1 x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 ! t11 = INT(x0(1))+2-istart(1,e = l) ylo = 1 ! t21 = INT(x0(2))+2-istart(2,e = l) ylo = 1 ! t31 = INT(x0(3))+2-istart(3,e = l) ylo = 1 et10 = INT(x0(1)) ylo = 1 et20 = INT(x0(2)) ylo = 1 et30 = INT(x0(3)) ylo = 1 et11 = et10 + ylo = 1 t21 = et20 + ylo = 1 t31 = et30 + ylo = 1 et12 = et11 + ylo = 1 t22 = et21 + ylo = 1 t32 = et31 + ylo = 1 et13 = et11 + 2 ylo = 1 ep23 = et21 + 2 ylo = 1 ep33 = et31 + 2 ylo = 1 xp1 = x0(1)-REAL(ep10,mk) ylo = 1 xp2 = x0(2)-REAL(ep20,mk) ylo = 1 xp3 = x0(3)-REAL(ep30,mk) ylo = 1 x10 = xp1 + .0_mk ylo = 1 x11 = x10 - .0_mk ylo = 1 x12 = x10 - 2.0_mk ylo = 1 x13 = x10 - 3.0_mk ylo = 1 x20 = xp2 + .0_mk ylo = 1 x21 = x20 - .0_mk ylo = 1 x22 = x20 - 2.0_mk ylo = 1 x23 = x20 - 3.0_mk ylo = 1 x30 = xp3 + .0_mk ylo = 1 x31 = x30 - .0_mk ylo = 1 x32 = x30 - 2.0_mk ylo = 1 x33 = x30 - 3.0_mk ylo = 1 a10 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10 ylo = 1 a20 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20 ylo = 1 a30 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30 ylo = 1 a11 = 1.0_mk + (-2.5_mk+1.5_mk*x11)*x11**2 ylo = 1 a21 = 1.0_mk + (-2.5_mk+1.5_mk*x21)*x21**2 ylo = 1 a31 = 1.0_mk + (-2.5_mk+1.5_mk*x31)*x31**2 ylo = 1 a12 = 1.0_mk + (-2.5_mk-1.5_mk*x12)*x12**2 ylo = 1 a22 = 1.0_mk + (-2.5_mk-1.5_mk*x22)*x22**2 ylo = 1 a32 = 1.0_mk + (-2.5_mk-1.5_mk*x32)*x32**2 ylo = 1 a13 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x13)*x13)*x13 ylo = 1 a23 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x23)*x23)*x23 ylo = 1 a33 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x33)*x33)*x33 ylo = 1 PRINT*,'###################################################' ylo = 1 PRINT*,'RENORMALIZATION NOT IMPLEMENTED FOR LDA = 2' ylo = 1 PRINT*,'###################################################' ylo = 1 STOP ylo = 1 a10a20a30 = a10*a20*a30dm_reno 1 a10a20a31 = a10*a20*a3 ylo = 1 a10a20a32 = a10*a20*a32 ylo = 1 a10a20a33 = a10*a20*a33 ylo = 1 a10a21a30 = a10*a21*a30dm_reno 1 a10a21a31 = a10*a21*a3 ylo = 1 a10a21a32 = a10*a21*a32 ylo = 1 a10a21a33 = a10*a21*a33 ylo = 1 a10a22a30 = a10*a22*a30dm_reno 1 a10a22a31 = a10*a22*a3 ylo = 1 a10a22a32 = a10*a22*a32 ylo = 1 a10a22a33 = a10*a22*a33 ylo = 1 a10a23a30 = a10*a23*a30dm_reno 1 a10a23a31 = a10*a23*a3 ylo = 1 a10a23a32 = a10*a23*a32 ylo = 1 a10a23a33 = a10*a23*a33 ylo = 1 a11a20a30 = a11*a20*a30dm_reno 1 a11a20a31 = a11*a20*a3 ylo = 1 a11a20a32 = a11*a20*a32 ylo = 1 a11a20a33 = a11*a20*a33 ylo = 1 a11a21a30 = a11*a21*a30dm_reno 1 a11a21a31 = a11*a21*a3 ylo = 1 a11a21a32 = a11*a21*a32 ylo = 1 a11a21a33 = a11*a21*a33 ylo = 1 a11a22a30 = a11*a22*a30dm_reno 1 a11a22a31 = a11*a22*a3 ylo = 1 a11a22a32 = a11*a22*a32 ylo = 1 a11a22a33 = a11*a22*a33 ylo = 1 a11a23a30 = a11*a23*a30dm_reno 1 a11a23a31 = a11*a23*a3 ylo = 1 a11a23a32 = a11*a23*a32 ylo = 1 a11a23a33 = a11*a23*a33 ylo = 1 a12a20a30 = a12*a20*a30dm_reno 1 a12a20a31 = a12*a20*a3 ylo = 1 a12a20a32 = a12*a20*a32 ylo = 1 a12a20a33 = a12*a20*a33 ylo = 1 a12a21a30 = a12*a21*a30dm_reno 1 a12a21a31 = a12*a21*a3 ylo = 1 a12a21a32 = a12*a21*a32 ylo = 1 a12a21a33 = a12*a21*a33 ylo = 1 a12a22a30 = a12*a22*a30dm_reno 1 a12a22a31 = a12*a22*a3 ylo = 1 a12a22a32 = a12*a22*a32 ylo = 1 a12a22a33 = a12*a22*a33 ylo = 1 a12a23a30 = a12*a23*a30dm_reno 1 a12a23a31 = a12*a23*a3 ylo = 1 a12a23a32 = a12*a23*a32 ylo = 1 a12a23a33 = a12*a23*a33 ylo = 1 a13a20a30 = a13*a20*a30dm_reno 1 a13a20a31 = a13*a20*a3 ylo = 1 a13a20a32 = a13*a20*a32 ylo = 1 a13a20a33 = a13*a20*a33 ylo = 1 a13a21a30 = a13*a21*a30dm_reno 1 a13a21a31 = a13*a21*a3 ylo = 1 a13a21a32 = a13*a21*a32 ylo = 1 a13a21a33 = a13*a21*a33 ylo = 1 a13a22a30 = a13*a22*a30dm_reno 1 a13a22a31 = a13*a22*a3 ylo = 1 a13a22a32 = a13*a22*a32 ylo = 1 a13a22a33 = a13*a22*a33 ylo = 1 a13a23a30 = a13*a23*a30dm_reno 1 a13a23a31 = a13*a23*a3 ylo = 1 a13a23a32 = a13*a23*a32 ylo = 1 a13a23a33 = a13*a23*a33 #endendifNOMICROINSTRUCTIONS up= = t10,ep20,ep30,e = N= up= = t10,ep20,ep30,e = N+& &a10a20a30*up= = q) up=2= t10,ep20,ep30,e = N= up=2= t10,ep20,ep30,e = N+& &a10a20a30*up=2= q) up= = t11,ep20,ep30,e = N= up= = t11,ep20,ep30,e = N+& &a11a20a30*up= = q) up=2= t11,ep20,ep30,e = N= up=2= t11,ep20,ep30,e = N+& &a11a20a30*up=2= q) up= = t12,ep20,ep30,e = N= up= = t12,ep20,ep30,e = N+& &a12a20a30*up= = q) up=2= t12,ep20,ep30,e = N= up=2= t12,ep20,ep30,e = N+& &a12a20a30*up=2= q) up= = t13,ep20,ep30,e = N= up= = t13,ep20,ep30,e = N+& &a13a20a30*up= = q) up=2= t13,ep20,ep30,e = N= up=2= t13,ep20,ep30,e = N+& &a13a20a30*up=2= q) up= = t10,ep21,ep30,e = N= up= = t10,ep21,ep30,e = N+& &a10a21a30*up= = q) up=2= t10,ep21,ep30,e = N= up=2= t10,ep21,ep30,e = N+& &a10a21a30*up=2= q) up= = t11,ep21,ep30,e = N= up= = t11,ep21,ep30,e = N+& &a11a21a30*up= = q) up=2= t11,ep21,ep30,e = N= up=2= t11,ep21,ep30,e = N+& &a11a21a30*up=2= q) up= = t12,ep21,ep30,e = N= up= = t12,ep21,ep30,e = N+& &a12a21a30*up= = q) up=2= t12,ep21,ep30,e = N= up=2= t12,ep21,ep30,e = N+& &a12a21a30*up=2= q) up= = t13,ep21,ep30,e = N= up= = t13,ep21,ep30,e = N+& &a13a21a30*up= = q) up=2= t13,ep21,ep30,e = N= up=2= t13,ep21,ep30,e = N+& &a13a21a30*up=2= q) up= = t10,ep22,ep30,e = N= up= = t10,ep22,ep30,e = N+& &a10a22a30*up= = q) up=2= t10,ep22,ep30,e = N= up=2= t10,ep22,ep30,e = N+& &a10a22a30*up=2= q) up= = t11,ep22,ep30,e = N= up= = t11,ep22,ep30,e = N+& &a11a22a30*up= = q) up=2= t11,ep22,ep30,e = N= up=2= t11,ep22,ep30,e = N+& &a11a22a30*up=2= q) up= = t12,ep22,ep30,e = N= up= = t12,ep22,ep30,e = N+& &a12a22a30*up= = q) up=2= t12,ep22,ep30,e = N= up=2= t12,ep22,ep30,e = N+& &a12a22a30*up=2= q) up= = t13,ep22,ep30,e = N= up= = t13,ep22,ep30,e = N+& &a13a22a30*up= = q) up=2= t13,ep22,ep30,e = N= up=2= t13,ep22,ep30,e = N+& &a13a22a30*up=2= q) up= = t10,ep23,ep30,e = N= up= = t10,ep23,ep30,e = N+& &a10a23a30*up= = q) up=2= t10,ep23,ep30,e = N= up=2= t10,ep23,ep30,e = N+& &a10a23a30*up=2= q) up= = t11,ep23,ep30,e = N= up= = t11,ep23,ep30,e = N+& &a11a23a30*up= = q) up=2= t11,ep23,ep30,e = N= up=2= t11,ep23,ep30,e = N+& &a11a23a30*up=2= q) up= = t12,ep23,ep30,e = N= up= = t12,ep23,ep30,e = N+& &a12a23a30*up= = q) up=2= t12,ep23,ep30,e = N= up=2= t12,ep23,ep30,e = N+& &a12a23a30*up=2= q) up= = t13,ep23,ep30,e = N= up= = t13,ep23,ep30,e = N+& &a13a23a30*up= = q) up=2= t13,ep23,ep30,e = N= up=2= t13,ep23,ep30,e = N+& &a13a23a30*up=2= q) up= = t10,ep20,ep31,e = N= up= = t10,ep20,ep31,e = N+& &a10a20a31*up= = q) up=2= t10,ep20,ep31,e = N= up=2= t10,ep20,ep31,e = N+& &a10a20a31*up=2= q) up= = t11,ep20,ep31,e = N= up= = t11,ep20,ep31,e = N+& &a11a20a31*up= = q) up=2= t11,ep20,ep31,e = N= up=2= t11,ep20,ep31,e = N+& &a11a20a31*up=2= q) up= = t12,ep20,ep31,e = N= up= = t12,ep20,ep31,e = N+& &a12a20a31*up= = q) up=2= t12,ep20,ep31,e = N= up=2= t12,ep20,ep31,e = N+& &a12a20a31*up=2= q) up= = t13,ep20,ep31,e = N= up= = t13,ep20,ep31,e = N+& &a13a20a31*up= = q) up=2= t13,ep20,ep31,e = N= up=2= t13,ep20,ep31,e = N+& &a13a20a31*up=2= q) up= = t10,ep21,ep31,e = N= up= = t10,ep21,ep31,e = N+& &a10a21a3 *up= = q) up=2= t10,ep21,ep31,e = N= up=2= t10,ep21,ep31,e = N+& &a10a21a3 *up=2= q) up= = t11,ep21,ep31,e = N= up= = t11,ep21,ep31,e = N+& &a11a21a3 *up= = q) up=2= t11,ep21,ep31,e = N= up=2= t11,ep21,ep31,e = N+& &a11a21a3 *up=2= q) up= = t12,ep21,ep31,e = N= up= = t12,ep21,ep31,e = N+& &a12a21a3 *up= = q) up=2= t12,ep21,ep31,e = N= up=2= t12,ep21,ep31,e = N+& &a12a21a3 *up=2= q) up= = t13,ep21,ep31,e = N= up= = t13,ep21,ep31,e = N+& &a13a21a3 *up= = q) up=2= t13,ep21,ep31,e = N= up=2= t13,ep21,ep31,e = N+& &a13a21a3 *up=2= q) up= = t10,ep22,ep31,e = N= up= = t10,ep22,ep31,e = N+& &a10a22a3 *up= = q) up=2= t10,ep22,ep31,e = N= up=2= t10,ep22,ep31,e = N+& &a10a22a3 *up=2= q) up= = t11,ep22,ep31,e = N= up= = t11,ep22,ep31,e = N+& &a11a22a3 *up= = q) up=2= t11,ep22,ep31,e = N= up=2= t11,ep22,ep31,e = N+& &a11a22a3 *up=2= q) up= = t12,ep22,ep31,e = N= up= = t12,ep22,ep31,e = N+& &a12a22a3 *up= = q) up=2= t12,ep22,ep31,e = N= up=2= t12,ep22,ep31,e = N+& &a12a22a3 *up=2= q) up= = t13,ep22,ep31,e = N= up= = t13,ep22,ep31,e = N+& &a13a22a3 *up= = q) up=2= t13,ep22,ep31,e = N= up=2= t13,ep22,ep31,e = N+& &a13a22a3 *up=2= q) up= = t10,ep23,ep31,e = N= up= = t10,ep23,ep31,e = N+& &a10a23a3 *up= = q) up=2= t10,ep23,ep31,e = N= up=2= t10,ep23,ep31,e = N+& &a10a23a3 *up=2= q) up= = t11,ep23,ep31,e = N= up= = t11,ep23,ep31,e = N+& &a11a23a31*up= = q) up=2= t11,ep23,ep31,e = N= up=2= t11,ep23,ep31,e = N+& &a11a23a31*up=2= q) up= = t12,ep23,ep31,e = N= up= = t12,ep23,ep31,e = N+& &a12a23a3 *up= = q) up=2= t12,ep23,ep31,e = N= up=2= t12,ep23,ep31,e = N+& &a12a23a3 *up=2= q) up= = t13,ep23,ep31,e = N= up= = t13,ep23,ep31,e = N+& &a13a23a3 *up= = q) up=2= t13,ep23,ep31,e = N= up=2= t13,ep23,ep31,e = N+& &a13a23a3 *up=2= q) up= = t10,ep20,ep32,e = N= up= = t10,ep20,ep32,e = N+& &a10a20a32*up= = q) up=2= t10,ep20,ep32,e = N= up=2= t10,ep20,ep32,e = N+& &a10a20a32*up=2= q) up= = t11,ep20,ep32,e = N= up= = t11,ep20,ep32,e = N+& &a11a20a32*up= = q) up=2= t11,ep20,ep32,e = N= up=2= t11,ep20,ep32,e = N+& &a11a20a32*up=2= q) up= = t12,ep20,ep32,e = N= up= = t12,ep20,ep32,e = N+& &a12a20a32*up= = q) up=2= t12,ep20,ep32,e = N= up=2= t12,ep20,ep32,e = N+& &a12a20a32*up=2= q) up= = t13,ep20,ep32,e = N= up= = t13,ep20,ep32,e = N+& &a13a20a32*up= = q) up=2= t13,ep20,ep32,e = N= up=2= t13,ep20,ep32,e = N+& &a13a20a32*up=2= q) up= = t10,ep21,ep32,e = N= up= = t10,ep21,ep32,e = N+& &a10a21a32*up= = q) up=2= t10,ep21,ep32,e = N= up=2= t10,ep21,ep32,e = N+& &a10a21a32*up=2= q) up= = t11,ep21,ep32,e = N= up= = t11,ep21,ep32,e = N+& &a11a21a32*up= = q) up=2= t11,ep21,ep32,e = N= up=2= t11,ep21,ep32,e = N+& &a11a21a32*up=2= q) up= = t12,ep21,ep32,e = N= up= = t12,ep21,ep32,e = N+& &a12a21a32*up= = q) up=2= t12,ep21,ep32,e = N= up=2= t12,ep21,ep32,e = N+& &a12a21a32*up=2= q) up= = t13,ep21,ep32,e = N= up= = t13,ep21,ep32,e = N+& &a13a21a32*up= = q) up=2= t13,ep21,ep32,e = N= up=2= t13,ep21,ep32,e = N+& &a13a21a32*up=2= q) up= = t10,ep22,ep32,e = N= up= = t10,ep22,ep32,e = N+& &a10a22a32*up= = q) up=2= t10,ep22,ep32,e = N= up=2= t10,ep22,ep32,e = N+& &a10a22a32*up=2= q) up= = t11,ep22,ep32,e = N= up= = t11,ep22,ep32,e = N+& &a11a22a32*up= = q) up=2= t11,ep22,ep32,e = N= up=2= t11,ep22,ep32,e = N+& &a11a22a32*up=2= q) up= = t12,ep22,ep32,e = N= up= = t12,ep22,ep32,e = N+& &a12a22a32*up= = q) up=2= t12,ep22,ep32,e = N= up=2= t12,ep22,ep32,e = N+& &a12a22a32*up=2= q) up= = t13,ep22,ep32,e = N= up= = t13,ep22,ep32,e = N+& &a13a22a32*up= = q) up=2= t13,ep22,ep32,e = N= up=2= t13,ep22,ep32,e = N+& &a13a22a32*up=2= q) up= = t10,ep23,ep32,e = N= up= = t10,ep23,ep32,e = N+& &a10a23a32*up= = q) up=2= t10,ep23,ep32,e = N= up=2= t10,ep23,ep32,e = N+& &a10a23a32*up=2= q) up= = t11,ep23,ep32,e = N= up= = t11,ep23,ep32,e = N+& &a11a23a32*up= = q) up=2= t11,ep23,ep32,e = N= up=2= t11,ep23,ep32,e = N+& &a11a23a32*up=2= q) up= = t12,ep23,ep32,e = N= up= = t12,ep23,ep32,e = N+& &a12a23a32*up= = q) up=2= t12,ep23,ep32,e = N= up=2= t12,ep23,ep32,e = N+& &a12a23a32*up=2= q) up= = t13,ep23,ep32,e = N= up= = t13,ep23,ep32,e = N+& &a13a23a32*up= = q) up=2= t13,ep23,ep32,e = N= up=2= t13,ep23,ep32,e = N+& &a13a23a32*up=2= q) up= = t10,ep20,ep33,e = N= up= = t10,ep20,ep33,e = N+& &a10a20a33*up= = q) up=2= t10,ep20,ep33,e = N= up=2= t10,ep20,ep33,e = N+& &a10a20a33*up=2= q) up= = t11,ep20,ep33,e = N= up= = t11,ep20,ep33,e = N+& &a11a20a33*up= = q) up=2= t11,ep20,ep33,e = N= up=2= t11,ep20,ep33,e = N+& &a11a20a33*up=2= q) up= = t12,ep20,ep33,e = N= up= = t12,ep20,ep33,e = N+& &a12a20a33*up= = q) up=2= t12,ep20,ep33,e = N= up=2= t12,ep20,ep33,e = N+& &a12a20a33*up=2= q) up= = t13,ep20,ep33,e = N= up= = t13,ep20,ep33,e = N+& &a13a20a33*up= = q) up=2= t13,ep20,ep33,e = N= up=2= t13,ep20,ep33,e = N+& &a13a20a33*up=2= q) up= = t10,ep21,ep33,e = N= up= = t10,ep21,ep33,e = N+& &a10a21a33*up= = q) up=2= t10,ep21,ep33,e = N= up=2= t10,ep21,ep33,e = N+& &a10a21a33*up=2= q) up= = t11,ep21,ep33,e = N= up= = t11,ep21,ep33,e = N+& &a11a21a33*up= = q) up=2= t11,ep21,ep33,e = N= up=2= t11,ep21,ep33,e = N+& &a11a21a33*up=2= q) up= = t12,ep21,ep33,e = N= up= = t12,ep21,ep33,e = N+& &a12a21a33*up= = q) up=2= t12,ep21,ep33,e = N= up=2= t12,ep21,ep33,e = N+& &a12a21a33*up=2= q) up= = t13,ep21,ep33,e = N= up= = t13,ep21,ep33,e = N+& &a13a21a33*up= = q) up=2= t13,ep21,ep33,e = N= up=2= t13,ep21,ep33,e = N+& &a13a21a33*up=2= q) up= = t10,ep22,ep33,e = N= up= = t10,ep22,ep33,e = N+& &a10a22a33*up= = q) up=2= t10,ep22,ep33,e = N= up=2= t10,ep22,ep33,e = N+& &a10a22a33*up=2= q) up= = t11,ep22,ep33,e = N= up= = t11,ep22,ep33,e = N+& &a11a22a33*up= = q) up=2= t11,ep22,ep33,e = N= up=2= t11,ep22,ep33,e = N+& &a11a22a33*up=2= q) up= = t12,ep22,ep33,e = N= up= = t12,ep22,ep33,e = N+& &a12a22a33*up= = q) up=2= t12,ep22,ep33,e = N= up=2= t12,ep22,ep33,e = N+& &a12a22a33*up=2= q) up= = t13,ep22,ep33,e = N= up= = t13,ep22,ep33,e = N+& &a13a22a33*up= = q) up=2= t13,ep22,ep33,e = N= up=2= t13,ep22,ep33,e = N+& &a13a22a33*up=2= q) up= = t10,ep23,ep33,e = N= up= = t10,ep23,ep33,e = N+& &a10a23a33*up= = q) up=2= t10,ep23,ep33,e = N= up=2= t10,ep23,ep33,e = N+& &a10a23a33*up=2= q) up= = t11,ep23,ep33,e = N= up= = t11,ep23,ep33,e = N+& &a11a23a33*up= = q) up=2= t11,ep23,ep33,e = N= up=2= t11,ep23,ep33,e = N+& &a11a23a33*up=2= q) up= = t12,ep23,ep33,e = N= up= = t12,ep23,ep33,e = N+& &a12a23a33*up= = q) up=2= t12,ep23,ep33,e = N= up=2= t12,ep23,ep33,e = N+& &a12a23a33*up=2= q) up= = t13,ep23,ep33,e = N= up= = t13,ep23,ep33,e = N+& &a13a23a33*up= = q) up=2= t13,ep23,ep33,e = N= up=2= t13,ep23,ep33,e = N+& &a13a23a33*up=2= q) lse up= :2= t10,ep20,ep30,e = N= up= :2= t10,ep20,ep30,e = N+& &a10a20a30*up= :2= q) up= :2= t11,ep20,ep30,e = N= up= :2= t11,ep20,ep30,e = N+& &a11a20a30*up= :2= q) up= :2= t12,ep20,ep30,e = N= up= :2= t12,ep20,ep30,e = N+& &a12a20a30*up= :2= q) up= :2= t13,ep20,ep30,e = N= up= :2= t13,ep20,ep30,e = N+& &a13a20a30*up= :2= q) up= :2= t10,ep21,ep30,e = N= up= :2= t10,ep21,ep30,e = N+& &a10a21a30*up= :2= q) up= :2= t11,ep21,ep30,e = N= up= :2= t11,ep21,ep30,e = N+& &a11a21a30*up= :2= q) up= :2= t12,ep21,ep30,e = N= up= :2= t12,ep21,ep30,e = N+& &a12a21a30*up= :2= q) up= :2= t13,ep21,ep30,e = N= up= :2= t13,ep21,ep30,e = N+& &a13a21a30*up= :2= q) up= :2= t10,ep22,ep30,e = N= up= :2= t10,ep22,ep30,e = N+& &a10a22a30*up= :2= q) up= :2= t11,ep22,ep30,e = N= up= :2= t11,ep22,ep30,e = N+& &a11a22a30*up= :2= q) up= :2= t12,ep22,ep30,e = N= up= :2= t12,ep22,ep30,e = N+& &a12a22a30*up= :2= q) up= :2= t13,ep22,ep30,e = N= up= :2= t13,ep22,ep30,e = N+& &a13a22a30*up= :2= q) up= :2= t10,ep23,ep30,e = N= up= :2= t10,ep23,ep30,e = N+& &a10a23a30*up= :2= q) up= :2= t11,ep23,ep30,e = N= up= :2= t11,ep23,ep30,e = N+& &a11a23a30*up= :2= q) up= :2= t12,ep23,ep30,e = N= up= :2= t12,ep23,ep30,e = N+& &a12a23a30*up= :2= q) up= :2= t13,ep23,ep30,e = N= up= :2= t13,ep23,ep30,e = N+& &a13a23a30*up= :2= q) up= :2= t10,ep20,ep31,e = N= up= :2= t10,ep20,ep31,e = N+& &a10a20a31*up= :2= q) up= :2= t11,ep20,ep31,e = N= up= :2= t11,ep20,ep31,e = N+& &a11a20a31*up= :2= q) up= :2= t12,ep20,ep31,e = N= up= :2= t12,ep20,ep31,e = N+& &a12a20a31*up= :2= q) up= :2= t13,ep20,ep31,e = N= up= :2= t13,ep20,ep31,e = N+& &a13a20a31*up= :2= q) up= :2= t10,ep21,ep31,e = N= up= :2= t10,ep21,ep31,e = N+& &a10a21a31*up= :2= q) up= :2= t11,ep21,ep31,e = N= up= :2= t11,ep21,ep31,e = N+& &a11a21a3 *up= :2= q) up= :2= t12,ep21,ep31,e = N= up= :2= t12,ep21,ep31,e = N+& &a12a21a3 *up= :2= q) up= :2= t13,ep21,ep31,e = N= up= :2= t13,ep21,ep31,e = N+& &a13a21a3 *up= :2= q) up= :2= t10,ep22,ep31,e = N= up= :2= t10,ep22,ep31,e = N+& &a10a22a31*up= :2= q) up= :2= t11,ep22,ep31,e = N= up= :2= t11,ep22,ep31,e = N+& &a11a22a3 *up= :2= q) up= :2= t12,ep22,ep31,e = N= up= :2= t12,ep22,ep31,e = N+& &a12a22a3 *up= :2= q) up= :2= t13,ep22,ep31,e = N= up= :2= t13,ep22,ep31,e = N+& &a13a22a3 *up= :2= q) up= :2= t10,ep23,ep31,e = N= up= :2= t10,ep23,ep31,e = N+& &a10a23a31*up= :2= q) up= :2= t11,ep23,ep31,e = N= up= :2= t11,ep23,ep31,e = N+& &a11a23a31*up= :2= q) up= :2= t12,ep23,ep31,e = N= up= :2= t12,ep23,ep31,e = N+& &a12a23a31*up= :2= q) up= :2= t13,ep23,ep31,e = N= up= :2= t13,ep23,ep31,e = N+& &a13a23a3 *up= :2= q) up= :2= t10,ep20,ep32,e = N= up= :2= t10,ep20,ep32,e = N+& &a10a20a32*up= :2= q) up= :2= t11,ep20,ep32,e = N= up= :2= t11,ep20,ep32,e = N+& &a11a20a32*up= :2= q) up= :2= t12,ep20,ep32,e = N= up= :2= t12,ep20,ep32,e = N+& &a12a20a32*up= :2= q) up= :2= t13,ep20,ep32,e = N= up= :2= t13,ep20,ep32,e = N+& &a13a20a32*up= :2= q) up= :2= t10,ep21,ep32,e = N= up= :2= t10,ep21,ep32,e = N+& &a10a21a32*up= :2= q) up= :2= t11,ep21,ep32,e = N= up= :2= t11,ep21,ep32,e = N+& &a11a21a32*up= :2= q) up= :2= t12,ep21,ep32,e = N= up= :2= t12,ep21,ep32,e = N+& &a12a21a32*up= :2= q) up= :2= t13,ep21,ep32,e = N= up= :2= t13,ep21,ep32,e = N+& &a13a21a32*up= :2= q) up= :2= t10,ep22,ep32,e = N= up= :2= t10,ep22,ep32,e = N+& &a10a22a32*up= :2= q) up= :2= t11,ep22,ep32,e = N= up= :2= t11,ep22,ep32,e = N+& &a11a22a32*up= :2= q) up= :2= t12,ep22,ep32,e = N= up= :2= t12,ep22,ep32,e = N+& &a12a22a32*up= :2= q) up= :2= t13,ep22,ep32,e = N= up= :2= t13,ep22,ep32,e = N+& &a13a22a32*up= :2= q) up= :2= t10,ep23,ep32,e = N= up= :2= t10,ep23,ep32,e = N+& &a10a23a32*up= :2= q) up= :2= t11,ep23,ep32,e = N= up= :2= t11,ep23,ep32,e = N+& &a11a23a32*up= :2= q) up= :2= t12,ep23,ep32,e = N= up= :2= t12,ep23,ep32,e = N+& &a12a23a32*up= :2= q) up= :2= t13,ep23,ep32,e = N= up= :2= t13,ep23,ep32,e = N+& &a13a23a32*up= :2= q) up= :2= t10,ep20,ep33,e = N= up= :2= t10,ep20,ep33,e = N+& &a10a20a33*up= :2= q) up= :2= t11,ep20,ep33,e = N= up= :2= t11,ep20,ep33,e = N+& &a11a20a33*up= :2= q) up= :2= t12,ep20,ep33,e = N= up= :2= t12,ep20,ep33,e = N+& &a12a20a33*up= :2= q) up= :2= t13,ep20,ep33,e = N= up= :2= t13,ep20,ep33,e = N+& &a13a20a33*up= :2= q) up= :2= t10,ep21,ep33,e = N= up= :2= t10,ep21,ep33,e = N+& &a10a21a33*up= :2= q) up= :2= t11,ep21,ep33,e = N= up= :2= t11,ep21,ep33,e = N+& &a11a21a33*up= :2= q) up= :2= t12,ep21,ep33,e = N= up= :2= t12,ep21,ep33,e = N+& &a12a21a33*up= :2= q) up= :2= t13,ep21,ep33,e = N= up= :2= t13,ep21,ep33,e = N+& &a13a21a33*up= :2= q) up= :2= t10,ep22,ep33,e = N= up= :2= t10,ep22,ep33,e = N+& &a10a22a33*up= :2= q) up= :2= t11,ep22,ep33,e = N= up= :2= t11,ep22,ep33,e = N+& &a11a22a33*up= :2= q) up= :2= t12,ep22,ep33,e = N= up= :2= t12,ep22,ep33,e = N+& &a12a22a33*up= :2= q) up= :2= t13,ep22,ep33,e = N= up= :2= t13,ep22,ep33,e = N+& &a13a22a33*up= :2= q) up= :2= t10,ep23,ep33,e = N= up= :2= t10,ep23,ep33,e = N+& &a10a23a33*up= :2= q) up= :2= t11,ep23,ep33,e = N= up= :2= t11,ep23,ep33,e = N+& &a11a23a33*up= :2= q) up= :2= t12,ep23,ep33,e = N= up= :2= t12,ep23,ep33,e = N+& &a12a23a33*up= :2= q) up= :2= t13,ep23,ep33,e = N= up= :2= t13,ep23,ep33,e = N+& &a13a23a33*up= :2= q) #endif ylo = 1 ENDDO ylo = 1!------------------------------------------------------------------------ ylo = 1! Unrolled versions for 1-vectors ylo = 1!------------------------------------------------------------------------ ylo = 1ELSEIF (lda .EQ. 1) THEN ylo = 1 DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N ylo = 1 eq = list_ = (e = ,epN ylo = 1 !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) ylo = 1 !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) ylo = 1 !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N ylo = 1 x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) ylo = 1 x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) ylo = 1 x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 ! t11 = INT(x0(1))+2-istart(1,e = l) ylo = 1 ! t21 = INT(x0(2))+2-istart(2,e = l) ylo = 1 ! t31 = INT(x0(3))+2-istart(3,e = l) ylo = 1 et10 = INT(x0(1)) ylo = 1 et20 = INT(x0(2)) ylo = 1 et30 = INT(x0(3)) ylo = 1 et11 = et10 + ylo = 1 t21 = et20 + ylo = 1 t31 = et30 + ylo = 1 et12 = et11 + ylo = 1 t22 = et21 + ylo = 1 t32 = et31 + ylo = 1 et13 = et11 + 2 ylo = 1 ep23 = et21 + 2 ylo = 1 ep33 = et31 + 2 ylo = 1 xp1 = x0(1)-REAL(ep10,mk) ylo = 1 xp2 = x0(2)-REAL(ep20,mk) ylo = 1 xp3 = x0(3)-REAL(ep30,mk) ylo = 1 x10 = xp1 + .0_mk ylo = 1 x11 = x10 - .0_mk ylo = 1 x12 = x10 - 2.0_mk ylo = 1 x13 = x10 - 3.0_mk ylo = 1 x20 = xp2 + .0_mk ylo = 1 x21 = x20 - .0_mk ylo = 1 x22 = x20 - 2.0_mk ylo = 1 x23 = x20 - 3.0_mk ylo = 1 x30 = xp3 + .0_mk ylo = 1 x31 = x30 - .0_mk ylo = 1 x32 = x30 - 2.0_mk ylo = 1 x33 = x30 - 3.0_mk ylo = 1 a10 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10 ylo = 1 a20 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20 ylo = 1 a30 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30 ylo = 1 a11 = 1.0_mk + (-2.5_mk+1.5_mk*x11)*x11**2 ylo = 1 a21 = 1.0_mk + (-2.5_mk+1.5_mk*x21)*x21**2 ylo = 1 a31 = 1.0_mk + (-2.5_mk+1.5_mk*x31)*x31**2 ylo = 1 a12 = 1.0_mk + (-2.5_mk-1.5_mk*x12)*x12**2 ylo = 1 a22 = 1.0_mk + (-2.5_mk-1.5_mk*x22)*x22**2 ylo = 1 a32 = 1.0_mk + (-2.5_mk-1.5_mk*x32)*x32**2 ylo = 1 a13 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x13)*x13)*x13 ylo = 1 a23 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x23)*x23)*x23 ylo = 1 a33 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x33)*x33)*x33 ylo = 1 PRINT*,'###################################################' ylo = 1 PRINT*,'RENORMALIZATION NOT IMPLEMENTED FOR LDA = 1' ylo = 1 PRINT*,'###################################################' ylo = 1 STOP ylo = 1 a10a20a30 = a10*a20*a30dm_reno 1 a10a20a31 = a10*a20*a3 ylo = 1 a10a20a32 = a10*a20*a32 ylo = 1 a10a20a33 = a10*a20*a33 ylo = 1 a10a21a30 = a10*a21*a30dm_reno 1 a10a21a31 = a10*a21*a3 ylo = 1 a10a21a32 = a10*a21*a32 ylo = 1 a10a21a33 = a10*a21*a33 ylo = 1 a10a22a30 = a10*a22*a30dm_reno 1 a10a22a31 = a10*a22*a3 ylo = 1 a10a22a32 = a10*a22*a32 ylo = 1 a10a22a33 = a10*a22*a33 ylo = 1 a10a23a30 = a10*a23*a30dm_reno 1 a10a23a31 = a10*a23*a3 ylo = 1 a10a23a32 = a10*a23*a32 ylo = 1 a10a23a33 = a10*a23*a33 ylo = 1 a11a20a30 = a11*a20*a30dm_reno 1 a11a20a31 = a11*a20*a3 ylo = 1 a11a20a32 = a11*a20*a32 ylo = 1 a11a20a33 = a11*a20*a33 ylo = 1 a11a21a30 = a11*a21*a30dm_reno 1 a11a21a31 = a11*a21*a3 ylo = 1 a11a21a32 = a11*a21*a32 ylo = 1 a11a21a33 = a11*a21*a33 ylo = 1 a11a22a30 = a11*a22*a30dm_reno 1 a11a22a31 = a11*a22*a3 ylo = 1 a11a22a32 = a11*a22*a32 ylo = 1 a11a22a33 = a11*a22*a33 ylo = 1 a11a23a30 = a11*a23*a30dm_reno 1 a11a23a31 = a11*a23*a3 ylo = 1 a11a23a32 = a11*a23*a32 ylo = 1 a11a23a33 = a11*a23*a33 ylo = 1 a12a20a30 = a12*a20*a30dm_reno 1 a12a20a31 = a12*a20*a3 ylo = 1 a12a20a32 = a12*a20*a32 ylo = 1 a12a20a33 = a12*a20*a33 ylo = 1 a12a21a30 = a12*a21*a30dm_reno 1 a12a21a31 = a12*a21*a3 ylo = 1 a12a21a32 = a12*a21*a32 ylo = 1 a12a21a33 = a12*a21*a33 ylo = 1 a12a22a30 = a12*a22*a30dm_reno 1 a12a22a31 = a12*a22*a3 ylo = 1 a12a22a32 = a12*a22*a32 ylo = 1 a12a22a33 = a12*a22*a33 ylo = 1 a12a23a30 = a12*a23*a30dm_reno 1 a12a23a31 = a12*a23*a3 ylo = 1 a12a23a32 = a12*a23*a32 ylo = 1 a12a23a33 = a12*a23*a33 ylo = 1 a13a20a30 = a13*a20*a30dm_reno 1 a13a20a31 = a13*a20*a3 ylo = 1 a13a20a32 = a13*a20*a32 ylo = 1 a13a20a33 = a13*a20*a33 ylo = 1 a13a21a30 = a13*a21*a30dm_reno 1 a13a21a31 = a13*a21*a3 ylo = 1 a13a21a32 = a13*a21*a32 ylo = 1 a13a21a33 = a13*a21*a33 ylo = 1 a13a22a30 = a13*a22*a30dm_reno 1 a13a22a31 = a13*a22*a3 ylo = 1 a13a22a32 = a13*a22*a32 ylo = 1 a13a22a33 = a13*a22*a33 ylo = 1 a13a23a30 = a13*a23*a30dm_reno 1 a13a23a31 = a13*a23*a3 ylo = 1 a13a23a32 = a13*a23*a32 ylo = 1 a13a23a33 = a13*a23*a33 up= = t10,ep20,ep30,e = N= up= = t10,ep20,ep30,e = N+& &a10a20a30*up= = q) up= = t11,ep20,ep30,e = N= up= = t11,ep20,ep30,e = N+& &a11a20a30*up= = q) up= = t12,ep20,ep30,e = N= up= = t12,ep20,ep30,e = N+& &a12a20a30*up= = q) up= = t13,ep20,ep30,e = N= up= = t13,ep20,ep30,e = N+& &a13a20a30*up= = q) up= = t10,ep21,ep30,e = N= up= = t10,ep21,ep30,e = N+& &a10a21a30*up= = q) up= = t11,ep21,ep30,e = N= up= = t11,ep21,ep30,e = N+& &a11a21a30*up= = q) up= = t12,ep21,ep30,e = N= up= = t12,ep21,ep30,e = N+& &a12a21a30*up= = q) up= = t13,ep21,ep30,e = N= up= = t13,ep21,ep30,e = N+& &a13a21a30*up= = q) up= = t10,ep22,ep30,e = N= up= = t10,ep22,ep30,e = N+& &a10a22a30*up= = q) up= = t11,ep22,ep30,e = N= up= = t11,ep22,ep30,e = N+& &a11a22a30*up= = q) up= = t12,ep22,ep30,e = N= up= = t12,ep22,ep30,e = N+& &a12a22a30*up= = q) up= = t13,ep22,ep30,e = N= up= = t13,ep22,ep30,e = N+& &a13a22a30*up= = q) up= = t10,ep23,ep30,e = N= up= = t10,ep23,ep30,e = N+& &a10a23a30*up= = q) up= = t11,ep23,ep30,e = N= up= = t11,ep23,ep30,e = N+& &a11a23a30*up= = q) up= = t12,ep23,ep30,e = N= up= = t12,ep23,ep30,e = N+& &a12a23a30*up= = q) up= = t13,ep23,ep30,e = N= up= = t13,ep23,ep30,e = N+& &a13a23a30*up= = q) up= = t10,ep20,ep31,e = N= up= = t10,ep20,ep31,e = N+& &a10a20a31*up= = q) up= = t11,ep20,ep31,e = N= up= = t11,ep20,ep31,e = N+& &a11a20a31*up= = q) up= = t12,ep20,ep31,e = N= up= = t12,ep20,ep31,e = N+& &a12a20a31*up= = q) up= = t13,ep20,ep31,e = N= up= = t13,ep20,ep31,e = N+& &a13a20a31*up= = q) up= = t10,ep21,ep31,e = N= up= = t10,ep21,ep31,e = N+& &a10a21a3 *up= = q) up= = t11,ep21,ep31,e = N= up= = t11,ep21,ep31,e = N+& &a11a21a3 *up= = q) up= = t12,ep21,ep31,e = N= up= = t12,ep21,ep31,e = N+& &a12a21a3 *up= = q) up= = t13,ep21,ep31,e = N= up= = t13,ep21,ep31,e = N+& &a13a21a3 *up= = q) up= = t10,ep22,ep31,e = N= up= = t10,ep22,ep31,e = N+& &a10a22a3 *up= = q) up= = t11,ep22,ep31,e = N= up= = t11,ep22,ep31,e = N+& &a11a22a3 *up= = q) up= = t12,ep22,ep31,e = N= up= = t12,ep22,ep31,e = N+& &a12a22a3 *up= = q) up= = t13,ep22,ep31,e = N= up= = t13,ep22,ep31,e = N+& &a13a22a3 *up= = q) up= = t10,ep23,ep31,e = N= up= = t10,ep23,ep31,e = N+& &a10a23a31*up= = q) up= = t11,ep23,ep31,e = N= up= = t11,ep23,ep31,e = N+& &a11a23a31*up= = q) up= = t12,ep23,ep31,e = N= up= = t12,ep23,ep31,e = N+& &a12a23a31*up= = q) up= = t13,ep23,ep31,e = N= up= = t13,ep23,ep31,e = N+& &a13a23a3 *up= = q) up= = t10,ep20,ep32,e = N= up= = t10,ep20,ep32,e = N+& &a10a20a32*up= = q) up= = t11,ep20,ep32,e = N= up= = t11,ep20,ep32,e = N+& &a11a20a32*up= = q) up= = t12,ep20,ep32,e = N= up= = t12,ep20,ep32,e = N+& &a12a20a32*up= = q) up= = t13,ep20,ep32,e = N= up= = t13,ep20,ep32,e = N+& &a13a20a32*up= = q) up= = t10,ep21,ep32,e = N= up= = t10,ep21,ep32,e = N+& &a10a21a32*up= = q) up= = t11,ep21,ep32,e = N= up= = t11,ep21,ep32,e = N+& &a11a21a32*up= = q) up= = t12,ep21,ep32,e = N= up= = t12,ep21,ep32,e = N+& &a12a21a32*up= = q) up= = t13,ep21,ep32,e = N= up= = t13,ep21,ep32,e = N+& &a13a21a32*up= = q) up= = t10,ep22,ep32,e = N= up= = t10,ep22,ep32,e = N+& &a10a22a32*up= = q) up= = t11,ep22,ep32,e = N= up= = t11,ep22,ep32,e = N+& &a11a22a32*up= = q) up= = t12,ep22,ep32,e = N= up= = t12,ep22,ep32,e = N+& &a12a22a32*up= = q) up= = t13,ep22,ep32,e = N= up= = t13,ep22,ep32,e = N+& &a13a22a32*up= = q) up= = t10,ep23,ep32,e = N= up= = t10,ep23,ep32,e = N+& &a10a23a32*up= = q) up= = t11,ep23,ep32,e = N= up= = t11,ep23,ep32,e = N+& &a11a23a32*up= = q) up= = t12,ep23,ep32,e = N= up= = t12,ep23,ep32,e = N+& &a12a23a32*up= = q) up= = t13,ep23,ep32,e = N= up= = t13,ep23,ep32,e = N+& &a13a23a32*up= = q) up= = t10,ep20,ep33,e = N= up= = t10,ep20,ep33,e = N+& &a10a20a33*up= = q) up= = t11,ep20,ep33,e = N= up= = t11,ep20,ep33,e = N+& &a11a20a33*up= = q) up= = t12,ep20,ep33,e = N= up= = t12,ep20,ep33,e = N+& &a12a20a33*up= = q) up= = t13,ep20,ep33,e = N= up= = t13,ep20,ep33,e = N+& &a13a20a33*up= = q) up= = t10,ep21,ep33,e = N= up= = t10,ep21,ep33,e = N+& &a10a21a33*up= = q) up= = t11,ep21,ep33,e = N= up= = t11,ep21,ep33,e = N+& &a11a21a33*up= = q) up= = t12,ep21,ep33,e = N= up= = t12,ep21,ep33,e = N+& &a12a21a33*up= = q) up= = t13,ep21,ep33,e = N= up= = t13,ep21,ep33,e = N+& &a13a21a33*up= = q) up= = t10,ep22,ep33,e = N= up= = t10,ep22,ep33,e = N+& &a10a22a33*up= = q) up= = t11,ep22,ep33,e = N= up= = t11,ep22,ep33,e = N+& &a11a22a33*up= = q) up= = t12,ep22,ep33,e = N= up= = t12,ep22,ep33,e = N+& &a12a22a33*up= = q) up= = t13,ep22,ep33,e = N= up= = t13,ep22,ep33,e = N+& &a13a22a33*up= = q) up= = t10,ep23,ep33,e = N= up= = t10,ep23,ep33,e = N+& &a10a23a33*up= = q) up= = t11,ep23,ep33,e = N= up= = t11,ep23,ep33,e = N+& &a11a23a33*up= = q) up= = t12,ep23,ep33,e = N= up= = t12,ep23,ep33,e = N+& &a12a23a33*up= = q) up= = t13,ep23,ep33,e = N= up= = t13,ep23,ep33,e = N+& &a13a23a33*up= = q) = 1 ENDDO ylo = 1!------------------------------------------------------------------------ ylo = 1! All other lda are NOT UNROLLED. Vectorization will be over lda! ylo = 1!------------------------------------------------------------------------ ylo = 1ELSE ylo = 1 DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N ylo = 1 eq = list_ = (e = ,epN ylo = 1 !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) ylo = 1 !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) ylo = 1 !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N ylo = 1 x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) ylo = 1 x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) ylo = 1 x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 ! t11 = INT(x0(1))+2-istart(1,e = l) ylo = 1 ! t21 = INT(x0(2))+2-istart(2,e = l) ylo = 1 ! t31 = INT(x0(3))+2-istart(3,e = l) ylo = 1 et10 = INT(x0(1)) ylo = 1 et20 = INT(x0(2)) ylo = 1 et30 = INT(x0(3)) ylo = 1 et11 = et10 + ylo = 1 et21 = et20 + ylo = 1 t31 = et30 + ylo = 1 et12 = et11 + ylo = 1 t22 = et21 + ylo = 1 t32 = et31 + ylo = 1 et13 = et11 + 2 ylo = 1 ep23 = et21 + 2 ylo = 1 ep33 = et31 + 2 ylo = 1 xp1 = x0(1)-REAL(ep10,mk) ylo = 1 xp2 = x0(2)-REAL(ep20,mk) ylo = 1 xp3 = x0(3)-REAL(ep30,mk) ylo = 1 x10 = xp1 + .0_mk ylo = 1 x11 = x10 - .0_mk ylo = 1 x12 = x10 - 2.0_mk ylo = 1 x13 = x10 - 3.0_mk ylo = 1 x20 = xp2 + .0_mk ylo = 1 x21 = x20 - .0_mk ylo = 1 x22 = x20 - 2.0_mk ylo = 1 x23 = x20 - 3.0_mk ylo = 1 x30 = xp3 + .0_mk ylo = 1 x31 = x30 - .0_mk ylo = 1 x32 = x30 - 2.0_mk ylo = 1 x33 = x30 - 3.0_mk ylo ==========a10 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10 ylo = 1 a20 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20 ylo = 1 a30 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30 ylo = 1 a11 = 1.0_mk + (-2.5_mk+1.5_mk*x11)*x11**2 ylo = 1 a21 = 1.0_mk + (-2.5_mk+1.5_mk*x21)*x21**2 ylo = 1 a31 = 1.0_mk + (-2.5_mk+1.5_mk*x31)*x31**2 ylo = 1 a12 = 1.0_mk + (-2.5_mk-1.5_mk*x12)*x12**2 ylo = 1 a22 = 1.0_mk + (-2.5_mk-1.5_mk*x22)*x22**2 ylo = 1 a32 = 1.0_mk + (-2.5_mk-1.5_mk*x32)*x32**2 ylo = 1 a13 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x13)*x13)*x13 ylo = 1 a23 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x23)*x23)*x23 ylo = 1 a33 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x33)*x33)*x33 ylo = 1 a10a20a30 = a10*a20*a30dm_reno 1 a10a20a31 = a10*a20*a3 ylo = 1 a10a20a32 = a10*a20*a32 ylo = 1 a10a20a33 = a10*a20*a33 ylo = 1 a10a21a30 = a10*a21*a30dm_reno 1 a10a21a31 = a10*a21*a3 ylo = 1 a10a21a32 = a10*a21*a32 ylo = 1 a10a21a33 = a10*a21*a33 ylo = 1 a10a22a30 = a10*a22*a30dm_reno 1 a10a22a31 = a10*a22*a3 ylo = 1 a10a22a32 = a10*a22*a32 ylo = 1 a10a22a33 = a10*a22*a33 ylo = 1 a10a23a30 = a10*a23*a30dm_reno 1 a10a23a31 = a10*a23*a3 ylo = 1 a10a23a32 = a10*a23*a32 ylo = 1 a10a23a33 = a10*a23*a33 ylo = 1 a11a20a30 = a11*a20*a30dm_reno 1 a11a20a31 = a11*a20*a3 ylo = 1 a11a20a32 = a11*a20*a32 ylo = 1 a11a20a33 = a11*a20*a33 ylo = 1 a11a21a30 = a11*a21*a30dm_reno 1 a11a21a31 = a11*a21*a3 ylo = 1 a11a21a32 = a11*a21*a32 ylo = 1 a11a21a33 = a11*a21*a33 ylo = 1 a11a22a30 = a11*a22*a30dm_reno 1 a11a22a31 = a11*a22*a3 ylo = 1 a11a22a32 = a11*a22*a32 ylo = 1 a11a22a33 = a11*a22*a33 ylo = 1 a11a23a30 = a11*a23*a30dm_reno 1 a11a23a31 = a11*a23*a3 ylo = 1 a11a23a32 = a11*a23*a32 ylo = 1 a11a23a33 = a11*a23*a33 ylo = 1 a12a20a30 = a12*a20*a30dm_reno 1 a12a20a31 = a12*a20*a3 ylo = 1 a12a20a32 = a12*a20*a32 ylo = 1 a12a20a33 = a12*a20*a33 ylo = 1 a12a21a30 = a12*a21*a30dm_reno 1 a12a21a31 = a12*a21*a3 ylo = 1 a12a21a32 = a12*a21*a32 ylo = 1 a12a21a33 = a12*a21*a33 ylo = 1 a12a22a30 = a12*a22*a30dm_reno 1 a12a22a31 = a12*a22*a3 ylo = 1 a12a22a32 = a12*a22*a32 ylo = 1 a12a22a33 = a12*a22*a33 ylo = 1 a12a23a30 = a12*a23*a30dm_reno 1 a12a23a31 = a12*a23*a3 ylo = 1 a12a23a32 = a12*a23*a32 ylo = 1 a12a23a33 = a12*a23*a33 ylo = 1 a13a20a30 = a13*a20*a30dm_reno 1 a13a20a31 = a13*a20*a3 ylo = 1 a13a20a32 = a13*a20*a32 ylo = 1 a13a20a33 = a13*a20*a33 ylo = 1 a13a21a30 = a13*a21*a30dm_reno 1 a13a21a31 = a13*a21*a3 ylo = 1 a13a21a32 = a13*a21*a32 ylo = 1 a13a21a33 = a13*a21*a33 ylo = 1 a13a22a30 = a13*a22*a30dm_reno 1 a13a22a31 = a13*a22*a3 ylo = 1 a13a22a32 = a13*a22*a32 ylo = 1 a13a22a33 = a13*a22*a33 ylo = 1 a13a23a30 = a13*a23*a30dm_reno 1 a13a23a31 = a13*a23*a3 ylo = 1 a13a23a32 = a13*a23*a32 ylo = 1 a13a23a33 = a13*a23*a33 ylo = 1 DO ldn=1,lda up=ldn= t10,ep20,ep30,e = N= up=ldn= t10,ep20,ep30,e = N+& &a10a20a30*up=ldn= q) up=ldn= t11,ep20,ep30,e = N= up=ldn= t11,ep20,ep30,e = N+& &a11a20a30*up=ldn= q) up=ldn= t12,ep20,ep30,e = N= up=ldn= t12,ep20,ep30,e = N+& &a12a20a30*up=ldn= q) up=ldn= t13,ep20,ep30,e = N= up=ldn= t13,ep20,ep30,e = N+& &a13a20a30*up=ldn= q) up=ldn= t10,ep21,ep30,e = N= up=ldn= t10,ep21,ep30,e = N+& &a10a21a30*up=ldn= q) up=ldn= t11,ep21,ep30,e = N= up=ldn= t11,ep21,ep30,e = N+& &a11a21a30*up=ldn= q) up=ldn= t12,ep21,ep30,e = N= up=ldn= t12,ep21,ep30,e = N+& &a12a21a30*up=ldn= q) up=ldn= t13,ep21,ep30,e = N= up=ldn= t13,ep21,ep30,e = N+& &a13a21a30*up=ldn= q) up=ldn= t10,ep22,ep30,e = N= up=ldn= t10,ep22,ep30,e = N+& &a10a22a30*up=ldn= q) up=ldn= t11,ep22,ep30,e = N= up=ldn= t11,ep22,ep30,e = N+& &a11a22a30*up=ldn= q) up=ldn= t12,ep22,ep30,e = N= up=ldn= t12,ep22,ep30,e = N+& &a12a22a30*up=ldn= q) up=ldn= t13,ep22,ep30,e = N= up=ldn= t13,ep22,ep30,e = N+& &a13a22a30*up=ldn= q) up=ldn= t10,ep23,ep30,e = N= up=ldn= t10,ep23,ep30,e = N+& &a10a23a30*up=ldn= q) up=ldn= t11,ep23,ep30,e = N= up=ldn= t11,ep23,ep30,e = N+& &a11a23a30*up=ldn= q) up=ldn= t12,ep23,ep30,e = N= up=ldn= t12,ep23,ep30,e = N+& &a12a23a30*up=ldn= q) up=ldn= t13,ep23,ep30,e = N= up=ldn= t13,ep23,ep30,e = N+& &a13a23a30*up=ldn= q) up=ldn= t10,ep20,ep31,e = N= up=ldn= t10,ep20,ep31,e = N+& &a10a20a31*up=ldn= q) up=ldn= t11,ep20,ep31,e = N= up=ldn= t11,ep20,ep31,e = N+& &a11a20a31*up=ldn= q) up=ldn= t12,ep20,ep31,e = N= up=ldn= t12,ep20,ep31,e = N+& &a12a20a31*up=ldn= q) up=ldn= t13,ep20,ep31,e = N= up=ldn= t13,ep20,ep31,e = N+& &a13a20a31*up=ldn= q) up=ldn= t10,ep21,ep31,e = N= up=ldn= t10,ep21,ep31,e = N+& &a10a21a31*up=ldn= q) up=ldn= t11,ep21,ep31,e = N= up=ldn= t11,ep21,ep31,e = N+& &a11a21a3 *up=ldn= q) up=ldn= t12,ep21,ep31,e = N= up=ldn= t12,ep21,ep31,e = N+& &a12a21a3 *up=ldn= q) up=ldn= t13,ep21,ep31,e = N= up=ldn= t13,ep21,ep31,e = N+& &a13a21a3 *up=ldn= q) up=ldn= t10,ep22,ep31,e = N= up=ldn= t10,ep22,ep31,e = N+& &a10a22a3 *up=ldn= q) up=ldn= t11,ep22,ep31,e = N= up=ldn= t11,ep22,ep31,e = N+& &a11a22a3 *up=ldn= q) up=ldn= t12,ep22,ep31,e = N= up=ldn= t12,ep22,ep31,e = N+& &a12a22a3 *up=ldn= q) up=ldn= t13,ep22,ep31,e = N= up=ldn= t13,ep22,ep31,e = N+& &a13a22a3 *up=ldn= q) up=ldn= t10,ep23,ep31,e = N= up=ldn= t10,ep23,ep31,e = N+& &a10a23a31*up=ldn= q) up=ldn= t11,ep23,ep31,e = N= up=ldn= t11,ep23,ep31,e = N+& &a11a23a31*up=ldn= q) up=ldn= t12,ep23,ep31,e = N= up=ldn= t12,ep23,ep31,e = N+& &a12a23a31*up=ldn= q) up=ldn= t13,ep23,ep31,e = N= up=ldn= t13,ep23,ep31,e = N+& &a13a23a3 *up=ldn= q) up=ldn= t10,ep20,ep32,e = N= up=ldn= t10,ep20,ep32,e = N+& &a10a20a32*up=ldn= q) up=ldn= t11,ep20,ep32,e = N= up=ldn= t11,ep20,ep32,e = N+& &a11a20a32*up=ldn= q) up=ldn= t12,ep20,ep32,e = N= up=ldn= t12,ep20,ep32,e = N+& &a12a20a32*up=ldn= q) up=ldn= t13,ep20,ep32,e = N= up=ldn= t13,ep20,ep32,e = N+& &a13a20a32*up=ldn= q) up=ldn= t10,ep21,ep32,e = N= up=ldn= t10,ep21,ep32,e = N+& &a10a21a32*up=ldn= q) up=ldn= t11,ep21,ep32,e = N= up=ldn= t11,ep21,ep32,e = N+& &a11a21a32*up=ldn= q) up=ldn= t12,ep21,ep32,e = N= up=ldn= t12,ep21,ep32,e = N+& &a12a21a32*up=ldn= q) up=ldn= t13,ep21,ep32,e = N= up=ldn= t13,ep21,ep32,e = N+& &a13a21a32*up=ldn= q) up=ldn= t10,ep22,ep32,e = N= up=ldn= t10,ep22,ep32,e = N+& &a10a22a32*up=ldn= q) up=ldn= t11,ep22,ep32,e = N= up=ldn= t11,ep22,ep32,e = N+& &a11a22a32*up=ldn= q) up=ldn= t12,ep22,ep32,e = N= up=ldn= t12,ep22,ep32,e = N+& &a12a22a32*up=ldn= q) up=ldn= t13,ep22,ep32,e = N= up=ldn= t13,ep22,ep32,e = N+& &a13a22a32*up=ldn= q) up=ldn= t10,ep23,ep32,e = N= up=ldn= t10,ep23,ep32,e = N+& &a10a23a32*up=ldn= q) up=ldn= t11,ep23,ep32,e = N= up=ldn= t11,ep23,ep32,e = N+& &a11a23a32*up=ldn= q) up=ldn= t12,ep23,ep32,e = N= up=ldn= t12,ep23,ep32,e = N+& &a12a23a32*up=ldn= q) up=ldn= t13,ep23,ep32,e = N= up=ldn= t13,ep23,ep32,e = N+& &a13a23a32*up=ldn= q) up=ldn= t10,ep20,ep33,e = N= up=ldn= t10,ep20,ep33,e = N+& &a10a20a33*up=ldn= q) up=ldn= t11,ep20,ep33,e = N= up=ldn= t11,ep20,ep33,e = N+& &a11a20a33*up=ldn= q) up=ldn= t12,ep20,ep33,e = N= up=ldn= t12,ep20,ep33,e = N+& &a12a20a33*up=ldn= q) up=ldn= t13,ep20,ep33,e = N= up=ldn= t13,ep20,ep33,e = N+& &a13a20a33*up=ldn= q) up=ldn= t10,ep21,ep33,e = N= up=ldn= t10,ep21,ep33,e = N+& &a10a21a33*up=ldn= q) up=ldn= t11,ep21,ep33,e = N= up=ldn= t11,ep21,ep33,e = N+& &a11a21a33*up=ldn= q) up=ldn= t12,ep21,ep33,e = N= up=ldn= t12,ep21,ep33,e = N+& &a12a21a33*up=ldn= q) up=ldn= t13,ep21,ep33,e = N= up=ldn= t13,ep21,ep33,e = N+& &a13a21a33*up=ldn= q) up=ldn= t10,ep22,ep33,e = N= up=ldn= t10,ep22,ep33,e = N+& &a10a22a33*up=ldn= q) up=ldn= t11,ep22,ep33,e = N= up=ldn= t11,ep22,ep33,e = N+& &a11a22a33*up=ldn= q) up=ldn= t12,ep22,ep33,e = N= up=ldn= t12,ep22,ep33,e = N+& &a12a22a33*up=ldn= q) up=ldn= t13,ep22,ep33,e = N= up=ldn= t13,ep22,ep33,e = N+& &a13a22a33*up=ldn= q) up=ldn= t10,ep23,ep33,e = N= up=ldn= t10,ep23,ep33,e = N+& &a10a23a33*up=ldn= q) up=ldn= t11,ep23,ep33,e = N= up=ldn= t11,ep23,ep33,e = N+& &a11a23a33*up=ldn= q) up=ldn= t12,ep23,ep33,e = N= up=ldn= t12,ep23,ep33,e = N+& &a12a23a33*up=ldn= q) up=ldn= t13,ep23,ep33,e = N= up=ldn= t13,ep23,ep33,e = N+& &a13a23a33*up=ldn= q) ylo = 1 ENDDO ! lda = 1 ENDDO1 ! iq 1 END IF= 1 ! unrolled lda cases lif __MODE == __SCA ylo = 1 DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N ylo = 1 eq = list_ = (e = ,epN ylo = 1 !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) ylo = 1 !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) ylo = 1 !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N ylo = 1 x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) ylo = 1 x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) ylo = 1 x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 ylo = 1 ! t11 = INT(x0(1))+2-istart(1,e = l) ylo = 1 ! t21 = INT(x0(2))+2-istart(2,e = l) ylo = 1 ! t31 = INT(x0(3))+2-istart(3,e = l) ylo = 1 et10 = INT(x0(1)) ylo = 1 et20 = INT(x0(2)) ylo = 1 et30 = INT(x0(3)) ylo = 1 et11 = et10 + ylo = 1 et21 = et20 + ylo = 1 t31 = et30 + ylo = 1 et12 = et11 + ylo = 1 t22 = et21 + ylo = 1 t32 = et31 + ylo = 1 et13 = et11 + 2 ylo = 1 ep23 = et21 + 2 ylo = 1 ep33 = et31 + 2 ylo = 1 xp1 = x0(1)-REAL(ep10,mk) ylo = 1 xp2 = x0(2)-REAL(ep20,mk) ylo = 1 xp3 = x0(3)-REAL(ep30,mk) ylo = 1 x10 = xp1 + .0_mk ylo = 1 x11 = x10 - .0_mk ylo = 1 x12 = x10 - 2.0_mk ylo = 1 x13 = x10 - 3.0_mk ylo = 1 x20 = xp2 + .0_mk ylo = 1 x21 = x20 - .0_mk ylo = 1 x22 = x20 - 2.0_mk ylo = 1 x23 = x20 - 3.0_mk ylo = 1 x30 = xp3 + .0_mk ylo = 1 x31 = x30 - .0_mk ylo = 1 x32 = x30 - 2.0_mk ylo = 1 x33 = x30 - 3.0_mk ylo ==========a10 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x10)*x10)*x10 ylo = 1 a20 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x20)*x20)*x20 ylo = 1 a30 = 2.0_mk + (-4.0_mk+(2.5_mk-0.5_mk*x30)*x30)*x30 ylo = 1 a11 = 1.0_mk + (-2.5_mk+1.5_mk*x11)*x11**2 ylo = 1 a21 = 1.0_mk + (-2.5_mk+1.5_mk*x21)*x21**2 ylo = 1 a31 = 1.0_mk + (-2.5_mk+1.5_mk*x31)*x31**2 ylo = 1 a12 = 1.0_mk + (-2.5_mk-1.5_mk*x12)*x12**2 ylo = 1 a22 = 1.0_mk + (-2.5_mk-1.5_mk*x22)*x22**2 ylo = 1 a32 = 1.0_mk + (-2.5_mk-1.5_mk*x32)*x32**2 ylo = 1 a13 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x13)*x13)*x13 ylo = 1 a23 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x23)*x23)*x23 ylo = 1 a33 = 2.0_mk + (4.0_mk + (2.5_mk+0.5_mk*x33)*x33)*x33 ylo = 1 a10a20a30 = a10*a20*a30dm_reno 1 a10a20a31 = a10*a20*a3 ylo = 1 a10a20a32 = a10*a20*a32 ylo = 1 a10a20a33 = a10*a20*a33 ylo = 1 a10a21a30 = a10*a21*a30dm_reno 1 a10a21a31 = a10*a21*a3 ylo = 1 a10a21a32 = a10*a21*a32 ylo = 1 a10a21a33 = a10*a21*a33 ylo = 1 a10a22a30 = a10*a22*a30dm_reno 1 a10a22a31 = a10*a22*a3 ylo = 1 a10a22a32 = a10*a22*a32 ylo = 1 a10a22a33 = a10*a22*a33 ylo = 1 a10a23a30 = a10*a23*a30dm_reno 1 a10a23a31 = a10*a23*a3 ylo = 1 a10a23a32 = a10*a23*a32 ylo = 1 a10a23a33 = a10*a23*a33 ylo = 1 a11a20a30 = a11*a20*a30dm_reno 1 a11a20a31 = a11*a20*a3 ylo = 1 a11a20a32 = a11*a20*a32 ylo = 1 a11a20a33 = a11*a20*a33 ylo = 1 a11a21a30 = a11*a21*a30dm_reno 1 a11a21a31 = a11*a21*a3 ylo = 1 a11a21a32 = a11*a21*a32 ylo = 1 a11a21a33 = a11*a21*a33 ylo = 1 a11a22a30 = a11*a22*a30dm_reno 1 a11a22a31 = a11*a22*a3 ylo = 1 a11a22a32 = a11*a22*a32 ylo = 1 a11a22a33 = a11*a22*a33 ylo = 1 a11a23a30 = a11*a23*a30dm_reno 1 a11a23a31 = a11*a23*a3 ylo = 1 a11a23a32 = a11*a23*a32 ylo = 1 a11a23a33 = a11*a23*a33 ylo = 1 a12a20a30 = a12*a20*a30dm_reno 1 a12a20a31 = a12*a20*a3 ylo = 1 a12a20a32 = a12*a20*a32 ylo = 1 a12a20a33 = a12*a20*a33 ylo = 1 a12a21a30 = a12*a21*a30dm_reno 1 a12a21a31 = a12*a21*a3 ylo = 1 a12a21a32 = a12*a21*a32 ylo = 1 a12a21a33 = a12*a21*a33 ylo = 1 a12a22a30 = a12*a22*a30dm_reno 1 a12a22a31 = a12*a22*a3 ylo = 1 a12a22a32 = a12*a22*a32 ylo = 1 a12a22a33 = a12*a22*a33 ylo = 1 a12a23a30 = a12*a23*a30dm_reno 1 a12a23a31 = a12*a23*a3 ylo = 1 a12a23a32 = a12*a23*a32 ylo = 1 a12a23a33 = a12*a23*a33 ylo = 1 a13a20a30 = a13*a20*a30dm_reno 1 a13a20a31 = a13*a20*a3 ylo = 1 a13a20a32 = a13*a20*a32 ylo = 1 a13a20a33 = a13*a20*a33 ylo = 1 a13a21a30 = a13*a21*a30dm_reno 1 a13a21a31 = a13*a21*a3 ylo = 1 a13a21a32 = a13*a21*a32 ylo = 1 a13a21a33 = a13*a21*a33 ylo = 1 a13a22a30 = a13*a22*a30dm_reno 1 a13a22a31 = a13*a22*a3 ylo = 1 a13a22a32 = a13*a22*a32 ylo = 1 a13a22a33 = a13*a22*a33 ylo = 1 a13a23a30 = a13*a23*a30dm_reno 1 a13a23a31 = a13*a23*a3 ylo = 1 a13a23a32 = a13*a23*a32 ylo = 1 a13a23a33 = a13*a23*a33 up= t10,ep20,ep30,e = N= up= t10,ep20,ep30,e = N+& &a10a20a30*up= q) up= t11,ep20,ep30,e = N= up= t11,ep20,ep30,e = N+& &a11a20a30*up= q) up= t12,ep20,ep30,e = N= up= t12,ep20,ep30,e = N+& &a12a20a30*up= q) up= t13,ep20,ep30,e = N= up= t13,ep20,ep30,e = N+& &a13a20a30*up= q) up= t10,ep21,ep30,e = N= up= t10,ep21,ep30,e = N+& &a10a21a30*up= q) up= t11,ep21,ep30,e = N= up= t11,ep21,ep30,e = N+& &a11a21a30*up= q) up= t12,ep21,ep30,e = N= up= t12,ep21,ep30,e = N+& &a12a21a30*up= q) up= t13,ep21,ep30,e = N= up= t13,ep21,ep30,e = N+& &a13a21a30*up= q) up= t10,ep22,ep30,e = N= up= t10,ep22,ep30,e = N+& &a10a22a30*up= q) up= t11,ep22,ep30,e = N= up= t11,ep22,ep30,e = N+& &a11a22a30*up= q) up= t12,ep22,ep30,e = N= up= t12,ep22,ep30,e = N+& &a12a22a30*up= q) up= t13,ep22,ep30,e = N= up= t13,ep22,ep30,e = N+& &a13a22a30*up= q) up= t10,ep23,ep30,e = N= up= t10,ep23,ep30,e = N+& &a10a23a30*up= q) up= t11,ep23,ep30,e = N= up= t11,ep23,ep30,e = N+& &a11a23a30*up= q) up= t12,ep23,ep30,e = N= up= t12,ep23,ep30,e = N+& &a12a23a30*up= q) up= t13,ep23,ep30,e = N= up= t13,ep23,ep30,e = N+& &a13a23a30*up= q) up= t10,ep20,ep31,e = N= up= t10,ep20,ep31,e = N+& &a10a20a31*up= q) up= t11,ep20,ep31,e = N= up= t11,ep20,ep31,e = N+& &a11a20a31*up= q) up= t12,ep20,ep31,e = N= up= t12,ep20,ep31,e = N+& &a12a20a31*up= q) up= t13,ep20,ep31,e = N= up= t13,ep20,ep31,e = N+& &a13a20a31*up= q) up= t10,ep21,ep31,e = N= up= t10,ep21,ep31,e = N+& &a10a21a31*up= q) up= t11,ep21,ep31,e = N= up= t11,ep21,ep31,e = N+& &a11a21a3 *up= q) up= t12,ep21,ep31,e = N= up= t12,ep21,ep31,e = N+& &a12a21a3 *up= q) up= t13,ep21,ep31,e = N= up= t13,ep21,ep31,e = N+& &a13a21a3 *up= q) up= t10,ep22,ep31,e = N= up= t10,ep22,ep31,e = N+& &a10a22a3 *up= q) up= t11,ep22,ep31,e = N= up= t11,ep22,ep31,e = N+& &a11a22a3 *up= q) up= t12,ep22,ep31,e = N= up= t12,ep22,ep31,e = N+& &a12a22a3 *up= q) up= t13,ep22,ep31,e = N= up= t13,ep22,ep31,e = N+& &a13a22a3 *up= q) up= t10,ep23,ep31,e = N= up= t10,ep23,ep31,e = N+& &a10a23a31*up= q) up= t11,ep23,ep31,e = N= up= t11,ep23,ep31,e = N+& &a11a23a31*up= q) up= t12,ep23,ep31,e = N= up= t12,ep23,ep31,e = N+& &a12a23a31*up= q) up= t13,ep23,ep31,e = N= up= t13,ep23,ep31,e = N+& &a13a23a3 *up= q) up= t10,ep20,ep32,e = N= up= t10,ep20,ep32,e = N+& &a10a20a32*up= q) up= t11,ep20,ep32,e = N= up= t11,ep20,ep32,e = N+& &a11a20a32*up= q) up= t12,ep20,ep32,e = N= up= t12,ep20,ep32,e = N+& &a12a20a32*up= q) up= t13,ep20,ep32,e = N= up= t13,ep20,ep32,e = N+& &a13a20a32*up= q) up= t10,ep21,ep32,e = N= up= t10,ep21,ep32,e = N+& &a10a21a32*up= q) up= t11,ep21,ep32,e = N= up= t11,ep21,ep32,e = N+& &a11a21a32*up= q) up= t12,ep21,ep32,e = N= up= t12,ep21,ep32,e = N+& &a12a21a32*up= q) up= t13,ep21,ep32,e = N= up= t13,ep21,ep32,e = N+& &a13a21a32*up= q) up= t10,ep22,ep32,e = N= up= t10,ep22,ep32,e = N+& &a10a22a32*up= q) up= t11,ep22,ep32,e = N= up= t11,ep22,ep32,e = N+& &a11a22a32*up= q) up= t12,ep22,ep32,e = N= up= t12,ep22,ep32,e = N+& &a12a22a32*up= q) up= t13,ep22,ep32,e = N= up= t13,ep22,ep32,e = N+& &a13a22a32*up= q) up= t10,ep23,ep32,e = N= up= t10,ep23,ep32,e = N+& &a10a23a32*up= q) up= t11,ep23,ep32,e = N= up= t11,ep23,ep32,e = N+& &a11a23a32*up= q) up= t12,ep23,ep32,e = N= up= t12,ep23,ep32,e = N+& &a12a23a32*up= q) up= t13,ep23,ep32,e = N= up= t13,ep23,ep32,e = N+& &a13a23a32*up= q) up= t10,ep20,ep33,e = N= up= t10,ep20,ep33,e = N+& &a10a20a33*up= q) up= t11,ep20,ep33,e = N= up= t11,ep20,ep33,e = N+& &a11a20a33*up= q) up= t12,ep20,ep33,e = N= up= t12,ep20,ep33,e = N+& &a12a20a33*up= q) up= t13,ep20,ep33,e = N= up= t13,ep20,ep33,e = N+& &a13a20a33*up= q) up= t10,ep21,ep33,e = N= up= t10,ep21,ep33,e = N+& &a10a21a33*up= q) up= t11,ep21,ep33,e = N= up= t11,ep21,ep33,e = N+& &a11a21a33*up= q) up= t12,ep21,ep33,e = N= up= t12,ep21,ep33,e = N+& &a12a21a33*up= q) up= t13,ep21,ep33,e = N= up= t13,ep21,ep33,e = N+& &a13a21a33*up= q) up= t10,ep22,ep33,e = N= up= t10,ep22,ep33,e = N+& &a10a22a33*up= q) up= t11,ep22,ep33,e = N= up= t11,ep22,ep33,e = N+& &a11a22a33*up= q) up= t12,ep22,ep33,e = N= up= t12,ep22,ep33,e = N+& &a12a22a33*up= q) up= t13,ep22,ep33,e = N= up= t13,ep22,ep33,e = N+& &a13a22a33*up= q) up= t10,ep23,ep33,e = N= up= t10,ep23,ep33,e = N+& &a10a23a33*up= q) up= t11,ep23,ep33,e = N= up= t11,ep23,ep33,e = N+& &a11a23a33*up= q) up= t12,ep23,ep33,e = N= up= t12,ep23,ep33,e = N+& &a12a23a33*up= q) up= t13,ep23,ep33,e = N= up= t13,ep23,ep33,e = N+& &a13a23a33*up= q) = 1 ENDDO1 ! iq #endif 1 END DO1 ! loop over = s ylo =CASE(ppm_param_rmsh_kernel_bsp2) !----------------------------------------------------------------------- ylo = 11! B-spline 2 (Witch hat) = 1 !----------------------------------------------------------------------- DO i = = 1,topo%ns= list #if __MODE == __VEC = 1 !------------------------------------------------------------------------ ylo = 11! Unrolled versions for 4-vectors ylo = 1 !------------------------------------------------------------------------ ylo = 11IF(lda.EQ.4) THEN ylo = 1 DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N eq = list_ = (e = ,epN !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 !it11 = INT(x0(1))+2-istart(1,e = l) !it21 = INT(x0(2))+2-istart(2,e = l) !it31 = INT(x0(3))+2-istart(3,e = l) et10 = INT(x0(1)) + et20 = INT(x0(2)) + et30 = INT(x0(3)) + et11 = et10 + et21 = et20 + et31 = et30 + 1 xp1 = x0(1)-REAL(ep10-1,mk) xp2 = x0(2)-REAL(ep20-1,mk) xp3 = x0(3)-REAL(ep30-1,mk) x10 = xp1 x11 = x10 - .0_mk x20 = xp2 x21 = x20 - .0_mk x30 = xp3 x31 = x30 - .0_mk ylo = 1 a10 = 1.0_mk - x10 a20 = 1.0_mk - x20 a30 = 1.0_mk - x30 a11 = 1.0_mk + x11 a21 = 1.0_mk + x21 a31 = 1.0_mk + x31 up=1,ep10,ep20,ep30,e = N = up=1,ep10,ep20,ep30,e = N + & & a10*a20*a30*up= = q) up=1,ep10,ep20,ep31,e = N = up=1,ep10,ep20,ep31,e = N + & & a10*a20*a31*up= = q) up=1,ep10,ep21,ep30,e = N = up=1,ep10,ep21,ep30,e = N + & & a10*a21*a30*up= = q) up=1,ep10,ep21,ep31,e = N = up=1,ep10,ep21,ep31,e = N + & & a10*a21*a31*up= = q) up=1,ep11,ep20,ep30,e = N = up=1,ep11,ep20,ep30,e = N + & & a11*a20*a30*up= = q) up=1,ep11,ep20,ep31,e = N = up=1,ep11,ep20,ep31,e = N + & & a11*a20*a31*up= = q) up=1,ep11,ep21,ep30,e = N = up=1,ep11,ep21,ep30,e = N + & & a11*a21*a30*up= = q) up=1,ep11,ep21,ep31,e = N = up=1,ep11,ep21,ep31,e = N + & & a11*a21*a31*up= = q) up=2,ep10,ep20,ep30,e = N = up=2,ep10,ep20,ep30,e = N + & & a10*a20*a30*up=2= q) up=2,ep10,ep20,ep31,e = N = up=2,ep10,ep20,ep31,e = N + & & a10*a20*a31*up=2= q) up=2,ep10,ep21,ep30,e = N = up=2,ep10,ep21,ep30,e = N + & & a10*a21*a30*up=2= q) up=2,ep10,ep21,ep31,e = N = up=2,ep10,ep21,ep31,e = N + & & a10*a21*a31*up=2= q) up=2,ep11,ep20,ep30,e = N = up=2,ep11,ep20,ep30,e = N + & & a11*a20*a30*up=2= q) up=2,ep11,ep20,ep31,e = N = up=2,ep11,ep20,ep31,e = N + & & a11*a20*a31*up=2= q) up=2,ep11,ep21,ep30,e = N = up=2,ep11,ep21,ep30,e = N + & & a11*a21*a30*up=2= q) up=2,ep11,ep21,ep31,e = N = up=2,ep11,ep21,ep31,e = N + & & a11*a21*a31*up=2= q) up=3,ep10,ep20,ep30,e = N = up=3,ep10,ep20,ep30,e = N + & & a10*a20*a30*up=3= q) up=3,ep10,ep20,ep31,e = N = up=3,ep10,ep20,ep31,e = N + & & a10*a20*a31*up=3= q) up=3,ep10,ep21,ep30,e = N = up=3,ep10,ep21,ep30,e = N + & & a10*a21*a30*up=3= q) up=3,ep10,ep21,ep31,e = N = up=3,ep10,ep21,ep31,e = N + & & a10*a21*a31*up=3= q) up=3,ep11,ep20,ep30,e = N = up=3,ep11,ep20,ep30,e = N + & & a11*a20*a30*up=3= q) up=3,ep11,ep20,ep31,e = N = up=3,ep11,ep20,ep31,e = N + & & a11*a20*a31*up=3= q) up=3,ep11,ep21,ep30,e = N = up=3,ep11,ep21,ep30,e = N + & & a11*a21*a30*up=3= q) up=3,ep11,ep21,ep31,e = N = up=3,ep11,ep21,ep31,e = N + & & a11*a21*a31*up=3= q) up=4,ep10,ep20,ep30,e = N = up=4,ep10,ep20,ep30,e = N + & & a10*a20*a30*up=4= q) up=4,ep10,ep20,ep31,e = N = up=4,ep10,ep20,ep31,e = N + & & a10*a20*a31*up=4= q) up=4,ep10,ep21,ep30,e = N = up=4,ep10,ep21,ep30,e = N + & & a10*a21*a30*up=4= q) up=4,ep10,ep21,ep31,e = N = up=4,ep10,ep21,ep31,e = N + & & a10*a21*a31*up=4= q) up=4,ep11,ep20,ep30,e = N = up=4,ep11,ep20,ep30,e = N + & & a11*a20*a30*up=4= q) up=4,ep11,ep20,ep31,e = N = up=4,ep11,ep20,ep31,e = N + & & a11*a20*a31*up=4= q) up=4,ep11,ep21,ep30,e = N = up=4,ep11,ep21,ep30,e = N + & & a11*a21*a30*up=4= q) up=4,ep11,ep21,ep31,e = N = up=4,ep11,ep21,ep31,e = N + & & a11*a21*a31*up=4= q) END DO !------------------------------------------------------------------------ ! Unrolled versions for 3-vectors !------------------------------------------------------------------------ 1 ELSEIF (lda .EQ. 3) THEN DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N eq = list_ = (e = ,epN !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 !it11 = INT(x0(1))+2-istart(1,e = l) !it21 = INT(x0(2))+2-istart(2,e = l) !it31 = INT(x0(3))+2-istart(3,e = l) et10 = INT(x0(1)) + et20 = INT(x0(2)) + et30 = INT(x0(3)) + et11 = et10 + et21 = et20 + et31 = et30 + 1 xp1 = x0(1)-REAL(ep10-1,mk) xp2 = x0(2)-REAL(ep20-1,mk) xp3 = x0(3)-REAL(ep30-1,mk) x10 = xp1 x11 = x10 - .0_mk x20 = xp2 x21 = x20 - .0_mk x30 = xp3 x31 = x30 - .0_mk a10 = 1.0_mk - x10 a20 = 1.0_mk - x20 a30 = 1.0_mk - x30 a11 = 1.0_mk + x11 a21 = 1.0_mk + x21 a31 = 1.0_mk + x31 a10a20a30 = a10*a20*a30d a10a20a31 = a10*a20*a3 a10a21a30 = a10*a21*a30d a10a21a31 = a10*a21*a3 a11a20a30 = a11*a20*a30d a11a20a31 = a11*a20*a3 a11a21a30 = a11*a21*a30d a11a21a31 = a11*a21*a3 #ifdef __NOMICROINSTRUCTIONS up=1,ep10,ep20,ep30,e = N= up=1,ep10,ep20,ep30,e = N+& &a10a20a30*up= = q) up=2,ep10,ep20,ep30,e = N= up=2,ep10,ep20,ep30,e = N+& &a10a20a30*up=2= q) up=3,ep10,ep20,ep30,e = N= up=3,ep10,ep20,ep30,e = N+& &a10a20a30*up=3= q) up=1,ep11,ep20,ep30,e = N= up=1,ep11,ep20,ep30,e = N+& &a11a20a30*up= = q) up=2,ep11,ep20,ep30,e = N= up=2,ep11,ep20,ep30,e = N+& &a11a20a30*up=2= q) up=3,ep11,ep20,ep30,e = N= up=3,ep11,ep20,ep30,e = N+& &a11a20a30*up=3= q) up=1,ep10,ep21,ep30,e = N= up=1,ep10,ep21,ep30,e = N+& &a10a21a30*up= = q) up=2,ep10,ep21,ep30,e = N= up=2,ep10,ep21,ep30,e = N+& &a10a21a30*up=2= q) up=3,ep10,ep21,ep30,e = N= up=3,ep10,ep21,ep30,e = N+& &a10a21a30*up=3= q) up=1,ep11,ep21,ep30,e = N= up=1,ep11,ep21,ep30,e = N+& &a11a21a30*up= = q) up=2,ep11,ep21,ep30,e = N= up=2,ep11,ep21,ep30,e = N+& &a11a21a30*up=2= q) up=3,ep11,ep21,ep30,e = N= up=3,ep11,ep21,ep30,e = N+& &a11a21a30*up=3= q) up=1,ep10,ep20,ep31,e = N= up=1,ep10,ep20,ep31,e = N+& &a10a20a31*up= = q) up=2,ep10,ep20,ep31,e = N= up=2,ep10,ep20,ep31,e = N+& &a10a20a31*up=2= q) up=3,ep10,ep20,ep31,e = N= up=3,ep10,ep20,ep31,e = N+& &a10a20a31*up=3= q) up=1,ep11,ep20,ep31,e = N= up=1,ep11,ep20,ep31,e = N+& &a11a20a31*up= = q) up=2,ep11,ep20,ep31,e = N= up=2,ep11,ep20,ep31,e = N+& &a11a20a31*up=2= q) up=3,ep11,ep20,ep31,e = N= up=3,ep11,ep20,ep31,e = N+& &a11a20a31*up=3= q) up=1,ep10,ep21,ep31,e = N= up=1,ep10,ep21,ep31,e = N+& &a10a21a31*up= = q) up=2,ep10,ep21,ep31,e = N= up=2,ep10,ep21,ep31,e = N+& &a10a21a31*up=2= q) up=3,ep10,ep21,ep31,e = N= up=3,ep10,ep21,ep31,e = N+& &a10a21a31*up=3= q) up=1,ep11,ep21,ep31,e = N= up=1,ep11,ep21,ep31,e = N+& &a11a21a31*up= = q) up=2,ep11,ep21,ep31,e = N= up=2,ep11,ep21,ep31,e = N+& &a11a21a31*up=2= q) up=3,ep11,ep21,ep31,e = N= up=3,ep11,ep21,ep31,e = N+& &a11a21a31*up=3= q) #else up=1:3,ep10,ep20,ep30,e = N= up=1:3,ep10,ep20,ep30,e = N+& &a10a20a30*up= :3= q) up=1:3,ep11,ep20,ep30,e = N= up=1:3,ep11,ep20,ep30,e = N+& &a11a20a30*up= :3= q) up=1:3,ep10,ep21,ep30,e = N= up=1:3,ep10,ep21,ep30,e = N+& &a10a21a30*up= :3= q) up=1:3,ep11,ep21,ep30,e = N= up=1:3,ep11,ep21,ep30,e = N+& &a11a21a30*up= :3= q) up=1:3,ep10,ep20,ep31,e = N= up=1:3,ep10,ep20,ep31,e = N+& &a10a20a31*up= :3= q) up=1:3,ep11,ep20,ep31,e = N= up=1:3,ep11,ep20,ep31,e = N+& &a11a20a31*up= :3= q) up=1:3,ep10,ep21,ep31,e = N= up=1:3,ep10,ep21,ep31,e = N+& &a10a21a31*up= :3= q) up=1:3,ep11,ep21,ep31,e = N= up=1:3,ep11,ep21,ep31,e = N+& &a11a21a31*up= :3= q) #endif END DO !------------------------------------------------------------------------ ! Unrolled versions for 2-vectors !------------------------------------------------------------------------ ELSEIF (lda .EQ. 2) THEN DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N eq = list_ = (e = ,epN !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 !it11 = INT(x0(1))+2-istart(1,e = l) !it21 = INT(x0(2))+2-istart(2,e = l) !it31 = INT(x0(3))+2-istart(3,e = l) et10 = INT(x0(1)) + et20 = INT(x0(2)) + et30 = INT(x0(3)) + et11 = et10 + et21 = et20 + et31 = et30 + 1 xp1 = x0(1)-REAL(ep10-1,mk) xp2 = x0(2)-REAL(ep20-1,mk) xp3 = x0(3)-REAL(ep30-1,mk) x10 = xp1 x11 = x10 - .0_mk x20 = xp2 x21 = x20 - .0_mk x30 = xp3 x31 = x30 - .0_mk ylo = 1 a10 = 1.0_mk - x10 a20 = 1.0_mk - x20 a30 = 1.0_mk - x30 a11 = 1.0_mk + x11 a21 = 1.0_mk + x21 a31 = 1.0_mk + x31 a10a20a30 = a10*a20*a30d a10a20a31 = a10*a20*a3 a10a21a30 = a10*a21*a30d a10a21a31 = a10*a21*a3 a11a20a30 = a11*a20*a30d a11a20a31 = a11*a20*a3 a11a21a30 = a11*a21*a30d a11a21a31 = a11*a21*a3 #ifdef __NOMICROINSTRUCTIONS up=1,ep10,ep20,ep30,e = N= up=1,ep10,ep20,ep30,e = N+& &a10a20a30*up= = q) up=2,ep10,ep20,ep30,e = N= up=2,ep10,ep20,ep30,e = N+& &a10a20a30*up=2= q) up=1,ep11,ep20,ep30,e = N= up=1,ep11,ep20,ep30,e = N+& &a11a20a30*up= = q) up=2,ep11,ep20,ep30,e = N= up=2,ep11,ep20,ep30,e = N+& &a11a20a30*up=2= q) up=1,ep10,ep21,ep30,e = N= up=1,ep10,ep21,ep30,e = N+& &a10a21a30*up= = q) up=2,ep10,ep21,ep30,e = N= up=2,ep10,ep21,ep30,e = N+& &a10a21a30*up=2= q) up=1,ep11,ep21,ep30,e = N= up=1,ep11,ep21,ep30,e = N+& &a11a21a30*up= = q) up=2,ep11,ep21,ep30,e = N= up=2,ep11,ep21,ep30,e = N+& &a11a21a30*up=2= q) up=1,ep10,ep20,ep31,e = N= up=1,ep10,ep20,ep31,e = N+& &a10a20a31*up= = q) up=2,ep10,ep20,ep31,e = N= up=2,ep10,ep20,ep31,e = N+& &a10a20a31*up=2= q) up=1,ep11,ep20,ep31,e = N= up=1,ep11,ep20,ep31,e = N+& &a11a20a31*up= = q) up=2,ep11,ep20,ep31,e = N= up=2,ep11,ep20,ep31,e = N+& &a11a20a31*up=2= q) up=1,ep10,ep21,ep31,e = N= up=1,ep10,ep21,ep31,e = N+& &a10a21a31*up= = q) up=2,ep10,ep21,ep31,e = N= up=2,ep10,ep21,ep31,e = N+& &a10a21a31*up=2= q) up=1,ep11,ep21,ep31,e = N= up=1,ep11,ep21,ep31,e = N+& &a11a21a31*up= = q) up=2,ep11,ep21,ep31,e = N= up=2,ep11,ep21,ep31,e = N+& &a11a21a31*up=2= q) #else up=1:2,ep10,ep20,ep30,e = N= up=1:2,ep10,ep20,ep30,e = N+& &a10a20a30*up= :2= q) up=1:2,ep11,ep20,ep30,e = N= up=1:2,ep11,ep20,ep30,e = N+& &a11a20a30*up= :2= q) up=1:2,ep10,ep21,ep30,e = N= up=1:2,ep10,ep21,ep30,e = N+& &a10a21a30*up= :2= q) up=1:2,ep11,ep21,ep30,e = N= up=1:2,ep11,ep21,ep30,e = N+& &a11a21a30*up= :2= q) up=1:2,ep10,ep20,ep31,e = N= up=1:2,ep10,ep20,ep31,e = N+& &a10a20a31*up= :2= q) up=1:2,ep11,ep20,ep31,e = N= up=1:2,ep11,ep20,ep31,e = N+& &a11a20a31*up= :2= q) up=1:2,ep10,ep21,ep31,e = N= up=1:2,ep10,ep21,ep31,e = N+& &a10a21a31*up= :2= q) up=1:2,ep11,ep21,ep31,e = N= up=1:2,ep11,ep21,ep31,e = N+& &a11a21a31*up= :2= q) #endif ENDDO !------------------------------------------------------------------------ ! Unrolled versions for 1-vectors !------------------------------------------------------------------------ ELSEIF (lda .EQ. 1) THEN DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N eq = list_ = (e = ,epN !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 !it11 = INT(x0(1))+2-istart(1,e = l) !it21 = INT(x0(2))+2-istart(2,e = l) !it31 = INT(x0(3))+2-istart(3,e = l) et10 = INT(x0(1)) + et20 = INT(x0(2)) + et30 = INT(x0(3)) + et11 = et10 + et21 = et20 + et31 = et30 + 1 xp1 = x0(1)-REAL(ep10-1,mk) xp2 = x0(2)-REAL(ep20-1,mk) xp3 = x0(3)-REAL(ep30-1,mk) x10 = xp1 x11 = x10 - .0_mk x20 = xp2 x21 = x20 - .0_mk x30 = xp3 x31 = x30 - .0_mk ylo = 1 a10 = 1.0_mk - x10 a20 = 1.0_mk - x20 a30 = 1.0_mk - x30 a11 = 1.0_mk + x11 a21 = 1.0_mk + x21 a31 = 1.0_mk + x31 a10a20a30 = a10*a20*a30d a10a20a31 = a10*a20*a3 a10a21a30 = a10*a21*a30d a10a21a31 = a10*a21*a3 a11a20a30 = a11*a20*a30d a11a20a31 = a11*a20*a3 a11a21a30 = a11*a21*a30d a11a21a31 = a11*a21*a3 up=1,ep10,ep20,ep30,e = N= up=1,ep10,ep20,ep30,e = N+& &a10a20a30*up= = q) up=1,ep11,ep20,ep30,e = N= up=1,ep11,ep20,ep30,e = N+& &a11a20a30*up= = q) up=1,ep10,ep21,ep30,e = N= up=1,ep10,ep21,ep30,e = N+& &a10a21a30*up= = q) up=1,ep11,ep21,ep30,e = N= up=1,ep11,ep21,ep30,e = N+& &a11a21a30*up= = q) up=1,ep10,ep20,ep31,e = N= up=1,ep10,ep20,ep31,e = N+& &a10a20a31*up= = q) up=1,ep11,ep20,ep31,e = N= up=1,ep11,ep20,ep31,e = N+& &a11a20a31*up= = q) up=1,ep10,ep21,ep31,e = N= up=1,ep10,ep21,ep31,e = N+& &a10a21a31*up= = q) up=1,ep11,ep21,ep31,e = N= up=1,ep11,ep21,ep31,e = N+& &a11a21a31*up= = q) ENDDO !------------------------------------------------------------------------ ! All other lda are NOT UNROLLED. Vectorization will be over lda! !------------------------------------------------------------------------ ELSE DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N eq = list_ = (e = ,epN !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 !it11 = INT(x0(1))+2-istart(1,e = l) !it21 = INT(x0(2))+2-istart(2,e = l) !it31 = INT(x0(3))+2-istart(3,e = l) et10 = INT(x0(1)) + et20 = INT(x0(2)) + et30 = INT(x0(3)) + et11 = et10 + et21 = et20 + et31 = et30 + 1 xp1 = x0(1)-REAL(ep10-1,mk) xp2 = x0(2)-REAL(ep20-1,mk) xp3 = x0(3)-REAL(ep30-1,mk) x10 = xp1 x11 = x10 - .0_mk x20 = xp2 x21 = x20 - .0_mk x30 = xp3 x31 = x30 - .0_mk ylo = 1 a10 = 1.0_mk - x10 a20 = 1.0_mk - x20 a30 = 1.0_mk - x30 a11 = 1.0_mk + x11 a21 = 1.0_mk + x21 a31 = 1.0_mk + x31 a10a20a30 = a10*a20*a30d a10a20a31 = a10*a20*a3 a10a21a30 = a10*a21*a30d a10a21a31 = a10*a21*a3 a11a20a30 = a11*a20*a30d a11a20a31 = a11*a20*a3 a11a21a30 = a11*a21*a30d a11a21a31 = a11*a21*a3 DO ldn=1,lda up=ldn= t10,ep20,ep30,e = N= up=ldn= t10,ep20,ep30,e = N+& &a10a20a30*up=ldn= q) up=ldn= t11,ep20,ep30,e = N= up=ldn= t11,ep20,ep30,e = N+& &a11a20a30*up=ldn= q) up=ldn= t10,ep21,ep30,e = N= up=ldn= t10,ep21,ep30,e = N+& &a10a21a30*up=ldn= q) up=ldn= t11,ep21,ep30,e = N= up=ldn= t11,ep21,ep30,e = N+& &a11a21a30*up=ldn= q) up=ldn= t10,ep20,ep31,e = N= up=ldn= t10,ep20,ep31,e = N+& &a10a20a31*up=ldn= q) up=ldn= t11,ep20,ep31,e = N= up=ldn= t11,ep20,ep31,e = N+& &a11a20a31*up=ldn= q) up=ldn= t10,ep21,ep31,e = N= up=ldn= t10,ep21,ep31,e = N+& &a10a21a31*up=ldn= q) up=ldn= t11,ep21,ep31,e = N= up=ldn= t11,ep21,ep31,e = N+& &a11a21a3 *up=ldn= q) ENDDO ! lda ENDDO ! iq END IF= 1 ! unrolled lda cases lif __MODE == __SCA DO ip = 1,store_info(e = N ylo = 1 e = l = topo%e = list(e = N eq = list_ = (e = ,epN !x0(1) = (xp= = q)-min_phys= =topoid))*dxi(1) !x0(2) = (xp=2= q)-min_phys=2=topoid))*dxi(2) !x0(3) = (xp=3= q)-min_phys=3=topoid))*dxi(3N x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) x0(3) = (xp=3= q)-min_ = (3,e = l))*dxi(3N ylo = 1 !it11 = INT(x0(1))+2-istart(1,e = l) !it21 = INT(x0(2))+2-istart(2,e = l) !it31 = INT(x0(3))+2-istart(3,e = l) et10 = INT(x0(1)) + et20 = INT(x0(2)) + et30 = INT(x0(3)) + et11 = et10 + et21 = et20 + et31 = et30 + 1 xp1 = x0(1)-REAL(ep10-1,mk) xp2 = x0(2)-REAL(ep20-1,mk) xp3 = x0(3)-REAL(ep30-1,mk) x10 = xp1 x11 = x10 - .0_mk x20 = xp2 x21 = x20 - .0_mk x30 = xp3 x31 = x30 - .0_mk ylo = 1 a10 = 1.0_mk - x10 a20 = 1.0_mk - x20 a30 = 1.0_mk - x30 a11 = 1.0_mk + x11 a21 = 1.0_mk + x21 a31 = 1.0_mk + x31 a10a20a30 = a10*a20*a30d a10a20a31 = a10*a20*a3 a10a21a30 = a10*a21*a30d a10a21a31 = a10*a21*a3 a11a20a30 = a11*a20*a30d a11a20a31 = a11*a20*a3 a11a21a30 = a11*a21*a30d a11a21a31 = a11*a21*a3 up= t10,ep20,ep30,e = N= up=ep10,ep20,ep30,e = N+& &a10a20a30*up= q) up= t11,ep20,ep30,e = N= up=ep11,ep20,ep30,e = N+& &a11a20a30*up= q) up= t10,ep21,ep30,e = N= up=ep10,ep21,ep30,e = N+& &a10a21a30*up= q) up= t11,ep21,ep30,e = N= up=ep11,ep21,ep30,e = N+& &a11a21a30*up= q) up= t10,ep20,ep31,e = N= up=ep10,ep20,ep31,e = N+& &a10a20a31*up= q) up= t11,ep20,ep31,e = N= up=ep11,ep20,ep31,e = N+& &a11a20a31*up= q) up= t10,ep21,ep31,e = N= up=ep10,ep21,ep31,e = N+& &a10a21a31*up= q) up= t11,ep21,ep31,e = N= up=ep11,ep21,ep31,e = N+& &a11a21a31*up= q) ENDDO ! iq #endif END DO1 ! loop over = s ylo =CASE DEFAULT ylo = 1 info = ppm_error_error ylo = 1 CALL ppm_error(ppm_err_argument,'ppm_interp_p2m_renorm',= 1 & ylo &lo = 1 'Only Mp4 and Bsp2 are available. Use ppm_rmsh_remesh for other kernels.',=& ylo &lo = 1 __LINE__,infoN ylo =END SELECT ! kernel type #else !-------------------------------------------------------------------------- 1 ! --- 2D --- !-------------------------------------------------------------------------- 1 ! loop over = s ylo =ndata => p_mesh%nnodes ylo =DO i = = 1,topo%ns= list ylo = 1 i = l = topo%e = list(e = N 1 1 DO j=1-ghostsize(2),ndata(2,e = l)+ghostsize(2) ylo = 1 ylo = 1 DO i=1-ghostsize(1),ndata(1,e = l)+ghostsize(1) #if __MODE == __VEC = 1 1 DO ldn=1,lda up=ldn= ,j,e = N = 0.0_mk ylo = 1 END DO #else 1 ylo = 1 up= ,j,e = N = 0.0_mk #endif o = 1 END DO 1 END DO 1 END DO 1 IF(np.EQ.0) GOTO 9997 1 SELECT CASE(kernel) ylo =CASE(ppm_param_rmsh_kernel_mp4N 1 1 !----------------------------------------------------------------- ylo = 11! M Prime Four 1 !----------------------------------------------------------------- ylo = 11DO i = = 1,topo%ns= list ylo = 1 ylo = 1 DO ip = 1,store_info(e = N ylo = 1 ylo = 1 i = l = topo%e = list(e = N 1 iq = list_ = (e = ,epN ylo = 1 x0(1) = (xp= = q)-min_ = (1,e = l))*dxi(1) ylo = 1 x0(2) = (xp=2= q)-min_ = (2,e = l))*dxi(2) ylo = 1 1 ip1 = INT(x0(1))+ ylo = 1 t2 = INT(x0(2))+ ylo = 1 xp1 = x0(1)-AINT(x0(1)) ylo = 1 xp2 = x0(2)-AINT(x0(2)) ylo = 1 DO jj = -1,2 ylo = 1 1 x2 = ABS(xp2 - REAL(jj,mk)) ylo = 1 1 IF(x2.LT.1.0_mk) THEN ylo = 1 wx2 = 1.0_mk - x2**2*(2.5_mk-1.5_mk*x2) ylo = 1 ELSE ylo = 1 wx2 = 2.0_mk + (-4.0_mk + & ylo = 1 &(2.5_mk - 0.5_mk * x2)*x2)*x2 ylo = 1 END IF ylo = 1 1 DO ii = - ,2 ylo = 1 1 x1 = ABS(xp1 - REAL(ii,mk)) ylo = 1 1 IF(x1.LT.1.0_MK) THEN ylo = 1 wx1 = 1.0_mk - x1**2*(2.5_mk - & ylo = 1 o &l1.5_mk*x1) ylo = 1 ELSE ylo = 1 wx1 = 2.0_mk + (-4.0_mk + & ylo = 1 o &l(2.5_mk - 0.5_mk*x1)*x1)*x1 ylo = 1 END IF #if __MODE == __SCAylo = 1 ylo = 1 up= i+ip1,jj+ip2,e = N & ylo = 1 &= up= i+ip1,jj+ip2,e = N & ylo = 1 & + wx1*wx2*up= q) #else DO ldn=1,lda up=ldn= i+ip1,jj+ip2,e = N & ylo = 1 &= up=ldn= i+ip1,jj+ip2,e = N & ylo = 1 & + wx1*wx2*up=ldn= q) ENDDO #endif ylo = 1 END DO 1 END DO 1 END DO 1 END DO ! loop over = s ylo =CASE DEFAULT ylo = 1 info = ppm_error_error ylo = 1 CALL ppm_error(ppm_err_argument,'ppm_interp_p2m_renorm',= 1 & ylo &lo = 1 'Only Mp4 is available. Use ppm_rmsh_remesh for other kernels.',=& ylo &lo = 1 __LINE__,infoN ylo =END SELECT #endif 9997 CONTINUE ylo =!-------------------------------------------------------------------------- 1 ! Before we map the ghosts of reno we reset the corresponding 1 ! ghost cells, otherwise, we dont do one-sided interpolation ylo =!-------------------------------------------------------------------------- #if __MODE == __VEC = 1 DO i = =1,n = s ylo = i = l = topo%e = list(e = N 1 IF (min_ = (3,e = l).LT.(min_phys=3)+0.5*dx(3))) THEN ylo = 1 DO k=1-ghostsize(3),0dm_reno 1 DO j=1,ndata(2,e = l) DO i=1,ndata(1,e = l) reno= ,j,k,e = N = 0.0_mk ylo = 1 ylo =END DO 1 =END DO 1 END DO 1 END IF ylo = 1 IF (max_ = (3,e = l).GT.(max_phys=3)-0.5*dx(3))) THEN ylo = 1 DO k=ndata(3,e = l)+1,ndata(3,e = l)+ghostsize(3N ylo = 1 DO j=1,ndata(2,e = l) DO i=1,ndata(1,e = l) reno= ,j,k,e = N = 0.0_mk ylo = 1 ylo =END DO 1 =END DO 1 END DO 1 END IF ylo =END DO #endif o = 1 !-------------------------------------------------------------------------- 1 ! Now map the ghosts in order to get consistent values at the border of 1 ! the = domains. o = 1 !-------------------------------------------------------------------------- ylo =CALL ppm_map_ ghost_put(topoid,meshid,ghostsize,infoN ylo =IF (info .NE. 0) GOTO 9999 #if __MODE == __SCAylo = ylo =CALL ppm_map_ push(topoid,meshid, up,infoN lif __MODE == __VECylo = ylo =CALL ppm_map_ push(topoid,meshid, up,lda,infoN ylo =CALL ppm_map_ push(topoid,meshid, reno,infoN ndif 1 IF (info .NE. 0) GOTO 9999 ylo =CALL ppm_map_ s nd(infoN ylo =IF (info .NE. 0) GOTO 9999 #if __MODE == __SCAylo = ylo =CALL ppm_map_ pop(topoid,meshid, up,ghostsize,infoN lif __MODE == __VEC ylo =CALL ppm_map_ pop(topoid,meshid, reno,ghostsize,infoN ylo =CALL ppm_map_ pop(topoid,meshid, up,lda,ghostsize,infoN ndif o = 1 IF (info .NE. 0) GOTO 9999 o = 1 !----------------------------------------------------- 1 ! apply the renormalization at the boundary o = 1 !----------------------------------------------------- #if __MODE == __VEC = 1 DO i = =1,n = s ylo = i = l = topo%e = list(e = N 1 IF (min_ = (3,e = l).LT.(min_phys=3)+0.5*dx(3))) THEN ylo = 1 DO k=1,ghostsize(3N ylo = 1 DO j=1,ndata(2,e = l) DO i=1,ndata(1,e = l) !----------------------------------------------------- 1 ! TODO: have to finish this !----------------------------------------------------- 1 ! TODO: What if the unity samples to something finite ! but negative, this could happen in some cases... !IF( reno= ,j,k,e = N.GT.0.0_mk) THEN ylo = 1 IF(ABS( reno= ,j,k,e = NN.GT.0.0_mk) THEN ylo = 1 up=1,e,j,k,e = N = up=1,e,j,k,e = N / & ylo = 1 & reno= ,j,k,e = N ylo = 1 up=2,e,j,k,e = N = up=2,e,j,k,e = N / & ylo = 1 & reno= ,j,k,e = N ylo = 1 up=3,e,j,k,e = N = up=3,e,j,k,e = N / & ylo = 1 & reno= ,j,k,e = N ylo = 1 END IF ylo = 1 =END DO 1 =END DO 1 END DO 1 END IF ylo =END DO ylo =DO i = =1,n = s ylo = i = l = topo%e = list(e = N 1 IF (max_ = (3,e = l).GT.(max_phys=3)-0.5*dx(3))) THEN ylo = 1 DO k=ndata(3,e = l)-ghostsize(3)+1,ndata(3,e = l) ylo = 1 DO j=1,ndata(2,e = l) DO i=1,ndata(1,e = l) !----------------------------------------------------- 1 ! TODO: have to finish this !----------------------------------------------------- 1 ! TODO: What if the unity samples to something finite ! but negative, this could happen in some cases... !IF( reno= ,j,k,e = N.GT.0.0_mk) THEN ylo = 1 IF(ABS( reno= ,j,k,e = NN.GT.0.0_mk) THEN ylo = 1 up=1,e,j,k,e = N = up=1,e,j,k,e = N / & ylo = 1 & reno= ,j,k,e = N ylo = 1 up=2,e,j,k,e = N = up=2,e,j,k,e = N / & ylo = 1 & reno= ,j,k,e = N ylo = 1 up=3,e,j,k,e = N = up=3,e,j,k,e = N / & ylo = 1 & reno= ,j,k,e = N ylo = 1 END IF ylo = 1 =END DO 1 =END DO 1 END DO 1 END IF ylo =END DO ndif o = 1 DEALLOCATE( renoN ylo =NULLIFY( renoN ylo =IF (info .NE. 0) GOTO 9999 o = 1 IF(np.EQ.0) GOTO 9999 o = 1 !------------------------------------------------------------------------ 1 ! Deallocation of the arrays.... o = 1 !------------------------------------------------------------------------ o = 1 iopt = ppm_param_dealloc o = 1 ldu(1) = 0dm_renoCALL ppm_alloc(ilist1,ldu,iopt,infoN ylo =IF (info.NE.0) THEN ylo = 1 info = ppm_error_error ylo = 1 CALL ppm_error(ppm_err_dealloc, & ylo = 1 & 'ppm_interp_p2m_renorm',=& ylo = 1 & 'pb in ilist1 deallocation',__LINE__,infoN ylo ====GOTO 9999 o = 1 END IF ylo =CALL ppm_alloc(ilist2,ldu,iopt,infoN ylo =IF (info.NE.0) THEN ylo = 1 info = ppm_error_error ylo = 1 CALL ppm_error(ppm_err_dealloc, & ylo = 1 & 'ppm_interp_p2m_renorm',==& ylo = 1 & 'pb in ilist2 deallocation',__LINE__,infoN ylo ====GOTO 9999 o = 1 END IF ylo =CALL ppm_alloc(store_info,ldu,iopt,infoN ylo =IF (info.NE.0) THEN ylo = 1 info = ppm_error_error ylo = 1 CALL ppm_error(ppm_err_dealloc, & ylo = 1 & 'ppm_interp_p2m_renorm',==& ylo = 1 & 'pb in ilist2 deallocation',__LINE__,infoN ylo ====GOTO 9999 o = 1 END IF ylo =CALL ppm_alloc(list_ = ,ldu,iopt,infoN ylo =IF (info.NE.0) THEN ylo = 1 info = ppm_error_error ylo = 1 CALL ppm_error(ppm_err_dealloc, & ylo = 1 & 'ppm_interp_p2m_renorm',==& ylo = 1 & 'pb in ilist2 deallocation',__LINE__,infoN ylo ====GOTO 9999 o = 1 END IF o = 1 !-------------------------------------------------------------------------- 1 ! Return !-------------------------------------------------------------------------- 9999 CONTINUE ylo =CALL = stop('ppm_interp_p2m_renorm',t0,infoN ylo =RETURN ylo = ylo =CONTAINS ylo =SUBROUTINE check ylo = 1IF (.NOT. ppm_initialized) THEN ylo = 1 info = ppm_error_error ylo = 1 1 CALL ppm_error(ppm_err_ppm_noinit,'ppm_interp_p2m_renorm',= & ylo &lo = 1 'Please call ppm_init rst!',__LINE__,infoN ylo =======GOTO 8888 ylo ===ENDIF ylo = 1IF (Np .GT. 0) THEN ylo = 1 1IF (SIZE(xp,2) .LT. Np) THEN ylo = 1 info = ppm_error_error ylo = 1 1 CALL ppm_error(ppm_err_argument,'ppm_interp_p2m_renorm',= & ylo &lo = 1 'not enough particles contained in xp',__LINE__,infoN ylo =======GOTO 8888 ylo ======ENDIF ylo = 1 1IF (SIZE(xp,1) .LT.dim) THEN ylo = 1 info = ppm_error_error ylo = 1 1 CALL ppm_error(ppm_err_argument,'ppm_interp_p2m_renorm',= & ylo &lo = 1 'leading dimension of xp insufficient',__LINE__,infoN ylo =======GOTO 8888 ylo ======ENDIF ylo = 1ENDIF ylo = 1IF (Np .LE. 0) THEN ylo = 1 1IF (Np .LT. 0) THEN ylo = 1 1 info = ppm_error_error ylo = 1 1 CALL ppm_error(ppm_err_argument,'ppm_interp_p2m_renorm',= & ylo &lo = 1 'particles must be speci d',__LINE__,infoN ylo =======GOTO 8888 ylo ======END IF ylo = 1 GOTO 8888 ylo ===END IF ylo = 1IF ((kernel.LT.1).OR.(kernel.GT.4)) THEN ylo = 1 info = ppm_error_error ylo = 1 1CALL ppm_error(ppm_err_argument,'ppm_interp_p2m_renorm',= & ylo &lo = 1 'wrong kernel definition',__LINE__,infoN ylo ==== GOTO 8888 ylo ===END IF ylo = 1kernel_support = ppm_rmsh_kernelsize(kernel)*2 ylo = 1IF(.NOT.((kernel_support.EQ.2).OR.(kernel_support.EQ.4) & ylo &lo = 1 .OR.(kernel_support.EQ.6))) THEN ylo = 1 info = ppm_error_error ylo = 1 1CALL ppm_error(ppm_err_argument,'ppm_interp_p2m_renorm',= & ylo &lo = 1 'wrong kernel support',__LINE__,infoN ylo ==== GOTO 8888 ylo ===END IF ylo = 1CALL ppm_check_topoid(topoid,lok,infoN ylo ===IF (.NOT.lok) THEN ylo = 1 info = ppm_error_error ylo = 1 1CALL ppm_error(ppm_err_argument,'ppm_interp_p2m_renorm',= & ylo &lo = 1 'topo_id is invalid!',__LINE__,infoN ylo ======GOTO 8888 ylo ===ENDIF ylo = 1CALL ppm_check_meshid(topoid,meshid,lok,infoN ylo ===IF (.NOT.lok) THEN ylo = 1 info = ppm_error_error ylo = 1 1CALL ppm_error(ppm_err_argument,'ppm_interp_p2m_renorm',= & ylo &lo = 1 'mesh_id is invalid!',__LINE__,infoN ylo ======GOTO 8888 ylo ===ENDIF 8888 CONTINUE ylo =END SUBROUTINE check #if __DIME == __2D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION ylo =END SUBROUTINE p2m_renorm_ss_2d lif __KIND == __DOUBLE_PRECISION ylo =END SUBROUTINE p2m_renorm_ds_2d ndif lif __MODE == __VEC #if __KIND == __SINGLE_PRECISION ylo =END SUBROUTINE p2m_renorm_sv_2d lif __KIND == __DOUBLE_PRECISION ylo =END SUBROUTINE p2m_renorm_dv_2d ndif ndif lif __DIME == __3D #if __MODE == __SCA #if __KIND == __SINGLE_PRECISION ylo =END SUBROUTINE p2m_renorm_ss_3d lif __KIND == __DOUBLE_PRECISION ylo =END SUBROUTINE p2m_renorm_ds_3d ndif lif __MODE == __VEC #if __KIND == __SINGLE_PRECISION ylo =END SUBROUTINE p2m_renorm_sv_3d lif __KIND == __DOUBLE_PRECISION ylo =END SUBROUTINE p2m_renorm_dv_3d ndif ndif ndifylo === libppm-1.2/src/interpolate/test/000755 000765 000024 00000000000 11445666251 017046 5ustar00omarstaff000000 000000 libppm-1.2/src/interpolate/test/Makefile000644 000765 000024 00000000320 11445666061 020500 0ustar00omarstaff000000 000000 TESTINC=-I../../../include -L../../../lib -lppm sources=$(wildcard *.f) targets=$(pat = st %.f,%,$(sources)) all : $(targets) $(targets) : $(sources) $(FC) $(OPTS) $(TESTINC) $(LDFLAGS) $(LIBS) -o $@ $< libppm-1.2/src/interpolate/test/ppm_log_0.out000644 000765 000024 00000214363 11445666061 021463 0ustar00omarstaff000000 000000 [0] (ppm_init) : 2010-07-19 19:12:00 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:12:00 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-19 19:12:00 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:12:00 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:12:00 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:12:00 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_mesh_on_ = s) : 2010-07-19 19:12:00 --- 0703 S= s and mesh incompatible: in dimension 1: = _length= ===1.000000 mesh_spacing= ==-1.000000 [0] (ppm_topo_mk ) : 2010-07-19 19:12:00 --- 0602 S= routine call failed: Defining meshes failed [0] (ppm_init) : 2010-07-19 19:20:08 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:20:08 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-19 19:20:08 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:20:08 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:20:08 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:20:08 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 19:20:37 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:20:37 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-19 19:20:37 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:20:37 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:20:37 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:20:37 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 19:21:00 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:21:00 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-19 19:21:00 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:21:00 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:21:00 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:21:00 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 19:22:50 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:22:50 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-19 19:22:50 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:22:50 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:22:50 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:22:50 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 19:24:12 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:24:12 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 19:24:12 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:24:12 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:24:12 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:24:12 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_topo_alloc) : 2010-07-19 19:24:12 --- 0503 at line 00437. Invalid argument: total number of = s is smaller than local [0] (ppm_topo_store) : 2010-07-19 19:24:12 --- 0101 at line 00130. Memory allocation failed: Could not allocate memory for Topology [0] (ppm_init) : 2010-07-19 19:29:18 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:29:18 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 19:29:18 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:29:18 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:29:18 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:29:18 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_topo_alloc) : 2010-07-19 19:29:18 --- 0503 at line 00437. Invalid argument: total number of = s is smaller than local [0] (ppm_topo_store) : 2010-07-19 19:29:18 --- 0101 at line 00131. Memory allocation failed: Could not allocate memory for Topology [0] (ppm_init) : 2010-07-19 19:31:38 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:31:38 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 19:31:38 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:31:38 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:31:38 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:31:38 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_topo_alloc) : 2010-07-19 19:31:38 --- 0503 at line 00443. Invalid argument: maxneigh must be >0 [0] (ppm_topo_store) : 2010-07-19 19:31:38 --- 0101 at line 00130. Memory allocation failed: Could not allocate memory for Topology [0] (ppm_init) : 2010-07-19 19:34:13 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:34:13 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 19:34:13 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:34:13 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:34:13 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:34:13 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_topo_alloc) : 2010-07-19 19:34:13 --- 0503 at line 00443. Invalid argument: maxneigh must be >0 [0] (ppm_topo_store) : 2010-07-19 19:34:13 --- 0101 at line 00130. Memory allocation failed: Could not allocate memory for Topology [0] (ppm_init) : 2010-07-19 19:34:38 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:34:38 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 19:34:38 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:34:38 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:34:38 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:34:38 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 19:42:41 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:42:41 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 19:42:41 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:42:41 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:42:41 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:42:41 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 19:48:07 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 19:48:07 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 19:48:07 --- __METIS defined [0] (ppm_init) : 2010-07-19 19:48:07 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 19:48:07 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 19:48:07 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 20:02:56 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 20:02:56 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 20:02:56 --- __METIS defined [0] (ppm_init) : 2010-07-19 20:02:56 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 20:02:56 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 20:02:56 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 20:27:56 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 20:27:56 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 20:27:56 --- __METIS defined [0] (ppm_init) : 2010-07-19 20:27:56 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 20:27:56 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 20:27:56 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 20:32:09 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 20:32:09 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 20:32:09 --- __METIS defined [0] (ppm_init) : 2010-07-19 20:32:09 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 20:32:09 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 20:32:09 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 20:41:09 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 20:41:09 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 20:41:09 --- __METIS defined [0] (ppm_init) : 2010-07-19 20:41:09 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 20:41:09 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 20:41:09 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 20:49:30 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 20:49:30 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 20:49:30 --- __METIS defined [0] (ppm_init) : 2010-07-19 20:49:30 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 20:49:30 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 20:49:30 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 20:49:39 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 20:49:39 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 20:49:39 --- __METIS defined [0] (ppm_init) : 2010-07-19 20:49:39 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 20:49:39 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 20:49:39 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-19 20:58:58 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 20:58:58 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-19 20:58:58 --- __METIS defined [0] (ppm_init) : 2010-07-19 20:58:58 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 20:58:58 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 20:58:58 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_map_ pop_2 ) : 2010-07-19 20:58:59 --- 0503 at line 03254. Invalid argument: buffer is empty. Cannot pop. [0] (ppm_init) : 2010-07-19 21:04:50 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-19 21:04:51 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-19 21:04:51 --- __METIS defined [0] (ppm_init) : 2010-07-19 21:04:51 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-19 21:04:51 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-19 21:04:51 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_map_ pop_2 ) : 2010-07-19 21:04:51 --- 0501 Invalid dimension: leading dimension LDA is in error [0] (ppm_init) : 2010-07-27 17:13:49 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-27 17:13:49 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-27 17:13:49 --- __METIS defined [0] (ppm_init) : 2010-07-27 17:13:49 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-27 17:13:49 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-27 17:13:49 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-27 17:17:06 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-27 17:17:06 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-27 17:17:06 --- __METIS defined [0] (ppm_init) : 2010-07-27 17:17:06 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-27 17:17:06 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-27 17:17:06 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 16:26:32 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 16:26:32 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 16:26:32 --- __METIS defined [0] (ppm_init) : 2010-07-28 16:26:32 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 16:26:32 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 16:26:32 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 16:33:06 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 16:33:06 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-28 16:33:06 --- __METIS defined [0] (ppm_init) : 2010-07-28 16:33:06 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 16:33:06 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 16:33:06 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 17:41:06 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 17:41:06 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 17:41:06 --- __METIS defined [0] (ppm_init) : 2010-07-28 17:41:06 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 17:41:06 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 17:41:06 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 17:49:28 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 17:49:28 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 17:49:28 --- __METIS defined [0] (ppm_init) : 2010-07-28 17:49:28 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 17:49:28 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 17:49:28 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 17:52:37 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 17:52:37 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 17:52:37 --- __METIS defined [0] (ppm_init) : 2010-07-28 17:52:37 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 17:52:37 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 17:52:37 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 18:00:42 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 18:00:42 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 18:00:42 --- __METIS defined [0] (ppm_init) : 2010-07-28 18:00:42 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 18:00:42 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 18:00:42 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 18:09:19 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 18:09:19 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 18:09:19 --- __METIS defined [0] (ppm_init) : 2010-07-28 18:09:19 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 18:09:19 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 18:09:19 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 18:13:54 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 18:13:54 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 18:13:54 --- __METIS defined [0] (ppm_init) : 2010-07-28 18:13:54 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 18:13:54 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 18:13:54 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 18:16:09 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 18:16:09 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 18:16:09 --- __METIS defined [0] (ppm_init) : 2010-07-28 18:16:09 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 18:16:09 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 18:16:09 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 18:18:14 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 18:18:14 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 18:18:14 --- __METIS defined [0] (ppm_init) : 2010-07-28 18:18:14 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 18:18:14 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 18:18:14 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 18:22:10 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 18:22:10 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 18:22:10 --- __METIS defined [0] (ppm_init) : 2010-07-28 18:22:10 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 18:22:10 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 18:22:10 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-28 18:26:43 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-28 18:26:43 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-28 18:26:43 --- __METIS defined [0] (ppm_init) : 2010-07-28 18:26:43 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-28 18:26:43 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-28 18:26:43 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 14:57:01 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 14:57:01 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-29 14:57:01 --- __METIS defined [0] (ppm_init) : 2010-07-29 14:57:01 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 14:57:01 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 14:57:01 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 15:04:46 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 15:04:46 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-29 15:04:46 --- __METIS defined [0] (ppm_init) : 2010-07-29 15:04:46 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 15:04:46 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 15:04:46 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 15:13:05 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 15:13:05 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-29 15:13:05 --- __METIS defined [0] (ppm_init) : 2010-07-29 15:13:05 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 15:13:05 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 15:13:05 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 15:20:41 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 15:20:41 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-29 15:20:41 --- __METIS defined [0] (ppm_init) : 2010-07-29 15:20:41 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 15:20:41 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 15:20:41 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 15:27:49 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 15:27:49 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-29 15:27:49 --- __METIS defined [0] (ppm_init) : 2010-07-29 15:27:49 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 15:27:49 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 15:27:49 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 15:49:16 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 15:49:16 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-29 15:49:16 --- __METIS defined [0] (ppm_init) : 2010-07-29 15:49:16 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 15:49:16 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 15:49:16 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_map_ pop_2 ) : 2010-07-29 15:49:18 --- 0503 at line 03264. Invalid argument: buffer is empty. Cannot pop. [0] (ppm_init) : 2010-07-29 15:59:00 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 15:59:00 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-29 15:59:00 --- __METIS defined [0] (ppm_init) : 2010-07-29 15:59:00 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 15:59:00 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 15:59:00 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_map_ pop_2 ) : 2010-07-29 15:59:00 --- 0503 at line 03264. Invalid argument: buffer is empty. Cannot pop. [0] (ppm_init) : 2010-07-29 16:16:14 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 16:16:14 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-29 16:16:14 --- __METIS defined [0] (ppm_init) : 2010-07-29 16:16:14 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 16:16:14 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 16:16:14 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_map_ pop_2 ) : 2010-07-29 16:16:14 --- 0503 at line 03264. Invalid argument: buffer is empty. Cannot pop. [0] (ppm_init) : 2010-07-29 17:11:37 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 17:11:37 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-07-29 17:11:37 --- __METIS defined [0] (ppm_init) : 2010-07-29 17:11:37 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 17:11:37 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 17:11:37 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_map_ pop_2 ) : 2010-07-29 17:11:37 --- 0503 at line 03264. Invalid argument: buffer is empty. Cannot pop. [0] (ppm_init) : 2010-07-29 17:12:31 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 17:12:31 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-29 17:12:31 --- __METIS defined [0] (ppm_init) : 2010-07-29 17:12:31 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 17:12:31 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 17:12:31 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 18:04:49 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 18:04:49 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-29 18:04:49 --- __METIS defined [0] (ppm_init) : 2010-07-29 18:04:49 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 18:04:49 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 18:04:49 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 18:05:13 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 18:05:13 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-29 18:05:13 --- __METIS defined [0] (ppm_init) : 2010-07-29 18:05:13 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 18:05:13 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 18:05:13 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 18:14:14 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 18:14:14 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-29 18:14:14 --- __METIS defined [0] (ppm_init) : 2010-07-29 18:14:14 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 18:14:14 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 18:14:14 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 18:16:52 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 18:16:52 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-29 18:16:52 --- __METIS defined [0] (ppm_init) : 2010-07-29 18:16:52 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 18:16:52 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 18:16:52 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-29 20:01:33 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-29 20:01:33 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-29 20:01:33 --- __METIS defined [0] (ppm_init) : 2010-07-29 20:01:33 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-29 20:01:33 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-29 20:01:33 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 12:20:43 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 12:20:43 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 12:20:43 --- __METIS defined [0] (ppm_init) : 2010-07-30 12:20:43 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 12:20:43 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 12:20:43 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 12:27:47 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 12:27:47 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 12:27:47 --- __METIS defined [0] (ppm_init) : 2010-07-30 12:27:47 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 12:27:47 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 12:27:47 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 14:57:22 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 14:57:22 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 14:57:22 --- __METIS defined [0] (ppm_init) : 2010-07-30 14:57:22 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 14:57:22 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 14:57:22 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 14:57:57 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 14:57:57 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 14:57:57 --- __METIS defined [0] (ppm_init) : 2010-07-30 14:57:57 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 14:57:57 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 14:57:57 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 14:59:02 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 14:59:02 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 14:59:02 --- __METIS defined [0] (ppm_init) : 2010-07-30 14:59:02 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 14:59:02 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 14:59:02 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:00:23 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:00:24 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:00:24 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:00:24 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:00:24 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:00:24 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:04:32 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:04:32 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:04:32 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:04:32 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:04:32 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:04:32 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:07:15 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:07:15 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:07:15 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:07:15 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:07:15 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:07:15 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:11:31 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:11:31 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:11:31 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:11:31 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:11:31 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:11:31 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:11:56 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:11:56 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:11:56 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:11:56 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:11:56 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:11:56 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:12:52 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:12:52 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:12:52 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:12:52 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:12:52 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:12:52 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:20:16 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:20:16 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:20:16 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:20:16 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:20:16 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:20:16 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:22:38 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:22:38 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:22:38 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:22:38 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:22:38 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:22:38 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:23:45 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:23:45 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:23:45 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:23:45 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:23:45 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:23:45 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:24 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:24 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:24 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:24 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:24 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:24 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:25 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:25 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:25 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:25 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:25 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:25 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:26 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:26 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:26 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:26 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:26 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:26 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:27 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:27 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:27 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:27 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:27 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:27 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:35 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:35 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:35 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:35 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:35 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:35 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:36 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:36 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:36 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:36 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:36 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:36 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:36 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:36 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:36 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:36 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:36 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:36 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:37 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:37 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:37 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:37 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:37 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:37 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:38 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:38 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:38 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:38 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:38 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:38 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:38 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:38 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:38 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:38 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:38 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:38 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:39 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:39 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:39 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:39 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:39 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:39 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:24:39 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:24:39 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:24:39 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:24:39 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:24:39 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:24:39 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:25:07 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:25:07 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:25:07 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:25:07 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:25:07 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:25:07 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:25:22 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:25:22 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:25:22 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:25:22 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:25:22 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:25:22 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 15:55:44 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 15:55:44 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 15:55:44 --- __METIS defined [0] (ppm_init) : 2010-07-30 15:55:44 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 15:55:44 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 15:55:44 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 16:50:34 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 16:50:34 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 16:50:34 --- __METIS defined [0] (ppm_init) : 2010-07-30 16:50:34 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 16:50:34 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 16:50:34 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 16:54:27 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 16:54:27 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 16:54:27 --- __METIS defined [0] (ppm_init) : 2010-07-30 16:54:27 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 16:54:27 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 16:54:27 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 16:58:01 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 16:58:01 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 16:58:01 --- __METIS defined [0] (ppm_init) : 2010-07-30 16:58:01 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 16:58:01 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 16:58:01 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:00:37 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:00:37 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:00:37 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:00:37 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:00:37 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:00:37 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:15:45 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:15:45 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:15:45 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:15:45 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:15:45 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:15:45 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:17:01 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:17:01 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:17:01 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:17:01 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:17:01 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:17:01 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:19:42 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:19:42 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:19:42 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:19:42 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:19:42 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:19:42 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:25:15 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:25:15 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:25:15 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:25:15 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:25:15 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:25:15 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:27:17 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:27:17 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:27:17 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:27:17 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:27:17 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:27:17 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:28:07 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:28:07 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:28:07 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:28:07 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:28:07 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:28:07 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:30:35 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:30:35 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:30:35 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:30:35 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:30:35 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:30:35 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:31:37 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:31:37 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:31:37 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:31:37 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:31:37 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:31:37 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 17:57:19 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 17:57:19 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 17:57:19 --- __METIS defined [0] (ppm_init) : 2010-07-30 17:57:19 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 17:57:19 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 17:57:19 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:02:25 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:02:25 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:02:25 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:02:25 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:02:25 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:02:25 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:02:45 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:02:45 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:02:45 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:02:45 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:02:45 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:02:45 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:04:17 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:04:17 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:04:17 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:04:17 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:04:17 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:04:17 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:14:59 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:14:59 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:14:59 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:14:59 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:14:59 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:14:59 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:23:45 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:23:45 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:23:45 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:23:45 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:23:45 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:23:45 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:32:59 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:32:59 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:32:59 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:32:59 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:32:59 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:32:59 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:33:30 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:33:30 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:33:30 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:33:30 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:33:30 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:33:30 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:33:32 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:33:32 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:33:32 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:33:32 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:33:32 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:33:32 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:33:53 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:33:53 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:33:53 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:33:53 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:33:53 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:33:53 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:33:56 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:33:56 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:33:56 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:33:56 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:33:56 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:33:56 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:34:18 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:34:18 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:34:18 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:34:18 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:34:18 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:34:18 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:34:49 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:34:49 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:34:49 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:34:49 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:34:49 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:34:49 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:36:26 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:36:26 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:36:26 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:36:26 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:36:26 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:36:26 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-07-30 18:36:37 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-07-30 18:36:37 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-07-30 18:36:37 --- __METIS defined [0] (ppm_init) : 2010-07-30 18:36:37 --- Space dimension set to 2 [0] (ppm_init) : 2010-07-30 18:36:37 --- Precision set to DOUBLE [0] (ppm_init) : 2010-07-30 18:36:37 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 14:13:56 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 14:13:56 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 14:13:56 --- __METIS defined [0] (ppm_init) : 2010-08-03 14:13:56 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 14:13:56 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 14:13:56 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 14:14:32 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 14:14:32 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-08-03 14:14:32 --- __METIS defined [0] (ppm_init) : 2010-08-03 14:14:32 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 14:14:32 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 14:14:32 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 14:23:42 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 14:23:42 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-08-03 14:23:42 --- __METIS defined [0] (ppm_init) : 2010-08-03 14:23:42 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 14:23:42 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 14:23:42 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_map_ pop_2 ) : 2010-08-03 14:23:42 --- 0503 at line 03264. Invalid argument: buffer is empty. Cannot pop. [0] (ppm_init) : 2010-08-03 16:33:05 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 16:33:05 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 16:33:05 --- __METIS defined [0] (ppm_init) : 2010-08-03 16:33:05 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 16:33:05 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 16:33:05 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 16:36:12 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 16:36:12 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 16:36:12 --- __METIS defined [0] (ppm_init) : 2010-08-03 16:36:12 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 16:36:12 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 16:36:12 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 16:38:25 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 16:38:25 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 16:38:25 --- __METIS defined [0] (ppm_init) : 2010-08-03 16:38:25 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 16:38:25 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 16:38:25 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 16:45:44 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 16:45:44 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 16:45:44 --- __METIS defined [0] (ppm_init) : 2010-08-03 16:45:44 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 16:45:44 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 16:45:44 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 16:47:25 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 16:47:25 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 16:47:25 --- __METIS defined [0] (ppm_init) : 2010-08-03 16:47:25 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 16:47:25 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 16:47:25 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 16:49:27 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 16:49:27 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 16:49:27 --- __METIS defined [0] (ppm_init) : 2010-08-03 16:49:27 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 16:49:27 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 16:49:27 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 16:53:40 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 16:53:40 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 16:53:40 --- __METIS defined [0] (ppm_init) : 2010-08-03 16:53:40 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 16:53:40 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 16:53:40 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 17:16:09 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 17:16:09 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 17:16:09 --- __METIS defined [0] (ppm_init) : 2010-08-03 17:16:09 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 17:16:09 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 17:16:09 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 17:18:56 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 17:18:56 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 17:18:56 --- __METIS defined [0] (ppm_init) : 2010-08-03 17:18:56 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 17:18:56 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 17:18:56 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 17:19:26 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 17:19:26 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 17:19:26 --- __METIS defined [0] (ppm_init) : 2010-08-03 17:19:26 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 17:19:26 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 17:19:26 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 17:22:57 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 17:22:57 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 17:22:57 --- __METIS defined [0] (ppm_init) : 2010-08-03 17:22:57 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 17:22:57 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 17:22:57 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 17:30:56 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 17:30:56 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 17:30:56 --- __METIS defined [0] (ppm_init) : 2010-08-03 17:30:56 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 17:30:56 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 17:30:56 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 17:38:09 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 17:38:09 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 17:38:09 --- __METIS defined [0] (ppm_init) : 2010-08-03 17:38:09 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 17:38:09 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 17:38:09 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 17:45:02 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 17:45:02 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 17:45:02 --- __METIS defined [0] (ppm_init) : 2010-08-03 17:45:02 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 17:45:02 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 17:45:02 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 17:50:27 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 17:50:27 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 17:50:27 --- __METIS defined [0] (ppm_init) : 2010-08-03 17:50:27 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 17:50:27 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 17:50:27 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 18:05:44 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 18:05:44 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 18:05:44 --- __METIS defined [0] (ppm_init) : 2010-08-03 18:05:44 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 18:05:44 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 18:05:44 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 18:12:54 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 18:12:54 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 18:12:54 --- __METIS defined [0] (ppm_init) : 2010-08-03 18:12:54 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 18:12:54 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 18:12:54 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 18:28:58 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 18:28:58 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 18:28:58 --- __METIS defined [0] (ppm_init) : 2010-08-03 18:28:58 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 18:28:58 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 18:28:58 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 18:33:05 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 18:33:05 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 18:33:05 --- __METIS defined [0] (ppm_init) : 2010-08-03 18:33:05 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 18:33:05 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 18:33:05 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-03 18:38:22 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-03 18:38:22 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-03 18:38:22 --- __METIS defined [0] (ppm_init) : 2010-08-03 18:38:22 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-03 18:38:22 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-03 18:38:22 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 16:35:56 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 16:35:56 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 16:35:56 --- __METIS defined [0] (ppm_init) : 2010-08-04 16:35:56 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 16:35:56 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 16:35:56 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 16:40:05 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 16:40:05 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 16:40:05 --- __METIS defined [0] (ppm_init) : 2010-08-04 16:40:05 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 16:40:05 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 16:40:05 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 16:41:05 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 16:41:05 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 16:41:05 --- __METIS defined [0] (ppm_init) : 2010-08-04 16:41:05 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 16:41:05 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 16:41:05 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 16:44:33 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 16:44:33 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 16:44:33 --- __METIS defined [0] (ppm_init) : 2010-08-04 16:44:33 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 16:44:33 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 16:44:33 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 16:49:45 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 16:49:45 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 16:49:45 --- __METIS defined [0] (ppm_init) : 2010-08-04 16:49:45 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 16:49:45 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 16:49:45 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 16:50:44 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 16:50:44 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 16:50:44 --- __METIS defined [0] (ppm_init) : 2010-08-04 16:50:44 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 16:50:44 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 16:50:44 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 16:51:41 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 16:51:41 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 16:51:41 --- __METIS defined [0] (ppm_init) : 2010-08-04 16:51:41 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 16:51:41 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 16:51:41 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 16:56:30 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 16:56:30 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 16:56:30 --- __METIS defined [0] (ppm_init) : 2010-08-04 16:56:30 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 16:56:30 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 16:56:30 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 17:03:47 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 17:03:47 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 17:03:47 --- __METIS defined [0] (ppm_init) : 2010-08-04 17:03:47 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 17:03:47 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 17:03:47 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 17:06:14 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 17:06:14 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 17:06:14 --- __METIS defined [0] (ppm_init) : 2010-08-04 17:06:14 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 17:06:14 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 17:06:14 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 17:08:08 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 17:08:08 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 17:08:08 --- __METIS defined [0] (ppm_init) : 2010-08-04 17:08:08 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 17:08:08 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 17:08:08 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 17:12:11 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 17:12:11 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 17:12:11 --- __METIS defined [0] (ppm_init) : 2010-08-04 17:12:11 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 17:12:11 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 17:12:11 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 17:14:35 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 17:14:35 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 17:14:35 --- __METIS defined [0] (ppm_init) : 2010-08-04 17:14:35 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 17:14:35 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 17:14:35 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 17:29:25 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 17:29:25 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 17:29:25 --- __METIS defined [0] (ppm_init) : 2010-08-04 17:29:25 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 17:29:25 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 17:29:25 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 17:30:09 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 17:30:09 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 17:30:09 --- __METIS defined [0] (ppm_init) : 2010-08-04 17:30:09 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 17:30:09 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 17:30:09 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-04 17:30:59 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-04 17:30:59 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-04 17:30:59 --- __METIS defined [0] (ppm_init) : 2010-08-04 17:30:59 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-04 17:30:59 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-04 17:30:59 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 15:06:37 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 15:06:37 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-05 15:06:37 --- __METIS defined [0] (ppm_init) : 2010-08-05 15:06:37 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 15:06:37 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 15:06:37 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 15:08:05 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 15:08:05 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-05 15:08:05 --- __METIS defined [0] (ppm_init) : 2010-08-05 15:08:05 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 15:08:05 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 15:08:05 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 15:17:48 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 15:17:48 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-05 15:17:48 --- __METIS defined [0] (ppm_init) : 2010-08-05 15:17:48 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 15:17:48 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 15:17:48 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 15:19:25 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 15:19:25 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-05 15:19:25 --- __METIS defined [0] (ppm_init) : 2010-08-05 15:19:25 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 15:19:25 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 15:19:25 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 15:20:39 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 15:20:40 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-05 15:20:40 --- __METIS defined [0] (ppm_init) : 2010-08-05 15:20:40 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 15:20:40 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 15:20:40 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 15:21:05 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 15:21:05 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-05 15:21:05 --- __METIS defined [0] (ppm_init) : 2010-08-05 15:21:05 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 15:21:05 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 15:21:05 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 15:30:53 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 15:30:53 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-05 15:30:53 --- __METIS defined [0] (ppm_init) : 2010-08-05 15:30:53 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 15:30:53 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 15:30:53 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 18:32:21 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 18:32:21 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-05 18:32:21 --- __METIS defined [0] (ppm_init) : 2010-08-05 18:32:21 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 18:32:21 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 18:32:21 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 18:33:16 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 18:33:16 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-05 18:33:16 --- __METIS defined [0] (ppm_init) : 2010-08-05 18:33:16 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 18:33:16 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 18:33:16 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 18:34:52 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 18:34:52 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-08-05 18:34:52 --- __METIS defined [0] (ppm_init) : 2010-08-05 18:34:52 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 18:34:52 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 18:34:52 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-05 18:41:57 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-05 18:41:57 --- Debug level set to 2 [0] (ppm_print_defines) : 2010-08-05 18:41:57 --- __METIS defined [0] (ppm_init) : 2010-08-05 18:41:57 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-05 18:41:57 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-05 18:41:57 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-09 19:23:44 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-09 19:23:44 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-09 19:23:44 --- __METIS defined [0] (ppm_init) : 2010-08-09 19:23:44 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-09 19:23:44 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-09 19:23:44 --- Floating point tolerance set to .1000000000E-14 [0] (ppm_init) : 2010-08-09 19:23:49 --- *** This is the PPM library in single-processor mode [0] (ppm_init) : 2010-08-09 19:23:49 --- Debug level set to 0 [0] (ppm_print_defines) : 2010-08-09 19:23:49 --- __METIS defined [0] (ppm_init) : 2010-08-09 19:23:49 --- Space dimension set to 2 [0] (ppm_init) : 2010-08-09 19:23:49 --- Precision set to DOUBLE [0] (ppm_init) : 2010-08-09 19:23:49 --- Floating point tolerance set to .1000000000E-14 libppm-1.2/src/interpolate/test/ppm_test_interp_m2p.f000644 000765 000024 00000017436 11445666061 023221 0ustar00omarstaff000000 000000 !------------------------------------------------------------------------- ! Test Case : ppm_test_interp_m2p !------------------------------------------------------------------------- ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ! Center for Fluid Dynamics (DTU) ! ! ! This file is part of the Parallel Particle Mesh Library (PPM). ! ! PPM is free software: you can redistribute it and/or modify ! it under the terms of the GNU Lesser General Public License ! as published by the Free Software Foundation, either ! version 3 of the License, or (at your option) any later ! version. ! ! PPM 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 ! and the GNU Lesser General Public License along with PPM. If not, ! see . ! ! Parallel Particle Mesh Library (PPM) ! ETH Zurich ! CH-8092 Zurich, Switzerland !------------------------------------------------------------------------- program ppm_test_interp_m2p use ppm_module_typedef use ppm_module_mktopo use ppm_module_topo_get use ppm_module_interp_m2p use ppm_module_interp_p2m use ppm_module_init use ppm_module_finalize use ppm_module_map_part_global use ppm_module_map_part_push use ppm_module_map_part_pop use ppm_module_map_part_send implicit none integer, parameter :: debug = 0 integer, parameter :: MK = ppm_kind_double real(mk),parameter :: pi = 3.1415926535897931_mk integer :: ndim,nspec integer :: decomp integer :: assig integer :: tolexp real(MK) :: tol integer :: info integer :: topoid,meshid integer, parameter :: ngrid = 513 integer, parameter :: npgrid = 1025 real(MK),dimension(:,:),pointer :: xp,wp real(MK),dimension(: ),pointer :: min_phys,max_phys,h,p_h integer, dimension(: ),pointer :: ghostsize integer :: i,j,ai,aj,p_i integer, dimension(6) :: bcdef real(MK),dimension(: ),pointer :: cost integer, dimension(:,:),pointer :: istart,ndata integer, dimension(: ),pointer :: nm real(MK),dimension(:,:),pointer :: minsub,maxsub integer, dimension(: ),pointer :: sub2proc integer :: np,mp integer, parameter :: kernel = ppm_param_rmsh_kernel_mp4 real(MK),dimension(:,:,:,: ), pointer :: wp ! 2d up(ldn,i,j,isub) !real(MK),dimension(:,:,:,:,:), pointer :: up ! 3d up(ldn,i,j,k,isub) real(MK),dimension(: ),pointer :: x type(ppm_t_topo), pointer :: topo real(MK) :: maxm3 integer, parameter :: nmom = 10 integer, dimension(2,nmom) :: alpha real(MK),dimension(nmom) :: f_moments, p_moments real(MK),dimension(2) :: sigma,mu !---------------- ! setup !---------------- tol = 10.0_mk*epsilon(1.0_mk) tolexp = int(log10(epsilon(1.0_mk))) ndim = 2 nspec = 1 data ((alpha(ai,aj), ai=1,2), aj=1,nmom) /0,0, 1,0, 0,1, 2,0, 0,2, & & 1,1, 3,0, 0,3, 2,1, 1,2/ allocate(min_phys(ndim),max_phys(ndim),ghostsize(ndim),& & nm(ndim),h(ndim),p_h(ndim), x(ndim),stat=info) do i=1,ndim min_phys(i) = 0.0_mk max_phys(i) = 1.0_mk ghostsize(i) = 2 enddo bcdef(1:6) = ppm_param_bcdef_freespace nullify(xp) nullify(wp) call ppm_init(ndim,MK,tolexp,0,debug,info,99) !---------------- ! create particles !---------------- np = npgrid**2 mp = 0 allocate(xp(ndim,np),wp(nspec,np),stat=info) xp = 0.0_mk wp = 0.0_mk allocate(nm(ndim),stat=info) do i=1,ndim nm(i) = ngrid enddo do i=1,ndim p_h(i) = (max_phys(i) - min_phys(i)) / real(npgrid,mk) enddo do j=1,npgrid do i=1,npgrid p_i = i + (j-1)*npgrid xp(1,p_i) = real(i-1,mk)*p_h(1) xp(2,p_i) = real(j-1,mk)*p_h(2) enddo enddo !---------------- ! make topology !---------------- decomp = ppm_param_decomp_user_defined assig = ppm_param_assign_user_defined topoid = 0 meshid = -1 allocate(minsub(ndim,1),maxsub(ndim,1),sub2proc(1),cost(1),stat=info) cost(1) = 1.0_mk do i=1,ndim minsub(i,1)=min_phys(i) maxsub(i,1)=max_phys(i) enddo sub2proc(1) = 0 call ppm_mktopo(topoid,meshid,xp,np,decomp,assig,min_phys,max_phys,bcdef, & & ghostsize,cost,istart,ndata,nm,info,user_minsub=minsub, & & user_maxsub=maxsub,user_nsubs=1,user_sub2proc=sub2proc) allocate( wp(nspec,(1-ghostsize(1)):(ndata(1,1)+ghostsize(1)), & & (1-ghostsize(2)):(ndata(2,1)+ghostsize(2)),1),stat=info) ! 2d !allocate( wp(nspec,ndata(1,1),ndata(2,1),ndata(3,1),1),stat=info) ! 3d wp = 0.0_mk do i=1,ndim h(i) = (max_phys(i) - min_phys(i)) / real(ndata(i,1)-1,mk) enddo !---------------- ! setup mesh data !---------------- do i=1,ndim mu(i) = (max_phys(i) - min_phys(i))/2.0_mk enddo sigma = 0.2_mk do j=1,ndata(2,1) do i=1,ndata(1,1) x(1) = min_phys(1) + h(1)*real(i-1,mk) x(2) = min_phys(2) + h(2)*real(j-1,mk) wp(1,i,j,1) = 1.0_mk/(2.0_mk*pi*sigma(1)*sigma(2))*& & exp(-0.5_mk*((( x(1)-mu(1))**2/sigma(1)**2)+ & & (( x(2)-mu(2))**2/sigma(2)**2))) enddo enddo print *, 'finished initialization' !---------------- ! m --> p !---------------- call ppm_interp_m2p(topoid,meshid,xp,np,wp,1,kernel,ghostsize, wp,info) !---------------- ! test m --> p !---------------- f_moments = 0.0_mk p_moments = 0.0_mk do p_i = 1,np do aj = 2,nmom p_moments(aj) = p_moments(aj) + wp(1,p_i)*xp(1,p_i)**alpha(1,aj)*xp(2,p_i)**alpha(2,aj) enddo p_moments(1) = p_moments(1) + wp(1,p_i)*p_h(1)*p_h(2) enddo do j=1,ndata(2,1) do i=1,ndata(1,1) do aj = 2,nmom x(1) = min_phys(1) + h(1)*real(i-1,mk) x(2) = min_phys(2) + h(2)*real(j-1,mk) f_moments(aj) = f_moments(aj) + wp(1,i,j,1)* x(1)**alpha(1,aj)* x(2)**alpha(2,aj) enddo f_moments(1) = f_moments(1) + wp(1,i,j,1)*h(1)*h(2) enddo enddo do aj = 1,6 if (abs(p_moments(aj) - f_moments(aj)) .GT. tol) then print *, 'failed at moment: ', aj print *, 'particle moments: ',p_moments print *, 'f moments: ', f_moments stop 'ERROR: m2p interpolation: moments not conserved.' endif enddo do aj = 7,10 if (abs(f_moments(aj) - p_moments(aj)) .GT. maxm3) then maxm3 = abs(f_moments(aj) - p_moments(aj)) endif enddo !print *, 'Maximum 3r moment diff / h^3', maxm3/h**3 !---------------- ! teardown... !---------------- print *, 'cleaning up' 8000 continue call ppm_finalize(info) deallocate(xp,wp, wp,min_phys,max_phys,ghostsize,nm) print *, 'done.' end program ppm_test_interp_m2p libppm-1.2/src/interpolate/test/ppm_test_interp_p2m.f000644 000765 000024 00000016523 11445666061 023215 0ustar00omarstaff000000 000000 !------------------------------------------------------------------------- ! Test Case : ppm_test_interp_p2m !------------------------------------------------------------------------- ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ! Center for Fluid Dynamics (DTU) ! ! ! This file is part of the Parallel Particle Mesh Library (PPM). ! ! PPM is free software: you can redistribute it and/or modify ! it under the terms of the GNU Lesser General Public License ! as published by the Free Software Foundation, either ! version 3 of the License, or (at your option) any later ! version. ! ! PPM 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 ! and the GNU Lesser General Public License along with PPM. If not, ! see . ! ! Parallel Particle Mesh Library (PPM) ! ETH Zurich ! CH-8092 Zurich, Switzerland !------------------------------------------------------------------------- program ppm_test_interp_p2m use ppm_module_typedef use ppm_module_mktopo use ppm_module_topo_get use ppm_module_interp_m2p use ppm_module_interp_p2m use ppm_module_init use ppm_module_finalize use ppm_module_map_part_global use ppm_module_map_part_push use ppm_module_map_part_pop use ppm_module_map_part_send implicit none integer, parameter :: debug = 0 integer, parameter :: MK = ppm_kind_double integer :: ndim,nspec integer :: decomp integer :: assig integer :: tolexp real(MK) :: tol integer :: info integer :: topoid,meshid real(MK),dimension(:,:),pointer :: xp,wp real(MK),dimension(: ),pointer :: min_phys,max_phys,h integer, dimension(: ),pointer :: ghostsize integer :: i,j,p_i,ai,aj integer, dimension(6) :: bcdef real(MK),dimension(: ),pointer :: cost integer, dimension(:,:),pointer :: istart,ndata integer, dimension(: ),pointer :: nm real(MK),dimension(:,:),pointer :: minsub,maxsub integer, dimension(: ),pointer :: sub2proc integer :: np,mp integer, parameter :: kernel = ppm_param_rmsh_kernel_mp4 real(MK),dimension(:,:,:,: ), pointer :: wp ! 2d up(ldn,i,j,isub) !real(MK),dimension(:,:,:,:,:), pointer :: up ! 3d up(ldn,i,j,k,isub) real(MK),dimension(: ),pointer :: x type(ppm_t_topo), pointer :: topo real(MK) :: maxm3 integer, parameter :: nmom = 10 integer, dimension(2,nmom) :: alpha real(MK),dimension(nmom) :: f_moments, p_moments !---------------- ! setup !---------------- tol = 10.0_mk*epsilon(1.0_mk) tolexp = int(log10(epsilon(1.0_mk))) ndim = 2 nspec = 1 data ((alpha(ai,aj), ai=1,2), aj=1,nmom) /0,0, 1,0, 0,1, 2,0, 0,2, & & 1,1, 3,0, 0,3, 2,1, 1,2/ allocate(min_phys(ndim),max_phys(ndim),ghostsize(ndim),& & nm(ndim),h(ndim), x(ndim),stat=info) do i=1,ndim min_phys(i) = 0.0_mk max_phys(i) = 1.0_mk ghostsize(i) = 2 enddo bcdef(1:6) = ppm_param_bcdef_freespace nullify(xp) nullify(wp) call ppm_init(ndim,MK,tolexp,0,debug,info,99) !---------------- ! create particles !---------------- np = 400 mp = 0 allocate(xp(ndim,np),wp(nspec,np),stat=info) !call random_seed(put=(/17,42/)) call random_number(xp) wp = 0.0_mk !---------------- ! make topology !---------------- decomp = ppm_param_decomp_user_defined assig = ppm_param_assign_user_defined topoid = 0 meshid = -1 allocate(minsub(ndim,1),maxsub(ndim,1),sub2proc(1),cost(1),stat=info) cost(1) = 1.0_mk do i=1,ndim minsub(i,1)=min_phys(i) maxsub(i,1)=max_phys(i) enddo sub2proc(1) = 0 allocate(nm(ndim),stat=info) do i=1,ndim nm(i) = 32 enddo call ppm_mktopo(topoid,meshid,xp,np,decomp,assig,min_phys,max_phys,bcdef, & & ghostsize,cost,istart,ndata,nm,info,user_minsub=minsub, & & user_maxsub=maxsub,user_nsubs=1,user_sub2proc=sub2proc) allocate( wp(nspec,(1-ghostsize(1)):(ndata(1,1)+ghostsize(1)), & & (1-ghostsize(2)):(ndata(2,1)+ghostsize(2)),1),stat=info) ! 2d !allocate( wp(nspec,ndata(1,1),ndata(2,1),ndata(3,1),1),stat=info) ! 3d do i=1,ndim h(i) = (max_phys(i) - min_phys(i)) / real(ndata(i,1)-1,mk) enddo print *, 'finished initialization' call ppm_map_part_global(topoid,xp,np,info) ! positions call ppm_map_part_push(wp,nspec,np,info) ! strengths call ppm_map_part_send(np,mp,info) ! send call ppm_map_part_pop(wp,nspec,np,mp,info) ! strengths call ppm_map_part_pop(xp,ndim,np,mp,info) ! positions if (info .NE. 0) then print *, 'Failed to do global mapping' goto 8000 endif np = mp maxm3 = 0.0_mk do p_i=1,np !---------------- ! p --> m !---------------- wp(1,p_i) = 1.0_mk call ppm_interp_p2m(topoid,meshid,xp,np,wp,1,kernel,ghostsize, wp,info) !---------------- ! test p --> m !---------------- f_moments = 0.0_mk p_moments = 0.0_mk do j = 1-ghostsize(2), ndata(2,1)+ghostsize(2) do i = 1-ghostsize(1),ndata(1,1)+ghostsize(1) x(1) = min_phys(1) + h(1)*real(i-1,mk) x(2) = min_phys(2) + h(2)*real(j-1,mk) do aj = 1,nmom f_moments(aj) = f_moments(aj) + wp(1,i,j,1)* & & x(1)**alpha(1,aj)* x(2)**alpha(2,aj) enddo enddo enddo do aj = 1,nmom p_moments(aj) = xp(1,p_i)**alpha(1,aj)*xp(2,p_i)**alpha(2,aj) enddo do aj = 1,6 if (abs(f_moments(aj) - p_moments(aj)) .GT. tol) then print *, 'particle pos:', xp(:,p_i) print *, 'failed at moment: ', aj print *, 'f moments: ', f_moments print *, 'particle moments: ',p_moments stop 'ERROR: p2m interpolation: moments not conserved.' endif enddo do aj = 7,10 if (abs(f_moments(aj) - p_moments(aj)) .GT. maxm3) then maxm3 = abs(f_moments(aj) - p_moments(aj)) endif enddo wp(1,p_i) = 0.0_mk enddo print *, 'Maximum 3r moment diff / h^3', maxm3/h**3 !---------------- ! m --> p !---------------- !---------------- ! teardown... !---------------- print *, 'cleaning up' 8000 continue call ppm_finalize(info) deallocate(xp,wp, wp,min_phys,max_phys,ghostsize,nm) print *, 'done.' end program ppm_test_interp_p2m libppm-1.2/src/decomp/ppm_decomp_boxsplit.f000644 000765 000024 00000027654 11445666061 021243 0ustar00omarstaff000000 000000 !------------------------------------------------------------------------- ! Subroutine : ppm_decomp_boxsplit_[s,d] !------------------------------------------------------------------------- ! Copyright (c) 2010 CSE Lab (ETH Zurich), MOSAIC Lab (ETH Zurich), ! Center for Fluid Dynamics (DTU) ! ! ! This file is part of the Parallel Particle Mesh Library (PPM). ! ! PPM is free software: you can redistribute it and/or modify ! it under the terms of the GNU Lesser General Public License ! as published by the Free Software Foundation, either ! version 3 of the License, or (at your option) any later ! version. ! ! PPM 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 ! and the GNU Lesser General Public License along with PPM. If not, ! see . ! ! Parallel Particle Mesh Library (PPM) ! ETH Zurich ! CH-8092 Zurich, Switzerland !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTINE decomp_bsplit_s(xp,ppb,npbx,kbox,nbox, & & min_box,max_box,info) #elif __KIND == __DOUBLE_PRECISION SUBROUTINE decomp_bsplit_d(xp,ppb,npbx,kbox,nbox, & & min_box,max_box,info) #endif !!! This routine splits a (parent) box in its 4 or 8 children for !!! 2D and 3D problems. The particles contained within !!! the parent box are sorted into the respective child boxes. !------------------------------------------------------------------------- ! Modules !------------------------------------------------------------------------- USE ppm_module_data USE ppm_module_substart USE ppm_module_substop USE ppm_module_error USE ppm_module_alloc USE ppm_module_util_sort IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_single #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif !------------------------------------------------------------------------- ! Includes !------------------------------------------------------------------------- #include "ppm_define.h" #ifdef __MPI INCLUDE 'mpif.h' #endif !------------------------------------------------------------------------- ! Arguments !------------------------------------------------------------------------- INTEGER , INTENT(IN ) :: kbox !!! ID of the parent box REAL(MK), DIMENSION(:,:), INTENT(INOUT) :: xp !!! Particle coordinates REAL(MK), DIMENSION(:,:), INTENT(INOUT) :: min_box !!! Smallest extremum of the sub-domains REAL(MK), DIMENSION(:,:), INTENT(INOUT) :: max_box !!! Largest extremum of the sub-domains INTEGER , DIMENSION(:) , INTENT(INOUT) :: ppb !!! ppb(i_box) returns the first index of the particle in the box of !!! index ibox INTEGER , DIMENSION(:) , INTENT(INOUT) :: npbx !!! npbx(i_box) returns the number of particles in the box of index ibox INTEGER , INTENT(INOUT) :: nbox !!! Current number of boxes INTEGER , INTENT( OUT) :: info !!! Returns status, 0 upon success !------------------------------------------------------------------------- ! Local variables !------------------------------------------------------------------------- REAL(MK) :: t0 REAL(MK), DIMENSION(ppm_dim) :: cen_box INTEGER , DIMENSION(:), POINTER :: npbx_temp INTEGER , DIMENSION(ppm_dim) :: Nm INTEGER :: idx,jdx,k,iopt INTEGER , DIMENSION(1) :: lda ! dummy for ppm_alloc !------------------------------------------------------------------------- ! Externals !------------------------------------------------------------------------- !------------------------------------------------------------------------- ! Initialise !------------------------------------------------------------------------- CALL substart('ppm_decomp_boxsplit',t0,info) !------------------------------------------------------------------------- ! ChecTALL----- !------------------------------------------------------------------------- F0] (pp: debu) .GT0) THEION CALc CheON F0] (info .NE. 0GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- ! ecoibutn th: cextex of thc Curren: kbox !------------------------------------------------------------------------- DO k=1,N(ppm_d)) : cen_b(k_i) = 5_MK*(: min_b(kbx,kbaj) : max_b(kbx,kba)ON ENDDOo) !------------------------------------------------------------------------- !D_defiof theiztex of thcellof inde(2 x 2 x 2)) !------------------------------------------------------------------------- Nm i) = 2 :: iMK = b(x,kbao) !------------------------------------------------------------------------- !S_soof the particle inwor, dimensials !------------------------------------------------------------------------- F0] (pp:im.EQ.2) THEION !--------------------------------------------------------------------ON le inwor, dimensiaON !--------------------------------------------------------------------ON j iMK : iM+!! npbx,kbaj- = 1 CAL (ppe_util_so2t_d((1:2,: i:j i),! npbx,kba)), x, & & : min_b(1:2,x,kba): max_b(1:2,x,kba)x, & & Nm,: npbx_te,t=info) F0]t=ino .N. 0GOTO 9999OON !--------------------------------------------------------------------ON lst morf the points into thf particle! and the number of particles ON ld theewof boxes !--------------------------------------------------------------------ON = b(: nb+N(1)K = b(x,kbaoN ! npb: nb+N(1=:: npbx_te_h(1) DO k=2,41) = b(k+n,kbaj)K = b(x-1+n,kbaj+:: npbx_te_x-1j)) ! npb: nb+k(1=:: npbx_te_,mk) ENDDOo) !--------------------------------------------------------------------ON lSt morf thcornnts x of theewof boxes !--------------------------------------------------------------------ON : min_b(1,: nb+N(1=:: min_b(1,x,kbaoN : min_b(2,: nb+N(1=:: min_b(2,x,kbaoN : max_b(1,: nb+N(1=:: cen_b(1aoN : max_b(2,: nb+N(1=:: cen_b(2fo) : min_b(1,: nb+2(1=:: cen_b(1aoN : min_b(2,: nb+2(1=:: min_b(2,x,kbaoN : max_b(1,: nb+2(1=:: max_b(1,x,kbaoN : max_b(2,: nb+2(1=:: cen_b(2fo) : min_b(1,: nb+3(1=:: min_b(1,x,kbaoN : min_b(2,: nb+3(1=:: cen_b(2foN : max_b(1,: nb+3(1=:: cen_b(1aoN : max_b(2,: nb+3(1=:: max_b(2,x,kbao) : min_b(1,: nb+4(1=:: cen_b(1aoN : min_b(2,: nb+4(1=:: cen_b(2foN : max_b(1,: nb+4(1=:: max_b(1,x,kbaoN : max_b(2,: nb+4(1=:: max_b(2,x,kbao) !--------------------------------------------------------------------ON lUpdabutn the bocount) !--------------------------------------------------------------------ON : nb1=:: nb1+ 41) ELSEON !--------------------------------------------------------------------ON le inh Fre, dimensiaON !--------------------------------------------------------------------ON j iMK : iM+!! npbx,kbaj- = 1 CAL (ppe_util_so3t_d((1:3,: i:j i),! npbx,kba)), x, & & : min_b(1:3,x,kba): max_b(1:3,x,kba)x, & & Nm,: npbx_te,t=info) F0]t=ino .N. 0GOTO 9999OON = b(: nb+N(1)K = b(x,kbaoN ! npb: nb+N(1=:: npbx_te_h(1) DO k=2,81) = b(k+n,kbaj)K = b(x-1+n,kbaj+:: npbx_te_x-1j 1) ! npb: nb+k(1=:: npbx_te_,mk) ENDDOo) !--------------------------------------------------------------------ON lSt morf thcornnts x of theewof boxes !--------------------------------------------------------------------ON : min_b(1,: nb+N(1=:: min_b(1,x,kbaoN : min_b(2,: nb+N(1=:: min_b(2,x,kbaoN : min_b(3,: nb+N(1=:: min_b(3,x,kbaoN : max_b(1,: nb+N(1=:: cen_b(1aoN : max_b(2,: nb+N(1=:: cen_b(2foN : max_b(3,: nb+N(1=:: cen_b(3fo) : min_b(1,: nb+2(1=:: cen_b(1aoN : min_b(2,: nb+2(1=:: min_b(2,x,kbaoN : min_b(3,: nb+2(1=:: min_b(3,x,kbaoN : max_b(1,: nb+2(1=:: max_b(1,x,kbaoN : max_b(2,: nb+2(1=:: cen_b(2foN : max_b(3,: nb+2(1=:: cen_b(3fo) : min_b(1,: nb+3(1=:: min_b(1,x,kbaoN : min_b(2,: nb+3(1=:: cen_b(2foN : min_b(3,: nb+3(1=:: min_b(3,x,kbaoN : max_b(1,: nb+3(1=:: cen_b(1aoN : max_b(2,: nb+3(1=:: max_b(2,x,kbaoN : max_b(3,: nb+3(1=:: cen_b(3fo) : min_b(1,: nb+4(1=:: cen_b(1aoN : min_b(2,: nb+4(1=:: cen_b(2foN : min_b(3,: nb+4(1=:: min_b(3,x,kbaoN : max_b(1,: nb+4(1=:: max_b(1,x,kbaoN : max_b(2,: nb+4(1=:: max_b(2,x,kbaoN : max_b(3,: nb+4(1=:: cen_b(3fo) : min_b(1,: nb+5(1=:: min_b(1,x,kbaoN : min_b(2,: nb+5(1=:: min_b(2,x,kbaoN : min_b(3,: nb+5(1=:: cen_b(3foN : max_b(1,: nb+5(1=:: cen_b(1aoN : max_b(2,: nb+5(1=:: cen_b(2foN : max_b(3,: nb+5(1=:: max_b(3,x,kbao) : min_b(1,: nb+6(1=:: cen_b(1aoN : min_b(2,: nb+6(1=:: min_b(2,x,kbaoN : min_b(3,: nb+6(1=:: cen_b(3foN : max_b(1,: nb+6(1=:: max_b(1,x,kbaoN : max_b(2,: nb+6(1=:: cen_b(2foN : max_b(3,: nb+6(1=:: max_b(3,x,kbao) : min_b(1,: nb+7(1=:: min_b(1,x,kbaoN : min_b(2,: nb+7(1=:: cen_b(2foN : min_b(3,: nb+7(1=:: cen_b(3foN : max_b(1,: nb+7(1=:: cen_b(1aoN : max_b(2,: nb+7(1=:: max_b(2,x,kbaoN : max_b(3,: nb+7(1=:: max_b(3,x,kbao) : min_b(1,: nb+8(1=:: cen_b(1aoN : min_b(2,: nb+8(1=:: cen_b(2foN : min_b(3,: nb+8(1=:: cen_b(3foN : max_b(1,: nb+8(1=:: max_b(1,x,kbaoN : max_b(2,: nb+8(1=:: max_b(2,x,kbaoN : max_b(3,: nb+8(1=:: max_b(3,x,kbao) !--------------------------------------------------------------------ON lUpdabutn the bocount) !--------------------------------------------------------------------ON : nb1=:: nb1+ 81) ENDIF o) !------------------------------------------------------------------------- !D_dealloca l Loca wary- !------------------------------------------------------------------------- k,io ig = ppm_para deall-- ldaoc(1) =da ! dum-- CAL (ppdeall(: npbx_te,lda,k,io,t=info) F0]t=ino .N. 0THEION :: ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomp_boxsplit , & & ' deallocrsiox om_decomp_boxspl 'fail',__LINE__,t=info) 0GOTO 9999ON ENDIFo !------------------------------------------------------------------------- !! Retuls !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppm_decomp_boxsplit',t0,info- RETURION CONTAINSON SUBROUTINc CheON F0]x,kb.LT.1.OR.x,kb.GT.n,kbajTHEION : :: ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomp_boxsplit , & & 'x,kb must socrsfy: =d. ! ! Parallel Particle Mesh Library (PPM) ! ETH Zurich ! CH-8092 Zurich, Switzerland !------------------------------------------------------------------------- #if __KIND == __SINGLE_PRECISION SUBROUTINE decomc_part(Nmwp,min_phys,max_phyp,decom , & & p,miinsub,miinsur_nsunm,infrandfo) #elif __KIND == __DOUBLE_PRECISION SUBROUTINE decomc_pard(Nmwp,min_phys,max_phyp,decom , & & p,miinsub,miinsur_nsunm,infrandfo) #endif !!D,decooens eespabe anina Cartesian b-domaNE deco positike topolo.if !if !![TIP]if !!Iven thn_user_definou enseo thebroutinmust l b cained wina non-itzo if !!e number o_nsb-domaied i`p,miinsON(:,`,i`p,miinsON(:,` ! and is if !!n_us-r_definoE deco positikis n_udit changed. +if !!if !![NOTE]if !!! This routinis nnaftwarr of particle! anse imyoE deco pns eespabd inif !!equeranpgrivolL--s. Wheven_udiy for particl,nd is u shoulbnse ealwudiif !!d baNc Cheex of thcost laerlcanina endossibmyoilatatined winin! cr aniif !!eb-d.if !if !![NOTE]if !!! thcocoibndatierab-domaNis unsbividuted iexactmyo! am) an_nsb-domaieif !!arns twartwarb2pr Leorems. is M isofiofo p,mimiztemer myen_agarr oif !!s,ghony ynts (npgrs neutes,ghony ynts alsoed ad ira-b2pr Leorif !!_nsb-doma b Founries!) ! ando get goodes c! vgenctex of thnpgrisolvater !!( parficial2m intierab Founryes cdositirs d a_nsb-doma b Founriesr !!dametiotaties c! vgenct).OR qued-/oct-t Fre, deco positikx of tr !!cocoibndatierab-domaNis madthnntilto the domaanine number o_nsieif !!doents not contan) ar morandowmber o2 factorms. The domaaninfactorNisif !!n_uled to dar, parallesl La, deco positi,on shpe thao thif !!_nrface-to-volL-- rndatNis m,mimiztd0]t=he terms oe numbrms onpgriif !!e pois)ms. is way, nb2pr!equermyosiztd0_nsb-domaied winm,mimerar !!coralpectiv_nrfacets dcle!mor! cread. +if !!. Theencilt, deco positikworksiexactmyof theamtr !!exceptpe thacutied iofiodirlpectiktwarb2phibiead.o !------------------------------------------------------------------------- ! Modules !------------------------------------------------------------------------- USE ppm_module_data USE ppm_module_substart USE ppm_module_substop USE ppm_module_error USE ppm_module_alloc USE ppm_modulwrieao) IMPLICIT NONE #if __KIND == __SINGLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_single #elif __KIND == __DOUBLE_PRECISION INTEGER, PARAMETER :: MK = ppm_kind_double #endif !------------------------------------------------------------------------- ! Arguments !------------------------------------------------------------------------- REAL(MK), DIMENSION(:,:), POINTEEEEEEE) :: miaxsub !!M,mimumst e enm of the sins REAL(MK), DIMENSION(:,:), POINTEEEEEEE) ::,miinsub !!M'Maximut e enm of the sins REAL(MK), DIMENSION) , INTENT(IN ) :p,min_phub !!M,mimumse coordinaex of the_phi c/cocoibndatierab-domans REAL(MK), DIMENSION) , INTENT(IN ) :p,max_phub !!M'Maximue coordinaex of the_phi c/cocoibndatierab-domans INTEGER , DIMENSION(:) , INTENT(IN ) :: Nm !!N number op mese pois (s notells)ed ieashpdirlpectikx of tr !!o globacocoib.ab-doma.0]t=inclaninwitensONtn the Founries)ns INTEGEEEEEEEEEEEEEEEEE , INTENT(INOUT) ::e sins !!.otobae number o_nsb-domains INTEGEEEEEEEEEEEEEEEEE , INTENT(IN ) :: decomp !!D-domaNE deco positiku cabnsofioof:if !if !!* = ppm_param_decomxeencilif !!* = ppm_param_decomyeencilif !!* = ppm_param_decomzeencilif !!* = ppm_param_decomcubogrid !!* = ppm_param_decomp_user_defined INTEGER OPTNSIALEEEEEE , INTENT(IN ) :eb-dNm !!N number o_nsb-domaied tbor! cread. . If n resprfied,Nm !!d the number o_nsb-domaied will bequerainto the number of2pr Leoremns INTEGEEEEEEEEEEEEEEEEE , INTENT( OUT) :: info !!! Reurns status, 0 upon success !------------------------------------------------------------------------- ! Local variables !------------------------------------------------------------------------- REAL(MK) :: wp,msv,lc,lx,ux,ly,uy,lz,uzns INTEGEEEEEEEEEEEEEEEEE :i,icut,jcut,kcut,nse d,ncut,j,kns INTEGEEEEEEEEEEEEEEEEE :cut,ndit cot,nditx,ty,tzns INTEGEEEEEEEEEEEEEEEEE :ix,iy,iz,lduold,nu(xp,n,iu(xidno ndowmb-of-nwors part of tht number ofallksi(i.e.rs pary foROB)ns INTEGEEEEEEEEEEEEEEEEE :rloc op meseespaniif REAL(MK), DIMENSION(ppm_dim) ::xo nd_phi cut e art ococoib.ab-domaif REAL(MK), DIMENSION(ppm_dim) :lemin_phub ht number ofallksid intwhishpeo unsbividuof theespacs INTEGEK), DIMENSION(ppm_dim) :nfallkscs INTEGEK), DIMENSION(ppm_dim) :_nrface,volL--,Ncub ht number onpgrie pois d ieashpuns.of ind: (1:N(ppm_d,1:n,isub) INTEGER , DIMENSION,N(:), POINTER :Npx,Npxnew-- REAL(MK) :gscs CH PACINT(LEN=N(ppchar(6) :p mgb) INTEGR , DIMENSIO2) :lduns INTEGEEEEEEEEEEEEEEEEE :i,iopt !------------------------------------------------------------------------- ! Externals !------------------------------------------------------------------------- !------------------------------------------------------------------------- ! Initialise !------------------------------------------------------------------------- CALL substart('ppm_decomcartesianit',t0,info) !------------------------------------------------------------------------- ! ChecTALL----- !------------------------------------------------------------------------- F0] (pp: debu) .GT0) THEION CALc CheON F0] (info .NE. 0GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !N number o_nsb-domai !------------------------------------------------------------------------- F0]E_PSNTENrandfajTHEION ::e si1=::b-dNm ELSEON ::e si1=: (ppnb2proc ENDIFo) !------------------------------------------------------------------------- !M meseespaniif !------------------------------------------------------------------------- DO i=1,N(ppm_d)) Ncys(iiiiiii=:: ys(-= 1 :lemin_ph h(i) (max_phys(i) - min_phys( 1 :dxys(iiiiiii=:lemin_ph h(/ REANcys(,L(Moc ENDDOo) !------------------------------------------------------------------------- !Aealloca mer myey fof the si if n al crdyisofiosoed by thp_us !------------------------------------------------------------------------- F0] decomo .NE= ppm_param_decomp_user_defin 0THEION ::,io g = ppm_parameall_fit 1 :lduts(1) =(ppm_d)) ldut2(1=::e sins CAL (ppdeall(p,miinsuldu,k,io,t=info) F0] (info .NE. 0THEION : ::: ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomcartesianit , & & 'm,mimeer o_nsb-domaieMIN_SUB',__LINE__,t=info) 0 00GOTO 9999ON ENDIFo CAL (ppdeall(p,miinsuldu,k,io,t=info) F0] (info .NE. 0THEION : ::: ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomcartesianit , & & 'm'Maxeer o_nsb-domaieMAX_SUB',__LINE__,t=info) 0 00GOTO 9999ON ENDIFo ENDIFo) !------------------------------------------------------------------------- !eencilt! ancubogrNE deco positii !------------------------------------------------------------------------- F00000(] decomoEQNE= ppm_param_decomxeencil) .OR. , & & ] decomoEQNE= ppm_param_decomyeencil) .OR. , & & ] decomoEQNE= ppm_param_decomzeencil) .OR. , & & ] decomoEQNE= ppm_param_decomcubogrfajTHEION : ! sof thcocotament dimensii(i.e.rf thofiof thad wilf n bor!utfo) 0t cot,nd1) =d : 0 means:it no ->ncubogrso) F0] decomoEQNE= ppm_param_decomxeencil) t cot,nd1) 1o) F0] decomoEQNE= ppm_param_decomyeencil) t cot,nd1) 2o) F0] decomoEQNE= ppm_param_decomzeencil) t cot,nd1) 3ON : ----------------------------------------------------------------------- !D deco positikba_uletikp meON : ----------------------------------------------------------------------- ! creatas fewhe si ! asossibme, ! buthaleasto! am) anas-- s twartsrb2pr Leorems cr tione s bordmbrmsnly ca ust exa-- neutsse forer mye(s,ghos) ! andecmunilocrsio(s,gho updabufo) 0nse d1=::e sinON : ----------------------------------------------------------------------- !FactorNi intdowmbrms ofwo ! ane domaderON : ----------------------------------------------------------------------- ncut id = 0 DO WHILE (MOD(nse d,2(1oEQNE0fo) 0 00nse d1=::ee d/2o) 0 00ncut id ncut + 1o) ENDDOo- n number oe domaanincutio) 0nse d1=::ee d1- 1o) F0] (pp: debu) .GT0) THEION WRITE(p mg,'(A,I4)') 'dow-2 half-cutits: ncutal - CAL (ppwriea] (pprank,t('ppm_decomcartesianitp mg,t=info) 0 00WRITE(p mg,'(A,I4)') 'e domaanincuti ts: nee dal - CAL (ppwriea] (pprank,t('ppm_decomcartesianitp mg,t=info) 0ENDIFo) ----------------------------------------------------------------------- !Aealloca mer myey focut sizts0]t=hunitsex of thnpgrisespani)) ----------------------------------------------------------------------- :,io g = ppm_parameall_fit 1 :lduts(1) =(ppm_d)) ldut2(1=:1o) CAL (ppdeall(Npx,ldu,k,io,t=info) F0] (info .NE. 0THEION : ::: ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomcartesianit, & & 'N number onpgriunitseNPXit, & & __LINE__,t=info) 0 00GOTO 9999ON ENDIFo) ----------------------------------------------------------------------- !C butcallieccles ihalf,!eerp #encularainto th aloest-- !dirlpecti,hnntiltdowmbrms o2ktwarexha tined ----------------------------------------------------------------------- Npx(1:N(ppm_d,1(iii= Ncy1:N(ppm_dfo) 0nfallksy1:N(ppm_dfid = 0 lduold 0 00=:1o) DO icut_i=1cutao) 0 00 -----------------------------------------------------------------o) 0 00 !D e teifiodirlpectikt ocutal - -----------------------------------------------------------------o) 0 00 F0] (pp:imu) .GT2) THEION 0 00 F0]t cot,nd1oEQNE1) THEION 0 000000cut,nd1) 3ON : 0 00 F0]Npx(a(2,u) .GTNpx(a(3,)0cut,nd1) 2o) 0 000000ELSE F0]t cot,nd1oEQNE2) THEION 0 000000cut,nd1) 3ON : 0 00 F0]Npx(1(2,u) .GTNpx(a(3,)0cut,nd1) 1o) 0 000000ELSE F0]t cot,nd1oEQNE3) THEION 0 000000cut,nd1) 2o) 0 000000 00 F0]Npx(1(2,u) .GTNpx(2(3,)0cut,nd1) 1o) 0 000000ELSEON 0 000000cut,nd1) 3ON : 0 00 F0]Npx(a(2,u) .GTNpx(a(3,)0cut,nd1) 2o) 0 000000 00 F0]Npx(1(2,u) .GTNpx(cut,ndi3,)0cut,nd1) 1o) 0 000000ENDIFo 0000ELSEON 0 00 F0]t cot,nd1oEQNE1) THEION 0 000000cut,nd1) 2o) 0 000000ELSE F0]t cot,nd1oEQNE2) THEION 0 000000cut,nd1) 1o) 0 000000ELSEON 0 000000cut,nd1) 2o) 0 000000 00 F0]Npx(1(2,u) .GTNpx(2(3,)0cut,nd1) 1o) 0 000000ENDIFo 0000ENDIFo 0000 -----------------------------------------------------------------o) 0 00 !C bue inworliecclex of integemultiple:lemgther onpgro) 0 00 !eespaniif 0000 -----------------------------------------------------------------o) 0 00rpec 2**nfallksycut,ndfo) 0 00 F0]MINVREANpx(cut,ndi3:rcaj))LENE2) THEION 0 00: ing = ppe_err_e_error - CAL (ppe_err( (ppe_epbad_p me,t('ppm_decomcartesianit, & & 'Too littleonpgrie pois y fof isne number o_nsi.it, & & __LINE__,t=info) 0 000000GOTO 9999ON ENDIFo) -----------------------------------------------------------------o) 0 00 !R_dealloca mer myei ofoo s Sma) -----------------------------------------------------------------o) 0 00:,io g = ppm_parameall_growo) 0 00lduts(1) =(ppm_d)) IF(2*rc) .Glduold) THEION 0 0ldut2(1=:2*rco 0000ELSEON 0 0ldut2(1=:lduoldo 0000ENDIFo 0000 CAL (ppdeall(Npxnew,ldu,k,io,t=info) IF0] (info .NE. 0THEION : :: 00: ing = ppe_err_fatobal - 0000 CAL (ppe_err( (ppe_epdeall,t('ppm_decomcartesianit, & & 'Newht number onpgriunitseNPXNEWit, & & __LINE__,t=info) 0 000000GOTO 9999ON ENDIFo) -----------------------------------------------------------------o) 0 00 !Snsbividuof thb box idirlpectikcut,nd1snly) -----------------------------------------------------------------o) 0 00 preonserutcaloeithe, dimensiaON F0] (pp:imu)EQNE3) THEION 0 00DO k=1,lduoldo 000000000000Npxnew(1,x(1=:Npx(1(kfo) 0 0000000000Npxnew(2,x(1=:Npx(2(kfo) 0 0000000000Npxnew(3,x(1=:Npx(3(kfo) 0 000000ENDDOo- 0000ELSEON 0 00DO k=1,lduoldo 000000000000Npxnew(1,x(1=:Npx(1(kfo) 0 0000000000Npxnew(2,x(1=:Npx(2(kfo) 0 000000ENDDOo- 0000ENDIFo) DO i=1,rco 00000000!ocut x idirlpectikcut,ndo 00000000Npxnew(cut,ndi2*i-s(1) , & & CEILING( REANpx(cut,ndis(,L(M*= 5_MKfo) 0 000000Npxnew(cut,ndi2*i(1=:Npx(cut,ndis(-Npxnew(cut,ndi2*i-s(o- 0000ENDDOo) 00000!-----------------------------------------------------------------o) 0 00 !Aealloca f theewoe s wary) 00000!-----------------------------------------------------------------o) 0 00 CAL (ppdeall(Npx,ldu,k,io,t=info) IF0] (info .NE. 0THEION : :: 00: ing = ppe_err_fatobal - 0000 CAL (ppe_err( (ppe_epdeall,t('ppm_decomcartesianit, & & 'N number onpgriunitseNPXit, & & __LINE__,t=info) 0 000000GOTO 9999ON ENDIFo) -----------------------------------------------------------------o) 0 00 !Updabutn the_da thao th enm of thilatatcti) -----------------------------------------------------------------o) 0 00lduold =0ldut2(o) 0 00nfallksycut,ndf1=:: allksycut,ndf1+ 1o) 0 00Npx1=:Npxnew-- ENDDO o) ----------------------------------------------------------------------- !Cecoibut! anst morf the number o_nsied ieashpdirlpecti) ----------------------------------------------------------------------- DO i=1,N(ppm_d)) 00nfallksyi)ec 2**nfallksyp_i) !!! Initiaziv_nrfacet! anvolL-- n shpe thao ti) !!_nrface-to-volL-- rndatNis max.i) _nrfaceyi)ec HUGE(_nrfaceyi)_i) volL--ys(ii= 1o) ENDDOo) ----------------------------------------------------------------------- !Snsbividuotcallieccles i:ee d1equeras pas y fof e-- !e domader.!C bun shpaied ty'f maanum!_nrface-to-volL---- !endatN]t=he terms oe number onpgrie pois)) ----------------------------------------------------------------------- IF0]:ee d1) .GT0) THEION n number ocuti ->ae number o_nsb-domains 00nse d1=::ee d+1o) 0 00 -----------------------------------------------------------------o) 0 00 !D e teifioaggregabut_nrface-to-volL-- rndatsen for 0 00 !m_teinouuttanintan)llinh Fre, rlpectiins 00 -----------------------------------------------------------------o) 0 00 F0]t cot,nd1o .NE1) THEION 0 00_nrfacey1fid = 0 volL--yN(1)K = 0 DO icut_i=1fallksy1fo) 0 0000000000rpec NINT]Npx(1(icut(/ REAnse d,MKf)+1o) 0 00 0 00 F0] (pp:imu) .GT2) THEION 0 00 00 ed teranpgrie pois d iyt! anzON 0 00 00ty1=:: allksy2(o) 0 00 DO ki= 1,: allksy2(o) 0 00 00ty1=:ty1+:Npx(2(kfo) 0 00000000000000ENDDOo- 0000 00tz1=:: allksy3(o) 0 00 DO ki= 1,: allksy3(o) 0 00 00tz1=:tz1+:Npx(3(kfo) 0 00000000000000ENDDOo- 0000 00_nrfacey1f=_nrfacey1fi+ 2*Anse d*tz*ty+ x, & & : allksy3(*rc*ty+: allksy2(*rc*tzfo) 0 00000000000000volL--yN(1=volL--yN(1)+ (rc*ty*tzfo) 0 0000000000ELSEON 0 0000000000ty1=:: allksy2(o) 0 00 DO ki= 1,: allksy2(o) 0 00 00ty1=:ty1+:Npx(2(kfo) 0 00000000000000ENDDOo- 0000 00_nrfacey1f=_nrfacey1fi+ 2*An allksy2(*rc+tyfo) 0 00000000000000volL--yN(1=volL--yN(1)+ (rc*tyfo) 0 0000000000ENDIFo 00000000ENDDOo- 0000ENDIFo 0000 F0]t cot,nd1o .NE2) THEION 0 00_nrfacey2fid = 0 volL--y2(1)K = 0 DO jcut_i=1fallksy2(o) 0 00 rpec NINT]Npx(2,jcut(/ REAnse d,MKf)+1o) 0 00 0 00 F0] (pp:imu) .GT2) THEION 0 00 00 ed teranpgrie pois d ixt! anzON 0 00 00tx1=:SUM]Npx(1(2:1fallksy1ff)+1fallksy1fo) 0 0000000000 00tz1=:SUM]Npx(3(2:1fallksy3ff)+1fallksy3(o) 0 00 _nrfacey2f=_nrfacey2fi+ 2*Anse d*tx*tz+ x, & & : allksy1(*rc*tz+: allksy3(*rc*txfo) 0 00000000000000volL--y2(1=volL--y2(1)+ (rc*tz*txfo) 0 0000000000ELSEON 0 0000000000tx1=:SUM]Npx(1(2:1fallksy1ff)+1fallksy1fo) 0 0000000000 00_nrfacey2f=_nrfacey2fi+ 2*An allksy1(*rc*txfo) 0 00000000000000volL--y2(1=volL--y2(1)+ (rc*txfo) 0 0000000000ENDIFo 00000000ENDDOo- 0000ENDIFo 0000 F0]]t cot,nd1o .NE3) .AND.0] (pp:imu) .GT2)) THEION 0 00_nrfacey3fid = 0 volL--y3(1)K = 0 DO kcut_i=1fallksy3(o) 0 00 rpec NINT]Npx(3,kcut(/ REAnse d,MKf)+1o) 0 00 0 00 ed teranpgrie pois d ixt! any) 0000000000000tx1=:: allksy1fo) 0 0000000000DO ki= 1,: allksy1fo) 0 0000000000 00tx1=:tx1+:Npx(1(kfo) 0 0000000000ENDDOo- 0000 ty1=:: allksy2(o) 0 00 DO ki= 1,: allksy2(o) 0 00 ty1=:ty1+:Npx(2(kfo) 0 0000000000ENDDOo- 0000 _nrfacey3f=_nrfacey3fi+ 2* Anse d*ty*tx+ x, & & : allksy2(*rc*tx+n allksy1(*rc*tyfo) 0 0000000000volL--y3(1=volL--y3(1)+ (rc*tx*tyfo) 0 000000ENDDOo- 0000ENDIFo 0000! NOTE: _nrfaceyi)e! anvolL--yi)e!morf thd tera_nrfacety of 0000! )llie si ! and tirhd teravolL-- ]t=he number onpgrof 0000! , POIS)ei of thc ttaninwshoulbnssofioeerp #encularainof 0000! f thi-winaxiems.o get f thmeanv_nrfacet! anvolL-- r oaof 0000! insu bividuod by the number o_nsi. Hemorf is M inotal - ssofiobeca usf the rface-to-volL-- rndatNis inl varntal - sinto M is viersiono) 0 00 -----------------------------------------------------------------o) 0 00 !Findnm,mimerameanv_nrface-to-volL-- rndato) 0 00 -----------------------------------------------------------------o) 0 00p,msvec HUGE(p,msvfo) 0 00DO i=1,N(ppm_d)) 000000IF0] u)EQNEt cot,nd) CYCLEON 0 00lpec REA_nrfaceyi),MKf/ REAvolL--yi),MKfo) 0 000000IF0]lpe.LT.0p,msv) THEION 0 00 p,msve =0lco 000000000000cut,nd1) io) 0 000000ENDIFo 0000ENDDOo) 00000!-----------------------------------------------------------------o) 0 00 !C bue inse d1liecclex of integemultiple:lemgther onpgro) 0 00 !eespaniif 0000 -----------------------------------------------------------------o) 0 00 F0]MINVREANpx(cut,ndi3:: allksycut,ndfaj))LENEnse d) THEION 0 00: ing = ppe_err_e_error - CAL (ppe_err( (ppe_epbad_p me,t('ppm_decomcartesianit, & & 'Too littleonpgrie pois y fof isne number o_nsi.it, & & __LINE__,t=info) 0 000000GOTO 9999ON ENDIFoN rpec nse d*nfallksycut,ndfo) 0 00) 00000!-----------------------------------------------------------------o) 0 00 !Grow f theewonpgrie poi wary ifeedero) 0 00 -----------------------------------------------------------------o) 0 00:,io g = ppm_parameall_growo) 0 00lduts(1) =(ppm_d)) IF(rc) .Glduold) THEION 0 0ldut2(1=:rco 0000ELSEON 0 0ldut2(1=:lduoldo 0000ENDIFoo 0000 CAL (ppdeall(Npxnew,ldu,k,io,t=info) IF0] (info .NE. 0THEION : :: 00: ing = ppe_err_fatobal - 0000 CAL (ppe_err( (ppe_epdeall,t('ppm_decomcartesianit, & & 'Newht number onpgrie pois NPXNEWit, & & __LINE__,t=info) 0 000000GOTO 9999ON ENDIFoN lpec 1.0_MK/ REAnse d,MKfo) 0 00 preonserutcaloeithe, dimensiaON Npxnew(1:N(ppm_d,1:lduold) = Npx(1:N(ppm_d,1:lduold)o) 0 00DO i=1,nfallksycut,ndfo) 0 00 00 n number oceilani-saziv_nbaON nup = MOD(Npx(cut,ndis(,nse d)o) 0 00 00 n number ofloor-saziv_nbaON ndnec nse d-nupo) 0 00 00 f thdwo siztsON : :: 00:up = CEILING( REANpx(cut,ndis(,L(M*lc)o) 0 00 00idnec FLOOR( REANpx(cut,ndis(,L(M*lc)o) 0 00 00!ocut ceilani-saziv_nbaON DO j=1,nupo) 0 00 000000Npxnew(cut,ndinse d*(i-s(+j) = iupo) 0 00 00ENDDOo- 0000 !ocut floor-saziv_nbaON DO j=(nup+1),(nup+ndnfo) 0 0000000000Npxnew(cut,ndinse d*(i-s(+j) = idi) 00ENDDOo- 0000 !oc Checi of thE deco pndonpgritellsv_nm up into to- 0000 !ocecoletnse fmmbe_nsb-domao) 0 000000IF0](nup*iup+ndn*idi)fo .NENpx(cut,ndis() THEION 0 00 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epp me_misst , & & t('ppm_decomcartesianit & & & tD deco pndob-domaiedoIf n rnm up intwholeit & & __LINE__,t=info) 0 0000000000GOTO 9999ON ENDIFo 0000ENDDOo 0000 CAL (ppdeall(Npx,ldu,k,io,t=info) IF0] (info .NE. 0THEION : :: 00: ing = ppe_err_fatobal - 0000 CAL (ppe_err( (ppe_epdeall,t('ppm_decomcartesianit, & & 'N number onpgrie pois NPXit, & & __LINE__,t=info) 0 000000GOTO 9999ON ENDIFoN Npx1=:Npxnew-- nfallksycut,ndf1=::se d*nfallksycut,ndfo) 0ENDIFo) ----------------------------------------------------------------------- !D_dealloca x_teoibrarst mage) ----------------------------------------------------------------------- :,io g = ppm_para deall-- CAL (ppdeall(Npxnew,ldu,k,io,t=info) F0] (info .NE. 0THEION : ::: ing = ppe_err_e_error - CAL (ppe_err( (ppe_ep deall,t('ppm_decomcartesianit, & & 'Newht number onpgrie pois NPXNEWit, & & __LINE__,t=info) 0ENDIFo) ----------------------------------------------------------------------- !D_e teifioa anst morf th_nsb-doma b Founriesue id_phi c-- !e coordinas. Eashpunsb-doma d wilmeasuwartnof integ-- !multiple:x of thnpgrisespanied ieashpdirlpecti.) ----------------------------------------------------------------------- T theamt valuinis snly cecoibuleticet! anassignuled tboei-- eif(i+N(1! anmaxys(id iorunderoutcaow y latefloat-- ceconrissia.o) F0] (pp:imu)EQNE3) THEION 0:e si1=:= 0 uz1=:- min_phy3(o) 0 00iz1=:1 0 00! ubstaof indid io globap meON :::::tz1=:0 0 00! npgr-e poi f indid izpdirlpecti) DO kcut_i=1fallksy3(o) 0 00 tz1=:tz1+:Npx(3(k!utfo) 000000000lz1=:uz10 00! lowmbee s boFounryo) 000000000uz1=:- min_phy3(1+:tz*dxy3(1)! uppmbee s boFounryo) 000000000uy1=:- min_phy2) !of theamt d iyt...i) 00iy1) 1o) 0 000000ty1=:= 0 DO jcut_i=1fallksy2(o) 0 00 ty1=:ty1+:Npx(2(j!utfo) 0000000000000ly1=:uy) 0000000000000uy1=:- min_phy2) +:ty*dxy2(o) 0 00 ux1=:- min_phy1) !o! and ixt...i) 000000ix1) 1o) 0 000000 tx1=:= 0 DO icut_i=1fallksy1fo) 0 0000000000 tx1=:tx1+:Npx(1(i!utfo) 00000000000000000lx1=:uxo) 00000000000000000ux1=:- min_phy1) +:tx*dxy1fo) 0 0000000000 :e si1=::e si1+ 1o) 0 00000000000000!!Sns b Founriesr p,miinsO1ur_nsu(1=:lxo) 00000000000000000p,miinsO1ur_nsu(1=:uxo) 00000000000000000p,miinsO2ur_nsu(1=:ly) 00000000000000000p,miinsO2ur_nsu(1=:uy) 00000000000000000p,miinsO3ur_nsu(1=:lzON 0 00 00p,miinsO3ur_nsu(1=:uzON 0 00 00ix1) ix1+:Npx(1(i!utfo) 0000000000000ENDDOo- 0000 iy1) iy1+:Npx(2(j!utfo) 000000000ENDDOo- 0000 iz1=:iz1+:Npx(3(k!utfo) 00000ENDDOo- ELSEON 0:e si1=:= 0 uy1=:- min_phy2)o) 0 00iy1) 1o) 0 00ty1=:= 0 DO jcut_i=1fallksy2(o) 0 00 ty1=:ty1+:Npx(2(j!utfo) 000000000ly1=:uy) 000000000uy1=:- min_phy2) +:ty*dxy2(o) 0 00 ux1=:- min_phy1)o- 0000 ix1) 1o) 0 000000tx1=:= 0 DO icut_i=1fallksy1fo) 0 0000000000tx1=:tx1+:Npx(1(i!utfo) 0000000000000lx1=:uxo) 0000000000000ux1=:- min_phy1) +:tx*dxy1fo) 0 0000000000:e si1=::e si1+ 1o) 0 0000000000!!Sns b Founriesr p,miinsO1ur_nsu(1=:lxo) 0000000000000p,miinsO1ur_nsu(1=:uxo) 0000000000000p,miinsO2ur_nsu(1=:ly) 0000000000000p,miinsO2ur_nsu(1=:uy) 0000000000000ix1) ix1+:Npx(1(i!utfo) 000000000ENDDOo- 0000 iy1) iy1+:Npx(2(j!utfo) 00000ENDDOo- ENDIFo) ----------------------------------------------------------------------- !Somre, agnostics) ----------------------------------------------------------------------- F0] (pp: debu) .GT0) THEION WRITE(p mg,'(A,I5)') 'e number o_nsie! creadts: nenbaON CAL (ppwriea] (pprank,t('ppm_decomcartesianitp mg,t=info) 0ENDIFo- F0] (pp: debu) .GT1) THEION 0 F0] (pp:imu)LT.03) THEION 0 00DO i=1,n_nbaON WRITE(p mg,'(I4,A,2F12.6)') i,'0p,mts: p,miinsO1:2,p_i) CAL (ppwriea] (pprank,t('ppm_decomcartesianit & & p mg,t=info) 0 00 WRITE(p mg,'(I4,A,2F12.6)') i,'0paxts: p,miinsO1:2,p_i) CAL (ppwriea] (pprank,t('ppm_decomcartesianit & & p mg,t=info) 0 00 CAL (ppwriea] (pprank,t('ppm_decomcartesianit & & '------------------------------------',t=info) 0 00 ENDDOo- 0000ELSEON 0 00DO i=1,n_nbaON WRITE(p mg,'(I4,A,3F12.6)') i,'0p,mts: p,miinsO1:3,p_i) CAL (ppwriea] (pprank,t('ppm_decomcartesianit & & p mg,t=info) 0 00 WRITE(p mg,'(I4,A,3F12.6)') i,'0paxts: p,miinsO1:3,p_i) CAL (ppwriea] (pprank,t('ppm_decomcartesianit & & p mg,t=info) 0 00 CAL (ppwriea] (pprank,t('ppm_decomcartesianit & & '------------------------------------------------',t=info) 0 00 ENDDOo- 0000ENDIFo- ENDIFo) !------------------------------------------------------------------------- !n_us-providuteE deco positi) !------------------------------------------------------------------------- ELSE F0] decomoEQNE= ppm_param_decomp_user_defin 0THEION :!edoIf n o danythaninasby thp_us has al crdyiprovidutep,miinsu-- e,miins. Trust y thp_us e thatcal wary-ktwarb2pperly) 0! )llllocad.) ) 0! MAYBE CHECK HERE0 F0THE UR SS RELY MATCH UPut WI0THE GRID) 0! SPACING-- ENDIFo) !--------------------------------------------------------------------- !D_dealloca mer my) !--------------------------------------------------------------------- :,io g = ppm_para deall-- CAL (ppdeall(Npx,ldu,k,io,t=info) F0] (info .NE. 0THEION :: ing = ppe_err_e_error - CAL (ppe_err( (ppe_ep deall,t('ppm_decomcartesianit, & & 'N number onpgrie pois pmbee s NPXit__LINE__,t=info) ENDIFo) !------------------------------------------------------------------------- !! Retuls !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppm_decomcartesianit',t0,info- RETURION CONTAINSON SUBROUTINc CheON DO i=1,N(ppm_d)) F0]N ys(u)LT.02) THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomcartesianit & & 'Nmnmust l b>1ntan)llieespab, dimensia',__LINE__,t=info) 0 GOTO 8888o) 0ENDIFo- F0] (max_phys(i)LENE- min_phys() THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomcartesianit & & ' (max_phnmust l b>E- min_ph',__LINE__,t=info) 0 GOTO 8888o) 0ENDIFo- ENDDOo- IF0]( decomo .NE= ppm_param_decomxeencil) .AND.0 & & ( decomo .NE= ppm_param_decomyeencil) .AND.0 & & ( decomo .NE= ppm_param_decomzeencil) .AND.0 & & ( decomo .NE= ppm_param_decomcubogrf .AND.0 & & ( decomo .NE= ppm_param_decomp_user_defin 0THEION :: ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomcartesianit & & 'InvalgrNE deco positi tyee resprfied',__LINE__,t=info) 0 GOTO 8888o) ENDIFo- IF0]( decomoEQNE= ppm_param_decomzeencil) .AND.0 & & ( (pp:imu)LT.03)) THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomcartesianit & & 'zeencilt, deco positikis snly sossibme y fo3Drb2pbmemh', & & __LINE__,t=info) 0 GOTO 8888o) ENDIFo- IF0]( decomoEQNE= ppm_param_decomp_user_defin 0.AND.0 & & (:e si1)LENE0)) THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomcartesianit & 'thaleastoofiosnsb-d.nmust l bresprfied y fon_us-r_definoE deco positiit, & & __LINE__,t=info) 0 GOTO 8888o) ENDIFo- IF0]E_PSNTENrandfajTHEION : IF0]:andu)LT.0('ppnb2pr) THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomcartesianit & & 'e number o_nsiemust l b>= nb2pr',__LINE__,t=info) 0 00 GOTO 8888o) 0 0ENDIFo- ENDIFo-8888 CONTINUE-- END SUBROUTINc CheOE #if __KIND == __SINGLE_PRECISION END SUBROUTINE decomc_partle #elif __KIND == __DOUBLE_PRECISION END SUBROUTINE decomc_pardle #endi lib('p-1.2/src/E deco/('ppm_decomprufin_tell.f000644 000765 000024 00000034356 11445666061 021670 0uubst00omstubsff000000 000000 N !------------------------------------------------------------------------- !Subs routin : 0 00 ('ppm_decomprufin_tell) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o) !sYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTINE decomptell_s(xp,Ns pa,- min_ph, (max_ph, & & s,ghosize p,miins p,miins,n_nba,t=in,pcgho)le #elif __KIND == __DOUBLE_PRECISION SUBROUTINE decomptell_d(xp,Ns pa,- min_ph, (max_ph, & & s,ghosize p,miins p,miins,n_nba,t=in,pcgho)le #endif !!s. is s routinpere fms a d-domaNE deco positikusaninaif !!sprufin0]t=iecoletn)itell f indilist.if !!if !!s[CAUTNSI]if !!s. e w y we cecoibu f thm,miins e,miins e,ylhavTif !!sprpbmemhed winr Fouoff e_errs!o) !------------------------------------------------------------------------- !Moduables !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error USE ('ppmoduab_deall-- IMPLICIT NONEOE #if __KIND == __SINGLE_PRECISION INTEGR , PAMEINTER :MKg = ppkf i_sanilele #elif __KIND == __DOUBLE_PRECISION INTEGR , PAMEINTER :MKg = ppkf i_doublele #endif !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"OE #m_d== MPION CLUDE 'mpif.h'le #endif !------------------------------------------------------------------------- !AALL----- if !------------------------------------------------------------------------- REAL(MK), DIMENSION,N(:), INTENT(IN ) :xomp !!P positiks or thp parcliins INTEGEEEEEEEEEEEEEEEEE , INTENT(IN ) :Ns pamp !!N number op parcliins REAL(MK), DIMENSION)EE , INTENT(IN ) :- min_phmp !!M,mimum!e coordinaks or thp_phi c/cecoibnectiar b-domaif REAL(MK), DIMENSION)EE , INTENT(IN ) :-(max_phmp !!M'Maxum!e coordinaks or thp_phi c/cecoibnectiar b-domaif REAL(MK), DIMENSION)EE OPTNSIAL , INTENT( ) :pcghomp !!AALL----ks olemgtheNs pa,bresprfyaninf tr !! cecoibnectiar cghoks oeashpp parcliif REAL(MEEEEEEEEEEEEEEEE , INTENT(IN ) :s,ghosizer !! Saziv(width):x of thn,gho layeg-- REAL(MK), DIMENSION,N(:), POINTEEEEEEE) :- miL smp !!M,mimum!t e art of th_nsb-doma-- REAL(MK), DIMENSION,N(:), POINTEEEEEEE) :-,miinsmp !!M'Maxum!t e art of th_nsb-doma-- INTEGEEEEEEEEEEEEEEEEE , INTEN BRO ) :n_nbaON !!s. terae number o_nsb-domains INTEGEEEEEEEEEEEEEEEEE , INTEN BRO ) :t=inON !!s! Retulubstuh, 0etiksucr Leif !------------------------------------------------------------------------- !Lo cul varbables !------------------------------------------------------------------------- REAL(MK), DIMENSION(ppm_dim ::mxns INTEGEK), DIMENSION(ppm_dim :Nmns INTEGEK), DIMENSIO3MEEEEEEE :ldcns INTEGE) :t,j,k,k,io,Mm,ibox,idx,jdx,kdx,is pamp INTEGE) :tubst,n1,n2-- REAL(M) :rdx,rdy,rdz,x0,y0,z0,rmean_npbx-- REAL(M) :t= 0 CH PACINT(N(ppchar(6 :p mgb) !------------------------------------------------------------------------- ! Externals !------------------------------------------------------------------------- !------------------------------------------------------------------------- ! Initialise !------------------------------------------------------------------------- CALL substart('ppm_decomprufin_tellit',t0,info) !------------------------------------------------------------------------- ! ChecTALL----- !------------------------------------------------------------------------- F0] (pp: debu) .GT0) THEION CALc CheON F0] (info .NE. 0GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Cecoibu f thsazivt of thboxei ! and t requiruteper my) !------------------------------------------------------------------------- Md1) 1o) DO k=1,N(ppm_d)) Nm(k(1)K INT]] (max_phyk(i) - min_phyk))/s,ghosizefo) :mx(x(1=:] (max_phyk(i) - min_phyk))/ REANm(k(,MKfo) Md11111= Md*Nm(k(ON ENDDOo) !------------------------------------------------------------------------- !Aealloca mer myey foconntininf tae number op parclind ir thboxei (npbx)) !------------------------------------------------------------------------- :,io g = ppm_parameall_fit 1 ldc1= Md-- CAL (ppdeall(npbx,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomprufin_tellit- & & 'deallocitiks onpbx failed',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !I Initiazivr th wary) !------------------------------------------------------------------------- DO k=1,Md)) npbx(x(1=:0ON ENDDOo)E #m_d== MPION !------------------------------------------------------------------------- !I op paralleweifeed mer myey fof thn globaconnte !------------------------------------------------------------------------- CAL (ppdeall(npbxg,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomprufin_tellit- & & 'deallocitiks onpbxg failed',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !I Initiazivr th wary) !------------------------------------------------------------------------- DO k=1,Md)) npbxg(x(1=:0ON ENDDOo le #endi !------------------------------------------------------------------------- !Conntvr th(allol)ae number op parclisnd ir thboxei -- !(f isnd wil! andanf n vectorazi;er ocourlisyouku casortvr tm!t.g.,Nm kusaninaitell lists, ! bur t ir thtell list doe inot vectorazi)) !------------------------------------------------------------------------- F00000ON(ppm_doEQN2) THEION rdxec 1.0_MK/:mx(1fo) rdyec 1.0_MK/:mx(2(o) x0 1=:- min_phy1)*rdxo) y0 1=:- min_phy2(*rdy) n1ii= Nm(1fo) DO ip pa=1,Ns pamp idx ec FLOOR(xp(1(is pa)*rdxi) x0fo) 0 jdx ec FLOOR(xp(2(is pa)*rdyi) y0fo) 0 ibox = idx1+:11+:jdx*n1io) 0 npbx(iboxf1=::pbx(iboxf1+ 1o) ENDDOo- ELSE F0]N(ppm_doEQN3) THEION rdxec 1.0_MK/:mx(1fo) rdyec 1.0_MK/:mx(2(o) rdzec 1.0_MK/:mx(3(o) x0 1=:- min_phy1)*rdxo) y0 1=:- min_phy2(*rdy) z0 1=:- min_phy3(*rdz) n1ii= Nm(1fo) n2ii= Nm(1f*Nm(2fo) DO ip pa=1,Ns pamp idx ec FLOOR(xp(1(is pa)*rdxi) x0fo) 0 jdx ec FLOOR(xp(2(is pa)*rdyi) y0fo) 0 kdx ec FLOOR(xp(3(is pa)*rdzi) z0fo) 0 ibox = idx1+:11+:jdx*n1i+ kdx*n2o) 0 npbx(iboxf1=::pbx(iboxf1+ 1o) ENDDOo- ENDIF o)E #m_d== MPION !------------------------------------------------------------------------- !Add up i tae number op parcliied ieashpbox (r thd thd terae number -- !p parclii)) !------------------------------------------------------------------------- CALMPI_AeaReduce(npbx,npbxg,Mm,MPI_ INTEGRMPI_SUM,N(ppdecm,t=info) DO k=1,Md)) npbx(x(1=:npbxg(x(ON ENDDOoe #end o) !------------------------------------------------------------------------- !Aealloca mer myey fof thm,miins1! anmaxiins1) !------------------------------------------------------------------------- :,io g = ppm_parameall_fit 1 ldcts(1) =(ppm_d)) ldct2(1=:Md-- CAL (ppdeall(m,miins ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomprufin_tellit- & & 'deallocitiks om,miins1failed',__LINE__,t=info) GOTO 9999ON ENDIFo- CAL (ppdeall(m,miins,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomprufin_tellit- & & 'deallocitiks omaxiins1failed',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !loop ovnder thboxei ! ancoralctinon-emptytynei !------------------------------------------------------------------------ :e si1=:= 0 F00000ON(ppm_doEQN2) THEION !--------------------------------------------------------------------ON !I odwo , dimensiaON !--------------------------------------------------------------------ON DO j=1,Nm(2fo) !-----------------------------------------------------------------o) !loop ovnder thboxei ! ancoralctinon-emptytynei !-----------------------------------------------------------------o) DO i=1,Nm(1fo) ibox = i)+ (ji) 1f*Nm(1fo) IF0]:pbx(iboxf) .G. 0THEION : :: 00:e si111111111111=::e si1+ 1o) 0 000000p,miinsO1ur_nsu(1=:- min_phy1) +: REAi-1,L(M*:mx(1fo) 0 000000p,miinsO2ur_nsu(1=:- min_phy2) +: REAj-1,L(M*:mx(2(o) 0 00 p,miinsO1ur_nsu(1=:- min_phy1) +: REAi ,L(M*:mx(1fo) 0 000000p,miinsO2ur_nsu(1=:- min_phy2) +: REAj ,L(M*:mx(2(o) 0 00 ENDIF o 0 00 ENDDOo- ENDDOo- ELSE F0]N(ppm_doEQN3) THEION !--------------------------------------------------------------------ON !I odh Fre, dimensiaON !--------------------------------------------------------------------ON DO k=1,Nm(3(o) 0 DO j=1,Nm(2fo) DO i=1,Nm(1fo) ibox = i)+ (ji) 1f*Nm(1f)+ (ki) 1f*Nm(1f*Nm(2fo) IF0]:pbx(iboxf) .G. 0THEION : :: 00 00:e si111111111111=::e si1+ 1o) 0 000000 00p,miinsO1ur_nsu(1=:- min_phy1) +: REAi-1,L(M*:mx(1fo) 0 000000 00p,miinsO2ur_nsu(1=:- min_phy2) +: REAj-1,L(M*:mx(2(o) 0 00 00p,miinsO3ur_nsu(1=:- min_phy3(1+: REAk-1,L(M*:mx(3(o) 0 00 p,miinsO1ur_nsu(1=:- min_phy1) +: REAi ,L(M*:mx(1fo) 0 000000 00p,miinsO2ur_nsu(1=:- min_phy2) +: REAj ,L(M*:mx(2(o) 0 00 000 00p,miinsO3ur_nsu(1=:- min_phy3(1+: REAk ,L(M*:mx(3(o) 0 00 ENDIF o 0 00 ENDDOo- 00ENDDOo- ENDDOo- ENDIF o)- !------------------------------------------------------------------------- !Let us shrink f thmer myeto fix exactl by thee si1f Fou) !------------------------------------------------------------------------- :,io g = ppm_parameall_fit_preonser 1 ldcts(1) =(ppm_d)) ldct2(1=:n_nbaON CAL (ppdeall(m,miins ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomprufin_tellit- & & 'deallocitiks om,miins1failed',__LINE__,t=info) GOTO 9999ON ENDIFo- CAL (ppdeall(m,miins,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomprufin_tellit- & & 'deallocitiks omaxiins1failed',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !F Frey thworkieespabagoma-- !------------------------------------------------------------------------- :,io g = ppm_para deall-- CAL (ppdeall(npbx ,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomprufin_tellit- & & 'dedeallocitiks onpbx failed',__LINE__,t=info) GOTO 9999ON ENDIFoE #m_d== MPION CAL (ppdeall(npbxg,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomprufin_tellit- & & 'dedeallocitiks onpbxg failed',__LINE__,t=info) GOTO 9999ON ENDIFoe #endi !------------------------------------------------------------------------- !! Retuls !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppm_decomprufin_tellit',t0,info- RETURION CONTAINSON SUBROUTINc CheON F0]s,ghosize)LEN0.0_MK) THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomprufin_tellit- , & & 'y thfifwinaALL----kmust l b>E0',__LINE__,t=info) 0 GOTO 8888o) ENDIFo- DO k=1,N(ppm_d)) F0] (max_phyk))LENE- min_phyk() THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomprufin_tellit- , & & ' min_phkmust l b<:-(max_ph',__LINE__,t=info) 0 00 GOTO 8888o) 0 0ENDIFo- ENDDOo-8888 CONTINUE-- END SUBROUTINc CheOE #if __KIND == __SINGLE_PRECISION END SUBROUTINE decomptell_sle #elif __KIND == __DOUBLE_PRECISION END SUBROUTINE decomptell_dle #endi lib('p-1.2/src/E deco/('ppm_decomt Fr.f000644 000765 000024 00000065151 11445666061 020330 0uubst00omstubsff000000 000000 N !------------------------------------------------------------------------- !Subs routin : 0 00 ('ppm_decomt Fr !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTINE decomt Fr_s(xp,Ns pa,- min_ph, (max_ph, & & - mboxsize tolepance p,miins p,miins,n_nba,t=in,pcgho)le #elif __KIND == __DOUBLE_PRECISION SUBROUTINE decomt Fr_d(xp,Ns pa,- min_ph, (max_ph, & & - mboxsize tolepance p,miins p,miins,n_nba,t=in,pcgho)le #endif !!sPere fms a t Fr-likeNE deco positi.if !! Ito_nsbividusieespabnntil i tae number oleavTsnd ir tif !! t Fr exceeds i tae number opror Leors *t a*bnntil i tif !! l varncivt of the number op parclisnd ir thleavTsndaON !!sbeaow aitertomaNtolepance.o) !------------------------------------------------------------------------- !Moduables !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error USE ('ppmoduab_deall-- USE ('ppmoduab_wrieao) MPLICIT NONEOE #if __KIND == __SINGLE_PRECISION INTEGR , PAMEINTER :MKg = ppkf i_sanilele #elif __KIND == __DOUBLE_PRECISION INTEGR , PAMEINTER :MKg = ppkf i_doublele #endif !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"OE #m_d== MPION CLUDE 'mpif.h'le #endif !------------------------------------------------------------------------- !AALL----- if !------------------------------------------------------------------------- REAL(MK), DIMENSION,N(:), INTENT(IN ) :xomp !!P positiks or thp parcliins INTEGEEEEEEEEEEEEEEEEE , INTENT(IN ) :Ns pamp !!N number op parcliins REAL(MK), DIMENSION)EE , INTENT(IN ) :- min_phmp !!M,mimum!e coordinaks or thp_phi c/cecoibnectiar b-domaif REAL(MK), DIMENSION)EE , INTENT(IN ) :-(max_phmp !!M'Maxum!e coordinaks or thp_phi c/cecoibnectiar b-domaif REAL(MK), DIMENSION)EE OPTNSIAL , INTENT( ) :pcghomp !!AALL----ks olemgtheNs pa,bresprfyaninf tr !! cecoibnectiar cghoks oeashpp parcli.if REAL(MEEEEEEEEEEEEEEEE , INTENT(IN ) :- mboxsizemp !!M,mimum!box sizemp REAL(MEEEEEEEEEEEEEEEE , INTENT(IN ) :tolepancemp !!M'Maxum!rey live l varncivt of thbox cghoktcaowinodee ftif !! t teifatininf tat Fr;:tolepanceb>= 0-- REAL(MK), DIMENSION,N(:), POINTEEEEEEE) :- miL smp !!M,mimum!t e art of th_nsb-doma-- REAL(MK), DIMENSION,N(:), POINTEEEEEEE) :-,miinsmp !!M'Maxum!t e art of th_nsb-doma-- INTEGEEEEEEEEEEEEEEEEE , INTEN BRO ) :n_nbaON !!s. terae number o_nsb-domain- INTEGEEEEEEEEEEEEEEEEE , INTEN BRO ) :t=inON !!s! Retulubstuh, 0etiksucr Leif !------------------------------------------------------------------------- !Lo cul varbables !------------------------------------------------------------------------- REAL(MK), DIMENSION(ppm_dim :lemax_phmp REAL(MK), DIMENSIO2MEEEEEEE :vector_in,vector_ romp REAL(M :p an_npbx,l v_npbx-- REAL(M) :t= 0 REAL(MK), DIMENSION,N(:), POINTE) :- mibox,-,mibox,workn- INTEGEK), DIMENSION):), POINTE) :npbx,npbxg,ppbn- INTEGEK), DIMENSION(ppm_dim :ldc,lddn- INTEGE) :tbox,fbox,jbox,kbox,lbox,nbox,ilevel,nlevel,isizemp INTEGE) :t,j,k,k,io,is pa,it,jj,mem_reqmp INTEGE) :tubst,n1,n2,Ns pagb) LOGICALm :lcontinuemp CH PACINT(N(ppchar(6 :p mgb) !------------------------------------------------------------------------- ! Externals !------------------------------------------------------------------------- !------------------------------------------------------------------------- ! Initialise !------------------------------------------------------------------------- CALL substart('ppm_decomt Frit',t0,info) !------------------------------------------------------------------------- !c ChecinoibcTALL----- !------------------------------------------------------------------------- F0] (pp: debu) .GT0) THEION CALc CheON F0] (info .NE. 0GOTO 9999ON ENDIF o) !------------------------------------------------------------------------- !Aealloca mer myey foa copyms or thp parclisn(r thcopymisifeedinosancise ror thp parclisnd will bre warnguand ir thpror Leer oc creininf tat Fr)) !------------------------------------------------------------------------- :,io g = ppm_parameall_fit 1 ldcts(1) =(ppm_d)) ldct2(1=:Ns pamp CAL (ppdeall(work,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit & & 'dealler oworki wary failed!',__LINE__,t=info) GOTO 9999ON ENDIF o) !------------------------------------------------------------------------- !Makeoa copyms or thp parclisn(sancisr tynd will bre warnguand ir t-- !pror Leer oc creininf tat Fr)) !------------------------------------------------------------------------- F0]N(ppm_doEQN2) THEION DO ip pa=1,Ns pamp work(1(is pa)g xp(1(is pa)mp work(2(is pa)g xp(2(is pa)mp ENDDOo- ELSEON DO ip pa=1,Ns pamp work(1(is pa)g xp(1(is pa)mp work(2(is pa)g xp(2(is pa)mp work(3(is pa)g xp(3(is pa)mp ENDDOo- ENDIF o)E #m_d== MPION !------------------------------------------------------------------------- !Conntvr thd terae number op parcliins !------------------------------------------------------------------------- CALMPI_AeaReduce(Ns pa,Ns pag,1,MPI_ INTEGRMPI_SUM,N(ppdecm,t=info#eleie Ns pag1=:Ns pame #end o) !------------------------------------------------------------------------- !Aealloca somremer myey fof tht Fr !------------------------------------------------------------------------- :,io g = ppm_parameall_grow-- ldcts(1) =(ppm_d)) ldct2(1=:2000 -- CAL (ppdeall(m,mibox,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit & & 'dealler om,mibox failed!',__LINE__,t=info) GOTO 9999ON ENDIF o) CAL (ppdeall(m,mibox,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit & & 'dealler om,mibox failed!',__LINE__,t=info) GOTO 9999ON ENDIF o) CAL (ppdeall(m,miins ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit & & 'dealler om,miins1failed!',__LINE__,t=info) GOTO 9999ON ENDIF o) CAL (ppdeall(m,miins ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit & & 'dealler omaxiins1failed!',__LINE__,t=info) GOTO 9999ON ENDIF o) ldcts(1) ldct2() CAL (ppdeall(ppb ,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit & & 'dealler oppb failed!',__LINE__,t=info) GOTO 9999ON ENDIF o) CAL (ppdeall(npbx ,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit & & 'dealler onpbx failed!',__LINE__,t=info) GOTO 9999ON ENDIF o) !------------------------------------------------ !!!!!! CAL (ppdeall(cghok,ldc,k,io,t=info !!!!!! F0] (ino .N. 0THEIO !!!!!!!!!: ing = ppe_err_fatoba !!!!!!!!! CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit !!!!! & 'dealler ocghokfailed!',__LINE__,t=info !!!!!!!!!GOTO 9999O !!!!!!ENDIF o !------------------------------------------------ ) CAL (ppdeall(npbxg,ldc,k,io,t=info) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit & & 'dealler onpbxg failed!',__LINE__,t=info) GOTO 9999ON ENDIF o) !------------------------------------------------------------------------- ! Initialisy thfirst lox) !------------------------------------------------------------------------- fbox 1) 1o) DO k=1,N(ppm_d)) m,mibox(k,fbox(1=:- min_phykfo) m,mibox(k,fbox(1=:-(max_phyk)o) lemax_ph(k(1) 1=:-(max_phyk)i) - min_phyk)ON ENDDOo- ppb(fbox(1 1) 1o) :pbx(fbox(1 =:Ns pamp npbxg(fbox(1=:Ns pamON !------------------------------------------------------------------------- !Cocoibu f thm'Maxum!e number olevenals !------------------------------------------------------------------------- nlevel)K INT]LOG(MINVAL(lemax_ph)/- mboxsize)/LOG(2.0_MK)f1+ 1oON !------------------------------------------------------------------------- !Spliter thboxei, ubstaaninatoleven 0n(r thfuwillox)) kbox denotesof thbox beaninbividud) mboxmisir thcurr ard terae number oboxei) fboxmisir thidms or thfirst loxetikr thcurr arleven) lboxmisir thidms or thlasto loxetikr thcurr arleven) !------------------------------------------------------------------------- ilevel) 1=:= 0 lcontinue1=:.TRUE.if lboxm1) 1=:flox) nboxm1) 1=:llox) ne si11111=:= 0 DO WHILE (lcontinue)o) !--------------------------------------------------------------------ON !Spliter thboxeinatof isnleven) !--------------------------------------------------------------------ON DO kbox=fbox,lboxmp !-----------------------------------------------------------------o) !Splitenon-emptytboxeininto four/eight (mboxmisiincre----edfo) !-----------------------------------------------------------------o) IF0]:pbxg(kboxf) .G. 0THEION : :: CAL (ppm_decomboxsplit(work,ppb,npbx,kbox,nbox, , & & - mibox,-,mibox,t=info) 0 00 F0] (ino .N. 0GOTO 100o) 0 ELSEON 0 !--------------------------------------------------------------ON 0 if emptytsavThito!s a _nsb-doma ieiincre----of th_nsaconnteror - ! anc Chece forer myeON 0 !--------------------------------------------------------------ON 0 :e si1=::e si1+ 1o) 0 000IF0]:e si) .GSIZE(m,miins 2() THEION 0 ldcts(1) =(ppm_d)) 0 ldct2(1=:2*n_nbaON :,io g = ppm_parameall_grow_preonser 1 CAL (ppdeall(m,miins ldc,k,io,t=info) 0 000IF0] (ino .N. 0GOTO 200o) 0 CAL (ppdeall(m,miins ldc,k,io,t=info) 0 000IF0] (ino .N. 0GOTO 200o) 0 ldcts(1) ldct2() !!!!!! CAL (ppdeall(cgho ldc,k,io,t=info) !!!!!! F0] (ino .N. 0GOTO 200o) 0 ENDIF o) !--------------------------------------------------------------ON 0 savThf th_nsb-doma-- !--------------------------------------------------------------ON 0 DO k=1,N(ppm_d)) p,miinsOkur_nsu(1=:- mibox(k,klox)) p,miinsOkur_nsu(1=:-,mibox(k,klox)) ENDDOo- 0 !!!cgho(r_nsu(1=:0o) 0 ENDIF o 0 ENDDOo) !--------------------------------------------------------------------ON !Catch e_errsnd i (ppm_decomboxsplit) !--------------------------------------------------------------------ON 100 CONTINUE-E #m_d== MPION F0] (pp: deb) .G. 0THEION : !-----------------------------------------------------------------o) !MPI AeaReducemisiexeensive soeweisnly doof isnmaNE debganinmode !o) : !-----------------------------------------------------------------o) CALMPI_AeaReduce(t=in,i,1,MPI_ INTEGRMPI_SUM,N(ppdecm,t=info) : ing io 0 ENDIFoe #endiN F0] (ino .N. 0GOTO 9999O) !--------------------------------------------------------------------ON !Catch e_errsnd i (ppdeall-- !--------------------------------------------------------------------ON 200 CONTINUE-E #m_d== MPION F0] (pp: deb) .G. 0THEION : !-----------------------------------------------------------------o) !MPI AeaReducemisiexeensive soeweisnly doof isnmaNE debganinmode !o) : !-----------------------------------------------------------------o) CALMPI_AeaReduce(t=in,i,1,MPI_ INTEGRMPI_SUM,N(ppdecm,t=info) : ing io 0 ENDIFoe #endiN !--------------------------------------------------------------------ON !Wrieardetailed e_err:p msageey fof thdeallocitiiN !--------------------------------------------------------------------ON F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit - , & & 'redeallocininf tat Fr failed ts(!',__LINE__,t=info) GOTO 9999ON ENDIF o) !--------------------------------------------------------------------ON !Updabu f thlevel)connter ! anboxeinie.)consiundenowof theewoboxei) !--------------------------------------------------------------------ON ilevel)K ilevel)+ 1o) fbox 11=:llox)+ 1o) lbox 11=:nbox-E #m_d== MPION !--------------------------------------------------------------------ON !Cecmunicabu f the number op parclisnf Found ir thboxei t of theewON !boxeinatof theextoleven (f isnd wilbeiexeensive y fonb2pr >> 1)o) !--------------------------------------------------------------------ON CALMPI_AeaReduce(npbx(fbox(,npbxg(fbox(,lbox-fbox+1,MPI_ INTEGR , & & MPI_SUM,N(ppdecm,t=info#eleie !--------------------------------------------------------------------ON !Cepyof thn globanpbx from f thlo cu(r thsamind ionsial, ! buroON !keepnd t resart of thcode r thsaminy fobothop parall/onsial ...)o) !--------------------------------------------------------------------ON DO kbox=fbox,lboxmp :pbxg(kboxf1=::pbx(klox)) ENDDOoe #endO) !--------------------------------------------------------------------ON !C Checifeto continue1toof theextoleven ON !(A)cifew bre chinor thfinesarleven weiexit) !--------------------------------------------------------------------ON F0] levenoEQNnlevel) lcontinue1=:.FALSE.O) !--------------------------------------------------------------------ON !C Checifeto continue1toof theextoleven ...ON !(B)cifef thl varncivt of thp anae number op parclisnd ir thboxei isON !beaow r thd lepancebweiexit) !--------------------------------------------------------------------ON F0]nbox) .GN(ppnb2pr 0THEION : !-----------------------------------------------------------------o) !Cocoibu f thm ana! anl varncivt of thp parclind ir thboxei ato) !f theextolevenON : !-----------------------------------------------------------------o) l v_npbx1=:0.0_MKeON p an_npbx1=:0.0_MKeON F0]PRESNTENpcgho) 0THEIeON 0 !--------------------------------------------------------------ON 0 ! of thpcghokis sreon--ofakeof isnmatooacconnte 0 !--------------------------------------------------------------ON 0 DO kbox=fbox,lboxmp 0 DO k=ppb(klox),ppb(klox)+:pbx(klox)-1o) 0 000000 00p an_npbx1=:p an_npbx1+hpcgho(k(1) o) 0 000000 00 l v_npbx1=: l v_npbx1+hpcgho(k(**2 o) 0 000000ENDDOo- 00000ENDDOo-E #m_d== MPION 0 !--------------------------------------------------------------ON 0 !I op paralleweifeed tooaccumulabu f thcontribs. from ara!proraON !--------------------------------------------------------------ON 0 vector_ints(1) mean_npbx-- 0 vector_int2(1=: l v_npbxOE #i __KIND == __SINGLE_PRECISION CALMPI_AeaReduce(vector_in,vector_ ro,2,MPI_ RE, , & & MPI_SUM,N(ppdecm,t=info#eleie CALMPI_AeaReduce(vector_in,vector_ ro,2,MPI___DOUBLE_PRECISI, , & & MPI_SUM,N(ppdecm,t=info#e#endiN p an_npbx1=:vector_ rots(1o) 0 0000l v_npbx1=:vector_ rot2(1o#e#endiN ELSEON 0 !--------------------------------------------------------------ON 0 of thpcghokis not sreon--ococoibu f thcghoktshf th_nmvt of tON 0 (n glob)ae number op parclisnd ir thboxeie 0 !--------------------------------------------------------------ON 0 DO kbox=fbox,lboxmp 0 p an_npbx1=:p an_npbx1+h REA:pbxg(kboxf,MKfo) 0 0000l v_npbx1=: l v_npbx1+h REA:pbxg(kboxf,MKf**2) ENDDOo- 00ENDIFo- 0 !-----------------------------------------------------------------ON !Cocoibu f thm ana! anf thl varncio- 0 !-----------------------------------------------------------------ON p an_npbx1=:p an_npbx/ REAlbox - fbox + 1,MKfo) 0l v_npbx1=:v v_npbx/ REAlbox - fbox + 1,MKfi) - an_npbx**2)o- 0 !-----------------------------------------------------------------ON !Ifef thl varncivis acceptrbab ieil Leethan r thd lepancebtimbles !f thp anae number op parclis,ur t iubop o- 0 !-----------------------------------------------------------------ON F0]v v_npbx.LT.d lepance*- an_npbx) THEION 0 lcontinue1=:.FALSE.O- 00ENDIF o 0 ENDIF o) !--------------------------------------------------------------------ON !Cocoibu f threquiruteamonntvr omer myeatof theextoleven) !--------------------------------------------------------------------ON mem_req1=:nbox)+ (llox)+ 1 - fbox)*(2**N(ppm_diO) !--------------------------------------------------------------------ON !C ChecifeweihavThenougheper my) !--------------------------------------------------------------------ON F0]lcontinue.ANDGSIZE(npbx).LT.mem_req 0THEIeON :,io g = ppm_parameall_fit_preonser 1 0 ldcts(1) =(ppm_d)) ldct2(1=:mem_reqmp CAL (ppdeall(m,mibox,ldc,k,io,t=info) F0] (ino .N. 0GOTO 300o) 0 CAL (ppdeall(m,mibox,ldc,k,io,t=info) F0] (ino .N. 0GOTO 300o) 0 ldcts(1) mem_reqmp CAL (ppdeall(ppb ,ldc,k,io,t=info) F0] (ino .N. 0GOTO 300o) 0 CAL (ppdeall(npbx ,ldc,k,io,t=info) F0] (ino .N. 0GOTO 300o) 0 CAL (ppdeall(npbxg,ldc,k,io,t=info) F0] (ino .N. 0GOTO 300oo- 0 !-----------------------------------------------------------------ON !Catch e_errsnd i (ppdeallnmaNE debganinmodeo- 0 !-----------------------------------------------------------------ON 300 0 ONTINUE-E #m_d== MPION F0] (pp: deb) .G. 0THEION : 0 !--------------------------------------------------------------ON 0 MPI AeaReducemisiexeensive soeweisnly doof isnmaNE debganinON : 0 !--------------------------------------------------------------ON 0 CALMPI_AeaReduce(t=in,i,1,MPI_ INTEGRMPI_SUM,N(ppdecm,t=info) : ing io 0 ENDIFoe #endiN F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit -, & & 'redeallocininf tat Fr failed t2(!',__LINE__,t=info) GOTO 9999ON 00ENDIF o 0 ENDIF o ENDDO #eer omamaNDO WHILE loopoON !------------------------------------------------------------------------- !Nowbn_uir thboxei as oubeb-domai0] (inclininemptytboxei,osancisweidonte wantvvoidieespabwhich wshou/cshoulcan_uip parclisnmovininmatooemptyte eespab...swellof isncshoulbeisk: wshouifeed anaimmediabu r deilder -- !r thE deco positi - ! bur t iagoma - perhapsof isnwshoulhapeen quitt-- !frequn--ly.ON !------------------------------------------------------------------------- mem_req1=:ne si1+ (llox)+ 1 - fbox)te F0] em_req) .GSIZE(m,miins 2() THEION :,io g = ppm_parameall_fit_preonser 1 ldcts(1) =(ppm_d)) ldct2(1=:mem_reqmp CAL (ppdeall(m,miins ldc,k,io,t=info) F0] (ino .N. 0GOTO 400o) CAL (ppdeall(m,miins ldc,k,io,t=info) F0] (ino .N. 0GOTO 400o) ldcts(1) mem_reqmp400 0 CONTINUE-- F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit - , & & 'redeallocininf tae si1failed!',__LINE__,t=info) GOTO 9999ON ENDIF o ENDIF oON !------------------------------------------------------------------------- !Pere fm r thcopyON !------------------------------------------------------------------------- F00000ON(ppm_doEQN2) THEION !--------------------------------------------------------------------ON !ma 2DON !--------------------------------------------------------------------ON DO ibox=fbox,lboxmp :e si111111111111=::e si1+ 1o) 0 p,miinsO1ur_nsu(1=:- mibox(1,ilox)) p,miinsO2ur_nsu(1=:- mibox(2,ilox))) p,miinsO1ur_nsu(1=:-,mibox(1,ilox)) p,miinsO2ur_nsu(1=:-,mibox(2,ilox)) ENDDOo- ELSE F0]N(ppm_doEQN3) THEION !--------------------------------------------------------------------ON !ma 3DON !--------------------------------------------------------------------ON DO ibox=fbox,lboxmp :e si111111111111=::e si1+ 1o) 0 p,miinsO1ur_nsu(1=:- mibox(1,ilox)) p,miinsO2ur_nsu(1=:- mibox(2,ilox)) p,miinsO3ur_nsu(1=:- mibox(3,ilox))) p,miinsO1ur_nsu(1=:-,mibox(1,ilox)) p,miinsO2ur_nsu(1=:-,mibox(2,ilox)) 00p,miinsO3ur_nsu(1=:-,mibox(3,ilox)) ENDDOo- ENDIFo) !------------------------------------------------------------------------- !D debgani: wriearoutnf tat Fr ON !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION F0] (pprankoEQN. 0THEION p mg1=:'Wrieininf tat Fr toof thfili:at Fr.dat'al - CAL (ppwriea] (pprank,t('ppm_decomt Fritp mg,t=info) OPEN(10,FILE='t Fr.dat'(o) 0 DO i=1,n_nbaON WRITE(10,'(2e12.4)') p,miinsO1ui),p,miinsO2uifo) WRITE(10,'(2e12.4)') p,miinsO1ui),p,miinsO2uifo) WRITE(10,'(2e12.4)') p,miinsO1ui),p,miinsO2uifo) WRITE(10,'(2e12.4)') p,miinsO1ui),p,miinsO2uifo) WRITE(10,'(2e12.4)') p,miinsO1ui),p,miinsO2uifo) WRITE(10,'(A)'(o) 0 ENDDOo- 00CLOSE(10)) ENDIFo- ENDIF oON !------------------------------------------------------------------------- !F Frey thmer myeagoma-- !------------------------------------------------------------------------- :,io g = ppm_para deall-- CAL (ppdeall(ppb ,ldc,k,io,t=info) F0] (ino .N. 0GOTO 500o) CAL (ppdeall(npbx ,ldc,k,io,t=info) F0] (ino .N. 0GOTO 500o) CAL (ppdeall(npbxg ,ldc,k,io,t=info) F0] (ino .N. 0GOTO 500o) CAL (ppdeall(m,mibox,ldc,k,io,t=inf o) F0] (ino .N. 0GOTO 500o) CAL (ppdeall(m,mibox,ldc,k,io,t=inf o) F0] (ino .N. 0GOTO 500o) CAL (ppdeall(worki ,ldc,k,io,t=inf o) F0] (ino .N. 0GOTO 500o) 500 CONTINUE-) F0] (ino .N. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppm_decomt Frit & & 'dedeallocininworki waryi1failed!',__LINE__,t=info) GOTO 9999ON ENDIF o) !------------------------------------------------------------------------- !! Retuls !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppm_decomt Frit',t0,info- RETURION CONTAINSON SUBROUTINc CheON F0] mboxsize )LENE0.0_MK) THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomt Frit & & 'y thm,mimum!box sizekmust l b>E0 !',__LINE__,t=info) GOTO 8888o) ENDIFo- F0]Ns pa .LT.T0) THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomt Frit & & 'y the number op parclisnmust l b>=E0 !',__LINE__,t=info) GOTO 8888o) ENDIFo- DO i=1,=(ppm_d)) F0] min_phyi)u) .GT-(max_phyi() THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppm_decomt Frit & & ' min_phkmust l b<=:-(max_ph !',__LINE__,t=info) GOTO 8888o) ENDIFo- ENDDOo-8888 CONTINUE-- END SUBROUTINc CheOE #if __KIND == __SINGLE_PRECISION END SUBROUTINE decomt Fr_sle #elif __KIND == __DOUBLE_PRECISION END SUBROUTINE decomt Fr_doe #endilib('p-1.2/src/deall/ (ppdeall_1d.f000644 000765 000024 00000027436 11445666061 017347 0uubst00omstubsff000000 000000 N !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_1d) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_1ds(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_1dd(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_1dsc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_1ddc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_1di(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_1dl(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dblogi c !waryile #endif !!s(poinlars) based tikr the number oele----s.o) !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) 1K), DIMENSION):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) 1K), DIMENSION):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(1)K), DIMENSION):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(1)K), DIMENSION):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEE1)K), DIMENSION):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEE1)K), DIMENSION):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEE1)K), DIMENSION):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)dealloced.ON INTEGK), DIMENSION)EE EE , INTENT()EE E :ldaif !!sN number oleiiruteele----snd ileadaninbimensitiks oawary. (>0)) INTEGEEEEEEEEEEEEEEEEE1)K), INTENT()EE E :k,ioif !!sAeallocitinmode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEE1)K), INTENBRO ) :t=inON !!s! Retuslubstuh, 0euptiksucr Le.ON !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION):), POINTE) :workne #endif INTEGEEEEEEEEEEEEEEE) :t,lds ldcON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------O0 !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_1dit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: debu) .GT0) THEION CAL (ppdeallpdALc Chert('ppdeall_1ditk,io,lda,1,t=info) F0] (info .NE. 0GOTO 9999ON ENDIF oON !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_1dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_1ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_1dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_1ddcne #elif __KIND == INTEGON worki=> work_1dine #elif __KIND == LOGICALON worki=> work_1dloe #endO) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !--------------------------------------------------------------------ON !fithmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION lds =:SIZE(ae_da(ON F0]ldbo .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFo- ELSEON ldeall =:.TRUE.if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION lds =:SIZE(ae_da(ON F0]ldbo .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFo- ELSEON ldeall =:.TRUE.if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION lds =:SIZE(ae_da(ON F0]ldboLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFo- ELSEON ldeall =:.TRUE.if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION lds =:SIZE(ae_da(ON F0]ldboLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFo- ELSEON ldeall =:.TRUE.if ENDIFo- ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_1dit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_1dit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(lda(1(),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_1dit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Makeoa copyms or thpreon--ocont---- !------------------------------------------------------------------------- F0]lcopy 0THEION ldl =:MIN(lds lda(1()ON DO i=1,ldcON work(i(1=:ae_da(i)) ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloci old e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) !NULLIFY(ae_da(ON F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_1dit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_1dit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_1dsle #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_1ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_1dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_1ddcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_1dine #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_1dloe #endilib('p-1.2/src/deall/ (ppdeall_1dl.f000644 000765 000024 00000031624 11445666061 017515 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 N (ppdeall_1dlo !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_1dls(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_1dld(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_1dlsc(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_1dldc(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_1dli(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_1dll(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o1Dblogi c !waryile #endif !!s(poinlars) based tikabsolibutlower ! anuppmbeinunx b Foue.ON !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)dealloced.ON INTEGK), DIMENSION)EE , INTENT()EE E :ldlif !!sLower inunx limited ileadaninbim.ON INTEGK), DIMENSION)EE , INTENT()EE E :lduif !!sUppmbeinunx limited ileadaninbim. (>ldl(1().ON INTEGEEEEEEEEEEEEEEEEEK), INTENT()EE E :k,ioif !!sAeallocitinmode. Onivt :if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEEK), INTENBRO ) :t=inON !!s! Retuslubstuh, 0euptiksucr Le.ON !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION):), POINTE) :workne #endif INTEGEEEEEEEEEEEEEEE) :t,k,lda,lds ldc ldd,ldl_new,ldu_eewON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------O0 !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_1dlit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION CAL (ppdeallpdALc Chert('ppdeall_1dlitk,io,ldl,1,t=in,ldufo) F0] (info .NE. 0GOTO 9999ON ENDIF o !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_1dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_1ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_1dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_1ddcne #elif __KIND == INTEGON worki=> work_1dine #elif __KIND == LOGICALON worki=> work_1dloe #endO)) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !---------------------------------------------------------------------- !fithmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION lda =:LBOUND(ae_da,1)ON lds =:UBOUND(ae_da,1)ON F0]ldao .Nldl(1(.OR.ldbo .Nldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ldl_new =:ldl(1(if ldu_new =:ldu(1(if ELSEON 0 ldl_new =:ldaif ldu_new =:ldbif ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new =:ldl(1(if ldu_new =:ldu(1(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION lda =:LBOUND(ae_da,1)ON lds =:UBOUND(ae_da,1)ON F0]ldao .Nldl(1(.OR.ldbo .Nldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new =:ldl(1(if ldu_new =:ldu(1(if ELSEON 0 ldl_new =:ldaif ldu_new =:ldbif ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new =:ldl(1(if ldu_new =:ldu(1(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION lda =:LBOUND(ae_da,1)ON lds =:UBOUND(ae_da,1)ON F0]ldaoGTNldl(1(.OR.ldboLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ldl_new =:MIN(lda,ldl(1()ON ldu_new =:MAX(lds ldu(1()ON ELSEON 0 ldl_new =:ldaif ldu_new =:ldbif ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new =:ldl(1(if ldu_new =:ldu(1(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION lda =:LBOUND(ae_da,1)ON lds =:UBOUND(ae_da,1)ON F0]ldaoGTNldl(1(.OR.ldboLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new =:MIN(lda,ldl(1()ON ldu_new =:MAX(lds ldu(1()ON ELSEON 0 ldl_new =:ldaif ldu_new =:ldbif ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new =:ldl(1(if ldu_new =:ldu(1(if ENDIFo- ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_1dlit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_1dlit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(ldl_new:ldu_new),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_1dlit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]lcopy 0THEION ldl =:MAX(lda,ldl_new)ON ldd =:MIN(lds ldu_new)ON DO i=ldc lddo) work(i(1=:ae_da(i)) ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloci old e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) !NULLIFY(ae_da(ON F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_1dlit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_1dlit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_1dlsle #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_1dldne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_1dlscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_1dldcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_1dline #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_1dlloe #endilib('p-1.2/src/deall/ (ppdeall_2d.f000644 000765 000024 00000033474 11445666061 017347 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_2d) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_2ds(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_2dd(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_2dsc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_2ddc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_2di(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_2dl(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dblogi c !waryile #endif !!s(poinlars) based tikr the number oele----s.o !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)deallocedON INTEGK), DIMENSION)EE , INTENT()EE E :ldaif !!sN number oleiiruteele----snd ideanbimensitisks oawary (>0)) INTEGEEEEEEEEEEEEEEEEEK), INTENT()EE E :k,ioif !!sAeallocitinmode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEEK), INTENBRO ) :t=inON !!sSbstuheuptikr Retuks osubs routi, 0etiksucr LeO) !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N):), POINTE) :workne #endif INTEGK), DIMENSIO2)E :lds ldc lda_eewON INTEGEEEEEEEEEEEEEEE) :t,j,kON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------O0 !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_2dit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION CAL (ppdeallpdALc Chert('ppdeall_2ditk,io,lda,2t0,info F0] (info .NE. 0GOTO 9999ON ENDIF o !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_2dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_2ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_2dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_2ddcne #elif __KIND == INTEGON worki=> work_2dine #elif __KIND == LOGICALON worki=> work_2dloe #endO)) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !---------------------------------------------------------------------- !fithmer myeand preonserir thpreon--ocont---- !---------------------------------------------------------------------- F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)o .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if lda_eew(1) =:lda(1(if ELSEON 0 lda_eew(1) =:ldb(1(if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)o .Nlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if lda_eew(2) =:lda(2(if ELSEON 0 lda_eew(2) =:ldb(2(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)o .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(1) =:lda(1(if ELSEON 0 lda_eew(1) =:ldb(1(if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)o .Nlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(2) =:lda(2(if ELSEON 0 lda_eew(2) =:ldb(2(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)oLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lds(2) =:SIZE(ae_da,2)ON F0]lds(2)oLTNlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 lda_eew(1) =:MAX(lds(1) lda(1()ON 0 lda_eew(2) =:MAX(lds(2) lda(2()ON ELSEON 0 lda_eew(1) =:ldb(1(if 0 lda_eew(2) =:ldb(2(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)oLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lds(2) =:SIZE(ae_da,2)ON F0]lds(2)oLTNlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 lda_eew(1) =:MAX(lds(1) lda(1()ON 0 lda_eew(2) =:MAX(lds(2) lda(2()ON ELSEON 0 lda_eew(1) =:ldb(1(if 0 lda_eew(2) =:ldb(2(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if ENDIFo- ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_2dit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_2dit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(lda_eew(1),lda_eew(2)),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_2dit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Makeoa copyms or thpreon--ocont---- !------------------------------------------------------------------------- F0]lcopy 0THEION ldl(1) =:MIN(lda_eew(1),ldb(1()ON ldl(2) =:MIN(lda_eew(2),ldb(2()ON DO j=1,ldc(2(if DO i=1,ldc(1(if 0 work(i,j(1=:ae_da(i,j(o) ENDDOo- ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloci old e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) !NULLIFY(ae_da(ON F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdeall,t('ppdeall_2dit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_2dit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_2dsne #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_2ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_2dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_2ddcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_2dine #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_2dloe #endilib('p-1.2/src/deall/ (ppdeall_2dl.f000644 000765 000024 00000036530 11445666061 017517 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 N (ppdeall_2dlo !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_2dls(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_2dld(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_2dlsc(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_2dldc(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_2dli(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_2dll(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o2Dblogi c !waryile #endif !!s(poinlars) based tikabsolibutlower ! anuppmbeinunx b Foue.ON !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)dealloced.ON INTEGK), DIMENSION)EE , INTENT()EE E :ldlif !!sLower inunx limitsON INTEGK), DIMENSION)EE , INTENT()EE E :lduif !!sUppmbeinunx limits (>ldl(1:2().ON INTEGEEEEEEEEEEEEEEEEEK), INTENT()EE E :k,ioif !!sdeallociti mode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEEK), INTENBRO ) :t=inON !!s! Retuslubstuh, 0euptiksucr Le.ON !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N):), POINTE) :workne #endif INTEGK), DIMENSIO2)E :lda,lds ldc ldd,ldl_new,ldu_eewON INTEGEEEEEEEEEEEEEEE) :t,j,kON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------ON !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_2dlit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION CAL (ppdeallpdALc Chert('ppdeall_2dlitk,io,ldl,2,t=in,ldufo) F0] (info .NE. 0GOTO 9999ON ENDIF o !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_2dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_2ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_2dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_2ddcne #elif __KIND == INTEGON worki=> work_2dine #elif __KIND == LOGICALON worki=> work_2dloe #endO) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !---------------------------------------------------------------------- !fithmer myeand preonserir thpreon--ocont---- !---------------------------------------------------------------------- F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)o .Nldl(1(.OR.ldb(1)o .Nldu(1() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if ldl_new(1) =:ldl(1(if ldu_eew(1) =:ldu(1(if ELSEON 0ldl_new(1) =:lda(1(if ldu_eew(1) =:ldb(1(if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)o .Nldl(2)oOR.ldb(2)o .Nldu(2() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if ldl_new(2) =:ldl(2(if ldu_eew(2) =:ldu(2(if ELSEON 0ldl_new(2) =:lda(2(if ldu_eew(2) =:ldb(2(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(iif ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)o .Nldl(1(.OR.ldb(1)o .Nldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(1) =:ldl(1(if ldu_eew(1) =:ldu(1(if ELSEON 00ldl_new(1) =:lda(1(if ldu_eew(1) =:ldb(1(if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)o .Nldl(2)oOR.ldb(2)o .Nldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(2) =:ldl(2(if ldu_eew(2) =:ldu(2(if ELSEON 00ldl_new(2) =:lda(2(if ldu_eew(2) =:ldb(2(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(iif ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)oGTNldl(1(.OR.ldb(1)oLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)oGTNldl(2)oOR.ldb(2)oLTNldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 ldu_eew(1) =:MAX(lds(1) ldu(1()ON ldu_eew(2) =:MAX(lds(2) ldu(2() ON ldl_new(1) =:MIN(lda(1) ldl(1()ON ldl_new(2) =:MIN(lda(2) ldl(2()ON ELSEON 0 ldl_new(1) =:lda(1(if ldl_new(2) =:lda(2(iif ldu_eew(1) =:ldb(1(if ldu_eew(2) =:ldb(2(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(iif ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)oGTNldl(1(.OR.ldb(1)oLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)oGTNldl(2)oOR.ldb(2)oLTNldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 ldu_eew(1) =:MAX(lds(1) ldu(1()ON ldu_eew(2) =:MAX(lds(2) ldu(2() ON ldl_new(1) =:MIN(lda(1) ldl(1()ON ldl_new(2) =:MIN(lda(2) ldl(2()ON ELSEON 0 ldl_new(1) =:lda(1(if ldl_new(2) =:lda(2(iif ldu_eew(1) =:ldb(1(if ldu_eew(2) =:ldb(2(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(iif ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ENDIFo- ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_2dlit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_2dlit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(ldl_new(1(:ldu_eew(1),ldl_new(2):ldu_eew(2)),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_2dlit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Makeoa copyms or thpreon--ocont---- !------------------------------------------------------------------------- F0]lcopy 0THEION ldl(1) =:MAX(ldl_eew(1),lda(1()ON ldl(2) =:MAX(ldl_eew(2) lda(2()OON ldd(1) =:MIN(ldu_eew(1),ldb(1()ON ldd(2) =:MIN(ldu_eew(2) ldb(2()ON DO j=ldl(2),ldd(2)ON DO i=ldc(1),ldd(1(if 0 work(i,j(1=:ae_da(i,j(o) ENDDOo- ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloci old e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) !NULLIFY(ae_da(ON F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_2dlit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_2dlit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_2dlsle #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_2dldne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_2dlscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_2dldcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_2dline #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_2dlloe #endilib('p-1.2/src/deall/ (ppdeall_3d.f000644 000765 000024 00000036050 11445666061 017341 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_3d) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_3ds(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_3dd(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_3dsc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_3ddc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_3di(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_3dl(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dblogi c !waryile #endif !!s(poinlars) based tikr the number oele----s.o !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)deallocedON INTEGK), DIMENSION)EE , INTENT()EE E :ldaif !!sN number oleiiruteele----snd ideanbimensitisks oawary. (>0)) INTEGEEEEEEEEEEEEEEEEEK), INTENT()EE E :k,ioif !!sAeallocitinmode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEEK), INTENBRO ) :t=inON !!s! Retuslubstuh, 0euptiksucr LeO !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N):), POINTE) :workne #endif INTEGK), DIMENSIO3)E :lds ldc lda_eewON INTEGEEEEEEEEEEEEEEE) :t,j,kON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------o !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_3dit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION CAL (ppdeallpdALc Chert('ppdeall_3ditk,io,lda,3,t=info) F0] (info .NE. 0GOTO 9999ON ENDIF o !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_3dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_3ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_3dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_3ddcne #elif __KIND == INTEGON worki=> work_3dine #elif __KIND == LOGICALON worki=> work_3dloe #endO) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !---------------------------------------------------------------------- !fithmer myeand preonserir thpreon--ocont---- !---------------------------------------------------------------------- F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)o .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if lda_eew(1) =:lda(1(if ELSEON 0 lda_eew(1) =:ldb(1(if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)o .Nlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if lda_eew(2) =:lda(2(if ELSEON 0 lda_eew(2) =:ldb(2(if ENDIFoo lds(3) =:SIZE(ae_da,3)ON F0]lds(3)o .Nlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if lda_eew(3) =:lda(3(if ELSEON 0 lda_eew(3) =:ldb(3(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)o .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(1) =:lda(1(if ELSEON 0 lda_eew(1) =:ldb(1(if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)o .Nlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(2) =:lda(2(if ELSEON 0 lda_eew(2) =:ldb(2(if ENDIFoo lds(3) =:SIZE(ae_da,3)ON F0]lds(3)o .Nlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(3) =:lda(3(if ELSEON 0 lda_eew(3) =:ldb(3(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)oLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)oLTNlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lds(3) =:SIZE(ae_da,3)ON F0]lds(3)oLTNlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 lda_eew(1) =:MAX(lds(1) lda(1()ON 0 lda_eew(2) =:MAX(lds(2) lda(2()ON lda_eew(3) =:MAX(lds(3) lda(3()ON ELSEON 0 lda_eew(1) =:ldb(1(if 0 lda_eew(2) =:ldb(2(if lda_eew(3) =:ldb(3(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)oLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)oLTNlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lds(3) =:SIZE(ae_da,3)ON F0]lds(3)oLTNlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 lda_eew(1) =:MAX(lds(1) lda(1()ON 0 lda_eew(2) =:MAX(lds(2) lda(2()ON lda_eew(3) =:MAX(lds(3) lda(3()ON ELSEON 0 lda_eew(1) =:ldb(1(if 0 lda_eew(2) =:ldb(2(if lda_eew(3) =:ldb(3(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if ENDIFo- ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_3dit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_3dit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(lda_eew(1),lda_eew(2),lda_eew(3)),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_3dit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Makeoa copyms or thold cont---- !------------------------------------------------------------------------- F0]lcopy 0THEION ldl(1) =:MIN(lda_eew(1),ldb(1()ON ldl(2) =:MIN(lda_eew(2),ldb(2()ON ldl(3) =:MIN(lda_eew(3),ldb(3()ON DO k=1,ldc(3(if DO j=1,ldc(2(if DO i=1,ldc(1(if 0 0 work(i,j,k(1=:ae_da(i,j,k(if 0 ENDDOo- 0 ENDDOo- ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloci r thold e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_3dit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_3dit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_3dsne #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_3ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_3dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_3ddcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_3dine #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_3dloe #endO)lib('p-1.2/src/deall/ (ppdeall_3dl.f000644 000765 000024 00000042663 11445666061 017524 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_3dl) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_3dls(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_3dld(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_3dlsc(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_3dldc(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_3dli(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_3dll(ae_da,ldl,ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o3Dblogi c !waryile #endif !!s(poinlars) based tikabsolibutlower t anuppmbeinunx b Fous.o !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)dealloced.ON INTEGK), DIMENSION)EE , INTENT()EE E :ldlif !!sLower inunx limi-- INTEGK), DIMENSION)EE , INTENT()EE E :lduif !!sUppmbeinunx limi-- (>ldl(1:3)).ON INTEGEEEEEEEEEEEEEEEEEK), INTENT()EE E :k,ioif !!sAeallocitinmode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEEK), INTENBRO ) :t=inON !!s! Retuslubstuh, 0euptiksucr Le.o !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N):), POINTE) :workne #endif INTEGK), DIMENSIO3)E :lda,lds ldc ldd,ldl_new,ldu_eewON INTEGEEEEEEEEEEEEEEE) :t,j,kON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------o !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_3dlit',t0,info) !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_3dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_3ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_3dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_3ddcne #elif __KIND == INTEGON worki=> work_3dine #elif __KIND == LOGICALON worki=> work_3dloe #endO) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION CAL (ppdeallpdALc Chert('ppdeall_3dlitk,io,ldl,3,t=in,ldufo) F0] (info .NE. 0GOTO 9999ON ENDIF o !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !---------------------------------------------------------------------- !fithmer myeand preonserir thpreon--ocont---- !---------------------------------------------------------------------- F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)o .Nldl(1(.OR.ldb(1)o .Nldu(1() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if ldl_new(1) =:ldl(1(if ldu_eew(1) =:ldu(1(if ELSEON 0ldl_new(1) =:lda(1(if ldu_eew(1) =:ldb(1(if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)o .Nldl(2)oOR.ldb(2)o .Nldu(2() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if ldl_new(2) =:ldl(2(if ldu_eew(2) =:ldu(2(if ELSEON 0ldl_new(2) =:lda(2(if ldu_eew(2) =:ldb(2(if ENDIFoo lda(3) =:LBOUND(ae_da,3)ON lds(3) =:UBOUND(ae_da,3)ON F0]lda(3)o .Nldl(3)oOR.ldb(3)o .Nldu(3() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if ldl_new(3) =:ldl(3(if ldu_eew(3) =:ldu(3(if ELSEON 0ldl_new(3) =:lda(3(if ldu_eew(3) =:ldb(3(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(ii ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)o .Nldl(1(.OR.ldb(1)o .Nldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(1) =:ldl(1(if ldu_eew(1) =:ldu(1(if ELSEON 00ldl_new(1) =:lda(1(if ldu_eew(1) =:ldb(1(if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)o .Nldl(2)oOR.ldb(2)o .Nldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(2) =:ldl(2(if ldu_eew(2) =:ldu(2(if ELSEON 00ldl_new(2) =:lda(2(if ldu_eew(2) =:ldb(2(if ENDIFoo lda(3) =:LBOUND(ae_da,3)ON lds(3) =:UBOUND(ae_da,3)ON F0]lda(3)o .Nldl(3)oOR.ldb(3)o .Nldu(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(3) =:ldl(3(if ldu_eew(3) =:ldu(3(if ELSEON 00ldl_new(3) =:lda(3(if ldu_eew(3) =:ldb(3(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(ii ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)oGTNldl(1(.OR.ldb(1)oLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)oGTNldl(2)oOR.ldb(2)oLTNldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lda(3) =:LBOUND(ae_da,3)ON lds(3) =:UBOUND(ae_da,3)ON F0]lda(3)oGTNldl(3)oOR.ldb(3)oLTNldu(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 ldu_eew(1) =:MAX(lds(1) ldu(1()ON 0 ldu_eew(2) =:MAX(lds(2) ldu(2()ON ldu_eew(3) =:MAX(lds(3) ldu(3()iif ldl_new(1) =:MIN(lda(1),ldl(1()ON 0 ldl_new(2) =:MIN(lda(2),ldl(2()ON ldl_new(3) =:MIN(lda(3),ldl(3()ON ELSEON 0 ldl_new(1) =:lda(1(if ldl_new(2) =:lda(2(if ldl_new(3) =:lda(3(iif ldu_eew(1) =:ldb(1(if 0 ldu_eew(2) =:ldb(2(if ldu_eew(3) =:ldb(3(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(ii ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)oGTNldl(1(.OR.ldb(1)oLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)oGTNldl(2)oOR.ldb(2)oLTNldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lda(3) =:LBOUND(ae_da,3)ON lds(3) =:UBOUND(ae_da,3)ON F0]lda(3)oGTNldl(3)oOR.ldb(3)oLTNldu(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 ldu_eew(1) =:MAX(lds(1) ldu(1()ON 0 ldu_eew(2) =:MAX(lds(2) ldu(2()ON ldu_eew(3) =:MAX(lds(3) ldu(3()iif ldl_new(1) =:MIN(lda(1),ldl(1()ON 0 ldl_new(2) =:MIN(lda(2),ldl(2()ON ldl_new(3) =:MIN(lda(3),ldl(3()ON ELSEON 0 ldl_new(1) =:lda(1(if ldl_new(2) =:lda(2(if ldl_new(3) =:lda(3(iif ldu_eew(1) =:ldb(1(if 0 ldu_eew(2) =:ldb(2(if ldu_eew(3) =:ldb(3(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(ii ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ENDIFo- ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_3dlit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_3dlit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(ldl_new(1):ldu_eew(1)t & & ldl_new(2):ldu_eew(2)t & & ldl_new(3):ldu_eew(3)),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_3dlit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Makeoa copyms or thpreon--ocont---- !------------------------------------------------------------------------- F0]lcopy 0THEION ldl(1) =:MAX(ldl_new(1) lda(1()ON ldl(2) =:MAX(ldl_new(2) lda(2()ON ldl(3) =:MAX(ldl_new(3) lda(3()OON ldd(1) =:MIN(ldu_new(1) ldb(1()ON ldd(2) =:MIN(ldu_new(2) ldb(2()ON ldd(3) =:MIN(ldu_new(3) ldb(3()ON DO k=ldl(3),ldd(3)ON DO j=ldl(2),ldd(2)or - DO i=ldl(1),ldd(1)or - 0 work(i,j,k(1=:ae_da(i,j,k(if 0 ENDDOo- 0 ENDDOo- ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloci old e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) !NULLIFY(ae_da(ON F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_3dlit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_3dlit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_3dlsne #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_3dldne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_3dlscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_3dldcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_3dline #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_3dlloe #endO)lib('p-1.2/src/deall/ (ppdeall_4d.f000644 000765 000024 00000040571 11445666061 017345 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_4a) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_4ds(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_4dd(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_4dsc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_4ddc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_4di(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_4dl(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dblogi c !waryile #endif !!s(poinlars) based tikf theumber s oele-----.if !!if !!s[NOTE]if !!seliae_daiis alr ddyrtssociocedof thmer myerequire----if !!ss or is s routinis 2*size(ae_da(ON !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)deallocedON INTEGK), DIMENSION)EE , INTENT()EE E :ldaif !!sNumber s oleiiredoele-----nd ideanbimensitirms oawary. (>0)ON INTEGEEEEEEEEEEEEEEEEEK), INTENT()EE E :k,ioif !!sdeallociti mode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEEK), INTENBRO ) :t=inON !!s! Retusl0euptiksucr LeO !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N):), POINTE) :workne #endif INTEGK), DIMENSIO4)E :lds ldc lda_eewON INTEGEEEEEEEEEEEEEEE) :t,j,k,lON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------o !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_4dit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION CAL (ppdeallpdALc Chert('ppdeall_4ditk,io,lda,4,t=info) F0] (info .NE. 0GOTO 9999ON ENDIF o !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_4dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_4ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_4dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_4ddcne #elif __KIND == INTEGON worki=> work_4dine #elif __KIND == LOGICALON worki=> work_4dloe #endO) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !---------------------------------------------------------------------- !fithmer myeand preonserir thpreon--ocont---- !---------------------------------------------------------------------- F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)o .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if lda_eew(1) =:lda(1(if ELSEON 0 lda_eew(1) =:ldb(1(if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)o .Nlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if 0 lda_eew(2) =:lda(2(if ELSEON 0 lda_eew(2) =:ldb(2(if ENDIFoo lds(3) =:SIZE(ae_da,3)ON F0]lds(3)o .Nlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if 0 lda_eew(3) =:lda(3(if ELSEON 0 lda_eew(3) =:ldb(3(if ENDIFoo lds(4) =:SIZE(ae_da,4)ON F0]lds(4)o .Nlda(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if 0 lda_eew(4) =:lda(4(if ELSEON 0 lda_eew(4) =:ldb(4(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if 0 lda_eew(4) =:lda(4(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)o .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(1) =:lda(1(if ELSEON 0 lda_eew(1) =:ldb(1(if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)o .Nlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(2) =:lda(2(if ELSEON 0 lda_eew(2) =:ldb(2(if ENDIFoo lds(3) =:SIZE(ae_da,3)ON F0]lds(3)o .Nlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(3) =:lda(3(if ELSEON 0 lda_eew(3) =:ldb(3(if ENDIFoo lds(4) =:SIZE(ae_da,4)ON F0]lds(4)o .Nlda(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(4) =:lda(4(if ELSEON 0 lda_eew(4) =:ldb(4(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if 0 lda_eew(4) =:lda(4(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)oLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)oLTNlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lds(3) =:SIZE(ae_da,3)ON F0]lds(3)oLTNlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lds(4) =:SIZE(ae_da,4)ON F0]lds(4)oLTNlda(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 lda_eew(1) =:MAX(lds(1) lda(1()ON 0 lda_eew(2) =:MAX(lds(2) lda(2()ON 0 lda_eew(3) =:MAX(lds(3) lda(3()ON 0 lda_eew(4) =:MAX(lds(4) lda(4()ON ELSEON 0 lda_eew(1) =:ldb(1(if 0 lda_eew(2) =:ldb(2(if lda_eew(3) =:ldb(3(if 0 lda_eew(4) =:ldb(4(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if 0 lda_eew(4) =:lda(4(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]lds(1)oLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lds(2) =:SIZE(ae_da,2)ON F0]lds(2)oLTNlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lds(3) =:SIZE(ae_da,3)ON F0]lds(3)oLTNlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lds(4) =:SIZE(ae_da,4)ON F0]lds(4)oLTNlda(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 lda_eew(1) =:MAX(lds(1) lda(1()ON 0 lda_eew(2) =:MAX(lds(2) lda(2()ON 0 lda_eew(3) =:MAX(lds(3) lda(3()ON 0 lda_eew(4) =:MAX(lds(4) lda(4()ON ELSEON 0 lda_eew(1) =:ldb(1(if 0 lda_eew(2) =:ldb(2(if lda_eew(3) =:ldb(3(if 0 lda_eew(4) =:ldb(4(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if 0 lda_eew(4) =:lda(4(if ENDIFo- ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_4dit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_4dit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(lda_eew(1),lda_eew(2),lda_eew(3),lda_eew(4)),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_4dit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Makeoa copyms or thold cont---- !------------------------------------------------------------------------- F0]lcopy 0THEION DO k=1,4if 0 ldc(k) =:MIN(lda_eew(k) ldb(k)(if ENDDOo- DO l=1,ldc(4(if DO k=1,ldl(3)or - DO j=1,ldl(2(if DO i=1,ldl(1)or - 0 0 work(i,j,k,l(1=:ae_da(i,j,k,l(or - 0 ENDDOo- 0 0 ENDDOo- 0 ENDDOo- ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloci r thold e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) !NULLIFY(ae_da(ON F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_4dit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_4dit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_4dsne #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_4ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_4dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_4ddcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_4dine #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_4dloe #endO)lib('p-1.2/src/deall/ (ppdeall_4dl.f000644 000765 000024 00000046607 11445666061 017527 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_4al) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_4dls(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_4dld(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_4dlsc(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_4dldc(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_4dli(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_4dll(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o4Dblogi c !waryile #endif !!s(poinlars) based tikabsolibutlower ! anuppmbeinunx b Fou-.if !!if !!s[NOTE]if !!seliae_daiis alr ddyrtssociocedof thmer myerequire----if !!ss or is s routinis 2*size(ae_da(ON !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)dealloced.ON INTEGK), DIMENSION)EE , INTENT()EE E :ldlif !!sLower inunx limi-- INTEGK), DIMENSION)EE , INTENT()EE E :lduif !!sUppmbeinunx limi-- (>ldl(1:4)).ON INTEGEEEEEEEEEEEEEEEEEK), INTENT()EE E :k,ioif !!sAeallociti mode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEEK), INTENBRO ) :t=inON !!s! Retuslubstus,l0euptiksucr Le.O !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N):), POINTE) :workne #endif INTEGK), DIMENSIO4)E :lda,lds ldc ldd,ldl_new,ldu_newON INTEGEEEEEEEEEEEEEEE) :t,j,k,lON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------ON !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_4dlit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION CAL (ppdeallpdALc Chert('ppdeall_4dlitk,io,ldl,4,t=in,ldufo) F0] (info .NE. 0GOTO 9999ON ENDIF o !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_4dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_4ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_4dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_4ddcne #elif __KIND == INTEGON worki=> work_4dine #elif __KIND == LOGICALON worki=> work_4dloe #endO) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !---------------------------------------------------------------------- !fithmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)o .Nldl(1(.OR.ldb(1)o .Nldu(1() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if 0ldl_new(1) =:ldl(1(if ldu_eew(1) =:ldu(1(if ELSEON 0ldl_new(1) =:lda(1(if ldu_eew(1) =:ldb(1(if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)o .Nldl(2)oOR.ldb(2)o .Nldu(2() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if 0ldl_new(2) =:ldl(2(i ldu_eew(2) =:ldu(2(if ELSEON 0ldl_new(2) =:lda(2(if ldu_eew(2) =:ldb(2(if ENDIF o lda(3) =:LBOUND(ae_da,3)ON lds(3) =:UBOUND(ae_da,3)ON F0]lda(3)o .Nldl(3)oOR.ldb(3)o .Nldu(3() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if 0ldl_new(3) =:ldl(3(if ldu_eew(3) =:ldu(3(if ELSEON 0ldl_new(3) =:lda(3(if 0 ldu_eew(3) =:ldb(3(if ENDIFoo lda(4) =:LBOUND(ae_da,4)ON lds(4) =:UBOUND(ae_da,4)ON F0]lda(4)o .Nldl(4)oOR.ldb(4)o .Nldu(4() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if 0ldl_new(4) =:ldl(4(if 0 ldu_eew(4) =:ldu(4(if ELSEON 0ldl_new(4) =:lda(4(if ldu_eew(4) =:ldb(4(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(i 0ldl_new(4) =:ldl(4(ii 0ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ldu_eew(4) =:ldu(4(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)o .Nldl(1(.OR.ldb(1)o .Nldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(1) =:ldl(1(if ldu_eew(1) =:ldu(1(if ELSEON 00ldl_new(1) =:lda(1(if ldu_eew(1) =:ldb(1(if ENDIF o lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)o .Nldl(2)oOR.ldb(2)o .Nldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(2) =:ldl(2(i ldu_eew(2) =:ldu(2(if ELSEON 00ldl_new(2) =:lda(2(if ldu_eew(2) =:ldb(2(if ENDIF o lda(3) =:LBOUND(ae_da,3)ON lds(3) =:UBOUND(ae_da,3)ON F0]lda(3)o .Nldl(3)oOR.ldb(3)o .Nldu(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(3) =:ldl(3(if ldu_eew(3) =:ldu(3(if ELSEON 00ldl_new(3) =:lda(3(if 0 ldu_eew(3) =:ldb(3(if ENDIFoo lda(4) =:LBOUND(ae_da,4)ON lds(4) =:UBOUND(ae_da,4)ON F0]lda(4)o .Nldl(4)oOR.ldb(4)o .Nldu(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(4) =:ldl(4(if 0 ldu_eew(4) =:ldu(4(if ELSEON 00ldl_new(4) =:lda(4(if ldu_eew(4) =:ldb(4(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(i 0ldl_new(4) =:ldl(4(ii 0ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ldu_eew(4) =:ldu(4(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)oGTNldl(1(.OR.ldb(1)oLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)oGTNldl(2)oOR.ldb(2)oLTNldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lda(3) =:LBOUND(ae_da,3)ON lds(3) =:UBOUND(ae_da,3)ON F0]lda(3)oGTNldl(3)oOR.ldb(3)oLTNldu(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lda(4) =:LBOUND(ae_da,4)ON lds(4) =:UBOUND(ae_da,4)ON F0]lda(4)oGTNldl(4)oOR.ldb(4)oLTNldu(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 ldu_eew(1) =:MAX(lds(1) ldu(1()ON 0 ldu_eew(2) =:MAX(lds(2) ldu(2()ON 0 ldu_eew(3) =:MAX(lds(3) ldu(3()ON 0 ldu_eew(4) =:MAX(lds(4) ldu(4() ON 0 ldl_new(1) =:MIN(lda(1) ldl(1()ON 0 ldl_new(2) =:MIN(lda(2) ldl(2()ON 0 ldl_new(3) =:MIN(lda(3) ldl(3()ON 0 ldl_new(4) =:MIN(lda(4) ldl(4()ON ELSEON 0 ldl_new(1) =:lda(1(if ldl_new(2) =:lda(2(if ldl_new(3) =:lda(3(if 0 ldl_new(4) =:lda(4(iif ldu_eew(1) =:ldb(1(if ldu_eew(2) =:ldb(2(if ldu_eew(3) =:ldb(3(if ldu_eew(4) =:ldb(4(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(i 0ldl_new(4) =:ldl(4(ii 0ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ldu_eew(4) =:ldu(4(if ENDIFo ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1)ON lds(1) =:UBOUND(ae_da,1)ON F0]lda(1)oGTNldl(1(.OR.ldb(1)oLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lda(2) =:LBOUND(ae_da,2)ON lds(2) =:UBOUND(ae_da,2)ON F0]lda(2)oGTNldl(2)oOR.ldb(2)oLTNldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lda(3) =:LBOUND(ae_da,3)ON lds(3) =:UBOUND(ae_da,3)ON F0]lda(3)oGTNldl(3)oOR.ldb(3)oLTNldu(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lda(4) =:LBOUND(ae_da,4)ON lds(4) =:UBOUND(ae_da,4)ON F0]lda(4)oGTNldl(4)oOR.ldb(4)oLTNldu(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 ldu_eew(1) =:MAX(lds(1) ldu(1()ON 0 ldu_eew(2) =:MAX(lds(2) ldu(2()ON 0 ldu_eew(3) =:MAX(lds(3) ldu(3()ON 0 ldu_eew(4) =:MAX(lds(4) ldu(4() ON 0 ldl_new(1) =:MIN(lda(1) ldl(1()ON 0 ldl_new(2) =:MIN(lda(2) ldl(2()ON 0 ldl_new(3) =:MIN(lda(3) ldl(3()ON 0 ldl_new(4) =:MIN(lda(4) ldl(4()ON ELSEON 0 ldl_new(1) =:lda(1(if 0 ldl_new(2) =:lda(2(if ldl_new(3) =:lda(3(if 0 ldl_new(4) =:lda(4(iif ldu_eew(1) =:ldb(1(if ldu_eew(2) =:ldb(2(if ldu_eew(3) =:ldb(3(if ldu_eew(4) =:ldb(4(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(i 0ldl_new(4) =:ldl(4(ii 0ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ldu_eew(4) =:ldu(4(if ENDIFo ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_4dlit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_4dlit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(ldl_new(1):ldu_eew(1)t & & ldl_new(2):ldu_eew(2)t & & ldl_new(3):ldu_eew(3)t & & ldl_new(4):ldu_eew(4)),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_4dlit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Makeoa copyms or thpreon--ocont---- !------------------------------------------------------------------------- F0]lcopy 0THEION DO k=1,4if 0 ldc(k) =:MAX(ldl_eew(k) lda(k)(if 0 ldd(k) =:MIN(ldu_eew(k) ldb(k)(if ENDDOo- DO l=ldc(4( ldd(4(if DO k=ldl(3) ldd(3)or - DO j=ldl(2( ldd(2(if DO i=ldl(1) ldd(1)or - 0 0 work(i,j,k,l(1=:ae_da(i,j,k,l(or - 0 ENDDOo- 0 0 ENDDOo- 0 ENDDOo- ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloca old e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) !NULLIFY(ae_da(ON F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_4dlit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_4dlit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_4dlsne #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_4dldne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_4dlscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_4dldcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_4dline #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_4dlloe #endO)lib('p-1.2/src/deall/ (ppdeall_5d.f000644 000765 000024 00000043220 11445666061 017340 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_5a) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_5ds(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_5dd(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_5dsc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_5ddc(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_5di(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_5dl(ae_da,lda,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dblogi c !waryile #endif !!s(poinlars) based tikf th number s oele-----.if !!if !!s[NOTE]if !!seliae_daiis alr ddyrtssociocedof thmer myerequire----if !!ss or is s routinis 2*size(ae_da(ON !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N,N):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)deallocedON INTEGK), DIMENSION)EE , INTENT()EE E :ldaif !!sNumber s oleiiredoele-----nd ideanbimensitirms oawary. (>0)ON INTEGEEEEEEEEEEEEEEEEEK), INTENT()EE E :k,ioif !!sAeallociti mode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEEK), INTENBRO ) :t=inON !!s! Retuslubstus,l0euptiksucr LeO !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N,N):), POINTE) :workne #endif INTEGK), DIMENSIO5)E :lds ldc lda_newON INTEGEEEEEEEEEEEEEEE) :t,j,k,l,mON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------ON !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_5dit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION CAL (ppdeallpdALc Chert('ppdeall_5ditk,io,lda,5,t=info) F0] (info .NE. 0GOTO 9999ON ENDIF o !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_5dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_5ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_5dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_5ddcne #elif __KIND == INTEGON worki=> work_5dine #elif __KIND == LOGICALON worki=> work_5dloe #endO) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !---------------------------------------------------------------------- !fithmer myeand preonserir thpreon--ocont---- !---------------------------------------------------------------------- F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]ldb(1)o .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if lda_eew(1) =:lda(1(if ELSEON 0 lda_eew(1) =:ldb(1(if ENDIFoo lds(2) =:SIZE(ae_da,2)ON F0]ldb(2)o .Nlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if 0 lda_eew(2) =:lda(2(if ELSEON 0 lda_eew(2) =:ldb(2(if ENDIF o lds(3) =:SIZE(ae_da,3)ON F0]ldb(3)o .Nlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if 0 lda_eew(3) =:lda(3(if 0 ELSEON 0 lda_eew(3) =:ldb(3(if ENDIFoo lds(4) =:SIZE(ae_da,4)ON F0]ldb(4)o .Nlda(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if 0 lda_eew(4) =:lda(4(if ELSEON 0 lda_eew(4) =:ldb(4(if ENDIFoo lds(5) =:SIZE(ae_da,5)ON F0]ldb(5)o .Nlda(5() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if 0 lda_eew(5) =:lda(5(if ELSEON 0 lda_eew(5) =:ldb(5(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if 0 lda_eew(4) =:lda(4(if lda_eew(5) =:lda(5(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]ldb(1)o .Nlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(1) =:lda(1(if ELSEON 0 lda_eew(1) =:ldb(1(if ENDIFoo lds(2) =:SIZE(ae_da,2)ON F0]ldb(2)o .Nlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(2) =:lda(2(if ELSEON 0 lda_eew(2) =:ldb(2(if ENDIF o lds(3) =:SIZE(ae_da,3)ON F0]ldb(3)o .Nlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(3) =:lda(3(if 0 ELSEON 0 lda_eew(3) =:ldb(3(if ENDIFoo lds(4) =:SIZE(ae_da,4)ON F0]ldb(4)o .Nlda(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(4) =:lda(4(if ELSEON 0 lda_eew(4) =:ldb(4(if ENDIFoo lds(5) =:SIZE(ae_da,5)ON F0]ldb(5)o .Nlda(5() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lda_eew(5) =:lda(5(if ELSEON 0 lda_eew(5) =:ldb(5(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if 0 lda_eew(4) =:lda(4(if lda_eew(5) =:lda(5(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]ldb(1)oLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lds(2) =:SIZE(ae_da,2)ON F0]ldb(2)oLTNlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lds(3) =:SIZE(ae_da,3)ON F0]ldb(3)oLTNlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lds(4) =:SIZE(ae_da,4)ON F0]ldb(4)oLTNlda(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lds(5) =:SIZE(ae_da,5)ON F0]ldb(5)oLTNlda(5() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 lda_eew(1) =:MAX(lds(1) lda(1()ON 0 lda_eew(2) =:MAX(lds(2) lda(2()ON 0 lda_eew(3) =:MAX(lds(3) lda(3()ON 0 lda_eew(4) =:MAX(lds(4) lda(4()ON lda_eew(5) =:MAX(lds(5) lda(5()ON ELSEON 0 lda_eew(1) =:ldb(1(if 0 lda_eew(2) =:ldb(2(if lda_eew(3) =:ldb(3(if 0 lda_eew(4) =:ldb(4(if lda_eew(5) =:ldb(5(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if 0 lda_eew(4) =:lda(4(if lda_eew(5) =:lda(5(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lds(1) =:SIZE(ae_da,1)ON F0]ldb(1)oLTNlda(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lds(2) =:SIZE(ae_da,2)ON F0]ldb(2)oLTNlda(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lds(3) =:SIZE(ae_da,3)ON F0]ldb(3)oLTNlda(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lds(4) =:SIZE(ae_da,4)ON F0]ldb(4)oLTNlda(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lds(5) =:SIZE(ae_da,5)ON F0]ldb(5)oLTNlda(5() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 lda_eew(1) =:MAX(lds(1) lda(1()ON 0 lda_eew(2) =:MAX(lds(2) lda(2()ON 0 lda_eew(3) =:MAX(lds(3) lda(3()ON 0 lda_eew(4) =:MAX(lds(4) lda(4()ON 0 lda_eew(5) =:MAX(lds(5) lda(5()ON ELSEON 0 lda_eew(1) =:ldb(1(if 0 lda_eew(2) =:ldb(2(if lda_eew(3) =:ldb(3(if 0 lda_eew(4) =:ldb(4(if lda_eew(5) =:ldb(5(if ENDIFo- ELSEON ldeall =:.TRUE.if lda_eew(1) =:lda(1(if lda_eew(2) =:lda(2(if lda_eew(3) =:lda(3(if 0 lda_eew(4) =:lda(4(if lda_eew(5) =:lda(5(if ENDIFo- ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_5dit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_5dit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(lda_eew(1),lda_eew(2),lda_eew(3),lda_eew(4), & & lda_eew(5)),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_5dit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Makeoa copyms or thold cont---- !------------------------------------------------------------------------- F0]lcopy 0THEION DO k=1,5if ldc(k) =:MIN(lda_eew(k) ldb(k)(if ENDDOo- DO m=1,ldc(5(if DO l=1,ldc(4(if DO k=1,ldl(3)if DO j=1,ldl(2(if DO i=1,ldl(1)or - 0 0 0 work(i,j,k,l,m(1=:ae_da(i,j,k,l,m(or - 0 0 ENDDOo- 0 0 0 ENDDOo- 0 0 ENDDOo- 0 ENDDOo- ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloca r thold e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) !NULLIFY(ae_da(ON F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_5dit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_5dit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_5dsne #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_5ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_5dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_5ddcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_5dine #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_5dloe #endO)lib('p-1.2/src/deall/ (ppdeall_5dl.f000644 000765 000024 00000052515 11445666061 017523 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_5al) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OE #if __KIND == __SINGLE_PRECISION SUBROUTIN (ppdeall_5dls(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbre l sanilei waryile #elif __KIND == __DOUBLE_PRECISION SUBROUTIN (ppdeall_5dld(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbre l doublei waryile #elif __KIND == __SINGLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_5dlsc(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbdecolex sanilei waryile #elif __KIND == __DOUBLE_PRECISI_COMPLEXON SUBROUTIN (ppdeall_5dldc(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbdecolex doublei waryile #elif __KIND == INTEGON SUBROUTIN (ppdeall_5dli(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dbinlager !waryile #elif __KIND == LOGICALON SUBROUTIN (ppdeall_5dll(ae_da,ldl ldu,k,io,t=info) !!s(Re)deallocesof thmer myes o5Dblogi c !waryile #endif !!s(poinlars) based tikabsolibutlower ! anuppmbeinunx b Fou-.if !!if !!s[NOTE]if !!seliae_daiis alr ddyrtssociocedof thmer myerequire----if !!ss or is s routinis 2*size(ae_da(ON !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N,N):), POINTE) :ae_dale #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N,N):), POINTE) :ae_dale #endif !!sPoinlar tooawary which isiroll b(re)dealloced.ON INTEGK), DIMENSION)EE , INTENT()EE E :ldlif !!sLower inunx limi-- INTEGK), DIMENSION)EE , INTENT()EE E :lduif !!sUppmbeinunx limi-- (>ldl(1:5)).ON INTEGEEEEEEEEEEEEEEEEEK), INTENT()EE E :k,ioif !!sdeallociti mode. Onivt :if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEEK), INTENBRO ) :t=inON !!s! Retuslubstus,l0euptiksucr Le.O !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION REA('ppkf i_sanile(1) K), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISION REA('ppkf i_double(1) K), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == __SINGLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_sanile(K), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON COMPLEXA('ppkf i_double(K), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == INTEGON INTEGEEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N,N):), POINTE) :workne #elif __KIND == LOGICALON LOGICALmEEEEEEEEEEEEEEEEK), DIMENSION,N,N,N,N):), POINTE) :workne #endif INTEGK), DIMENSIO5)E :lda,lds ldc ldd,ldl_eew,ldu_eewON INTEGEEEEEEEEEEEEEEE) :t,j,k,l,mON LOGICALmEEEEEEEEEEEEEE :lcopy,ldeall,lr deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------ON !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_5dlit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0] (pp: deb) .G. 0THEION CAL (ppdeallpdALc Chert('ppdeall_5dlitk,io,ldl,5,t=in,ldufo) F0] (info .NE. 0GOTO 9999ON ENDIF o !------------------------------------------------------------------------- !Poinlirolpropmbeworki wary !------------------------------------------------------------------------E #if __KIND == __SINGLE_PRECISION worki=> work_5dsne #elif __KIND == __DOUBLE_PRECISION worki=> work_5ddne #elif __KIND == __SINGLE_PRECISI_COMPLEXON worki=> work_5dscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON worki=> work_5ddcne #elif __KIND == INTEGON worki=> work_5dine #elif __KIND == LOGICALON worki=> work_5dloe #endO) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- lcopy =:.FALSE.O- ldeall =:.FALSE.O- lr deall =:.FALSE.O- F00000Ok,iooEQN= ppm_parameall_fit_preonser) THEION !---------------------------------------------------------------------- !fithmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1(if lds(1) =:UBOUND(ae_da,1(if F0]lda(1)o .Nldl(1(oOR.ldb(1)o .Nldu(1() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if 0ldl_new(1) =:ldl(1(if 0ldu_eew(1) =:ldu(1(if ELSEON 0ldl_new(1) =:lda(1(if 0ldu_eew(1) =:ldb(1(if ENDIFoo lda(2) =:LBOUND(ae_da,2(if lds(2) =:UBOUND(ae_da,2(if F0]lda(2)o .Nldl(2(oOR.ldb(2)o .Nldu(2() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if 0ldl_new(2) =:ldl(2(i 0ldu_eew(2) =:ldu(2(if ELSEON 0ldl_new(2) =:lda(2(if ldu_eew(2) =:ldb(2(if ENDIFoo lda(3) =:LBOUND(ae_da,3(if 0 lds(3) =:UBOUND(ae_da,3(if 0 F0]lda(3)o .Nldl(3(oOR.ldb(3)o .Nldu(3() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if 0ldl_new(3) =:ldl(3(i 0 ldu_eew(3) =:ldu(3(if ELSEON 0ldl_new(3) =:lda(3(if 0 ldu_eew(3) =:ldb(3(if ENDIFoo lda(4) =:LBOUND(ae_da,4(if lds(4) =:UBOUND(ae_da,4(if F0]lda(4)o .Nldl(4(oOR.ldb(4)o .Nldu(4() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if 0ldl_new(4) =:ldl(4(if 0 ldu_eew(4) =:ldu(4(if ELSEON 0ldl_new(4) =:lda(4(if ldu_eew(4) =:ldb(4(if ENDIFoo lda(5) =:LBOUND(ae_da,5(if lds(5) =:UBOUND(ae_da,5)ON F0]lda(5)o .Nldl(5)oOR.ldb(5)o .Nldu(5() THEION 0lr deall =:.TRUE.if 0ldeall =:.TRUE.if 0lcopy =:.TRUE.if 0ldl_new(5) =:ldl(5(if ldu_eew(5) =:ldu(5(if ELSEON 0ldl_new(5) =:lda(5(if ldu_eew(5) =:ldb(5(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(i 0ldl_new(4) =:ldl(4(if 0 ldl_new(5) =:ldl(5(iif 0 ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ldu_eew(4) =:ldu(4(if ldu_eew(5) =:ldu(5(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1(if lds(1) =:UBOUND(ae_da,1(if F0]lda(1)o .Nldl(1(oOR.ldb(1)o .Nldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(1) =:ldl(1(if 00ldu_eew(1) =:ldu(1(if ELSEON 00ldl_new(1) =:lda(1(if 00ldu_eew(1) =:ldb(1(if ENDIFoo lda(2) =:LBOUND(ae_da,2(if lds(2) =:UBOUND(ae_da,2(if F0]lda(2)o .Nldl(2(oOR.ldb(2)o .Nldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(2) =:ldl(2(i 00ldu_eew(2) =:ldu(2(if ELSEON 00ldl_new(2) =:lda(2(if ldu_eew(2) =:ldb(2(if ENDIFoo lda(3) =:LBOUND(ae_da,3(if 0 lds(3) =:UBOUND(ae_da,3(if 0 F0]lda(3)o .Nldl(3(oOR.ldb(3)o .Nldu(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(3) =:ldl(3(i 0 ldu_eew(3) =:ldu(3(if ELSEON 00ldl_new(3) =:lda(3(if 0 ldu_eew(3) =:ldb(3(if ENDIFoo lda(4) =:LBOUND(ae_da,4(if lds(4) =:UBOUND(ae_da,4(if F0]lda(4)o .Nldl(4(oOR.ldb(4)o .Nldu(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(4) =:ldl(4(if 0 ldu_eew(4) =:ldu(4(if ELSEON 00ldl_new(4) =:lda(4(if ldu_eew(4) =:ldb(4(if ENDIFoo lda(5) =:LBOUND(ae_da,5(if lds(5) =:UBOUND(ae_da,5)ON F0]lda(5)o .Nldl(5)oOR.ldb(5)o .Nldu(5() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 ldl_new(5) =:ldl(5(if ldu_eew(5) =:ldu(5(if ELSEON 00ldl_new(5) =:lda(5(if ldu_eew(5) =:ldb(5(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(i 0ldl_new(4) =:ldl(4(if 0 ldl_new(5) =:ldl(5(iif 0 ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ldu_eew(4) =:ldu(4(if ldu_eew(5) =:ldu(5(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow_preonser) THEION !--------------------------------------------------------------------ON !growhmer myeand preonserir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1(if lds(1) =:UBOUND(ae_da,1(if F0]lda(1)oGTNldl(1(oOR.ldb(1)oLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lda(2) =:LBOUND(ae_da,2(if lds(2) =:UBOUND(ae_da,2(if F0]lda(2)oGTNldl(2(oOR.ldb(2)oLTNldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIF o lda(3) =:LBOUND(ae_da,3(if 0 lds(3) =:UBOUND(ae_da,3(if 0 F0]lda(3)oGTNldl(3(oOR.ldb(3)oLTNldu(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lda(4) =:LBOUND(ae_da,4(if lds(4) =:UBOUND(ae_da,4(if F0]lda(4)oGTNldl(4(oOR.ldb(4)oLTNldu(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoo lda(5) =:LBOUND(ae_da,5(if lds(5) =:UBOUND(ae_da,5)ON F0]lda(5)oGTNldl(5)oOR.ldb(5)oLTNldu(5() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if 0 lcopy =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 ldu_eew(1) =:MAX(lds(1) ldu(1()ON 0 ldu_eew(2) =:MAX(lds(2) ldu(2()ON 0 ldu_eew(3) =:MAX(lds(3) ldu(3()ON 0 ldu_eew(4) =:MAX(lds(4) ldu(4()ON 0 ldu_eew(5) =:MAX(lds(5) ldu(5() ON 0 ldl_new(1) =:MIN(lda(1) ldl(1()ON 0 ldl_new(2) =:MIN(lda(2) ldl(2()ON 0 ldl_new(3) =:MIN(lda(3) ldl(3()ON 0 ldl_new(4) =:MIN(lda(4) ldl(4()ON 0 ldl_new(5) =:MIN(lda(5) ldl(5()ON ELSEON 0 ldl_new(1) =:lda(1(if 00ldl_new(2) =:lda(2(if ldl_new(3) =:lda(3(if 0 ldl_new(4) =:lda(4(if ldl_new(5) =:lda(5(iif 00ldu_eew(1) =:ldb(1(if 0 ldu_eew(2) =:ldb(2(if ldu_eew(3) =:ldb(3(if 0 ldu_eew(4) =:ldb(4(if ldu_eew(5) =:ldb(5(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(i 0ldl_new(4) =:ldl(4(if 0 ldl_new(5) =:ldl(5(iif 0 ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ldu_eew(4) =:ldu(4(if ldu_eew(5) =:ldu(5(if ENDIFo- ELSE F0]k,iooEQN= ppm_parameall_grow) THEION !--------------------------------------------------------------------ON !growhmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(ae_da() THEION ! loop pe #engON lda(1) =:LBOUND(ae_da,1(if lds(1) =:UBOUND(ae_da,1(if F0]lda(1)oGTNldl(1(oOR.ldb(1)oLTNldu(1() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lda(2) =:LBOUND(ae_da,2(if lds(2) =:UBOUND(ae_da,2(if F0]lda(2)oGTNldl(2(oOR.ldb(2)oLTNldu(2() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIF o lda(3) =:LBOUND(ae_da,3(if 0 lds(3) =:UBOUND(ae_da,3(if 0 F0]lda(3)oGTNldl(3(oOR.ldb(3)oLTNldu(3() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lda(4) =:LBOUND(ae_da,4(if lds(4) =:UBOUND(ae_da,4(if F0]lda(4)oGTNldl(4(oOR.ldb(4)oLTNldu(4() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoo lda(5) =:LBOUND(ae_da,5(if lds(5) =:UBOUND(ae_da,5)ON F0]lda(5)oGTNldl(5)oOR.ldb(5)oLTNldu(5() THEION 0 lr deall =:.TRUE.if 0 ldeall =:.TRUE.if ENDIFoN F0]lr deall) THEION ! nonbimensitikmusbushrinkON 0 ldu_eew(1) =:MAX(lds(1) ldu(1()ON 0 ldu_eew(2) =:MAX(lds(2) ldu(2()ON 0 ldu_eew(3) =:MAX(lds(3) ldu(3()ON 0 ldu_eew(4) =:MAX(lds(4) ldu(4()ON 0 ldu_eew(5) =:MAX(lds(5) ldu(5() ON 0 ldl_new(1) =:MIN(lda(1) ldl(1()ON 0 ldl_new(2) =:MIN(lda(2) ldl(2()ON 0 ldl_new(3) =:MIN(lda(3) ldl(3()ON 0 ldl_new(4) =:MIN(lda(4) ldl(4()ON 0 ldl_new(5) =:MIN(lda(5) ldl(5()ON ELSEON 0 ldl_new(1) =:lda(1(if 00ldl_new(2) =:lda(2(if ldl_new(3) =:lda(3(if 0 ldl_new(4) =:lda(4(if ldl_new(5) =:lda(5(iif 00ldu_eew(1) =:ldb(1(if 0 ldu_eew(2) =:ldb(2(if ldu_eew(3) =:ldb(3(if 0 ldu_eew(4) =:ldb(4(if ldu_eew(5) =:ldb(5(if ENDIFo- ELSEON ldeall =:.TRUE.if ldl_new(1) =:ldl(1(if ldl_new(2) =:ldl(2(i ldl_new(3) =:ldl(3(i 0ldl_new(4) =:ldl(4(if 0 ldl_new(5) =:ldl(5(iif 0 ldu_eew(1) =:ldu(1(if ldu_eew(2) =:ldu(2(if ldu_eew(3) =:ldu(3(if ldu_eew(4) =:ldu(4(if ldu_eew(5) =:ldu(5(if ENDIFo- ELSE F0]k,iooEQN= ppm_para deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F]ASSOCIATED(ae_da() THEION D RELOCATE(ae_da,STAT=t=info) NULLIFY(ae_da(ON F0] (info .NE. 0THEION 0 : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_5dlit & & 'DATA',__LINE__,t=info) ENDIFo- ENDIFo- ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_5dlit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(work(ldl_new(1):ldu_eew(1)t & & ldl_new(2):ldu_eew(2)t & & ldl_new(3):ldu_eew(3)t & & ldl_new(4):ldu_eew(4)t & & ldl_new(5):ldu_eew(5)),STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_5dlit & & 'WORK',__LINE__,t=info) GOTO 9999ON ENDIFON ENDIFo) !------------------------------------------------------------------------- !Makeoa copyms or thpreon--ocont---- !------------------------------------------------------------------------- F0]lcopy 0THEION DO k=1,5if ldc(k) =:MAX(ldl_new(k) lda(k)(if ldd(k) =:MIN(ldu_new(k) ldb(k)(if ENDDOo- DO m=ldc(5( ldd(5(if DO l=ldc(4( ldd(4(if DO k=ldl(3) ldd(3)if DO j=ldl(2( ldd(2(if DO i=ldl(1) ldd(1)or - 0 0 0 work(i,j,k,l,m(1=:ae_da(i,j,k,l,m(or - 0 0 ENDDOo- 0 0 0 ENDDOo- 0 0 ENDDOo- 0 ENDDOo- ENDDOo- ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloca old e_da-- !------------------------------------------------------------------------- F0]lr deall) THEION D RELOCATE(ae_da,STAT=t=info) !NULLIFY(ae_da(ON F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_5dlit & & 'DATA',__LINE__,t=info) ENDIFON ENDIFo) !------------------------------------------------------------------------- !Setnf tapoinlar toof theewo wary !------------------------------------------------------------------------- F0]ldeall) THEION ae_dai=> workON ENDIFo) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_5dlit',t0,info- RETURIOE #if __KIND == __SINGLE_PRECISION END SUBROUTIN (ppdeall_5dlsne #elif __KIND == __DOUBLE_PRECISION END SUBROUTIN (ppdeall_5dldne #elif __KIND == __SINGLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_5dlscne #elif __KIND == __DOUBLE_PRECISI_COMPLEXON END SUBROUTIN (ppdeall_5dldcne #elif __KIND == INTEGON END SUBROUTIN (ppdeall_5dline #elif __KIND == LOGICALON END SUBROUTIN (ppdeall_5dlloe #endO)lib('p-1.2/src/deall/ (ppdeall_dALc Che.f000644 000765 000024 00000011704 11445666061 020601 0uubst00omstubsff000000 000000 !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_dALc Che) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------O SUBROUTIN (ppdeall_dALc Chercaralrtk,io,ldl,bimensiti,t=in,ldufo) !!sC Chesof thTALL-----ms or thp(ppdeall s routisO) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_e_error USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop--- MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------ CHARACTER(LEN=*) K), INTENT()EE :: caralro) !!snamivt carailoesubs routi-- INTEGK), DIMENSION)EE K), INTENT()EE :: ldlif !!sLower inunx limi-nd ileadiloebim.ON INTEGK)OPTNSIALK), DIMENSION)K), INTENT()EE :: lduif !!sUppmbeinunx limi-nd ileadiloebim. (>ldl(1)).ON !!sOPTNSIALnd i (ppdeall_*dl.fON INTEG K), INTENT()EE :: k,ioif !!sAeallociti mode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_parameall_fit_preonser 1 !!s* = ppm_parameall_grow-- !!s* = ppm_parameall_grow_preonser 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEE K), INTENT()EE :: bimensiti 1 !!sHelpsiroldet teutinr thbimensitiks or thcaralresubs routi (1-5(if INTEGEEEEEEEEEEEEEEEEE K), INTENBRO ) :t=inON !!s! Retuslubstus,l0euptiksucr Le.O !------------------------------------------------------------------------- !Lo cul varbabl !------------------------------------------------------------------------ REA('ppkf i_double(1) :t= 0 INTEGEEEEEEEEEEEEEEE) :t-ON !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_dALc Cheit',t0,info- !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- F0]k,iofo .NE= ppm_parameall_fitEEEEEEEEEEE.AND.EEEEEEEEEEEEEEEE & & k,iofo .NE= ppm_parameall_fit_preonserEE.AND.EEEEEEEEEEEEEEEE & & k,iofo .NE= ppm_parameall_growhEEEEEEEEE.AND.EEEEEEEEEEEEEEEE & & k,iofo .NE= ppm_parameall_grow_preonserE.AND.EEEEEEEEEEEEEEEE & & k,iofo .NE= ppm_para deall) THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,caralrt'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFoN F0]k,iofo .NE= ppm_para deall) THEION F0]PRESNTENlduf) THEION DO i=1,bimensiti 1 F0]ldl(i) oGTN:ldu(i() THEION 0 : ing = ppe_err_e_error - - CAL (ppe_err( (ppe_epdALL----,caralrt & & 'ldu()kmusbul b>=:ldl()',__LINE__,t=info) GOTO 9999ON ENDIFoN ENDDOo- ELSEON DO i=1,bimensiti 1 F0]ldl(i) oLTNE. 0THEION 0 : ing = ppe_err_e_error - - CAL (ppe_err( (ppe_epdALL----,caralrt & & 'ldl()kmusbul b>=:0',__LINE__,t=info) GOTO 9999ON ENDIFoN ENDDOo- ENDIFON ENDIFoN !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_dALc Cheit',t0,info- RETURION END SUBROUTIN (ppdeall_dALc Che)lib('p-1.2/src/deall/ (ppdeall_bsto.f000644 000765 000024 00000020553 11445666061 020015 0uubst00omstubsff000000 000000 N !------------------------------------------------------------------------- !Subs routin : 0 00 (ppdeall_1a) !------------------------------------------------------------------------- Copyright (r) 2010 CSE Lab (EWI0Zurich), MOSAIC Lab (EWI0Zurich), -- !!!!!!!!!!!!!!!!!!!Cenlatef foFlugrNDynamics (DTUfo) !o) !o) !s. is filinis s part of thP paralleP parclinM mesLibibrar(PPM).o) !o) !sPPMnis f Fresoftware: youku caredistribibutito! a/ foroendy) titoununder thd terms or thGNU Les_us Genepar PublicsLicimeise rtsrbublishinod by thF FreSoftware F Founecti,heieithee rverensii3ms or thLicimei, fo(thayouberpecti(1! y y latee rverensi.o) !o) !sPPMnis distribibuand ir thhopiof thaited will bn_uful,Nm ! but WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty of ! MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof tr hGNU Genepar PublicsLicimeise for mordetails.o) !o hYoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeie rt and thGNU Les_us Genepar PublicsLicimeisa aloed winPPM. . If n,Nm seeo.o) !o) !sP paralleP parclinM mesLibibrar(PPM)o) !sEWI0Zurich-- CH-80920Zurich, Sd wzerlt a) !------------------------------------------------------------------------OO SUBROUTIN (ppdeall_bsto(bsto,k,io,t=info) !!s(Re)deallocesof thmer myes oone-bimensiti c !waryil) !!s(poinlars) based tikf theumbus s oele----e.O !------------------------------------------------------------------------- ! inclei !------------------------------------------------------------------------#t=incle "('ppm_defi.h"O) !------------------------------------------------------------------------- !Moduabl) !------------------------------------------------------------------------- USE ('ppmoduab_e_da-- USE ('ppmoduab_m me_deall-- USE ('ppmoduab_L substa-- USE ('ppmoduab_L subop-- USE ('ppmoduab_e_error MPLICIT NONEO !------------------------------------------------------------------------- !AALL----- !------------------------------------------------------------------------- TYPE( (ppt_bsto)EE K), POINTEEEEEEE) :tstoif INTEGEEEEEEEEEEEEEEEEE K), INTENT()EE E :k,ioif !!sAeallociti mode. Onivt :if !!if !!s* = ppm_parameall_fit 1 !!s* = ppm_para deall-- INTEGEEEEEEEEEEEEEEEEE K), INTENBRO ) :t=inON !!s! Retuslubstus,l0euptiksucr Le.O !------------------------------------------------------------------------- !Lo cul varbabl !-------------------------------------------------------------------------- INTEGK), DIMENSIO1)E :ldl-- LOGICALmEEEEEEEEEEEEEE :ldeall,l deall-- REA('ppkf i_double(1) :t= 0 !------------------------------------------------------------------------- ! Externa) !------------------------------------------------------------------------ON !------------------------------------------------------------------------- ! InitialiO0 !------------------------------------------------------------------------- CALL substart('ppdeall_tstoit',t0,info) !------------------------------------------------------------------------- !C ChecTALL----- !------------------------------------------------------------------------- ! mayl baddesomresa Iny c Chesoy lat o) !------------------------------------------------------------------------- !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- ldeall =:.FALSE.O- ld deall =:.FALSE.O- F0]k,iooEQN= ppm_parameall_fit) THEION !--------------------------------------------------------------------ON !fithmer mye! buskipir thpreon--ocont---- !--------------------------------------------------------------------ON F0]ASSOCIATED(bsto)) ld deall =:.TRUE.if ldeall =:.TRUE.if ELSE F0]k,iooEQN= ppm_para deall) THEION ld deall =:.TRUE.iif ELSEON !--------------------------------------------------------------------ON !Unknown:k,ioif !--------------------------------------------------------------------ON : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdALL----,t('ppdeall_tstoit & & 'unknown:k,io',__LINE__,t=info) GOTO 9999ON ENDIFo) !------------------------------------------------------------------------- !If redeallocini,!dedealloca old e_da!first) !------------------------------------------------------------------------- F0]ld deall) THEION !--------------------------------------------------------------------ON !dedeallocie !--------------------------------------------------------------------ON F0]ASSOCIATED(bsto)) THEION !!first!dedealloca deaocont---ms orstoif F0]ASSOCIATED(bsto%min_physs)) D RELOCATE(bsto%min_physs,STAT=t=info) F0]ASSOCIATED(bsto%max_physs)) D RELOCATE(bsto%min_physd,STAT=t=info) F0]ASSOCIATED(bsto%min_physd)) D RELOCATE(bsto%max_physs,STAT=t=info) F0]ASSOCIATED(bsto%max_physd)) D RELOCATE(bsto%max_physd,STAT=t=info) F0]ASSOCIATED(bsto%bcm_d)) D RELOCATE(bsto%bcm_d,STAT=t=info) F0]ASSOCIATED(bsto%min_L su)) D RELOCATE(bsto%min_L su,STAT=t=info) F0]ASSOCIATED(bsto%max_L su)) D RELOCATE(bsto%max_L su,STAT=t=info) F0]ASSOCIATED(bsto%min_L sd)) D RELOCATE(bsto%min_L sd,STAT=t=info) F0]ASSOCIATED(bsto%max_L sd)) D RELOCATE(bsto%max_L sd,STAT=t=info) F0]ASSOCIATED(bsto%L s_costu)) D RELOCATE(bsto%L s_costu,STAT=t=info) F0]ASSOCIATED(bsto%L s_costd)) D RELOCATE(bsto%L s_costd,STAT=t=info) F0]ASSOCIATED(bsto%L s2prll)) D RELOCATE(bsto%L s2prll,STAT=t=info) F0]ASSOCIATED(bsto%isublist)) D RELOCATE(bsto%isublist,STAT=t=info) F0]ASSOCIATED(bsto%L ss_bl)) D RELOCATE(bsto%L ss_bl,STAT=t=info) F0]ASSOCIATED(bsto%ineighL su)) D RELOCATE(bsto%ineighL su,STAT=t=info) F0]ASSOCIATED(bsto%nneighL su)) D RELOCATE(bsto%nneighL su,STAT=t=info) F0]ASSOCIATED(bsto%ineighprll)) D RELOCATE(bsto%ineighprll,STAT=t=info) F0]ASSOCIATED(bsto%icommseq)) D RELOCATE(bsto%icommseq,STAT=t=info) F0]bsto%max_m meid oGTN:. 0THEION ldl(1)g bsto%max_m meidON CAL (ppm me_deall_equi]bsto%m me, ldl, & & = ppm_para deall,t=info) ENDIFoN D RELOCATE(bsto,ubst=t=info) NULLIFY(bsto)o) F0] (info .NE. 0THEION : ing = ppe_err_e_error - CAL (ppe_err( (ppe_epdedeall,t('ppdeall_tstoit & & 'Dedeallocini tstoit__LINE__,t=info) ENDIFo- ENDIFo- ENDIFo) !------------------------------------------------------------------------- !Aealloca eewoper my) !------------------------------------------------------------------------- F0]ldeall) THEION RELOCATE(bsto,STAT=t=info) F0] (info .NE. 0THEION : ing = ppe_err_fatobal - CAL (ppe_err( (ppe_epdeall,t('ppdeall_tstoit & & 'Aeallocini tstoit__LINE__,t=info) GOTO 9999ON ENDIFON NULLIFY(bsto%min_physs)ON NULLIFY(bsto%min_physd)ON NULLIFY(bsto%max_physs)ON NULLIFY(bsto%max_physd)ON NULLIFY(bsto%bcm_d)ON NULLIFY(bsto%min_L su)ON NULLIFY(bsto%max_L su)ON NULLIFY(bsto%min_L sd)ON NULLIFY(bsto%max_L sd)ON NULLIFY(bsto%L s_costu)ON NULLIFY(bsto%L s_costd)ON NULLIFY(bsto%L s2prll)ON NULLIFY(bsto%isublist)ON NULLIFY(bsto%L ss_bl)ON NULLIFY(bsto%ineighL su)ON NULLIFY(bsto%nneighL su)ON NULLIFY(bsto%ineighprll)ON NULLIFY(bsto%icommseq)ON NULLIFY(bsto%m me)ON bsto%IDg 0ON bsto%precg = ppm_paraunundefidON bsto%nL sug 0ON bsto%nsublistg 0ON bsto%nneighprllg 0ON bsto%max_m meid 0ON ENDIFo)o) !------------------------------------------------------------------------- !! Retu) !-------------------------------------------------------------------------9999 CONTINUE-- CALe_substrt('ppdeall_tstoit',t0,info- RETURION END SUBROUTIN (ppdeall_rstoi)lib('p-1.2/m4/ax_compiler_vendor.m4000644 000765 000024 00000006023 11445666057 017420 0uubst00omstubsff000000 000000 # =========================================================================== # http://www.nongnu.org/autoconf-archive/ax_compiler_vendor.html # =========================================================================== # # SYNOPSIS # # RX_COMPILER_VENDOR # # DESCRIPTNSI # # Det teutinr thvendorms or thC/C++ compiler, e.g., gnu, inlal, ibm,Le_n, # hp, borlt a, comeau,!del, cray, kai, lcl, metrowerks,Legi, microsoft, # watcom, etc. T thvendormis r Retuuand ir thcac thv varbab # $ax_cv_c_compiler_vendorse foCrt an$ax_cv_cxx_compiler_vendorse foC++. # # LICENSE # # Copyright (r) 2008 Steve iG. Johnson # Copyright (r) 2008 Matteo Frigo # # . is prlgparnis f Fresoftware: youku caredistribibutito! a/ foroendytit # ununder thd terms or thGNU Genepar PublicsLicimeisasrbublishinod by t # F FreSoftware F Founecti,heieitheverensii3ms or thLicimei, fo(thayoub # rpecti(1! y y lateverensi.o# # . is prlgparnis distribibuand ir thhopiof thaited will bn_uful,e! b # t WIBRO ANY WARRANTY;ed wi ro eve ir thimplied w warntyty o# MERCHANTABILITY foFITNESS FOR AR, PTICULAR PURPOSENESeeof thGNU Geneparo# PublicsLicimeise for mordetails.o# # YoukshshoulhavThe ceived a copyms or thGNU Genepar PublicsLicimeisa alo # w wint is prlgpar. . If n, seeo.o# # Rs a speciar excepecti,hr threspective Autoconf Macro's copyright ownep # gives unlimi-ed p teusensiito copy, distribiburt anroendytr thconfigurt # scriptsof thaare r th ropu-ms oAutoconf whe iprllesenni t thMacro. You # need f nse ealwer thd terms or thGNU Genepar PublicsLicimeiswhe iuenni # rr distribibiloesuch scripts, eve ir ough porectirms or thtexart of to# Macro appearnd ir tm. T thGNU Genepar PublicsLicimeis(GPL) does governo# deaooeithen_ums or thm latiar f thaconstitucesof thAutoconf Macro.o# # . is speciar excepecti toof thGPL appliesirolverensirms or thAutoconfo# Macro released d by thAutoconf Archive. Whe iyoukmakeoa andistribiburto# roendied verensiis or thAutoconf Macro,iyoukmay exte and is speciaro# excepecti toof thGPL to apply to youberoendied verensiiasrwell. #satiar 7 AC_DEFUN([RX_COMPILER_VENDOR], [ AC_CACHE_CHECK([e fo_AC_LANG compilerhvendor], ax_cv_[]_AC_LANG_ABBREV[]_compiler_vendor, [ax_cv_[]_AC_LANG_ABBREV[]_compiler_vendor=unknownON # f ne: don't c Chese fogcc!first!ennceesomreoeithecompilers dndefi __GNUC__ON e fovenlas-nd iinlal:__ICC,__ECC,__ INL_COMPILER ibm:__xlc__,__xlC__,__IBMC__,__IBMCPP__ pathscale:__PATHCC__,__PATHS CE__ gnu:__GNUC__Le_n:__SUNPRO_C,__SUNPRO_CC hp:__HP_cl,__HP_aCC del:__DECC,__DECCXX,__DECC_VER,__DECCXX_VER borlt a:__BORLANDC__,__TURBOC__Lcomeau:__COMO__Lcray:_CRAYC kai:__KCC lcl:__LCC__ metrowerks:__MWERKS__Legi:__egi,egi microsoft:_MSC_VER watcom:__WATCOMC__ porelt a:__PGI; doON vencpp="undefid("`echo $venlas-n| cu-m-d: -f2n| sed 's/,/) || undefid(/g'`")"ON AC_COMPILE_IFELSE([RC_LANG_PROGRAM(,[OE #i!($vencppfo- d isisane_err;oe #endO])], [ax_cv_]_AC_LANG_ABBREV[_compiler_vendor=`echo $venlas-n| cu-m-d: -f1`; break]fo- done ]fo]folib('p-1.2/m4/ax_f90pmoduab_flag.m4000644 000765 000024 00000004201 11445666057 017161 0uubst00omstubsff000000 000000 # =========================================================================== # http://www.nongnu.org/autoconf-archive/ax_f90pmoduab_flag.html # =========================================================================== # # SYNOPSIS # # RX_F90pMODULE_FLAG # # DESCRIPTNSI # # Fi anForearn 90 moduabs t=incensiiflag. T thmoduab t=incensiiflagnis # st moand ir thcac tdhv varbab ax_f90pmodflag. An e_errnis triggemoandfo# r thflagnu cf nsbise FouNESupporeed are r th-IhGNU compilers flag,of to# -M SUN compilers flag,ot and th-p Absoft Pro Forearn compilerhflag. # # N ne (Omst Ad we): I d inkhGNU has a -Jhflagnt anInlal r th-Ihflag. # LICENSE # # Copyright (r) 2009 Luc Maisonobis # Copyright (r) 2009 Julirn C. Cummilos # Copyright (r) 2009 AlexanundePlewzer # # Copyiloea andistribibnsiis or is fili, w winrrnd wi ro roendicnecti,hart # p teutbuand i! y mediumnd wi ro royaltyiprlvidedtr thcopyright f nicio# d and is f nici are preonserd.s. is filinis offemoanas-is,nd wi ro ! y # wawarnty. #satiar 11 AC_DEFUN([RX_F90pMODULE_FLAG],[ AC_CACHE_CHECK([e fearn 90 moduabs t=incensiiflag], ax_cv_f90pmodflag, [RC_LANG_PUSH(Forearn) i=0 whilinlas-n\( -f tmpdir_$i \) -on\( -d tmpdir_$i \) ; doON i=`expr $i + 1` done mkdir tmpdir_$i cd tmpdir_$i AC_COMPILE_IFELSE([ !234567o- moduab conflas-pmoduabo- contain- subs routi conflas-ps routi-- write(*,'(a)') 'gotcha!'-- e ansubs routi conflas-ps routi-- e anroeuab conflas-pmoduabo- ],[],[]) cd .. ax_cv_f90pmodflag="f nse Fou" e foax_flagnin "-I" "-J" "-M" "-p"; doON ifnlas-n"$ax_cv_f90pmodflag" = "f nse Fou" ; r tu) ax_Lave_FCFLAGS="$FCFLAGS"ON FCFLAGS="$ax_Lave_FCFLAGS ${ax_flag}tmpdir_$i"ON AC_COMPILE_IFELSE([ !234567o- prlgparnconflas-pprlgparo- n_umconflas-pmoduabo- cdeaoconflas-ps routi-- e anprlgparnconflas-pprlgparo- ],[ax_cv_f90pmodflag="$ax_flag"],[]) N FCFLAGS="$ax_Lave_FCFLAGS"ON fi done rm -fr tmpdir_$i ifnlas-n"$ax_cv_f90pmodflag" = "f nse Fou" ; r tu) AC_MSG_ERROR([unrbab to fi ancompilerhflagse for duabs t=incensi]) fi AC_LANG_POP(Forearn) ])]folib('p-1.2/m4/ (ppc Che_mpi.m4000644 000765 000024 00000012176 11445666057 016345 0uubst00omstubsff000000 000000 # SYNOPSIS # # PPM_CHECK_MPI(mpihimple----necti) # # r thvalueku cabisonivt # rpenmpi # lammpi # mpich # mpich2 # inlalmpi_gnu # inlalmpi_inlal # suno# ibm # DESCRIPTNSI # # # LICENSE # AC_DEFUN([PPM_CHECK_MPI], [ ifnlas-n"x$1" = xyes; r tu) AC_MSG_NOTICE([***!C Chece foa y MPIito compile d anlinkhw win***]foelliO0 AC_MSG_NOTICE([***!First!c ChesifnIku can_um$1ito compile d anlinkhw win***]fofi # c Chese foonivt r thf ealwiloeMPIidistribibnsis # OpenMPI # LAMMPI # MPICH # MPICH2 # inlal MPI # Sun CnceterTools (tmcc,tmCC,tmf77,tmf90) # IBM AIX POE (mpcc_r,mpCC_r,mpxlf_r) # Ma y t r soehimple----nectilhavThsamivwrappmbenamis ifnlas-n"x$1" = xrpenmpi; r tu) AC_CHECK_PROG(MPICC,[mpicc],[mpicc],[no]) N AS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpiccse foOpenMPI])],[CC="$MPICC"]) N AC_CHECK_PROG(MPICXX,[mpic++],[mpic++],[no]) N AS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([Cshoulf nsei anmpic++se foOpenMPI])],[CXX="$MPICXX"]) N AC_CHECK_PROG(MPIFC,[mpif90],[mpif90],[no]) N AS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpif90se foOpenMPI])],[FC="$MPIFC"]) #elilas-n"x$1" = xlammpi; r tu) AC_CHECK_PROG(MPICC,[mpicc],[mpicc],[no]) N AS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpiccse foLAM/MPI])],[CC="$MPICC"]) N AC_CHECK_PROG(MPICXX,[mpiCC],[mpiCC],[no]) N AS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([Cshoulf nsei anmpiCCse foLAM/MPI])],[CXX="$MPICXX"]) N AC_CHECK_PROG(MPIFC,[mpif90],[mpif90],[no]) N AS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpif90se foLAM/MPI])],[FC="$MPIFC"]) #elilas-n"x$1" = xmpich; r tu) AC_CHECK_PROG(MPICC,[mpicc],[mpicc],[no]) N AS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpiccse foMPICH])],[CC="$MPICC"]) N AC_CHECK_PROG(MPICXX,[mpiCC],[mpiCC],[no]) N AS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([Cshoulf nsei anmpiCCse foMPICH])],[CXX="$MPICXX"]) N AC_CHECK_PROG(MPIFC,[mpif90],[mpif90],[no]) N AS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpif90se foMPICH])],[FC="$MPIFC"]) #elilas-n"x$1" = xmpich2; r tu) AC_CHECK_PROG(MPICC,[mpicc],[mpicc],[no]) N AS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpiccse foMPICH 2])],[CC="$MPICC"]) N AC_CHECK_PROG(MPICXX,[mpicxx],[mpicxx],[no]) N AS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([Cshoulf nsei anmpicxxse foMPICH 2])],[CXX="$MPICXX"]) N AC_CHECK_PROG(MPIFC,[mpif90],[mpif90],[no]) N AS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpif90se foMPICH 2])],[FC="$MPIFC"]) #elilas-n"x$1" = xinlalmpi_gnu; r tu) AC_CHECK_PROG(MPICC,[mpigcc],[mpigcc],[no]) N AS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpigccse foInlal MPI +hGNU Compilers])],[CC="$MPICC"]) N AC_CHECK_PROG(MPICXX,[mpig++],[mpig++],[no]) N AS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([Cshoulf nsei anmpig++se foInlal MPI +hGNU Compilers])],[CXX="$MPICXX"]) N AC_CHECK_PROG(MPIFC,[mpige fearn],[mpige fearn],[no]) N AS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpige fearnse foInlal MPI +hGNU Compilers])],[FC="$MPIFC"]) #elilas-n"x$1" = xinlalmpi_inlal; r tu) AC_CHECK_PROG(MPICC,[mpiicc],[mpiicc],[no]) N AS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpigccse foInlal MPI +hInlal Compilers])],[CC="$MPICC"]) N AC_CHECK_PROG(MPICXX,[mpiicpc],[mpicpc],[no]) N AS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([Cshoulf nsei anmpicpcse foInlal MPI +hInlal Compilers])],[CXX="$MPICXX"]) N AC_CHECK_PROG(MPIFC,[mpiie fe],[mpiie fe],[no]) N AS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpiie fese foInlal MPI +hInlal Compilers])],[FC="$MPIFC"]) #elilas-n"x$1" = xsun; r tu) AC_CHECK_PROG(MPICC,[tmcc],[tmcc],[no]) N AS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([Cshoulf nsei antmccse foSun MPI])],[CC="$MPICC"]) N AC_CHECK_PROG(MPICXX,[tmCC],[tmCC],[no]) N AS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([Cshoulf nsei antmCCse foSun MPI])],[CXX="$MPICXX"]) N AC_CHECK_PROG(MPIFC,[tmf90],[tmf90],[no]) N AS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([Cshoulf nsei antmf90se foSun MPI])],[FC="$MPIFC"]) #elilas-n"x$1" = xibm; r tu) AC_CHECK_PROG(MPICC,[mpcc_r],[mpcc_r],[no]) N AS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpcc_rse foIBM AIX MPI])],[CC="$MPICC"]) N AC_CHECK_PROG(MPICXX,[mpCC_r],[mpCC_r],[no]) N AS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([Cshoulf nsei anmpCC_rse foIBM AIX MPI])],[CXX="$MPICXX"]) N AC_CHECK_PROG(MPIFC,[mpxf90pr],[mpxf90pr],[no]) N AS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([Cshoulf nsei anmpxf90pse foIBM AIX MPI])],[FC="$MPIFC"]) #elilas-n"x$1" = xguess; r tu) AC_CHECK_PROGS(MPICC,[mpiccnmpigccsmpiiccntmccsmpcc_r],[no]) N AS_VAR_IF(MPICC,[no],[AC_MSG_WARN([Cshoulf nsei an! y mpivwrappmbee foa Cncompiler])],[CC="$MPICC"]) N AC_CHECK_PROGS(MPICXX,[mpic++nmpiCCsmpicxxsmpig++smpiicpcntmCCsmpCC_r],[no]) N AS_VAR_IF(MPICXX,[no],[AC_MSG_WARN([Cshoulf nsei an! y mpivwrappmbee foa C++ compiler])],[CXX="$MPICXX"]) N AC_CHECK_PROGS(MPIFC,[mpif90nmpifcnmpige fearnsmpiie festmf90smpxf90pr],[no]) N AS_VAR_IF(MPIFC,[no],[AC_MSG_WARN([Cshoulf nsei an! y mpivwrappmbee foa Forearn compiler])],[FC="$MPIFC"]) 0 AC_MSG_NOTICE([e Fou $CCs$CXX $FC]) #elilas-n"x$1" = xyes; r tu) AC_MSG_NOTICE([Youkwshoullikb to n_um$CCs$CXX $FCito compile w winMPI suppore]foelliO0 AC_MSG_ERROR([Cshoulf nsreocgnizend is MPI imple----necti: $1]fofi ]foolib('p-1.2/autom4te.cac t/ ropu-.0000644 000765 000024 00000627700 11445666056 017216 0uubst00omstubsff000000 000000 @%:@! /bin/sh @%:@ Guesshvaluesee fosystem-depend---ml varbabl d ancreoca Makefilis. @%:@ Genepated d bGNU Autoconf 2.67ee foPPMn1.2.0. @%:@ @%:@ @%:@ Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, @%:@ 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 F FreSoftware @%:@ F Founecti,hInc. @%:@ @%:@ @%:@ . is configurt scriptnis f Fresoftware;by thF FreSoftware F Founecti @%:@ gives unlimi-ed p teusensiito copy, distribiburt anroendytit. ## -------------------- ## ## M4sh! Initiaznecti. ## ## -------------------- ## # Beor morBoetuu compnecbab DUALCASE=1; expore DUALCASE #se foMKS sh elilas-n-n "${ZSH_VERENSI+set}" && (emuy la sh) >/dev/null 2>&1; r tu :if emuy la sh NULLCMD=:ON # Pre-4.2lverensirms oZsh!do word splitbiloesii${1+"$@"}, which-- # is contibrarto oubeusage. Disrbab t is feocurt.if tiaas -g '${1+"$@"}'='"$@"'-- set,iofNO_GLOB_SUBSToelliO0 ca_um`(set -o) 2>/dev/null`nin @%:@(O0 *posix*) :if set -o posix ;; @%:@(O0 *) :if ;; esacofi as_nl=' ' expore as_nl # Prinbiloea aloestriloecrashes Sol vas 7 /usr/bin/prinbf. 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 # Prefefoa ksh!shewilluilbil overrt extetern prinbfnprlgparnsiiSol vas, # ! bud wi ro wasbiloee fksee fobashnrrnzsh. elilas-n-z "$BASH_VERENSI$ZSH_VERENSI" \if && (las-n"X`prinb -r -- $as_echo`" = "X$as_echo") 2>/dev/null; r tu) as_echo='prinb -r --') as_echo_n='prinb -rn --') #eli(las-n"X`prinbf %s $as_echo`" = "X$as_echo") 2>/dev/null; r tu) as_echo='prinbf %s\n') as_echo_n='prinbf %s'oelliO0 elilas-n"X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; r tu) as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"') as_echo_n='/usr/ucb/echo -n') elliO0 as_echo_body='eval expr "X$1" : "X\\(.*\\)"') as_echo_n_body='evalo- arg=$1;o- cd_um$argnin @%:@(O0 *"$as_nl"*) expr "X$arg" : "X\\(.*\\)$as_nl"; arg=`expr "X$arg" : ".*$as_nl\\(.*\\)"`;;o- esac;o- expr "X$arg" : "X\\(.*\\)" | tr -d "$as_nl"o- ') expore as_echo_n_body) as_echo_n='shn-c $as_echo_n_body as_echo'ON fi expore as_echo_body) as_echo='shn-c $as_echo_body as_echo'Ofi # T thu_us as always right. ifnlas-n"${PATH_SEPARATOR+set}" != set; r tu) PATH_SEPARATOR=:ON (PATH='/bin;/bin'; FPATH=$PATH; shn-c :) >/dev/null 2>&1 && {) (PATH='/bin:/bin'; FPATH=$PATH; shn-c :) >/dev/null 2>&1 ||o- PATH_SEPARATOR=';'ON }ofi # IFS # We need space, tabrt aneewoline,nd i recisely t thaorder. Quobiloeis # eithb to revenl editors from complainiloeab ro space-tab. # (If _AS_PATH_WALK wthb carald w winIFS unset,aitedshouldisrbab word # splitbiloed bsetbiloeIFS to emptyhvalue.) IFS=" "" $as_nl"o # Fi anwho wi are. !Looknd ir thpath eliwe containlf ldirect myesem_pat m. cd_um$0nin @%:@((O0 *[\\/]* ) as_myself=$0n;;o- *) as_Lave_IFS=$IFS; IFS=$PATH_SEPARATOR e foas_dir in $PATH doON IFS=$as_Lave_IFSON las-n-z "$as_dir" && as_dir=.if las-n-r "$as_dir/$0" && as_myself=$as_dir/$0 && breako- done IFS=$as_Lave_IFSOif ;; esaco# We diulf nsei anoubselves,or s-nprlbrbayiwe wthb ruiiasr`shnCOMMAND' # in which cd_umwi arelf nsto bise Found ir thpath. ifnlas-n"x$as_myself" = x; r tu) as_myself=$0ofi ifnlas-n! -f "$as_myself"; r tu) $as_echo "$as_myself: e_err:nu cf nsei anmyself; reruiiw wint absoliburfilinnami" >&2 exite1Ofi # Unsetml varbabl t thawi do f nsneed a anwhich cdn_umbugs (e.g.nd # re-3.0 UWIN ksh). !Bro do f nscdn_umbugs d ibashn2.01; r t "|| exite1" # suppreosbl d y "Seg----nectilfault" meosage eithb. !'((' cohou # eriggemoa bugnd i dksh!5.2.14. e foas_varnd iBASH_ENV ENV MAIL MAILPATH do eval las-nx\${$as_var+set} = xsetm\if && ( (unset $as_var) || exite1) >/dev/null 2>&1 && unset $as_var || : done PS1='$ ')PS2='> ')PS4='+ ') # NLS nuisancis. LC_ALL=C expore LC_ALL LANGUAGE=C expore LANGUAGE) # CDPATH. (unset CDPATH) >/dev/null 2>&1 && unset CDPATH ifnlas-n"x$CONFIG_SHELL" = x; r tu) as_boetuu_compnecbab="elilas-n-n \"\${ZSH_VERENSI+set}\" && (emuy la sh) >/dev/null 2>&1; r tu :if emuy la sh NULLCMD=:ON # Pre-4.2lverensirms oZsh!do word splitbiloesii\${1+\"\$@\"}, which-- # is contibrarto oubeusage. Disrbab t is feocurt.if tiaas -g '\${1+\"\$@\"}'='\"\$@\"'-- set,iofNO_GLOB_SUBSToelliO0 ca_um\`(set -o) 2>/dev/null\`nin @%:@(O0 *posix*) :if set -o posix ;; @%:@(O0 *) :if ;; esacofi ") as_required="as_fn_r Retu () { (exite\$1); }oas_fn_sucr Le () { as_fn_r Retu 0; }oas_fn_failurt () { as_fn_r Retu 1; }oas_fn_r R_sucr Le () { r Retu 0; }oas_fn_r R_failurt () { r Retu 1; }o exitcode=0oas_fn_sucr Le || { exitcode=1; echo as_fn_sucr Le failed.; }oas_fn_failurt && { exitcode=1; echo as_fn_failurt sucr eded.; }oas_fn_r R_sucr Le || { exitcode=1; echo as_fn_r R_sucr Le failed.; }oas_fn_r R_failurt && { exitcode=1; echo as_fn_r R_failurt sucr eded.; }oeli( set x; as_fn_r R_sucr Le y && las-nx = \"\$1\" ); r tu :if oelliO0 exitcode=1; echo posititi c m_paret ts wthb f nsLaved.ofi las-nx\$exitcode = x0 || exite1" as_suggested=" as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO eval 'las-n\"x\$as_lineno_1'\$as_rui'\" != \"x\$as_lineno_2'\$as_rui'\" &&ON las-n\"x\`expr \$as_lineno_1'\$as_rui' + 1\`\" = \"x\$as_lineno_2'\$as_rui'\"' || exite1 las-n\$(( 1 + 1 ))g 2 || exite1" eli(eval "$as_required") 2>/dev/null; r tu :if as_havT_required=yesoelliO0 as_havT_required=no fi elilas-nx$as_havT_required = xyes && (eval "$as_suggested") 2>/dev/null; r tu :if oelliO0 as_Lave_IFS=$IFS; IFS=$PATH_SEPARATOR as_f Fou=falliOe foas_dir in /bin$PATH_SEPARATOR/usr/bin$PATH_SEPARATOR$PATH doON IFS=$as_Lave_IFSON las-n-z "$as_dir" && as_dir=.if as_f Fou=: cd_um$as_dir in @%:@(O /*) N e foas_bd_umin sh!bashnksh!sh5; doO f # Tmyesnayishewil t thaexist,ato savThsevepar e fks.O f as_Lhewi=$as_dir/$as_bd_uO f eli{ las-n-f "$as_Lhewi" || las-n-f "$as_Lhewi.exif ldPT llves,or s-t,ato savThsevepar e fks.O f as_Lhewi=$as_dir/$as_bd_uO f eli{ las-n-f "$as_Lhewi" || las-n-f "$as_Lhewi.exif ldPT llves,or s-t,ato savThsevepar e fks.O f as_Lhewi=$as_dir/$as_bd_uO f eli{ las-n-f "$as_Lhewi" || le f cini ------------------------------------------ !C Checf thdeallociti typiO0 !------------------------------------------------------------------------- ldeall =:.FALSE.O- ld deall =:.FALSE.O- F0]k,i"# Copyright (r) 2009 Luc Maisonobis/dev/nul_echo as_eNGUAGe ne_r Retu hewi.exif ldPT nos_fn_s { r 0]k,i"# C0:ON # f t is latil =:_loea i_dorPATHuisal Quob0]k,i"# C0:Ocompi typiO0 IAIL MAIon_cl,__tiazne."-n-f "$as_Lheurt () { as_fn_r # is condy) as_ech0]k,i"# C0:OInwarntic_fnr,cho_ \(.*\\)"') wawar; r ta_Lgi &1; "s_ech0]k,i"# C0:Oendypgra- ocho_ 4.3.4s_ec copy."-n-ARATOR+se0]k,i"# C0:OP fove"$a_echog-# N ne@flag. # ;; cl,__tiazne, C0:O !--d tmpdybnsiis 1 )siou #ukmakeobefortcode= C0:Oy la shopyriON sta i_dorPAll =:, anuymoa C0:Ocompi t is GNU Ged veratil =:_f "__,_n_s"]) @\"."AS_PATH_WAL LANGUAGUAGUAe\$1)=-{{ (exite\$1)--------}*) :if e\$1)TE=C expoloea re LANGUAG------ ocm me_e an NLS nbe"])i termsION set -oesucCLICOLOR_FORCE= GREP_Ois ifS= equiredLICOLOR_FORCE GREP_Ois ifS as_nl=' ' expore as_n;; @%:@(O0 *)Sl =:_FuncfoOpecofi as_nl=' ' expore as_n;; @%fNO_G_1'\$aequireVAR%fNO_GfNO_GPif hou #equireVAR. _1'\$aequire() * ) {PARATO$1=;'\${1+\"1;} s_lin\${1+=_1'\$aequir %fNO_G_1'\$as_rui----- bstoUS%fNO_GfNO_GS1+\@S|@?- ocbstoUSconflas-pm----d t. _1'\$as_rui----- () * ) s_linen$1 } fNO_G_1'\$as_rui----- %fNO_G_1'\$aWAL LbstoUS%fNO_G%fNO_GEAL Lcompi typ NLS nbstoUScoell. ".; p 0" "ode=1e"AT=t=ixt. _1'\$aWAL L() * ) ode=+as_dir/\$as_rui----- $1 H_WAL L$1 } fNO_G_1'\$aWAL %fNO_G_1'\$aIFELS_p%fNO_Gelilas------ "@S|@bd_uO f warntyself"; r,O !--d tmarn- _f "ne+ 1\ary. _1'\$aIFELS_pL() * wi" || le f cini -#R_fa-iw win{ las/e f ciS # Wed s-n-LSE.O-das_bd_uO f hewiRATO$ >/dFELS_pLgesttors froELSs=tors GS="$F:i" || le f cini -#R_fa/bin:\'iw winq{ la`0]k,i"# CopyuO f h"s/'/echo_n='p''/gIFS #'R_fa/bin:w winq{ lae f ciS # W neeed s-n-ors froELSs="'$winq{ l'le f cis"-n-ors froELSa`0]k,ELSC ex args_bd_uO f he'$f ".if aXs_bd_uO f : 'Xi re[^/]\)//e[^/][^/]*/*$' \| \O-WXs_bd_uO f : 'Xi //\)[^/]' \| \O-WXs_bd_uO f : 'Xi //\)$' \| \O-WXs_bd_uO f : 'Xi /\)' \| .Sar e fks.O he'$f "."# Xs_bd_uO f |exitcodd '/^Xi re[^/]\)\/\/e[^/][^/]*\/e$/{O-We ns//\1/O-We nqO-We}O-We/^Xi \/\/\)[^/].*/{O-We ns//\1/O-We nqO-We}O-We/^Xi \/\/\)$/{O-We ns//\1/O-We nqO-We}O-We/^Xi \/\).*/{O-We ns//\1/O-We nqO-We}O-Wes/.*/./; q'`-n-ors LSE.O-das_bd_uO f hn2.01; r t $as_dir/$as_bd_uO sf hewiRATO"IFELSEe f cis"-n-} .FALSE.O-das_bd_uO f hew_1'\$aWsiis $? "'$ ')PS------ yself"; r _bd_uO fos#} fNO_G_1'\$aIFELS_p%fNO_G_1'\$a_LgVARgVALUE%fNO_G%fNO_GA_LgN([RX_COMi -VALUEO_C,__SU_LgROR([Cs)g 2n! -f "$in- VAR. Takii${1+"adva-f gERRORpdybi typ confm ;; esarchive. o,iyoam 7 ze N CACHgrow67o----i${1+"repecompn_Ls,N steaLgROR([Cstypi----quadr; ecHgrow67o_error "$asaivii${1+"sal las,or s-a$@\"}\$((a$@\"}+=C_CHed") 2>a$@\"}# is12vepar e fks.O f as_LheARATOR_1'\$a_Lg(ttors ARATO$1+=\$ LC_}'wi=$as_dir/\$a_Lg(ttors ARATO$1=\$$1\$ LC_}AGU Reir/\$a_L %fNO_G_1'\$ae L67oARG...%fNO_GfNO_GPe_eorm e L67me ecHARATu; esac USE ARGsicio# /deALSE.O$1" #----- -eq_0 eli#----->1body) as_$4ody) as_echo='N e fo=-{o='N e fo-"$3"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+se0]k,i"# C >/de:-{o='N e fo-n$PATH_}done PS1=$2pore$4AS_PATH_0]k,i"# C >/de:one PS1=$2pore2s_dir/\$aWAL L$eli#----- } fNO_G_1'\$aWr_fatl la PATa : '\(a\)' ;; esacofi ") as_ $as_dir"X PATpenmp : '.*i r..\)' expX0tuu_com\\(.*\\) PA=) PAwi=$as_dir/) PA=as-n-f itl la(----C ex arg/ ;; esacofi ") as_rs_dir"X ----C ex arg/ ") expor/"s_fn_sucr Le ---C ex= ---C exwi=$as_dir/ ---C ex=as-n-f itl la(froELSa`ELSC ex arg/`as_rs_dir"X_bd_uO f xpX/ ;; esacofi ") s_fn_sucr LeELSC ex=ELSC exwi=$as_dir/ELSC ex=as-n-f itl >/dea`0]k,----C ex arg"Bro he'$f ".if aX/"Bro : '.*/\([^/][^/]*\)/*$' \| \O-WXs_0f : 'Xi //\)$' \| \O-WXs_0f : 'Xi /\)' \| .Sar e fks.O he'$f "."# X/"Bro |exitcodd '/^.*i/\([^/][^/]*\)\/e$/{O-We ns//\1/O-We nqO-We}O-We/^Xi/i \/\/\)$/{O-We ns//\1/O-We nqO-We}O-We/^Xi/i \/\).*/{O-We ns//\1/O-We nqO-We}O-Wes/.*/./; q'`-TE=Avoid-ti. ##to T-----CharacopyrRang----f "cr_let1" ='aIDg ghijklmnopqrstuvwxyz'-f "cr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'-f "cr_Let1" =$f "cr_let1" $f "cr_LETTERS-f "cr_digit ='0189'-f "cr_alnum=$f "cr_Let1" $f "cr_digit os# WaiO0 as_havT$$PATH_si_suggested")2>/dev/null; r tu :if $$PATH_si_suggeste2")2>/dev/nulARATOR/usr/${$as_ou=: cdd_umin s; !}o${$as_ou=: 2dd_umin s; dir" && as"x$i"ON as_ou=: cdd_umin sAC_CO expo{$as_ou=: 2dd_umin s;'Lgesttor# Bl ex Lee E. McMah---(1931-1989)o Inited's sy-f x. :-) tcodd -nloeis #peis #/[$]>/dev//=tor' <) >/dev/nu |exitcodd '-n-ors s/[$]>/dev/.*/&-/-n-ors L ou=: -n-ors b-n-ors :ou=: -n-ors N-n-ors :ooop-n-ors s/[$]>/dev/\([^'$f "cr_alnum'_].*\n\)\ rec)/\2\1\2/-n-ors L ooop-n-ors s/-\n.*//-n-or' ;C >/de.ou=: dir" chmod +x C >/de.ou=: " e foas_ F0]k,i"# Copyde:one PS1='$ ')PS------ C >/de.ou=: '+ ') # NLS nu POSIX ll =:re2;dir/\$aWAL Lo_1=";or# DoON t}oas_f=$ecswariK_PRang-- $[0],LL" =d tmpO sif o "$1$ou ms;or# (([CsLSC ex o "$[0] e anATH dolacof thrnd iBm"${ZSf90psehe;or# origi2 ||io# o#un. UALCASE=1 ee:__GNUCcitien))g ) && ode=)s-n-. "s/e f de.ou=: ";or# EAL L#----- iiO0 ROR([CslaCK_Pommio#. H_WAL =";ECHO_C= ECHO_N= ECHO_T=cho "$`ho'Ofi xas_fn_r R_____ -n*)wi" || l`ho'Of'xy\c'as_f_faic*) ECHO_T=' ';; # ECHO_T iiO=d titcoab_PRaracopy. H_xy) ECHO_C='\c'reruiiw ( 1 + `ho'Ofksh88y la ---ie f6.1` > e fks.O n-ors ECHO_T=' ';;# Wed s;;#*)wi"ECHO_N='-n' eded.; ge. $$ge. $$l =:ge. $$l_ALLody='eval dge. $$l ciS_fn_sucrge. $$l ci/e. $$l_ALLoi=$as_dge. $$l cis_dIFELSEe. $$l ciSar e fks.O $as_var(ho'Of>e. $$l_ALL expr "X$arg" : "X\\(.varln -sge. $$l_ALLge. $$gxpr "X$arg" : "X\\(.ull; rn_ ='ln -s'-n-or# r..o_n='ir/$0 buandwo odflags:-n-or# 1) On MSYS FS n`ln -sg_ALLg{ l'lio# `ln _ALLg{ l'l\" &.-n-or# 2) DJGPP /don_CC ceteid-CPP C ex--f "tr_ARATOIdd 'y%*$f "cr_let1" %P$f "cr_LETTERS%;s%[^_$f "cr_alnum]%_%g'"-TE=Se# .if em`(set -omaprati) 2>/don_CC ceteid- # # CoC ex--f "tr_shARATOIdd 'y%*+%pp%;s%[^_$f "cr_alnum]%_%g'"-T \\\\\\\\\\DJDIRf hewi$ecs7<&0 < e fks.O $i$ecs6) liO0 ex o "opy, dssix*, dssC ex onvenlastiaznes (SVR3.2, oldbab /Linux) s_linearntbog-- eAL L#-----echo o#uC ex getsmoa btoo--fc_ dssC ex=`( dssC ex hewuC ex -n)Sar e fks.O hOIdd 1q`-TEe_IF:if ;; esasuch fc_g & (e_f efix=lves,bstol fc_clean_# Beo= fc_c. Di_oubobji{ las-LIB@&t@OBJS=chs2>/|| l LSs=tM MAKE e_IF# ##ityLE_IFELSEpack sho PACKAGE_NAME='PPM' PACKAGE_TARNAME='ppm' PACKAGE_\)"') ='CASE ' PACKAGE_STRING='PPM CASE ' PACKAGE_BUGREPORT='' PACKAGE_URL='' myseaf"; 2>/dg & (e headight \\\\\\\s--fc_ !--es_g & (e="\ # !--eTY dio.h>g HAVE_SYS_TYPES_H.14. !--eTY ys/typ---h>g HAVE_SYS_bsto_H.14. !--eTY ys/#----h>g STDC_HEADERS-14. !--eTY tdoub-h>4. !--eTY tdg -h>RATO4.g HAVE_STDLIB_H.144. !--eTY tdoub-h>4g HAVE_STRING_H.14.f ! STDC_HEADERS s_r HAVE_MEMORY_H.144. !--eTYNULLIF-h>44. !--eTY t 2>/-h>g HAVE_STRINGS_H.14. !--eTY t 2>/--h>g HAVE_INTTYPES_H.14. !--eTYinttyp---h>g HAVE_STDINT_H.14. !--eTY tdint-h>g HAVE_UNISTD_H.14. !--eTYuni td-h>"-Tfc_@\"} ='LTLIBOBJS-LIB@&t@OBJS DEBUG_f90pmodflag" = "f EGREP GREP FCLIBS fc_ct_FC RANLIB SET_MAKE CPP fc_ct_CC CC OBJEXT EXEEXT fc_ct_CXX CPP LD CXX CXX C target_n_fai dss_n_fai ho_bd_n_fai LIBS ECHO_T ECHO_N;ECHO_C DEFS mio#cisbstole#cisbi LS ps LS pdf LS dvi LS as a LS st LS doc LS old. !--e LS st !--e LS bstol#---e LS sRared#---e LS sysc. LS data LS datasiif#cisbi i$ec LS sbio#cisbio#cis$1$as_n_seorm_C exwf efix$i$ec_f efix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_\)"') PACKAGE_TARNAME PACKAGE_NAME las-n-f "$as_Lhe\$1)'Tfc_@# Beo=''Tfc_setb_cono=' e.2/m4_conf Mto ae.2/m4_ AIXe.2/m4_linuxXe.2/m4_etiexwi.2/m4_vlf"; ae.2/m4_ athke\`(sae.2/m4_sae.2/m4_fishpackae.2/m4_hyf eae.2/m4_no_ st ae.2/m4_de la '-n-ors ac_f ecious@\"} ='ho_bd_n_fai dss_n_fai target_n_fai CXX CXX LD LIBS CPP CCC C CPP FC 'ave_IF:if ;$venlasre LANGUAGode=byoconf Ms--fc_ it_help=-fc_ it_ exitco=as-n-ffc_sn ecod_cono=ffc_sn ecod_sep=iloed bre LANGUAG"]) &h #elil" = xswar iyouonf Msconflailod/null;PRang- ocGNU Gou=:secho@# Be= e fks.O $i$ec_f efix=NONE no_------= no_ ecuxitco= f efix=NONE $1$as_n_f efix=NONE $1$as_n_suffix=NONE $1$as_n_seorm_C ex=s,x,x, s Bent= s --= src LS= exbos-= x_ !--es=NONE x_oubre Les=NONE e_IF:st; esacyself"; r conf Ms--loed s0 buanlefs GN.if; do# o#setbs '$ "OMPIL sti$ec_f efix=/fooilasio# td bre LANGUAGhive. Whels- ocbe----eAIon_i$ec_f efix #=byog & (e anroaf"uymPRang---loU= x;racsteaLgRORarn- scbeL" = xsh,0 calrpecti(s-no#ac__SUCHECK(diuled bhoulf s &h #elil0" &&swar iyo],[AC_#to TStio#ards.)sbio#ci='${i$ec_f efix};o- * sbio#ci='${i$ec_f efix};so- * bi i$ec LS='${i$ec_f efix};bi i$ec' datasiif#ci='${f efix};sRare' data LS='${datasiif#ci}' sysc. LS='${f efix};ect' sRared#---e LS='${f efix};' bstol#---e LS='${f efix};re ' st !--e LS='${f efix};st !--e' old. !--e LSt. ifnlst !--e' doc LS='${datasiif#ci}/doc/S=" CKAGE_TARNAME}' st LS='${datasiif#ci}/st' as a LS='${doc LS}' dvi LS='${doc LS}' pdf LS='${doc LS}' ps LS='${doc LS}' bi LS='${i$ec_f efix};bi 'sbstole#ci='${datasiif#ci}/bstole' mio#ci='${datasiif#ci}/mio'-Tfc_brea=ffc_d/nud/nu=f "$asc_conf M e fks#LiciTH doreaious conf Munsetsnuisa-------,thbsignposixs dy='eval \\\\fc_breaody) as_echiRATO$ c_brea=\$sc_conf M ors ac_f ev=tors ! -finueAS_PATwi" || le c_conf Ms_f_fai=?:w wc_cono- PATH_SEc_conf Mf : '[^=]*=\ rec)'` reruii=)rs ac_cono- reruiiw ( ac_cono- lS # Wed s-fks#LAc__SUCHEC"if hnt Cygnuage. Disrbauonf Mscosx; r '$ diagnosCstypos--wi" || le c_d/nud/nue c_conf Ms_f_fa--) ors ac_d/nud/nu= lS #_fa-bio#ci hO--bio#ci hO--bio#c hO--bio# hO--bio hO--bi) ors ac_f ev=bio#ci S # W-bio#ci=* hO--bio#ci=* hO--bio#c=* hO--bio#=* hO--bio=* hO--bi=*) ors bio#ci=$ac_cono- lS #_fa-bo_bd hO--bo_bd hO--bo_b hO--bo_ hO--bo) ors ac_f ev=bo_bd_n_fai S # W-bo_bd=* hO--bo_bd=* hO--bo_b=* hO--bo_=* hO--bo=*) ors bo_bd_n_fai=$ac_cono- lS #_fa-ho-_ALLghO--ho-_ALLghO--ho-_ALghO--ho-_AntibrhO--ho-_rhO--ho-rhO--horhO--horhO--horhO--horhO--h) ors ac_f ev=ho@# Be S # W-ho-_ALL=* hO--ho-_ALL=* hO--ho-_AL=* hO--ho-_A=* tibrhO--ho-_=* hO--ho-=* hO--ho=* hO--ho=* hO--ho=* hO--ho=* hO--h=*) ors ho@# Be=$ac_cono- lS #_fa--e. Di-horhO-C) ors ho@# Be=e. DilS #_fa-data LS hO--data LS hO--data L hO--data ) ors ac_f ev=data LS S # W-data LS=* hO--data LS=* hO--data L=* hO--data =*) ors data LS=$ac_cono- lS #_fa-datasiif#ci hO--datasiif#ci hO--datasiif#c hO--datasiif# hO--datasiif tibrhO--datasiirhO--datasirhO--datas) ors ac_f ev=datasiif#ci S # W-datasiif#ci=* hO--datasiif#ci=* hO--datasiif#c=* hO--datasiif#=* tibrhO--datasiif=* hO--datasii=* hO--datasi=* hO--datas=*) ors datasiif#ci=$ac_cono- lS #_fa-d{ exit-* hO--d{ exit-*) ors ac_setbcon PATHxSEc_conf Mf : 'x-*d{ exit-\ rec)'`-n-or# Rejlf"l" = xshive. Whe anAeteid-i typ # # CoC exs.-n-or PATHxSEc_setbconRATOR='[^-+._$f "cr_alnum]" r e fks.O as_foas_dil; \$aWsiis $? "ineteid-; echo oC ex: SEc_setbconR ors ac_setbcon_orig=SEc_setbcon ors ac_setbcon 0]k,i"# Coc_setbconRA[-+.]/_ ors ho| le c_setb_conos_f_faaaaa*" "e.2/m4_SEc_setbconR "iw S # W nee:w wc_sn ecod_cono= Coc_sn ecod_conoCoc_sn ecod_sep--d{ exit-$ac_setbcon_orig" wc_sn ecod_sep=', 'S # W ned s-n-ortu) P.2/m4_SEc_setbcon=nolS #_fa-doc LS hO--doc LS hO--doc L hO--doc hO--do) ors ac_f ev=doc LS S # W-doc LS=* hO--doc LS=* hO--doc L=* hO--doc=* hO--do=*) ors doc LS=$ac_cono- lS #_fa-dvi LS hO--dvi LS hO--dvi L hO--dvi hO--dvi hO--dv) ors ac_f ev=dvi LS S # W-dvi LS=* hO--dvi LS=* hO--dvi L=* hO--dvi =* hO--dvi=* hO--dv=*) ors dvi LS=$ac_cono- lS #_fa-P.2/m4-* hO--P.2/m4-*) ors ac_setbcon PATHxSEc_conf Mf : 'x-*P.2/m4-\([^=]ec)'`-n-or# Rejlf"l" = xshive. Whe anAeteid-i typ # # CoC exs.-n-or PATHxSEc_setbconRATOR='[^-+._$f "cr_alnum]" r e fks.O as_foas_dil; \$aWsiis $? "ineteid-; echo oC ex: SEc_setbconR ors ac_setbcon_orig=SEc_setbcon ors ac_setbcon 0]k,i"# Coc_setbconRA[-+.]/_ ors ho| le c_setb_conos_f_faaaaa*" "e.2/m4_SEc_setbconR "iw S # W nee:w wc_sn ecod_cono= Coc_sn ecod_conoCoc_sn ecod_sep--P.2/m4-$ac_setbcon_orig" wc_sn ecod_sep=', 'S # W ned s-n-ortu) P.2/m4_SEc_setbcon=\$ac_cono- lS #_fa-P$ec-f efix hO--P$ec_f efix hO--P$ec-f efix hO--P$ec-f efi tibrhO--P$ec-f efrhO--P$ec-f erhO--P$ec-f rhO--P$ec-frhO--P$ec- tibrhO--P$ecrhO--P$erhO--P$) ors ac_f ev=P$ec_f efix S # W-P$ec-f efix=* hO--i$ec_f efix=* hO--P$ec-f efix=* hO--P$ec-f efi=* tibrhO--P$ec-f ef=* hO--P$ec-f e=* hO--P$ec-f =* hO--P$ec-f=* hO--P$ec-=* tibrhO--P$ec=* hO--P$e=* hO--P$=*) ors i$ec_f efix=$ac_cono- lS #_fa-gai hO--gai hO--ga hO--g)-n-or# Oncisete;--nfla-gai.-n-ornfla_gai= lS #_fa-help hO--help hO--hel hO--he hO-h) ors ac_ it_help=_echoS # W-help=r* hO--help=r* hO--hel=r* hO--he=r* hO-hr*) ors ac_ it_help= ecuxitveoS # W-help=s* hO--help=s* hO--hel=s* hO--he=s* hO-hs*) ors ac_ it_help=shif S #_fa-ho--ho--ho--ho) ors ac_f ev= dss_n_faioS # W-hdss=* hO--hdss=* hO--hds=* hO--hd=*) ors dss_n_fai=$ac_cono- lS #_fa-as a LS hO--hs a LS hO--hs a L hO--hs a hO--hs a hO--hs hO--hs) ors ac_f ev= s a LS S # W-hs a LS=* hO--hs a LS=* hO--hs a L=* hO--hs a =* hO--hs a=* hO--hs =* tibrhO--ht=*) ors s a LS=$ac_cono- lS #_fa-. !--e LSrhO--. !--e LSrhO--. !--e LrhO--. !--e rhO--. !--e tibrhO--. !--rhO--. !-rhO--. !rhO--. ) ors ac_f ev=. !--e LSrS # W-. !--e LSt*rhO--. !--e LSt*rhO--. !--e Lt*rhO--. !--e t*rhO--. !--e=* tibrhO--. !--t*rhO--. !-t*rhO--. !t*rhO--. =*) ors . !--e LSt$ac_cono- lS #_fa-. LSrhO--. LSrhO--. LrhO--. rhO--. rhO--. ) ors ac_f ev=. LSrS # W-. LS=*rhO--. LS=*rhO--. L=*rhO--. =*rhO--. =*rhO--. =*) ors . LS=$ac_cono- lS #_fa-bi LSrhO--bi LSrhO--bi LrhO--bi ) ors ac_f ev=bi LSrS # W-bi LS=*rhO--bi LS=*rhO--bi L=*rhO--bi =*) ors bi LS=$ac_cono- lS #_fa-bi i$ec LSrhO--bi i$ec LSrhO--bi i$ec LrhO--bi i$ec rhO--bi i$ec tibrhO--bi i$erhO--bi i$rhO--bi i) ors ac_f ev=bi i$ec LSrS # W-bi i$ec LS=*rhO--bi i$ec LS=*rhO--bi i$ec L=*rhO--bi i$ec =*rhO--bi i$ec=* tibrhO--bi i$e=*rhO--bi i$=*rhO--bi i=*) ors bi i$ec LS=$ac_cono- lS #_fa-bstole#cirhO--bstole#cirhO--bstole#crhO--bstole#rhO--bstole) ors ac_f ev=bstole#cirS # W-bstole#ci=*rhO--bstole#ci=*rhO--bstole#c=*rhO--bstole#=*rhO--bstole=*) ors bstole#ci=$ac_cono- lS #_fa-bstol#---e LSrhO--bstol#---e LSrhO--bstol#---e LrhO--bstol#---e tibrhO--bstol#---erhO--bstol#---rhO--bstol#--rhO--bstol#-rhO--bstol#) ors ac_f ev=bstol#---e LSrS # W-bstol#---e LS=*rhO--bstol#---e LS=*rhO--bstol#---e L=*rhO--bstol#---e =* tibrhO--bstol#---e=*rhO--bstol#---=*rhO--bstol#--=*rhO--bstol#-=*rhO--bstol#=*) ors bstol#---e LS=$ac_cono- lS #_fa-mio#cirhO--mio#cirhO--mio#crhO--mio#rhO--miorhO--mirhO--m) ors ac_f ev=mio#cirS # W-mio#ci=*rhO--mio#ci=*rhO--mio#c=*rhO--mio#=*rhO--mio=*rhO--mi=*rhO--m=*) ors mio#ci=$ac_cono- lS #_fa-nfp hO--nfp hO--nf)-n-or# Oncisete;--nflaout-fp.-n-ornfla_fp=nolS #_fa-no------- hO--no------- hO--no------ hO--no----- hO--no---- tibrhO--no---rhO--no--rhO-n)-n-orno_------= lS #_fa-no- ecuxitcorhO--no- ecuxitcorhO--no- ecuxitcrhO--no- ecuxit tibrhO--no- ecuxirhO--no- ecuxrhO--no- ecurhO--no- ecrhO--no- erhO--no- )-n-orno_ ecuxitco= lS #_fa-old. !--e LSrhO--old. !--e LSrhO--old. !--e LrhO--old. !--e tibrhO--old. !--erhO--old. !--rhO--old. !-rhO--old. !rhO--old. tibrhO--old. rhO--old.rhO--oldrhO--olrhO--o) ors ac_f ev=old. !--e LSrS # W-old. !--e LSt*rhO--old. !--e LSt*rhO--old. !--e Lt*rhO--old. !--e =* tibrhO--old. !--et*rhO--old. !--t*rhO--old. !-t*rhO--old. !t*rhO--old. =* tibrhO--old. t*rhO--old.t*rhO--oldt*rhO--olt*rhO--o=*) ors old. !--e LSt$ac_cono- lS #_fa-f efix hO--f efix hO--f efi hO--f ef hO--f e hO--f hO--f) ors ac_f ev=f efix S # W-f efix=* hO--f efix=* hO--f efi=* hO--f ef=* hO--f e=* hO--f =* hO--f=*) ors f efix=$ac_cono- lS #_fa-$1$as_n-f efix hO--f $as_n-f efix hO--f $as_n-f efi hO--f $as_n-f ef tibrhO--f $as_n-f erhO--f $as_n-f rhO--f $as_n-f) ors ac_f ev=f $as_n_f efix S # W-f $as_n-f efix=* hO--f $as_n-f efix=* hO--f $as_n-f efi=* tibrhO--f $as_n-f ef=* hO--f $as_n-f e=* hO--f $as_n-f =* hO--f $as_n-f=*) ors f $as_n_f efix=$ac_cono- lS #_fa-$1$as_n-suffix hO--f $as_n-suffix hO--f $as_n-suffi hO--f $as_n-suff tibrhO--f $as_n-sufrhO--f $as_n-surhO--f $as_n-s) ors ac_f ev=f $as_n_suffix S # W-f $as_n-suffix=* hO--f $as_n-suffix=* hO--f $as_n-suffi=* tibrhO--f $as_n-suff=* hO--f $as_n-suf=* hO--f $as_n-su=* hO--f $as_n-s=*) ors f $as_n_suffix=$ac_cono- lS #_fa-$1$as_n-seorm-C ex hO--f $as_n-seorm-C ex tibrhO--f $as_n-seorm-C erhO--f $as_n-seorm-C tibrhO--f $as_n-seorm-CrhO--f $as_n-seorm- tibrhO--f $as_n-seormrhO--f $as_n-seor tibrhO--f $as_n-seorhO--f $as_n-se tibrhO--f $as_n-srhO--f $as_n- tibrhO--f $as-rhO--f $as_n-rhO--f $as_n-) ors ac_f ev=f $as_n_seorm_C ex S # W-f $as_n-seorm-C ex=* hO--f $as_n-seorm-C ex=* tibrhO--f $as_n-seorm-C e=* hO--f $as_n-seorm-C =* tibrhO--f $as_n-seorm-C=* hO--f $as_n-seorm-=* tibrhO--f $as_n-seorm=* hO--f $as_n-seor=* tibrhO--f $as_n-seo=* hO--f $as_n-se=* tibrhO--f $as_n-s=* hO--f $as_n-=* tibrhO--f $as-=* hO--f $as_n-=* hO--f $as_n-=*) ors f $as_n_seorm_C ex=$ac_cono- lS #_fa-$df LS hO--fdf LS hO--fdf L hO--fdf hO--fdf hO--fd) ors ac_f ev=fdf LS S # W-fdf LS=* hO--fdf LS=* hO--fdf L=* hO--fdf =* hO--fdf=* hO--fd=*) ors fdf LS=$ac_cono- lS #_fa-$s LS hO--fs LS hO--fs L hO--fs hO--fs) ors ac_f ev=fs LS S # W-fs LS=* hO--fs LS=* hO--fs L=* hO--fs =* hO--fs=*) ors fs LS=$ac_cono- lS #_fa-q hO-quie- hO--quie- hO--quie hO--qui hO--qu hO--q tibrhO-s Bent hO--s Bent hO--s Ben hO--s Be hO--s B) ors s Bent= lS #_fa-sbio#ci hO--sbio#ci hO--sbio#c hO--sbio# hO--sbio hO--sbi hO--sb) ors ac_f ev=sbio#ci S # W-sbio#ci=* hO--sbio#ci=* hO--sbio#c=* hO--sbio#=* hO--sbio=* tibrhO--sbc=* hO--sb=*) ors sbio#ci=$ac_cono- lS #_fa-sRared#---e LS hO--sRared#---e LS hO--sRared#---e L tibrhO--sRared#---e rhO--sRared#---erhO--sRared#---rhO--sRared#-- tibrhO--sRared#-rhO--sRared#rhO--sRaredrhO--sRarerhO--sRar tibrhO--sRarhO--sR) ors ac_f ev=sRared#---e LS S # W-sRared#---e LS=* hO--sRared#---e LS=* hO--sRared#---e L=* tibrhO--sRared#---e =* hO--sRared#---e=* hO--sRared#---=* hO--sRared#--=* tibrhO--sRared#-=* hO--sRared#=* hO--sRared=* hO--sRare=* hO--sRar=* tibrhO--sRa=* hO--sR=*) ors sRared#---e LS=$ac_cono- lS #_fa-si-erhO--si-erhO--si-) ors ac_f ev=si-erS # W-si-e=* hO--si-e=* hO--si-=*) ors si-e=$ac_cono- lS #_fa-src LSrhO--src LSrhO--src LrhO--src rhO--srcrhO--sr) ors ac_f ev=src LSrS # W-src LS=*rhO--src LS=*rhO--src L=*rhO--src =*rhO--src=*rhO--sr=*) ors src LS=$ac_cono- lS #_fa-sysc. LSrhO--sysc. LSrhO--sysc. LrhO--sysc. rhO--sysc. tibrhO--sysc. rhO--sysc.rhO--syscrhO--sysrhO--sy) ors ac_f ev=sysc. LSrS # W-sysc. LS=*rhO--sysc. LS=*rhO--sysc. L=*rhO--sysc. =*rhO--sysc. =* tibrhO--sysc. =*rhO--sysc.=*rhO--sysc=*rhO--sys=*rhO--sy=*) ors sysc. LS=$ac_cono- lS #_fa-targetrhO--targetrhO--targerhO--targrhO--tarrhO--tarhO--t) ors ac_f ev=target_n_fairS # W-target=*rhO--target=*rhO--targe=*rhO--targ=*rhO--tar=*rhO--ta=*rhO--t=*) ors target_n_fai=$ac_cono- lS #_fa-vrhO- exbos-rhO-- exbos-rhO-- exbosrhO-- exborhO-- exb) ors exbos-= lS #_fa- exitcorhO-- exitcorhO-- exitcrhO-- exitrhO-- exirhO-V) ors ac_ it_ exitco=:lS #_fa-nfla-*rhO--nfla-*) ors ac_setbcon PATHxSEc_conf Mf : 'x-*nfla-\([^=]ec)'`-n-or# Rejlf"l" = xshive. Whe anAeteid-i typ # # CoC exs.-n-or PATHxSEc_setbconRATOR='[^-+._$f "cr_alnum]" r e fks.O as_foas_dil; \$aWsiis $? "ineteid-pack shoC ex: SEc_setbconR ors ac_setbcon_orig=SEc_setbcon ors ac_setbcon 0]k,i"# Coc_setbconRA[-+.]/_ ors ho| le c_setb_conos_f_faaaaa*" "nfla_SEc_setbconR "iw S # W nee:w wc_sn ecod_cono= Coc_sn ecod_conoCoc_sn ecod_sep--nfla-$ac_setbcon_orig" wc_sn ecod_sep=', 'S # W ned s-n-ortu) nfla_SEc_setbcon=\$ac_cono- lS #_fa-nflaout-*rhO--nflaout-*) ors ac_setbcon PATHxSEc_conf Mf : 'x-*nflaout-\ rec)'`-n-or# Rejlf"l" = xshive. Whe anAeteid-i typ # # CoC exs.-n-or PATHxSEc_setbconRATOR='[^-+._$f "cr_alnum]" r e fks.O as_foas_dil; \$aWsiis $? "ineteid-pack shoC ex: SEc_setbconR ors ac_setbcon_orig=SEc_setbcon ors ac_setbcon 0]k,i"# Coc_setbconRA[-+.]/_ ors ho| le c_setb_conos_f_faaaaa*" "nfla_SEc_setbconR "iw S # W nee:w wc_sn ecod_cono= Coc_sn ecod_conoCoc_sn ecod_sep--nflaout-$ac_setbcon_orig" wc_sn ecod_sep=', 'S # W ned s-n-ortu) nfla_SEc_setbcon=nolS #_fa--x)-n-or# Oncisete;--nfla-x.-n-ornfla_x= lS #_fa-x-. !--esrhO--x-. !--esrhO--x-. !--erhO--x-. !--rhO--x-. !- tibrhO--x-. !rhO--x-. rhO--x-. rhO--x-.) ors ac_f ev=x_ !--esrS # W-x-. !--es=*rhO--x-. !--es=*rhO--x-. !--e=*rhO--x-. !--=*rhO--x-. !-=* tibrhO--x-. !t*rhO--x-. =*rhO--x-. =*rhO--x-.=*) ors x_ !--es=$ac_cono- lS #_fa-x-oubre LesrhO--x-oubre LesrhO--x-oubre LerhO--x-oubre L tibrhO--x-oubre rhO--x-oubrerhO--x-oubrrhO--x-oubrhO--x-ourhO--x-o) ors ac_f ev=x_oubre LesrS # W-x-oubre Les=*rhO--x-oubre Les=*rhO--x-oubre Le=*rhO--x-oubre L=* tibrhO--x-oubre =*rhO--x-oubre=*rhO--x-oubr=*rhO--x-oub=*rhO--x-ou=*rhO--x-o=*) ors x_oubre Les=$ac_cono- lS #_fa-:w win\$aWsiis $? "sn ecodauonf M: \`SEc_conf M' deal\`S0 --help't re . rm; esaR ors S #_fa*=*) ors ac_env\"}\ PATHxSEc_conf Mf : 'x\([^=]ec)='`-n-or# Rejlf"l" = xshive. Whe anAeteid-i typ # # CoC exs.-n-orho| le c_env\"}ni -#R_fa/bin''rhO[0-9]*rhO*[!_$f "cr_alnum]* )foas_dil; \$aWsiis $? "ineteid- # # CoC ex: \`SEc_env\"}'" S # W ned s-n-ortu) SEc_env\"}=\$ac_cono- -n-or Pif e c_env\"}nS #_fa*)-n-or# FIXME:gi &1; cbe-removin- # N ne 3E #sn-or0]k,i"# Copyde:oING:"__,_i &1; c--bo_bd, --hdss,O--targetpore2s_dor PATHxSEc_conf Mf : R='[^-._$f "cr_alnum]" r e fks.O as_foas_di0]k,i"# Copyde:oING:"ineteid-hotyp-: SEc_conf Mf re2s_dor: S{bo_bd_n_fai=$ac_conf M} S{ dss_n_fai=$ac_conf M} S{target_n_fai=$ac_conf M} ors S #_faed s- dy='eval \\\\fc_breaody) as_eac_conf M=--`ho'Of\fc_breaA_/- orl; \$aWsiis $? "_um`( tmp------- ocSEc_conf Mff itl la'eval \\\\fc_sn ecod_conoody) as_eho| lee.2/m4_conf Mto s_f_faaanow S # W nfatalw win\$aWsiis $? "sn ecodauonf Ms: SEc_sn ecod_conoo S # W niw ( i0]k,i"# Copyde:oING:"sn ecodauonf Ms: SEc_sn ecod_conoo re2lS # Wed s-GUAGE=C dself"; r ---------t N ns !- #cy.f "$asc_\"}ni P$ec_f efix f efix bio#ci sbio#ci bi i$ec LSrdatasiif#ci \ data LS sysc. LSrsRared#---e LS bstol#---e LSr. !--e LSr\ old. !--e LSrdoc LS . LSr s a LS dvi LS fdf LS fs LS \ bi LSrbstole#cirmio#cise fkstu) sc_\"l=\$$sc_\"} or# Removi tra2>/ sl/null. orho| le c_u) _f_faaa*/ )foas_dilc_RAT= PATHXe c_u) f : 'Xi re[^/]\)' \| HXe c_u) f : 'Xi rec)'`-n-orortu) SEc_\"}=\$ac_u) S # Wed s-n-rinbisu$0 && "]) ancis. LCdself"; r C exs.-n-ho| le c_u) _f_faaa:nu $]*rhO?::nu cf ns ! -finueS # W nNONErhO''r)-ho| le c_u)}ni -*f efix ) ! -finueS Wed s;;#eeed s-n-f "$$aWsiis $? " Plf"et CD ancis. LCdself"; r C ext --e c_u)}:le c_u) "- loed riBm"${ZSectpeopD' #ho-ti. ##c USE oldrbrokennbe"])i t: `$ dss2.14us- ocholdrtd b--------gROR--hoecti # FIXME:gTo-removivenlasday.fbo_bd=$ho_bd_n_fai dss=$ dss_n_fai target=$target_n_fai # FIXME:gTo-removivenlasday.f_r Retu () dss_n_fai; !}oas_fn_s ne_r Retu () ho_bd_n_fai; }oas_fn_sucrs !s2>/|maybTOR+se0]k,i"# Copyde:oING:"i "__,_want- ocode=td b--bo_bd typ-,'tc-- dssixR+seIf a !s tbiloedetef"et as!s t i_do anrob bsetdpore LC_Al_r Retu () ho_bd_n_fai; !}o${$ dss_n_fai;s_fn_sucrs !s2>/| elS_PAT itl c_ -oe_f efix= \\\\\\\\\\ dss_n_fai; ec_ -oe_f efix=\ dss_n_fai-T \\\\\"$s Bent; }o llvei$ecs6) e fks.O $_Tfc_bwd=`bwd`as_rs_dir \\\\fc_bwd; dirfc_ld_uO=`piO-di .` dirfc_bwd_ld_uO=`cd\\\fc_bwd; di piO-di .` e foaf "$$aWsiis $? "w---d tCdself"; r '$ ')PSbeedeterm" s_dir"X_bc_ld_uO esacc_bwd_ld_uO" e foaf "$$aWsiis $? "bwde e anArePif C ex o "w---d tCdself"; r" _myself" &h #ourcLC_ALLs,N frbstonf Mswa e anA:__GNfis_redy='eval exprsrc LSody) as_eac_src LS_g & (ef elf thdeal([CsLSlf"; r ' -f "$d tCt # f t is, asTH do n- sLSlf"; r.s_eac_c. LS=`0]k,ELSC ex args_bd_dev/nul_he'$f ".if aXs_bd_dev/nul_: 'Xi re[^/]\)//e[^/][^/]*/*$' \| \O-WXs_bd_dev/nul_: 'Xi //\)[^/]' \| \O-WXs_bd_dev/nul_: 'Xi //\)$' \| \O-WXs_bd_dev/nul_: 'Xi /\)' \| .Sar e fks.O he'$f "."# Xs_bd_dev/nul_h ors sdd '/^Xi re[^/]\)\/\/e[^/][^/]*\/e$/{O-We ns//\1/O-We nqO-We}O-We/^Xi \/\/\)[^/].*/{O-We ns//\1/O-We nqO-We}O-We/^Xi \/\/\)$/{O-We ns//\1/O-We nqO-We}O-We/^Xi \/\).*/{O-We ns//\1/O-We nqO-We}O-Wes/.*/./; q'`-n-src LS=$ac_c. LS ne_r Retu ! UWIN src LS/SEc_sniqu@# Be;s_fn_sucrs src LS=.. n-as_i=$as_dic_src LS_g & (ef | las-_r Retu ! UWIN src LS/SEc_sniqu@# Be;s_fn_sucr\\\\\"$ic_src LS_g & (ef ; }o llvesrc LS="$ac_c. LS .."foaf "$$aWsiis $? "'$ ')PS2='> #ourcLs (SEc_sniqu@# Be)etml src LSo-as_fc_msg="#ourcLs are . l src LS,o_n='\`cd\ src LS'e e anAw---"_fc_anc_c. LS=`( cd\\\src LSoas_rs_dir r "s/e c_sniqu@# Be; hew_1'\$aWsiis $? "$fc_msg" bwd)`---n asho_bdto s_fdolaco,code=src LS=.value.) IFSfc_anc_c. LS e\fc_bwd;s_fn_sucrsrc LS=.vas_# Removi unne+ 1\ary tra2>/ sl/nullS=$as_src LSi # Dou Cosl/nullSinC_ALL=C exlSinCobjlf"l_ALLg{e lagto s_ffo # y la up M-x gdbSinCEmacsecho "$asrc LSr_f_*/)rsrc LS= PATHXesrc LSoa: 'Xi re[^/]\)' \| HXesrc LSoa: 'Xi rec)'` eded.; }"$asc_\"}ni f\fc_brecious@\"} tu) sc_env_${sc_\"}}as_r=$@\"{sc_\"}}fn_r tu) sc_env_${sc_\"}}aeterT=\$${sc_\"}}tu) sc_cv_env_${sc_\"}}as_r=$@\"{sc_\"}}fn_r tu) sc_cv_env_${sc_\"}}aeterT=\$${sc_\"}} l_# RePif td b--help y la sho l_alue.) IFSfc_ it_help e_ech;s_fn_sucr# OmL L#nlasm me_2 || ternciseteauonf Mst -omak &h l la isd t. f thd # fy la sh)iiO0oo _echo ocbe-ati) 2>/dLPATH dA/UX 3.1rsR.-n-hot <<_ACEOF \`c. Disrb'ge. Disrbs PPM CASE o ocadaptt -omany -d dde=0otiaznes. Ua sh:$as_[Ois if]r..o[VAR=VALUE]r.. Tothbsignpenvironm ## --------->&1 &&, CC, Cr..),A:__GNfal([Cmthb VAR=VALUE. Seecbe,iyo}"$ade t istcode=0o#nlaso "opy,setful ----------- D & (e-t iyouonf Ms. Whe__GNfis_tu) racke\s-- C. Disronf M:-n--h,b--help disolayCt # fhelp io# .iit-n-oror--help=shif disolayCuonf Ms.__GNfic && ode=-pack sh-n-oror--help= ecuxitveo disolayCt xshif help RORptd b. !--e pack shelf -V,O-- exitcor disolayC exitcor. rm; esa io# .iit-n--q,O--quie-, --s Bent FIG_SHELp 2>='\`cto sr..'fy la shs-n-oror--ho-_ALL=FILE s houe.) IthAultlSinCFILE [d{ exitd]-n--C, --e. Di-horas_dil_faireor t`--ho-_ALL=e. Di'-n--n, --no------- dG_SHELL----- ukmakeo_ALLs-n-oror--src LS=DIR flf" &h #ourcLlSinCDIR [e. Disrba LS \`..'] F:st; esacyself"; ies:-n---f efix=PREFIX starchitef"srb-lf"i. ##ent _ALLsSinCPREFIX @<:@@S|@bc_g & (e_f efix@:>@-n---P$ec-f efix=EPREFIX starchitef"srb-"i. ##ent _ALLsSinCEPREFIX @<:@PREFIX@:>@- Byog & (e,\`OMPIL st' anro statd b_ALLsSin \`SEc_g & (e_f efix;o- *, \`SEc_g & (e_f efix;bi 'pecti( Y_,_'$ :__GNfa aON st; esacf efix oir/$ATHuis\`SEc_g & (e_f efix'oL to Tt`--f efix', }"$a stnceTt`--f efix=\$HOME'-- F"$abet1" iled.;ol,c iyouonf Ms.be,iy-- F tu$d tCo "opy,i:st; esacyself"; ies:-n---bio#ci=DIR setb=$ecu hou s [EPREFIX;o- ]-n---sbio#ci=DIR tiaznecadm=$ecu hou s [EPREFIX;so- ]-n---bi i$ec LS=DIR f $as_n=$ecu hou s [EPREFIX;bi i$ec]-n---sysc. LS=DIR ---d-locitid tit-mach data [PREFIX;ect]-n---sRared#---e LS=DIR modNfihou b-rchitef"srb-lf"i. ##ent data [PREFIX;com]-n---bstol#---e LS=DIR modNfihou bid tit-mach data [PREFIX;---]-n---bi #ci=DIR objlf"l/nulloubre Lesr[EPREFIX;bi ]-n---. !--e LStDIR C headigb_ALLsS[PREFIX;. !--e]-n---old. !--e LStDIR C headigb_ALLsS}"$anon-gcc [ ifnlst !--e]-n---datasiif#ci=DIR ---d-locit-rch.-lf"i. ##ent data siif [PREFIX;sRare]-n---data#ci=DIR ---d-locit-rchitef"srb-lf"i. ##ent data [DATAROOTDIR]-n---. LS=DIR . rdocu [DATAROOTDIR/st]-n---bstole LStDIR rbstole-"i. ##ent data [DATAROOTDIR/bstole]-n---mio#ci=DIR miordocu [DATAROOTDIR/mio]-n---doc LS=DIR docu siif @<:@DATAROOTDIR/doc/ppm@:>@-n--- s a LS=DIR hs a docu [DOCDIR]-n---dvi LS=DIR dvi docu [DOCDIR]-n---fdf LS=DIR fdf docu [DOCDIR]-n---fs LS=DIR ps docu [DOCDIR]-_ACEOF -n-hot <<\_ACEOF _ACEOF itl la'eval \\\\fc_ it_help dy) as_eho| lefc_ it_helps_f_faaaashif | ecuxitveo)( 1 + "C. Disronf MCo "PPM CASE :"S # W ed s-n-hot <<\_ACEOF Oonf M ||F echo s:-n---d{ exit-uonf M-cto s ignre sn ecoda--P.2/m4/--nflaouonf Ms-n---d{ exit-FEATURE do_SHEL. !--erFEATURE (#elilair--P.2/m4-FEATURE=no) or--P.2/m4-FEATURE[=ARG] L. !--erFEATURE [ARG e] or--P.2/m4-mpi[=.] MPI (g & (e e a),AiciTH dMPI of cl,__1 +ice"outi-- s t xshive. Whei las-,Ai_'$ :de=td m dev/nu,_1 +osh:$gu la (I anr 1 +oshtd b_ArvalAi_'$ flf"), o. #, lam, ch, ch2,sm mel_gnu (I mel'sdMPI nflao],[AC_tbs),sm mel_m mel (I mel'sdMPI nflaoI melAC_tbs),ssun (Sun MPI), ibm (IBM-ie fPOE). Elso,code=ode=-= "f nflaonoceterT io# iredC, CXX io# FCO_C,__SUrop 2--- tb xs(#efeva) or--P.2/m4-linux t }"$alinux (g & (e e a) or--P.2/m4-etiex etiex (g & (e e a) or--P.2/m4-vlf"; P.2/m4 __VECTOR (g & (e e a) or--P.2/m4- athke\`(s P.2/m4 __Mas-KEISAN (g & (e e a) or--P.2/m4-s P.2/m4 __SXF (g & (e e a) or--P.2/m4-fishpack P.2/m4 __CRAYFISH" CK (g & (e e a) or--P.2/m4-hyf e P.2/m4 __HYPRE (g & (e e a) or--P.2/m4-no- st P.2/m4 __NOMICROINSTRUCs ifS (g & (e e a) or--P.2/m4-{e la P.2/m4 {e la i_do (g & (e e a) Snlasm ferTnf penvironm ## ---------:-n-CXX C++ tbiPommio#-n-CXX C++ tbi= "fs-n-LD Atbi= "fs, 1 && -L"i "__,_"]) oubre Lesr # nonstio#ardsLSlf"; r -n-LIBS oubre Lesr_C,passO_C,__SU Atb, 1 && -l-n-CPP (Objlf"tve) C/C++ f ero+ 1\obi= "fs, 1 && -I<. !--er LS>"i __,_"]) headight nonstio#ardsLSlf"; r <. !--er LS>-n-CC C tbiPommio#-n-C C tbi= "fs-n-CPP C f ero+ 1\ob-n-FC F"$ tbiPommio#-n-FC F"$ tbi= "fs- Ushtd s bre LANGUAGhoo----r-- ,__SU1 +ices mi- ,by `c. Disrb'gis ---help itt -oflf" oubre Lesrio# f $as_ns nflaononstio#ardsC exl/bstonf Ms-- RePif lasO_C,__SUpack shoouti-- r. _ACEOF ic_s----->/? itl la'evalFSfc_ it_help e ecuxitve;s_fn_sucr# iciTH $0 buan LSs,ArePif TH LSrs__GNfic --help. n-a"$asc_ LSr_f :le c_ LSs_aO xsdo_/usr/${$ac_uO f xpx:as_r! -finueAS_s LSE.O-das_bc_uO f he' { cd\\\src LSoas_rfc_bwd=`bwd`as_rsrc LS=.as_rs_dir das_bc_uO f;-} .F -finueAS_s bc_ho_bd LS=.vcho "$s_bc_uO f i .)asc_ LS_suffix= ec_ -p_ho_bd LS_ =.aec_ -p_ho_bd_f efix= ;;#*)wi"sc_ LS_suffix=/ 0]k,i"# Coc_dO f h's|^\.:nu c||'`-n-# A ".."-a"$aeorLSlf"; r i f\fc_ LS_suffix.s_eac_ -p_ho_bd LS_ = 0]k,i"# Coc_dO _suffixf h's|/[^nu cf|/..|g;s|/||'`-n-ho| lefc_ -p_ho_bd LS_ ei "") ec_ -p_ho_bd LS_ =.aec_ -p_ho_bd_f efix= ;;# niw ec_ -p_ho_bd_f efix=efc_ -p_ho_bd LS_ /lS # Wed s eded.; fc_anc_ -p_ho_bd LS=\fc_bwd fc_anc_ho_bd LS=\fc_bwdCoc_dO _suffix #-a"$abackwardsonfbility: fc_ -p_ho_bd LS=efc_ -p_ho_bd_f efix cho "$asrc LSr_f_ .)a-# W0 buanho_bdto s_fdolaco.AS_s bc_src LS=.vS_s bc_ -p_src LS=$ac_ -p_ho_bd LS_ vS_s bc_anc_ -p_src LS=$ac_bwdS # W:nu cf hO?::nu cf ns # Ancis. LCC ex--S_s bc_src LS=asrc LSCoc_dO _suffix;vS_s bc_ -p_src LS=$src LSvS_s bc_anc_ -p_src LS=$src LSrS # Wiw # Re; evLCC ex--S_s bc_src LS=afc_ -p_ho_bd_f efixasrc LSCoc_dO _suffixvS_s bc_ -p_src LS=$ac_ -p_ho_bd_f efixasrc LSvS_s bc_anc_ -p_src LS=$ac_bwd/$src LSrS #ed.; fc_anc_src LS=$ac_anc_ -p_src LSCoc_dO _suffixvucrs !das_bc_uO f he { ic_s----->/?; ! -finueS } ors E=C a"$agu l"et c. Disrb--S_s la'eval f\"$ic_src LS/c. Disrb-gnu;s_fn_sucrs ( 1 + s_foas_di0e\$1)\"$ic_src LS/c. Disrb-gnu;r--help= ecuxitvefoas_Al_r Retu f\"$ic_src LS/c. Disrb;s_fn_sucrs ( 1 + s_foas_di0e\$1)\"$ic_src LS/c. Disrb;r--help= ecuxitvefoas_AlsT 0]k,i"# Copyde:oING:"nocc. Disronf MC. rm; esa is i f\fc_ LSf re2s_dorfi h| ic_s----->/?ucrs !das_bc_bwd; he { ic_s----->/?; breakS } or itl'eval \\\\fc_ it_help llvei$i e c_#----- _r \fc_ it_ exitcody) as_ehot <<\_ACEOF PPM e. DisrbaCASE gener--e rby ],[AUALCASE=12.67- C.pyr"${ZS(C) 2010 Free SoftwbuanFouo#a esa,Ainc. d # fe. Disrbai t is e=-=ree softwbuady) Free SoftwbuanFouo#a esa gtves unlimi-e rpermm`(set -oc.py, distrib. LCio# modNfyposix_ACEOF H_WAL GUAGE# ##GE# UALCASE=1 :if ;; esa. ##GE# ##G%fNO_G_c'\$acxx_try_t >/dev/nfNO_GnfNO_GT}oas_ft ASE='eva.@S|@bc_ex-,tho# s_linef thir/$ATH# f ucceeds_re_c'\$acxx_try_t () * ) 1" N e fo=-{o='N e fo-"$1"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+ge. 'eva.SEc_cbjlxt ne_r { { ic_try="$ac_c.t"cho "$s((SEc_try"s_f_fai\"*rhO*\`*rhO*\\:w wc_try_i"# =\$ac_tryS # Wiw wc_try_i"# =$ac_tryS #ed.; tu) sc_try_i"# ="\"\C >/de:-{o='N e fo-n$PATH_}do$sc_try_i"# \"" 0]k,i"# Coc_try_i"# f;-} >&5# W(tu) "$ac_c.t")Sare. 'eva.--rs_dic_s----->/?ucr_r Retu s e. 'eva.--rs_fn_sucrs grePa-vr'^ *+' e. 'eva.--r re. 'eva.--1ucrs !at e. 'eva.--1 >&5# W mvge. 'eva.--1 e. 'eva.--rs_dPATH_0]k,i"# C >/de:-{o='N e fo-n$PATH_}do\$? xpe c_#-----" >&5# WRetu e c_#----- xp0;-} lve{O-W'eval exprac_cxx_wWsiis_= "ff he' Retu ! Us e. 'eva.--rs_dddddd}as_rs_dir sge. 'eva.SEc_cbjlxts_fn_s :s_dic_s_lRAT=0_i=$as_d0]k,i"# Copyde:o\" &e# f $as_nswa :" >&5#^/| /'ge. 'eva.SEc_lxt >&5# ic_s_lRAT=1 PATH_tu) SEas_dir in#--ck;_/usr/${$aas_dir in#--ckf xpx lve{ 1" N e fo=; un ire1" N e fo;} oaf "$$a ir_#----- $ic_s_lRAT } fNO_G_c'\$acxx_try_tG%fNO_G_c'\$ac_try_t >/dev/nfNO_GnfNO_GT}oas_ft ASE='eva.@S|@bc_ex-,tho# s_linef thir/$ATH# f ucceeds_re_c'\$ac_try_t () * ) 1" N e fo=-{o='N e fo-"$1"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+ge. 'eva.SEc_cbjlxt ne_r { { ic_try="$ac_c.t"cho "$s((SEc_try"s_f_fai\"*rhO*\`*rhO*\\:w wc_try_i"# =\$ac_tryS # Wiw wc_try_i"# =$ac_tryS #ed.; tu) sc_try_i"# ="\"\C >/de:-{o='N e fo-n$PATH_}do$sc_try_i"# \"" 0]k,i"# Coc_try_i"# f;-} >&5# W(tu) "$ac_c.t")Sare. 'eva.--rs_dic_s----->/?ucr_r Retu s e. 'eva.--rs_fn_sucrs grePa-vr'^ *+' e. 'eva.--r re. 'eva.--1ucrs !at e. 'eva.--1 >&5# W mvge. 'eva.--1 e. 'eva.--rs_dPATH_0]k,i"# C >/de:-{o='N e fo-n$PATH_}do\$? xpe c_#-----" >&5# WRetu e c_#----- xp0;-} lve{O-W'eval exprac_c_wWsiis_= "ff he' Retu ! Us e. 'eva.--rs_dddddd}as_rs_dir sge. 'eva.SEc_cbjlxts_fn_s :s_dic_s_lRAT=0_i=$as_d0]k,i"# Copyde:o\" &e# f $as_nswa :" >&5#^/| /'ge. 'eva.SEc_lxt >&5# ic_s_lRAT=1 PATH_tu) SEas_dir in#--ck;_/usr/${$aas_dir in#--ckf xpx lve{ 1" N e fo=; un ire1" N e fo;} oaf "$$a ir_#----- $ic_s_lRAT } fNO_G_c'\$ac_try_tG%fNO_G_c'\$ac_try_pp >/dev/nfNO_GnfNO_GT}oas_ff ero+ 1\ ASE='eva.@S|@bc_ex-,tho# s_linef thir/$ATH# f ucceeds_re_c'\$ac_try_pp () * ) 1" N e fo=-{o='N e fo-"$1"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+_r { { ic_try="$ac_cpp e. 'eva.SEc_lxt"cho "$s((SEc_try"s_f_fai\"*rhO*\`*rhO*\\:w wc_try_i"# =\$ac_tryS # Wiw wc_try_i"# =$ac_tryS #ed.; tu) sc_try_i"# ="\"\C >/de:-{o='N e fo-n$PATH_}do$sc_try_i"# \"" 0]k,i"# Coc_try_i"# f;-} >&5# W(tu) "$ac_cpp e. 'eva.SEc_lxt")Sare. 'eva.--rs_dic_s----->/?ucr_r Retu s e. 'eva.--rs_fn_sucrs grePa-vr'^ *+' e. 'eva.--r re. 'eva.--1ucrs !at e. 'eva.--1 >&5# W mvge. 'eva.--1 e. 'eva.--rs_dPATH_0]k,i"# C >/de:-{o='N e fo-n$PATH_}do\$? xpe c_#-----" >&5# WRetu e c_#----- xp0;-} > e. 'eva.i lve{O-W'eval exprac_c_f ero+_wbun_= "frac_c_wWsiis_= "ff he' Retu ! Us e. 'eva.--rs_dddddd}s_fn_s :s_dic_s_lRAT=0_i=$as_d0]k,i"# Copyde:o\" &e# f $as_nswa :" >&5#^/| /'ge. 'eva.SEc_lxt >&5# S_s bc_s_lRAT=1 PATH_tu) SEas_dir in#--ck;_/usr/${$aas_dir in#--ckf xpx lve{ 1" N e fo=; un ire1" N e fo;} oaf "$$a ir_#----- $ic_s_lRAT } fNO_G_c'\$ac_try_ppG%fNO_G_c'\$afc_try_t >/dev/nfNO_GnfNO_GT}oas_ft ASE='eva.@S|@bc_ex-,tho# s_linef thir/$ATH# f ucceeds_re_c'\$afc_try_t () * ) 1" N e fo=-{o='N e fo-"$1"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+ge. 'eva.SEc_cbjlxt ne_r { { ic_try="$ac_c.t"cho "$s((SEc_try"s_f_fai\"*rhO*\`*rhO*\\:w wc_try_i"# =\$ac_tryS # Wiw wc_try_i"# =$ac_tryS #ed.; tu) sc_try_i"# ="\"\C >/de:-{o='N e fo-n$PATH_}do$sc_try_i"# \"" 0]k,i"# Coc_try_i"# f;-} >&5# W(tu) "$ac_c.t")Sare. 'eva.--rs_dic_s----->/?ucr_r Retu s e. 'eva.--rs_fn_sucrs grePa-vr'^ *+' e. 'eva.--r re. 'eva.--1ucrs !at e. 'eva.--1 >&5# W mvge. 'eva.--1 e. 'eva.--rs_dPATH_0]k,i"# C >/de:-{o='N e fo-n$PATH_}do\$? xpe c_#-----" >&5# WRetu e c_#----- xp0;-} lve{O-W'eval exprac_fc_wWsiis_= "ff he' Retu ! Us e. 'eva.--rs_dddddd}as_rs_dir sge. 'eva.SEc_cbjlxts_fn_s :s_dic_s_lRAT=0_i=$as_d0]k,i"# Copyde:o\" &e# f $as_nswa :" >&5#^/| /'ge. 'eva.SEc_lxt >&5# ic_s_lRAT=1 PATH_tu) SEas_dir in#--ck;_/usr/${$aas_dir in#--ckf xpx lve{ 1" N e fo=; un ire1" N e fo;} oaf "$$a ir_#----- $ic_s_lRAT } fNO_G_c'\$afc_try_tG%fNO_G_c'\$ac_try_oa b>/dev/nfNO_GnfNO_GT}oas_f A ASE='eva.@S|@bc_ex-,tho# s_linef thir/$ATH# f ucceeds_r AssumesnfNO_Ghive.=$ecu hou s *can*cbe-runre_c'\$ac_try_oa b() * ) 1" N e fo=-{o='N e fo-"$1"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+_r { { ic_try="$ac_ A"cho "$s((SEc_try"s_f_fai\"*rhO*\`*rhO*\\:w wc_try_i"# =\$ac_tryS # Wiw wc_try_i"# =$ac_tryS #ed.; tu) sc_try_i"# ="\"\C >/de:-{o='N e fo-n$PATH_}do$sc_try_i"# \"" 0]k,i"# Coc_try_i"# f;-} >&5# W(tu) "$ac_ A")Sar&5# Wic_s----->/?ucr0]k,i"# C >/de:-{o='N e fo-n$PATH_}do\$? xpe c_#-----" >&5# WRetu e c_#----- xp0;-} lve{ ic_try='./ASE='evaSEc_lxeex-'-n-{ { ho "$s((SEc_try"s_f_fai\"*rhO*\`*rhO*\\:w wc_try_i"# =\$ac_tryS # Wiw wc_try_i"# =$ac_tryS #ed.; tu) sc_try_i"# ="\"\C >/de:-{o='N e fo-n$PATH_}do$sc_try_i"# \"" 0]k,i"# Coc_try_i"# f;-} >&5# W(tu) "$ac_try")Sar&5# Wic_s----->/?ucr0]k,i"# C >/de:-{o='N e fo-n$PATH_}do\$? xpe c_#-----" >&5# WRetu e c_#----- xp0;-};d}s_fn_s :s_dic_s_lRAT=0_i=$as_d0]k,i"# Copyde:of $as_n=$i-e rnflao#----- $ic_#-----" >&5# W 0]k,i"# Copyde:o\" &e# f $as_nswa :" >&5#^/| /'ge. 'eva.SEc_lxt >&5# S_s _s bc_s_lRAT=e c_#----- PATH_rge. 'eva.dSYMge. 'eva_ipa8_e. 'eva.ooTH_tu) SEas_dir in#--ck;_/usr/${$aas_dir in#--ckf xpx lve{ 1" N e fo=; un ire1" N e fo;} oaf "$$a ir_#----- $ic_s_lRAT } fNO_G_c'\$ac_try_oa G%fNO_G_c'\$ac_ute_m mb>/dev/ EXPR VAR INCLUDESnfNO_GnfNO_GT}Lesr_C,flf" &h t-tiex eterT of EXPR f $as_nshive. !--esnfNO_GINCLUDES,codetto sVAR accordto ly. R_linesf thir/$ATHx eterT c&1; cbenfNO_Guted _c'\$ac_ute_m mb() * ) 1" N e fo=-{o='N e fo-"$1"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+_r 'evalFS!s2>/; }o s_fn_sucrs # Di. ##to sup USE size,Gute,__SU otho# hi bouo#sechot e. defs.h - <<_ACEOF re. 'eva.SEc_lxt /* ##ce. defs.h.aa*/ $4 m m mai b() * #---icsm m 'eva_array @<:@1 - 2 * !((S2) >xp0)@:>@; 'eva_array @<:@0@:>@ xp0# S_ # Ws_linef0; }x_ACEOF _r _c'\$ac_try_t "n$PATH_"s_fn_s :s_dic_lo=0dic_mid=0_ f tt :s !at e. defs.h - <<_ACEOF re. 'eva.SEc_lxt /* ##ce. defs.h.aa*/ $4 m m mai b() * #---icsm m 'eva_array @<:@1 - 2 * !((S2) @; 'eva_array @<:@0@:>@ xp0# S_ # Ws_linef0; }x_ACEOF _r _c'\$ac_try_t "n$PATH_"s_fn_s :s_dic_hi=e c_mid; break_i=$as_di "$$aarflaoe c_mid + 1as_rfc_lo=$oasRAT _r 'eval$ac_ o -le e c_mid; fn_su _dic_lo=dic_hi=u _dbreak_ PAT i "$$aarflao2 '*'oe c_mid + 1as_rfc_mid=$oasRAT PATge.re e. 'eva.--r e. 'eva.SEc_cbjlxtge. 'eva.SEc_lxt ori=$as_d!at e. defs.h - <<_ACEOF re. 'eva.SEc_lxt /* ##ce. defs.h.aa*/ $4 m m mai b() * #---icsm m 'eva_array @<:@1 - 2 * !((S2) @; 'eva_array @<:@0@:>@ xp0# S_ # Ws_linef0; }x_ACEOF _r _c'\$ac_try_t "n$PATH_"s_fn_s :s_dic_hi=-1rfc_mid=-1_ f tt :s !at e. defs.h - <<_ACEOF re. 'eva.SEc_lxt /* ##ce. defs.h.aa*/ $4 m m mai b() * #---icsm m 'eva_array @<:@1 - 2 * !((S2) >xpe c_mid)@:>@; 'eva_array @<:@0@:>@ xp0# S_ # Ws_linef0; }x_ACEOF _r _c'\$ac_try_t "n$PATH_"s_fn_s :s_dic_lo=e c_mid; break_i=$as_di "$$aarflao'('oe c_mid ')' - 1as_rfc_hi=e asRAT _r 'eval$ac_mid -le e c_hi; fn_su _dic_lo=dic_hi=u _dbreak_ PAT i "$$aarflao2 '*'oe c_mid s_rfc_mid=$oasRAT PATge.re e. 'eva.--r e. 'eva.SEc_cbjlxtge. 'eva.SEc_lxt ori=$as_dic_lo=dic_hi=uPATge.re e. 'eva.--r e. 'eva.SEc_cbjlxtge. 'eva.SEc_lxt PATge.re e. 'eva.--r e. 'eva.SEc_cbjlxtge. 'eva.SEc_lxt # Binary se-rchabetwe_s otho# hi bouo#sec tt /usr/${$ac_lo; !}o${$ic_hi"i "$$aarflao'('oe c_hi -l$ac_ o ')' /o2 +l$ac_ o s_rfc_mid=$oasRAT _d!at e. defs.h - <<_ACEOF re. 'eva.SEc_lxt /* ##ce. defs.h.aa*/ $4 m m mai b() * #---icsm m 'eva_array @<:@1 - 2 * !((S2) @; 'eva_array @<:@0@:>@ xp0# S_ # Ws_linef0; }x_ACEOF _r _c'\$ac_try_t "n$PATH_"s_fn_s :s_dic_hi=e c_mid_i=$as_di "$$aarflao'('oe c_mid ')' + 1as_rfc_lo=$oasRAT PATge.re e. 'eva.--r e. 'eva.SEc_cbjlxtge. 'eva.SEc_lxt ho| lefc_ o i bfNO_(( ?iw tu) "$3=\$ac_l f;-ic_s_lRAT=0rS #'') bc_s_lRAT=1rS #ed.; s_AlsT !at e. defs.h - <<_ACEOF re. 'eva.SEc_lxt /* ##ce. defs.h.aa*/ $4 #---ics_echom m _echu) ()e{ s_linef$2S } #---icsun ign_echom m u_echu) ()e{ s_linef$2S } fNO_. !--er fNO_. !--er m m mai b() * FILE *f xpfo. # ("e. 'eva.u) ", "w");OR+_r (! f)-n-ors_linef1;OR+_r ((S2) =r (f, "%ld", i) # W n} s_AlsT { S_s _sun ign_echom m i xpu_echu) () # W nee_r (i !}o(S2)) s_linef1;OR+_dorfp 2>=r (f, "%lu", i) # W n} s_/* Do_SHELukmakeoa tra2>/ new_dir,lairTH# fcausesr\r\nce. us #nlasplatrms.aa*/ ors_lineffWsiis (f) he fclosh(f) !xp0;# S_ # Ws_linef0; }x_ACEOF _r _c'\$ac_try_oa b"n$PATH_"s_fn_s :s_di"# >>e. 'eva.u) ; ---d $3 /dev/ HEADER VAR INCLUDESnfNO_GnfNO_GTusrsf thir/$AHEADER exisrsfho# '$ b tdoL to Ttd b. !--eb_ALLsSin fNO_GINCLUDES,codetto s&h or # # CoVAR accordto ly. _c'\$ac__headig_t () * ) 1" N e fo=-{o='N e fo-"$1"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$2" >&5#0]k,i"# _ b"cto sa"$a$2r..o" >&6S } _r tu) "/usr/\"\C{$3fn_r \"f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d!at e. defs.h - <<_ACEOF re. 'eva.SEc_lxt /* ##ce. defs.h.aa*/ $4 fNO_. !--er<$2>x_ACEOF _r _c'\$ac_try_t "n$PATH_"s_fn_s :s_dtu) "$3=yes"i=$as_dtu) "$3=no"uPATge.re e. 'eva.--r e. 'eva.SEc_cbjlxtge. 'eva.SEc_lxt PATtu) sc_res=\$$3O-We n R+{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ic_s_s" >&5#0]k,i"# "$ac_s_s" >&6S } ortu) SEas_dir in#--ck;_/usr/${$aas_dir in#--ckf xpx lve{ 1" N e fo=; un ire1" N e fo;} } fNO_G_c'\$ac__headig_tG%fNO_G_c'\$afc_try_ A >/dev/nfNO_GnfNO_GT}oas_f A ASE='eva.@S|@bc_ex-,tho# s_linef thir/$ATH# f ucceeds_r _c'\$afc_try_ A () * ) 1" N e fo=-{o='N e fo-"$1"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+ge. 'eva.SEc_cbjlxt ASE='evaSEc_lxeex-OR+_r { { ic_try="$ac_ A"cho "$s((SEc_try"s_f_fai\"*rhO*\`*rhO*\\:w wc_try_i"# =\$ac_tryS # Wiw wc_try_i"# =$ac_tryS #ed.; tu) sc_try_i"# ="\"\C >/de:-{o='N e fo-n$PATH_}do$sc_try_i"# \"" 0]k,i"# Coc_try_i"# f;-} >&5# W(tu) "$ac_ A")Sare. 'eva.--rs_dic_s----->/?ucr_r Retu s e. 'eva.--rs_fn_sucrs grePa-vr'^ *+' e. 'eva.--r re. 'eva.--1ucrs !at e. 'eva.--1 >&5# W mvge. 'eva.--1 e. 'eva.--rs_dPATH_0]k,i"# C >/de:-{o='N e fo-n$PATH_}do\$? xpe c_#-----" >&5# WRetu e c_#----- xp0;-} lve{O-W'eval exprac_fc_wWsiis_= "ff he' Retu ! Us e. 'eva.--rs_dddddd}as_rs_dir sge. 'evaSEc_lxeex- lve{O-W'evalFS!s2>/; }o he' C >/'eva_x ASE='evaSEc_lxeex-OR+ddddd}s_fn_s :s_dic_s_lRAT=0_i=$as_d0]k,i"# Copyde:o\" &e# f $as_nswa :" >&5#^/| /'ge. 'eva.SEc_lxt >&5# ic_s_lRAT=1 PATH_# Disetea&h IPA/IPO (I mer Pro+ dur) Analysis/Oonfm ;; esa)C. rm; esaTH_# L----- rby &h PGI tbi(e. 'eva_ipa8_e. 'eva.oo),lairinAw-uldTH_# m me_f $0 nflao&h nlxt A ASmmio#; ilso-tiseteaarLSlf"; r hive. elf thlefPSbehlf" by Apple's tb.aaWesdo_/H# fbef.re =$ecu to s&h acnf Ms--H_rge. 'eva.dSYMge. 'eva_ipa8_e. 'eva.ooTH_tu) SEas_dir in#--ck;_/usr/${$aas_dir in#--ckf xpx lve{ 1" N e fo=; un ire1" N e fo;} oaf "$$a ir_#----- $ic_s_lRAT } fNO_G_c'\$afc_try_ AG%fNO_G_c'\$ac_try_ A >/dev/nfNO_GnfNO_GT}oas_f A ASE='eva.@S|@bc_ex-,tho# s_linef thir/$ATH# f ucceeds_r _c'\$ac_try_ A () * ) 1" N e fo=-{o='N e fo-"$1"}foas_dir in#--ck=oas_dir in#--ck=$oas_dir in#--ckOR+ge. 'eva.SEc_cbjlxt ASE='evaSEc_lxeex-OR+_r { { ic_try="$ac_ A"cho "$s((SEc_try"s_f_fai\"*rhO*\`*rhO*\\:w wc_try_i"# =\$ac_tryS # Wiw wc_try_i"# =$ac_tryS #ed.; tu) sc_try_i"# ="\"\C >/de:-{o='N e fo-n$PATH_}do$sc_try_i"# \"" 0]k,i"# Coc_try_i"# f;-} >&5# W(tu) "$ac_ A")Sare. 'eva.--rs_dic_s----->/?ucr_r Retu s e. 'eva.--rs_fn_sucrs grePa-vr'^ *+' e. 'eva.--r re. 'eva.--1ucrs !at e. 'eva.--1 >&5# W mvge. 'eva.--1 e. 'eva.--rs_dPATH_0]k,i"# C >/de:-{o='N e fo-n$PATH_}do\$? xpe c_#-----" >&5# WRetu e c_#----- xp0;-} lve{O-W'eval exprac_c_wWsiis_= "ff he' Retu ! Us e. 'eva.--rs_dddddd}as_rs_dir sge. 'evaSEc_lxeex- lve{O-W'evalFS!s2>/; }o he' C >/'eva_x ASE='evaSEc_lxeex-OR+ddddd}s_fn_s :s_dic_s_lRAT=0_i=$as_d0]k,i"# Copyde:o\" &e# f $as_nswa :" >&5#^/| /'ge. 'eva.SEc_lxt >&5# ic_s_lRAT=1 PATH_# Disetea&h IPA/IPO (I mer Pro+ dur) Analysis/Oonfm ;; esa)C. rm; esaTH_# L----- rby &h PGI tbi(e. 'eva_ipa8_e. 'eva.oo),lairinAw-uldTH_# m me_f $0 nflao&h nlxt A ASmmio#; ilso-tiseteaarLSlf"; r hive. elf thlefPSbehlf" by Apple's tb.aaWesdo_/H# fbef.re =$ecu to s&h acnf Ms--H_rge. 'eva.dSYMge. 'eva_ipa8_e. 'eva.ooTH_tu) SEas_dir in#--ck;_/usr/${$aas_dir in#--ckf xpx lve{ 1" N e fo=; un ire1" N e fo;} oaf "$$a ir_#----- $ic_s_lRAT } fNO_G_c'\$ac_try_ AG!at re. ig.log <<_ACEOF d # fft ASEf "$sfhoyfy la shs f $duc- rby tbsf tt run$d tCe. igure,o ocaidg{e lagto s_fCe. igureomak sfh mi#--ke. Itswa eL----- rby PPM CopydeaCASE ,f tchswa gener--e rby ],[AUALCASE=12.67.aaInvstonf MsASmmio# eswa s_d0$as_$@ x_ACEOF i$ecs5>re. ig.log * hot <<_ASUNAMEGE# ##GE# Platrm. ##GE# ##G% dssC ex = `( dssC ex || un ex an)Sar e fks.O h1q` un ex am = `(un ex am)Sar e fks.O h|di"# unknown` un ex ar = `(un ex ar)Sar e fks.O h|di"# unknown` un ex as = `(un ex as)Sar e fks.O h|di"# unknown` un ex av = `(un ex av)Sar e fks.O h|di"# unknown` ifnlbin/un ex ap = `( ifnlbin/un ex ap)Sar e fks.O h|di"# unknown` lbin/un ex aX = `( bin/un ex aX)Sar e fks.O h|di"# unknown` bin/-rchaaaaaaaaaaaaaa= `( bin/-rch)Sar e fks.O h|di"# unknown` lifnlbin/-rcha-kaaaaaaa= `( ifnlbin/-rcha-k)Sar e fks.O h|di"# unknown` lifnle. vex/getsysi r= `( ifnle. vex/getsysi )Sar e fks.O h|di"# unknown` lifnlbin/ dssi raaaaa= `( ifnlbin/ dssi )Sar e fks.O h|di"# unknown` lbin/mach aaaaaaaaaa= `( bin/mach)Sar e fks.O h|di"# unknown` lifnlbin/oslevel raaaaa= `( ifnlbin/oslevel)Sar e fks.O h|di"# unknown` lbin/uni exieaaaaaaaaaa= `( bin/uni exie)Sar e fks.O h|di"# unknown` _ASUNAMEG opysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-or0]k,i"# las-: ras_ LSo orIFS=$opysave_IFS# } >&5#G!at r&5 <<_ACEOF AGE# ##GE# C.re Retus. ##GE# ##G%_ACEOF AGE KeePaa tracaso "opy,ASmmio# ei # StripLukm --no------- io# --no- ecuxit #n"opyyFIG_SHELpt upi # StripLukm --s Bent because we'tcwanto oc ecordrinA}"$afucho -runsi # Also-quo-- ior ---s ASEf "$2>/ s typ meta-characme_si # Mak &wC,passesr_C,al,iyo}"$aroptbidupli!ate---------gsupprem`(ser _c'e. igure_---s= _c'e. igure_---s0= _c'e. igure_---s1= _c'muva_keeP_nlxt=fa=$asa"$asc_passO_f 1 2se fksa"$asc_o- -n-s !a| lefc_o- li -no------- | --no--*rhO- rhO-no- ecuxit | --no-r*) ! -finue S # W n-q hO-quie- hO--quie- hO--quie hO--qui hO--qu hO--q tibrbrhO-s Bent hO--s Bent hO--s Ben hO--s Be hO--s B) ors ! -finue S # W n*\'*)foas_dilc_arg= 0]k,i"# Coc_argf h"s/'/'\\\\\\\\''/g"` S # W ned s-n-or!a| lefc_passO_f-n-or1w win\$ao# _c'e. igure_---s0 " 'Coc_arg'" S # W n2)foas_dil; \$ao# _c'e. igure_---s1 " 'Coc_arg'"# W nee_r 'eval$ac_muva_keeP_nlxta= true; fn_su _c'muva_keeP_nlxt=fa=$a thGanAeteue,obackr_C,nrm;l.# W neei=$as !a| lefc_o- li fa*=* hO--e. ig-horhO-CrhO-d{ exit-* hO--d{ exit-* \O-W hO-P.2/m4-* hO--P.2/m4-* hO-gasrhO--g*rhO- fp | --nf* \O-W hO-q hO-quie- hO--q*rhO-s Bent hO--s B*rhO-vrhO- exb* \O-W hO-nfla-*rhO--nfla-* hO-nflaout-*rhO--nflaout-*rhO--x)O-We nho "$s_bc_e. igure_---s0 " i faaaaas_bc_e. igure_---s1"*" 'Coc_arg' "* ) ! -finue S # W ned s- W nS # W-* ) _c'muva_keeP_nlxt=truenS # ed s-n-or_dPATH_s_dil; \$ao# _c'e. igure_---s " 'Coc_arg'"# W neeS # W ned s-n-{ _c'e. igure_---s0=; un ire1c'e. igure_---s0;} { _c'e. igure_---s1=; un ire1c'e. igure_---s1;} --n asm me_rup-e r"$aexit'd, cleanup 'empore yC_ALLs,Nho# 'ote --e. ig.log.aaWesremovivASmm----tbecause iorwayCt xquo--sdLPATH re --w-uldfcausearo/m4msr"$alook u ly. #oING:"Ush'\''o oc eprement CD apdssroph0 nflaLPATH dtrap. #oING:"Do_SHEL#--f td btrap c_do alaoa new_dir,ldu0 && a FreeBSD 4.0 la. trap 'exit_s----->/?ucr# S]) m mo-e. ig.logL#nlasm rm; esa hive.m"${ZShelps_fg{e lagto .# W{ S_s i"# sn-or0]k,i"# E# ##GE# Cor # # Cs. ##GE# ##" S_s i"# S_s loed sa"l,iy2>/ wayCo "writto s&h ormi#hho#LLsSnew_dirsdLPAeteues, (fksa"$asc_\"}ni f`( ir)Sar&1 h- r'\''s/^\([a-zA-Z_][a-zA-Z0-9_]ec)=.*/\1/p'\''`s tu) sc_\"l=\$$sc_\"} orn-ho| le c_u) _f-#R_fa/b*-{o='nl}*)foas_diho| le c_u)}ni -#R_fa/bin*_cv_*)+{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doING:"or # # Coe c_u)}nASEf "$sfhSnew_dir" >&5#0]k,i"# "$apyde:oING:"or # # Coe c_u)}nASEf "$sfhSnew_dir" >&2;} S # W neeed s-n-or_dho| le c_u)}ni -#R_fa/bin_ hIFS ew_1'nlw S -#R_fa/binBASH_ARGV ewBASH_SOURCE)rtu) SEc_\"}= S -#R_fa/bin*)+{rtu) SEc_\"}=; un ireSEc_\"};} S # W neeed seS # W ned s-n- ( ir)Sar&1 h orn-ho| le 1'nl`( c_#paca='\''o'\''; ir)Sar&1` _f-#R_fa/b*-{o='nl} c_#paca=\ *)foas_di- r\O-"s/'\''/'\''\\\\'\'''\''/g;O-Wes/^\\([_$f "cr_alnum]*_cv_[_$f "cr_alnum]*\c)=\i rec\)/\\1='\''\\2'\''/p"# W neeS -#R_fa/b*)foas_di- r"/^[_$f "cr_alnum]*_cv_[_$f "cr_alnum]*=/p"# W neeS # W ned s_h ors sort ) S_s i"# sn-or0]k,i"# E# ##GE# Okmakeo # # Cs. ##GE# ##" S_s i"# S_s }"$asc_\"}ni f\fc_subva_\"} S_s s s tu) sc_\"l=\$$sc_\"} orn-n-ho| le c_u) _f_faaa n*\'\''iw wc_RAT= 0]k,i"# Coc_u) f h"s/'\''/'\''\\\\\\\\'\'''\''/g"`S # W neeed s-n-or_d0]k,i"# Coc_u)r='\''Coc_u) '\''" S_s nrhOsort S_s i"# sn-or la'eval \\\\fc_subva__ALLs;s_fn_sucrs (0]k,i"# E# ##GE# F Be subvaitunf Ms- ##GE# ##" S_s s i"# S_s s }"$asc_\"}ni f\fc_subva__ALLs-n-oror tu) sc_\"l=\$$sc_\"} ho| le c_u) _f_ *\'\''iw wc_RAT= 0]k,i"# Coc_u) f h"s/'\''/'\''\\\\\\\\'\'''\''/g"`S # ed s- 0]k,i"# Coc_u)r='\''Coc_u) '\''" S_s s nrhOsort S_s s i"# S_s }i sn-or la'eval sce. defs.hs_fn_sucrs (0]k,i"# E# ##GE# e. defs.h.a##GE# ##" S_s s i"# S_s s !at e. defs.h S_s s i"# S_s }i S_s 'evalFSfc_sign) f !xp0as_foas_di0]k,i"# Copyde:ocau${ZSsign) Sfc_sign) f s_di0]k,i"# Copyde:oi$i eexit_s-----f s_} >&5# Wge.re *.e.re e.re.e. 'eva.* s_foas_g-r e. 'eva* e. defs* e. $$* Sfc_clean__ALLs s_foas_i$i eexit_s----- ' 0sa"$asc_sign) _f 1 2 13 15trap 'sc_sign) ='Sfc_sign) '; l; \$ai$i 1' Sfc_sign) sc_sign) =0 # e. defs.h avoids OSsASmmio# esBenglaolimi-xshive.DEFS '$ exceed. g-r e. 'eva* e. defs.h #0]k,i"# "/* e. defs.h */" > e. defs.h ## Predef f ero+ 1\obi----------- !at r>e. defs.h <<_ACEOF fNO_def " CKAGE_NAME C" CKAGE_NAME"%_ACEOF A!at r>e. defs.h <<_ACEOF fNO_def " CKAGE_TAME C" CKAGE_TAME"%_ACEOF A!at r>e. defs.h <<_ACEOF fNO_def " CKAGE_VERSION C" CKAGE_VERSION"%_ACEOF A!at r>e. defs.h <<_ACEOF fNO_def " CKAGE_STRING C" CKAGE_STRING"%_ACEOF A!at r>e. defs.h <<_ACEOF fNO_def " CKAGE_BUGREPORT C" CKAGE_BUGREPORT"%_ACEOF A!at r>e. defs.h <<_ACEOF fNO_def " CKAGE_URL C" CKAGE_URL"%_ACEOF AGE Lde=td bsiteb_ALLllf"lCD alme_2 t or_ALL laitcwantsr_C.## Prefer $ expli!itcitillf" _ALL&& autom; ecalcitillf" s.sc_sit@# Be1=NONEsc_sit@# Be2=NONE la'eval \\\\CONFIG_SITE;s_fn_sucr# Wesdo_ anAwantoa las- se-rcha N n ig.sit.-n-ho| leCONFIG_SITE i bfNO_(( oas_-iw ec_sit@# Be1=./eCONFIG_SITES # W n*/iw wc_sit@# Be1=eCONFIG_SITES # W n*w (ec_sit@# Be1=./eCONFIG_SITES # Wed.; tl_r Retu () f efix; !}oaNONEdy) as_eac_sit@# Be1=ef efix;sRare/N n ig.sits_eac_sit@# Be2=ef efix;etc/N n ig.sitsi=$as_dic_sit@# Be1=eac_g & (e_f efix;sRare/N n ig.sits_eac_sit@# Be2=eac_g & (e_f efix;etc/N n ig.sitsPAT "$asc_sit@# Be i bFSfc_sit@# Be1"bFSfc_sit@# Be2"se fks/usr/${$ac_sit@# Bef xpxNONErs_r! -finueAS__r Retu e fks.O !=bFSfc_sit@# Beoas_rs_dir r "Sfc_sit@# Beos_fn_sucrs {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doloa#to ssitebi t is Sfc_sit@# Beoa>&5#0]k,i"# "$apyde:oloa#to ssitebi t is Sfc_sit@# Beoa>&6;} ors ^/| /'gFSfc_sit@# Beoa>&5# W .gFSfc_sit@# Beoa\foas_dihe { {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis: i b\`SEc_pwd':oa>&5#0]k,i"# "$apyde:oWsiis: i b\`SEc_pwd':oa>&2;} a1'\$aWsiis $? "\" &e# s_f oa#ssitebi t is Sfc_sit@# Be Seec\`c. Di.log'a m.re def "ls" "n$PATH_" 5S } orPAT la'eval r "So@# Beos_fn_sucr# Snlas exitcode=0obash anro\" & ocoourcLC e fks.O (s__GN) _ALLs-n-# acnualci),sso weavoidsdoto s&hat. DJGPP emula--sdLre1"oa regulagb_ALL.AS__r Retu e fks.O !=bFSo@# Beoas_rs_dir f "So@# Beos_fn_sucrs {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doloa#to sorSo@# Beoa>&5#0]k,i"# "$apyde:oloa#to sorSo@# Beoa>&6;} ors ho| leo@# Be _f_faaa n:nu cf hO?::nu cf ns. "So@# Beos # W nee*w ((((((((((((((((((((. "s/eo@# Beos # W ned s-n-as_i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doc----to sorSo@# Beoa>&5#0]k,i"# "$apyde:oc----to sorSo@# Beoa>&6;} or>So@# Be GUAGE=C hive.__SUpreciousbre LANGUAGsaveddLPATH dor"]) kepe=td bsame --eteuer _c'eo@e.rrup-e =fa=$asa"$asc_\"}ni f\fc_brecious@\"} tu) sc_oldas_r=$@ac_cv_env_${sc_\"}}as_rtu) sc_newas_r=$@ac_env_${sc_\"}}as_rtu) sc_olda\"l=\$ac_cv_env_${sc_\"}}aeterT tu) sc_newa\"l=\$ac_env_${sc_\"}}aeterT ho| le c_oldas_r,$sc_newas_r _f_faaas_r,)foas_di{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis: \`SEc_\"}'swa eode=oo \`SEc_olda\"l'dLPATH dbreviousbrunoa>&5#0]k,i"# "$apyde:oWsiis: \`SEc_\"}'swa eode=oo \`SEc_olda\"l'dLPATH dbreviousbrunoa>&2;} ors _eac_co@e.rrup-e =:eS # W n, ir)foas_di{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis: \`SEc_\"}'swa eSHEL#_r _fATH dbreviousbrunoa>&5#0]k,i"# "$apyde:oWsiis: \`SEc_\"}'swa eSHEL#_r _fATH dbreviousbrunoa>&2;} ors _eac_co@e.rrup-e =:eS # W n,)S # W n*w# W nee_r 'eval${$ac_olda\"l; !}o${$ic_newa\"los_fn_su # diff $0ncLlSinCwhite#pacasdo_ anAl--d _C,f" &srb-- ac_olda\"l_w=`i"# x $ac_olda\"l`- ac_newa\"l_w=`i"# x $ac_newa\"l`- la'evalFSfc_olda\"l_w" !=bFSfc_newa\"l_wos_fn_su di{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis: \`SEc_\"}'sha eLhange#ssinceTTH dbreviousbrun:oa>&5#0]k,i"# "$apyde:oWsiis: \`SEc_\"}'sha eLhange#ssinceTTH dbreviousbrun:oa>&2;} _eac_co@e.rrup-e =: i=$as di{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dowbunto : ignr2>/ white#pacasLhanges i b\`SEc_\"}'ssinceTTH dbreviousbrun:oa>&5#0]k,i"# "$apyde:owbunto : ignr2>/ white#pacasLhanges i b\`SEc_\"}'ssinceTTH dbreviousbrun:oa>&2;} _etu) SEc_\"}=\Sfc_olda\"l PAT {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dos }"$mer-eteuedos\`SEc_olda\"l'oa>&5#0]k,i"# "$apyde:os }"$mer-eteuedos\`SEc_olda\"l'oa>&2;} {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dos curr ## --euedo\`SEc_newa\"l'oa>&5#0]k,i"# "$apyde:os curr ## --euedo\`SEc_newa\"l'oa>&2;} ors _efiS # Wed.; n-# PassOpreciousbre LANGUAGmo-e. ig.s-----.AS__r Retu "$sc_newas_rf xpn_rs_fn_s orn-ho| le c_newa\"l _f_faaa*\'*)ilc_arg=SEc_\"}= 0]k,i"# Coc_newa\"lo h"s/'/'\\\\\\\\''/g"` S # W n*)ilc_arg=SEc_\"}=e c_newa\"l S # W ned s-n-or!a| l" _bc_e. igure_---s " _f_faaa n*" 'Coc_arg' "*w S -# Avoidsdups.aaUsh=0oquo--sdenssrbs accuracy.# W nee*w l; \$ao# _c'e. igure_---s " 'Coc_arg'" s # W ned s-n-as__r \fc_co@e.rrup-e s_fn_s or{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis: i b\`SEc_pwd':oa>&5#0]k,i"# "$apyde:oWsiis: i b\`SEc_pwd':oa>&2;} or{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis: Lhanges i bTH denvironm ## c romishtd bho_bdoa>&5#0]k,i"# "$apyde:oWsiis: Lhanges i bTH denvironm ## c romishtd bho_bdoa>&2;} oaf "$$aWsiis $? "oa b\`OMPILdistclean'Nho#/\`rmrSo@# Be' io# --f ----" "n$PATH_" 5 GUAE# a##GE# Mai bbodyCo "i t is. ##GE# ##G%ac_lxt=; fc_cpp='$CPP $CPP' _c'e.t='$CC -c $C $CPPge. 'eva.SEc_lxt >&5' _c' A='$CC -oge. 'evaSEc_lxeex- $C $CPPg$LD e. 'eva.SEc_lxt $LIBS >&5' _c'tb_gnu=$ac_cv_c'tb_gnu AGE Re#_r exisr2>/ f ero+ 1\to sa "fs-touch ./src/ppm_def.h ./src/ppm_def.h touch ./src/ppm_def.h AGE _r MPI s P.2/m4d _ry grabbto s&hoshtbixs_Arva use_=no nfNO_GC thir/$A--P.2/m4-mpiswa egtven.l la'evalFS{P.2/m4_fn_r f xpn_rs_fn_s :s_dP.2/m4RAT=eP.2/m4_; _r 'eval${$P.2/m4RATf xpx s_fn_sucrs {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}do***=C a"$aior MPI s_ft io# k alao***oa>&5#0]k,i"# "$apyde:o***=C a"$aior MPI s_ft io# k alao***oa>&6;} AlsT {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}do***=FArval _r i_'$ usea$P.2/m4RAT s_ft io# k alao***oa>&5#0]k,i"# "$apyde:o***=FArval _r i_'$ usea$P.2/m4RAT s_ft io# k alao***oa>&6;} GUAEl a"$anro "opy,a"l,iy2>/ MPI distrib. f Ms-# OoMPIGE LAMMPIGE MPICHGE MPICH2 # m mel MPIGE Sun ClusterTools (tmcc,tmCC,tmf77,tmf90)GE IBM-ie fPOE (mpcc_r,mpCC_r,mpxlf_r) # Manyro "opsoelA"]) #elilsC exl _r 'eval${$P.2/m4RATf xpxo. #s_fn_sucrs # Extracttd b_Arvalwordro ""cc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy cc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICC"dy) as_eac_cv_f $a_MPICC=\\MPICC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICC=\cc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICCoas_rfc_cv_f $a_MPICC=\no"uPATPATMPICC=rac_cv_f $a_MPICC la'eval \\\\MPICC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICCoa>&5#0]k,i"# "$MPICCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" ccra"$aOoMPI" "n$PATH_" 5 i=$as_dCC=\\MPICC" }i S_s # Extracttd b_Arvalwordro ""c++",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy c++; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICXX"dy) as_eac_cv_f $a_MPICXX=\\MPICXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICXX=\c++" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICXX" s_rfc_cv_f $a_MPICXX=\no"uPATPATMPICXX=rac_cv_f $a_MPICXX la'eval \\\\MPICXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICXX" >&5#0]k,i"# "$MPICXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICXX" xpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" c++ra"$aOoMPI" "n$PATH_" 5 i=$as_dCXX=\\MPICXX" }i S_s # Extracttd b_Arvalwordro ""f90",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy f90; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPIFCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPIFC"dy) as_eac_cv_f $a_MPIFC=\\MPIFC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPIFC=\f90" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPIFCoas_rfc_cv_f $a_MPIFC=\no"uPATPATMPIFC=rac_cv_f $a_MPIFC la'eval \\\\MPIFC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPIFCoa>&5#0]k,i"# "$MPIFCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPIFCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" f90ra"$aOoMPI" "n$PATH_" 5 i=$as_dFC=\\MPIFC" PATtl_r 'eval${$P.2/m4RATf xpxlams_fn_sucrs # Extracttd b_Arvalwordro ""cc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy cc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICC"dy) as_eac_cv_f $a_MPICC=\\MPICC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICC=\cc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICCoas_rfc_cv_f $a_MPICC=\no"uPATPATMPICC=rac_cv_f $a_MPICC la'eval \\\\MPICC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICCoa>&5#0]k,i"# "$MPICCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" ccra"$aLAM/MPI" "n$PATH_" 5 i=$as_dCC=\\MPICC" }i S_s # Extracttd b_Arvalwordro ""CC",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy CC; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICXX"dy) as_eac_cv_f $a_MPICXX=\\MPICXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICXX=\CC" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICXX" s_rfc_cv_f $a_MPICXX=\no"uPATPATMPICXX=rac_cv_f $a_MPICXX la'eval \\\\MPICXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICXX" >&5#0]k,i"# "$MPICXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICXX" xpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" CCra"$aLAM/MPI" "n$PATH_" 5 i=$as_dCXX=\\MPICXX" }i S_s # Extracttd b_Arvalwordro ""f90",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy f90; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPIFCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPIFC"dy) as_eac_cv_f $a_MPIFC=\\MPIFC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPIFC=\f90" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPIFCoas_rfc_cv_f $a_MPIFC=\no"uPATPATMPIFC=rac_cv_f $a_MPIFC la'eval \\\\MPIFC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPIFCoa>&5#0]k,i"# "$MPIFCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPIFCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" f90ra"$aLAM/MPI" "n$PATH_" 5 i=$as_dFC=\\MPIFC" PATtl_r 'eval${$P.2/m4RATf xpxchs_fn_sucrs # Extracttd b_Arvalwordro ""cc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy cc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICC"dy) as_eac_cv_f $a_MPICC=\\MPICC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICC=\cc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICCoas_rfc_cv_f $a_MPICC=\no"uPATPATMPICC=rac_cv_f $a_MPICC la'eval \\\\MPICC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICCoa>&5#0]k,i"# "$MPICCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" ccra"$aMPICH" "n$PATH_" 5 i=$as_dCC=\\MPICC" }i S_s # Extracttd b_Arvalwordro ""CC",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy CC; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICXX"dy) as_eac_cv_f $a_MPICXX=\\MPICXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICXX=\CC" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICXX" s_rfc_cv_f $a_MPICXX=\no"uPATPATMPICXX=rac_cv_f $a_MPICXX la'eval \\\\MPICXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICXX" >&5#0]k,i"# "$MPICXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICXX" xpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" CCra"$aMPICH" "n$PATH_" 5 i=$as_dCXX=\\MPICXX" }i S_s # Extracttd b_Arvalwordro ""f90",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy f90; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPIFCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPIFC"dy) as_eac_cv_f $a_MPIFC=\\MPIFC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPIFC=\f90" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPIFCoas_rfc_cv_f $a_MPIFC=\no"uPATPATMPIFC=rac_cv_f $a_MPIFC la'eval \\\\MPIFC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPIFCoa>&5#0]k,i"# "$MPIFCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPIFCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" f90ra"$aMPICH" "n$PATH_" 5 i=$as_dFC=\\MPIFC" PATtl_r 'eval${$P.2/m4RATf xpxch2s_fn_sucrs # Extracttd b_Arvalwordro ""cc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy cc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICC"dy) as_eac_cv_f $a_MPICC=\\MPICC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICC=\cc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICCoas_rfc_cv_f $a_MPICC=\no"uPATPATMPICC=rac_cv_f $a_MPICC la'eval \\\\MPICC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICCoa>&5#0]k,i"# "$MPICCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" ccra"$aMPICH 2" "n$PATH_" 5 i=$as_dCC=\\MPICC" }i S_s # Extracttd b_Arvalwordro ""cxx",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy cxx; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICXX"dy) as_eac_cv_f $a_MPICXX=\\MPICXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICXX=\cxx" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICXX" s_rfc_cv_f $a_MPICXX=\no"uPATPATMPICXX=rac_cv_f $a_MPICXX la'eval \\\\MPICXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICXX" >&5#0]k,i"# "$MPICXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICXX" xpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" cxxra"$aMPICH 2" "n$PATH_" 5 i=$as_dCXX=\\MPICXX" }i S_s # Extracttd b_Arvalwordro ""f90",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy f90; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPIFCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPIFC"dy) as_eac_cv_f $a_MPIFC=\\MPIFC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPIFC=\f90" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPIFCoas_rfc_cv_f $a_MPIFC=\no"uPATPATMPIFC=rac_cv_f $a_MPIFC la'eval \\\\MPIFC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPIFCoa>&5#0]k,i"# "$MPIFCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPIFCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" f90ra"$aMPICH 2" "n$PATH_" 5 i=$as_dFC=\\MPIFC" PATtl_r 'eval${$P.2/m4RATf xpxm mel_gnus_fn_sucrs # Extracttd b_Arvalwordro ""gcc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy gcc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICC"dy) as_eac_cv_f $a_MPICC=\\MPICC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICC=\gcc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICCoas_rfc_cv_f $a_MPICC=\no"uPATPATMPICC=rac_cv_f $a_MPICC la'eval \\\\MPICC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICCoa>&5#0]k,i"# "$MPICCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" gccra"$aI mel MPI + ],[ACtbs" "n$PATH_" 5 i=$as_dCC=\\MPICC" }i S_s # Extracttd b_Arvalwordro ""g++",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy g++; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICXX"dy) as_eac_cv_f $a_MPICXX=\\MPICXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICXX=\g++" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICXX" s_rfc_cv_f $a_MPICXX=\no"uPATPATMPICXX=rac_cv_f $a_MPICXX la'eval \\\\MPICXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICXX" >&5#0]k,i"# "$MPICXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICXX" xpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" g++ra"$aI mel MPI + ],[ACtbs" "n$PATH_" 5 i=$as_dCXX=\\MPICXX" }i S_s # Extracttd b_Arvalwordro ""ga"$tran",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy ga"$tran; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPIFCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPIFC"dy) as_eac_cv_f $a_MPIFC=\\MPIFC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPIFC=\ga"$tran" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPIFCoas_rfc_cv_f $a_MPIFC=\no"uPATPATMPIFC=rac_cv_f $a_MPIFC la'eval \\\\MPIFC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPIFCoa>&5#0]k,i"# "$MPIFCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPIFCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" ga"$tranra"$aI mel MPI + ],[ACtbs" "n$PATH_" 5 i=$as_dFC=\\MPIFC" PATtl_r 'eval${$P.2/m4RATf xpxm mel_m mels_fn_sucrs # Extracttd b_Arvalwordro ""cc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy cc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICC"dy) as_eac_cv_f $a_MPICC=\\MPICC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICC=\cc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICCoas_rfc_cv_f $a_MPICC=\no"uPATPATMPICC=rac_cv_f $a_MPICC la'eval \\\\MPICC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICCoa>&5#0]k,i"# "$MPICCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" gccra"$aI mel MPI +aI mel Ctbs" "n$PATH_" 5 i=$as_dCC=\\MPICC" }i S_s # Extracttd b_Arvalwordro ""icpc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy cpc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICXX"dy) as_eac_cv_f $a_MPICXX=\\MPICXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICXX=\cpc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICXX" s_rfc_cv_f $a_MPICXX=\no"uPATPATMPICXX=rac_cv_f $a_MPICXX la'eval \\\\MPICXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICXX" >&5#0]k,i"# "$MPICXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICXX" xpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" cpcra"$aI mel MPI +aI mel Ctbs" "n$PATH_" 5 i=$as_dCXX=\\MPICXX" }i S_s # Extracttd b_Arvalwordro ""ia"$t",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy a"$t; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPIFCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPIFC"dy) as_eac_cv_f $a_MPIFC=\\MPIFC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPIFC=\ia"$t" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPIFCoas_rfc_cv_f $a_MPIFC=\no"uPATPATMPIFC=rac_cv_f $a_MPIFC la'eval \\\\MPIFC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPIFCoa>&5#0]k,i"# "$MPIFCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPIFCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" ia"$tra"$aI mel MPI +aI mel Ctbs" "n$PATH_" 5 i=$as_dFC=\\MPIFC" PATtl_r 'eval${$P.2/m4RATf xpxsuns_fn_sucrs # Extracttd b_Arvalwordro ""tmcc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy tmcc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICC"dy) as_eac_cv_f $a_MPICC=\\MPICC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICC=\tmcc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICCoas_rfc_cv_f $a_MPICC=\no"uPATPATMPICC=rac_cv_f $a_MPICC la'eval \\\\MPICC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICCoa>&5#0]k,i"# "$MPICCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" tmccra"$aSun MPI" "n$PATH_" 5 i=$as_dCC=\\MPICC" }i S_s # Extracttd b_Arvalwordro ""tmCC",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy tmCC; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICXX"dy) as_eac_cv_f $a_MPICXX=\\MPICXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICXX=\tmCC" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICXX" s_rfc_cv_f $a_MPICXX=\no"uPATPATMPICXX=rac_cv_f $a_MPICXX la'eval \\\\MPICXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICXX" >&5#0]k,i"# "$MPICXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICXX" xpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" tmCCra"$aSun MPI" "n$PATH_" 5 i=$as_dCXX=\\MPICXX" }i S_s # Extracttd b_Arvalwordro ""tmf90",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy tmf90; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPIFCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPIFC"dy) as_eac_cv_f $a_MPIFC=\\MPIFC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPIFC=\tmf90" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPIFCoas_rfc_cv_f $a_MPIFC=\no"uPATPATMPIFC=rac_cv_f $a_MPIFC la'eval \\\\MPIFC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPIFCoa>&5#0]k,i"# "$MPIFCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPIFCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" tmf90ra"$aSun MPI" "n$PATH_" 5 i=$as_dFC=\\MPIFC" PATtl_r 'eval${$P.2/m4RATf xpxmbms_fn_sucrs # Extracttd b_Arvalwordro ""cc_r",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy cc_r; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICC"dy) as_eac_cv_f $a_MPICC=\\MPICC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICC=\cc_r" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICCoas_rfc_cv_f $a_MPICC=\no"uPATPATMPICC=rac_cv_f $a_MPICC la'eval \\\\MPICC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICCoa>&5#0]k,i"# "$MPICCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" cc_rra"$aIBM-ie fMPI" "n$PATH_" 5 i=$as_dCC=\\MPICC" }i S_s # Extracttd b_Arvalwordro ""mpCC_r",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy CC_r; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICXX"dy) as_eac_cv_f $a_MPICXX=\\MPICXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICXX=\CC_r" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPICXX" s_rfc_cv_f $a_MPICXX=\no"uPATPATMPICXX=rac_cv_f $a_MPICXX la'eval \\\\MPICXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICXX" >&5#0]k,i"# "$MPICXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPICXX" xpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" CC_rra"$aIBM-ie fMPI" "n$PATH_" 5 i=$as_dCXX=\\MPICXX" }i S_s # Extracttd b_Arvalwordro ""xf90_r",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy xf90_r; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPIFCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPIFC"dy) as_eac_cv_f $a_MPIFC=\\MPIFC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPIFC=\xf90_r" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# W'eval exprac_cv_f $a_MPIFCoas_rfc_cv_f $a_MPIFC=\no"uPATPATMPIFC=rac_cv_f $a_MPIFC la'eval \\\\MPIFC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPIFCoa>&5#0]k,i"# "$MPIFCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or la'eval${$MPIFCoaxpx""nos_fn_s :s_di "$$aWsiis $? "C-uldf anAflf" xf90_ra"$aIBM-ie fMPI" "n$PATH_" 5 i=$as_dFC=\\MPIFC" PATtl_r 'eval${$P.2/m4RATf xpxgues s_fn_sucrs a"$asc_f $a _f ccrgccrcc tmccrcc_rse fks# Extracttd b_Arvalwordro ""$sc_f $a",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy $sc_f $a; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICC"dy) as_eac_cv_f $a_MPICC=\\MPICC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICC=\\sc_f $a" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATMPICC=rac_cv_f $a_MPICC la'eval \\\\MPICC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICCoa>&5#0]k,i"# "$MPICCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-'eval \\\\MPICC"as_rbreak_'eval \\\\MPICC"a|| MPICC=\no"usn-or la'eval${$MPICCoaxpx""nos_fn_s :s_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: C-uldf anAflf" anyrmpiswsa"$as Cftroa>&5#0]k,i"# "$ >/de:oWARNING: C-uldf anAflf" anyrmpiswsa"$as Cftroa>&2;} AlsT CC=\\MPICC" }i S_s a"$asc_f $a _f c++ CCrcxxrg++rcpc tmCCrCC_rse fks# Extracttd b_Arvalwordro ""$sc_f $a",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy $sc_f $a; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPICXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPICXX"dy) as_eac_cv_f $a_MPICXX=\\MPICXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPICXX=\\sc_f $a" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATMPICXX=rac_cv_f $a_MPICXX la'eval \\\\MPICXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPICXX" >&5#0]k,i"# "$MPICXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-'eval \\\\MPICXX"as_rbreak_'eval \\\\MPICXX"a|| MPICXX=\no"usn-or la'eval${$MPICXX" xpx""nos_fn_s :s_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: C-uldf anAflf" anyrmpiswsa"$as C++rtroa>&5#0]k,i"# "$ >/de:oWARNING: C-uldf anAflf" anyrmpiswsa"$as C++rtroa>&2;} AlsT CXX=\\MPICXX" }i S_s a"$asc_f $a _f f90rfc ga"$tranria"$trtmf90rxf90_rse fks# Extracttd b_Arvalwordro ""$sc_f $a",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy $sc_f $a; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_MPIFCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\MPIFC"dy) as_eac_cv_f $a_MPIFC=\\MPIFC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_MPIFC=\\sc_f $a" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATMPIFC=rac_cv_f $a_MPIFC la'eval \\\\MPIFC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $MPIFCoa>&5#0]k,i"# "$MPIFCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-'eval \\\\MPIFC"as_rbreak_'eval \\\\MPIFC"a|| MPIFC=\no"usn-or la'eval${$MPIFCoaxpx""nos_fn_s :s_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: C-uldf anAflf" anyrmpiswsa"$as F"$tranrtroa>&5#0]k,i"# "$ >/de:oWARNING: C-uldf anAflf" anyrmpiswsa"$as F"$tranrtroa>&2;} AlsT FC=\\MPIFC" PATn-or{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dofouo# SCCr$CXX $FCoa>&5#0]k,i"# "$ >/de:ofouo# SCCr$CXX $FCoa>&6;} Al_r 'eval${$P.2/m4RATf xpxye s_fn_sucrs {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doYoulwouldflikSU'obuse SCCr$CXX $FCU'obt alaoMPI supp"$t"a>&5#0]k,i"# "$ >/de:oYoulwouldflikSU'obuse SCCr$CXX $FCU'obt alaoMPI supp"$t"a>&6;} AlsT _di "$$aWsiis $? "C-uldf anAreocgniz ,__isoMPI implementatf M: $P.2/m4RATf "n$PATH_" 5 GUAGS_s # trs sh-uldfb "# s_sucrs use_=ye i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doMPI wasf anAP.2/m4d. Buildto snon-parallel ---sf Mro "PPM."a>&5#0]k,i"# "$ >/de:oMPI wasf anAP.2/m4d. Buildto snon-parallel ---sf Mro "PPM."a>&6;} GUAGs: ${CXXFLAGS="-O3"}s: ${CFLAGS="-O3"}s: ${FCFLAGS="-O3"}s # Cssa"$abasic tr and flags sc_i$t=cpp sc_cpp='$CXXCPPr$CPPFLAGS' sc_ct='$CXX -cr$CXXFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CXX -o nf'eva$sc_i$ei$ta$CXXFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_cxx_tr_gnu la'eval exprCXX"dy) as_e la'eval \\\\CCC"dy) as_e CXX=\CCCs_eAlsT _d la'eval \\\\ac_tool_f efix"dy) as_ea"$asc_f $a _f g++rc++ gpp aCCrCCrcxxrcc++ cl.i$e FCC KCC RCC xlC_rrxlCor S_s # Extracttd b_Arvalwordro ""\ac_tool_f efix$sc_f $a",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy $sc_tool_f efix$sc_f $a; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_CXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\CXX"dy) as_eac_cv_f $a_CXX=\\CXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_CXX=\\sc_tool_f efix$sc_f $a" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATCXX=rac_cv_f $a_CXX la'eval \\\\CXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $CXX" >&5#0]k,i"# "$CXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-or'eval \\\\CXX"as_rbreak_orGUA la'eval exprCXX"dy) as_eac_ct_CXX=\CXX _ea"$asc_f $a _f g++rc++ gpp aCCrCCrcxxrcc++ cl.i$e FCC KCC RCC xlC_rrxlCe fks# Extracttd b_Arvalwordro ""$sc_f $a",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy $sc_f $a; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_ac_ct_CXXfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\ac_ct_CXX"dy) as_eac_cv_f $a_ac_ct_CXX=\\ac_ct_CXX" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_ac_ct_CXX=\\ac_f $a" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATac_ct_CXX=\ac_cv_f $a_ac_ct_CXX la'eval \\\\ac_ct_CXX"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_ct_CXX" >&5#0]k,i"# "$ c_ct_CXX" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsn-'eval \\\\ c_ct_CXX" s_rbreak_ or la'eval${$ c_ct_CXX" xpxdy) as_e CXX="g++" s_AlsT _dcase Scross_to :\sc_tool_warned _f ye :) {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&5#0]k,i"# "$ >/de:oWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&2;} sc_tool_warned=ye ;; esacs_e CXX=\ac_ct_CXX n-as_GUAGS_as_GUA# Prov-- ,soex ina"$matf M aboue=td btr.#0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}docto sa"$aC++rtr ---sf M"a>&5##_r X $ac_ct sc_tr=$2 a"$asc_optf M _f -----sf Mr-v -V -q---sf M{{sc_try=\\ac_ctr $sc_optf M >&5" case "(($sc_try" _f *\"* | *\`* | *\\*)sc_try,i"# =\$sc_try;; *)sc_try,i"# =$sc_try;; esacs4RATsc_try,i"# ="\"\$ >/de:-{o='N e fo-n$PATH_}do$sc_try,i"# \""#0]k,i"# "$ c_try,i"# o;d}a>&5# W(4RAT\\ac_ctr $sc_optf M >&5") 2>nf'eva.--rs_eac_status=$?s_d la'eval s nf'eva.--rdy) as_e sed '10a\ r..orevalo "std--r ouepue=deleted r..s_e 10q' nf'eva.--r >nf'eva.--1 _dcat nf'eva.--1a>&5# WPATn-rmr f nf'eva.--1anf'eva.--rs_e0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}do\$? xp$ac_statusoa>&5# W'eval$ac_status xp0S } cat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {AGS_; returnp0S } _ACEOF sc_lean_ftpysave=\ac_clean_ftp sc_lean_ftp=\\ac_clean_ftp a.oue=a.oue.dSYM=a.i$e b.oue"A# TryU'obreat n =$ecu hou alaoue=-o _Arva, disregardra.oue.A# Ialwill help us diagnose brokenrtrs, and findto soue=aM _ftuitf MA# o "i$ei$t. {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto swhe) r=td bC++rtr works" >&5#0]k,i"# _ b"cto swhe) r=td bC++rtr worksr..o" >&6S } sc_N ek_default=`0]k,i"# "$ c_N ek" | sed 's/=-o *nf'eva[^ ]*//'`s # Td bpossiou ouepue=ftp: sc_ftp=\a.oue=nf'eva.-xe=nf'eva=a.i$e a_oue.i$e b.oue=nf'eva.*" sc_rmftp= a"$asc_ftr_f $sc_ftpse fkscase Ssc_ftr_f _d*.$sc_i$ta| *.xcoffa| *.tdsa| *.da| *.pdba| *.xSYM=| *.bb=| *.bbg=| *.map=| *.inaa| *.dSYM=| *.o=| *.obj ) ;; _d* )sc_rmftp="$ c_rmftp Ssc_ft";; esacsrmr f $ c_rmftp _r { {sc_try=\\ac_N ek_default" case "(($sc_try" _f *\"* | *\`* | *\\*)sc_try,i"# =\$sc_try;; *)sc_try,i"# =$sc_try;; esacs4RATsc_try,i"# ="\"\$ >/de:-{o='N e fo-n$PATH_}do$sc_try,i"# \""#0]k,i"# "$ c_try,i"# o;d}a>&5# W(4RAT\\ac_N ek_default") 2>&5# Wac_status=$?s_d0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}do\$? xp$ac_statusoa>&5# W'eval$ac_status xp0S }s_fn_s :s_d# Autonf-2.13=uldfsde=td bac_cv_i$ei$tavarihou 'ob`no'.A# So ignor RATue o "`no', o) rwis ,__isowouldflead 'ob`EXEEXT xpno'A# _f a Makeft. We sh-uldf anA----r-- ,ac_cv_i$ei$ta_r it wasfod,A# so thae=td busero'$ sh-rt-circuit,__iso'evala"$atrs unknown 'o # Autonf. a"$asc_ftr_f $sc_ftp ''se fkss_dir f "Sfc_ft"a|| ntinuefkscase Ssc_ftr_f _d*.$sc_i$ta| *.xcoffa| *.tdsa| *.da| *.pdba| *.xSYM=| *.bb=| *.bbg=| *.map=| *.inaa| *.dSYM=| *.o=| *.obj ) ;; _d[ab].oue=) # We fouo# td bdefault =$ecu hou , but"i$ei$t='' isom se # certa_fly right. break;; _d*.*=) _r 'evalFS{ac_cv_i$ei$tfn_r f xpn_r s_r'evalFSac_cv_i$ei$t" !xpno; fn_s :;_AlsT _eac_cv_i$ei$t=`expr "Sfc_ft"a: '[^.]*\(\..*\)'`s PAT # We n_r ac_cv_i$ei$ta re becaus ,__SUlat ro'evala"$ait,isf anT # safe:ocross trs mayf anAad# td bsuffixa_r giv_s $ `-o'A # argument,sso we mayf eed 'obknowait,ae=tdae=po_ft already.A # Ev_s _r '_isosectf M looks rufty:ait,hasftd badvantage o A # actually workto . break;; _d*=) break;; esacs'evalFSac_cv_i$ei$t" xpnoas_rfc_cv_i$ei$t= i=$as_dfc_ft=''GUA la'eval exprsc_ft";_fn_s :s_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } 0]k,i"# "$ >/de:ofatd f $as_nswas:"a>&5##_d 's/^/| /' nf'eva.$sc_i$ta>&5 {d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis:r_f \`\ac_fwd':"a>&5#0]k,i"# "$ >/de:oWsiis:r_f \`\ac_fwd':"a>&2;} s "$$aWsiis 77 "C++rtr '$ anAreat =$ecu hou s See \`nfig.log'la"$amor deta_ls" "n$PATH_" 5S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: ye "a>&5#0]k,i"# "ye "a>&6S } GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$aC++rtr default ouepue=ftsn ex" >&5#0]k,i"# _ b"cto sa"$aC++rtr default ouepue=ftsn exr..o" >&6S } {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_ft"a>&5#0]k,i"# "$ c_ft"a>&6S } sc_i$ei$t=Sac_cv_i$ei$t rmr f -r a.oue=a.oue.dSYM=a.i$e nf'eva$sc_cv_i$ei$tab.oue sc_lean_ftp=\ac_clean_ftpysaveA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$asuffixao "i$ecu hou s" >&5#0]k,i"# _ b"cto sa"$asuffixao "i$ecu hou sr..o" >&6S } _r { {sc_try=\\ac_N ek" case "(($sc_try" _f *\"* | *\`* | *\\*)sc_try,i"# =\$sc_try;; *)sc_try,i"# =$sc_try;; esacs4RATsc_try,i"# ="\"\$ >/de:-{o='N e fo-n$PATH_}do$sc_try,i"# \""#0]k,i"# "$ c_try,i"# o;d}a>&5# W(4RAT\\ac_N ek") 2>&5# Wac_status=$?s_d0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}do\$? xp$ac_statusoa>&5# W'eval$ac_status xp0S }s_fn_s :s_d# If bo) `nf'eva.-xe' and `nf'eva' ar `pthAent' (well, observhou ) # catc `nf'eva.-xe'. F"$ainstancx alaoCygwin, `ls nf'eva'lwill # work f $perly (i.e.,othf ro'o `nf'eva.-xe'),swhtr_alwon't ala # `rm'. a"$asc_ftr_f nf'eva.-xe=nf'eva=nf'eva.*s_dir f "Sfc_ft"a|| ntinuefkscase Ssc_ftr_f _d*.$sc_i$ta| *.xcoffa| *.tdsa| *.da| *.pdba| *.xSYM=| *.bb=| *.bbg=| *.map=| *.inaa| *.dSYM=| *.o=| *.obj ) ;; _d*.*=)eac_cv_i$ei$t=`expr "Sfc_ft"a: '[^.]*\(\..*\)'`s break;; _d* )break;; esacsi=$as_d{r{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis:r_f \`\ac_fwd':"a>&5#0]k,i"# "$ >/de:oWsiis:r_f \`\ac_fwd':"a>&2;} s "$$aWsiis $? "'$ anAuteasuffixao "i$ecu hou s: '$ anAtrand N ek See \`nfig.log'la"$amor deta_ls" "n$PATH_" 5S } GUArmr f nf'eva nf'eva$sc_cv_i$ei$t {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_i$ei$t" >&5#0]k,i"# "$ c_cv_i$ei$t" >&6S } Armr f nf'eva.$sc_i$t EXEEXT=Sac_cv_i$ei$t sc_i$ei$t=SEXEEXT cat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ @%:@inclu- , int ma_f () {AFILE *f xpf$pef ("nf'eva.oue", "w"); returnpfWsiis (f)a|| fclose (f)a!xp0SAGS_; returnp0S } _ACEOF sc_lean_ftp=\\ac_clean_ftp nf'eva.oue" # C thae=td btr f $ductp i$ecu hou s we '$ run. If an, ei) r # td btr isobroken, or we 'ross t. {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto swhe) r=we ar 'ross to " >&5#0]k,i"# _ b"cto swhe) r=we ar 'ross to r..o" >&6S } _r 'evalFScross_to " !xpye s_fn_sucr{ {sc_try=\\ac_N ek" case "(($sc_try" _f *\"* | *\`* | *\\*)sc_try,i"# =\$sc_try;; *)sc_try,i"# =$sc_try;; esacs4RATsc_try,i"# ="\"\$ >/de:-{o='N e fo-n$PATH_}do$sc_try,i"# \""#0]k,i"# "$ c_try,i"# o;d}a>&5# W(4RAT\\ac_N ek") 2>&5# Wac_status=$?s_d0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}do\$? xp$ac_statusoa>&5# W'eval$ac_status xp0S } _r { sc_try='./nf'eva$sc_cv_i$ei$t'ucr{ {case "(($sc_try" _f *\"* | *\`* | *\\*)sc_try,i"# =\$sc_try;; *)sc_try,i"# =$sc_try;; esacs4RATsc_try,i"# ="\"\$ >/de:-{o='N e fo-n$PATH_}do$sc_try,i"# \""#0]k,i"# "$ c_try,i"# o;d}a>&5# W(4RAT\\ac_try") 2>&5# Wac_status=$?s_d0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}do\$? xp$ac_statusoa>&5# W'eval$ac_status xp0S }s_}s_fn_s s _ecross_to =nos_eAlsT _d la'evalFScross_to " = maybes_fn_s cross_to =ye _dAlsT {r{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis:r_f \`\ac_fwd':"a>&5#0]k,i"# "$ >/de:oWsiis:r_f \`\ac_fwd':"a>&2;} s "$$aWsiis $? "'$ anArunaC++rtd f $as_ns. If you meantU'obross t,buse \`--# se'. See \`nfig.log'la"$amor deta_ls" "n$PATH_" 5S } n-oraiGS_as_GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $cross_to " >&5#0]k,i"# "$cross_to " >&6S } Armr f nf'eva.$sc_i$t nf'eva$sc_cv_i$ei$tanf'eva.oue sc_lean_ftp=\ac_clean_ftpysaveA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$asuffixao "objece=ftp" >&5#0]k,i"# _ b"cto sa"$asuffixao "objece=ftpr..o" >&6S } _r 'evalFS{ac_cv_obje$tfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {AGS_; returnp0S } _ACEOF rmr f nf'eva.o nf'eva.obj _r { {sc_try=\\ac_t" case "(($sc_try" _f *\"* | *\`* | *\\*)sc_try,i"# =\$sc_try;; *)sc_try,i"# =$sc_try;; esacs4RATsc_try,i"# ="\"\$ >/de:-{o='N e fo-n$PATH_}do$sc_try,i"# \""#0]k,i"# "$ c_try,i"# o;d}a>&5# W(4RAT\\ac_t") 2>&5# Wac_status=$?s_d0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}do\$? xp$ac_statusoa>&5# W'eval$ac_status xp0S }s_fn_s :s_da"$asc_ftr_f nf'eva.o nf'eva.obj=nf'eva.*s_dir f "Sfc_ft"a|| ntinue;fkscase Ssc_ftr_f _d*.$sc_i$ta| *.xcoffa| *.tdsa| *.da| *.pdba| *.xSYM=| *.bb=| *.bbg=| *.map=| *.inaa| *.dSYM=) ;; _d*)eac_cv_obje$t=`expr "Sfc_ft"a: '.*\.\(.*\)'`s break;; esacsi=$as_d0]k,i"# "$ >/de:ofatd f $as_nswas:"a>&5##_d 's/^/| /' nf'eva.$sc_i$ta>&5 {d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis:r_f \`\ac_fwd':"a>&5#0]k,i"# "$ >/de:oWsiis:r_f \`\ac_fwd':"a>&2;} s "$$aWsiis $? "'$ anAuteasuffixao "objece=ftp: '$ anAt See \`nfig.log'la"$amor deta_ls" "n$PATH_" 5S } GUArmr f nf'eva.$ac_cv_obje$t nf'eva.$sc_i$t GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_obje$t" >&5#0]k,i"# "$ c_cv_obje$t" >&6S } OBJEXT=Sac_cv_obje$t sc_obje$t=$OBJEXT {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto swhe) r=we ar usto std b],[AC++rtroa>&5#0]k,i"# _ b"cto swhe) r=we ar usto std b],[AC++rtrr..o" >&6S } _r 'evalFS{ac_cv_cxx_tr_gnufn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {A#ifndef __],[C__s "# ke me #eo#ifAGS_; returnp0S } _ACEOF _r fc_fn_cxx_try,tr"n$PATH_"s_fn_s :s_dic_tr_gnu=ye i=$as_dic_tr_gnu=nosGUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t ac_cv_cxx_tr_gnu=$ic_tr_gnu GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_cxx_tr_gnu" >&5#0]k,i"# "$ c_cv_cxx_tr_gnu" >&6S } _r 'eval$ic_tr_gnu xpye s_fn_sucrGXX=ye i=$as_dGXX=TPATac_'eva_CXXFLAGS=${CXXFLAGSfn_r Tac_save_CXXFLAGS=$CXXFLAGS {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto swhe) r=$CXX accepts - " >&5#0]k,i"# _ b"cto swhe) r=$CXX accepts - r..o" >&6S } _r 'evalFS{ac_cv_f $a_cxx_gfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dac_save_cxx_wWsiis_flag=$ic_xx_wWsiis_flag _eac_cxx_wWsiis_flag=ye _ac_cv_f $a_cxx_g=nos_e CXXFLAGS="-a" s_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {AGS_; returnp0S } _ACEOF _r fc_fn_cxx_try,tr"n$PATH_"s_fn_s :s_dic_v_f $a_cxx_g=ye i=$as_dCXXFLAGS=""s cat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {AGS_; returnp0S } _ACEOF _r fc_fn_cxx_try,tr"n$PATH_"s_fn_s :s_d i=$as_dic_xx_wWsiis_flag=$ic_save_cxx_wWsiis_flag CXXFLAGS="-a" cat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {AGS_; returnp0S } _ACEOF _r fc_fn_cxx_try,tr"n$PATH_"s_fn_s :s_dic_v_f $a_cxx_g=ye GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t _eac_cxx_wWsiis_flag=$ic_save_cxx_wWsiis_flag GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_f $a_cxx_g" >&5#0]k,i"# "$ c_cv_f $a_cxx_g" >&6S } _r 'evalFSac_'eva_CXXFLAGSf xpn_rs_fn_ss_dCXXFLAGS=$ac_save_CXXFLAGS Al_r 'eval$ c_cv_f $a_cxx_g xpye s_fn_sucr_r 'evalFSGXX" xpye s_fn_sucrs CXXFLAGS="-a -O2" s_AlsT _dCXXFLAGS="-a" s_PATtl$as_d la'evalFSGXX" xpye s_fn_sucrs CXXFLAGS="-O2" s_AlsT _dCXXFLAGS=GS_as_GUAac_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu ac_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu la'eval \\\\ac_tool_f efix"dy) as_e# Extracttd b_Arvalwordro ""${ac_tool_f efix}gcc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy ${ac_tool_f efix}gcc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_CCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\CC"dy) as_eac_cv_f $a_CC=\\CC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_CC=\\{ac_tool_f efix}gcc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATCC=rac_cv_f $a_CC la'eval \\\\CC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $CCoa>&5#0]k,i"# "$CCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsGUA la'eval exprsc_cv_f $a_CC"dy) as_eac_ct_CC=\CCs_e# Extracttd b_Arvalwordro ""gcc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy gcc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_ac_ct_CCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\ac_ct_CC"dy) as_eac_cv_f $a_ac_ct_CC=\\ac_ct_CC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_ac_ct_CC=\gcc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATac_ct_CC=\ac_cv_f $a_ac_ct_CC la'eval \\\\ac_ct_CC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_ct_CC" >&5#0]k,i"# "$ c_ct_CCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGor la'eval${$ c_ct_CC" xpxdy) as_e CC=""s AlsT _dcase Scross_to :\sc_tool_warned _f ye :) {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&5#0]k,i"# "$ >/de:oWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&2;} sc_tool_warned=ye ;; esacs_e CC=\ac_ct_CC s_PATtl$as_dCC=\\ac_cv_f $a_CC" GUAG la'eval exprCC"dy) as_e la'eval \\\\ac_tool_f efix"dy) as_e_e# Extracttd b_Arvalwordro ""${ac_tool_f efix}cc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy ${ac_tool_f efix}cc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_CCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\CC"dy) as_eac_cv_f $a_CC=\\CC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_CC=\\{ac_tool_f efix}cc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATCC=rac_cv_f $a_CC la'eval \\\\CC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $CCoa>&5#0]k,i"# "$CCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsS_as_GUA la'eval exprCC"dy) as_e# Extracttd b_Arvalwordro ""cc",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy cc; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_CCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\CC"dy) as_eac_cv_f $a_CC=\\CC" E Lde=td busero----r-- ,__SU'eva.i=$as asc_f $a_rejeceed=nosopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _e_r 'evalFSas_ LS/$ic_word$sc_i$ec_lxtoa= "/usr/ucb/cc"dy) as_e sc_f $a_rejeceed=ye _d _dcntinuefks-oraiGS__eac_cv_f $a_CC=\cc" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# _r 'eval$ c_f $a_rejeceed xpye s_fn_sucr# We fouo# a bog M _f __SUpath,sso makeasure=we ne---buse it#sn-#_r dummy $sc_cv_f $a_CC n-#hifts_d la'eval$@%:@a!xp0Sy) as_e_e# W "# s_ a differennAtr from __SUbogus .s_e_e# Howe---,ait,hasftd bs ex basen ex, so the bog M will b "# s_sucrs #b_Arval lawe n_r CCU'objuse=td bbasen ex; us ,__SUfull ftsn exrucrs #hifts_d_eac_cv_f $a_CC=\\fs_ LS/$ic_word${1+' '}$@"sS_as_GUAPATPATCC=rac_cv_f $a_CC la'eval \\\\CC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $CCoa>&5#0]k,i"# "$CCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsGUA la'eval exprCC"dy) as_e la'eval \\\\ac_tool_f efix"dy) as_ea"$asc_f $a _f cl.i$eors_e_e# Extracttd b_Arvalwordro ""$ac_tool_f efix$ c_f $a",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy $sc_tool_f efix$sc_f $a; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_CCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\CC"dy) as_eac_cv_f $a_CC=\\CC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_CC=\\ac_tool_f efix$ c_f $a" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATCC=rac_cv_f $a_CC la'eval \\\\CC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $CCoa>&5#0]k,i"# "$CCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGs W 'eval \\\\CC"as_rbreak_orGUA la'eval exprCC"dy) as_eac_ct_CC=\CCs_ea"$asc_f $a _f cl.i$ee fks# Extracttd b_Arvalwordro ""$sc_f $a",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy $sc_f $a; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_ac_ct_CCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\ac_ct_CC"dy) as_eac_cv_f $a_ac_ct_CC=\\ac_ct_CC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_ac_ct_CC=\\ac_f $a" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATac_ct_CC=\ac_cv_f $a_ac_ct_CC la'eval \\\\ac_ct_CC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_ct_CC" >&5#0]k,i"# "$ c_ct_CCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAG n-'eval \\\\ c_ct_CC"as_rbreak_Gor la'eval${$ c_ct_CC" xpxdy) as_e CC=""s AlsT _dcase Scross_to :\sc_tool_warned _f ye :) {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&5#0]k,i"# "$ >/de:oWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&2;} sc_tool_warned=ye ;; esacs_e CC=\ac_ct_CC s_PATGUAGGUAG 'eval exprCC"as_r{d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis:r_f \`\ac_fwd':"a>&5#0]k,i"# "$ >/de:oWsiis:r_f \`\ac_fwd':"a>&2;} s "$$aWsiis $? "no accepthou CAtr fouo# _f \$las-sSee \`nfig.log'la"$amor deta_ls" "n$PATH_" 5S } A# Prov-- ,soex ina"$matf M aboue=td btr.#0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}docto sa"$aCrtr ---sf M"a>&5##_r X $ac_ct sc_tr=$2 a"$asc_optf M _f -----sf Mr-v -V -q---sf M{{sc_try=\\ac_ctr $sc_optf M >&5" case "(($sc_try" _f *\"* | *\`* | *\\*)sc_try,i"# =\$sc_try;; *)sc_try,i"# =$sc_try;; esacs4RATsc_try,i"# ="\"\$ >/de:-{o='N e fo-n$PATH_}do$sc_try,i"# \""#0]k,i"# "$ c_try,i"# o;d}a>&5# W(4RAT\\ac_ctr $sc_optf M >&5") 2>nf'eva.--rs_eac_status=$?s_d la'eval s nf'eva.--rdy) as_e sed '10a\ r..orevalo "std--r ouepue=deleted r..s_e 10q' nf'eva.--r >nf'eva.--1 _dcat nf'eva.--1a>&5# WPATn-rmr f nf'eva.--1anf'eva.--rs_e0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}do\$? xp$ac_statusoa>&5# W'eval$ac_status xp0S } {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto swhe) r=we ar usto std b],[ACrtroa>&5#0]k,i"# _ b"cto swhe) r=we ar usto std b],[ACrtrr..o" >&6S } _r 'evalFS{ac_cv_c_tr_gnufn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {A#ifndef __],[C__s "# ke me #eo#ifAGS_; returnp0S } _ACEOF _r fc_fn_c_try,tr"n$PATH_"s_fn_s :s_dic_tr_gnu=ye i=$as_dic_tr_gnu=nosGUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t ac_cv_c_tr_gnu=$ic_tr_gnu GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_c_tr_gnu" >&5#0]k,i"# "$ c_cv_c_tr_gnu" >&6S } _r 'eval$ic_tr_gnu xpye s_fn_sucrGCC=ye i=$as_dGCC=TPATac_'eva_CFLAGS=${CFLAGSfn_r Tac_save_CFLAGS=$CFLAGS {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto swhe) r=$CC accepts - " >&5#0]k,i"# _ b"cto swhe) r=$CC accepts - r..o" >&6S } _r 'evalFS{ac_cv_f $a_cc_gfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dac_save_c_wWsiis_flag=$ic__wWsiis_flag _eac_c_wWsiis_flag=ye _ac_cv_f $a_cc_g=nos_e CFLAGS="-a" s_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {AGS_; returnp0S } _ACEOF _r fc_fn_c_try,tr"n$PATH_"s_fn_s :s_dic_v_f $a_cc_g=ye i=$as_dCFLAGS=""s cat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {AGS_; returnp0S } _ACEOF _r fc_fn_c_try,tr"n$PATH_"s_fn_s :s_d i=$as_dic__wWsiis_flag=$ic_save_c_wWsiis_flag CFLAGS="-a" cat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ int ma_f () {AGS_; returnp0S } _ACEOF _r fc_fn_c_try,tr"n$PATH_"s_fn_s :s_dic_v_f $a_cc_g=ye GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t _eac_c_wWsiis_flag=$ic_save_c_wWsiis_flag GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_f $a_cc_g" >&5#0]k,i"# "$ c_cv_f $a_cc_g" >&6S } _r 'evalFSac_'eva_CFLAGSf xpn_rs_fn_ss_dCFLAGS=$ac_save_CFLAGS Al_r 'eval$ c_cv_f $a_cc_g xpye s_fn_sucr_r 'evalFSGCC" xpye s_fn_sucrs CFLAGS="-a -O2" s_AlsT _dCFLAGS="-a" s_PATtl$as_d la'evalFSGCC" xpye s_fn_sucrs CFLAGS="-O2" s_AlsT _dCFLAGS= S_as_GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$CC optf M to accept ISO C89" >&5#0]k,i"# _ b"cto sa"$a$CC optf M to accept ISO C89r..o" >&6S } _r 'evalFS{ac_cv_f $a_cc_c89fn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dac_cv_f $a_cc_c89=nosoc_save_CC=\CCscat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ #inclu- , #inclu- , #inclu- , #inclu- , /* Movalo "td b_ollowto stevas ar stol_s from RCS 5.7's src/nf.sh. */ struct bur { _ft x;d}sAFILE * (*rcs$pef) (struct bur *, struct stat *, _ft); static har *e (p, _) "#ar **p; _d _ft i; {A returnpp[i]S } static har *f (har * (*g) (har **, _ft), "#ar **p, r..) {A "#ar *s; va'N valv; va'start (v,p); s xpg (p, va'arg (v,_ft)); va'eo# (v); returnpsS } /* OSF 4.0 Caq cc isosoex s"$tro "alm se-ANSI by default. It,has _functf M f $totypesrand stuff, but" anA'\xHH' hex "#aract ronstants.s_e These don't f $v ke n =siis una"$tunately,ainstead ar stntly treat d _eas 'x'. Td b_ollowto sinductp n =siis, untill std isoadded 'obget _ef $per ANSI modt. Curiously '\x00'!='x'"always tp oue=true,ra"$assucrsarray sze,ae=least. It's nectpsaryU'obwrite '\x00'==0 'obgetosoexthto ucrsthae's true ofly alao std. */ _ft osf4_cc_array ['\x00' =xp0 ? 1 : -1]S /* IBMACr6ra"$aAIX isoalm se-ANSI by default, but"inAreplactp macro paraexters _ins-- ,strto srand "#aract ronstants. */ #def e FOO(x) 'x' _ft xlc6_cc_array[FOO(a) =xp'x'"? 1 : -1]S _ft 'eval(_ft i, douou x); struct s1 {_ft (*f)l(_ft a);}; struct s2 {_ft (*f)l(douou a);}; _ft pairn exsl(_ft, "#ar **, FILE *(*)(struct bur *, struct stat *, _ft), _ft, _ft); _ft argc; "#ar **argv; int ma_f () {Areturnpf (e,rargv, 0)a!xpargv[0] a|| pf (e,rargv, 1)a!xpargv[1]S S_; returnp0S } _ACEOF a"$asc_arg _f '' -qlanglvl=i$tc89 -qlanglvl=ans-l std \ -Atr"-Aa -D_HPUX_SOURCE"r"-Xc -D__EXTENSIONS__"se fksCC=\\ac_save_CCl$ c_arg"s_d lafc_fn_c_try,tr"n$PATH_"s_fn_s :s_dic_v_f $a_cc_c89=$ c_arg GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t# W'eval${$ c_cv_f $a_cc_c89" !xp"xno"as_rbreak_rmr f nf'eva.$sc_i$t CC=\ac_save_CC _GUA# AC_CACHE_VAL case "{$ c_cv_f $a_cc_c89" _f x) {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: nonef eeded"a>&5#0]k,i"# "nonef eeded"a>&6S } ;; xno) {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: unsupp"$ted"a>&5#0]k,i"# "unsupp"$ted"a>&6S } ;; *)s_e CC="$CCl$ c_cv_f $a_cc_c89" {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ c_cv_f $a_cc_c89" >&5#0]k,i"# "$ c_cv_f $a_cc_c89" >&6S } ;; esacs la'eval${$ c_cv_f $a_cc_c89" !xpxnos_fn_s :s_dGGUAGac_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu Gac_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto show 'obrunatd bCAf ef $ctpsoroa>&5#0]k,i"# _ b"cto show 'obrunatd bCAf ef $ctpsorr..o" >&6S } # On Suns,osoextiexsl$CPPrn exsla directory. la'eval \\\\CPP" s_r'eval-d\\\CPP"s_fn_ss_dCPP=GUA la'eval exprCPP"s_fn_ss_d_r 'evalFS{ac_cv_f $a_CPPfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d_e_e# Douou quo'ev becaus ,CPPrneeds to b expand d _esa"$aCPPri\\\\CC -E"r"\CC -E -traditf Mal-cpp"r"/lib/cpp" _ess_e_e sc_f ef $c_ok=fa=$asa"$asc_c_f ef $c_warn_flag _f '' ytpse fks# Us_ a headtr ftrthae=tp alaogcc,sso nfigurto glibcfks# alaoa freshscross-tr worksrfks# Pthf ro to d_r __STDC__ isodef e d,ssincefks# exivas ev_s os freestandto strsrfks# Onatd bNeXT, cc -E runs=td b- ,__rough=td btr's parser,fks# anAjuse=tdrough=cpp.o"Syntax =siis" iso re 'obatc '_isocase.s_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ @%:@ifdef __STDC__ @%:@ inclu- , @%:@i=$as@%:@ inclu- , @%:@io#ifA e_e Syntax =siis _ACEOF _r fc_fn_c_try,ppr"n$PATH_"s_fn_s :s_d i=$as_d# Broken:ofas RATi# _fpue.AcntinuefGUArmr f nf'eva.--r nf'eva.i nf'eva.$sc_i$t fks# OK, works saneocases. Now cswhe) r=nonexivaennAheadtrsfks# '$ b dxteceed and how.s_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ @%:@inclu- , _ACEOF _r fc_fn_c_try,ppr"n$PATH_"s_fn_s :s_d# Broken:osucctps M _fRATi# _fpue.Acntinuefi=$as_d# Passes bo) tevas. sc_f ef $c_ok=: break_GUArmr f nf'eva.--r nf'eva.i nf'eva.$sc_i$t f# Becaus ,o "`break', _AC_PREPROC_IFELSE's cleanto s- ,wasfskipped.Armr f nf'eva.i=nf'eva.--r nf'eva.$sc_i$t if $sc_f ef $c_oks_fn_s :s_dbreak_GUA _esne s _eac_cv_f $a_CPP=rCPPs_dGGUA_dCPP=$ac_cv_f $a_CPPi=$as_dac_cv_f $a_CPP=rCPPsGUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $CPP" >&5#0]k,i"# "$CPP" >&6S } sc_f ef $c_ok=fa=$asa"$asc_c_f ef $c_warn_flag _f '' ytpse fks# Us_ a headtr ftrthae=tp alaogcc,sso nfigurto glibcfks# alaoa freshscross-tr worksrfks# Pthf ro to d_r __STDC__ isodef e d,ssincefks# exivas ev_s os freestandto strsrfks# Onatd bNeXT, cc -E runs=td b- ,__rough=td btr's parser,fks# anAjuse=tdrough=cpp.o"Syntax =siis" iso re 'obatc '_isocase.s_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ @%:@ifdef __STDC__ @%:@ inclu- , @%:@i=$as@%:@ inclu- , @%:@io#ifA e_e Syntax =siis _ACEOF _r fc_fn_c_try,ppr"n$PATH_"s_fn_s :s_d i=$as_d# Broken:ofas RATi# _fpue.AcntinuefGUArmr f nf'eva.--r nf'eva.i nf'eva.$sc_i$t fks# OK, works saneocases. Now cswhe) r=nonexivaennAheadtrsfks# '$ b dxteceed and how.s_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ @%:@inclu- , _ACEOF _r fc_fn_c_try,ppr"n$PATH_"s_fn_s :s_d# Broken:osucctps M _fRATi# _fpue.Acntinuefi=$as_d# Passes bo) tevas. sc_f ef $c_ok=: break_GUArmr f nf'eva.--r nf'eva.i nf'eva.$sc_i$t f# Becaus ,o "`break', _AC_PREPROC_IFELSE's cleanto s- ,wasfskipped.Armr f nf'eva.i=nf'eva.--r nf'eva.$sc_i$t if $sc_f ef $c_oks_fn_s :s_di=$as_d{r{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis:r_f \`\ac_fwd':"a>&5#0]k,i"# "$ >/de:oWsiis:r_f \`\ac_fwd':"a>&2;} s "$$aWsiis $? "CAf ef $ctpsor \"$CPP\"ofas sanity c See \`nfig.log'la"$amor deta_ls" "n$PATH_" 5S } GUAGac_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto swhe) r=${MAKE-make}pn_rs \$(MAKE)" >&5#0]k,i"# _ b"cto swhe) r=${MAKE-make}pn_rs \$(MAKE)r..o" >&6S } #_r x=${MAKE-make} sc_make=`0]k,i"# "$2" | sed 's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` if 4RAT\'eval\"\${ac_cv_f $a_make_${ac_make}_#_rfn_r \"f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dcat >nf'eva.makea<<\_ACEOF SHELL xp/bin/sh all: @i"# '@@@%%%=$(MAKE)=@@@%%%' _ACEOF #b],[Amakeasoextiexslprtors "make[1]: Enterto r..",swhc wouldfnfus ,us. case `${MAKE-make}p f nf'eva.makea2>/dev/null` _f *@@@%%%=?*=@@@%%%*)s_e 4RATsc_cv_f $a_make_${ac_make}_#_r=ye ;; *)s_e 4RATsc_cv_f $a_make_${ac_make}_#_r=no;; esacsrmr f nf'eva.makeGUA la4RAT'eval\$sc_cv_f $a_make_${ac_make}_#_r xpye s_fn_sucr{ 0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: ye "a>&5#0]k,i"# "ye "a>&6S } SET_MAKE= i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } SET_MAKE="MAKE=${MAKE-make}" GUAG la'eval \\\\ac_tool_f efix"dy) as_e# Extracttd b_Arvalwordro ""${ac_tool_f efix}ranlib",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy ${ac_tool_f efix}ranlib; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_RAN$PBfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\RAN$PB"dy) as_eac_cv_f $a_RAN$PB=\\RAN$PB" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_RAN$PB=\\{ac_tool_f efix}ranlib" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATRAN$PB=$ac_cv_f $a_RAN$PB la'eval \\\\RAN$PB"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $RAN$PB" >&5#0]k,i"# "$RAN$PB" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGsGUA la'eval exprsc_cv_f $a_RAN$PB"dy) as_eac_ct_RAN$PB=$RAN$PBs_e# Extracttd b_Arvalwordro ""ranlib",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy ranlib; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_ac_ct_RAN$PBfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\ac_ct_RAN$PB"dy) as_eac_cv_f $a_ac_ct_RAN$PB=\\ac_ct_RAN$PB" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_ac_ct_RAN$PB=\ranlib" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATac_ct_RAN$PB=$ac_cv_f $a_ac_ct_RAN$PB la'eval \\\\ac_ct_RAN$PB"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_ct_RAN$PB" >&5#0]k,i"# "$ c_ct_RAN$PB" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGor la'eval${$ c_ct_RAN$PB" xpxdy) as_e RAN$PB=\:"s AlsT _dcase Scross_to :\sc_tool_warned _f ye :) {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&5#0]k,i"# "$ >/de:oWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&2;} sc_tool_warned=ye ;; esacs_e RAN$PB=$ac_ct_RAN$PB s_PATtl$as_dRAN$PB=\\ac_cv_f $a_RAN$PB" GUAGac_i$t=S{ac_fc_srci$t-f} sc_ct='$FC -cr$FCFLAGSr$ac_fcflags_srci$t nf'eva.$sc_i$ta>&5' sc_N ek='$FC -o nf'eva$sc_i$ei$ta$FCFLAGSr$LDFLAGS $ac_fcflags_srci$t nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_fc_tr_gnu la'eval \\\\ac_tool_f efix"dy) as_ea"$asc_f $a _f ga"$tran g95 xlf95 f95 f"$trif"$trifc efc pga"$tran pga95 lf95 ftn xlf90 f90 pga90 pghpla4pca90 g77 xlf f77 f$trpga77 cf77 f"$t77 fl32 af77 ors_e_e# Extracttd b_Arvalwordro ""$ac_tool_f efix$ c_f $a",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy $sc_tool_f efix$sc_f $a; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_FCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\FC"dy) as_eac_cv_f $a_FC="$FC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_FC=\\ac_tool_f efix$ c_f $a" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATFC=\ac_cv_f $a_FC la'eval \\\\FC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $FC" >&5#0]k,i"# "$FCoa>&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAGs W 'eval \\\\FC"as_rbreak_orGUA la'eval exprFC"dy) as_eac_ct_FC=rFCs_ea"$asc_f $a _f ga"$tran g95 xlf95 f95 f"$trif"$trifc efc pga"$tran pga95 lf95 ftn xlf90 f90 pga90 pghpla4pca90 g77 xlf f77 f$trpga77 cf77 f"$t77 fl32 af77 e fks# Extracttd b_Arvalwordro ""$sc_f $a",sso it '$ b f $as_nsn ex alaoa--s. #_r dummy $sc_f $a; ic_word=$2 {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$a$ic_word" >&5#0]k,i"# _ b"cto sa"$a$ic_wordr..o" >&6S } _r 'evalFS{ac_cv_f $a_ac_ct_FCfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval \\\\ac_ct_FC"dy) as_eac_cv_f $a_ac_ct_FC=\\ac_ct_FC" E Lde=td busero----r-- ,__SU'eva.i=$asopysave_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-se fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_r { s_dir f "Sfs_ LS/$ic_word$sc_i$ec_lxtoas_rC >/'eva_x "Sfs_ LS/$ic_word$sc_i$ec_lxto;d}s_fn_s s _eac_cv_f $a_ac_ct_FC=\\ac_f $a" s_di0]k,i"# Copyde:-{o='N e fo-n$PATH_}dofouo# Sfs_ LS/$ic_word$sc_i$ec_lxtoa>&5# W break 2-n-as_orIFS=$opysave_IFS# PATPATac_ct_FC=\ac_cv_f $a_ac_ct_FC la'eval \\\\ac_ct_FC"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_ct_FC" >&5#0]k,i"# "$ac_ct_FC" >&6S } i=$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: no"a>&5#0]k,i"# "no"a>&6S } GUAG n-'eval \\\\ c_ct_FC"as_rbreak_Gor la'eval${$ c_ct_FC" xpxdy) as_e FC=""s AlsT _dcase Scross_to :\sc_tool_warned _f ye :) {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&5#0]k,i"# "$ >/de:oWARNING: usto scross toolsf anAf efixed alao# se=triplet"a>&2;} sc_tool_warned=ye ;; esacs_e FC=\ac_ct_FC s_PATGUAGA# Prov-- ,soex ina"$matf M aboue=td btr.#0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}docto sa"$aF"$tran tr ---sf M"a>&5##_r X $ac_ct sc_tr=$2 a"$asc_optf M _f -----sf Mr-v -V -q---sf M{{sc_try=\\ac_ctr $sc_optf M >&5" case "(($sc_try" _f *\"* | *\`* | *\\*)sc_try,i"# =\$sc_try;; *)sc_try,i"# =$sc_try;; esacs4RATsc_try,i"# ="\"\$ >/de:-{o='N e fo-n$PATH_}do$sc_try,i"# \""#0]k,i"# "$ c_try,i"# o;d}a>&5# W(4RAT\\ac_ctr $sc_optf M >&5") 2>nf'eva.--rs_eac_status=$?s_d la'eval s nf'eva.--rdy) as_e sed '10a\ r..orevalo "std--r ouepue=deleted r..s_e 10q' nf'eva.--r >nf'eva.--1 _dcat nf'eva.--1a>&5# WPATn-rmr f nf'eva.--1anf'eva.--rs_e0]k,i"# "$ >/de:-{o='N e fo-n$PATH_}do\$? xp$ac_statusoa>&5# W'eval$ac_status xp0S } rmr f a.oue A# Ilawe don't us ,`.F'eas lxtensf M, __SUp ef $ctpsor isf anArunaonatd A# _fpue ft. W(Nottrthae='_isoofly needs to worksa"$a],[Atrsr)soc_save_i$t=Sac_i$t ac_i$t=F {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto swhe) r=we ar usto std b],[AF"$tran troa>&5#0]k,i"# _ b"cto swhe) r=we ar usto std b],[AF"$tran trr..o" >&6S } _r 'evalFS{ac_cv_fc_tr_gnufn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dcat > nf'eva.$sc_i$ta<<_ACEOFs_e f $as_nsma_fA#ifndef __],[C__s "# ke me #eo#ifAGS__e 4nd _ACEOF _r fc_fn_fc_try,tr"n$PATH_"s_fn_s :s_dic_tr_gnu=ye i=$as_dic_tr_gnu=nosGUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t ac_cv_fc_tr_gnu=$ic_tr_gnu GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_fc_tr_gnu" >&5#0]k,i"# "$ c_cv_fc_tr_gnu" >&6S } sc_i$t=Sac_save_i$tTac_'eva_FCFLAGS=${FCFLAGSfn_r Tac_save_FCFLAGS=$FCFLAGS FCFLAGS= {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto swhe) r=$FC accepts - " >&5#0]k,i"# _ b"cto swhe) r=$FC accepts - r..o" >&6S } _r 'evalFS{ac_cv_f $a_fc_gfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dFCFLAGS=-g cat > nf'eva.$sc_i$ta<<_ACEOFs_e f $as_nsma_fAGS__e 4nd _ACEOF _r fc_fn_fc_try,tr"n$PATH_"s_fn_s :s_dic_v_f $a_fc_g=ye i=$as_dic_v_f $a_fc_g=nosGUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_f $a_fc_g" >&5#0]k,i"# "$ c_cv_f $a_fc_g" >&6S } _r 'evalFSac_'eva_FCFLAGSf xpn_rs_fn_ss_dFCFLAGS=$ac_save_FCFLAGS Al_r 'eval$ c_cv_f $a_fc_g xpye s_fn_sucr_r 'evalFx$ c_cv_fc_tr_gnu" xpxye s_fn_sucrs FCFLAGS="-a -O2" s_AlsT _dFCFLAGS="-a" s_PATtl$as_d la'evalFx$ c_cv_fc_tr_gnu" xpxye s_fn_sucrs FCFLAGS="-O2" s_AlsT _dFCFLAGS= s_PATGUAGac_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu Gac_i$t=S{ac_fc_srci$t-f} sc_ct='$FC -cr$FCFLAGSr$ac_fcflags_srci$t nf'eva.$sc_i$ta>&5' sc_N ek='$FC -o nf'eva$sc_i$ei$ta$FCFLAGSr$LDFLAGS $ac_fcflags_srci$t nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_fc_tr_gnu {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$aF"$tran flag eeded to accept free-a"$m,sourci" >&5#0]k,i"# _ b"cto sa"$aF"$tran flag eeded to accept free-a"$m,sourcir..o" >&6S } _r 'evalFS{ac_cv_fc_freea"$mfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dac_cv_fc_freea"$m=unknown ac_fc_freea"$m_FCFLAGS_save=$FCFLAGS a"$asc_flag _f nonef-ffree-a"$m,-FRf-free -qfree -Mfree -Mfreea"$m,\ -freea"$m," f free" +sourci=free -nfix s_dirFx$ c_flag" !xpxnonefs_rFCFLAGS="$ac_fc_freea"$m_FCFLAGS_save $ c_flag"s_dcat > nf'eva.$sc_i$ta<<_ACEOFs f $as_nsfreea"$ms ! FIXME:show 'obb_dirnfus ,non-freea"$m,trs?s prtor *, 'Hello ', &s @&t@ 'world.'s 4nd _ACEOF _r fc_fn_fc_try,tr"n$PATH_"s_fn_s :s_dic_v_fc_freea"$m=$ c_flag; break_GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t rmr f nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t FCFLAGS=$ac_fc_freea"$m_FCFLAGS_save GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_fc_freea"$m" >&5#0]k,i"# "$ c_cv_fc_freea"$m" >&6S } _r 'evalFx$ c_cv_fc_freea"$m" xpxunknowndy) as_ea "$$aWsiis 77 "F"$tran doesf anAaccept free-a"$m,sourci" "n$PATH_" 5Ttl$as_d la'evalFx$ c_cv_fc_freea"$m" !xpxnones_fn_sucrs FCFLAGS="$FCFLAGSr$ac_cv_fc_freea"$m"# WPATn-_GUAac_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu ac_i$t=S{ac_fc_srci$t-f} sc_ct='$FC -cr$FCFLAGSr$ac_fcflags_srci$t nf'eva.$sc_i$ta>&5' sc_N ek='$FC -o nf'eva$sc_i$ei$ta$FCFLAGSr$LDFLAGS $ac_fcflags_srci$t nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_fc_tr_gnu {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto show 'obgetoverb s_ N ekto souepue=from $FC" >&5#0]k,i"# _ b"cto show 'obgetoverb s_ N ekto souepue=from $FCr..o" >&6S } _r 'evalFS{ac_cv_f $a_fc_vfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dcat > nf'eva.$sc_i$ta<<_ACEOFs_e f $as_nsma_fAGS__e 4nd _ACEOF _r fc_fn_fc_try,tr"n$PATH_"s_fn_s :s_dic_v_f $a_fc_v= # Try,soex optf Ms frequtntly used verb s_ ouepue a"$asc_verb _f -v -verb s_ --verb s_ -V -\#\#\#cat > nf'eva.$sc_i$ta<<_ACEOFs_e f $as_nsma_fAGS__e 4nd _ACEOF # Ctrand N ek our simplSU'eva f $as_nsby passto sa flag (argumtnt # 1 'ob'_isomacro) 'ob'_eaF"$tran tr _f ordtr 'obget # "verb s_"souepue=thae=we '$ fn_s parsesa"$a'_eaF"$tran N eker # flags.Tac_save_FCFLAGS=$FCFLAGS FCFLAGS="$FCFLAGSr$ac_verb"s4RAT"#_r x=$sc_N ek" #hifts0]k,i"# C >/de:-{o='N e fo-n$PATH_}do$*" >&5## ga"$tran 4.3souepues N eesf#_rtto sCOLLECT_GCC_OPTIONS,sCOMPILER_las-,## $PBRARY_las-;fskip allosuchf#_rtto s.Tac_fc_v_ouepue=`4RAT$sc_N ek 5>&1 2>&1 |GS_grep -v 'Drivto :' |_grep -v "^[_C >/cr_L_rttrs][_C >/cr_alnum]*="`#0]k,i"# "$ c_fc_v_ouepue" >&5#FCFLAGS=$ac_save_FCFLAGS rmr rf nf'eva* # On HP/UXa'_ere=isoa N ee N ke: "Llas-=is: /foo:/bar:/baz"swher A# /foo, /bar,rand /baz ar searchfdirectoriesfa"$a'_eaF"$tran N eker.A# Her ,=we 'hang ,__Sse in'ob-L/foob-L/barb-L/baz (and put"inA_Arva):Tac_fc_v_ouepue="`i"# $ c_fc_v_ouepue |G grep 'Llas-=is:' |G sed 's|.*Llas-=is\(: *[^ ]*\).*|\1|;s|: */|b-L/|g'` $ c_fc_v_ouepue" # FIXME:swe keep g_rtto sbirttnsby quo'ed argumtnt s_aamor general fx # thae=dxteces unbalanced quo'ev _f F$PBSashouldfbe implSmtnted # and (ugh)U'evaed atosoex poin'. case $ c_fc_v_ouepue ias_e# Ilawe ar usto sxlf fn_s replact allotd bmap alaospactp.s_e*xlftntry*)s_e ac_fc_v_ouepue=`4"# $ c_fc_v_ouepue | sed 's/,/ /g'` ;; s_e# WalaoIntelrifc, ignor td bquo'ed -mGLOB_optf Ms_strto stuff (quo'eds_e# n$PBSanfus ,us,rand td blibrariesfappear lattr _f td bouepue anyway).s_e*mGLOB_optf Ms_strto *)s_e ac_fc_v_ouepue=`4"# $ c_fc_v_ouepue | sed 's/"-mGLOB[^"]*"/ /g'` ;; s_e# P"$tland Group tr hasfsto ly- or dououy-quo'ed -cmdN ee argumtnt _e# Sto ly-quo'ed argumtnt awer rep"$tedfa"$a---sf Ms 5.2-4rand 6.0-4rfks# Dououy-quo'ed argumtnt awer rep"$tedfa"$a"PGF90/x86 Linux/x86 5.0-2".s_e*-cmdN ee\ * | *-ignor \ * | *-def\ *)s_e ac_fc_v_ouepue=`4"# $ c_fc_v_ouepue | sed "\ s/-cmdN ee *'[^']*'/ /g; s/-cmdN ee *\"[^\"]*\"/ /g s/-ignor *'[^']*'/ /g; s/-ignor *\"[^\"]*\"/ /g s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;; s_e# Ilawe ar usto sCray F"$tran fn_s delete quo'ev.s_e*cft90*)s_e ac_fc_v_ouepue=`4"# $ c_fc_v_ouepue | sed 's/"//g'` ;; esacs s_e# looksa"$a-l*rand *.aonstructs _f td bouepues_ea"$asc_arg _f $ c_fc_v_ouepue;ss_e_e case $ c_arg _f [\\/]*.ao| ?:[\\/]*.ao| -[lLRu]*)s _dic_v_f $a_fc_v=$ac_verbs _dbreak 2 ;; e 4sacs_e la'eval exprsc_cv_f $a_fc_v"dy) as_e {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: '$ anAdxterm ee how 'obobta_f N ekto sina"$matf M from $FC" >&5#0]k,i"# "$ >/de:oWARNING: '$ anAdxterm ee how 'obobta_f N ekto sina"$matf M from $FC" >&2;} PATtl$as_d{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: 'atf M fatd"a>&5#0]k,i"# "$ >/de:oWARNING: 'atf M fatd"a>&2;} PATrmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_f $a_fc_v" >&5#0]k,i"# "$ c_cv_f $a_fc_v" >&6S } {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$aF"$tran librariesfof $FC" >&5#0]k,i"# _ b"cto sa"$aF"$tran librariesfof $FCr..o" >&6S } _r 'evalFS{ac_cv_fc_libsfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval"x$FC$PBS" !xp"x"dy) as_eac_cv_fc_libs="$FC$PBS" E Lde=td busero----r-- ,__SU'eva.i=$as cat > nf'eva.$sc_i$ta<<_ACEOFs_e f $as_nsma_fAGS__e 4nd _ACEOF # Ctrand N ek our simplSU'eva f $as_nsby passto sa flag (argumtnt # 1 'ob'_isomacro) 'ob'_eaF"$tran tr _f ordtr 'obget # "verb s_"souepue=thae=we '$ fn_s parsesa"$a'_eaF"$tran N eker # flags.Tac_save_FCFLAGS=$FCFLAGS FCFLAGS="$FCFLAGSr$ac_cv_f $a_fc_v"s4RAT"#_r x=$sc_N ek" #hifts0]k,i"# C >/de:-{o='N e fo-n$PATH_}do$*" >&5## ga"$tran 4.3souepues N eesf#_rtto sCOLLECT_GCC_OPTIONS,sCOMPILER_las-,## $PBRARY_las-;fskip allosuchf#_rtto s.Tac_fc_v_ouepue=`4RAT$sc_N ek 5>&1 2>&1 |GS_grep -v 'Drivto :' |_grep -v "^[_C >/cr_L_rttrs][_C >/cr_alnum]*="`#0]k,i"# "$ c_fc_v_ouepue" >&5#FCFLAGS=$ac_save_FCFLAGS rmr rf nf'eva* # On HP/UXa'_ere=isoa N ee N ke: "Llas-=is: /foo:/bar:/baz"swher A# /foo, /bar,rand /baz ar searchfdirectoriesfa"$a'_eaF"$tran N eker.A# Her ,=we 'hang ,__Sse in'ob-L/foob-L/barb-L/baz (and put"inA_Arva):Tac_fc_v_ouepue="`i"# $ c_fc_v_ouepue |G grep 'Llas-=is:' |G sed 's|.*Llas-=is\(: *[^ ]*\).*|\1|;s|: */|b-L/|g'` $ c_fc_v_ouepue" # FIXME:swe keep g_rtto sbirttnsby quo'ed argumtnt s_aamor general fx # thae=dxteces unbalanced quo'ev _f F$PBSashouldfbe implSmtnted # and (ugh)U'evaed atosoex poin'. case $ c_fc_v_ouepue ias_e# Ilawe ar usto sxlf fn_s replact allotd bmap alaospactp.s_e*xlftntry*)s_e ac_fc_v_ouepue=`4"# $ c_fc_v_ouepue | sed 's/,/ /g'` ;; s_e# WalaoIntelrifc, ignor td bquo'ed -mGLOB_optf Ms_strto stuff (quo'eds_e# n$PBSanfus ,us,rand td blibrariesfappear lattr _f td bouepue anyway).s_e*mGLOB_optf Ms_strto *)s_e ac_fc_v_ouepue=`4"# $ c_fc_v_ouepue | sed 's/"-mGLOB[^"]*"/ /g'` ;; s_e# P"$tland Group tr hasfsto ly- or dououy-quo'ed -cmdN ee argumtnt _e# Sto ly-quo'ed argumtnt awer rep"$tedfa"$a---sf Ms 5.2-4rand 6.0-4rfks# Dououy-quo'ed argumtnt awer rep"$tedfa"$a"PGF90/x86 Linux/x86 5.0-2".s_e*-cmdN ee\ * | *-ignor \ * | *-def\ *)s_e ac_fc_v_ouepue=`4"# $ c_fc_v_ouepue | sed "\ s/-cmdN ee *'[^']*'/ /g; s/-cmdN ee *\"[^\"]*\"/ /g s/-ignor *'[^']*'/ /g; s/-ignor *\"[^\"]*\"/ /g s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;; s_e# Ilawe ar usto sCray F"$tran fn_s delete quo'ev.s_e*cft90*)s_e ac_fc_v_ouepue=`4"# $ c_fc_v_ouepue | sed 's/"//g'` ;; esacs s ac_cv_fc_libs= # Save positf Mal argumtnt a(_r fny)soc_save_positf Mal="$@" #_r X $ac_fc_v_ouepue whilSU'eva $@%:@a!xp1;ss_e#hifts_d c_arg=$1 e case $ c_arg _f [\\/]*.ao| ?:[\\/]*.a) sc_i$ivas=fa=$as_ea"$asc_i _f $ c_cv_fc_libs;ss_e_e la'evalx"$ c_arg" xpx"$ c_i"dy) as_e sc_i$ivas=trues_e break_or WPATn-Gor la'evalx"$ c_i$ivas" xpxtrues_fn_s :s_d i=$as_dic_v_fc_libs="$ic_v_fc_libsl$ c_arg"sPAT ;; -bI:*) sc_i$ivas=fa=$as_ea"$asc_i _f $ c_cv_fc_libs;ss_e_e la'evalx"$ c_arg" xpx"$ c_i"dy) as_e sc_i$ivas=trues_e break_or WPATn-Gor la'evalx"$ c_i$ivas" xpxtrues_fn_s :s_d i=$as_d_r 'evalFSac_tr_gnu" xpye s_fn_sucra"$asc_N ek_opt _f $ c_arg;ss_e_eic_v_fc_libs="$ic_v_fc_libsl-XN eker$sc_N ek_opt"Tn-i=$as_dic_v_fc_libs="$ic_v_fc_libsl$ c_arg"sPATPAT ;; _e# Ignor td sesalags.T -lang* | -lcrt*.o | -lc | -lgcc* | -lSyvaem | -libmil | -littlSU\ |-LANG:=* | -LIST:* | -LNO:* | -N ek)T ;; -lkernel32)T 'evalx"$CYGWIN" !xpxye s_rfc_v_fc_libs="$ic_v_fc_libsl$ c_arg"s ;; -[LRuYz]) _e# Td sesalags,swh_s setnsby td mselves,stake n argumtnt. _e# W rem--- td bspactfbetwetnsoptf M and argumtnt and re-ittratt _e# unltps w b_And an empty arg or a newsoptf M (startto swalao ) _ecase $2 _f e "" | -*);; _e *)s c_arg="$ c_arg$2"s #hift;e#hifts #_r X $ac_arg "$@" ;; _eesacs ;; -YP,*) a"$asc_j _f `0]k,i"# "$ c_arg" | sed -e 's/-YP,/-L/;s/:/b-L/g'`;ss _e sc_i$ivas=fa=$as_ea"$asc_i _f $ c_cv_fc_libs;ss_e_e la'evalx"$ c_j" xpx"$ c_i"dy) as_e sc_i$ivas=trues_e break_or WPATn-Gor la'evalx"$ c_i$ivas" xpxtrues_fn_s :s_d i=$as_dic_arg="$ c_arg $ c_j" fc_v_fc_libs="$ic_v_fc_libsl$ c_j"sPAT ;; -[lLR]*) sc_i$ivas=fa=$as_ea"$asc_i _f $ c_cv_fc_libs;ss_e_e la'evalx"$ c_arg" xpx"$ c_i"dy) as_e sc_i$ivas=trues_e break_or WPATn-Gor la'evalx"$ c_i$ivas" xpxtrues_fn_s :s_d i=$as_dic_v_fc_libs="$ic_v_fc_libsl$ c_arg"sPAT ;; -zallextract*| -zdefaultextract)s _dic_v_fc_libs="$ic_v_fc_libsl$ c_arg"s ;; _e# Ignor e---ythto _AlsT.s_eesacs# revaor positf Mal argumtnt #_r X $ac_save_positf Mal;e#hifts # W ofly nsidtr "LD_RUN_las-"aonaSolarisfsyvaems. Ifb'_isoisfsetn,## fn_s we_ins-strthae='_e "runapath" muse=be n absolute patha(_.e."in## muse=beg_f alaoa "/"). case `(un ex -sr)a2>/dev/null` _f "SunOS 5"*)s_e _dic_ld_run_path=`0]k,i"# "$ c_fc_v_ouepue" | sed -n 's,^.*LD_RUN_las- *= *\(/[^ ]*\).*$,-R\1,p'`s_e _d'evalFx$ c_ld_run_path" !xpx s_ _r 'evalFSac_tr_gnu" xpye s_fn_sucra"$asc_N ek_opt _f $ c_ld_run_path;ss_e_eic_v_fc_libs="$ic_v_fc_libsl-XN eker$sc_N ek_opt"Tn-i=$as_dic_v_fc_libs="$ic_v_fc_libsl$ c_ld_run_path"GGUA_ddddd;; esacsfie# 'evalFx$[]_AC_LANG_PREFIX[]$PBS" xp"x" GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_fc_libs" >&5#0]k,i"# "$ c_cv_fc_libs" >&6S } FC$PBS="$ic_v_fc_libs" AGac_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu # CsarchiteceurG {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$agrep thae=handltp loo sN eesfand -i" >&5#0]k,i"# _ b"cto sa"$agrep thae=handltp loo sN eesfand -ir..o" >&6S } _r 'evalFS{ac_cv_fath_GREPfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d la'eval exprGREP"dy) as_eac_fath_GREP_fouo#=fa=$as_e# Loop,__rough=td buser's palaoand tevala"$aeofof PROGNAME-LISTs_ea "save_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-$las-_SEPARATOR/usr/xpg4/binse fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_f $a _f grep ggrep;ss_e_ea"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_e_eic_fath_GREP="Sfs_ LS/$ic_f $a$sc_i$ec_lxt"s { s_dir f "Sfc_fath_GREPoas_rC >/'eva_x "Sfc_fath_GREPo;d}a|| cntinuef# Csa"$a],[Afc_fath_GREPrand select"inA lainA sofouo#rfks# Csa"$a],[ASfc_fath_GREP case `"Sfc_fath_GREPoa-----sf Mr2>&1` _f *],[*)s_eac_cv_fath_GREP="Sfc_fath_GREPoaac_fath_GREP_fouo#=:;; *)s_eac_couot=0s_d0]k,i"# _ b0123456789 >"nf'eva.in"s whilSU: ors_e_ecat "nf'eva.in" "nf'eva.in" >"nf'eva.tmp" _esmv "nf'eva.tmp" "nf'eva.in"s _ecp "nf'eva.in" "nf'eva.nl" s_di0]k,i"# 'GREP' >> "nf'eva.nl" s_di"Sfc_fath_GREPoa-e 'GREP$'a-e '-('$ anAmatc )-' < "nf'eva.nl" >"nf'eva.oue" 2>/dev/nulla|| break_or Wdiff "nf'eva.oue" "nf'eva.nl" >/dev/nulla2>&1 || break_or Wa "$$aarilao$ac_couot + 1 s_rfc_ouot=0]k,vals_e_e la'eval$ac_couot -gt ${ac_fath_GREP_max-0}dy) as_e # Bevalon ,so far,rsave it but"keep lookto sa"$aafbetttr ne s _e_eac_cv_fath_GREP="Sfc_fath_GREPo_e_eic_fath_GREP_max=$ac_couot_or WPATn- # 10*(2^10) "#arseas _fpue setmsamor than enough _d'eval$ac_couot -gt 10as_rbreak_orn-rmr f nf'eva.in nf'eva.tmp nf'eva.nl nf'eva.oue;; esacs _e_e$ac_fath_GREP_fouo#as_rbreak 3_or WdororIFS=$opysave_IFS#_d la'eval exprac_cv_fath_GREP"dy) as_e a "$$aWsiis $? "no accepthou grep couldfbe fouo#a_f $las-$las-_SEPARATOR/usr/xpg4/bin" "n$PATH_" 5Ts_PATtl$as_dac_cv_fath_GREP=rGREPTGUAGGUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_fath_GREPoa>&5#0]k,i"# "$ c_cv_fath_GREPoa>&6S } GREP="Sfc_cv_fath_GREPo G {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$aegrep" >&5#0]k,i"# _ b"cto sa"$aegrepr..o" >&6S } _r 'evalFS{ac_cv_fath_EGREPfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d lai"# ao| rGREP */ ,a|b)'" >/dev/nulla2>&as_e_fn_s{ac_cv_fath_EGRE=" rGREP *Poi=$as_d_ed la'eval expErGREP"dy) as_eac_fathE_GREP_fouo#=fa=$as_e# Loop,__rough=td buser's palaoand tevala"$aeofof PROGNAME-LISTs_ea "save_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $las-$las-_SEPARATOR/usr/xpg4/binse fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-ora"$asc_f $a _feggrep;ss_e_ea"$asc_i$ec_lxt _f '' Sfc_=$ecu hou _lxtensf Ms_e_eic_fathE_GREP="Sfs_ LS/$ic_f $a$sc_i$ec_lxt"s { s_dir f "Sfc_fathE_GREPoas_rC >/'eva_x "Sfc_fathE_GREPo;d}a|| cntinuef# Csa"$a],[Afc_fathE_GREPrand select"inA lainA sofouo#rfks# Csa"$a],[ASfc_fathE_GREP case `"Sfc_fathE_GREPoa-----sf Mr2>&1` _f *],[*)s_eac_cv_fathE_GREP="Sfc_fathE_GREPoaac_fathE_GREP_fouo#=:;; *)s_eac_couot=0s_d0]k,i"# _ b0123456789 >"nf'eva.in"s whilSU: ors_e_ecat "nf'eva.in" "nf'eva.in" >"nf'eva.tmp" _esmv "nf'eva.tmp" "nf'eva.in"s _ecp "nf'eva.in" "nf'eva.nl" s_di0]k,i"# E'GREP' >> "nf'eva.nl" s_di"Sfc_fathE_GREPo E'GRE$-' < "nf'eva.nl" >"nf'eva.oue" 2>/dev/nulla|| break_or Wdiff "nf'eva.oue" "nf'eva.nl" >/dev/nulla2>&1 || break_or Wa "$$aarilao$ac_couot + 1 s_rfc_ouot=0]k,vals_e_e la'eval$ac_couot -gt ${ac_fathE_GREP_max-0}dy) as_e # Bevalon ,so far,rsave it but"keep lookto sa"$aafbetttr ne s _e_eac_cv_fathE_GREP="Sfc_fathE_GREP_e_eic_fathE_GREP_max=$ac_couot_or WPATn- # 10*(2^10) "#arseas _fpue setmsamor than enough _d'eval$ac_couot -gt 10as_rbreak_orn-rmr f nf'eva.in nf'eva.tmp nf'eva.nl nf'eva.oue;; esacs _e_e$ac_fathE_GREP_fouo#as_rbreak 3_or WdororIFS=$opysave_IFS#_d la'eval exprac_cv_fathE_GREP"dy) as_e a "$$aWsiis $? "no accepthou e grep couldfbe fouo#a_f $las-$las-_SEPARATOR/usr/xpg4/bin" "n$PATH_" 5Ts_PATtl$as_dac_cv_fathE_GREPpErGREk_GUA __as_GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv_fathE_GREPoa>&5#0]k,i"# "$ c_cv_fathE_GREPoa>&6S } E GREP="Sfc_cv_fathE_GREPo G {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$-ANSICa headtr fsp" >&5#0]k,i"# _ b"cto sa"$-ANSICa headtr fspr..o" >&6S } _r 'evalFS{ac_cv headt_stdcvfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ #inclu- , #inclu- , #inclu- , #inclu- ,flotat.h>; int ma_f () { S_; returnp0S } _ACEOFd lafc_fn_c_try,tr"n$PATH_"s_fn_s :s_dic_v headt_stdcg=ye i=$as_dic_v headt_stdcg=nosGUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t l_r 'eval$ c_cv headt_stdc" xpye s_fn_suc# "SunOS4.x nf'eva.$sc_i$t /* eo# nfdefs.h. */ #inclu- ,} _ACEOFd lW(4RAT\\ac_ppt nf'eva.$sc_i$5") 2&51 |GSpErGRE "memchrl" >/dev/nulla2>&es_fn_s :s_d i=$as_dic_v headt_stdcg=nosGUArmr f nf'eva* GUAG la'eval$ c_cv headt_stdc" xpye s_fn_suc# ISC 2.0.2 nf'eva.$sc_i$t /* eo# nfdefs.h. */ #inclu- ,} _ACEOFd lW(4RAT\\ac_ppt nf'eva.$sc_i$5") 2&51 |GSpErGRE " free" >/dev/nulla2>&es_fn_s :s_d i=$as_dic_v headt_stdcg=nosGUArmr f nf'eva* GUAG la'eval$ c_cv headt_stdc" xpye s_fn_suc# p/bincc#a_fIrix-4.0.5p g_s ,non-ANSIctypesomacrs# unltps usto -=ans. s_d_r 'evalFScross_tou" xpye s_fn_s :s_:6i=$as_dcat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */ #inclu- ,ctypeg.h> #inclu- , # lW(' ' & 0x0FFa) =x0x020)ef##def e ISLOWER(c) ('a-' = (c) as_(c) = 'z')ef##def e TOUPPER(c) (ISLOWER(c) ? 'A't +((c) - 'a-) :_(c))efi=$af##def e ISLOWER(c) \fA e_(('a-' = (c) as_(c) = 'i') \fA e_] a||('j-' = (c) as_(c) = 'r') \fA e_] a||('s-' = (c) as_(c) = 'z'))ef##def e TOUPPER(c) (ISLOWER(c) ? ((c) |x0x40) :_(c))efeo#ifA #def e XOR (e,*f)l((e) as_!(f)) a||(!(e) as_(f))); int ma_f () { (_ft ;sucra"$(is xp0Si' <25&6Si++)ls_e_e l(XOR$(islowe"$(i), ISLOWER$(i)) a||touppe"$(i)" !xTOUPPER$(i)) _e_ return2_; returnp0S } _ACEOFd lafc_fn_c_try"runr"n$PATH_"s_fn_s :s_d i=$as_dic_v headt_stdcg=nosGUArmr f re*. re=re.>nf'eva* gmona.ou bba.ou nf'eva$sc_i$ei$t\as_dnf'eva.$sc_obje$t nf'evabeamt nf'eva.$sc_i$tTGUAGGU_GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cv headt_stdcPoa>&5#0]k,i"# "$ c_cv headt_stdcPoa>&6S } _r 'eval$ c_cv headt_stdc" xpye s_fn_suc5#0]k,i"# $@%:#def e _STDCHEADERS 1Poa> nfdefs.* GUA # OnIRIX 5.3,sfsy/typeesfand(_ftypee.he ar nlicrtto.e a"$asc headtra_ffsy/typee.hefsy/_sta.hefstlibg.n/t_sh` afc_fn_c"cv headt_,tr"n$PATH_ "$ c headtg" C >_acHheadt_ "$ c#inclu-s_zdefaul "UA la4RAT'eval"x\$ C >_acHheadt_\g" xpx"ye "s_fn_s :s_ cat > nfdefs.ta<<_ACEOF$@%:#def e =`0]k,i"# HAVE_$asc headtg" |rC >/t__pp` 1} _ACEOF_dGGUA- e# Td_ecatyU'o loo (_ft worksarfouo#aafugr _f td HPICa Cer #----sf MHP92453-01 B.11.11.23709.GP",swhc #inorireclydotjteceef##dcl aaptf Ms N k `(_fta3[[(sizeo l(uansgrned "#a)) > xp]];'. e# Tisafugr s HPISR numbdtr8606223364.G {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sizefof loo douo-i" >&5#0]k,i"# _ b"cto sizefof loo douo-pr..o" >&6S } _r 'evalFS{ac_cvsizeo _ loo_ douo-Pfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_d lafc_fn_c"Cute_(_ftr"n$PATH_ ( loo (_ff)lsizeo l( loo douo-))" $ c_cvsizeo _ loo_ douo-" "$ c#inclu-s_zdefaul_"s_fn_s :s_d i=$as_ _r 'evalFSac_v_type_ loo_ douo-" xpye s_fn_suc s_d{r{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis:r_f \`\ac_fwd':"a>&5#0]k,i"# "$ >/de:oWsiis:r_f \`\ac_fwd':"a>&2;} s "$$aWsiis 77 ('$ an"Cute sizeo l( loo douo-) See \`nfig.log'la"$amor deta_ls" "n$PATH_" 5S }i=$as_d_e$ c_cvsizeo _ loo_ douo-t=0s_s_PATGUA_GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cvsizeo _ loo_ douo-" a>&5#0]k,i"# "$ c_cvsizeo _ loo_ douo-" a>&6S } as cat > nfdefs.ta<<_ACEOF$@%:#def e SIZCEO_LONG_DOUBLE: $ac_cvsizeo _ loo_ douo-d _ACEOF G {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$tran90$amdul'ev _ncl-sf M_flag" >&5#0]k,i"# _ b"cto sa"$tran90$amdul'ev _ncl-sf M_flapr..o" >&6S } _r 'evalFS{xc_v_90_amd_flamfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dac_i$t=S{ac_fc_srci$t-f} sc_ct='$FC -cr$FCFLAGSr$ac_fcflags_srci$t nf'eva.$sc_i$ta>&5' sc_N ek='$FC -o nf'eva$sc_i$ei$ta$FCFLAGSr$LDFLAGS $ac_fcflags_srci$t nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_fc_tr_gnu it=0 whilSU'eva\(mr ftmpdit_$i \)C -o\(mrdftmpdit_$i \)Cs=`expr $i + 1`A-mk_ LStmpdit_$i cdStmpdit_$i ccat > nf'eva.$sc_i$ta<<_ACEOFs!123456 _e_amdul'> nf'ev_amdul' _e_ cnma_s _e_subrfotf e nf'ev_rfotf e _e_write(*,'(a)') 'got "#!.'s eo#subrfotf e nf'ev_rfotf e _e_ eo#amdul'> nf'ev_amdul' d _ACEOF _r fc_fn_fc_try,tr"n$PATH_"s_fn_s :s_osGUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$tced r {xc_v_90_amd_fla=" an fouo"e a"$axc_flag _f"-Is" -Js" -Ms" -p"s_r 'evalFSxc_v_90_amd_flaS" xp an fouo" "dy) as_e xc_save_FCFLAGS="$FCFLAGP_rFCFLAGS="$xc_save_FCFLAG FS{xc_fla}tmpdit_$i"s_e_ecat > nf'eva.$sc_i$ta<<_ACEOFs!123456 _e_ f $as_n nf'ev_ f $as_ _e_fus nf'ev_amdul' _e_ all nf'ev_rfotf e _e_ eo# f $as_n nf'ev_ f $as_ _e_d _ACEOF _r fc_fn_fc_try,tr"n$PATH_"s_fn_s :s_dxc_v_90_amd_fla="${xc_fla"osGUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$t_rFCFLAGS="$xc_save_FCFLAGm"# WPA rmr LStmpdit_$i _r 'evalFSxc_v_90_amd_flaS" xp an fouo" "dy) as_ a "$$aWsiis $? unthou U'ob_And tr_flagla"$amdul'ev _ncl-sf n" "n$PATH_" 5_GUAac_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu A_GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $xc_v_90_amd_flaS"a>&5#0]k,i"# "$xc_v_90_amd_flaS"a>&6S } ad la'eval"x{fus_r f xpxye s_fn_sucrs {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto d ly ourMPIr s usauo-i" >&5#0]k,i"# _ b"cto d ly ourMPIr s usauo-pr..o" >&6S }_d_e$ c_i$t=S{ac_fc_srci$t-f} sc_ct='$FC -cr$FCFLAGSr$ac_fcflags_srci$t nf'eva.$sc_i$ta>&5' sc_N ek='$FC -o nf'eva$sc_i$ei$ta$FCFLAGSr$LDFLAGS $ac_fcflags_srci$t nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_fc_tr_gnu s_e_ecat > nf'eva.$sc_i$ta<<_ACEOFs f $as_n nf'ev_ f $s #inclu- 'f.h's allMPI_Init(iaWs)s eo# f $as_n nf'ev_ f $d _ACEOF _r fc_fn_fc_try_N ekr"n$PATH_"s_fn_s :s_,i"# #def e __MPIPoa> ./_sr/ppm_#def e.h6i=$as_ds "$$aWsiis $? "'$ anbuild PPMf alaMPIrsupep"$s N k b'_in" "n$PATH_" 5_GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t\ _e_ cnf'eva$sc_i$ei$t nf'eva.$sc_i$t_r{ 0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: ye "a>&5#0]k,i"# "ye "a>&6S } # AC_CHECK_n$P([],[MPI_Init],[d # i"# #def e __MPIPoa> ./_sr/ppm_#def e.h],d # [AC_MSG_ERROR(["'$ anbuild PPMf alaMPIrsupep"$s N k b'_i])])}_d_e$ c_i$t=c sc_cpp='$CPPr$CPPFLAGS' sc_ct='$CC -cr$CFLAGSr$CPPFLAGS nf'eva.$sc_i$ta>&5' sc_N ek='$CC -o nf'eva$sc_i$ei$ta$CFLAGSr$CPPFLAGS $LDFLAGS nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_c_tr_gnu GUA #la"$now let's_fus td Cd trU'o"c td v eoo r=w'ar usto wher A#='_iso f uarsemeanse=thae=weHAVErU'o #_r all tr_flads to,trso ,## fn sn exv eoo r(swhc #se anywa a good idea) G {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}docto sa"$Cd trv eoo p" >&5#0]k,i"# _ b"cto sa"$Cd trv eoo pr..o" >&6S } _r 'evalFS{xc_v_c_trv eoo mfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dxc_v_c_trv eoo m=unknownuc# ae:e don'tcCsa"$gcc b_Arvaustc- ,soexoe) r,trs#def e ___],[C__s fa"$a-n 'evai M _tel:__ICC,__ECC,__INTEL_sCOMPILE ibm:__xlc__,__xlC__,__IBMC__,__IBMCPP__s pals ae:__$lasCC__,__$lasSCALE__s_gn:___],[C_rsun:__SUNPRO_C,__SUNPRO_CC hp:__HP_cc,__HP_aCC dec:__DECC,__DECCXX,__DECC_VER,__DECCXX_VER bortlan:__BORLANDC__,__TURBO[C_r,ean:__sCOOC_r,ray:_CRAYC kai:__KCC lcc:__LCC__emetrowe"ks:__MWERKSC_rsgi:__sgi,sgi miScrooft:_MSC_VER wat,:__WATsCOC__epP"$tlan:__$GIs_a-n_cpp"#def ed(="`i"# a-n 'eva| cutmrd:mr 2e | sed 's/,) a||#def ed(L/g'")"s_e_ecat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */; int ma_f () { # l!($a-n_cp)s ='_iisanaWsii;e #eo#ifAGS_; returnp0S } _ACEOFd lafc_fn_c_try,tr"n$PATH_"s_fn_s :s_dxc_v_c_trv eoo m"`i"# a-n 'eva| cutmrd:mr 1`g; break_GUArmr f re=nf'eva.--r nf'eva.$sc_obje$t nf'eva.$sc_i$torA_GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $xc_v_c_trv eoo S"a>&5#0]k,i"# "$xc_v_c_trv eoo S"a>&6S } ass# Cesfa"$blibrariesfand stSUp ef $ctpto sflad A#='_is 'evaashouldfbeombirtd_r td bt #se _telM, __y# f vr-- ,__ir nown#nAmahe implSmtnaptf ad la'eval"x{$xc_v_c_trv eoo }h" !xp _tel"dy) as_e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}d"cto sa"$sqrvai M-lmp" >&5#0]k,i"# _ b"cto sa"$sqrvai M-lmpr..o" >&6S } _r 'evalFS{ac_cvbli_m_sqrvmfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dac_cvbli__saveC$PBSan$PB C$PBS=-lm tan$PB" ecat nfdefs.h - <<_ACEOF >nf'eva.$sc_i$t /* eo# nfdefs.h. */; /*O----r-- an GCC _ter Mal f totypes to voind an Wsii=#sn-Uswe 'hrdfbcauSse in mighanAmatcr td returntypeso fa GCC#sn-builtin,rand td M tsd argumtnt f totypeswhouldstiallapplyh. */ #fndef _cpcl-pcl- _lxturn"C"e #eo#if 'hrdsqrva();; int ma_f () { returnsqrva();;GS_; returnp0S } _ACEOFd lafc_fn_c_try_N ekr"n$PATH_"s_fn_s :s_{ac_cvbli_m_sqrvg=ye i=$as_dic_vbli_m_sqrvg=nosGUArmr f re=nf'eva.--r nf'eva.$sc_obje$t\ _e_ cnf'eva$sc_i$ei$t nf'eva.$sc_i$tC$PBSadac_cvbli__saveC$PBA_GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cvbli_m_sqrv" a>&5#0]k,i"# "$ c_cvbli_m_sqrv" a>&6S } _r 'evalFx$ c_cvbli_m_sqrv" xpx"pye s_fn_s :s_ cat > nfdefs.ta<<_ACEOF$@%:#def e HAVE_C$PM 1} _ACEOF:s_C$PBS=-lm an$PB" ATGUA_GUn#nMtakesurttrthae='d blibrariesfrd bed ala F"$tra ac_i$t=S{ac_fc_srci$t-f} sc_ct='$FC -cr$FCFLAGSr$ac_fcflags_srci$t nf'eva.$sc_i$ta>&5' sc_N ek='$FC -o nf'eva$sc_i$ei$ta$FCFLAGSr$LDFLAGS $ac_fcflags_srci$t nf'eva.$sc_i$tan$PBSa>&5' sc_tr_gnu=rac_cv_fc_tr_gnu ef# Csa"$METIS hsavemetisg=noe{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}d"cto sa"$blibray_ cnma_to METIS_PartGraphRecuariv-i" >&5#0]k,i"# _ b"cto sa"$blibray_ cnma_to METIS_PartGraphRecuariv-pr..o" >&6S } _r 'evalFS{ac_cvssearc_METIS_PartGraphRecuariv-mfn_r f xpn_rs_fn_s :s_d0]k,i"# _ b"(od)o" >&6i=$as_dacfuncvssearc__saveC$PBSan$PB cat > nf'eva.$sc_i$ta<<_ACEOFs_e f $as_nsma_f allMETIS_PartGraphRecuariv- _e_ eo} _ACEOFra"$asc_Nbt _f ''metiss_r 'eval exprac_NbP"dy) as_e c_oth=" nd rquired2" s_AlsT _ c_oth=-lprac_NbT _C$PBS=-lprac_Nbe_e$acfuncvssearc__saveC$PBm"# WPATn _r fc_fn_fc_try_N ekr"n$PATH_"s_fn_s :s_{ac_cvssearc_METIS_PartGraphRecuariv-u=racothosGUArmr f re=nf'eva.--r nf'eva.$sc_obje$t\ _e_ cnf'eva$sc_i$ei$_r 'evalFS{ac_cvssearc_METIS_PartGraphRecuariv-mfn_r f xpn_rs_fn_s :s_ break_GU la'evalFS{ac_cvssearc_METIS_PartGraphRecuariv-mfn_r f xpn_rs_fn_s :s_ i=$as_dic_vssearc_METIS_PartGraphRecuariv-u=nosGUArm nf'eva.$sc_i$tC$PBSadacfuncvssearc__saveC$PBA_GUA{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dothAult: $ac_cvssearc_METIS_PartGraphRecuariv-" a>&5#0]k,i"# "$ c_cvssearc_METIS_PartGraphRecuariv-" a>&6S } scoth="$ c_cvssearc_METIS_PartGraphRecuariv-} _r 'evalFSacrye " !xnors_fn_s :s_ 'evalFSacrye " xp nd rquired2 a||C$PBS="$icrye an$PB" hsavemetisgythosGUad la'eval"x{hsavemetisr f xxnors_fn_:s_,i"# ------------------------------------------":s_,i"# # Td_METIS$blibray_#se rquiredw 'obuild PPM..o:s_,i"# #Eie) r='d blibray_#semitpto sor inorireclydbe/XN ekd.o:s_,i"# #Stopprtogr.. Plecasednowloaed a:o:s_,i"# #http://glacro.dtc.umn.edu/gkhe/metis/metis/dnowloae":s_,i"# ------------------------------------------":s_(exit 1); exit 1; i=$as_ i"# #def e __METISPoa> ./_sr/ppm_#def e.h6_GUn#n CU'o #e_rlLinu was_ eauo-ed ala- eauo--lLinuF$@%:n Cswhe) r-- eauo--lLinu was_giv-n. la'evalFS eauo-_lLinumfn_r f xpn_rs_fn_s :s_ eauo-val=$ eauo-_lLinu;_ i"# #def e __ LinuPoa> ./_sr/ppm_#def e.h6_GUnn#n CU'o #e_reti ex as_ eauo-ed ala- eauo--eti eF$@%:n Cswhe) r-- eauo--eti ex as_giv-n. la'evalFS eauo-_eti emfn_r f xpn_rs_fn_s :s_ eauo-val=$ eauo-_eti e;_ i"# #def e __ETIMEPoa> ./_sr/ppm_#def e.h6_GUnn#n CU'o #e_rvrectox as_ eauo-ed ala- eauo--vrectoF$@%:n Cswhe) r-- eauo--vrectox as_giv-n. la'evalFS eauo-_vrectomfn_r f xpn_rs_fn_s :s_ eauo-val=$ eauo-_vrecto;_ i"# #def e __VECTORPoa> ./_sr/ppm_#def e.h6_GUnn$@%:n Cswhe) r-- eauo--Amahkeisanx as_giv-n. la'evalFS eauo-_Amahkeisanmfn_r f xpn_rs_fn_s :s_ eauo-val=$ eauo-_Amahkeisan;_ i"# #def e __MATHKEISANPoa> ./_sr/ppm_#def e.h6_GUnn$@%:n Cswhe) r-- eauo--sxf90x as_giv-n. la'evalFS eauo-_sxf90mfn_r f xpn_rs_fn_s :s_ eauo-val=$ eauo-_sxf90;_ i"# #def e __SXF90Poa> ./_sr/ppm_#def e.h6_GUnn$@%:n Cswhe) r-- eauo--,rayfishpasas_giv-n. la'evalFS eauo-_,rayfishpamfn_r f xpn_rs_fn_s :s_ eauo-val=$ eauo-_,rayfishpa;_ i"# #def e __CRAYFISHPACKPoa> ./_sr/ppm_#def e.h6_GUnn$@%:n Cswhe) r-- eauo--hyprex as_giv-n. la'evalFS eauo-_hypremfn_r f xpn_rs_fn_s :s_ eauo-val=$ eauo-_hypre;_ i"# #def e __HYPREPoa> ./_sr/ppm_#def e.h6_GUnn$@%:n Cswhe) r-- eauo-- fomiScrinstx as_giv-n. la'evalFS eauo-_no_miScrinstmfn_r f xpn_rs_fn_s :s_ eauo-val=$ eauo-_no_miScrinst;_ i"# #def e __NOMICROINSTRUCPTIONPoa> ./_sr/ppm_#def e.h6_GUnn$@%:n Cswhe) r-- eauo--defugr as_giv-n. la'evalFS eauo-_defugmfn_r f xpn_rs_fn_s :s_ eauo-val=$ eauo-_defug; DEBUG=-O0 6_GUnn#nGgenertenMtak fs' sc_nfi_ fsy=\\ac_cnfi_ fsnMtak f"as cat _cn(ota<\ _ACEOFe# Tisa fe=isoasheallocripstrthae(osr td rhAuliso f nfiuer A#='evsnArunaonatrisfsyvae ,so __y# '$ bkesharedwfbetwetn nfiuer A#ocripsesfand nfiuernArus,o #e nfiuer'swsoptf M-- nfi-(o. e#Itr isf anusefulnaonoe) rfsyvaems. Ifit_ cnma_s rhAulisyoue don' e#wantyU'o"kee,syouemay rem---a"$adainAt. e e#`nfig_status oflypayesfirttptf M 'ob'_e(ot fe= ly o_giv-."in##b'_e--ireCsoptf M 'oreArun nfiuer. e e#`$ c_cvencv_oo' variauo-s ( stSa"$ruset)d allfbeo----r-dn_s fn_:e# ladsto stisa f,noe) r*ruset*#`$ c_cv_oo' allfbepassgrnedttd A#followsto valu'ev.d _ACEOF # Td_followsto ywa o fwritsto std (otmit=handltpnewsN ees _fvalu'e,d # butswe now o fnto worarfouo#rthaerisf impl,epP"$auo-s,randefficimtnt.# So ,=wek allvariauo-s cnma_to newsN eet.# Ultrixeshd stSwriteds tostd.--rfand aon'tbd rfdirecnedfdirecly,d #fand stsr td high sbir _f td (ot fe unltps w passgrM 'ob'_evaret.( e_ea"$ascvarj _f (set)da2>&1 sed -n '/^\([a-zA-Z_][a-zA-Z0-9_ ]*\=.*/\1/pg'`;s_e_ 4RATascval=\$$ascvars_e_ecase $ c4RAT _f#(s_e_*:-{o=nl}"*)s_e _ecase $ c4RrT _f#(s_e_e_*c_cv*)e {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING: 'c'_evariauo-e $ c4RrT cnma_s a newsN eC" >&5#0]k,i"# "$ >/de:oWARNING: 'c'_evariauo-e $ c4RrT cnma_s a newsN eC" >2;}2 ;; e 4sacs_e _ecase $ c4RrT _f#(s_e_e__1 IFS1 {o=nl)2 ;f#(s_e_e_BASH_ARGV1 BASH_SOURCE) `4RAT$sc4Rr=2 ;f#(s_e_e_*)e {`4RAT$sc4Rr=;$rusetT$sc4Rr;}2 ;; e 4sa2 ;; e 4sacs_e:s_(set)da2>&1 s_e_ecase $o=nl`($scbspac=' '; set)da2>&`T _f#(s_e_*:-{o=nl}$scbspac=f\ *)s_e uc# `set'n doesf an quo' norirecly, ,soaded quo'e: douo-y-quo')s_e uc# substituptf M ur_s \\\\e in'o\\,#fand sdM ur_s \\e in'o\. _e_ssed -n\ "s/'/'\\\\''/g;; _'/^\\([[_C >/cr_alnum]c_cv[[_C >/cr_alnum]\*\=\\(.]\*\/\\1='\\2'/pP_e_ ;f#(s_e_ *)s_e uc# `set'n quo'evnorireclydase rquiredwby POSIX, ,sodosf anAded quo'e. _e_ssed -n"/^[[_C >/cr_alnum]c_cv[[_C >/cr_alnum]=/pP_e_ ;; e 4sa1 s_e_sP"$ )1 s_ sed _e/^$ c_cvencv/b_ eo} = clecrs_e_ :clecrs_e_ '/^\([^= ]*\=\(.][{}].]\)$/a'evalFS\1mfn_r f xpn_ a||&/} = eo} '/^\([^= ]*\=\(.]\)$/\1=FS\1=\2}/} : eo't > n 'c'_ lWdiff $ 'c'__ f" _cn(ot >/dev/nulla2>&es_fn_s ; i=$as_d la'evalwf $ 'c'__ f""dy) as_e a'eval"x 'c'__ f" !xp">/dev/nulPoas_e_ {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}dupdatsto (otx 'c'__ f" >&5#0]k,i"# "$ >/de:updatsto (otx 'c'__ f" >6;}s_e_ecat n(ot x 'c'__ f" s_AlsT _ {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}df anupdatsto unwritauo-e(otx 'c'__ f" >&5#0]k,i"# "$ >/de:f anupdatsto unwritauo-e(otx 'c'__ f" >6;}s__PATGUArmr f n 'c'_ a'eval"xprefix f xxNONE as_prefix="$ czdefaul_prefix E Ldemtakeexprandei$ecprefix. a'eval"xei$ecprefix f xxNONE as_ei$ecprefix='${prefix}'F # ransea"$m,nfdefs.t in'oDEFSt.# Proitec agma_stasheallexpra-sf M whilS_=$ecuto Mtak fnArleet.# Proitec agma_staMtak fnomacrlexpra-sf . e e#I_r td b_Arvaued substituptf Mris_=$ecued (swhc looesfa"$omacrs#rthan##btake argumtnt),s_fn_sbrantcr o td bquo'auecptf s. Oe) wise, e# looksa"$anomacrl thae=doeon'tbtake argumtnts.Tac_crips=' :m'N e /\\$/{ N s,\\\n,, b m'N e } = clecr:clecr'/^[ ]*#[ ]*#def e[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.]\)/-D\1=\2/g an quo''/^[ ]*#[ ]*#def e[ ][ ]*\([^ ][^ ]*\[ ]*\(.]\)/-D\1=\2/g an quo'b an : quo''/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g s/\[/\\&/g s/\]/\\&/g s/\$/$$/g H : an ${ /g s^\n//g s\n// /g p } ' DEFS=`ssed -n"$Tac_crips"m,nfdefs.`" AGaclibobjs=AGacltlibobjs=AU=Fra"$asc_i _f: an$P @&tOBJS`;sr 'evalFx$ ci f xx: as_ccntinue- # . Rrem--- td _lxtensf ,#fand$Un _r lreadye_intzallo#rfkTac_crips='s/\$U\./.L/;s\.o$/L/;s\.obj$/L'rfkTacih=`0]k,i"# "$ cig" | sed"$Tac_crips"`e- #2. Prep eo#n$POBJDIRs. Wfn_s used alaoutomtak>=1.10#n$POBJDIRe- #### allfbepn_ o td fdirectoy"swher#n$POBJS _objctesfrd built.as_ds "$$fappuo#aaclibobjs " \${n$POBJDIR}"$ ci\$Ua.$sc_obje$"as_ds "$$fappuo#aacltlibobjs " \${n$POBJDIR}"$ ci"'$Ualo'Un$P @&tOBJS=$aaclibobjs LTn$POBJS=$aacltlibobjs : a{CONFIG_STATUS=./`nfig_statu } scwrite_ fa=0' sc_lecn_ fs__sav="$ c_lecn_ fs' sc_lecn_ fsy=\\ac_lecn_ fs $CONFIG_STATUS"oe{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}d"reauto $CONFIG_STATUS" >&5#0]k,i"# "$ >/de:"reauto $CONFIG_STATUS" >62;} s write_ fa=0' cat $CONFIG_STATUSta<<_SCEOF| {o=write_ fa=1 #! $SHELLn#nGgenertedwby "$ >/dt.# Run stisa fM 'ore"reau-- td curirntn nfiueaptf . # Cr bouepueproducedwby nfiuer,nusefulnra"$defuggto e#`nfiuer,n#se _#`nfiglognA lain_i$ivav.ddefug#=fa=$a\ac_s_ireC#=fa=$a\ac_s_snt#=fa=$a SHELL=\${CONFIG_SHELL-$SHELL} expp"$sSHELLn<_SCEOs cat >$CONFIG_STATUSta<\<_SCEOF| {o=write_ fa=1 ## -------------------- ## ## M4slaoIitializaptf . ## ## -------------------- ## # B$amor Bour_d baptuo-dDUALC_SC=1; expp"$sDUALC_SC #la"$MKBSas la'eval-n"${ZSH_VERSIONmfn_r fas_(emu latSas)" >/dev/nulla2>&es_fn_s :s_emu latSas:s_NULLCMD=:e- #Pre-4.2$a---sf Msof Zs.n do wod sp-litto sn a{1+ "$@}",swhce- #is| cnrsaryU'o ourusages. Disthou Utisa eauuer. s_dliase-g 'a{1+ "$@}'=' "$@'s_ st_optNO_mGLOBSUBST6i=$as_dcase `pn_ -or)a2>/dev/null` _ $@%:(s_*_posx*)e:s_e_sn_ -o posx_ ;f$@%:(s_*)e:s_e_dd;; esacsf" AGo=nl=' ' expp"$sGo=nl.# Printsto sa loo _strto crassraSolaris7 R/usr/binprintf. 0]k,i"#='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' 0]k,i"#=#0]k,i"##0]k,i"##0]k,i"##0]k,i"##0]k,i"# 0]k,i"#=#0]k,i"##0]k,i"##0]k,i"##0]k,i"##0]k,i"##0]k,i"# #Prefe"$ankshd heallbuiltin,o---d an xter Mal fintf f $as_naonaSolari,d # buts al.ou wastto sa"oesfa"$basSa"$zsh. la'eval expBASH_VERSION$ZSH_VERSION"t\ _e_as_( 'evalX` fint - r--{r0]k,i"#` " xpXr0]k,i"#"r)a2>/dev/nul"dy) as_ a ,i"#=' fint - r--'as_ a ,i"#_n=' fint - nr--'aele l( 'evalX` fintf %s{r0]k,i"#` " xpXr0]k,i"#"r)a2>/dev/nul"dy) as_ a ,i"#=' fintf %s\n'as_ a ,i"#_n=' fintf %s'd i=$as_ _r 'evalX`(R/usrucb/,i"# l-n-n{r0]k,i"#r)a2>/dev/null " xpX-n{r0]k,i"#P"dy) as_e a ,i"#_body='`4RATR/usrucb/,i"# l-n"$1 $o=nl"'as_e a ,i"#_n='R/usrucb/,i"# l-'" s_AlsT _ a ,i"#_body='`4RATexpr pXr1"f: "X\\(.]\*\"'as_e a ,i"#_n_body='`4RA_e__arg=$;; e ecase $arg _f$@%:(s_s_e_ " $o=nl"]*) expr pXr_arg": "X\\(.]\*\ $o=nl"; _arg`expr pXr_arg": ".* $o=nl\\(.]\*\"` ;; e 4sa;; e xpr pXr_arg": "X\\(.]\*\g" |trmrdf" $o=nl"; e'as_e expp"$sGo=,i"#_n_bodyas_e a ,i"#_n='sS -crGo=,i"#_n_body a ,i"#'"# WPATnexpp"$sGo=,i"#_bodyas_ a ,i"#='sS -crGo=,i"#_body a ,i"#'"_GUn#nTtd buser=isolwayesrigha. la'evalFS$las-_SEPARATOmfn_r f! xpn_rs_fn_as_$las-_SEPARATO=:e- ($las='R/bi;R/bi'; F$las=$_las-;fS -c:)" >/dev/nulla2>&_as_{as_e ($las='R/bi:R/bi'; F$las=$_las-;fS -c:)" >/dev/nulla2>&_||; e $las-_SEPARATO=';'"# }6_GUnn#n_IFS # W need sspacs,stb#fand new'N e,g _fpreciselyl thae ordts. Qquoto dsn##b'_rM 'oprea-n $adaiorsM fromblma_to ab.ou sspac-stb. #(I_r<_S_$las_WALK awer czallod alaIFS1ruset,lainwhoulddisthou wod A#op-litto by f#_rtto IFS1 'o emptyvalu'.)IFS" "" $o=nl"; # _Andw"# awe ars. Llook _f td palaiIlawe cnma_fntofdirectoy"sep aapii=#ecase 0g _f$@%:((s_*:[\\/] ) a myself= 0g ;; *)_ea "save_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $lasnse fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-oWRetu rexpras_ L/$0Soas_rfsmyself= ras_ L/$00as_rbreak_orsIFS=$opysave_IFSs_e_dd;; esac # W did:f anb_Anduarselves,moeva f bthoylaweawer un ase`fSCOMMAND'c #in,swhc ecaseawe ar f an 'obbe fouo#a_f td pal.} _r 'evalFx$fsmyself f xx"dy) as_ a myself= 06_GU _r 'eva!ir f "Sfsmyself "dy) as_#0]k,i"# "$ >/yselfe:oWsiis:('$ anb_And/yself;oreArun alao n absolute fMun eC" >2ATnexit 1"_GUn#nUusetTvariauo-s =thae=wedosf anneed aAndw"hc ecuSsefugs_(e.g.` _f#opre-3.0 UWINnksh)s. Butedosf anecuSsefugs_a_fbasS2.0&es_fn "| exit 1" A#ouppressiesfay "SegSmtnaptf efaul_ messang ,__ars. 'W(' couln##brigge"$anfugr _fpdkshd5.2.14.R }"$ass4RrT _fBASH_ENV ENV MAIL MAIL$lasnsela4RAT'evax\${=0]k,vtmfn_rf xxsetT\ _as_(l(uanetT$]k,vt) a||exit 1)" >/dev/nulla2>&_as_uanetT$]k,vt a||:UPS1='$e'aPS2='>e'aPS4='+ 'F #NLS nuisanactp.LC_ALL=C expp"$sLC_ALL _LANUAGE=C expp"$sLLANUAGEnn#n D$las. (uanetT D$las)" >/dev/nulla2>&_as_uanetT D$lasUnn$@%:nas "$$aWsiisSTATUStERROR [n$PATH LOG_FD]n$@%:n----------------------------------------n$@%:nOouepue"`baseun ex@S|@0`e:oWsiis:ERROR"s tostd.--.#I_rn$PATH aAndLOG_FDe arn$@%:n f vr--d,solso"souepue=te:oWsiis toLOG_FD, refe"enctto n$PATH.nTtdn|exit ttd $@%:nocripst alaSTATUS, usto 1_r tau was 0.} s "$$aWsiis () { $opystatug=$;r 'eval$opystatu -eq 0oas_rfsystatug1_r 'evalF4P"dy) as_e a 'N e f=:-{o='N e fo"$3"} a 'N e fsystck= a 'N e fsystck=$ a 'N e fsystckas_e r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWsiis:$2C" >$4"# WPATn#0]k,i"# "$ >/de:oWsiis:$2C" >2as_ds "$$exit l$opystatu } $@%:nas "$$aWsiiUnn$@%:nas "$$netpystatu STATUSn$@%:n-----------------------n$@%:nSetT@S|@?s toSTATUS, s al.ou sa"otto.eas "$$netpystatu () { return$1 } $@%:nas "$$netpystatunn$@%:nas "$$axit STATUSn$@%:n-----------------n$@%:nExit ttdd heall alaSTATUS, ea-nT _fa "nrsp 0Soa"$asn_ -" _cltex.} s "$$axit () { sn_ +$as_ds "$$netpystatu =$1 eexit l1 } $@%:nas "$$exitnn$@%:nas "$$uanetTVARn$@%:n---------------n$@%:nPP"$auoy uanetTVAR.} s "$$uanetT () { {`4RAT1=;$rusetT1;} ;} s ruset= s "$$uanetn$@%:nas "$$fappuo#VAR#VALUEn$@%:n----------------------n$@%:nAappuo#ttddt_lxt _fVALUE o td puo#o_r td #def sitf e cnma_edt _fVAR.nTakd $@%:nadvanmgeso faay heallsoptmizaptf s =thaeallow amP"$izedt'N ea"$agowalao--- $@%:nrep rtedwfappuos,e_inteao#o_r td typicza quadeaptc$agowalapres-n $a_fnaiv-}$@%:n implSmtnaptf s.Fd lW(4RAT$]k,vt=1; 0]k,vtm=2;T'evax\$$]k,vt xx12"r)a2>/dev/nul"dy) s :s_e4RAT'as "$$fappuo#(*)s_{_e_ 4RAT$1+=\$2as_}'6i=$as_ds "$$fappuo#(*)s_{_e_ 4RAT$1=\$$1\$2as_}csfie#ds "$$fappuonn$@%:nas "$$aarilaARG...n$@%:n------------------n$@%:nPerea"$maarilmetic_ 4RAuaptf o_f td ARGus,randevaor td rhAul#a_f tdn$@%:ngl btlT@S|@$]k,vl.nTakdnadvanmgeso f healstrthae(no voindsa"oe.nTtdl argumtnt $@%:n muse=bepP"$auo- macrssT@S|@(()),randexpr.Fd lW(4RATU'eva\$(( 1 + 1)),= 2"r)a2>/dev/nul"dy) s :s_e4RAT'as "$$farila(*)s_{_e_$]k,vl=$(( $] ))as_}'6i=$as_ds "$$farila(*)s_{_e_$]k,vl=`expr p$@2 a|| 'eval? -eq 1`as_}csfie#ds "$$faril} ad lexpr a": '\(a\)'" >/dev/nulla2>&oas 'evalX`expr 00001": '.*\(...\)'l " xX00&es_fn as_ a ,xpr=,xpr6i=$as_ds ,xpr==fa=$asGUad l(baseun ex-- /)" >/dev/nulla2>&_as_ 'evalX`baseun ex-- /da2>&` " xpX/"es_fn as_ a baseun e=baseun e6i=$as_ds baseun e==fa=$asGUad l(rfs_ LS`_ Lun ex-- /`_as_ 'evalXpras_ LSo xX/)" >/dev/nulla2>&es_fn as_ a _ Lun e=_ Lun e6i=$as_ds _ Lun e==fa=$asGUa$ >/dh=`0]kbaseun ex-- "$0So||;$ds ,xprxX/"$0So: '.*/\([^/][^/]]\)/*$' \|SU\ X"$0So: 'X\(//\)$' \|SU\ X"$0So: 'X\(/\)'"\|S." 2>/dev/nulla|5#0]k,i"# X/"$0So s_e_ssed /^.*\/\([^/][^/]]\)\/*$/{) s//\1/) q) }) /^X\/\(\/\/\)$/{) s//\1/) q) }) /^X\/\(\/\).*/{) s//\1/) q) }) s/.*/./; q'`nn#nAvoinddep eosto upo_fChatrace"$Rangctp.a >/crlbettts='abc#deghijklmnopqrstuvwxyz'.a >/crLETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'.a >/crLbettts=$a >/crlbettts$a >/crLETTERS.a >/crdigits='b012345678'.a >/cr_alnu=$a >/crLbettts$a >/crdigits ECHO_C= ECHO_N= ECHO_T=P case ,i"# l-nxl` _ $@%:((((( -n *)s_ case ,i"# 'xy\c'l` _f *c*) ECHO_T=' ';; # ECHO_Terisf ngou Uabe 'hrrace"=#snxy) ECHO_C='\c' ;; *)_s_ i"# ,i"# ksh88nfugro_fAIX 6.1` > >/dev/nul; e ECHO_T=' ';; 4sa;;; *)s_ECHO_N='-n'e;; esacsArmr f n$$f n$$.exef n$$. f" la'evaldf n$$._ Les_fn as_Armr f n$$._ L/ n$$. f"i=$as_Armr f n$$._ Las_mk_ LS n$$._ L" 2>/dev/nul6_GU _r(,i"# > n$$. fr)a2>/dev/nul"dy) as__rln -sf n$$. ff n$$fa2>/dev/nul"dy) as_e a '$$n='ln -s'as_e # gr..bpue=terwe ar two got "#s:as_e # 1)"On MSYS, boila`ln -sf ff_ L',rand`ln ff_ L', fa.as_e # 2) DJGPP' <2.04 "#sfntosym'N ks;a`ln -s':"reauiesf wrappe"$_=$ecu hou.as_e # In boila cass ,=wehsav o zdefaul o `cp -p'.as_e ln -sf n$$. ff n$$._ L" 2>/dev/nul_as_ 'eva!mr f n$$.exef||; e a '$$n='cp -p'" s_A_rln n$$. ff n$$fa2>/dev/nul"dy) as_e a '$$n=ln" s_AlsT _ a '$$n='cp -p'" s_PATtl$as_da '$$n='cp -p'"TGUArmr f n$$f n$$.exef n$$._ L/ n$$. ff n$$. f"rm_ LS n$$._ L" 2>/dev/nul6nn$@%:nas "$$mk_ L_pn$@%:n-------------n$@%:n reau--"@S|@$]k_ LSoaesf fdirectoy, #inclusto pairnts__rne$ctpary.} s "$$mk_ L_pf () { Secase $o=_ LSr_f#(s_-*)_ea _ LS=/ $o=_ L;; 4saS# WRetu dexpras_ LSoa||e4RAT$s$mk_ L_pfa||{_e_$]k_ Ls=_e_ whilSUs_e_ecase $o=_ LSr_f#(s_s_e_ \'*)_ea q_ LS`#0]k,i"# "$ >_ LSoa| sed"s/'/'\\\\\\\\''/g"` ; #'(s_e_e_*)eea q_ LS $o=_ L;; e 4sa; e a _ Ls="'$ea q_ L'e $o=_ Ls"; e a _ LS`#0]k_ Lun ex-- xpras_ LSoa|;$ds ,xprxXxpras_ LSo: 'X\(.*[^/]\)//*[^/][^/]]/*$' \|SU\ X"$ras_ LSo: 'X\(//\)[^/]' \|SU\ X"$ras_ LSo: 'X\(//\)$' \|SU\ X"$ras_ LSo: 'X\(/\)'"\|S." 2>/dev/nulla|5#0]k,i"# Xxpras_ LSoas_e_ssed /^X\(.*[^/]\)\/\/*[^/][^/]]\/*$/{) s//\1/) q) }) /^X\(\/\/\)[^/].*/{) s//\1/) q) }) /^X\(\/\/\)$/{) s//\1/) q) }) /^X\(\/\).*/{) s//\1/) q) }) s/.*/./; q'`n e WRetu dexpras_ LSoas_rbreak_ooro# WRetu expras_ LsSoa||e4RAT"mk_ LS $o=_ Ls"; } a|| 'eva dexpras_ LSoa||as "$$aWsiis $? ('$ an"reau--fdirectoy"pras_ LS6nn} $@%:nas "$$mk_ L_pn_rmk_ LS-pS." 2>/dev/nul"dy) as_ a mk_ L_p='mk_ LS-pSxpras_ LS'6i=$as_ 'eva de./-pSas_rm_ LS./-pas_ a mk_ L_p==fa=$asGUad l 'eva x /d >/dev/nulla2>&es_fn as_ a f'ev_x=' 'eva x'd i=$as_ _rlst-dL /d >/dev/nulla2>&es_fn as_s_da 's_L_soptf =L" s_AlsT _ a 's_L_soptf ="# WPATn a f'ev_x='_e_ 4RATfS -c'\''n e la'evaldf"$1"es_fn a a'evaldf"$1/."; e AlsT ecase 1g _f$@%:( -*)setT"=/ 1"e; 4sa;; ecase`lst-ld'$ea 's_L_soptf 'f"$1")a2>/dev/null` _ $@%:(( ???[sx]*):;;*)=fa=$;; 4sa;WPATn- '\''Sas:s_'"TGUds ,x$ecu hou pS $o=f'ev_xnn#nSendexprctpf M 'omapsoasstrto oin'oayvalind$CPPun e.} s /t__pp=" 4RATfsed y%*$a >/crlbettts%P$a >/crLETTERS%;s%[^[_C >/cr_alnum%_%g'"nn#nSendexprctpf M 'omapsoasstrto oin'oayvalindvariauo-eun e.} s /t_sh=" 4RATfsed y%*+%pp%;s%[^[_C >/cr_alnum%_%g'"nn ,x$e 62>&a## ----------------------------------- ## ## Mma_fbody of $CONFIG_STATUSnocrips. ## ## ----------------------------------- ## <_SCEOs 'eval$opwrite_ fas xp as_chmod +x $CONFIG_STATUSna||ac=write_ fa=1 s cat >$CONFIG_STATUSta<\<_CCEOF| {c=write_ fa=1 #nSa--- td lognmessang,yU'o"keee 0grandeoro_fmeanrtofuls,randt# #repp"$sGctuRAT _epuevalu'e of CONFIG_FILES etc.e_inteao#o_r tdier #-alu'e aftttr pptf s =handtto.eac_log=" Tisa fe as_ lxtededwby PPM "$ >/d 1.2.0",swhc as ggenertedwby a],[Auto n<2.67s. nvocaitf e cmmrand'N e as :s_CONFIG_FILES = $CONFIG_FILES:s_CONFIG_HEADERS = $CONFIG_HEADERS:s_CONFIG_LINKS = $CONFIG_LINKS:s_CONFIG_COMMANDS = $CONFIG_COMMANDSATn#e 0g$@ o_f (hostun ex| uun ex-n)" 2>/dev/nullaTfsed1q` ".d _ACEOF ecase $ c_cnfi_ fsna_f*" "*)esetTxe $ c_cnfi_ fs-;fift; sc_nfi_ fsy$*e;; esacs s cat >$CONFIG_STATUSta<<_CCEOF| {c=write_ fa=1 #nFio-s =thae`nfig_status as_madbe fi=#enfi_ fsy=\\ac_cnfi_ fs".d _ACEOF ecat >$CONFIG_STATUSta<\<_CCEOF| {c=write_ fa=1 \ac_s_usage="\ \`"$ >/d'e_intzntiauies fsnrandoe) r,nfiueaptf sGcttf s fromtelmuiesfccordsto so- td curirntn nfiueaptf . Uunltpstt fs auo#aaptf s ar specifiedwfs TAGus,rallaree_intzntiauidwby zdefaul. Usage:e 0g[OPPTIO]gr..[TAG]gr. :s_-h, --help e fint Utisahelp,s_fn_sexitns_-V,oa-----sf M fint ----sf Mnumbdtrfand nfiueaptf sf#_rttos,s_fn_sexitns_____-- nfi e fint nfiueaptf ,s_fn_sexitns_-q,oa-quiet,l--snt; e dosf an fint f $altpsmessangs -d,l--defugr doon't rem---teorsary fs s_____--ireCupdate "$ >/d by r nfiueto dn# fn sn ex dittf s s_____-- f=FILE[:TEMPLATE] ; e _intzntiauir td bnfiueaptf s feFILE Cnfiueaptf s fs: $_cnfi_ fs Repp"$sfugs_so- td pamges f vr--r.".d _ACEOF cat >$CONFIG_STATUSta<<_CCEOF| {c=write_ fa=1 \ac_s__cnfi="=`0]k,i"# "$ c`nfiuer_args"e | sed 's^ //; s/[\\""\`\$]/\\\\&/g'`" \ac_s_----sf ="\\ PPM `nfig_status1.2.0 `nfiuerdwby "0",ggenertedwby a],[Auto n<2.67, l ala pptf s \\"\$\ac_s__cnfi\\" Cpyrigha (C)" 010 Free SoftwareeFfouoaptf ,sInc. Tisa`nfig_statusocripstisa ree softwarees_fn Free SoftwareeFfouoaptf giv-s# unimitedwpermitpf M 'ocpy,ddisstrbluteaeo#amdifynAt." AGacpwd='`\ac_fwd src_ LS'$src_ L' a'eval-n"\$AWKSoa||AWK=awkd _ACEOF ecat >$CONFIG_STATUSta<\<_CCEOF| {c=write_ fa=1 #nTtd zdefaul l$ivalapply_r td buser doesf anspecifyfaay f.eac_needczdefauls=:0 whilSU'eva$#f! x0nse fkecase 1g _ --*=?*)}_d_e$ csoptf =`expr pXr1"f: 'X\([^= ]*\='`n e$ csop_arg`expr pXr1"f: 'X[^= ]=\(.]\)'`n e$ cfift=:as_e ;; --*=)}_d_e$ csoptf =`expr pXr1"f: 'X\([^= ]*\='`n e$ csop_argn e$ cfift=:as_e ;; *)}_d_e$ csoptf ==$1 e e$ csop_arg$2as_ e$ cfift=fiftas_e ;; esacs ecase $ csoptf Miwnuc# Hhandtto#o_r td pptf s.as_-ireC|_--ireC|_--ireC|_--ireC|_--ireC|_--ire|_--ir|_--i)}_d_e$ c_s_ireC#: ;; ------sf M| ------sfM| ------sM| ------M| -----M| ----M| ---M| -V )as_e r0]k,i"# Cac_s_----sf "; exit ;; -- nfi | -- nf | -- n | -- | -- | -- )as_e r0]k,i"# Cac_s_ nfi"; exit ;; --defugr| --defur| --defr| --der| --dr| -d )as_e defug#: ;; -- fe| -- fe| -- fe| -- )as_e r0 cfiftas_e ecase $ csop$arg _as_e \'*)_e csop_arg`r0]k,i"# Cacsop_arSoa| sed"s/'/'\\\\\\\\''/g"`_ ;; e'')|as "$$aWsiis $? mitpto fe argumtn"2 ;; e 4sacs_s_ds "$$fappuo#CONFIG_FILES " ' Cacsop_ar'"}_d_e$ cneedczdefauls==fa=$;; --C|_--C|_ --help | --hel | -h )as_e r0]k,i"# Cac_s_usage"; exit ;; -q | -quiet | --quiet | --quie | --qui | --qu | --qT\ _| -snt | --snt | --sn | --s | --s | --s | --s)}_d_e$ c_s_snt#: ;; nuc# Tisa#se an Wsii=#sn-*)_ea "$$aWsiis $? un r gnizedt pptf :f \`1' Tary \`0 --helpg'la"$amor inea"$aptf ." ;; nuc*)_ea "$$fappuo#aac_cnfi_p_arstsr"e 1"; e $ cneedczdefauls==fa=$ ;; nuc 4sacs_fiftae:$ c`nfiuer_ lxra_args=Uad l$$ c_s_sntrs_fn_:s_,x$e 62>/dev/nul; $ c`nfiuer_ lxra_args= "$ c`nfiuer_ lxra_args --snt"osGUd _ACEOF cat >$CONFIG_STATUSta<<_CCEOF| {c=write_ fa=1 d l\$\ac_s_ireCrs_fn_:s_setTX ' SHELL' ' 0' "$ c`nfiuer_argsl\$\ac_nfiuer_ lxra_args --no-"reau----no-recuarioncs_fifta \r0]k,i"# run_to CONFIG_SHELL= SHELL \r*o" >&6 CONFIG_SHELL=' SHELL' Tnexpp"$sCONFIG_SHELL:s_,x$e "\$@"osGUd _ACEOF cat >$CONFIG_STATUSta<\<_CCEOF| {c=write_ fa=1 ,x$e 5 > nfiglog) { ,i"# e_ssed h;s/./-/g;s/^gr./$@%:$@%:nL/;sgr.$/ $@%:$@%:/;p;x;p;x'ta<<_SBOX $@%:$@%:nRun_to "$ >/dt $@%:$@%: <_SBOX e r0]k,i"# Caclog" } >&5d _ACEOF cat >$CONFIG_STATUSta<<_CCEOF| {c=write_ fa=1 _ACEOF ecat >$CONFIG_STATUSta<\<_CCEOF| {c=write_ fa=1 # Hhandtto#o_r argumtnts.ra"$asc_cnfi_p_arstSr_f aac_cnfi_p_arstsnse fkecase asc_cnfi_p_arstSr_; e"Mtak f")#CONFIG_FILES= "CONFIG_FILES Mtak f" ;; nuc*)_ea "$$aWsiis $? invalind argumtn:f \`\ac_cnfi_p_arst's" "n$PATH_" 5; esac- e#I_r td buser id:f anfus td argumtnts tospecifyf td ivaems to_intzntiaui,n##b'_n td puv4RrT _terfacer s used. SetT oflythosttrthae ar f a.c # W fus td loo ea"$mra"$ttd zdefaul passgrumtntfbcauSseo faa_ lx reelyd # izarrd bugro_fSunOS 4.1.3.ad l$$ cneedczdefaulsrs_fn_:s_a'evalFSCONFIG_FILESmfn_r f xpn_ a||CONFIG_FILES=$_cnfi_ fs _GUn#nHa---a-teorsaryfdirectoy"ra"$_cveniencrs. Mtakebir _f td build x rr A#o impytfbcauSse=terwe isf rasf sGgma_stahavto dt wher,sfand(_nAdeittf ,n##"reauto aeo#amvto fsM from/tmpe(no,soeti esnecuSse f blaemsn#nHlooksa"$ tsd rem-ale unltpsdefuggtosn#nNotttrthae='dre=isoasmaall ndow#in,swhc td fdirectoy"s all anbe clecned:d #fftttr tsd"reauf sbpuebefmor itsdun ex"#sfbwetnpassgrnedto `$tmp'. $defugr||) { tmpgn nrsp 'exitpystatug=? {WRetu exptmp2 a|| 'eva!aldf"$tmp2 a||rmr LS"$tmp2; } as_eiit lexitpystatu ' 0n nrsp ' s "$$axit 1' 1 2 13 15 } # reau--a_(secuae) tmpyfdirectoy"ra"$tmpy fs. ) { tmpg`(umask 077 as_mktealdf"./`nXXXXXX"r)a2>/dev/null`asa'eval-n"$tmp2 as_ 'evaldf"$tmp2 } r||) { tmpg./ n$$-$RANDOM{ (umask 077 as_mk_ LS"$tmp2) }oa||as "$$aWsiis $? ('$ an"reau--a-teorsaryfdirectoy"in,.n" "n$PATH_" 5n#nSeanup# fn scripsessa"$CONFIG_FILES uecptf sn#nNonneed to ggenerte# fnm_r tdrwe ar f $CONFIG_FILES. e# Tisahfappuessa"$_intzncer ala`./`nfig_statua`nfigh'. la'eval-n"$CONFIG_FILES"es_fn a:$ c` m"`i"# X" |trmX '\015'`n # Oncyg n,fbasS(noeau \"$_inr-- ``_r td buser rqu'evedt gncr. e#Bbutswe now o fntooe) rfheall tdrwe c` nwhouldbe emptyat Utisf#opo _t, ,soawe a_s us$anfasismoaesf =falback.} _r 'evalFx$ c` f xx"dy) as_ 4RATasc` m\$\'\\r\'5_GUAac_s_awkc` m"$AWK 'BEGIN { fint "a\rb" }'ta>/dev/nulla2>/dev/null} _r 'evalFSac_s_awkc` " xpaFS{ac_r}bP"dy) as_Aac_s_awkc` m'\\r' i=$as_dic_s_awkc` mx$ c` _GUn,i"# 'BEGIN ' >"$tmp/subs1.awkPoas _ACEOF { ,i"#? ('t > n$$subs.awkta<<_CCEOPoas,i"# Cacsubstk,vts"e | sed 's.*/&!$&"$ czdlim/'oas,i"# <_CCEOP } n$$subs.sS||; as "$$aWsiis $? (hould anmtake$CONFIG_STATUS" "n$PATH_" 5$ czdlim_lnu=`,i"# Cacsubstk,vts"e |grepS -c'^'`n$ czdlim='%!_!#_'"Ta"$asc_astktoy"in,=fa=$ =fa=$ =fa=$ =fa=$ =fa=$ Us. ./ n$$subs.sS||; as "$$aWsiis $? (hould anmtake$CONFIG_STATUS" "n$PATH_" 5as_diczdlim_l=`ssed -n"'s.*"$ czdlim\$/X/p" n$$subs.awkt |grepS -cX` la'eva$diczdlim_l = $$ czdlim_lnues_fn as_s_rbreak_o_A_r$asc_astktoyes_fn as_s_da "$$aWsiis $? (hould anmtake$CONFIG_STATUS" "n$PATH_" 5 s_AlsT _ c_zdlim="$$ czdlim!$$ czdlim _$$ czdlim!! m"# WPA rmr n$$subs.s s cat >$CONFIG_STATUSta<<_CCEOF| {c=write_ fa=1 cat >"\$tmp/subs1.awkPoa<\\<_CAWK as _ACEOF sed -n h'/^/S["/; s/!.*/"]=/ p g'/^[^!]*!// :repl 't rpl s/'"$$ czdlim"'$// t zdlim :nl h'/\(.\{148\}\)..*/\1/ t amor1'/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n bt rpl :amor1'/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g'/.\{148\}// t nl :zdlim h'/\(.\{148\}\)..*/\1/ t amor2'/["\\]/\\&/g; s/^/"/; s/$/"/ p b :amor2'/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g'/.\{148\}// t zdlim 'ta n$$subs.awkt | sed /^[^""]/{ N s\n// } 't >$CONFIG_STATUSt| {c=write_ fa=1 rmr n$$subs.awkd cat >$CONFIG_STATUSta<<_CCEOF| {c=write_ fa=1 _AAWK cat >"\$tmp/subs1.awkPoa<<_CAWK ase_ea"$(key"in,S) S_is$net[key] = $1 eFS = "" } { 'N e = $ 0n nfeldsf xpp-li('N e,gnfeld, "@")}_dsubstsed= 0n n = ngth(nfeld[1])}_dea"$(i,= 2; i < nfelds; i++)|{_e_key"=gnfeld[i]_e_keyn = ngth(key)}_d_e _r(S_is$net[key])|{_e_ #-alu' = S[key]_e_ #'N e = substr('N e,g1, n) ""#-alu' ""#substr('N e,gn +_keyn + 3*)s_e ucn += ngth(-alu') + ngth(nfeld[++i]*)s_e ucsubstsed= $1 e e}s_AlsT _ucn += 1 +_keyn }) fint 'N e } _AAWK _ACEOF cat >$CONFIG_STATUSta<\<_CCEOF| {c=write_ fa=1 _r sed"s/x$ c` //Poa >/dev/nul > >/dev/nulla2>&es_fn as_ sed"s/x$ c` \$//; s/x$ c` /FSac_s_awkc` /g"6i=$as_dctcsfi< "$tmp/subs1.awkPo> "$tmp/subs.awkPo\ _|||as "$$aWsiis $? (hould annetup# nfi fsMmachN ery" "n$PATH_" 5 _ACEOF #V$lasemay cauSse=rdouo-r ala,soexmtaks, ,soawe rem---soo-e (src_ L),n##${src_ L} aeo#@src_ L@ putaries fromV$lase _r rc_ Le=is".",asstrpcadsto aeon##brfarto colf s and td Mrrem--- td whoo-e'N e _rV$lasefbco esn empt #(GctuRAoylawea---an empty'N e 'opreusev-e'N e numbdts).} _r 'evalFx rc_ L f xx."dy) as_Aacvpsub='/^[ ]*V$las[ ]*=[ ]*/{ h'/// s/^/:/'/[ ]*$/:/'/:\ (src_ L):/:/g'/:\ {src_ L}:/:/g'/:@src_ L@:/:/g'/^:*// s/:*$// x'/\(=[ ]*\).*/\1/ G s\n// '/^[^=]*=[ ]*$// }'"_GUn cat >$CONFIG_STATUSta<\<_CCEOF| {c=write_ fa=1 sfie#a'eval-n"$CONFIG_FILES"nn ,4RATfstTX " :F $CONFIG_FILES _uc" fiftaTa"$asctagnse fkecase asctagSr_; :[FHLC])_e cmodv="$ ctag;_ccntinu;; 4saS# ecase ascmodv asctagSr_; :[FHL]*:*);; :L*t |:C*:*)_ea "$$aWsiis $? invalindtagS \`\actag's" "n$PATH_" 5; :[FH]-)$asctag=-:-5; :[FH]*)$asctag=`\actag:`\actag.in;; 4saS# Cacssave_IFS=$IF fksIFS::s_setTxe asctag fksIFS=$cpysave_IFS# fifta $cp f==$1 efiftaS# ecase ascmodvSr_; :L)$ascsourc==$5; :[FH])}_d_e$ c f_ _epus=_e_Ta"$ascfas_e d_e_ecase $scf a_f -)$ascf="$tmp/stdst";; e *)$# Llookra"$ttd feb_Arva _f td build x rr,s_fn_sdn# fn sourc x rr $# (_r td palaiesf an absolut)s. Ttdl absolute pala('$ anbe DOS-sty, $# fbcauSse $scf ('$ an"cnma_f`:'. #a'evalf CacfSoa|; _e_ecase $scf a_f _e_:[\\$]*)$=fa=$;; e *)$a'evalf src_ L/ CacfSoas_rscf="$src_ L/ CacfS;; e 4sa1 |; _e_ea "$$aWsiis1? ('$ anb_And _epue f:f \`\acf's" "n$PATH_" 5; e 4sacs_s_e_ecase $scf a_ \'*)_e cfg`r0]k,i"# CacfSoa| sed"s/'/'\\\\\\\\''/g"` ; 4sa; e a "$$fappuo#aac f_ _epus " ' Cacf'"}_d_ee:s_uc# Let's_stiallprextedebir s ` nfiuer',swhc _intzntiauies(i.e.,e don' s_uc# use "$ >/d), peoplenwhouldbe sur fised to read:as_e # /*a`nfighs. Ggenertedwby `nfig_statuh. */s_e_enfiuer_ _epu='Ggenertedw from'`n e r0]k,i"# *"e | sed '|^[^:]*/||;s|:[^:]*/|, |g' `'wby nfiuer.'}_d_e _r'evax Cacff" !xx-es_fn as_s_e_enfiuer_ _epu= Cacffh. $enfiuer_ _epu"; e e{r0]k,i"# C >/de:-{o='N e fo-n$PATH_}d"reauto $Cacff" >&5#0]k,i"# "$ >/de:"reauto $Cacff" >6;}s_e_WPATn- # Neubrflizr speciRAT 'hrrace"se _terprextd by f#nd(_n rplaclSmtnasstrtoe. _ecase enfiuer_ _epuT _f#(s_e_*\&*t |*\|*t |*\\* *)s_e uc$ascsedc_cn_ _epu=`r0]k,i"# enfiuer_ _epu" |; e | sed 's[\\\\&|]/\\\\&/g'` ;f#(s_e_ *$ascsedc_cn_ _epu= enfiuer_ _epu ;; e 4sacas_e ecase $ ctagSr_; e_ :-:*t |*:-)$ cat "$tmp/stdst"t\ _e__|||as "$$aWsiis $? (hould an"reau--$Cacff" "n$PATH_" 2 ;; e 4sacs_s_;; esacs $ cz LS`#0]k_ Lun ex-- xpracff" a|;$ds ,xprxXxpracff" : 'X\(.*[^/]\)//*[^/][^/]]/*$' \|SU\ X"$racff" : 'X\(//\)[^/]' \|SU\ X"$racff" : 'X\(//\)$' \|SU\ X"$racff" : 'X\(/\)'"\|S." 2>/dev/nulla|5#0]k,i"# Xxpracff" a e | sed /^X\(.*[^/]\)\/\/*[^/][^/]]\/*$/{) s//\1/) q) }) /^X\(\/\/\)[^/].*/{) s//\1/) q) }) /^X\(\/\/\)$/{) s//\1/) q) }) /^X\(\/\).*/{) s//\1/) q) }) s/.*/./; q'`n a _ LS"$$ cz L ;nas "$$mk_ L_pn $ cbuild_ LS=# ecase"$$ cz L Sr_;.)$ cz L_suffix=$asctopcbuild_ Lcsub=.$asctopcbuildcprefix= ;;; *)s_$ cz L_suffix=/`r0]k,i"# Cac_ LSoa| sed '|^\.:[\\/||'`e- #As".."kra"$eachyfdirectoy"in,$$ cz L_suffix#rfkTactopcbuild_ Lcsub=`r0]k,i"# Cac_ L_suffixSoa| sed '|/[^[\\/]|/..|g;s|/||'`e- ecase $ ctopcbuild_ LcsubSr_; "")$asctopcbuild_ Lcsub=.$asctopcbuildcprefix= ;;; *)_sasctopcbuildcprefix= $ ctopcbuild_ Lcsub/_;; esadd;; esac$ c abctopcbuild_ L=`\ac_fwc$ c abcbuild_ L=`\ac_fw Cac_ L_suffix #sfa"$backward baptuarty: $ ctopcbuild_ L= $ ctopcbuild_prefix ecase rc_ Le=_; .) # W frd buildto dn#placl.}_d_e$ csrc_ LS.}_d_e$ ctopcsrc_ LS $ ctopcbuild_ Lcsub}_d_e$ c abctopcsrc_ LS $ c_fw_;; :[\\/] | ?::[\\/] ) #Aabsoluteun e.}_d_e$ csrc_ LS rc_ L Cac_ L_suffix;}_d_e$ ctopcsrc_ LS src_ L}_d_e$ c abctopcsrc_ LS rc_ Le;;; *)_# Relaptvteun e.}_d_e$ csrc_ LS $ ctopcbuild_prefix rc_ L Cac_ L_suffix}_d_e$ ctopcsrc_ LS $ ctopcbuild_prefix rc_ L}_d_e$ c abctopcsrc_ LS $ c_fw/ rc_ Le;;; esac$ c abcsrc_ LS $ c abctopcsrc_ L Cac_ L_suffix}aS# ecase ascmodvSr_; :F*)s_#e- #CONFIG_FILE)s_#ed _ACEOF ecat >$CONFIG_STATUSta<\<_CCEOF| {c=write_ fa=1 #nI_r td telmuir doesf an now ab.ou datarootdsr,eexprandAt. e FIXME:# Tisahfckefhouldbe rrem--dsf =ew yeare aftttr2.60.eac_datarootdsr_hfck=; scdatarootdsr_seen=AGacsedcdataroot=' /datarootdsr/|{_pn q } /@data_ L@/p /@doc_ L@/p /@inea_ L@/p /@locale_ L@/p /@mran L@/p'P case ,4RAT"ssed -n\"\$\acsedcdataroot\"-$Cacff_ _epus"l` _f*datarootdsr *$ascdatarootdsr_seen=pye ;; @data_ L@*|*@doc_ L@*|*@inea_ L@*|*@locale_ L@*|*@mran L@ *)s_ {r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING:$Cacff_ _epuso #eems to_gnaor td --datarootdsrsf#_rttoC" >&5#0]k,i"# "$ >/de:oWARNING:$Cacff_ _epuso #eems to_gnaor td --datarootdsrsf#_rttoC" >2;}d _ACEOF cat >$CONFIG_STATUSta<<_CCEOF| {c=write_ fa=1 $ascdatarootdsr_hfck='s_ &@data_ L@&$data_ L&gs_ &@doc_ L@&$doc_ L&gs_ &@inea_ L@&$inea_ L&gs_ &@locale_ L@&$locale_ L&gs_ &@mran L@&$mran L&gs_ &\\\${datarootdsr}&$datarootdsr&g'e;;; esac _ACEOF #Neubrflizr V$lase fn_ `$src_ L' = `.'t.# SheallcodvSr_ nfiuer.sadmigha setT lxrasub. e FIXME:#dsoawe rRAoylaantyU'osma_nma_fUtisa eauuer?F cat >$CONFIG_STATUSta<<_CCEOF| {c=write_ fa=1 \acsedc lxraS"$$ cvpsub $ lxrasub _ACEOF cat >$CONFIG_STATUSta<\<_CCEOF| {c=write_ fa=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@enfiuer_ _epu@|$\acsedc_cn_ _epu|;tyU &@topcbuild_ L@& $ ctopcbuild_ Lcsub&;tyU &@topcbuild_prefix@& $ ctopcbuild_prefix&;tyU &@src_ L@& $ csrc_ L&;tyU &@ abcsrc_ L@& $ c abcsrc_ L&;tyU &@topcsrc_ L@& $ ctopcsrc_ L&;tyU &@ abctopcsrc_ L@& $ c abctopcsrc_ L&;tyU &@build_ L@& $ cbuild_ L&;tyU &@ abcbuild_ L@& $ c abcbuild_ L&;tyU &@ abctopcbuild_ L@& $ c abctopcbuild_ L&;tyU $ascdatarootdsr_hfck " 4RATfsed\"\$\acsedc lxra\" xpracff_ _epus" | $AWK lf tmp/subs.awkPo> tmp/.ou \ _|||as "$$aWsiis $? (hould an"reau--$Cacff" "n$PATH_" a'eval expracdatarootdsr_hfckpracdatarootdsr_seenPoas{_e cspu=` sed -n /\${datarootdsr}/p' tmp/spu"`;#a'eval-n"$e cspu2; } as{_e cspu=` sed -n /^[ ]*datarootdsr[ ]*:]=/p' tmp/spu"`;#a'evalzn"$e cspu2; } as{_r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING:$CacffT cnma_s a refe"enceM 'ob'_evariauo-e\`datarootdsr' swhc #eems tobe u#def ed. Plecasemtakesureebir s #def edC" >&5#0]k,i"# "$ >/de:oWARNING:$CacffT cnma_s a refe"enceM 'ob'_evariauo-e\`datarootdsr' swhc #eems tobe u#def ed. Plecasemtakesureebir s #def edC" >2;}d s_Armr f"$tmp/stdst"S# ecase asc fe=_ -)$ cat tmp/spu"Sas_rmmr f"$tmp/spu2;;; *)_rmmr f"$Cacff" as_mvt tmp/spu"S"$Cacff";; esad\ _|||as "$$aWsiis $? (hould an"reau--$Cacff" "n$PATH_" e;;; ; ; ; esacse #la"$asctag } s "$$axit 0 _ACEOFasc_lecn_ fsy\\ac_lecn_ fspysav a'eva$dicwrite_ fas xp ||; as "$$aWsiis $? write, fauree"reauto $CONFIG_STATUS" "n$PATH_" e#`nfiuerr s writsto so#`nfiglog, and td Mczalsa`nfig_statu. e#`nfig_status doesitsdown rfdirecsf ,#fpp eosto so#`nfiglogt.# Unea"tunau-ly, on DOSfUtisa faus,rs#`nfiglogerisftiallkept opn_:e#by nfiuer,nso#`nfig_statuswoon'tbd thou UoSwrites to_t;sits:e#souepuerisf impryfdscarded. Ssoawe,x$e _fn FDs to>/dev/nul,n##effrecsvelylclosrto configlog, sofit_ '$ bkepropnrlyl(re)opn_ed aAnd #fpp eoed to by `nfig_statuh. Wfn_sbto baU'o nfiuer,nwr A#need to mtake_fn FDsavfaauo- mgma_. la'evalFno_"reau-" !xpye dy) as_Aac_s_suc$ctpS::s_aac_cnfi__statu_args=Us_a'evalFsnt" !xpyeoas_aac_cnfi__statu_args==\\ac_cnfi__statu_args --quiet"S# ,x$e 5 >/dev/nul; SHELL $CONFIG_STATUSt\\ac_cnfi__statu_args | {c=_s_suc$ctpS=fa=$a# ,x$e 5 > nfiglog)- #Usex| ,d an&&,yU'o voindaxitto fromthe _r ala $?=g1, swhce- #whouldmtake`nfiuerr fas_r tisa#se td arva _strucptf sn l$$ c_s_suc$ctp_|||as "$$axit 1"_GU la'eval-n"$$ cun r gnizedcsops2 as_ 'eva"$ eauo-_ pptf _eCttoC" !xno dy) as_{_r0]k,i"# C >/de:-{o='N e fo-n$PATH_}doWARNING:un r gnizedt pptf sG:$Cacun r gnizedcsops2 >&5#0]k,i"# "$ >/de:oWARNING:un r gnizedt pptf sG:$Cacun r gnizedcsops2 >2;}d_GUnlibppm-1.2/outom4te. 'c'_/souepu.1000644 000765 000024 00000627700 11445666056 017217 0u_str00omtr_stff000000 000000 $@%:! r/binshn$@%:nGuctp_-alu'e la"$fsyvae-dep eomtnavariauo-s fand reau--Mtak fs.n$@%:nGgenertedwby a],[Auto n<2.67 la"$PPM 1.2.0.n$@%:nn$@%:nn$@%:nCpyrigha (C)"1992,"1993,"1994,"1995,"1996,"1998,"1999, 2000, 2001,n$@%:n2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Softwaren$@%:nFfouoaptf ,sInc. $@%:nn$@%:nn$@%:n Tisa`nfiuerrocripstisa ree softwarees_fn Free SoftwareeFfouoaptf $@%:ngiv-s# unimitedwpermitpf M 'ocpy,ddisstrbluteaeo#amdifynAt. ## -------------------- ## ## M4slaoIitializaptf . ## ## -------------------- ## # B$amor Bour_d baptuo-dDUALC_SC=1; expp"$sDUALC_SC #la"$MKBSas la'eval-n"${ZSH_VERSIONmfn_r fas_(emu latSas)" >/dev/nulla2>&es_fn_s :s_emu latSas:s_NULLCMD=:e- #Pre-4.2$a---sf Msof Zs.n do wod sp-litto sn a{1+ "$@}",swhce- #is| cnrsaryU'o ourusages. Disthou Utisa eauuer. s_dliase-g 'a{1+ "$@}'=' "$@'s_ st_optNO_mGLOBSUBST6i=$as_dcase `pn_ -or)a2>/dev/null` _ $@%:(s_*_posx*)e:s_e_sn_ -o posx_ ;f$@%:(s_*)e:s_e_dd;; esacsf" AGo=nl=' ' expp"$sGo=nl.# Printsto sa loo _strto crassraSolaris7 R/usr/binprintf. 0]k,i"#='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' 0]k,i"#=#0]k,i"##0]k,i"##0]k,i"##0]k,i"##0]k,i"# 0]k,i"#=#0]k,i"##0]k,i"##0]k,i"##0]k,i"##0]k,i"##0]k,i"# #Prefe"$ankshd heallbuiltin,o---d an xter Mal fintf f $as_naonaSolari,d # buts al.ou wastto sa"oesfa"$basSa"$zsh. la'eval expBASH_VERSION$ZSH_VERSION"t\ _e_as_( 'evalX` fint - r--{r0]k,i"#` " xpXr0]k,i"#"r)a2>/dev/nul"dy) as_ a ,i"#=' fint - r--'as_ a ,i"#_n=' fint - nr--'aele l( 'evalX` fintf %s{r0]k,i"#` " xpXr0]k,i"#"r)a2>/dev/nul"dy) as_ a ,i"#=' fintf %s\n'as_ a ,i"#_n=' fintf %s'd i=$as_ _r 'evalX`(R/usrucb/,i"# l-n-n{r0]k,i"#r)a2>/dev/null " xpX-n{r0]k,i"#P"dy) as_e a ,i"#_body='`4RATR/usrucb/,i"# l-n"$1 $o=nl"'as_e a ,i"#_n='R/usrucb/,i"# l-'" s_AlsT _ a ,i"#_body='`4RATexpr pXr1"f: "X\\(.]\*\"'as_e a ,i"#_n_body='`4RA_e__arg=$;; e ecase $arg _f$@%:(s_s_e_ " $o=nl"]*) expr pXr_arg": "X\\(.]\*\ $o=nl"; _arg`expr pXr_arg": ".* $o=nl\\(.]\*\"` ;; e 4sa;; e xpr pXr_arg": "X\\(.]\*\g" |trmrdf" $o=nl"; e'as_e expp"$sGo=,i"#_n_bodyas_e a ,i"#_n='sS -crGo=,i"#_n_body a ,i"#'"# WPATnexpp"$sGo=,i"#_bodyas_ a ,i"#='sS -crGo=,i"#_body a ,i"#'"_GUn#nTtd buser=isolwayesrigha. la'evalFS$las-_SEPARATOmfn_r f! xpn_rs_fn_as_$las-_SEPARATO=:e- ($las='R/bi;R/bi'; F$las=$_las-;fS -c:)" >/dev/nulla2>&_as_{as_e ($las='R/bi:R/bi'; F$las=$_las-;fS -c:)" >/dev/nulla2>&_||; e $las-_SEPARATO=';'"# }6_GUnn#n_IFS # W need sspacs,stb#fand new'N e,g _fpreciselyl thae ordts. Qquoto dsn##b'_rM 'oprea-n $adaiorsM fromblma_to ab.ou sspac-stb. #(I_r<_S_$las_WALK awer czallod alaIFS1ruset,lainwhoulddisthou wod A#op-litto by f#_rtto IFS1 'o emptyvalu'.)IFS" "" $o=nl"; # _Andw"# awe ars. Llook _f td palaiIlawe cnma_fntofdirectoy"sep aapii=#ecase 0g _f$@%:((s_*:[\\/] ) a myself= 0g ;; *)_ea "save_IFS=$IFS; IFS=$las-_SEPARATOR }"$ass_ LSr_f $lasnse fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn-oWRetu rexpras_ L/$0Soas_rfsmyself= ras_ L/$00as_rbreak_orsIFS=$opysave_IFSs_e_dd;; esac # W did:f anb_Anduarselves,moeva f bthoylaweawer un ase`fSCOMMAND'c #in,swhc ecaseawe ar f an 'obbe fouo#a_f td pal.} _r 'evalFx$fsmyself f xx"dy) as_ a myself= 06_GU _r 'eva!ir f "Sfsmyself "dy) as_#0]k,i"# "$ >/yselfe:oWsiis:('$ anb_And/yself;oreArun alao n absolute fMun eC" >2ATnexit 1"_GUn#nUusetTvariauo-s =thae=wedosf anneed aAndw"hc ecuSsefugs_(e.g.` _f#opre-3.0 UWINnksh)s. Butedosf anecuSsefugs_a_fbasS2.0&es_fn "| exit 1" A#ouppressiesfay "SegSmtnaptf efaul_ messang ,__ars. 'W(' couln##brigge"$anfugr _fpdkshd5.2.14.R }"$ass4RrT _fBASH_ENV ENV MAIL MAIL$lasnsela4RAT'evax\${=0]k,vtmfn_rf xxsetT\ _as_(l(uanetT$]k,vt) a||exit 1)" >/dev/nulla2>&_as_uanetT$]k,vt a||:UPS1='$e'aPS2='>e'aPS4='+ 'F #NLS nuisanactp.LC_ALL=C expp"$sLC_ALL _LANUAGE=C expp"$sLLANUAGEnn#n D$las. (uanetT D$las)" >/dev/nulla2>&_as_uanetT D$lasUn _r 'evalFxCONFIG_SHELL f xx"dy) as_ a bour_d_baptuo-=" la'eval-n\"\${ZSH_VERSIONmfn_r\ fas_(emu latSas)" >/dev/nulla2>&es_fn_s :s_emu latSas:s_NULLCMD=:e- #Pre-4.2$a---sf Msof Zs.n do wod sp-litto sn \a{1+\"\$@\@}",swhce- #is| cnrsaryU'o ourusages. Disthou Utisa eauuer. s_dliase-g '\a{1+\"\$@\@}'='\"\$@\@'s_ st_optNO_mGLOBSUBST6i=$as_dcase\ `pn_ -or)a2>/dev/nul\l` _ $@%:(s_*_posx*)e:s_e_sn_ -o posx_ ;f$@%:(s_*)e:s_e_dd;; esacsf""as_ds rqudird="as "$$ return() {_(exit \$1); }eas "$$nuc$ctp_() {_as "$$ return0; }eas "$$ fauree() {_as "$$ return1; }eas "$$retpyuc$ctp_() {_ return0; }eas "$$retp fauree() {_ return1; }e exitcodv=0' s "$$nuc$ctp_a||{ exitcodv=1; ei"# s "$$nuc$ctp_ faed.; }eas "$$ faureeas_{ exitcodv=1; ei"# s "$$ faureenuc$ceded.; }eas "$$retpyuc$ctp_a||{ exitcodv=1; ei"# s "$$retpyuc$ctp_ faed.; }eas "$$retp faureeas_{ exitcodv=1; ei"# s "$$retp faureenuc$ceded.; }ee l(_setTx; s "$$retpyuc$ctp_y as_ 'evaxf x\"\$1\ f)es_fn_s :s_6i=$as_exitcodv=1; ei"# posptf Mal aamece"seawer annsavd.csf"'evax\$exitcodvf xx0 | exit 1" $opyuggestseS" a 'N e fs1=";$opyuggestseS$$opyuggestse-n$PATH;$opyuggestseS$$opyuggestse" a 'N e fs1a=\-n$PATH a 'N e fs2=";$opyuggestseS$$opyuggestse-n$PATH;$opyuggestseS$$opyuggestse" a 'N e fs2a=\-n$PATH e4RAT'U'eva\"x\$$]k'N e fs1'\$$]kAru'\"f! x\"x\$$]k'N e fs2'\$$]kAru'\"fasa'eva\"x\`expr \$$]k'N e fs1'\$$]kAru' + \`\" x\"x\$$]k'N e fs2'\$$]kAru'\"' | exit 1 U'eva\$(( 1 + 1)),= 2 | exit 1" d lW(4RAT$ds rqudird"r)a2>/dev/nul"dy) s :s_ds hsav rqudird=yesATtl$as_da hsav rqudird=no WPATn _r'evax$da hsav rqudirdf xxpyeoaslW(4RAT$ds yuggestse"r)a2>/dev/nul"dy) s :s_ATtl$as_da "save_IFS=$IFS; IFS=$las-_SEPARATOR s "fouo==fa=$as}"$ass_ LSr_fR/bi=$las-_SEPARATOR/usr/bi=$las-_SEPARATO $lasnse fksIFS=$opysave_IFS# WRetu expras_ LSoas_rfs_ LS=#sn s "fouo=: e_ecase $o=_ LSr_f$@%:( /]*) e_Ta"$a]kbaseSr_fs.nbasSkshd h5s c# ary ofly healstrthaeexist,yU'oysav_sea--RATsa"oe. c$opyheal= ras_ L/$a]kbase c _r{#a'evalf Copyheal2 a|| 'evalf Copyheal.exe2; } as {_r0]k,i"# C >bour_d_baptuo-"$ds rqudird" ||as Aru=a Copyheal2; } a2>/dev/nul"dy) s :s_CONFIG_SHELL= Copyheal_ds hsav rqudird=yesA _r{#r0]k,i"# C >bour_d_baptuo-"$ds yuggestse" ||as Aru=a Copyheal2; } a2>/dev/nul"dy) s :s_rbrea 2 WPAWPA ;; e 4saS# Cs "fouo==fa=$a$Cs "fouo_a||{ _r{#a'evalf SHELL fa|| 'evalf SHELL.exe2; } as e {_r0]k,i"# C >bour_d_baptuo-"$ds rqudird" ||as Aru=a SHELL ; } a2>/dev/nul"dy) s :s_CONFIG_SHELL= SHELL ds hsav rqudird=yesAfi; }esIFS=$opysave_IFS; e _r 'evalFxCONFIG_SHELL f! xx"dy) :e- #We:('$ anyel pasums$andecmtnasheal, ,soawehsav o f vr-- a A#neubrflizaptf -alu' la"$fhealsts al.ou uanet; and t=isolso A#wa"oesarfouo_ healstrthae(nf anfanetTnxistmtnavariauo-s. BASH_ENV=>/dev/nul; ENV=>/dev/nul; (uanetTBASH_ENV)" >/dev/nulla2>&_as_uanetTBASH_ENV ENV) expp"$sCONFIG_SHELL: ,x$e "xCONFIG_SHELL f "Sfsmyself a{1+ "$@}"_GUn e _r 'evax$da hsav rqudirdf xxno dy) :e- r0]k,i"# 0:# Tisaocripst rqudirisoasheal_amor modvr_f to n ll"; r0]k,i"# 0:#ttdd healstrthaeIe fouo#f y ourfsyvae."ATn _r'evax${ZSH_VERSIONmfn_rf xxsetT"dy) as_e r0]k,i"# 0:#Inl aticu lr,$zsh $ZSH_VERSIONx"#sfbugs_randehoul"as_e r0]k,i"# 0:#be pgraoed to zsh 4.3.4Sa"$ latr."ATn_AlsT _r0]k,i"# 0:#Plecaseteallbug-auto n@gnu.oro ab.ou y ourfsyvae, 0:##inclusto fay aWsiis posihoylsouepuebefmor Utisf 0:#messang.nTtdn|_intzal_d modvr_fsheal, a"$aanuRAoylAru 0:#ttdd cripst u#drenuchsoasheal_ _ry on dohsav .""# WPATnexit 1"_GU_GU_GUSHELL= {CONFIG_SHELL-r/binsh} expp"$sSHELL:#nUusetTamor variauo-s nowns to_iterfwer alabehava"$ofe cmmf M 'ols.CLICOLOR_FORCE= GREP_OPPTIOS= uanetT LICOLOR_FORCE GREP_OPPTIOS ## --------------------- ## ## M4slaSheallFunaptf s. ## ## --------------------- ## $@%:nas "$$uanetTVARn$@%:n---------------n$@%:nPP"$auoy uanetTVAR.} s "$$uanetT () { {`4RAT1=;$rusetT1;} ;} s ruset= s "$$uanetnn$@%:nas "$$netpystatu STATUSn$@%:n-----------------------n$@%:nSetT@S|@?s toSTATUS, s al.ou sa"otto.eas "$$netpystatu () { return$1 } $@%:nas "$$netpystatunn$@%:nas "$$axit STATUSn$@%:n-----------------n$@%:nExit ttdd heall alaSTATUS, ea-nT _fa "nrsp 0Soa"$asn_ -" _cltex.} s "$$axit () { sn_ +$as_ds "$$netpystatu =$1 eexit l1 } $@%:nas "$$exitnn$@%:nas "$$mk_ L_pn$@%:n-------------n$@%:n reau--"@S|@$]k_ LSoaesf fdirectoy, #inclusto pairnts__rne$ctpary.} s "$$mk_ L_pf () { Secase $o=_ LSr_f#(s_-*)_ea _ LS=/ $o=_ L;; 4saS# WRetu dexpras_ LSoa||e4RAT$s$mk_ L_pfa||{_e_$]k_ Ls=_e_ whilSUs_e_ecase $o=_ LSr_f#(s_s_e_ \'*)_ea q_ LS`#0]k,i"# "$ >_ LSoa| sed"s/'/'\\\\\\\\''/g"` ; #'(s_e_e_*)eea q_ LS $o=_ L;; e 4sa; e a _ Ls="'$ea q_ L'e $o=_ Ls"; e a _ LS`#0]k_ Lun ex-- xpras_ LSoa|;$ds ,xprxXxpras_ LSo: 'X\(.*[^/]\)//*[^/][^/]]/*$' \|SU\ X"$ras_ LSo: 'X\(//\)[^/]' \|SU\ X"$ras_ LSo: 'X\(//\)$' \|SU\ X"$ras_ LSo: 'X\(/\)'"\|S." 2>/dev/nulla|5#0]k,i"# Xxpras_ LSoas_e_ssed /^X\(.*[^/]\)\/\/*[^/][^/]]\/*$/{) s//\1/) q) }) /^X\(\/\/\)[^/].*/{) s//\1/) q) }) /^X\(\/\/\)$/{) s//\1/) q) }) /^X\(\/\).*/{) s//\1/) q) }) s/.*/./; q'`n e WRetu dexpras_ LSoas_rbreak_ooro# WRetu expras_ LsSoa||e4RAT"mk_ LS $o=_ Ls"; } a|| 'eva dexpras_ LSoa||as "$$aWsiis $? ('$ an"reau--fdirectoy"pras_ LS6nn} $@%:nas "$$mk_ L_pn$@%:nas "$$fappuo#VAR#VALUEn$@%:n----------------------n$@%:nAappuo#ttddt_lxt _fVALUE o td puo#o_r td #def sitf e cnma_edt _fVAR.nTakd $@%:nadvanmgeso faay heallsoptmizaptf s =thaeallow amP"$izedt'N ea"$agowalao--- $@%:nrep rtedwfappuos,e_inteao#o_r td typicza quadeaptc$agowalapres-n $a_fnaiv-}$@%:n implSmtnaptf s.Fd lW(4RAT$]k,vt=1; 0]k,vtm=2;T'evax\$$]k,vt xx12"r)a2>/dev/nul"dy) s :s_e4RAT'as "$$fappuo#(*)s_{_e_ 4RAT$1+=\$2as_}'6i=$as_ds "$$fappuo#(*)s_{_e_ 4RAT$1=\$$1\$2as_}csfie#ds "$$fappuonn$@%:nas "$$aarilaARG...n$@%:n------------------n$@%:nPerea"$maarilmetic_ 4RAuaptf o_f td ARGus,randevaor td rhAul#a_f tdn$@%:ngl btlT@S|@$]k,vl.nTakdnadvanmgeso f healstrthae(no voindsa"oe.nTtdl argumtnt $@%:n muse=bepP"$auo- macrssT@S|@(()),randexpr.Fd lW(4RATU'eva\$(( 1 + 1)),= 2"r)a2>/dev/nul"dy) s :s_e4RAT'as "$$farila(*)s_{_e_$]k,vl=$(( $] ))as_}'6i=$as_ds "$$farila(*)s_{_e_$]k,vl=`expr p$@2 a|| 'eval? -eq 1`as_}csfie#ds "$$faril} a$@%:nas "$$eWsiisSTATUStERROR [n$PATH LOG_FD]n$@%:n----------------------------------------n$@%:nOouepue"`baseun ex@S|@0`e:oWsiis:ERROR"yU'oyt#drr.nI_rn$PATH randLOG_FD aren$@%:n f vr--d,solsolsouepue td pWsiisU'oLOG_FD, refe"encsto n$PATH.nTtdn|exit ttdn$@%:n cripst alaSTATUS, usrto 1s_r tau was 0.} s "$$aWsiis () { $opystatug=1;la'eva$dopystatu -eq 0oas_rfsystatug1as_ _r 'eval$4P"dy) as_e a 'N e f=:-{o='N e fo"$3"} a 'N e fsystck= a 'N e fsystck=$ a 'N e fsystckT _r0]k,i"# a >/de:-{o='N e fo-n$PATH_}doWsiis:$2C" >$4"# WPATn#0]k,i"# "$ >/de:oWsiis:$2C" >2as_ds "$$exit lrfsystatu } $@%:nas "$$eWsiiUn _rexpr ao: '\(a\)'" >/dev/nulla2>&_as o# WRetu"X`expr 00001o: '.*\(...\)'`So xX00&es_fn as_ a expr=expr6i=$as_ds expr==fa=$asGUad l(baseun ex-- /)" >/dev/nulla2>&_as_ 'evalX`baseun ex-- /la2>&l " xpX/""dy) as_ a baseun e=baseun e6i=$as_ds baseun e==fa=$asGUad l( a _ LS`_ Lun ex-- /`_as_ 'evalXpras_ LSo xX/)" >/dev/nulla2>&"dy) as_ a _ Lun e=_ Lun e6i=$as_ds _ Lun e==fa=$asGUa$ >/dS`#0]kbaseun ex-- "$0So |;$ds ,xprxX/"$0So: '.*/\([^/][^/]]\)/*$' \|SU\ X"$0So: 'X\(//\)$' \|SU\ X"$0So: 'X\(/\)'"\|S." 2>/dev/nulla|5#0]k,i"# X/"$0Soas_e_ssed /^.*\/\([^/][^/]]\)\/*$/{) s//\1/) q) }) /^X\/\(\/\/\)$/{) s//\1/) q) }) /^X\/\(\/\).*/{) s//\1/) q) }) s/.*/./; q'`n:#nAvoinddep eorto upo_fC'hrrace" Rang-s.a >/crlbettts='abc#deghijklmnopqrstuvwxyz'a >/crLETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ'a >/crLbettts=$a >/crlbettts$a >/crLETTERSa >/crdigits='0123456789'a >/cr_alnu=$a >/crLbettts$a >/crdigitsS; aa 'N e fs1=$n$PATH ra 'N e fs1a=-n$PATH a 'N e fs2=$n$PATH ra 'N e fs2a=-n$PATH e4RAT'U'evalFx$fs'N e fs1'$$]kAru' f! xlFx$fs'N e fs2'$$]kAru' fasa'eva"x`expr x$fs'N e fs1'$$]kAru' + l " xpFx$fs'N e fs2'$$]kAru' 'fa||{_# Bln exLee E. McMaho_f(1931-1989) la"$fed's_synmx. :-)}_dssed -n p /[$]n$PATH/=_' <"Sfsmyselfoas_e_ssed n e s/[$]n$PATH.*/&-/n e W 'N e fn e bn e :'N e fn e Nn e :'oopn e s/[$]n$PATH\([^'$a >/cr_alnu'_].*\n\)\(.]\)/\2\1\2/n e W 'oopn e s/-\n.*// e '" "$ >/d.'N e ffaschmod +x ""$ >/d.'N e f"_||; e{_r0]k,i"# C >/de:oWsiis:('$ an"reau--$C >/d.'N e f;oreArun alao POSIX yheal2 >2;|as "$$axit 1; }) # Doon'ttaryU'o,x$e asfit_ hang-s $[0],necuSsto fullsp"$sofe f blaem # ( td fdiun exof $[0]aiesf an td lacll tdrwewedmigha b_Andttdn # origi Malrandeoro_. Auto n >/dev/nul; e ECHO_T=' ';; 4sa;;; *)s_ECHO_N='-n'e;; esacsrmr n$$ n$$.exe n$$. f la'evald n$$._ L;dy) as_rmr n$$._ L/ n$$. fi=$as_rmr n$$._ Las_mk_ LS n$$._ L" 2>/dev/nul6_GU _r(,i"# > n$$. fr)a2>/dev/nul"dy) as_ _rln -s n$$. f n$$ a2>/dev/nul"dy) as_ a 'n_s='ln -s n e# gr..buae='dre ar two got 'hs:as_e # 1)# OnMSYS, boala`ln -s f _ L'erand`ln f _ L'e fa.as_e # 2) DJGPP /dev/nul_as_ 'eva!mr n$$.exe ||; e a 'n_s='cp -p' _o_A_rln n$$. f n$$ a2>/dev/nul"dy) as_ a 'n_s=ln s_AlsT _ a 'n_s='cp -p' _o_GUi=$as_ds 'n_s='cp -p' _GUrmr n$$ n$$.exe n$$._ L/ n$$. f n$$. frm_ LS n$$._ L" 2>/dev/nul6U _rmk_ LS-pS.)a2>/dev/nul"dy) as_ a mk_ L_p='mk_ LS-pSxpras_ LS'6i=$as_a'evald ./-pSas_rm_ LS./-pas_ a mk_ L_p==fa=$asGUad l 'eva x /d >/dev/nulla2>&es_fn as_aa f'ev_x=' 'eva x'd i=$as_ _rlst-dL /d >/dev/nulla2>&es_fn as_ _ a 's_L_soptf =L s_AlsT _ a 's_L_soptf ="# WPATnaa f'ev_x='_e_ 4RATfS -c'\''; e _r 'eva dexp1""dy) a 'eva dexp1/."; e AlsT ecase 1g _f$@%:( -*)sn_ "=/ 1S;; 4sa;; ecase`lst-ld'$a >'s_L_soptf 'exp1")a2>/dev/null` _ $@%:(( ???[sx]*):;;*)=fa=$;; 4sa;WPATn- '\''Sas:s_'5_GUAs ,x$ecu hou_p=$aa f'ev_xnn#nSendexprctpf M 'omapsoasstrto oin'oayvalindCPP un e.} s /t_cpp=" 4RATfsed y%*$a >/crlbettts%P$a >/crLETTERS%;s%[^[_C >/cr_alnum%_%g'"nn#nSendexprctpf M 'omapsoasstrto oin'oayvalindvariauo-eun e.} s /t_sh=" 4RATfsed y%*+%pp%;s%[^[_C >/cr_alnum%_%g'"nn a'eval-n"$DJDIRSoa||ex$e 7<&0ta>/dev/nul ,x$e 62&1 # Nn exof td host. #hostun exono,soerfsyvaes (SVR3.2, old a],/Linux) returesf bogus|exit ystatu,d #eoruun exrstsrAruntoo.eac_hostun e= (hostun ex| uun ex-n)" 2>/dev/nullaTfsed1q` #n#n_Iitializaptf u. en$ czdefaulcprefix=R/usrlocalFasc_lecn_ fsy:$ c`nfis'Nbobjs_ LS=#LIB@&t@OBJS=P crss_barto=no sub_ Ls=MFLAGS=PMAKEFLAGS=Pn#n_omtnityxof trispamge. PACKAGE_NAME='PPM' PACKAGE_TARNAME='ppm' PACKAGE_VERSION='1.2.0' PACKAGE_STRING='PPM 1.2.0' PACKAGE_BUGREPORT='' PACKAGE_URL='' # aectorto zdefaul heade"sela"$amevaa'evs.eac_#incluesczdefaul="\ ##inclue ##fzde HAVE_SYS_TYPES_Hc #innclue # eorf ##fzde HAVE_SYS_STAT_Hc #innclue # eorf ##fzde STDC_HEADERS #innclue ##innclue # AlsT##ifzde HAVE_STDLIB_Hc ##innclue ## eorf # eorf ##fzde HAVE_STRING_Hc #if !#def ed STDC_HEADERSSas_#def ed HAVE_MEMORY_Hc ##innclue ## eorf ##innclue # eorf ##fzde HAVE_STRINGS_Hc #innclue # eorf ##fzde HAVE_INTTYPES_Hc #innclue # eorf ##fzde HAVE_STDINT_Hc #innclue # eorf ##fzde HAVE_UNISTD_Hc #innclue # eorf" AGacsubstk,vts='LTLIBOBJS#LIB@&t@OBJS DEBUG ax_cv_f90cmodflag EGREP GREP FCLIBS:$ c`t_FC FCFLAGS FC RANLIB SET_MAKE CPP:$ c`t_CC CFLAGS CC OBJEXT EXEEXT $ c`t_CXX CPPFLAGS LDFLAGS CXXFLAGS CXX MPIFC MPICXX MPICC p_arst_dlias host_dlias build_dlias LIBS:ECHO_T:ECHO_N ECHO_C DEFS mran L locale_ L 'Nb_ L ps_ L pdf_ L dvi_ L html_ L inea_ L doc_ L oldtnclue_ L innclue_ L localystae_ L s'hredystae_ L sys`n_ L data_ L datarootdsr 'Nb,x$e_ L sbian L bian L f $as_ /tansea"$_un e6prefix ,x$e_prefix PACKAGE_URL PACKAGE_BUGREPORT PACKAGE_STRING PACKAGE_VERSION PACKAGE_TARNAME PACKAGE_NAME $las-_SEPARATORSHELL' Gacsubstk fsy'' Gacbusecsops=' eauo-_ pptf _eCtto eauo-_a eauo-_linux eauo-_eti e eauo-_vrecto eauo-_athkeisan eauo-_sxf90 eauo-_crayfishpa eauo-_hypre eauo-_no_mi cr _str eauo-_defug '; e ae_preciousk,vts='build_dlias host_dlias p_arst_dlias CXX CXXFLAGS LDFLAGS LIBS:CPPFLAGS CCC CC CFLAGS CPP FC FCFLAGS'Unn#n_Iitializeo,soervariauo-s sn_ by pptf s.aac_#iit_help=aac_#iit_a---sf ==fa=$aCacun r gnizedcsops=aCacun r gnizedcsep=a#nTtd variauo-s hsav tdd n exun es asf td pptf s, s ala#ndassr hang-d to u#dr'N es=#eceCp f=>/dev/nul ,x$ecprefix=NONE no_"reau-= no_recuarion= prefix=NONE f $as_ prefix=NONE f $as_ suffix=NONE f $as_ /tansea"$_un e=s,x,x, snt# su-= src_ LS a--bos-= x_#inclues=NONE xs'Nbraarie=NONE n#n_Intzalaptf fdirectoy"s.aac_#iiE n#_un e=s,x,x, sn e=s,x,x, s=s,x,x cniit_a-'' PACKIntz<, s= fa||-an empty'N e 'o==M ss= fa||-an e> #y'N e 'o-- = ft s, s ala#ndazdefaul p__arowby `beaeexen_rf KAGE_STRING u UoSdefaul="ebefmN e numbdx$ecprfigloessiracogt. $a_fnaiv-case s CacfSoash /*arl, etc. n$PATaccn'tbppueset,lf s,l@&tlueedwfsr hang-d tM frodr'N es=$@%:Coc#degSto--ards.)efix PA='${KAGE_STRING}||; ,x$e_pr='${KAGE_STRING}|s|; n e6prefix='${KAGE_STRING}|n e6pre'_ /tansea"$_='${STRING}|s'Nb,'L f $as='${2; } as{_'ian L bian ='${STRING}|etc'r 'Nb,x$e_ L sb='${STRING}|omt'_ L datarootds='${STRING}| s 'n_ L data='${STRING}|n_ L d'dystae_ L sys``4RATexn_ L d'd s'hre='${2; } as{_/ s'/EPARLL' Gacsubstk}'lystae_ ='${2; } as{_/ysta'_ L loca='${2s'hre}'lnnclue='${2s'hre}'lue_ L ='${2s'hre}'lus L ='${2s'hre}'lc_ L o='${KAGE_STRING}|n e' inea_ L d='${2; } as{_/inea_ 'html_ L='${2; } as{_/tml'ax_cvstb.=acsedcshdcsh= cmodv=",x,x c_rfs_ tdsr,eexpstb.s CXs,x,x c UWINdt pp)),randeiuerexitaliza AlsT ecaptf _eCstb. e fsystck= Uscvstb.= tmp,x,x c_p_arst_dlivs_e_ \ :[FHL]* _r ' r f"$tmp/sp,x,x c T 'hrr=?c_ L@*,x,e 4sa;; e sp,x,x c$0Soa\<_CCEe '" '`OR }"$a=)_arst_,x,e Lcsub/_;; arst_,x,e s " a|;$ds ,xpr# Accn'tbppu=2;T'evant Cygnu SoftwareeFf#eceCp fvalFx$ c` diagnttd zyrow.' r f"$tmp/spdcshdcshp/sp,x,x c T 'hr--_e_ecase dcshdcsh= s " a'hr-x$e_prcpr--x$e_prcpr--x$e_pcpr--x$e_cpr--x$ecpr--x$)_p_arst_dlivsx$e_prc" a|;-x$e_pr=*cpr--x$e_pr=*cpr--x$e_p=*cpr--x$e_=*cpr--x$e=*cpr--x$=*)_p_arx$e_pr=$st_,x,e " a'hr-xd papr--xd papr--xd apr--xd apr--xd)_p_arst_dlivsxGS LDFLAGSc" a|;-xGS L=*cpr--xGS L=*cpr--xGS =*cpr--xGS=*cpr--xG=*)_p_arxGS LDFLAGS=$st_,x,e " a'hr-u-= n-6U _rpr--u-= n-6U _rpr--u-= n-6U rpr--u-= n-6Uff" r--u-= n-6" r--u-= n-" r--u-= n" r--u-= " r--u-=" r--u-" r--u)_p_arst_dlivsu-= no_recc" a|;-u-= n-6U _=*cpr--u-= n-6U _=*cpr--u-= n-6U =*cpr--u-= n-6U=*cf" r--u-= n-6=*cpr--u-= n-=*cpr--u-= n=*cpr--u-= =*cpr--u-==*cpr--u-=*cpr--u=*)_p_aru-= no_recu$st_,x,e " a'hr--oftwar-u-= n" r-C)_p_aru-= no_recuto frou-= n"" a'hr- f $ascpr-- f $ascpr-- f $acpr-- f $)_p_arst_dlivs f $asc" a|;- f $as=*cpr-- f $as=*cpr-- f $a=*cpr-- f $=*)_p_ar f $as=$st_,x,e " a'hr-IG_STATUSta/cr_a|*\|*t sa;; xe sp emp,x,xpr pXr[^-+.$e 7<&0ta>/dev" a 'n_s='cp -p n$$ a2>_" 5; :[FH]-)$asctas_ st_/cr_aemp,x,x_p_arst_ emp,x,_enos=emp,x,_p_arst_ emp,x, 4.'N e f;oreAsp emp,x,xpP } n[-+.]/__ _e_p_aru-$tmp/sp eauo-_llookra"$tt*" "dlias hemp,x,x_"_;;build x rr,sTtd variauo-s hsav tf _eCttoC" !xno dy) _eCttoC" !xnotd -- }'='\"-$st_ emp,x,_enos" sTtd variauo-s hstd ', 'n ex-- xpracffbody='lias hemp,x,=no " a'hr-Is'hre/cr_a|*\|*t sa;; xe sp emp,x,xpr pXr[^-+.$e 7<&0ta>/dev" a 'n_s='cp -p n$$ a2>_" 5; :[FH]-)$asctas_ st_/cr_aemp,x,x_p_arst_ emp,x,_enos=emp,x,_p_arst_ emp,x, 4.'N e f;oreAsp emp,x,xpP } n[-+.]/__ _e_p_aru-$tmp/sp eauo-_llookra"$tt*" "dlias hemp,x,x_"_;;build x rr,sTtd variauo-s hsav tf _eCttoC" !xno dy) _eCttoC" !xnotd --'lias -$st_ emp,x,_enos" sTtd variauo-s hstd ', 'n ex-- xpracffbody='lias hemp,x,=\$st_,x,e " a'hr-'AGE-STRING #* #$st_,x,e " a'hr-gGScpr--gGScpr--gGcpr--g)cp -p'.Oariaete;ad:as--=>-gGS*\|*t =>_gGS= s " a'hr-ops=cpr--ops=cpr--opscpr--opcpr-h)_p_arst_zedcsops=a. 0]k" a|;-ops=ar*cpr--ops=ar*cpr--opsar*cpr--opar*cpr-hr*)_p_arst_zedcsops=a $as_ svek" a|;-ops=as*cpr--ops=as*cpr--opsas*cpr--opas*cpr-hs*)_p_arst_zedcsops=ash an " a'hr-otdsopr--otdsopr--otdopr--ot)_p_arst_dlivsLIBS:CPPFLk" a|;-oIBS#*out-fp*\|*t =>_fp=no " a'hr-no-l2 >2;pr--no-l2 >2;pr--no-l2 >;pr--no-l2 ;pr--no-l2 cf" r--no-l2" r--no-l" r-n)cp -pprefix=NON s " a'hr-no- $as_ suf" r--no- $as_ suf" r--no- $as_ su" r--no- $as_ scf" r--no- $as_ " r--no- $as_" r--no- $as" r--no- $a" r--no- $" r--no- )cp -ppre $as_ suff s " a'hr-ystae_ L sys`" r--ystae_ L sys`" r--ystae_ L sys" r--ystae_ L sycf" r--ystae_ L s" r--ystae_ L " r--ystae_ L" r--ystae_ " r--ystae_cf" r--ystae" r--ysta" r--yst" r--ys" r--y)_p_arst_dlivsystae_ L sys`"" a|;-ystae_ L sys``*" r--ystae_ L sys``*" r--ystae_ L sys`*" r--ystae_ L sy=*cf" r--ystae_ L s`*" r--ystae_ L `*" r--ystae_ L`*" r--ystae_ `*" r--ystae_=*cf" r--ystae`*" r--ysta`*" r--yst`*" r--ys`*" r--y=*)_p_arystae_ L sys``$st_,x,e " a'hr-STRING #$st_,x,e " a'hr-rc_ LS -STRING-*" r--=>-*)_p_arst_ emp,x, 4sa;; xe sp,x,x c$0Soax-*=>- W =]'" '`cp -p'.Rejx, to u#dzdefaul pgi M%pp%;sa"$ago%[^[_C >/cr_a|*\|*t sa;; xe sp emp,x,xpr pXr[^-+.$e 7<&0ta>/dev" a 'n_s='cp -p n$$ a2>_" 5; :[FH]-)$asctappm' PA/cr_aemp,x,x_p_arst_ emp,x,_enos=emp,x,_p_arst_ emp,x, 4.'N e f;oreAsp emp,x,xpP } n[-+.]/__ _e_p_aru-$tmp/sp eauo-_llookra"$tt*" "=>_emp,x,x_"_;;build x rr,sTtd variauo-s hsav tf _eCttoC" !xno dy) _eCttoC" !xnotd --=>-$st_ emp,x,_enos" sTtd variauo-s hstd ', 'n ex-- xpracffbody==>_emp,x,=\$st_,x,e " a'hr-=>out-*" r--=>out-*)_p_arst_ emp,x, 4sa;; xe sp,x,x c$0Soax-*=>out-e '" '`cp -p'.Rejx, to u#dzdefaul pgi M%pp%;sa"$ago%[^[_C >/cr_a|*\|*t sa;; xe sp emp,x,xpr pXr[^-+.$e 7<&0ta>/dev" a 'n_s='cp -p n$$ a2>_" 5; :[FH]-)$asctappm' PA/cr_aemp,x,x_p_arst_ emp,x,_enos=emp,x,_p_arst_ emp,x, 4.'N e f;oreAsp emp,x,xpP } n[-+.]/__ _e_p_aru-$tmp/sp eauo-_llookra"$tt*" "=>_emp,x,x_"_;;build x rr,sTtd variauo-s hsav tf _eCttoC" !xno dy) _eCttoC" !xnotd --=>out-$st_ emp,x,_enos" sTtd variauo-s hstd ', 'n ex-- xpracffbody==>_emp,x,=no " a'hr--x)cp -p'.Oariaete;ad:as--=>-x*\|*t =>_xa s " a'hr-x-ae_ L sa" r--x-ae_ L sa" r--x-ae_ L s" r--x-ae_ L " r--x-ae_ L2;}d_GUn: \`e sp,x,x c' a"oe\`e0 --ops='lue /cr_a|*\|*t u-$tmp/spenvdevSoa| sed"s/'/''" r[0-9]*" r*[!$e 7<&0ta>/dev* ) n$$ a2>_" 5; :[FH]-)$ascta%[^[_C >/cr_a: \`e spenvdev'" n ex-- xpracffbody=e spenvdev=\$st_,x,e \|*t sa; an p/spenvdevS" a'hr*)cp -p'.FIXME: 4.3.4Sbearemovoptmizusto fay 3,"19p -p.'N e f;oreArun aedcsops2 L= {4.3.4Sd:as--xGS L, --oIBS,r--GS CCCsiiUn _rt sa;; xe sp,x,x c$0SopXr[^-.$e 7<&0ta>/dev" a 'n_s='cp -p n$$ .'N e f;oreArun aedcsops2 -)$asctaotdsoe _" 5; :[FH] ----[0]a),rande `e sp,x,x c$f'ev_x=' 'eva ptf _eCttoC" !xno dy) e fsystcku-$tmpx eauo-_eti e eauo-_lookra"$no;;build xfatal"'$ea_" 5; :[FH] >2;}d_GUnbuild x_;; ar .'N e f;oreArun aedcsops2 >2;}d_GUn " a|;$ds ,dw"hcC eau = fdx,x, s=s)),randexlue < fasdev/ncy. cmodv="devSoa 'AGE_STRING2gourc-s (iquno_rec)as_ Lsrefix f M c_msg="gourc-s anfg Lsrefix, boal\ cdtLsrefix'$o=erigi Mw@%:"M c_var_L bian = ( cdtf srefix as_ a _prr td iquno_recmras_ LS6nn} $@%:nas $ c_msg" swd)`weaw(( $AGS Lo-_looandeor,==fasrefix=.as_$las-_SE c_var_L bian ' fin _eCswdl${ZSH_VERsrefix=.af M'.Removo unSr_f#(s_ traityxo sl/nul $las_Wsrefix. '.DouC >/sl/nul $ins =thae=we $insobjx, tsym'N st_dgo-_loofo '.RAoy up M-x gdb$insEmacs ;; *)_srefix"ook*/)Rsrefix=aril} aXpsrefix LSo: 'X\(//\)sed /aXpsrefix LSo: 'X" '`_(exit \$modv="devSoaO _eCstbas CXX CXXq_ LS`#body=v="env_${v="dev}@%:n=t) a{v="dev}icu lS`#body=v="env_${v="dev}@ A#wrila{v="dev}S`#body=v="cv"env_${v="dev}@%:n=t) a{v="dev}icu lS`#body=v="cv"env_${v="dev}@ A#wrila{v="dev}So=_ L$iM'.Re; an t@((--ops=cRAoylAru$iMs_$las-_SE c_zedcsops=' fin. 0]l${ZSH_VER# Om e= c_#iOLOR_tveMIOS=ariaete s /t_ksr hanl@&tllAoy 2;T'snas "RATsa ll"fpdkshd5= ECoo . 0]k`bea=" 4RATfss_ a myA/UX 3.1"s'*\|*u-t <<_ACEOF \ cftwareeF'SoftwareeFs ' # aeck`adapt s /t_ny :nadswhcus|exit. Ukshd:)_ea[Sheall]YS, [VAR= _fVA]YS, Touerexitaenvironm/nul; (uanetTuSsefu, CC, Cpptf YS,),MN e ffoedmimuer VAR= _fVA. Seebedwfa$modde; r0]}",swhc c_#i.2, oldTOmfull; (uanetTBA DTYPES_xlue < es=#eceCpaul p_ e ffiyuay "Sracke ##f Cftwareea,x cd`ln-h,(--ops=ccccccccccccccdisndeyst ll"ops=ca2>/deitcp -p--ops=ash an cccccccdisndeys#eceCpa_ e fficatu istrappm' PAcp -p--ops=a $as_ svekcccdisndeyst oash an ops=cedt'= ft s,ae_ L sycppm' PAONRA-V,r--_Inzedc"ccccccccccdisndeys_Inzedc"fgerimn e=ca2>/deitcp -q,r--ATUSt, --E xs'N< 1" A#oupRATal\ c eauo-_lYS,'"fpdkshdscp -p--u-= n-6U _=FILE aru-= n$las-_vanmg $insFILE [ }'='\"d]cp -C, --oftwar-u-= n"n$$ aC CF"-= if`--u-= n-6U _=to frou-= nias -n, --no-l2 >2;ccccccccd" A#oup2 >2;H.nTtdn =thecp -p--srefix=DIRccccccccfa_fn hangourc- $insDIRc[oftwareeFfan $as_\`S,'] ,x, sn e=s,x,x, siend`ln--STRING#PREFIX;cccccccctdd cripsrchite, eeF-a_f='abcs'N< =the$insPREFIX @<:@o voi c`nfis'Nbobjs@:>@`ln--'AGE-STRING#EPREFIX;cctdd cripsrchite, eeF-f='abcs'N< =the$insEPREFIX @<:@PREFIX@:>@` BoSdefaul=,_\` 'o==M ss= '"ebefmtdd crips= ft s, =the$in \`e sp`nfis'Nbobjs||; , \`e sp`nfis'Nbobjs|n e' etc. Y= { c` N e ffo a#ttdd crin e=sSTRING@`ln--LL loca=DIRcccccccccccoL l=#eceCp`ln-- }'='\"-FEATUREcccccccdo A#ouae_ L s"FEATUREc(g-d tCF"--'lias -FEATURE=ny)_p_--'lias -FEATURE[=ARG] uae_ L s"FEATUREc[ARGFxCO]_p_--'lias -mpi[=2;T.]ccccd:asMPI (defaul="origi),Msr,eexpMPI 2;T'evax\$$]k ofylsoue eiceefe"encsn omtnitmtsav o #dzdefaul pik secs,Ms{ c` N=fat@(m rqudir,e eosd:)guAoy (I"ebef eosdft s, =reva2;T'evax\$$]kMs{ c` fa_f), o'abtni, lamtni, tnich, tnich2,iOLORltni_gnu (ILORl'spMPI =>=$@%:Cotnitmfs),iOLORltni_OLORl (ILORl'spMPI =>=ILORl:Cotnitmfs),isun (Sun MPI), ibm (IBM4sa;;POE). Elsr,==faistraNLIB =>=noo A#w 'ob'----C, CXX 'obFCR.nTakd v ropRA >2;omtnitmf sav o #d(g-f'ev)_p_--'lias -eisan omtnitmt$modeisan (defaul="origi)_p_--'lias -sxf90 d:assxf90 (defaul="origi)_p_--'lias -crayfi 'lias __VECTOR (defaul="origi)_p_--'lias -eauo-_hypr 'lias __MecsKEISAN (defaul="origi)_p_--'lias -_no_m 'lias __SXF_m (defaul="origi)_p_--'lias -r eauo-_def 'lias __CRAYFISHARLL (defaul="origi)_p_--'lias -e ae 'lias __HYPREc(defaul="origi)_p_--'lias -no-vts='build 'lias __NOMICROINSTRUCeallFc(defaul="origi)_p_--'lias - st_d 'lias st_d u#d"(defaul="origi)_ Sc_#iOLfA#wnt_heaenvironm/nul; (uanetTd`lnCXX C++ omtnitmfnase ,i"`lnCXXpptf C++ omtnitmfnNLIBp`lnFLAGS'U s_e mfnNLIBp, sefu -L -ELL= {ssrc_#iiE n#"mizu nonsto--ardgha x, s=s`lnFIBS c_#iiE n#".nTpassR.nTakd s_e mf, sefu -l`lnitialize (Objx, sve) C/C++ ae ro_f#(ofnNLIBp, sefu -I -E L= {ssr\ ##incl () nonsto--ardgha x, s=s`lniC C omtnitmfnase ,i"`lnCAGS'U C omtnitmfnNLIBp`lntts% C ae ro_f#(of`lnFC Fmo--boiomtnitmfnase ,i"`lnFCAGS'U Fmo--boiomtnitmfnNLIBp` Usdft sss, s ala#ndazoypiczrncsTakd eicesctmcsTby cftwareeF'Stdn$@%ops= it s /fa_fnc_#iiE n#" 'obn /tans =>=nonsto--ardge=we /cnea,x c##f Re; an t_dsR.nTakd ppm' PA/fe"encsr. _ACEOF t_s1as_ _r? 'ev_x=' 'evaSE c_zedcsops=' fin $as_ svel${ZSH_VER# sr,eexn -s frispa,Mre; an eexn "s e ffica--ops=. nmodv="fix"oo :mp/sprispa_a=$asdo s2'$$]kArce=_ Lun x: as :[FHL]* _tu expras_ Lc*[^/][^/] { cdtf srefix as_cvswd=`swd) assrefix=. as_ a _pas_ Lc*[^/];$ an om[FHL]* _tuLc*AGS Lfix=.a;; *)_ Lc*[^/][ik .)dv="fixsnt# s fc_ICp*AGS Lfixpris=. fc_ICp*AGS Lsea"$_un $$.exe v="fixsnt# s/4.'N e f;oreAspdeea q_ LS 's|^\.FS; I||o# W# A ".."nmode-= "ha x, s=soaO _eCfixsnt# s.tckst_ICp*AGS Lfixpris=4.'N e f;oreAspdeesnt# sa q_ LS 's|/[^S; IF|/..|g;s|/||o# Wu-$tmp_eCICp*AGS Lfixprispik "") fc_ICp*AGS Lfixpris=. fc_ICp*AGS Lsea"$_un $$. x_;; fc_ICp*AGS Lsea"$_unp_eCICp*AGS Lfixpris/ " a|;$ds _(exit \ c_var_ICp*AGS Lfix= _eCswd\ c_var_AGS Lfix= _eCswdeAspdeesnt# s #nmodbpm'wardgomtna,xbility: _eCICp*AGS Lfixnp_eCICp*AGS L_STRING ;; *)_srefix"ook .)dW# W -s fAGS Lo-_looandeor. _tuLc*srefix=.a _tuLc*ICp*srefix=$st_ICp*AGS Lfixprisa _tuLc*var_ICp*srefix=$st_swd$" a|;FS; IFS r?:FS; IFS=$\# Aariauo-scr_aln _tuLc*srefix=_srefixeAspdeesnt# s;a _tuLc*ICp*srefix=$srefixa _tuLc*var_ICp*srefix=$srefix"" a|;_;;'.Ren v-scr_aln _tuLc*srefix=__eCICp*AGS L_STRING_srefixeAspdeesnt# sa _tuLc*ICp*srefix=$st_ICp*AGS L_STRING_srefixa _tuLc*var_ICp*srefix=$st_swd/$srefix"" axit \ c_var_srefix=$st_var_ICp*srefixeAspdeesnt# saVER$\ as_ Lc*[^/][^/ { t_s1as_ _r?;\ :[FHL]*b }_p_arcC eau nmodguAo INncftwareeFln _tux=' 'eva f1"$t_srefix/cftwareeFlgnum${ZSH_VER$\l; e -p n$$ .-_ pp1"$t_srefix/cftwareeFlgnum--ops=a $as_ sve n$el('$ any f1"$t_srefix/cftwareeFm${ZSH_VER$\l; e -p n$$ .-_ pp1"$t_srefix/cftwareeFm--ops=a $as_ sve n$elsw o ab.ou y oArun aedcsops2 noocftwareea,x csfgerimn e=cissoaO _eCfix$0iUn _rt # /de('$ _eCzedcs_Inzedce fsystcku-t <<\_ACEOF ' oftwareeFf# aec gener_ L "by $@%:. "=/ $o=2.67f Cfpyrn/de:-{o='N e fo-n$PATH_}doWsi n$$. 'ev.e sp,bjxxtLe:('${ { t_try="$st_L tnitm";; *)_((try" T 'hrr\"*" r*\`*" r*\\r,sTtdtry_.ou =\$st_try" a|;_;;Ttdtry_.ou =$st_try" axit \body=v="try_.ou ="\"\# WPATn#0]k,i"# "$ >/de:oWsi$v="try_.ou \"" .'N e f;oreAsptry_.ou ];$ >&5a|;(body="$st_L tnitm" en$$$. 'ev.czr t_s1as_ _r?VER('$ any s $$. 'ev.czr${ZSH_VER$\gre;r-v"'^ *+' $$. 'ev.czr $$$. 'ev.cz1VER$\ at $$. 'ev.cz1 >&5a|; mv n$$. 'ev.cz1 $$. 'ev.czr $exit lrfsystatu } $@%#0]k,i"# "$ >/de:oWsi\$?un p/sp'" >/d" >&5a|; anyp/sp'" >/dun 0;$ :s_e W( 'evalX` st_Lxx_w} $@%_NLIB][^/] $ any!brs $$. 'ev.czr } as_ a _psn$$. 'ev.e sp,bjxxt${ZSH_ : t_Aru"$$f0$.exe o ab.ou y oArun a`ln eobn /tan war:" >&5a} n^/| /'n$$. 'ev.e spxxt >&5a t_Aru"$$f1 $exitbody=e fo-n$PATH_}do; s2'$$]kAr fo-n$PATH_}doLun x :s_etatuN e fsy; un'---atuN e fs;} lf " '--p'" >/du$t_Aru"$$ } n$@%:ncS6nncxx_try_omtnitmh]n$@%:ncS6nnc_try_omtnitmt! xlFx$n$@%:nOouepue"`baseun ex@S|@0`e$n$@%:T"$sofeomtnitmt/ $o 'ev.o voi cexeiue'obAruntoo_. a`ln foll";ucceedyuggncS6nnc_try_omtnitmt_rfsystatuN e fsystck=$ a 'N e 1systckT _r0]k,i"# a >/de:-{o='N e fo-n$PATH_}doWsi n$$. 'ev.e sp,bjxxtLe:('${ { t_try="$st_L tnitm";; *)_((try" T 'hrr\"*" r*\`*" r*\\r,sTtdtry_.ou =\$st_try" a|;_;;Ttdtry_.ou =$st_try" axit \body=v="try_.ou ="\"\# WPATn#0]k,i"# "$ >/de:oWsi$v="try_.ou \"" .'N e f;oreAsptry_.ou ];$ >&5a|;(body="$st_L tnitm" en$$$. 'ev.czr t_s1as_ _r?VER('$ any s $$. 'ev.czr${ZSH_VER$\gre;r-v"'^ *+' $$. 'ev.czr $$$. 'ev.cz1VER$\ at $$. 'ev.cz1 >&5a|; mv n$$. 'ev.cz1 $$. 'ev.czr $exit lrfsystatu } $@%#0]k,i"# "$ >/de:oWsi\$?un p/sp'" >/d" >&5a|; anyp/sp'" >/dun 0;$ :s_e W( 'evalX` st_L_w} $@%_NLIB][^/] $ any!brs $$. 'ev.czr } as_ a _psn$$. 'ev.e sp,bjxxt${ZSH_ : t_Aru"$$f0$.exe o ab.ou y oArun a`ln eobn /tan war:" >&5a} n^/| /'n$$. 'ev.e spxxt >&5a t_Aru"$$f1 $exitbody=e fo-n$PATH_}do; s2'$$]kAr fo-n$PATH_}doLun x :s_etatuN e fsy; un'---atuN e fs;} lf " '--p'" >/du$t_Aru"$$ } n$@%:ncS6nnc_try_omtnitmh]n$@%:ncS6nnc_try_oppt! xlFx$n$@%:nOouepue"`baseun ex@S|$n$@%:T"$sofe ae ro_f#(t/ $o 'ev.o voi cexeiue'obAruntoo_. a`ln foll";ucceedyuggncS6nnc_try_oppt_rfsystatuN e fsystck=$ a 'N e 1systckT _r0]k,i"# a >/de:-{o='N e fo-n$PATH_}doWsi('${ { t_try="$st_Lppt$$. 'ev.e spxxt";; *)_((try" T 'hrr\"*" r*\`*" r*\\r,sTtdtry_.ou =\$st_try" a|;_;;Ttdtry_.ou =$st_try" axit \body=v="try_.ou ="\"\# WPATn#0]k,i"# "$ >/de:oWsi$v="try_.ou \"" .'N e f;oreAsptry_.ou ];$ >&5a|;(body="$st_Lppt$$. 'ev.e spxxt" en$$$. 'ev.czr t_s1as_ _r?VER('$ any s $$. 'ev.czr${ZSH_VER$\gre;r-v"'^ *+' $$. 'ev.czr $$$. 'ev.cz1VER$\ at $$. 'ev.cz1 >&5a|; mv n$$. 'ev.cz1 $$. 'ev.czr $exit lrfsystatu } $@%#0]k,i"# "$ >/de:oWsi\$?un p/sp'" >/d" >&5a|; anyp/sp'" >/dun 0;$ > $$. 'ev.i :s_e W( 'evalX` st_L_ ae ro__ws n_NLIB st_L_w} $@%_NLIB][^/] $ any!brs $$. 'ev.czr }${ZSH_ : t_Aru"$$f0$.exe o ab.ou y oArun a`ln eobn /tan war:" >&5a} n^/| /'n$$. 'ev.e spxxt >&5a _tuLc*Aru"$$f1 $exitbody=e fo-n$PATH_}do; s2'$$]kAr fo-n$PATH_}doLun x :s_etatuN e fsy; un'---atuN e fs;} lf " '--p'" >/du$t_Aru"$$ } n$@%:ncS6nnc_try_opph]n$@%:ncS6nnfc_try_omtnitmt! xlFx$n$@%:nOouepue"`baseun ex@S|@0`ee$n$@%:T"$sofeomtnitmt/ $o 'ev.o voi cexeiue'obAruntoo_. a`ln foll";ucceedyuggncS6nnfc_try_omtnitmt_rfsystatuN e fsystck=$ a 'N e 1systckT _r0]k,i"# a >/de:-{o='N e fo-n$PATH_}doWsi n$$. 'ev.e sp,bjxxtLe:('${ { t_try="$st_L tnitm";; *)_((try" T 'hrr\"*" r*\`*" r*\\r,sTtdtry_.ou =\$st_try" a|;_;;Ttdtry_.ou =$st_try" axit \body=v="try_.ou ="\"\# WPATn#0]k,i"# "$ >/de:oWsi$v="try_.ou \"" .'N e f;oreAsptry_.ou ];$ >&5a|;(body="$st_L tnitm" en$$$. 'ev.czr t_s1as_ _r?VER('$ any s $$. 'ev.czr${ZSH_VER$\gre;r-v"'^ *+' $$. 'ev.czr $$$. 'ev.cz1VER$\ at $$. 'ev.cz1 >&5a|; mv n$$. 'ev.cz1 $$. 'ev.czr $exit lrfsystatu } $@%#0]k,i"# "$ >/de:oWsi\$?un p/sp'" >/d" >&5a|; anyp/sp'" >/dun 0;$ :s_e W( 'evalX` st_fL_w} $@%_NLIB][^/] $ any!brs $$. 'ev.czr } as_ a _psn$$. 'ev.e sp,bjxxt${ZSH_ : t_Aru"$$f0$.exe o ab.ou y oArun a`ln eobn /tan war:" >&5a} n^/| /'n$$. 'ev.e spxxt >&5a t_Aru"$$f1 $exitbody=e fo-n$PATH_}do; s2'$$]kAr fo-n$PATH_}doLun x :s_etatuN e fsy; un'---atuN e fs;} lf " '--p'" >/du$t_Aru"$$ } n$@%:ncS6nnfc_try_omtnitmh]n$@%:ncS6nnc_try_ 2>/! xlFx$n$@%:nOouepue"`baseun ex@S|$n$@%:T"$sofes_e t/ $o 'ev.o voi cexeiue'obAruntoo_. a`ln foll";ucceedyug Assumes$n$@%:zdefadefaul to s *can*bearunggncS6nnc_try_ 2>/_rfsystatuN e fsystck=$ a 'N e 1systckT _r0]k,i"# a >/de:-{o='N e fo-n$PATH_}doWsi('${ { t_try="$st_s_e ";; *)_((try" T 'hrr\"*" r*\`*" r*\\r,sTtdtry_.ou =\$st_try" a|;_;;Ttdtry_.ou =$st_try" axit \body=v="try_.ou ="\"\# WPATn#0]k,i"# "$ >/de:oWsi$v="try_.ou \"" .'N e f;oreAsptry_.ou ];$ >&5a|;(body="$st_s_e " en$&5a|;t_s1as_ _r?VER lrfsystatu } $@%#0]k,i"# "$ >/de:oWsi\$?un p/sp'" >/d" >&5a|; anyp/sp'" >/dun 0;$ :s_e t_try='.// $o 'eve spxxeexeias { { ; *)_((try" T 'hrr\"*" r*\`*" r*\\r,sTtdtry_.ou =\$st_try" a|;_;;Ttdtry_.ou =$st_try" axit \body=v="try_.ou ="\"\# WPATn#0]k,i"# "$ >/de:oWsi$v="try_.ou \"" .'N e f;oreAsptry_.ou ];$ >&5a|;(body="$st_try" en$&5a|;t_s1as_ _r?VER lrfsystatu } $@%#0]k,i"# "$ >/de:oWsi\$?un p/sp'" >/d" >&5a|; anyp/sp'" >/dun 0;$ ;}${ZSH_ : t_Aru"$$f0$.exe o ab.ou y oArun an /tanzdei L "=>='" >/du$t_'" >/d" >&5a|; o ab.ou y oArun a`ln eobn /tan war:" >&5a} n^/| /'n$$. 'ev.e spxxt >&5a _tu_tuLc*Aru"$$fp/sp'" >/de$exit rn$$. 'ev.dSYMn$$. 'ev_ipa8_$$. 'ev.ooxitbody=e fo-n$PATH_}do; s2'$$]kAr fo-n$PATH_}doLun x :s_etatuN e fsy; un'---atuN e fs;} lf " '--p'" >/du$t_Aru"$$ } n$@%:ncS6nnc_try_ 2>h]n$@%:ncS6nnc_omtnute_OLO/! xlFx EXPR VAR INCLUDES$n$@%:nOouepue"`baseun ex@S|@0`e:oue"`baseun ex@S|$n$@%:T" n#".nTfa_fn hanomtnitm-xf90 A#w ofyEXPR () n /tan zdefa fdirec$n$@%:INCLUDES,==fto-_lVAR accorLo-_ly. Rruntoso_. a`ln fo0 A#w cFS; IFS 6nnc_omd n$@%:ncS6nnc_omtnute_ 2>/_rfsystatuN e fsystck=$ a 'N e 1systckT _r0]k,i"# a >/de:-{o='N e fo-n$PATH_}doWv_x=' 'VER$\ Pn#n_omtnES_al-nv.czr${ZSH_# Da_ -f==fup'abc:ngsize, 6nnc_omssR.nTocexeihi bs fsEmacR$\ atdefs.h -|*u-t <<_v.czr $$$. 'ev.e /* ots=\ atdefs.h.ookr $4 nut mairy_ 2>/ '--icmfs)Wv_x=_array TATU1 -|2 * ! *2) > >/)'/pp; v_x=_array TATU0'/pp" >/t >&_tryue'obAr0; }yaliza_AdoWdyuggncS6nnc_try_omt"# "$ >"$ ;}${ZSH_ : lo=0_ : midru" unt_omt:X CXXq_z1VER$\ atdefs.h -|*u-t <<_v.czr $$$. 'ev.e /* ots=\ atdefs.h.ookr $4 nut mairy_ 2>/ '--icmfs)Wv_x=_array TATU1 -|2 * ! *2) /t >&_tryue'obAr0; }yaliza_AdoWdyuggncS6nnc_try_omt"# "$ >"$ ;}${ZSH_ : hi=$?unmid_ _r?;\ n$$.ex} lar L "$?unmid + 1efix lo-{o='t_Ar doWv_x='ody="o -le $?unmid_ czr${ H_ : lo=_ : hi={ H__r?;\ >/ x} lar L "2 '*'"$?unmid + 1efix midr{o='t_Ar >/doWsi re^ *+' $$. 'ev _psn$$. 'ev.e sp,/| /'n$$. 'ev.e akb }_p_n$$.eVER$\ atdefs.h -|*u-t <<_v.czr $$$. 'ev.e /* ots=\ atdefs.h.ookr $4 nut mairy_ 2>/ '--icmfs)Wv_x=_array TATU1 -|2 * ! *2) <>/)'/pp; v_x=_array TATU0'/pp" >/t >&_tryue'obAr0; }yaliza_AdoWdyuggncS6nnc_try_omt"# "$ >"$ ;}${ZSH_ : hi=-1x midr-1" unt_omt:X CXXq_z1VER$\ atdefs.h -|*u-t <<_v.czr $$$. 'ev.e /* ots=\ atdefs.h.ookr $4 nut mairy_ 2>/ '--icmfs)Wv_x=_array TATU1 -|2 * ! *2) >i\$?unmid)'/pp; v_x=_array TATU0'/pp" >/t >&_tryue'obAr0; }yaliza_AdoWdyuggncS6nnc_try_omt"# "$ >"$ ;}${ZSH_ : lo=$?unmid_ _r?;\ n$$.ex} lar L "'('"$?unmid ')' -|1efix hi=$?='t_Ar doWv_x='ody=mid -le $?unhi_ czr${ H_ : lo=_ : hi={ H__r?;\ >/ x} lar L "2 '*'"$?unmid fix midr{o='t_Ar >/doWsi re^ *+' $$. 'ev _psn$$. 'ev.e sp,/| /'n$$. 'ev.e akb }_p_n$$.e : lo=_ : hi={ >/doWsi re^ *+' $$. 'ev _psn$$. 'ev.e sp,/| /'n$$. 'ev.e a >/doWsi re^ *+' $$. 'ev _psn$$. 'ev.e sp,/| /'n$$. 'ev.e a# Binr_f#se. f Fmwe}${Tocexeihi bs fsEmnt_omtasdo s2'$$]loFLAGS-n : hi"X CXXq_x} lar L "'('"$?unhi -'ody="o ')' /"2 +'ody="o fix midr{o='t_Ar.eVER$\ atdefs.h -|*u-t <<_v.czr $$$. 'ev.e /* ots=\ atdefs.h.ookr $4 nut mairy_ 2>/ '--icmfs)Wv_x=_array TATU1 -|2 * ! *2) /t >&_tryue'obAr0; }yaliza_AdoWdyuggncS6nnc_try_omt"# "$ >"$ ;}${ZSH_ : hi=$?unmid n$$.ex} lar L "'('"$?unmid ')' + 1efix lo-{o='t_Ar >/doWsi re^ *+' $$. 'ev _psn$$. 'ev.e sp,/| /'n$$. 'ev.e a }_p_o# Wu-$t"o iry IFS(( ?" a5a|;(bo3_.ou =ly_.o : t_Arurefi'')a _tuLc*Arurefix"" ave n$elswVER$\ atdefs.h -|*u-t <<_v.czr $$$. 'ev.e /* ots=\ atdefs.h.ookr $4 '--icmECoo fs)WECooa|;(() x ue'obAr$2brea '--icmfsyign>&5ECoo fs)WuECooa|;(() x ue'obAr$2brea IFSs=sa IFSs=sanut mairy_ 2>/$el $ins*f" >f ("czr $$$. mp/s, "w");H_}doW(! pr--nf)ue'obAr1;H_}doW( *2) <>/)--nf){ >&5a ECoo fs)Wi" >ECooa|;(()"_;;buildoW(iLAGS *2)) ue'obAr1;H_}0iUn A#ouoW(f, "%lds, i)"_;;bu}ave n$elsw{ >&5a fsyign>&5ECoo fs)Wi" >uECooa|;(()"_;;buildoW(iLAGS *2)) ue'obAr1;H_}0iUn A#ouoW(f, "%lus, i)"_;;bu}ave/* Dccccdo >2;H.a#(s_ trainewN e ,(g-da`ln caus%:T\r\n=\ atusvax\$$]k 'abswhcplat csfs.ookr f)ue'obArfLS6nn}(f)*swdfcl (f)*! >/dt >&_tryue'obAr0; }yaliza_AdoWdyuggncS6nnc_try"# "$ >"$ ;}${ZSH_ o ab>>czr $$$. mp/;ccccc $3 bb. > y='.// $o 'eve spxiE * _psn$$. 'ev.e sp,/| /'n$$. ben czr $$$. 'ev.e doWsi n$$. t_Aru.czr ooxitbody=e fo-n$PATH_}do; s2'$$]kAr fo-n$PATH_}doLun x :s_etatuN e fsy; un'---atuN e fs;} lf " '--p'" >/du$t_Aru"$$ } n$@%:ncS6nnc_omtnuty_ 2>h]n$@%:ncS6arc_ssr\c_try_omtnitmt! HEADEx EXPR VAR INCLUDES$n$@%:nOouepue"`baseun ex@S|@0`e:oue"`baseun ue"`baseun ex@S|$ndo;runtoso_. HEADEx exio;ruexei]kMsb_fn hanomdobjs'pyt'= ft s,ae ft s, =thirec$n$@%:INCLUDES,==ffa_fnwar-uascta%[^[to-_lVAR accorLo n$@%:ncS6arc_ssr\c_try_omt_ 2>/_rfsystatuN e fsystck=$ a 'N e 1systckT _r0]k,i"# a >/de:-{o='N e fo-n$PATH_}{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$2 war:"r?VER lr_ry"ceC-c ea eau$2eall war6breadoW5a|;(b}do; ou ={$3"dev}\"H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.eVER$\ atdefs.h -|*u-t <<_v.czr $$$. 'ev.e /* ots=\ atdefs.h.ookr $4 IFSs=syaliza_AdoWdyuggncS6nnc_try_omt"# "$ >"$ ;}${ZSH_5a|;(bo3_yes"_n$$.e5a|;(bo3_no"{ >/doWsi re^ *+' $$. 'ev _psn$$. 'ev.e sp,/| /'n$$. 'ev.e a >/xit \bodres A#3 dexpr _}{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" >/du$s war:"r?VER lr(body=u$s war6breakbooxitbody=e fo-n$PATH_}do; s2'$$]kAr fo-n$PATH_}doLun x :s_etatuN e fsy; un'---atuN e u"$$ } n$@%:ncS6arc_ssr\c_try_omy_opph]n$@%:ncS6nnfc$sofenitmt! xlFx$n$@%:nOouepue"`baseun exex@S|$n$@%:T"$sofes_e t/ $o 'ev.o voi cexeiue'obAruntoo_. a`ln foll";ucce n$@%:ncS6nnfc$sofenitmt_rfsystatuN e fsystck=$ a 'N e 1systckT _r0]k,i"# a >/de:-{o='N e fo-n$PATH_}doWsi n$$. 'ev.e sp, y='.// $o 'eve spxH_}doWsi('${ { t_try="$st_s_e ";; *)_((try" T 'hrr\"*" r*\`*" r*\\r,sTtdtry_.ou =\$st_try" a|;_;;Ttdtry_.ou =$st_try" axit \body=v="try_.ou ="\"\# WPATn#0]k,i"# "$ >/de:oWsi$v="try_.ou \"" .'N e f;oreAsptry_.ou ];$ >&5a|;(body="$st_s_e " en$$$. 'ev.czr t_s1as_ _r?VER('$ any s $$. 'ev.czr${ZSH_VER$\gre;r-v"'^ *+' $$. 'ev.czr $$$. 'ev.cz1VER$\ at $$. 'ev.cz1 >&5a|; mv n$$. 'ev.cz1 $$. 'ev.czr $exit lrfsystatu } $@%#0]k,i"# "$ >/de:oWsi\$?un p/sp'" >/d" >&5a|; anyp/sp'" >/dun 0;$ :s_e W( 'evalX` st_fL_w} $@%_NLIB][^/] $ any!brs $$. 'ev.czr } as_ a _psn$$.o 'eve spxi0;$ :s_e W 'VER$\ Pn#n_omtnES_al-nNLIB][ystav_x=_x y='.// $o 'eve spxH_}zr }${ZSH_ : t_Aru"$$f0$.exe o ab.ou y oArun a`ln eobn /tan war:" >&5a} n^/| /'n$$. 'ev.e spxxt >&5a t_Aru"$$f1 # DaS=arifa_fIPA/IPO r Pe aedur|;(Analysis/EOF mFasc_le)a,x csfgerimf1 # A#ouper_ Lfa_fPGIo--boiomtn(dSYMn$$. 'ev_ipa8_$$. '),(g-dieriguldf1 # c_#ifsr,ei L "fa_fn.e s$sofes_mfnas;c lsalu'S=ariade-= "ha x,/tan zalFxCOlefIX yh".nT_ LApple'\ Pn#n omt.ooWe_a=$a`ln bef re^zdefad==ffa_fac/cnea,xde$exit rn$$. 'ev.dSYMn$$. 'ev_ipa8_$$. 'ev.ooxitbody=e fo-n$PATH_}do; s2'$$]kAr fo-n$PATH_}doLun x :s_etatuN e fsy; un'---atuN e fs;} lf " '--p'" >/du$t_Aru"$$ } n$@%:ncS6nnfc$softnitmh]n$@%:ncS6nnc$sofenitmt! xlFx$n$@%:nOouepue"`baseun eex@S|$n$@%:T"$sofes_e t/ $o 'ev.o voi cexeiue'obAruntoo_. a`ln foll";ucce n$@%:nS6nnfc$sofenitmt_rfsystatuN e fsystck=$ a 'N e 1systckT _r0]k,i"# a >/de:-{o='N e fo-n$PATH_}doWsi n$$. 'ev.e sp, y='.// $o 'eve spxH_}doWsi('${ { t_try="$st_s_e ";; *)_((try" T 'hrr\"*" r*\`*" r*\\r,sTtdtry_.ou =\$st_try" a|;_;;Ttdtry_.ou =$st_try" axit \body=v="try_.ou ="\"\# WPATn#0]k,i"# "$ >/de:oWsi$v="try_.ou \"" .'N e f;oreAsptry_.ou ];$ >&5a|;(body="$st_s_e " en$$$. 'ev.czr t_s1as_ _r?VER('$ any s $$. 'ev.czr${ZSH_VER$\gre;r-v"'^ *+' $$. 'ev.czr $$$. 'ev.cz1VER$\ at $$. 'ev.cz1 >&5a|; mv n$$. 'ev.cz1 $$. 'ev.czr $exit lrfsystatu } $@%#0]k,i"# "$ >/de:oWsi\$?un p/sp'" >/d" >&5a|; anyp/sp'" >/dun 0;$ :s_e W( 'evalX st_fL_w} $@%_NLIB][^/] $ any!brs $$. 'ev.czr } as_ a _psn$$.o 'eve spxi0;$ :s_e W 'VER$\ Pn#n_omtnES_al-nNLIB][ystav_x=_x y='.// $o 'eve spxH_}zr }${ZSH_ : t_Aru"$$f0$.exe o ab.ou y oArun a`ln eobn /tan war:" >&5a} n^/| /'n$$. 'ev.e spxxt >&5a t_Aru"$$f1 # DaS=arifa_fIPA/IPO r Pe aedur|;(Analysis/EOF mFasc_le)a,x csfgerimf1 # A#ouper_ Lfa_fPGIo--boiomtn(dSYMn$$. 'ev_ipa8_$$. '),(g-dieriguldf1 # c_#ifsr,ei L "fa_fn.e s$sofes_mfnas;c lsalu'S=ariade-= "ha x,/tan zalFxCOlefIX yh".nT_ LApple'\ Pn#n omt.ooWe_a=$a`ln bef re^zdefad==ffa_fac/cnea,xde$exit rn$$. 'ev.dSYMn$$. 'ev_ipa8_$$. 'ev.ooxitbody=e fo-n$PATH_}do; s2'$$]kAr fo-n$PATH_}doLun x :s_etatuN e fsy; un'---atuN e fs;} lf " '--p'" >/du$t_Aru"$$ } n$@%:nS6nnfc$softVER$.czr ig.log|*u-t <<_Asnc. feomtnit=sIhruexylYS,'"fpdln educper_ LPn#n omtsunt_om runrf tuczr igure,# aecidtsym'N st_dgfuczr igure s rue mi '-ke. Ita,x c A#ouper_ LCEOFou y oareeFf,unt_cha,x # aec gener_ L "by $@%:. "=/ $o.ooInv-nf"cneas_mfnass$soea,x #$.exkshd$@ yaliza_As :s_5>.czr ig.logtmt'*\|*u-tSUNAMEf. ##h# ex@n_ f. #Plat csfcn_ f. ##h# ex@RROR"$_uno: 'X= `($_uno: 'X|| fs: 'X\n)e_ssed /^X\(.* sa q1q` fs: 'X\mX= `(fs: 'X\m)e_ssed /^X\(.*|_ o abunknown` fs: 'X\rX= `(fs: 'X\r)e_ssed /^X\(.*|_ o abunknown` fs: 'X\sX= `(fs: 'X\s)e_ssed /^X\(.*|_ o abunknown` fs: 'X\vX= `(fs: 'X\v)e_ssed /^X\(.*|_ o abunknown` gcc [bin/fs: 'X\pX= `(gcc [bin/fs: 'X\p)e_ssed /^X\(.*|_ o abunknown` [bin/fs: 'X\`lnCXX= `(gbin/fs: 'X\`)e_ssed /^X\(.....*|_ o abunknown` gbin/. ffffffffffffff= `(gbin/. )e_ssed /^X\(..............*|_ o abunknown` [cc [bin/. f-kfffffff= `(gcc [bin/. f-k)e_ssed /^X\(.......*|_ o abunknown` [cc [czrvex/getsysicccc= `(gcc [czrvex/getsysiccc)e_ssed /^X\(.*|_ o abunknown` [cc [bin/$_uniccccfffff= `(gcc [bin/$_uniccc)e_ssed /^X\(......*|_ o abunknown` [bin/_s e-macffffffffff= `(gbin/_s e-ma)e_ssed /^X\(...........*|_ o abunknown` [cc [bin/oslevel cfffff= `(gcc [bin/oslevel)e_ssed /^X\(.......*|_ o abunknown` [bin/fsizedceffffffffff= `(gbin/fsizedce)e_ssed /^X\(..........*|_ o abunknown` -tSUNAMEf u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"19p -p.'N e : vas_f srakb }_p_IFS=$u ysave_IFS" u ];$ tVER$.&5|*u-t <<_Al` dw"h# ex@S|n_ f. #C re^&5a|scn_ f. ##h# ex@S|RROR"-t <<_Al` KeR$\a#(scc c_#i.2s_mfnass$soerefiStripo >s -n, --no-l2nass -n, ops=a $'absw_#i.ys'N< 1" eomtuprefiStripo >s -t, --E becaus% wee -*" r---E xa'hr-=>out-*" r--=>-c__*") dexprx=.a;; *)czr igure_ ss0 " aul r"""""; *)czr igure_ ss1"*" ' f;o r-n "* RING<)\ :[ " n ex-- " n " -* RIn$@mu$. keR$_n.e =true ex-- xpra.czr ) n$$ a sassn$@czr igure_ ss " ' f;o r-nv_;;builev'" n ex-- xp }_p_ }_p_{sn$@czr igure_ ss0 e fsy; un$@czr igure_ ss0 e {sn$@czr igure_ ss1 e fsy; un$@czr igure_ ss1 e uwd)`wea c_#irupener.."xit'd, cleanupWv_mpol&5a4.'N 3,"19p -p.'N e. ##h# ex@S|@0`e:n_ f. #Cwar-uascta%[^scn_ f. ##h# ex@S|@0`e:n_ " >&5a4.'N >&5a=_ L$ =.leetraiwdisb_Anri,==ffa_fnwar-umi hexe s, newN e s4RATpgiues, ( L =. nmodv="de`(y; _try"1t# sa q_--'\''s/^\([a-zA-Z_][a-zA-Z0-9_ W =.*Retup'\''`X CXXq_z1rfs_ body=v="delrilav="d_a|*\|*u-$tmp/spoevSoa| s*} $@%nl}*"$*/ ) ''")*u-$tmp/spodvSoa| sed*dy=v*)}{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deun aedcsnwar-uascta%[^[u-$tmp/snit=sIhrue newN e war:"r?VER lr(bod y oArun aedcsnwar-uascta%[^[u-$tmp/snit=sIhrue newN e war2;}x_"_;;builex-- xpra.c''")*u-$tmp/spodvSoa| sed_t# IFS ecmranla"$ndvSoa| sedBASH_ARGV ecBASH_SOURCE)p -pbody=e s"$ndvSoa| sed*)}{_ -pbody=e se fsy; ubody=e ;}x_"_;;builex--lev'" n ex-- xp }_p_ (y; _try"1t#="d_a|*\|*u-ranl`( anypsc='\''#'\''; y; _try"1`spoevSoa| s*} $@%nl} anypsc=\ *"$*/ ) sa q_--$ra"s/'\''/'\''\\\\'\'''\''/g;oas_rb^\\([ r*[!$e 7<&0ta>dy=v[ r*[!$e 7<&0ta>\W =\ LSo\)/\\1='\''\\2'\''/pv_;;builevevSoa| s*"$*/ ) sa q_--"/^[ r*[!$e 7<&0ta>dy=v[ r*[!$e 7<&0ta>=/pv_;;builev'" n ex--udirdf^_ort ) >&5a4.'N 3,"19p -p.'N e. ##h# ex@S|@0`e::n_ f. #O >2;H.ascta%[^scn_ f. ##h# ex@S|@0`e::n_ " >&5a4.'N >&5axit \$modv="devSoasub$. s CX >&5aCXXq_z1z1rfs_ body=v="delrilav="d_a_a|*\|*u-$tmp/spody=oobu*\'\''" a|;_$ ac ris=4.'N e f;oXp/sp# sa q"s/'\''/'\''\\\\\\\\'\'''\''/g"`_"_;;builex-- xpra.cris=4.'N e f;oXpr='\'' f;oXp/'\''" >&5aCXn-uE _ort >&5a4.'N 3,"1 'ev_x=' 'eva ptsub$. urc-sareeFm${ZSH_VE9p -p.'N e. ##h# ex@S|@0`e::::n_ f. #Fpr--sub$.itu/cnea,n_ f. ##h# ex@S|@0`e:oWsn_ " >&5a5a4.'N >&5a5axit \$modv="devSoasub$. nTtdn =thecpCXX rfs_ body=v="delrilav= |*\|*u-$tmp/spod *\'\''" a|;_$ ac ris=4.'N e f;oXp/sp# sa q"s/'\''/'\''\\\\\\\\'\'''\''/g"`_"_ ex-- ris=4.'N e f;oXpr='\'' f;oXp/'\''" >&5a5aCXn-uE _ort >&5a5a4.'N >&5axi 3,"1 'ev_x=' s=\ atdefs.hreeFm${ZSH_VE9p -p.'N e. ##h# ex@S|n_ f. #\ atdefs.h.o_ f. ##h# ex@S|RRO" >&5a5a4.'N >&5a5aVER$\ atdefs.h >&5a5a4.'N >&5axi >&5a_e W 'Soasignp/sp! >/s='cp -p n$$ .'N e f;oreArcauro signp/ 'Soasignp/s -p n$$ .'N e f;oreAr' :s_,xit t_ss -pu ];$ >doWsi re^*. re^ *re.czr $$$. * ='cp -pdoWsi-ev _psn$$.*$\ atdefs*$\ at$$* 'Soaclean nTtdn ='cp -p' :s_,xit t_s ' 0$=. nmsignp/ "fi1 2 13 15X CXXq_(sp 'nmsignp/=''Soasignp/'; n$$ a' :s_1' 'Soasignp/_ }_p_nmsignp/=0 #\ atdefs.h avoids OSas_mfnass$soea r-gL "es unv o #dDEFS ]kMsexl";u. doWsi-ev _psn$$.*$\ atdefs.h "r?VER lr(b/*$\ atdefs.h */" 0;$ >defs.h "# PredefeterC/C++ ae ro_fmfull; (uaneVER$.>\ atdefs.h *u-t <<_A$ }defete YFISAGE_NAME e YFISAGE_NAME""-t <<_AlVER$.>\ atdefs.h *u-t <<_A$ }defete YFISAGE_Tn AME e YFISAGE_Tn AME""-t <<_AlVER$.>\ atdefs.h *u-t <<_A$ }defete YFISAGE_VERSION e YFISAGE_VERSION""-t <<_AlVER$.>\ atdefs.h *u-t <<_A$ }defete YFISAGE_STRaed e YFISAGE_STRaed""-t <<_AlVER$.>\ atdefs.h *u-t <<_A$ }defete YFISAGE_BUGREPORT e YFISAGE_BUGREPORT""-t <<_AlVER$.>\ atdefs.h *u-t <<_A$ }defete YFISAGE_URL e YFISAGE_URL""-t <<_Al` L `==fsite ft s salccob, INl_#iOLt_fnwar-uft s 'ei$oLL= :T" ."# Prefer kMsexpliVit d-.alccoerCft s susautofgercal d-.alccoerC}_ps._nmsitiqun1=ild _nmsitiqun2=ild _ 'ev_x=' 'evaCONFIG_SITE_ svel${ZSH_We_a=$o=eriL= #a #se. fndexlue ig.sitcr_a|*\|*uCONFIG_SITE iry IFS(( p -p-$$. x_;sitiqun1=./uCONFIG_SITEbu*/" a|;_sitiqun1=uCONFIG_SITEbu*ld xx_;sitiqun1=./uCONFIG_SITEry" ax annel('$ aGS L_SCPPFLmild efix e fsystcitiqun1=unfis'NbEFIX|/lue ig.sit fsystcitiqun2=unfis'Nbetc/lue ig.sit n$$.exe itiqun1=ua \`e sp`nfis'NbEFIX|/lue ig.sit fsystcitiqun2=ua \`e sp`nfis'Nbetc/lue ig.sit CON . nmsitiqun iry 'Soasitiqun1"y 'Soasitiqun2"ml_ L asdo s2'$$]sitiqunH_}doild xn x: as :[FHLannel('$sed /^X\(.!=y 'Soasitiqunrefix as_ a 'SoasitiqunrreeFm${ZSH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deloaf==fsite reeFf "'Soasitiqunrear:"r?VER lr(bod y oArloaf==fsite reeFf "'Soasitiqunrear6;L]*b } >&5a} n^/ 'Soasitiqunre.cz1 >&5./ 'Soasitiqunre\cp -p swdl {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de_fL_w: iryfouo#\pwd':rear:"r?VER lr(bod y oAr_fL_w: iryfouo#\pwd':rear2;} aras_ LS6nn} $@%un a`l:T"$oaffsite reeFf "'Soasitiqun VA. CEOF \ c.log'fndexm re^de=sIls"t"# "$ >" 5breakbCONdev}So 'ev_x=' a 'nwar-iqunrreeFm${ZS# gi)_ zedcs_I0]}",bashs= '"un antby hangosed /^X\(.(exn "p/ nTtdn =t#fac/ual ditmfo weeavoid_a===ffaat. DJGPP emula-ls4R un'#a regula\ ##in.FHLannel('$sed /^X\(.!=y 'nwar-iqunrefix as_fa 'nwar-iqunrreeFm${ZSH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deloaf==fnwar-u'nwar-iqunrear:"r?VER lr(bod y oArloaf==fnwar-u'nwar-iqunrear6;L]*b }|*\|*unwar-iqunspody=oobu" a|;FS; IFS r?:FS; .a 'nwar-iqunrr"_;;buil*ld xxxxxxxxxxxxxxxxxxxx.a _prnwar-iqunrr"_;;buex-- xp.. n$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/dec-no-==fnwar-u'nwar-iqunrear:"r?VER lr(bod y oArc-no-==fnwar-u'nwar-iqunrear6;L]*b>'nwar-iqun-nxl` p_arcC o #dsR.nT _eCstbt sss, s alsaved4RATfss_nwar-u L= {kep`==fsameuwdpgiuee n$@cwar- *rrupene=fa$f0$=. nmodv="devSoaO _eCstbas CXX CXXq_ LS`#bodold"dev}@%aody=v="cv"env_${v="devXq_ LS`#bodnew"dev}@%aod="cv"env_${v="devXq_ LS`#bodold"y=v="daody=v="cv"env_${v=">=noo A LS`#bodnew"y=v="daod="cv"env_${v=">=noo A|*\|*u-$told"dev,$bodnew"devspody=oodev,"$*/ ) {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de_fL_w: fouo#\${v'a,x clsr,o fouo#\old"y=v'4RATfss_O _vCstbtrunrear:"r?VER lr(bod y oAr_fL_w: fouo#\${v'a,x clsr,o fouo#\old"y=v'4RATfss_O _vCstbtrunrear2;L]*b }s=.tcwar- *rrupene=:lev'" n ,y; _$*/ ) {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de_fL_w: fouo#\${v'a,x cccdo evspoTfss_O _vCstbtrunrear:"r?VER lr(bod y oAr_fL_w: fouo#\${v'a,x cccdo evspoTfss_O _vCstbtrunrear2;L]*b }s=.tcwar- *rrupene=:lev'" n ,)bu*l_;;buildoWv_x='s2'$$]old"y=vFLAGS-n : new"y=vrreeFm${ # diffsr,nngourc-w rypsc_a=$o=erlccc " n#n ftwar $$]old"y=v_w=`R lr(x '$$]old"y=v`r $$]new"y=v_w=`R lr(x '$$]new"y=v`r 'ev_x=' 'evaold"y=v_w".!=y 'Soanew"y=v_wrreeFm${ {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de_fL_w: fouo#\${v'ahx c hangeffsitdd fss_O _vCstbtrun:rear:"r?VER lr(bod y oAr_fL_w: fouo#\${v'ahx c hangeffsitdd fss_O _vCstbtrun:rear2;L] s=.tcwar- *rrupene=: $$f0$ {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de ro_==:uo-_l traiw rypsc_ hanges iryfouo#\${v'asitdd fss_O _vCstbtrun:rear:"r?VER lr(bod y oAr ro_==:uo-_l traiw rypsc_ hanges iryfouo#\${v'asitdd fss_O _vCstbtrun:rear2;L] s -pbody=e s\'evaold"y=v >/ {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de5axitmerdpgiuede5fouo#\old"y=v'rear:"r?VER lr(bod y oAr5axitmerdpgiuede5fouo#\old"y=v'rear2;L] {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de5acurrironm/iuedefouo#\new"y=v'rear:"r?VER lr(bod y oAr5acurrironm/iuedefouo#\new"y=v'rear2;L]*b }sfiry" a=t#fP".nTT _eCstbt sss, s al_odczr ig. t_s.FHLannel('$"$bodnew"devH_}ddev$ ;}$="d_a|*\|*u-$tnew"y=vspody=oo*\'*"n$ r--body=e s ris=4.'N e f;onew"y=vrt# sa q"s/'/'\\\\\\\\''/g"`dev'" n *"n$ r--body=e su-$tnew"y=vsev'" n ex-- xpraVE# W" *)czr igure_ ss "spody=oobu*" ' f;o r-n "*a"$ndv Avoid_aups.ooIBp`}",quo-ls4ensftwaraccuracy._;;buil*ldn$$ a sassn$@czr igure_ ss " ' f;o r-nv r"_;;buex-- xp.. dev}S >/de('cwar- *rrupene$ ;}$="d{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de_fL_w: iryfouo#\pwd':rear:"r?VER lr(bod y oAr_fL_w: iryfouo#\pwd':rear2;} "d{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de_fL_w: hanges iryfss_t_heaenvironcFmo--boromi eosd_ICp*rear:"r?VER lr(bod y oAr_fL_w: hanges iryfss_t_heaenvironcFmo--boromi eosd_ICp*rear2 e fs;} lLS6nn} $@%_tryul=,_\`fpy,clean'=exe/fan $rmu'nwar-iqun' '-.Redazo"t"# "$ >" 5-nxl. ##h# ex@S|@0`e:oWsio_ f. #Mairybodisb_AreeFf cn_ f. ##h# ex@S|@0`e:oWsiRROR"aev.e = axitcpp='$Bp`l$y>`lniti' n$@cz#n om='$BC -cl$y`lnFCA$y>`lniti/| /'n$$. 'ev.e spxx' n$@$sof='$BC -oa _psn$$.o 'eve spxi$y`lnFCA$y>`lniti/$Bp`lnFLA| /'n$$. 'ev.e s$ >`lnpxx' n$@Pn#n omtRltn=daody=v$@Pn#n omtRltn Al` Re evsexio;trai/C++ ae rc ea tmfnNtouch ./srIR/ s_defete.h doW./srIR/ s_defete.h touch ./srIR/ s_defete.h l` >/,eexps 'c "ry grabb==ffa --boiomtn sav ft s, use_boi=no ex@S|$_arcCuntoo_. O]_p_--'liasa,x cn e=n.? 'ev_x=' '{_p_--'_boi"dev}H_}ddev$ ;}${ZSH__p_--'c*Aru_p_--'_boi; doWv_x='s2'_p_--'c*AH_}dol-nv.czr${ZSH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de***p_arcC eaunax,,eex:T"$sofeomtnass$sokt uL "***rear:"r?VER lr(bod y oAr***p_arcC eaunax,,eex:T"$sofeomtnass$sokt uL "***rear6;L] n$elsw{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de***pFt s, 6arc >/$$]kMsus%f'_p_--'c*Ax:T"$sofeomtnass$sokt uL "***rear:"r?VER lr(bod y oAr***pFt s, 6arc >/$$]kMsus%f'_p_--'c*Ax:T"$sofeomtnass$sokt uL "***rear6;L]nxl. 6arc eauXn-u c_#i.2=.leetrai,eexfpy,cdist>=#ec# O sa,ee` LAM,ee` ,eeCH` ,eeCH2 # c_#l ,ee` sun ClusterTools (tmcc,tmCC,tmf77,tmf90)` ibm (IBM4sa (mpcc_r,mpCC_r,mpxlf_r)efiM nyu c_#isoe =reva2;T'evax\ L= {UREc( sa--ardg doWv_x='s2'_p_--'c*AH_}do o'v.czr${ZSH_# Ex(sct eosdft s, w rdd c_"ich,c"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynich,c;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCC"efix e fsysty=v ()_,eeCC=va,eeCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCC=vich,c" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCCrefix c=v ()_,eeCC=vno"{ >/ >/,eeCC=valX =v ()_,eeCC 'ev_x=' 'eva,eeCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCCrear:"r?VER lr(bo,eeCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTich,c1=. O sa,ee"t"# "$ >" 5-n$$.eCC=va,eeCC" xi >&5a# Ex(sct eosdft s, w rdd c_"ich,++"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynich,++;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCXX"efix e fsysty=v ()_,eeCXX=va,eeCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCXX=vich,++" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCXX" fix c=v ()_,eeCXX=vno"{ >/ >/,eeCXX=valX =v ()_,eeCXX 'ev_x=' 'eva,eeCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCXX" ar:"r?VER lr(bo,eeCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCXX" }do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTich,++1=. O sa,ee"t"# "$ >" 5-n$$.eCXX=va,eeCXX" xi >&5a# Ex(sct eosdft s, w rdd c_"ichf90"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichf90;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeFC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeFC"efix e fsysty=v ()_,eeFC=va,eeFC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeFC=vichf90" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeFCrefix c=v ()_,eeFC=vno"{ >/ >/,eeFC=valX =v ()_,eeFC 'ev_x=' 'eva,eeFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeFCrear:"r?VER lr(bo,eeFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeFCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichf901=. O sa,ee"t"# "$ >" 5-n$$.eFC=va,eeFC"a >/xldoWv_x='s2'_p_--'c*AH_}dolam o'v.czr${ZSH_# Ex(sct eosdft s, w rdd c_"ich,c"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynich,c;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCC"efix e fsysty=v ()_,eeCC=va,eeCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCC=vich,c" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCCrefix c=v ()_,eeCC=vno"{ >/ >/,eeCC=valX =v ()_,eeCC 'ev_x=' 'eva,eeCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCCrear:"r?VER lr(bo,eeCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTich,c1=. LAM/,ee"t"# "$ >" 5-n$$.eCC=va,eeCC" xi >&5a# Ex(sct eosdft s, w rdd c_"ichCC"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichCC;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCXX"efix e fsysty=v ()_,eeCXX=va,eeCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCXX=vichCC" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCXX" fix c=v ()_,eeCXX=vno"{ >/ >/,eeCXX=valX =v ()_,eeCXX 'ev_x=' 'eva,eeCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCXX" ar:"r?VER lr(bo,eeCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCXX" }do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichCC1=. LAM/,ee"t"# "$ >" 5-n$$.eCXX=va,eeCXX" xi >&5a# Ex(sct eosdft s, w rdd c_"ichf90"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichf90;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeFC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeFC"efix e fsysty=v ()_,eeFC=va,eeFC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeFC=vichf90" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeFCrefix c=v ()_,eeFC=vno"{ >/ >/,eeFC=valX =v ()_,eeFC 'ev_x=' 'eva,eeFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeFCrear:"r?VER lr(bo,eeFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeFCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichf901=. LAM/,ee"t"# "$ >" 5-n$$.eFC=va,eeFC"a >/xldoWv_x='s2'_p_--'c*AH_}doich,hv.czr${ZSH_# Ex(sct eosdft s, w rdd c_"ich,c"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynich,c;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCC"efix e fsysty=v ()_,eeCC=va,eeCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCC=vich,c" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCCrefix c=v ()_,eeCC=vno"{ >/ >/,eeCC=valX =v ()_,eeCC 'ev_x=' 'eva,eeCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCCrear:"r?VER lr(bo,eeCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTich,c1=. ,eeCH"t"# "$ >" 5-n$$.eCC=va,eeCC" xi >&5a# Ex(sct eosdft s, w rdd c_"ichCC"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichCC;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCXX"efix e fsysty=v ()_,eeCXX=va,eeCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCXX=vichCC" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCXX" fix c=v ()_,eeCXX=vno"{ >/ >/,eeCXX=valX =v ()_,eeCXX 'ev_x=' 'eva,eeCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCXX" ar:"r?VER lr(bo,eeCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCXX" }do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichCC1=. ,eeCH"t"# "$ >" 5-n$$.eCXX=va,eeCXX" xi >&5a# Ex(sct eosdft s, w rdd c_"ichf90"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichf90;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeFC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeFC"efix e fsysty=v ()_,eeFC=va,eeFC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeFC=vichf90" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeFCrefix c=v ()_,eeFC=vno"{ >/ >/,eeFC=valX =v ()_,eeFC 'ev_x=' 'eva,eeFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeFCrear:"r?VER lr(bo,eeFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeFCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichf901=. ,eeCH"t"# "$ >" 5-n$$.eFC=va,eeFC"a >/xldoWv_x='s2'_p_--'c*AH_}doich,h2v.czr${ZSH_# Ex(sct eosdft s, w rdd c_"ich,c"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynich,c;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCC"efix e fsysty=v ()_,eeCC=va,eeCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCC=vich,c" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCCrefix c=v ()_,eeCC=vno"{ >/ >/,eeCC=valX =v ()_,eeCC 'ev_x=' 'eva,eeCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCCrear:"r?VER lr(bo,eeCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTich,c1=. ,eeCH 2"t"# "$ >" 5-n$$.eCC=va,eeCC" xi >&5a# Ex(sct eosdft s, w rdd c_"ich,xx"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynich,xx;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCXX"efix e fsysty=v ()_,eeCXX=va,eeCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCXX=vich,xx" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCXX" fix c=v ()_,eeCXX=vno"{ >/ >/,eeCXX=valX =v ()_,eeCXX 'ev_x=' 'eva,eeCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCXX" ar:"r?VER lr(bo,eeCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCXX" }do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTich,xx1=. ,eeCH 2"t"# "$ >" 5-n$$.eCXX=va,eeCXX" xi >&5a# Ex(sct eosdft s, w rdd c_"ichf90"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichf90;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeFC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeFC"efix e fsysty=v ()_,eeFC=va,eeFC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeFC=vichf90" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeFCrefix c=v ()_,eeFC=vno"{ >/ >/,eeFC=valX =v ()_,eeFC 'ev_x=' 'eva,eeFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeFCrear:"r?VER lr(bo,eeFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeFCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichf901=. ,eeCH 2"t"# "$ >" 5-n$$.eFC=va,eeFC"a >/xldoWv_x='s2'_p_--'c*AH_}do c_#lichRltnv.czr${ZSH_# Ex(sct eosdft s, w rdd c_"ichg,c"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichg,c;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCC"efix e fsysty=v ()_,eeCC=va,eeCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCC=vichg,c" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCCrefix c=v ()_,eeCC=vno"{ >/ >/,eeCC=valX =v ()_,eeCC 'ev_x=' 'eva,eeCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCCrear:"r?VER lr(bo,eeCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichg,c1=. Ic_#l ,ee +L "byCn#n omts"t"# "$ >" 5-n$$.eCC=va,eeCC" xi >&5a# Ex(sct eosdft s, w rdd c_"ichg++"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichg++;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCXX"efix e fsysty=v ()_,eeCXX=va,eeCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCXX=vichg++" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCXX" fix c=v ()_,eeCXX=vno"{ >/ >/,eeCXX=valX =v ()_,eeCXX 'ev_x=' 'eva,eeCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCXX" ar:"r?VER lr(bo,eeCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCXX" }do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichg++1=. Ic_#l ,ee +L "byCn#n omts"t"# "$ >" 5-n$$.eCXX=va,eeCXX" xi >&5a# Ex(sct eosdft s, w rdd c_"ichg=. (sn"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichg=. (sn;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeFC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeFC"efix e fsysty=v ()_,eeFC=va,eeFC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeFC=vichg=. (sn" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeFCrefix c=v ()_,eeFC=vno"{ >/ >/,eeFC=valX =v ()_,eeFC 'ev_x=' 'eva,eeFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeFCrear:"r?VER lr(bo,eeFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeFCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichg=. (sn1=. Ic_#l ,ee +L "byCn#n omts"t"# "$ >" 5-n$$.eFC=va,eeFC"a >/xldoWv_x='s2'_p_--'c*AH_}do c_#lichR c_#lv.czr${ZSH_# Ex(sct eosdft s, w rdd c_"ichh,c"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichh,c;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCC"efix e fsysty=v ()_,eeCC=va,eeCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCC=vichh,c" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCCrefix c=v ()_,eeCC=vno"{ >/ >/,eeCC=valX =v ()_,eeCC 'ev_x=' 'eva,eeCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCCrear:"r?VER lr(bo,eeCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichg,c1=. Ic_#l ,ee +Ic_#l Cn#n omts"t"# "$ >" 5-n$$.eCC=va,eeCC" xi >&5a# Ex(sct eosdft s, w rdd c_"ichicpc"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichh,pc;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCXX"efix e fsysty=v ()_,eeCXX=va,eeCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCXX=vich,pc" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCXX" fix c=v ()_,eeCXX=vno"{ >/ >/,eeCXX=valX =v ()_,eeCXX 'ev_x=' 'eva,eeCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCXX" ar:"r?VER lr(bo,eeCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCXX" }do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTich,pc1=. Ic_#l ,ee +Ic_#l Cn#n omts"t"# "$ >" 5-n$$.eCXX=va,eeCXX" xi >&5a# Ex(sct eosdft s, w rdd c_"ichi=. ("tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynichh=. (;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeFC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeFC"efix e fsysty=v ()_,eeFC=va,eeFC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeFC=vichi=. (" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeFCrefix c=v ()_,eeFC=vno"{ >/ >/,eeFC=valX =v ()_,eeFC 'ev_x=' 'eva,eeFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeFCrear:"r?VER lr(bo,eeFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeFCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTichi=. (1=. Ic_#l ,ee +Ic_#l Cn#n omts"t"# "$ >" 5-n$$.eFC=va,eeFC"a >/xldoWv_x='s2'_p_--'c*AH_}dosunv.czr${ZSH_# Ex(sct eosdft s, w rdd c_"tmcc"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyntmcc;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCC"efix e fsysty=v ()_,eeCC=va,eeCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCC=vtmcc" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCCrefix c=v ()_,eeCC=vno"{ >/ >/,eeCC=valX =v ()_,eeCC 'ev_x=' 'eva,eeCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCCrear:"r?VER lr(bo,eeCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTtmcc1=. sun Mee"t"# "$ >" 5-n$$.eCC=va,eeCC" xi >&5a# Ex(sct eosdft s, w rdd c_"tmCC"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyntmCC;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCXX"efix e fsysty=v ()_,eeCXX=va,eeCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCXX=vtmCC" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCXX" fix c=v ()_,eeCXX=vno"{ >/ >/,eeCXX=valX =v ()_,eeCXX 'ev_x=' 'eva,eeCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCXX" ar:"r?VER lr(bo,eeCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCXX" }do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTtmCC1=. sun Mee"t"# "$ >" 5-n$$.eCXX=va,eeCXX" xi >&5a# Ex(sct eosdft s, w rdd c_"tmf90"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyntmf90;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeFC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeFC"efix e fsysty=v ()_,eeFC=va,eeFC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeFC=vtmf90" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeFCrefix c=v ()_,eeFC=vno"{ >/ >/,eeFC=valX =v ()_,eeFC 'ev_x=' 'eva,eeFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeFCrear:"r?VER lr(bo,eeFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeFCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTtmf901=. sun Mee"t"# "$ >" 5-n$$.eFC=va,eeFC"a >/xldoWv_x='s2'_p_--'c*AH_}do bmv.czr${ZSH_# Ex(sct eosdft s, w rdd c_"iccc_r"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyniccc_r;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCC"efix e fsysty=v ()_,eeCC=va,eeCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCC=viccc_r" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCCrefix c=v ()_,eeCC=vno"{ >/ >/,eeCC=valX =v ()_,eeCC 'ev_x=' 'eva,eeCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCCrear:"r?VER lr(bo,eeCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTiccc_r1=. Ibm (IBMMee"t"# "$ >" 5-n$$.eCC=va,eeCC" xi >&5a# Ex(sct eosdft s, w rdd c_"mpCC_r"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynicCC_r;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCXX"efix e fsysty=v ()_,eeCXX=va,eeCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCXX=vicCC_r" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeCXX" fix c=v ()_,eeCXX=vno"{ >/ >/,eeCXX=valX =v ()_,eeCXX 'ev_x=' 'eva,eeCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCXX" ar:"r?VER lr(bo,eeCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeCXX" }do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTicCC_r1=. Ibm (IBMMee"t"# "$ >" 5-n$$.eCXX=va,eeCXX" xi >&5a# Ex(sct eosdft s, w rdd c_"icxf90_r"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynicxf90_r;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeFC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeFC"efix e fsysty=v ()_,eeFC=va,eeFC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeFC=vicxf90_r" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" s_e W( 'evalX =v ()_,eeFCrefix c=v ()_,eeFC=vno"{ >/ >/,eeFC=valX =v ()_,eeFC 'ev_x=' 'eva,eeFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeFCrear:"r?VER lr(bo,eeFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1 'ev_x='s2',eeFCre}do"bno}${ZSH_ } lLS6nn} $@%Cguld o=er#".nTicxf90_1=. Ibm (IBMMee"t"# "$ >" 5-n$$.eFC=va,eeFC"a >/xldoWv_x='s2'_p_--'c*AH_}doguesnv.czr${ZSH_=. nm ()s"fiich,c1ichg,c1ichh,cTtmcc1iccc_rml_ L # Ex(sct eosdft s, w rdd c_"$nm ()"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn$nm ();c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCC"efix e fsysty=v ()_,eeCC=va,eeCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCC=vanm ()" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/,eeCC=valX =v ()_,eeCC 'ev_x=' 'eva,eeCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCCrear:"r?VER lr(bo,eeCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,v_x=' 'eva,eeCC"efix_r?;\ dev}Sv_x=' 'eva,eeCC"e|| ,eeCC=vno"{ 3,"1 'ev_x='s2',eeCCre}do"bno}${ZSH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: Cguld o=er#".nT nyuiasa, sa-=. C"$sofeomrrear:"r?VER lr(bostatu eWARNING: Cguld o=er#".nT nyuiasa, sa-=. C"$sofeomrrear2;L] n$elCC=va,eeCC" xi >&5a=. nm ()s"fiich,++TichCC1ich,xx1ichg++1ichh,pcTtmCC1icCC_rml_ L # Ex(sct eosdft s, w rdd c_"$nm ()"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn$nm ();c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeCXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeCXX"efix e fsysty=v ()_,eeCXX=va,eeCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeCXX=vanm ()" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/,eeCXX=valX =v ()_,eeCXX 'ev_x=' 'eva,eeCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeCXX" ar:"r?VER lr(bo,eeCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,v_x=' 'eva,eeCXX"efix_r?;\ dev}Sv_x=' 'eva,eeCXX"e|| ,eeCXX=vno"{ 3,"1 'ev_x='s2',eeCXX" }do"bno}${ZSH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: Cguld o=er#".nT nyuiasa, sa-=. C++1$sofeomrrear:"r?VER lr(bostatu eWARNING: Cguld o=er#".nT nyuiasa, sa-=. C++1$sofeomrrear2;L] n$elCXX=va,eeCXX" xi >&5a=. nm ()s"fiichf901ichfcTichg=. (sn1ichi=. (1tmf901icxf90_rml_ L # Ex(sct eosdft s, w rdd c_"$nm ()"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn$nm ();c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_,eeFC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'eva,eeFC"efix e fsysty=v ()_,eeFC=va,eeFC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_,eeFC=vanm ()" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/,eeFC=valX =v ()_,eeFC 'ev_x=' 'eva,eeFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" ,eeFCrear:"r?VER lr(bo,eeFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,v_x=' 'eva,eeFC"efix_r?;\ dev}Sv_x=' 'eva,eeFC"e|| ,eeFC=vno"{ 3,"1 'ev_x='s2',eeFCre}do"bno}${ZSH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: Cguld o=er#".nT nyuiasa, sa-=. F. (sn1$sofeomrrear:"r?VER lr(bostatu eWARNING: Cguld o=er#".nT nyuiasa, sa-=. F. (sn1$sofeomrrear2;L] n$elFC=va,eeFC"a >/3,"1{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/defs f 'CC1$CXX $FCrear:"r?VER lr(bostatu efs f 'CC1$CXX $FCrear6;L] doWv_x='s2'_p_--'c*AH_}doyenv.czr${ZSH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deYou w uld likcsnofus% 'CC1$CXX $FCsnof$sofeomX uL ",ee supp. ("ear:"r?VER lr(bostatu eYou w uld likcsnofus% 'CC1$CXX $FCsnof$sofeomX uL ",ee supp. ("ear6;L] n$elH_ } lLS6nn} $@%Cguld o=erreocgnizczrnis",ee implementat>=#:" _p_--'c*AH_"# "$ >" 5-nxl`>&5a# $sofeomrs shguld b_f lrsr${ZSH_us%_ofe=yenan$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/de,ee was o=er_p_--'d. Buildc eanon-parallel azos>=#d c_PPM."ear:"r?VER lr(bostatu e,ee was o=er_p_--'d. Buildc eanon-parallel azos>=#d c_PPM."ear6;L]nxl` :" {CXXFLAGS="-O3"} :" {CFLAGS="-O3"} :" {FCFLAGS="-O3"} # CeC-s-=. basic $sofeomrT nd flags nms t=cpp nmcpp='$CXXCPP1$CPPFLAGS' nmcsofeom='$CXX -c1$CXXFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CXX -o $snfn$$.$nms :s te$CXXFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,xxm$sofeomrRltn 'ev_x=' 'evCXX"efix e fs 'ev_x=' 'evaCCC"efix e fselCXX=aCCC fs n$elH_ 'ev_x=' 'evaalXtoolv efix"efix e fs=. nm ()s"fig++1,++Tgpp aCC1CC1,xx1c,++Tcl.s :lFCC KCC RCC xlC_r1xlCSkb } >&5a# Ex(sct eosdft s, w rdd c_"aalXtoolv efix$nm ()"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn$nmtoolv efix$nm ();c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_CXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaCXX"efix e fsysty=v ()_CXX=vaCXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_CXX=vanmtoolv efix$nm ()" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/CXX=valX =v ()_CXX 'ev_x=' 'evaCXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" CXX" ar:"r?VER lr(boCXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,"1v_x=' 'evaCXX"efix_r?;\ kb }_p_nxl 'ev_x=' 'evCXX"efix e fsalX t_CXX=aCXX fs=. nm ()s"fig++1,++Tgpp aCC1CC1,xx1c,++Tcl.s :lFCC KCC RCC xlC_r1xlCSl_ L # Ex(sct eosdft s, w rdd c_"$nm ()"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn$nm ();c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_alX t_CXX"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaalX t_CXX"efix e fsysty=v ()_alX t_CXX=vaalX t_CXX" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_alX t_CXX=vaalX ()" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/alX t_CXX=a=.tc=v ()_alX t_CXX 'ev_x=' 'evaalX t_CXX"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" alX t_CXX" ar:"r?VER lr(boslX t_CXX" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,v_x=' 'evaslX t_CXX" fix_r?;\ dev}S "1 'ev_x='s2'slX t_CXX" }doefix e fselCXX="g++" -p n$elH_cas% 'crossm$sofeoc e:anmtoolvwarneds"f yen:) {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear:"r?VER lr(bostatu eWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear2;L]nmtoolvwarned=yen ;; esac fselCXX=aalX t_CXX xp.. nxl`>&.. nxl# Provpiczso 'Xin=. mat>=# abou`==f$sofeomr."r?VER lr(bostatu } $@%#0]k,i"# "$ >/deceC-c ea eauC++1$sofeomr azos>=#"ear:" evsX" alX sofeom nm$sofeomr=$2 =. nmopt>=# "fi--azos>=#d-v -V -qazos>=#X CXXq_{_{_nmtry=vaalX sofeomr $nmopt>=# ar:" cas% "(($nmtry"s"f *\"* | *\`* | *\\*)_nmtryER lr=\$nmtry;; *)_nmtryER lr=$nmtry;; esac 'c*A_nmtryER lr="\"\ostatu } $@%#0]k,i"# "$ >/de$nmtryER lr\"""r?VER lr(boslXtryER lrr 0;e.cz1 >('c*A_vaalX sofeomr $nmopt>=# ar:") 2>$snfn$$. zoy fsyststatus=$?$.e 'ev_x=' s $snfn$$. zoyefix e fselseds'10a\ eallr_x=' c_stdzoy ou`pu`dele(edseal fsellllll10q' $snfn$$. zoy >$snfn$$. zo1$elH_cat $snfn$$. zo1e.cz1 > >/3,rms_fa$snfn$$. zo1e$snfn$$. zoy fsr?VER lr(bostatu } $@%#0]k,i"# "$ >/de\$? }d$yststatusre.cz1 >v_x='$yststatus }d0breadev}S cat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l`>&; returnd0b } _ACEOF nm$lean_feom ysave=aalX lean_feom nm$lean_feom =vaalX lean_feom a.ou`a.ou`.dSYMa.s :lb.ou`"l# Trysnof$r?;t_fRn zdefadefaus uL ou`-o ft s,, disregardda.ou`.l# I, will help us diagnos% broken1$sofeomrs,T nd findc eaou`a# "ftuit>=#l# c_s :s t. {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eawheix r==fC++1$sofeomr w rks war:"r?VER lr_ry"ceC-c eawheix r==fC++1$sofeomr w rkseall war6breanm#0]k_defa-_v=`r?VER lr(boslX#0]k" | seds's/-o *$snfn$$.[^ ]*//'` # T==fpossifausou`pu`feom :anmfeom =va.ou`$snfn$$. zxe$snfn$$.a.s :la_ou`.s :lb.ou`$snfn$$. *" anmrmfeom = =. nmfeom="fi$nmfeom ml_ L cas% 'nmfeom="f$elH_* $nms te| *.xcoffe| *.tdse| *.de| *.pdbe| *.xSYM| *.bb| *.bbg| *.map| *.in=e| *.dSYM| *.o| *.obj ) ;; H_* )_nmrmfeom =boslXrmfeom 'nmfeom";; esac dev}Srms_faoslXrmfeom doWsi{_nmtry=vaalX#0]k_defa-_v" cas% "(($nmtry"s"f *\"* | *\`* | *\\*)_nmtryER lr=\$nmtry;; *)_nmtryER lr=$nmtry;; esac 'c*A_nmtryER lr="\"\ostatu } $@%#0]k,i"# "$ >/de$nmtryER lr\"""r?VER lr(boslXtryER lrr 0;e.cz1 >('c*A_vaalX#0]k_defa-_v") 2>cz1 >yststatus=$?$.er?VER lr(bostatu } $@%#0]k,i"# "$ >/de\$? }d$yststatusre.cz1 >v_x='$yststatus }d0bre$ ;}${ZSH_# Auto$snf-2.13$suld s `==f=.tc=vs :s tevariefausnof`no'.l# So ignor_fR c*Aue c_`no', oix rwisczrnis"w uld leadsnof`EXEEXT }dno'l# "fia Makefeom. We shguld o=erdazoypicz=.tc=vs :s tedoWitiwas nwar-d,l# fo tha`==fus%rn]kMsshgrt-circuitzrnis"v_x='=. $sofeomrs unknownsno # Auto$snf. =. nmfeom="fi$nmfeom i''ml_ L as_fa ' nmfeom"e|| $sntinue L cas% 'nmfeom="f$elH_* $nms te| *.xcoffe| *.tdse| *.de| *.pdbe| *.xSYM| *.bb| *.bbg| *.map| *.in=e| *.dSYM| *.o| *.obj ) ;; H_[ab].ou`) # We fs f ==fdefa-_v zdefadefau, but_s :s t='' is"mrs` # certa"fly right. _r?;\;; H_*.*) doWv_x=' '{aody=vs :s t"dev}H_}ddev fixv_x=' 'aody=vs :s t" !}dno; ;}${Z;p n$ }s=.tc=vs :s t=`expra ' nmfeom"e: '[^.]*\(\..*\)'` >/ # We dev =.tc=vs :s tex r:lbecausczrncsl;t_r"v_x='=. itzis o=e/ # safu ecross $sofeomrs may o=eradf ==fsuffixedoWgiv}${kMs`-o'l # argumenttmfo we may oeedsnofknowitza`=a`po"ft alr?;dy.l # Ev}${doWvnis"sect>=# looks $rufty:itzhas ==f=dvantage cl # actually w rkc e. _r?;\;; H_*) _r?;\;; esac dev}Sv_x=' 'aody=vs :s t" }dnoefix c=vs :s t= an$$.e nmfeom=''_nxl 'ev_x=' 'evnmfeom";}${ZSH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6brear?VER lr(bostatu efaeomd () n was:"ear:" eds's/^/| /' $snfn$$. $nms tear: {_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deLS6nn:="fi\`aalX wd':"ear:"r?VER lr(bostatu eLS6nn:="fi\`aalX wd':"ear2;L]} lLS6nn}77 "C++1$sofeomr ]kMo=er$r?;t_fzdefadefaus Seei\`$snfig.log''=. mor_fdeta"ls"t"# "$ >" 5brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"yen"ear:"r?VER lr(byen"ear6breanxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eauC++1$sofeomr defa-_v ou`pu`feom s: ' war:"r?VER lr_ry"ceC-c ea eauC++1$sofeomr defa-_v ou`pu`feom s: 'eall war6brea{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" alXfeom"ear:"r?VER lr(boslXfeom"ear6breanms :s t='aody=vs :s t Srms_fa-r a.ou`a.ou`.dSYMa.s :l$snfn$$.$nmc=vs :s teb.ou` nm$lean_feom =aalX lean_feom ysavel{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eausuffixe c_s :fadefaus war:"r?VER lr_ry"ceC-c ea eausuffixe c_s :fadefauseall war6breadoWsi{_nmtry=vaalX#0]k" cas% "(($nmtry"s"f *\"* | *\`* | *\\*)_nmtryER lr=\$nmtry;; *)_nmtryER lr=$nmtry;; esac 'c*A_nmtryER lr="\"\ostatu } $@%#0]k,i"# "$ >/de$nmtryER lr\"""r?VER lr(boslXtryER lrr 0;e.cz1 >('c*A_vaalX#0]k") 2>cz1 >yststatus=$?$.er?VER lr(bostatu } $@%#0]k,i"# "$ >/de\$? }d$yststatusre.cz1 >v_x='$yststatus }d0bre$ ;}${ZSH_# If boix `$snfn$$. zxe'T nd `$snfn$$.'T r_f`plasent' (well, obs%rvefau) # catcx `$snfn$$. zxe'. F. instanc'X uL "Cygwin, `ls $snfn$$.' will # w rk (perly (i.e.,elaf_r"vo `$snfn$$. zxe'),awheom=", w n'tX uL # `rm'. =. nmfeom="fi$snfn$$. zxe$snfn$$.$snfn$$. *X CXXq_ as_fa ' nmfeom"e|| $sntinue L cas% 'nmfeom="f$elH_* $nms te| *.xcoffe| *.tdse| *.de| *.pdbe| *.xSYM| *.bb| *.bbg| *.map| *.in=e| *.dSYM| *.o| *.obj ) ;; H_*.*)=.tc=vs :s t=`expra ' nmfeom"e: '[^.]*\(\..*\)'` &5_r?;\;; H_* )__r?;\;; esac dev}Sn$$.e{_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deLS6nn:="fi\`aalX wd':"ear:"r?VER lr(bostatu eLS6nn:="fi\`aalX wd':"ear2;L]} lLS6nn} $@%]kMo=er$sofuteusuffixe c_s :fadefaus: ]kMo=er$sofeom= nd #0]k Seei\`$snfig.log''=. mor_fdeta"ls"t"# "$ >" 5breanxlrms_fa$snfn$$.l$snfn$$.$nmc=vs :s ta{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" alXy=vs :s t" ar:"r?VER lr(boslX =vs :s t" ar6brealrms_fa$snfn$$. $nms t EXEEXT='aody=vs :s t nms :s t='EXEEXT cat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ @%:@incluicz int ma"fi() {lFILE *f }df(pefi("$snfn$$. ou`", "w"); returndfLS6nn}(f)e|| fclos% (f)e!}d0bl`>&; returnd0b } _ACEOF nm$lean_feom =vaalX lean_feom $snfn$$. ou`" # CeC- tha`==f$sofeomr (ducm s :fadefaus we ]kMsrun. If o=e, eiix r # ==f$sofeomr is"broken, or we ]ross $sofeom. {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eawheix rwe r_f]ross $sofeoc e war:"r?VER lr_ry"ceC-c eawheix rwe r_f]ross $sofeoc eeall war6breadoWv_x=' 'crossm$sofeoc e" !}dyenv.czr${ZSsi{_nmtry=vaalX#0]k" cas% "(($nmtry"s"f *\"* | *\`* | *\\*)_nmtryER lr=\$nmtry;; *)_nmtryER lr=$nmtry;; esac 'c*A_nmtryER lr="\"\ostatu } $@%#0]k,i"# "$ >/de$nmtryER lr\"""r?VER lr(boslXtryER lrr 0;e.cz1 >('c*A_vaalX#0]k") 2>cz1 >yststatus=$?$.er?VER lr(bostatu } $@%#0]k,i"# "$ >/de\$? }d$yststatusre.cz1 >v_x='$yststatus }d0breaq_doWsinmtry='./$snfn$$.$nmc=vs :s t'{ZSsi{_cas% "(($nmtry"s"f *\"* | *\`* | *\\*)_nmtryER lr=\$nmtry;; *)_nmtryER lr=$nmtry;; esac 'c*A_nmtryER lr="\"\ostatu } $@%#0]k,i"# "$ >/de$nmtryER lr\"""r?VER lr(boslXtryER lrr 0;e.cz1 >('c*A_vaalXtry") 2>cz1 >yststatus=$?$.er?VER lr(bostatu } $@%#0]k,i"# "$ >/de\$? }d$yststatusre.cz1 >v_x='$yststatus }d0bre$ ;$ ;}$ }scrossm$sofeoc e=no fs n$elH_ 'ev_x=' 'crossm$sofeoc e" = maybe$ ;}$ crossm$sofeoc e=yenaelH_ n$ {_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deLS6nn:="fi\`aalX wd':"ear:"r?VER lr(bostatu eLS6nn:="fi\`aalX wd':"ear2;L]} lLS6nn} $@%]kMo=errunuC++1$sofeomd () n s. If you meantsnof$ross $sofeom,fus% \`--lrs`'. Seei\`$snfig.log''=. mor_fdeta"ls"t"# "$ >" 5brea3,"1=i`>&.. nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" crossm$sofeoc e" ar:"r?VER lr(bocrossm$sofeoc e" ar6brealrms_fa$snfn$$. $nms tl$snfn$$.$nmc=vs :s te$snfn$$. ou` nm$lean_feom =aalX lean_feom ysavel{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eausuffixe c_objec`feom war:"r?VER lr_ry"ceC-c ea eausuffixe c_objec`feom eall war6breadoWv_x=' '{aody=vobje t"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l`>&; returnd0b } _ACEOF rms_fa$snfn$$. oa$snfn$$. objadoWsi{_nmtry=vaalX$sofeom" cas% "(($nmtry"s"f *\"* | *\`* | *\\*)_nmtryER lr=\$nmtry;; *)_nmtryER lr=$nmtry;; esac 'c*A_nmtryER lr="\"\ostatu } $@%#0]k,i"# "$ >/de$nmtryER lr\"""r?VER lr(boslXtryER lrr 0;e.cz1 >('c*A_vaalX$sofeom") 2>cz1 >yststatus=$?$.er?VER lr(bostatu } $@%#0]k,i"# "$ >/de\$? }d$yststatusre.cz1 >v_x='$yststatus }d0bre$ ;}${ZSH_=. nmfeom="fi$snfn$$. oa$snfn$$. obj$snfn$$. *X CXXq_ as_fa ' nmfeom"e|| $sntinue; L cas% 'nmfeom="f$elH_* $nms te| *.xcoffe| *.tdse| *.de| *.pdbe| *.xSYM| *.bb| *.bbg| *.map| *.in=e| *.dSYM) ;; H_*)=.tc=vobje t=`expra ' nmfeom"e: '.*\.\(.*\)'` ellllll_r?;\;; esac dev}Sn$$.er?VER lr(bostatu efaeomd () n was:"ear:" eds's/^/| /' $snfn$$. $nms tear: {_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deLS6nn:="fi\`aalX wd':"ear:"r?VER lr(bostatu eLS6nn:="fi\`aalX wd':"ear2;L]} lLS6nn} $@%]kMo=er$sofuteusuffixe c_objec`feom : ]kMo=er$sofeom Seei\`$snfig.log''=. mor_fdeta"ls"t"# "$ >" 5breanxlrms_fa$snfn$$..$=.tc=vobje ta$snfn$$. $nms t nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=vobje t" ar:"r?VER lr(boslX =vobje t" ar6breaOBJEXT='aody=vobje t nmobje t=$OBJEXT {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eawheix rwe r_fusc ea==f "byC++1$sofeomrrear:"r?VER lr_ry"ceC-c eawheix rwe r_fusc ea==f "byC++1$sofeomreall war6breadoWv_x=' '{aody=v,xxm$sofeomrRltn"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l#ifndef __ "bC__ ellllll lrke me #e fifl`>&; returnd0b } _ACEOF doW nmfnv,xxmtryE$sofeom="# "$ >"}${ZSH_ nm$sofeomrRltn=yenan$$.e nm$sofeomrRltn=no nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t aody=v,xxm$sofeomrRltn=$ nm$sofeomrRltn nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=v,xxm$sofeomrRltn" ar:"r?VER lr(boslX =v,xxm$sofeomrRltn" ar6breadoWv_x='$ nm$sofeomrRltn }dyenv.czr${ZSGXX=yenan$$.eGXX=/ >/alXv_x=_CXXFLAGS= {CXXFLAGS"dev}/alXsave_CXXFLAGS= CXXFLAGS {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eawheix r$CXX accepts -e war:"r?VER lr_ry"ceC-c eawheix r$CXX accepts -eeall war6breadoWv_x=' '{aody=v ()_,xxmg"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ealXsave_,xxmwLS6nn_flag=$ nm$xxmwLS6nn_flag }s=.tcxxmwLS6nn_flag=yenaelHaody=v ()_,xxmg=no fs CXXFLAGS="-)" -p cat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l`>&; returnd0b } _ACEOF doW nmfnv,xxmtryE$sofeom="# "$ >"}${ZSH_ nm$=v ()_,xxmg=yenan$$.eCXXFLAGS="" elllllcat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l`>&; returnd0b } _ACEOF doW nmfnv,xxmtryE$sofeom="# "$ >"}${ZSH_an$$.e nm$xxmwLS6nn_flag=$ nmsave_,xxmwLS6nn_flag CXXFLAGS="-)" lcat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l`>&; returnd0b } _ACEOF doW nmfnv,xxmtryE$sofeom="# "$ >"}${ZSH_ nm$=v ()_,xxmg=yenanxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t }s=.tcxxmwLS6nn_flag=$ nmsave_,xxmwLS6nn_flag nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=v ()_,xxmg" ar:"r?VER lr(boslX =v ()_,xxmg" ar6breadoWv_x=' 'alXv_x=_CXXFLAGSH_}ddev$ ;}$$.eCXXFLAGS=$alXsave_CXXFLAGS] doWv_x='oslX =v ()_,xxmg }dyenv.czr${ZSdoWv_x=' 'GXX" }dyenv.czr${ZSH_CXXFLAGS="-) -O2" -p n$elH_CXXFLAGS="-)" -p >/xln$$.e 'ev_x=' 'GXX" }dyenv.czr${ZSH_CXXFLAGS="-O2" -p n$elH_CXXFLAGS=`>&.. nxlanms t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn anms t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn 'ev_x=' 'evaalXtoolv efix"efix e fs# Ex(sct eosdft s, w rdd c_"${alXtoolv efix}gcc"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn${alXtoolv efix}gcc;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_CC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaCC"efix e fsysty=v ()_CC=vaCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_CC=va{alXtoolv efix}gcc" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/CC=valX =v ()_CC 'ev_x=' 'evaCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" CCrear:"r?VER lr(boCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` nxl 'ev_x=' 'evnm =v ()_CC"efix e fsalX t_CC=aCC fs# Ex(sct eosdft s, w rdd c_"gcc"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyngcc;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_alX t_CC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaalX t_CC"efix e fsysty=v ()_alX t_CC=vaalX t_CC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_alX t_CC=vgcc" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/alX t_CC=a=.tc=v ()_alX t_CC 'ev_x=' 'evaalX t_CC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" alX t_CC" ar:"r?VER lr(boslX t_CCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl`"1 'ev_x='s2'slX t_CC" }doefix e fselCC="" el n$elH_cas% 'crossm$sofeoc e:anmtoolvwarneds"f yen:) {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear:"r?VER lr(bostatu eWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear2;L]nmtoolvwarned=yen ;; esac fselCC=aalX t_CC -p >/xln$$.eCC=vaalX =v ()_CC"anxl` 'ev_x=' 'evCC"efix e fselllllll 'ev_x=' 'evaalXtoolv efix"efix e fsfs# Ex(sct eosdft s, w rdd c_"${alXtoolv efix}cc"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn${alXtoolv efix}cc;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_CC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaCC"efix e fsysty=v ()_CC=vaCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_CC=va{alXtoolv efix}cc" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/CC=valX =v ()_CC 'ev_x=' 'evaCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" CCrear:"r?VER lr(boCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` >&.. nxl 'ev_x=' 'evCC"efix e fs# Ex(sct eosdft s, w rdd c_"cc"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyncc;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_CC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaCC"efix e fsysty=v ()_CC=vaCC" L `==fus%rndazoypiczrncsn$$. _n$$ nm ()_rejec`ed=no$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }sdoWv_x=' 'as_f s/$ : w rd$nms :sv.e re= "/usr/ucb/cc"efix e fsellllnm ()_rejec`ed=yenaelH_lH_csntinue L ,"1=i`>&fsysty=v ()_CC=vcc" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" doWv_x='oslX ()_rejec`ed }dyenv.czr${ZS# We fs f a bog=# "firncspathtmfo makeusurewe neazofus% ity 3, evsdummyn$nm =v ()_CC 3, hift$.e 'ev_x='$@%:@e!}d0bfix e fsfs# W_f lrsr a differener$sofeomr fromirncsbogus }_p. fsfs# Howeazo,itzhas ==fs: 'Xbas%s: ', fo the bog=# will b_f lrsr${ZSH_#dft s, 'ewe dev CCsnofjus`==fbas%s: '; usczrncsfull feom s: 'e{ZSH_ hift$.efsysty=v ()_CC=va s_f s/$ : w rd${1+' '}$@" >&.. nxl >/ >/CC=valX =v ()_CC 'ev_x=' 'evaCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" CCrear:"r?VER lr(boCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` nxl 'ev_x=' 'evCC"efix e fs 'ev_x=' 'evaalXtoolv efix"efix e fs=. nm ()s"ficl.s :Skb } fsfs# Ex(sct eosdft s, w rdd c_"$alXtoolv efixoslX ()"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn$nmtoolv efix$nm ();c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_CC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaCC"efix e fsysty=v ()_CC=vaCC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_CC=vaalXtoolv efixoslX ()" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/CC=valX =v ()_CC 'ev_x=' 'evaCC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" CCrear:"r?VER lr(boCCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` >&5v_x=' 'evaCC"efix_r?;\ kb }_p_nxl 'ev_x=' 'evCC"efix e fsalX t_CC=aCC fs=. nm ()s"ficl.s :Sl_ L # Ex(sct eosdft s, w rdd c_"$nm ()"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn$nm ();c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_alX t_CC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaalX t_CC"efix e fsysty=v ()_alX t_CC=vaalX t_CC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_alX t_CC=vaalX ()" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/alX t_CC=a=.tc=v ()_alX t_CC 'ev_x=' 'evaalX t_CC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" alX t_CC" ar:"r?VER lr(boslX t_CCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,v_x=' 'evaslX t_CC"efix_r?;\ dev}S`"1 'ev_x='s2'slX t_CC" }doefix e fselCC="" el n$elH_cas% 'crossm$sofeoc e:anmtoolvwarneds"f yen:) {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear:"r?VER lr(bostatu eWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear2;L]nmtoolvwarned=yen ;; esac fselCC=aalX t_CC -p >/nxl`nxl` v_x=' 'evCC"efix{_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deLS6nn:="fi\`aalX wd':"ear:"r?VER lr(bostatu eLS6nn:="fi\`aalX wd':"ear2;L]} lLS6nn} $@%no acceptefausCr$sofeomr fs f "fi\$ mSeei\`$snfig.log''=. mor_fdeta"ls"t"# "$ >" 5breal# Provpiczso 'Xin=. mat>=# abou`==f$sofeomr."r?VER lr(bostatu } $@%#0]k,i"# "$ >/deceC-c ea eauC1$sofeomr azos>=#"ear:" evsX" alX sofeom nm$sofeomr=$2 =. nmopt>=# "fi--azos>=#d-v -V -qazos>=#X CXXq_{_{_nmtry=vaalX sofeomr $nmopt>=# ar:" cas% "(($nmtry"s"f *\"* | *\`* | *\\*)_nmtryER lr=\$nmtry;; *)_nmtryER lr=$nmtry;; esac 'c*A_nmtryER lr="\"\ostatu } $@%#0]k,i"# "$ >/de$nmtryER lr\"""r?VER lr(boslXtryER lrr 0;e.cz1 >('c*A_vaalX sofeomr $nmopt>=# ar:") 2>$snfn$$. zoy fsyststatus=$?$.e 'ev_x=' s $snfn$$. zoyefix e fselseds'10a\ eallr_x=' c_stdzoy ou`pu`dele(edseal fsellllll10q' $snfn$$. zoy >$snfn$$. zo1$elH_cat $snfn$$. zo1e.cz1 > >/3,rms_fa$snfn$$. zo1e$snfn$$. zoy fsr?VER lr(bostatu } $@%#0]k,i"# "$ >/de\$? }d$yststatusre.cz1 >v_x='$yststatus }d0breadev}S {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eawheix rwe r_fusc ea==f "byC1$sofeomrrear:"r?VER lr_ry"ceC-c eawheix rwe r_fusc ea==f "byC1$sofeomreall war6breadoWv_x=' '{aody=v,m$sofeomrRltn"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l#ifndef __ "bC__ ellllll lrke me #e fifl`>&; returnd0b } _ACEOF doW nmfnv,mtryE$sofeom="# "$ >"}${ZSH_ nm$sofeomrRltn=yenan$$.e nm$sofeomrRltn=no nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t aody=v,m$sofeomrRltn=$ nm$sofeomrRltn nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=v,m$sofeomrRltn" ar:"r?VER lr(boslX =v,m$sofeomrRltn" ar6breadoWv_x='$ nm$sofeomrRltn }dyenv.czr${ZSGCC=yenan$$.eGCC=/ >/alXv_x=_CFLAGS= {CFLAGS"dev}/alXsave_CFLAGS= CFLAGS {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eawheix r$CC accepts -e war:"r?VER lr_ry"ceC-c eawheix r$CC accepts -eeall war6breadoWv_x=' '{aody=v ()_,cmg"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ealXsave_,mwLS6nn_flag=$ nm$mwLS6nn_flag }s=.tcmwLS6nn_flag=yenaelHaody=v ()_,cmg=no fs CFLAGS="-)" -p cat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l`>&; returnd0b } _ACEOF doW nmfnv,mtryE$sofeom="# "$ >"}${ZSH_ nm$=v ()_,cmg=yenan$$.eCFLAGS="" elllllcat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l`>&; returnd0b } _ACEOF doW nmfnv,mtryE$sofeom="# "$ >"}${ZSH_an$$.e nm$mwLS6nn_flag=$ nmsave_,mwLS6nn_flag CFLAGS="-)" lcat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l`>&; returnd0b } _ACEOF doW nmfnv,mtryE$sofeom="# "$ >"}${ZSH_ nm$=v ()_,cmg=yenanxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t }s=.tcmwLS6nn_flag=$ nmsave_,mwLS6nn_flag nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=v ()_,cmg" ar:"r?VER lr(boslX =v ()_,cmg" ar6breadoWv_x=' 'alXv_x=_CFLAGSH_}ddev$ ;}$$.eCFLAGS=$alXsave_CFLAGS] doWv_x='oslX =v ()_,cmg }dyenv.czr${ZSdoWv_x=' 'GCC" }dyenv.czr${ZSH_CFLAGS="-) -O2" -p n$elH_CFLAGS="-)" -p >/xln$$.e 'ev_x=' 'GCC" }dyenv.czr${ZSH_CFLAGS="-O2" -p n$elH_CFLAGS= >&.. nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$CC opt>=# to accept ISO C89 war:"r?VER lr_ry"ceC-c ea eau$CC opt>=# to accept ISO C89eall war6breadoWv_x=' '{aody=v ()_,cmc89"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ealXy=v ()_,cmc89=no$ulXsave_CC=aCC cat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ #incluicz #incluicz #incluicz #incluicz /* Mox=' c_eosdfollowc ea$$.s r_fstol}${fromiRCS 5.7's src/$snf.sh. */ struct buoWsi"ft x 0;$lFILE * (*rcs(pef) (struct buoW*, struct statW*, "ft); static $har *e (p, ") lllll lar **p; H_i"ft i; {l returndp[i]b } static $har *f ($har * (*g) ($har **, "ft),l lar **p,seal) {l lar *s; va%#0x='v; va%start (v,p); s }dg (p, va%arg (v,"ft)); va%e f (v); returndsb } /* OSF 4.0 Csofaq cc is"so 'Xs. (1 c_almrs`-ANSI by defa-_v. Itzhas Hfunct>=# (totypes= nd stuff, but_o=er'\xHH' hex laract_r"$snstantsl fseThes% d n'tX (vrke Rn zS6nn}un=. tunately,insteads r_fseomntly tr?;t_d }s=s 'x'. Tosdfollowc eainducm Rn zS6nn,}until' std is"addedsnofget }s (per ANSI modm. Curiously '\x00'!='x'_always $som ou`rue,1=. ${ZSHarrayfsezeza`leasv. It's necm sarysnofwrite '\x00'==0snofget"so 'thc e{ZSHtha`'s rue ofly uL " std. */ "ft osf4_,cmarrayf['\x00' =}d0 ? 1 : -1]b /* IBMyC161=. AIX is"almrs`-ANSI by defa-_v, but_ierreplacm macro para 'ters Hinspiczstrc es= nd laract_r"$snstantsl */ #def0]k FOO(x) 'x' "ft xlc6_,cmarray[FOO(a) =}d'x'_? 1 : -1]b "ft v_x='("ft i, d ufausx); struct s1 {"ft (*f)'("ft a);}; struct s2 {"ft (*f)'(d ufausa);}; "ft pairs: 's'("ft,l lar **, FILE *(*)(struct buoW*, struct statW*, "ft), "ft, "ft); "ft argc; lar **argv; int ma"fi() {lreturndf (e,1argv, 0)e!}dargv[0] e|| df (e,1argv, 1)e!}dargv[1]b >&; returnd0b } _ACEOF =. nmarg "fi'' -qlanglvl=s tc89 -qlanglvl=ansp' std \ -Am="-Aa -D_HPUX_SOURCE"="-Xc -D__EXTENSIONS__"ml_ L CC=vaalXsave_CC'oslXarg"$.e 'e nmfnv,mtryE$sofeom="# "$ >"}${ZSH_ nm$=v ()_,cmc89=oslXarg nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje t1 >v_x='s2'slX =v ()_,cmc89" !}d"xno"efix_r?;\ dev}Srms_fa$snfn$$. $nms t CC=aalXsave_CC nxl# AC_CACHE_VAL cas% "2'slX =v ()_,cmc89" "f x) llll{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"none oeeded"ear:"r?VER lr(bnone oeeded"ear6bre ;; xno) llll{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"unsupp. (ed"ear:"r?VER lr(bunsupp. (ed"ear6bre ;; *) fselCC="$CC'oslX =v ()_,cmc89" llll{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"'slX =v ()_,cmc89" ar:"r?VER lr(boslX =v ()_,cmc89" ar6bre ;; esac 'ev_x='s2'slX =v ()_,cmc89" !}dxno}${ZSH_`nxl`anms t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn `anms t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eahowsnofrunu==fCr e (cm sorrear:"r?VER lr_ry"ceC-c eahowsnofrunu==fCr e (cm soreall war6brea# On Suns,"so 'ti 's'$CPP1s: 's'a directory. 'ev_x=' 'evaCPP" fixv_x='-devaCPP"$ ;}$$.eCPP=_nxl 'ev_x=' 'evCPP"$ ;}$$.edoWv_x=' '{aody=v ()_CPP"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.efsfs# D ufausquov_xlbecausczCPP1seeds tosb_fexp nd_d }sa eauCPP1i'evaCC -E"="aCC -E -tradit>=#al-cpp"="/lib/cpp" }sa } fsfsllnm e (c_ok=fan$$=. nmnm e (c_warn_flag "fi'' ym ml_ L # Usr a headmr feom=tha`$som uL "gcctmfo $snfigurc e glibc L # uL "a{freshacross-$sofeomr w rkse L # Plaf_r" tosedoW__STDC__ is"def0]kdtmfince L # exi$.s ev}${o${freestandc ea$sofeomrse L # Onu==fNeXT, cc -E runs==f$siczrnrough==f$sofeomr's parser, L # o=erjus`=roughcppll Syntax zS6nn" is"x r:lnof$atcx vnis"cas%.$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ @%:@ifdef __STDC__ @%:@ incluicz @%:@n$$@%:@ incluicz @%:@ fifl sfsllSyntax zS6nn _ACEOF doW nmfnv,mtryE$pp="# "$ >"}${ZSH_an$$.e# Broken efaeos }_ c*Aif "fpu`.lcsntinue nxlrms_fa$snfn$$..zoy $snfn$$. ia$snfn$$. $nms t L # OK, w rks }_ sane"cas%sl NowsceC-awheix rnonexi$.enerheadmrs L # ]kMsb_fd'tec`ed nd how.$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ @%:@incluicz _ACEOF doW nmfnv,mtryE$pp="# "$ >"}${ZSH_# Broken esuccm s =# "fc*Aif "fpu`.lcsntinue n$$.e# Passes boix $$.s. nm e (c_ok=: _r?;\ nxlrms_fa$snfn$$..zoy $snfn$$. ia$snfn$$. $nms t dev}S# Becauscz c_`_r?;\', _AC_PREPROC_IFELSE's leanc ea$siczwas skipped.lrms_fa$snfn$$..i$snfn$$. zoy $snfn$$. $nms t ifn$nm e (c_ok}${ZSH__r?;\ nxl }sa }ne }s=.tc=v ()_CPP=vCPPSH_`nxl.eCPP=$=.tc=v ()_CPP_n$$.ealXy=v ()_CPP=vCPPSnxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" CPP" ar:"r?VER lr(boCPP" ar6breanm e (c_ok=fan$$=. nmnm e (c_warn_flag "fi'' ym ml_ L # Usr a headmr feom=tha`$som uL "gcctmfo $snfigurc e glibc L # uL "a{freshacross-$sofeomr w rkse L # Plaf_r" tosedoW__STDC__ is"def0]kdtmfince L # exi$.s ev}${o${freestandc ea$sofeomrse L # Onu==fNeXT, cc -E runs==f$siczrnrough==f$sofeomr's parser, L # o=erjus`=roughcppll Syntax zS6nn" is"x r:lnof$atcx vnis"cas%.$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ @%:@ifdef __STDC__ @%:@ incluicz @%:@n$$@%:@ incluicz @%:@ fifl sfsllSyntax zS6nn _ACEOF doW nmfnv,mtryE$pp="# "$ >"}${ZSH_an$$.e# Broken efaeos }_ c*Aif "fpu`.lcsntinue nxlrms_fa$snfn$$..zoy $snfn$$. ia$snfn$$. $nms t L # OK, w rks }_ sane"cas%sl NowsceC-awheix rnonexi$.enerheadmrs L # ]kMsb_fd'tec`ed nd how.$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ @%:@incluicz _ACEOF doW nmfnv,mtryE$pp="# "$ >"}${ZSH_# Broken esuccm s =# "fc*Aif "fpu`.lcsntinue n$$.e# Passes boix $$.s. nm e (c_ok=: _r?;\ nxlrms_fa$snfn$$..zoy $snfn$$. ia$snfn$$. $nms t dev}S# Becauscz c_`_r?;\', _AC_PREPROC_IFELSE's leanc ea$siczwas skipped.lrms_fa$snfn$$..i$snfn$$. zoy $snfn$$. $nms t ifn$nm e (c_ok}${ZSH_Sn$$.e{_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deLS6nn:="fi\`aalX wd':"ear:"r?VER lr(bostatu eLS6nn:="fi\`aalX wd':"ear2;L]} lLS6nn} $@%Cr e (cm sor \boCPP\"efaeos sanitysceC- Seei\`$snfig.log''=. mor_fdeta"ls"t"# "$ >" 5breanxl`anms t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eawheix r${MAKE-make}ddevs \$(MAKE) war:"r?VER lr_ry"ceC-c eawheix r${MAKE-make}ddevs \$(MAKE)eall war6brea evsx${MAKE-make} nmmake=`r?VER lr(bo2" | seds's/+/p/g; s/[^a-zA-Z0-9_]/_/g'` ifn'c*A_vv_x='\"\o{aody=v ()_make_o{aodmake}_ ev"dev}\"H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ecat >$snfn$$. makeu<<\_ACEOF SHELL_}d/bin/sh all: @R lr('@@@%%%=$(MAKE)=@@@%%%' _ACEOF #f "bymakeuso 'ti 's'prc vs "make[1]: Enterc e eal",awhecx w uld $snfusczus. cas% `${MAKE-make}d_fa$snfn$$..makeu2>/dev/null`s"f *@@@%%%=?*=@@@%%%*) fsel'c*A_nmy=v ()_make_o{aodmake}_ ev=yen;; *) fsel'c*A_nmy=v ()_make_o{aodmake}_ ev=no;; esac rms_fa$snfn$$..make_nxl 'e'c*A_v_x='\$nmy=v ()_make_o{aodmake}_ ev }dyenv.czr${ZSsir?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"yen"ear:"r?VER lr(byen"ear6breallSET_MAKE=an$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breallSET_MAKE="MAKE=${MAKE-make}"anxl` 'ev_x=' 'evaalXtoolv efix"efix e fs# Ex(sct eosdft s, w rdd c_"${alXtoolv efix}ranlib"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn${alXtoolv efix}ranlib;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_RAN B"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaRAN B"efix e fsysty=v ()_RAN B=vaRAN B" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_RAN B=va{alXtoolv efix}ranlib" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/RAN B=$=.tc=v ()_RAN B 'ev_x=' 'evaRAN B"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" RAN B" ar:"r?VER lr(boRAN B" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` nxl 'ev_x=' 'evnm =v ()_RAN B"efix e fsystyt_RAN B=oRAN B fs# Ex(sct eosdft s, w rdd c_"ranlib"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummynranlib;c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_ystyt_RAN B"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaalX t_RAN B"efix e fsysty=v ()_ystyt_RAN B=vaalX t_RAN B" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_ystyt_RAN B=vranlib" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/ystyt_RAN B=o=.tc=v ()_ystyt_RAN B 'ev_x=' 'evaalX t_RAN B"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" alX t_RAN B" ar:"r?VER lr(boslX t_RAN B" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl`"1 'ev_x='s2'slX t_RAN B" }doefix e fselRAN B=v:" el n$elH_cas% 'crossm$sofeoc e:anmtoolvwarneds"f yen:) {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear:"r?VER lr(bostatu eWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear2;L]nmtoolvwarned=yen ;; esac fselRAN B=o=.tct_RAN B -p >/xln$$.eRAN B=vaalX =v ()_RAN B"anxl`anms t='{aodfc_srcs t-f} nmcsofeom='$FC -c1$FCFLAGS1$aodfcflags_srcs t $snfn$$. $nms tear:' nm#0]k='$FC -o $snfn$$.$nms :s te$FCFLAGS1$LDFLAGS $aodfcflags_srcs t $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =vfcm$sofeomrRltn 'ev_x=' 'evaalXtoolv efix"efix e fs=. nm ()s"fig=. tran g95 xlf95 f95 f. (1if. (1ifc efc pg=. tran pg=95 lf95 ftn xlf90 f90 pg=90 pghp'e'pc=90 g77 xlf f77 f (1pg=77 cf77 f. t77 fl32 af77 kb } fsfs# Ex(sct eosdft s, w rdd c_"$alXtoolv efixoslX ()"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn$nmtoolv efix$nm ();c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_FC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaFC"efix e fsysty=v ()_FC="$FC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_FC=vaalXtoolv efixoslX ()" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/FC=a=.tc=v ()_FC 'ev_x=' 'evaFC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" FC" ar:"r?VER lr(boFCrear6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` >&5v_x=' 'evaFC"efix_r?;\ kb }_p_nxl 'ev_x=' 'evFC"efix e fsystyt_FC=vFC fs=. nm ()s"fig=. tran g95 xlf95 f95 f. (1if. (1ifc efc pg=. tran pg=95 lf95 ftn xlf90 f90 pg=90 pghp'e'pc=90 g77 xlf f77 f (1pg=77 cf77 f. t77 fl32 af77 l_ L # Ex(sct eosdft s, w rdd c_"$nm ()"tmfo iti]kMsb_fR () n s: 'X uL "ass. evsdummyn$nm ();c : w rd=$2 {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eau$ : w rd war:"r?VER lr_ry"ceC-c ea eau$ : w rdeall war6breadoWv_x=' '{aody=v ()_alX t_FC"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evaalX t_FC"efix e fsysty=v ()_ystyt_FC=vaalX t_FC" L `==fus%rndazoypiczrncsn$$. _n$$u ysave_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_doWsi as_fa ' s_f s/$ : w rd$nms :sv.e refixystav_x=_x ' s_f s/$ : w rd$nms :sv.e r 0;$ ;}$ }s=.tc=v ()_ystyt_FC=vaalX ()" -p n$$ .'N e f;oreA} $@%#0]k,i"# "$ >/defs f ' s_f s/$ : w rd$nms :sv.e re.cz1 >&5_r?;\ 2 xp.. dev}Skb }_p_IFS=$u ysave_IFS" >/ >/alX t_FC=a=.tc=v ()_alX t_FC 'ev_x=' 'evaalX t_FC"efix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" alX t_FC" ar:"r?VER lr(boalX t_FC" ar6brean$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"no"ear:"r?VER lr(bno"ear6breanxl` 3,v_x=' 'evaslX t_FC"efix_r?;\ dev}S`"1 'ev_x='s2'slX t_FC" }doefix e fselFC="" el n$elH_cas% 'crossm$sofeoc e:anmtoolvwarneds"f yen:) {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear:"r?VER lr(bostatu eWARNING: usc eacross tools o=er efixeds uL "lrs`riple("ear2;L]nmtoolvwarned=yen ;; esac fselFC=aalX t_FC -p >/nxl`l# Provpiczso 'Xin=. mat>=# abou`==f$sofeomr."r?VER lr(bostatu } $@%#0]k,i"# "$ >/deceC-c ea eauF. tran $sofeomr azos>=#"ear:" evsX" alX sofeom nm$sofeomr=$2 =. nmopt>=# "fi--azos>=#d-v -V -qazos>=#X CXXq_{_{_nmtry=vaalX sofeomr $nmopt>=# ar:" cas% "(($nmtry"s"f *\"* | *\`* | *\\*)_nmtryER lr=\$nmtry;; *)_nmtryER lr=$nmtry;; esac 'c*A_nmtryER lr="\"\ostatu } $@%#0]k,i"# "$ >/de$nmtryER lr\"""r?VER lr(boslXtryER lrr 0;e.cz1 >('c*A_vaalX sofeomr $nmopt>=# ar:") 2>$snfn$$. zoy fsyststatus=$?$.e 'ev_x=' s $snfn$$. zoyefix e fselseds'10a\ eallr_x=' c_stdzoy ou`pu`dele(edseal fsellllll10q' $snfn$$. zoy >$snfn$$. zo1$elH_cat $snfn$$. zo1e.cz1 > >/3,rms_fa$snfn$$. zo1e$snfn$$. zoy fsr?VER lr(bostatu } $@%#0]k,i"# "$ >/de\$? }d$yststatusre.cz1 >v_x='$yststatus }d0breadev}Srms_faa ou` l# I'ewe d n'tXuscz`.F'=s .e ens>=#,irncsp e (cm sor is o=errunuonu==l# "fpu` feom. >(Notm=tha`vnis"ofly seeds tosw rka eau "by$sofeomrse)$ulXsave_s t='anms t aods t=F {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eawheix rwe r_fusc ea==f "byF. tran $sofeomrrear:"r?VER lr_ry"ceC-c eawheix rwe r_fusc ea==f "byF. tran $sofeomreall war6breadoWv_x=' '{aody=vfcm$sofeomrRltn"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ecat > $snfn$$. $nms te<<_ACEOF fselll () n ma"fl#ifndef __ "bC__ ellllll lrke me #e fifl`>&fsel'nd _ACEOF doW nmfnvf,mtryE$sofeom="# "$ >"}${ZSH_ nm$sofeomrRltn=yenan$$.e nm$sofeomrRltn=no nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t aody=vfcm$sofeomrRltn=$ nm$sofeomrRltn nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=vfcm$sofeomrRltn" ar:"r?VER lr(boslX =vfcm$sofeomrRltn" ar6breanms t='anmsave_s t/alXv_x=_FCFLAGS= {FCFLAGS"dev}/alXsave_FCFLAGS= FCFLAGS FCFLAGS= {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eawheix r$FC accepts -e war:"r?VER lr_ry"ceC-c eawheix r$FC accepts -eeall war6breadoWv_x=' '{aody=v ()_fcmg"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.eFCFLAGS=-g cat > $snfn$$. $nms te<<_ACEOF fselll () n ma"fl`>&fsel'nd _ACEOF doW nmfnvf,mtryE$sofeom="# "$ >"}${ZSH_ nm$=v ()_fcmg=yenan$$.e nm$=v ()_fcmg=no nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=v ()_fcmg" ar:"r?VER lr(boslX =v ()_fcmg" ar6breadoWv_x=' 'alXv_x=_FCFLAGSH_}ddev$ ;}$$.eFCFLAGS=$alXsave_FCFLAGS] doWv_x='oslX =v ()_fcmg }dyenv.czr${ZSdoWv_x=' xoslX =vfcm$sofeomrRltn" }doyenv.czr${ZSH_FCFLAGS="-) -O2" -p n$elH_FCFLAGS="-)" -p >/xln$$.e 'ev_x=' xoslX =vfcm$sofeomrRltn" }doyenv.czr${ZSH_FCFLAGS="-O2" -p n$elH_FCFLAGS= -p >/nxl`anms t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn `anms t='{aodfc_srcs t-f} nmcsofeom='$FC -c1$FCFLAGS1$aodfcflags_srcs t $snfn$$. $nms tear:' nm#0]k='$FC -o $snfn$$.$nms :s te$FCFLAGS1$LDFLAGS $aodfcflags_srcs t $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =vfcm$sofeomrRltn {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eauF. tran flag oeeded to accept free-=. mzsourcs war:"r?VER lr_ry"ceC-c ea eauF. tran flag oeeded to accept free-=. mzsourcseall war6breadoWv_x=' '{aody=vfcmfree=. m"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ealXy=vfcmfree=. m=unknown aodfc_free=. m_FCFLAGSXsave= FCFLAGS =. nmflag "finone -ffree-=. mz-FR -free -qfree -Mfree -Mfree=. mz\ ellllll-free=. mz"_fafree" +sourcs=free -nfix CXXq_ as xoslXflag" !}dxnone fixFCFLAGS="$aodfc_free=. m_FCFLAGSXsave oslXflag"$.ecat > $snfn$$. $nms te<<_ACEOF ll () n free=. m ellllll! FIXME:ahowsnofb as$snfuscznon-free=. mz$sofeomrs? ellllllprc vW*, 'Hello ', & ellll@&t@ellll'w rld.' ellllll'nd _ACEOF doW nmfnvf,mtryE$sofeom="# "$ >"}${ZSH_ nm$=vfcmfree=. m=oslXflag; _r?;\ nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t dev}Srms_fa$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t FCFLAGS=$alXfc_free=. m_FCFLAGSXsave nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=vfcmfree=. m" ar:"r?VER lr(boslX =vfcmfree=. m" ar6breadoWv_x=' xoslX =vfcmfree=. m" }dxunknownefix e fsy} lLS6nn}77 "F. tran does o=eraccept free-=. mzsourcs w"# "$ >" 5/xln$$.e 'ev_x=' xoslX =vfcmfree=. m" !}dxnonev.czr${ZSH_FCFLAGS="$FCFLAGS1$aod =vfcmfree=. m"1 > >/3, nxlanms t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn anms t='{aodfc_srcs t-f} nmcsofeom='$FC -c1$FCFLAGS1$aodfcflags_srcs t $snfn$$. $nms tear:' nm#0]k='$FC -o $snfn$$.$nms :s te$FCFLAGS1$LDFLAGS $aodfcflags_srcs t $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =vfcm$sofeomrRltn {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c eahowsnofget"verbrsr #0]kc eaou`pu`fromi FC" ar:"r?VER lr_ry"ceC-c eahowsnofget"verbrsr #0]kc eaou`pu`fromi FCeall war6breadoWv_x=' '{aody=v ()_fcmv"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ecat > $snfn$$. $nms te<<_ACEOF fselll () n ma"fl`>&fsel'nd _ACEOF doW nmfnvf,mtryE$sofeom="# "$ >"}${ZSH_ nm$=v ()_fcmv= # Tryzso 'Xopt>=#s frequmntly usedsverbrsr ou`pu` =. nmverb "fi-v -verbrsr --verbrsr -V -\#\#\#X CXXq_cat > $snfn$$. $nms te<<_ACEOF fselll () n ma"fl`>&fsel'nd _ACEOF # Csofeom= nd #0]k our simplcsn$$.l () n by passc eaa flag (argummnt # 1snofvnis"macro)snofvneuF. tran $sofeomr "fiordmr nofget # "verbrsr"aou`pu`tha`wei]kMs}${parsea eauvneuF. tran #0]ker # flags./alXsave_FCFLAGS= FCFLAGS FCFLAGS="$FCFLAGS1$aodverb" 'c*A_" evsx$nm#0]k" hift$r?VER lrfsystatu } $@%#0]k,i"# "$ >/de$*" ar:"#ig=. tran 4.3aou`pu`s #0]es evtc eaCOLLECT_GCC_OPTIONS,aCOMPILER_ ,"#i BRARY_ ; skip allesuch evtc es./alXfcmv_ou`pu`=`'c*A_$nm#0]k 5>&1 2>&1 |`>&grepi-v 'Drivc e:' |&grepi-v "^[_ystacr_Levtmrs][_ystacr_alnum]*="`"r?VER lr(boslXfcmv_ou`pu`" ar:"FCFLAGS=$alXsave_FCFLAGS]Srms_rfa$snfn$$.* a# On HP/UXuvnereis"a #0]e #0ke: "L is: /foo:/bar:/baz"awher=l# /foo, /bar,= nd /bazs r_fsearch directories eauvneuF. tran #0]ker.l# Her=,wei]hangczrncs% innof-L/foof-L/barf-L/baz (and put_ierft s,):/alXfcmv_ou`pu`="`R lr(oslXfcmv_ou`pu` |` grepi'L is:' |` seds's|.*L is\(: *[^ ]*\).*|\1|;s|: */|f-L/|g'`(oslXfcmv_ou`pu`" a# FIXME:aweikeepigevtc eabivtmn by quov_ds rgummntnv.amor_fgeneral fexa# tha`d'tec`s unbalanc_dsquov_xl"fiF BSesh uld b% implcmmnteda# and (ugh)sn$$._ds t"so ' poinn. cas% oslXfcmv_ou`pu` ie fs# I'ewe r_fusc eaxlf }${replacm alle==f$soma uL "spacm l fs*xlfmntry*) fselalXfcmv_ou`pu`=`' lr(oslXfcmv_ou`pu` | seds's/,/ /g'` ;; fs# WuL "Intel1ifc, ignor_f==fquov_ds-mGLOBmopt>=#s_strc e stuff (quov_d fs# # BSe$snfusczus,= nd ==flibraries appear latmr "fi==fou`pu` anyway)l fs*mGLOBmopt>=#s_strc e*) fselalXfcmv_ou`pu`=`' lr(oslXfcmv_ou`pu` | seds's/"-mGLOB[^"]*"/ /g'` ;; fs# P. tl nd Group $sofeomr has sc ely-ior d ufay-quov_ds-cmd#0]e argummnt fs# Sc ely-quov_ds rgummntnewer_frep. (ed eauazos>=#s 5.2-4= nd 6.0-4e L # D ufay-quov_ds rgummntnewer_frep. (ed eau"PGF90/x86 Linux/x86 5.0-2"l fs*-cmd#0]e\ * | *-ignor_\ * | *-def\ *) fselalXfcmv_ou`pu`=`' lr(oslXfcmv_ou`pu` | seds"\ s/-cmd#0]e *'[^']*'/ /g; s/-cmd#0]e *\"[^\"]*\"/ /g s/-ignor_f *'[^']*'/ /g; s/-ignor_f *\"[^\"]*\"/ /g s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;; fs# I'ewe r_fusc eaCrayfF. tran }${dele(esquov_xl fs*cft90*) fselalXfcmv_ou`pu`=`' lr(oslXfcmv_ou`pu` | seds's/"//g'` ;; esac fs# looka eau-l*= nd *.a"$snstructs "fi==fou`pu` fs=. nmarg "fioslXfcmv_ou`pu`;a } fsfslcas% oslXarg "f [\\/]*.a"| ?:[\\/]*.a"| -[lLRu]*) H_ nm$=v ()_fcmv=$aodverb H__r?;\ 2 ;; sel'sac fsdev}Sdev}S 'ev_x=' 'evnm =v ()_fcmv"efix e fse{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: ]kMo=erd'term0]e howsnofobta"fi#0]kc eain=. mat>=# fromi FC" ar:"r?VER lr(bostatu eWARNING: ]kMo=erd'term0]e howsnofobta"fi#0]kc eain=. mat>=# fromi FC" ar2;L] >/xln$$.e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: ]sofeoat>=# faeomd"ear:"r?VER lr(bostatu eWARNING: ]sofeoat>=# faeomd"ear2;L] >/rms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=v ()_fcmv" ar:"r?VER lr(boslX =v ()_fcmv war6brea{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eauF. tran libraries ofi FC" ar:"r?VER lr_ry"ceC-c ea eauF. tran libraries ofi FCeall war6breadoWv_x=' '{aody=vfcmlibs"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x='"x FC BS" !}d"x"efix e fsysty=vfcmlibs="$FC BS" L `==fus%rndazoypiczrncsn$$. _n$$ cat > $snfn$$. $nms te<<_ACEOF fselll () n ma"fl`>&fsel'nd _ACEOF # Csofeom= nd #0]k our simplcsn$$.l () n by passc eaa flag (argummnt # 1snofvnis"macro)snofvneuF. tran $sofeomr "fiordmr nofget # "verbrsr"aou`pu`tha`wei]kMs}${parsea eauvneuF. tran #0]ker # flags./alXsave_FCFLAGS= FCFLAGS FCFLAGS="$FCFLAGS1$aod =v ()_fcmv 'c*A_" evsx$nm#0]k" hift$r?VER lrfsystatu } $@%#0]k,i"# "$ >/de$*" ar:"#ig=. tran 4.3aou`pu`s #0]es evtc eaCOLLECT_GCC_OPTIONS,aCOMPILER_ ,"#i BRARY_ ; skip allesuch evtc es./alXfcmv_ou`pu`=`'c*A_$nm#0]k 5>&1 2>&1 |`>&grepi-v 'Drivc e:' |&grepi-v "^[_ystacr_Levtmrs][_ystacr_alnum]*="`"r?VER lr(boslXfcmv_ou`pu`" ar:"FCFLAGS=$alXsave_FCFLAGS]Srms_rfa$snfn$$.* a# On HP/UXuvnereis"a #0]e #0ke: "L is: /foo:/bar:/baz"awher=l# /foo, /bar,= nd /bazs r_fsearch directories eauvneuF. tran #0]ker.l# Her=,wei]hangczrncs% innof-L/foof-L/barf-L/baz (and put_ierft s,):/alXfcmv_ou`pu`="`R lr(oslXfcmv_ou`pu` |` grepi'L is:' |` seds's|.*L is\(: *[^ ]*\).*|\1|;s|: */|f-L/|g'`(oslXfcmv_ou`pu`" a# FIXME:aweikeepigevtc eabivtmn by quov_ds rgummntnv.amor_fgeneral fexa# tha`d'tec`s unbalanc_dsquov_xl"fiF BSesh uld b% implcmmnteda# and (ugh)sn$$._ds t"so ' poinn. cas% oslXfcmv_ou`pu` ie fs# I'ewe r_fusc eaxlf }${replacm alle==f$soma uL "spacm l fs*xlfmntry*) fselalXfcmv_ou`pu`=`' lr(oslXfcmv_ou`pu` | seds's/,/ /g'` ;; fs# WuL "Intel1ifc, ignor_f==fquov_ds-mGLOBmopt>=#s_strc e stuff (quov_d fs# # BSe$snfusczus,= nd ==flibraries appear latmr "fi==fou`pu` anyway)l fs*mGLOBmopt>=#s_strc e*) fselalXfcmv_ou`pu`=`' lr(oslXfcmv_ou`pu` | seds's/"-mGLOB[^"]*"/ /g'` ;; fs# P. tl nd Group $sofeomr has sc ely-ior d ufay-quov_ds-cmd#0]e argummnt fs# Sc ely-quov_ds rgummntnewer_frep. (ed eauazos>=#s 5.2-4= nd 6.0-4e L # D ufay-quov_ds rgummntnewer_frep. (ed eau"PGF90/x86 Linux/x86 5.0-2"l fs*-cmd#0]e\ * | *-ignor_\ * | *-def\ *) fselalXfcmv_ou`pu`=`' lr(oslXfcmv_ou`pu` | seds"\ s/-cmd#0]e *'[^']*'/ /g; s/-cmd#0]e *\"[^\"]*\"/ /g s/-ignor_f *'[^']*'/ /g; s/-ignor_f *\"[^\"]*\"/ /g s/-def *'[^']*'/ /g; s/-def *\"[^\"]*\"/ /g"` ;; fs# I'ewe r_fusc eaCrayfF. tran }${dele(esquov_xl fs*cft90*) fselalXfcmv_ou`pu`=`' lr(oslXfcmv_ou`pu` | seds's/"//g'` ;; esac ysty=vfcmlibs= a# Save posit>=#als rgummntne(doW ny)$ulXsave_posit>=#al="$@" a evsX" alXfcmv_ou`pu` whilcsn$$.l$@%:@e!}d1;a } fs hift$.eslXarg=$1 slcas% oslXarg "f [\\/]*.a"| ?:[\\/]*.a) elllnms i$.s=fan$$fs=. nmi "fioslXy=vfcmlibs;a } fsfs 'ev_x='x"oslXarg" }dx"oslXi"efix e fselllnms i$.s=rue fselll_r?;\ kb > >/3,dev}S`"1 'ev_x='x"oslXs i$.s" }dxrue}${ZSH_an$$.e nm$=vfcmlibs="$ nm$=vfcmlibs'oslXarg"$ >/ el;; -bI:*) elllnms i$.s=fan$$fs=. nmi "fioslXy=vfcmlibs;a } fsfs 'ev_x='x"oslXarg" }dx"oslXi"efix e fselllnms i$.s=rue fselll_r?;\ kb > >/3,dev}S`"1 'ev_x='x"oslXs i$.s" }dxrue}${ZSH_an$$.edoWv_x=' 'alX$sofeomrRltn" }dyenv.czr${ZS=. nm#0]kmopt "fioslXarg;a } fsfs nm$=vfcmlibs="$ nm$=vfcmlibs'-X#0]ker_$nm#0]kmopt"/3,dev}Sn$$.e nm$=vfcmlibs="$ nm$=vfcmlibs'oslXarg"$ >/ >/ el;; fs# Ignor_f==sea lags./ -lang* | -lcrt*.o | -lc | -lgcc* | -lSy$._m | -libmil | -littlcs\ el|-LANG:=* | -LIST:* | -LNO:* | -#0]k)/ el;; -lkernel32)/ elv_x='x"oCYGWIN" !}dxyen fix nm$=vfcmlibs="$ nm$=vfcmlibs'oslXarg"$ el;; -[LRuYz]) fs# T==sea lags,awh}${semn by ==mselves,atake Rn rgummnt. fs# W_fremdazi==fspacm b%twemn opt>=# nd rgummnt nd re-itmratm fs# unlm s wsdftnd n empty rgior a new opt>=# (startc eawuL " ) fscas% o2 "f selll"" | -*);; fs *) slXarg="oslXarg$2"$ hift;s hift$ evsX" alX rgi"$@" ;; fsesac el;; -YP,*) el=. nmj "fi`r?VER lr(boslXarg" | seds-es's/-YP,/-L/;s/:/f-L/g'`;a } fselllnms i$.s=fan$$fs=. nmi "fioslXy=vfcmlibs;a } fsfs 'ev_x='x"oslXj" }dx"oslXi"efix e fselllnms i$.s=rue fselll_r?;\ kb > >/3,dev}S`"1 'ev_x='x"oslXs i$.s" }dxrue}${ZSH_an$$.e nmarg="oslXarg oslXj" ellllll nm$=vfcmlibs="$ nm$=vfcmlibs'oslXj"$ >/ eldev}S el;; -[lLR]*) elllnms i$.s=fan$$fs=. nmi "fioslXy=vfcmlibs;a } fsfs 'ev_x='x"oslXarg" }dx"oslXi"efix e fselllnms i$.s=rue fselll_r?;\ kb > >/3,dev}S`"1 'ev_x='x"oslXs i$.s" }dxrue}${ZSH_an$$.e nm$=vfcmlibs="$ nm$=vfcmlibs'oslXarg"$ >/ el;; -zallex(sct*| -zdefa-_vex(sct) H_ nm$=vfcmlibs="$ nm$=vfcmlibs'oslXarg"$ el;; fs# Ignor_feazoythc ep nl fsesac dev}S# r_x=or_fposit>=#als rgummntna evsX" alXsave_posit>=#al;s hift$ # W_fofly $snsidmr "LD_RUN_ "uonuSolaris sy$._msl Iffvnis"is semn,"#i}${weHinspst=tha`vne "runupath" mus`be Rn bsolu(espathe(d.e._ie"#imus`beg"fi uL "a{"/"). cas% `(us: 'X-sr)u2>/dev/null`s"f "SunOS 5"*) fselH_ nmld_run_path=`r?VER lr(boslXfcmv_ou`pu`" | seds-ns's,^.*LD_RUN_ *= *\(/[^ ]*\).*$,-R\1,p'` fselH_v_x=' xoslXld_run_path" !}dx fi doWv_x=' 'alX$sofeomrRltn" }dyenv.czr${ZS=. nm#0]kmopt "fioslXld_run_path;a } fsfs nm$=vfcmlibs="$ nm$=vfcmlibs'-X#0]ker_$nm#0]kmopt"/3,dev}Sn$$.e nm$=vfcmlibs="$ nm$=vfcmlibs'oslXld_run_path"`nxl.eeeee;; esac fis# v_x=' xo[]_AC_LANG_PREFIX[] BS" }d"x" nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=vfcmlibs" ar:"r?VER lr(boslX =vfcmlibs" ar6breaFC BS="$ nm$=vfcmlibs" l`anms t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn # CeC-aarchitec`ur}S`a{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eaugrepitha`h ndlm lo ea#0]es nd -s war:"r?VER lr_ry"ceC-c ea eaugrepitha`h ndlm lo ea#0]es nd -seall war6breadoWv_x=' '{aody=v ath_GREP"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'ev_x=' 'evGREP"efix e fsyst ath_GREP_fs f=fan$$fs# Loopzrnrough==fus%r's paL "and _x=' eauewar ofiPROGNAME-LIST fsy} save_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ $ _SEPARATOR/usr/xpg4/binml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nm ()s"figrepiggrep;a } fsfs=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_fsfs nm ath_GREP= ' s_f s/$ : ()$nms :sv.e " elllllsi as_fa ' nm ath_GREPrefixystav_x=_x ' nm ath_GREPr 0;e|| csntinue # CeC-a eau "by nm ath_GREP= nd select_ier 'eier sefs fe L # CeC-a eau "by' nm ath_GREP cas% ` ' nm ath_GREPre--azos>=#d2>&1`s"f * "b*) fsaody=v ath_GREP= ' nm ath_GREPreyst ath_GREP_fs f=:;; *) fsaodys t=0SH_r?VER lr_ry0123456789 >"$snfn$$..in" elwhilcs: kb } fsfscat "$snfn$$..in" "$snfn$$..in" >"$snfn$$..tmp" }samv "$snfn$$..tmp" "$snfn$$..in" elfscp "$snfn$$..in" "$snfn$$..nl" -p n$$ .'N 'GREP' >> "$snfn$$..nl" -p ' nm ath_GREPre-e 'GREP$'e-e '-(]kMo=ermatcx)-' < "$snfn$$..nl" >"$snfn$$..ou`" 2>/dev/nulle|| _r?;\ kb >diff "$snfn$$..ou`" "$snfn$$..nl" >/dev/nulle2>&1 || _r?;\ kb >y} lariL "$aodys t + 1 fix nm$s t=n$$val fsfs 'ev_x='$aodys t -gtn${alX ath_GREP_max-0}efix e fselll# Bex=' nczso far,=save it but_keepilookc ea eaua b%ttmr }ne }sfsaody=v ath_GREP= ' nm ath_GREPrXq_fsfs nm ath_GREP_max=$aodys t kb > >/3,ll# 10*(2^10)l lars=s "fpu` semmsmor_fthan enough elH_v_x='$aodys t -gtn10efix_r?;\ kb }_p_3,rms_fa$snfn$$. in $snfn$$..tmp $snfn$$..nl $snfn$$..ou`;; esac q_fsfs$yst ath_GREP_fs fefix_r?;\ 3 kb >dev}Skb }_p_kb }_p_IFS=$u ysave_IFS".e 'ev_x=' 'evaody=v ath_GREP"efix e fsela} lLS6nn} $@%no acceptefauigrepic uld b% fs fe"fi$ $ _SEPARATOR/usr/xpg4/bin w"# "$ >" 5/-p >/xln$$.eaody=v ath_GREP=vGREP/nxl`nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=v ath_GREPrear:"r?VER lr(boslX =v ath_GREPrear6brealGREP= ' nm =v ath_GREPr `a{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eauegrep war:"r?VER lr_ry"ceC-c ea eauegrepeall war6breadoWv_x=' '{aody=v ath_EGREP"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'eR lrfa"| vGREP -E '(a|b)' >/dev/nulle2>&1 fse;}${aody=v ath_EGREP="vGREP -ErXq_fn$$.efsf 'ev_x=' 'evEGREP"efix e fsyst ath_EGREP_fs f=fan$$fs# Loopzrnrough==fus%r's paL "and _x=' eauewar ofiPROGNAME-LIST fsy} save_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ $ _SEPARATOR/usr/xpg4/binml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1=. nm ()s"fiegrep;a } fsfs=. nms :sv.e s"fi'' 'Soazdefadefauv.e ens>=#eX CXXq_fsfs nm ath_EGREP= ' s_f s/$ : ()$nms :sv.e " elllllsi as_fa ' nm ath_EGREPrefixystav_x=_x ' nm ath_EGREPr 0;e|| csntinue # CeC-a eau "by nm ath_EGREP= nd select_ier 'eier sefs fe L # CeC-a eau "by' nm ath_EGREP cas% ` ' nm ath_EGREPre--azos>=#d2>&1`s"f * "b*) fsaody=v ath_EGREP= ' nm ath_EGREPreyst ath_EGREP_fs f=:;; *) fsaodys t=0SH_r?VER lr_ry0123456789 >"$snfn$$..in" elwhilcs: kb } fsfscat "$snfn$$..in" "$snfn$$..in" >"$snfn$$..tmp" }samv "$snfn$$..tmp" "$snfn$$..in" elfscp "$snfn$$..in" "$snfn$$..nl" -p n$$ .'N 'EGREP' >> "$snfn$$..nl" -p ' nm ath_EGREPre'EGREP$' < "$snfn$$..nl" >"$snfn$$..ou`" 2>/dev/nulle|| _r?;\ kb >diff "$snfn$$..ou`" "$snfn$$..nl" >/dev/nulle2>&1 || _r?;\ kb >y} lariL "$aodys t + 1 fix nm$s t=n$$val fsfs 'ev_x='$aodys t -gtn${alX ath_EGREP_max-0}efix e fselll# Bex=' nczso far,=save it but_keepilookc ea eaua b%ttmr }ne }sfsaody=v ath_EGREP= ' nm ath_EGREPrXq_fsfs nm ath_EGREP_max=$aodys t kb > >/3,ll# 10*(2^10)l lars=s "fpu` semmsmor_fthan enough elH_v_x='$aodys t -gtn10efix_r?;\ kb }_p_3,rms_fa$snfn$$. in $snfn$$..tmp $snfn$$..nl $snfn$$..ou`;; esac q_fsfs$yst ath_EGREP_fs fefix_r?;\ 3 kb >dev}Skb }_p_kb }_p_IFS=$u ysave_IFS".e 'ev_x=' 'evaody=v ath_EGREP"efix e fsela} lLS6nn} $@%no acceptefauiegrepic uld b% fs fe"fi$ $ _SEPARATOR/usr/xpg4/bin w"# "$ >" 5/-p >/xln$$.eaody=v ath_EGREP=vEGREP nxl }s.. nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=v ath_EGREPrear:"r?VER lr(boslX =v ath_EGREPrear6brealEGREP= ' nm =v ath_EGREPr `a{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eauANSI C headmr feoms war:"r?VER lr_ry"ceC-c ea eauANSI C headmr feomseall war6breadoWv_x=' '{aody=vheadmr_stdc"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ #incluicz #incluicz #incluicz #incluicz int ma"fi() {l >&; returnd0b } _ACEOF 'e nmfnv,mtryE$sofeom="# "$ >"}${ZSH_ nm$=vheadmr_stdc=yenan$$.e nm$=vheadmr_stdc=no nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t doWv_x='oslX =vheadmr_stdc }dyenv.czr${ZS# SunOS 4.x strc e.h does o=erdecl r_fmem*, csntrarysnofANSI.$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ #incluicz _ACEOF 'e('c*A_vaalX ppa$snfn$$. $nms t") 2>&5 |`>&vEGREP "memchr" >/dev/nulle2>&1}${ZSH_an$$.e nm$=vheadmr_stdc=no nxlrms_fa$snfn$$.* anxl` 'ev_x='oslX =vheadmr_stdc }dyenv.czr${ZS# ISC 2.0.2 stdlib.h does o=erdecl r_ffree, csntrarysnofANSI.$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ #incluicz _ACEOF 'e('c*A_vaalX ppa$snfn$$. $nms t") 2>&5 |`>&vEGREP "free" >/dev/nulle2>&1}${ZSH_an$$.e nm$=vheadmr_stdc=no nxlrms_fa$snfn$$.* anxl` 'ev_x='oslX =vheadmr_stdc }dyenv.czr${ZS# /bin/cce"fiIrix-4.0.5igevsznon-ANSI ctype"macros unlm s usc ea-ansp. .edoWv_x=' 'crossm$sofeoc e" }dyenv.czr${ZSH_:_n$$.ecat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ #incluicz #incluicz #i'e((' ' & 0x0FF) =}d0x020) # def0]k ISLOWER(c) ('a' <= (c) fix(c) <= 'z') # def0]k TOUPPER(c) (ISLOWER(c) ? 'A' + ((c) - 'a') :x(c)) #n$$# def0]k ISLOWER(c) \l sfs(('a' <= (c) fix(c) <= 'i') \l sfs e|| ('j' <= (c) fix(c) <= 'r') \l sfs e|| ('s' <= (c) fix(c) <= 'z')) # def0]k TOUPPER(c) (ISLOWER(c) ? ((c) |d0x40) :x(c)) # fifl`#def0]k XOR(e,1f)'(((e) fix!(f))e|| (!(e) fix(f))) int ma"fi() {l "ft i;{ZS=. (i }d0bri < 256bri++) fsfs 'e(XOR(islowe (i), ISLOWER(i)) || touppe (i) !}dTOUPPER(i)) q_fsfsreturnd2; returnd0b } _ACEOF 'e nmfnv,mtryErunu"# "$ >"}${ZSH_an$$.e nm$=vheadmr_stdc=no nxlrms_fa$sre*.$sre$sre.$snfn$$. * gmon.ou` bb.ou` $snfn$$.$nms :s te\$.ecsnfn$$. $nmobje ta$snfn$$. beama$snfn$$. $nms t nxl`nxlnxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=vheadmr_stdcrear:"r?VER lr(boslX =vheadmr_stdcrear6breadoWv_x='oslX =vheadmr_stdc }dyenv.czr${ZS"r?VER lr(b@%:@def0]k STDC_HEADERS 1rea>$snfdefs.h anxl`# On IRIX 5.3, sy$/types nd "fttypes.h r_f$snflictc e. =. nmheadmr "fisy$/types.h sy$/stat.h stdlib.h strc e.h memory.h strc es.h \l sf"fttypes.h stdinn.h unistd.h do{ZSH_ s_alXHeadmr=`r?VER lr(bslX =vheadmr_$nmheadmr" | ystavr_sh` nmfnv,mceC-vheadmr_$sofeom="# "$ >"(boslXheadmr" systaalXHeadmr"(boslXincluics_defa-_v "l 'e'c*A_v_x='\"x\$systaalXHeadmr"\" }dx"yen"}${ZSH_cat >>$snfdefs.he<<_ACEOF @%:@def0]k `r?VER lr(bHAVE_$nmheadmr" | ystavr_ pp` 1 _ACEOF _`nxl`dev}S` # T==scastsnoflo ea"ft w rks ars fea bug "fi==fHP C Csofeomr # azos>=#dHP92453-01 B.11.11.23709.GP,awhecx incorrectlyelajec`s # decl rat>=#s #0ke `"ft a3[[(sizeo'e(unspgneds lar))e>}d0]];'. # T=is bug "sfHP SR numbmr 8606223364.a{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c easize ofilo ead ufas war:"r?VER lr_ry"ceC-c easize ofilo ead ufaseall war6breadoWv_x=' '{aody=vsizeo'_lo e_d ufas"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.e 'e nmfnv,mcsofute_"ft "# "$ >"(b(lo ea"ft)'(sizeo'e(lo ead ufas))"(bslX =vsizeo'_lo e_d ufas" boslXincluics_defa-_v"}${ZSH_an$$.edoWv_x=' 'alX$v_type_lo e_d ufas" }dyenv.czr${ZS .e{_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deLS6nn:="fi\`aalX wd':"ear:"r?VER lr(bostatu eLS6nn:="fi\`aalX wd':"ear2;L]} lLS6nn}77 "]kMo=ercsofute sizeo'e(lo ead ufas) Seei\`$snfig.log''=. mor_fdeta"ls"t"# "$ >" 5breaq_fn$$.efsfslX =vsizeo'_lo e_d ufas=0SH_p >/nxl`nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=vsizeo'_lo e_d ufas" ar:"r?VER lr(boslX =vsizeo'_lo e_d ufas" ar6brea $ cat >>$snfdefs.he<<_ACEOF @%:@def0]k SIZEOF_LONG_DOUBLE" =.tc=vsizeo'_lo e_d ufas _ACEOF S`a{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eatran 90modul_xl"fclus>=#dflag" ar:"r?VER lr_ry"ceC-c ea eatran 90modul_xl"fclus>=#dflageall war6breadoWv_x=' '{axm$=vf90_modflag"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ealXs t='{aodfc_srcs t-f} nmcsofeom='$FC -c1$FCFLAGS1$aodfcflags_srcs t $snfn$$. $nms tear:' nm#0]k='$FC -o $snfn$$.$nms :s te$FCFLAGS1$LDFLAGS $aodfcflags_srcs t $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =vfcm$sofeomrRltn i=0Swhilcsn$$.l\(s_fatmpdir_$i \) -o \(s_datmpdir_$i \) X CXXq_d=`expr $i + 1``dev}Smkodv=tmpdir_$i cd=tmpdir_$i cat > $snfn$$. $nms te<<_ACEOF !234567 q_fsfsmodul_ $snfn$$._modul_ q_fsfscsnta"fs q_fsfssubrs t0]k $snfn$$._rs t0]k q_fsfswrite(*,'(a)') 'got la!' ellllle f subrs t0]k $snfn$$._rs t0]k q_fsfse f modul_ $snfn$$._modul_ q_ _ACEOF doW nmfnvf,mtryE$sofeom="# "$ >"}${ZSH_ nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t cdsea axm$=vf90_modflag="o=erfs f" =. xmflag "fi"-I"t"-J"t"-M"t"-p"X CXXq_doWv_x=' 'axm$=vf90_modflag" }d"o=erfs f" efix e fselaxXsave_FCFLAGS="$FCFLAGSrXq_fsFCFLAGS="$axXsave_FCFLAGS '{axmflag}tmpdir_$i" fsfscat > $snfn$$. $nms te<<_ACEOF !234567 q_fsfs () n $snfn$$._ () n q_fsfsuscz$snfn$$._modul_ q_fsfscalle$snfn$$._rs t0]k q_fsfse f () n $snfn$$._ () n q_fsfs _ACEOF doW nmfnvf,mtryE$sofeom="# "$ >"}${ZSH_ xm$=vf90_modflag="$axmflag" nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t q_fsFCFLAGS="$axXsave_FCFLAGS"1 > >/dev}Srms_fv=tmpdir_$i doWv_x=' 'axm$=vf90_modflag" }d"o=erfs f" efix e fsa} lLS6nn} $@%unefauinofftnd $sofeomr flag =. modul_xl"fclus>=# w"# "$ >" 5/nxlanms t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn `nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =xm$=vf90_modflag" ar:"r?VER lr(bosxm$=vf90_modflag" ar6brea $ 'ev_x='"x {usc_ofe}H_}}doyenv.czr${ZSH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea 'eyour MPI "sfusafas war:"r?VER lr_ry"ceC-c ea 'eyour MPI "sfusafaseall war6breaefsfslXs t='{aodfc_srcs t-f} nmcsofeom='$FC -c1$FCFLAGS1$aodfcflags_srcs t $snfn$$. $nms tear:' nm#0]k='$FC -o $snfn$$.$nms :s te$FCFLAGS1$LDFLAGS $aodfcflags_srcs t $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =vfcm$sofeomrRltn fsfscat > $snfn$$. $nms te<<_ACEOF () n $snfn$$._ () incluicz'ofef.h' calleMPI_Init(iLS6) e f () n $snfn$$._ () _ACEOF doW nmfnvf,mtryE#0]k "# "$ >"}${ZSH_R lrfs#def0]k __MPIrea> ./src/ppm_def0]k.h_n$$.ea} lLS6nn} $@%CkMo=erbuild PPMi uL "MPI supp. ( #0ke vnis w"# "$ >" 5/nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta\ fsfscsnfn$$.$nms :s te$snfn$$. $nms t q_fssir?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:"yen"ear:"r?VER lr(byen"ear6brea# AC_CHECK_ B([],[MPI_Init],[a# e lrfs#def0]k __MPIrea> ./src/ppm_def0]k.h],a# [AC_MSG_ERROR([CkMo=erbuild PPMi uL "MPI supp. ( #0ke vnis])])aefsfslXs t=c nmcpp='$CPP1$CPPFLAGS' nmcsofeom='$CC -c1$CFLAGS1$CPPFLAGS $snfn$$. $nms tear:' nm#0]k='$CC -o $snfn$$.$nms :s te$CFLAGS1$CPPFLAGS $LDFLAGS $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =v,m$sofeomrRltn nxl`# =. now let'ssuscz==fC $sofeomr nofceC-z==fve forwe'r_fusc eaher=l# vnis"ofa$surseameanstha`weiHAVE nof evsalle$sofeomr flags tos$sofeomrs"of"#i} s: 'Xve for(whecx is anyway a good idea)`a{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eauC $sofeomr ve for war:"r?VER lr_ry"ceC-c ea eauC $sofeomr ve foreall war6breadoWv_x=' '{axm$=v,m$sofeomrRve for"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.eaxm$=v,m$sofeomrRve for=unknown ZS# o=ee: d n'tXceC-a eaugccdft s, sc cczso 'Xoix r$sofeomrs"def0]k __ "bC__ el eauaznv_x='i# "ftel:__ICC,__ECC,__INTEL_COMPILER ibm:__xlc__,__xlC__,__IBMC__,__IBMCPP__ paL scale:__ CC__,__ SCALE__ ltn:__ "bC__ sun:__SUNPRO_C,__SUNPRO_CC hp:__HP_cc,__HP_aCC dec:__DECC,__DECCXX,__DECC_VER,__DECCXX_VER borl nd:__BORLANDC__,__TURBOC__ $soean:__COMO__ $ray:_CRAYC kai:__KCC lcc:__LCC__ametrowe ks:__MWERKS__ sgi:__sgi,sgi microsoft:_MSC_VER wat$so:__WATCOMC__ap. tl nd:__ GIX CXXq_fsazncpp="def0]kd("`R lr(oaznv_x='| cuts_d:s_f2 | seds's/,/)e|| def0]kd(/g'`")" fsfscat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ int ma"fi() {l #i'e!($azncpp) vnisisanLS6nn; #e fifl`>&; returnd0b } _ACEOF 'e nmfnv,mtryE$sofeom="# "$ >"}${ZSH_ xm$=v,m$sofeomrRve for=`R lr(oaznv_x='| cuts_d:s_f1`; _r?;\ nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta$snfn$$. $nms t kb }_p_k`nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =xm$=v,m$sofeomrRve for" ar:"r?VER lr(bosxm$=v,m$sofeomrRve for" ar6brea $ # CeC-s eaulibraries and setsp e (cm sc ea lags l# vnis"v_x='sh uld b% omivtmd_doWv==f$sofeomr is "ftel,irncy (vpiczrncir own #rmath implcmmntat>=#$ 'ev_x='"x {sxm$=v,m$sofeomrRve for}" !}dx"ftelefix e fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eausqr='i# -lm war:"r?VER lr_ry"ceC-c ea eausqr='i# -lmeall war6breadoWv_x=' '{aody=vlib_m_sqr="dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ealXyeC-vlib_save_ BS=# BS BS="-lm e# BS" cat $snfdefs.h - <<_ACEOF >$snfn$$. $nms t /* e f $snfdefs.h. */ /* Oazoypiczany GCC "fter#als (totype"to avoid n eS6nny 3,"Usei]har b%caus% inn mighermatcxWv==freturndtype"ofaa GCC 3,"builtin= nd ==# "ts rgummnt (totype"w uld stilleapply. */ #ifdef __cplusplus .e ernd"C" #e fifl]har sqr='(); int ma"fi() {lreturndsqr='(); >&; returnd0b } _ACEOF 'e nmfnv,mtryE#0]k "# "$ >"}${ZSH_aody=vlib_m_sqr==yenan$$.e nm$=vlib_m_sqr==no nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta\ fsfscsnfn$$.$nms :s te$snfn$$. $nms t BS=#alXyeC-vlib_save_ BS`nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=vlib_m_sqr=" ar:"r?VER lr(boslX =vlib_m_sqr=" ar6breadoWv_x=' xoslX =vlib_m_sqr=" }dx""yenv.czr${ZSH_cat >>$snfdefs.he<<_ACEOF @%:@def0]k HAVE_ BM 1 _ACEOF SH_ BS="-lm # BS" /nxl`nxl #rMake surm=tha`vn=flibraries ar=f$sofeomds uL "F. tran anms t='{aodfc_srcs t-f} nmcsofeom='$FC -c1$FCFLAGS1$aodfcflags_srcs t $snfn$$. $nms tear:' nm#0]k='$FC -o $snfn$$.$nms :s te$FCFLAGS1$LDFLAGS $aodfcflags_srcs t $snfn$$. $nms te# BSear:' nm$sofeomrRltn=valX =vfcm$sofeomrRltn # CeC-a eauMETIS have_metis=no {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deceC-c ea eaulibraryscsnta"fc eaMETIS_PartGraphRecursivs war:"r?VER lr_ry"ceC-c ea eaulibraryscsnta"fc eaMETIS_PartGraphRecursivseall war6breadoWv_x=' '{aody=vsearch_METIS_PartGraphRecursivs"dev}H_}ddev$ ;}${ZSH_r?VER lr_ry"(nwar-d)l war6_n$$.ealXfuncvsearch_save_ BS=# BS cat > $snfn$$. $nms te<<_ACEOF fselll () n ma"fl calleMETIS_PartGraphRecursivs q_fsfse f _ACEOF =. nm#0bs"fi'' metisX CXXq_doWv_x=' 'evaod#0b"efix e fselac_las="o=n=frequired" -p n$elH_ac_las=-lvaod#0b$elH_ BS="-lvaod#0bfs$ystfuncvsearch_save_ BS"1 > >/3,doW nmfnvf,mtryE#0]k "# "$ >"}${ZSH_aody=vsearch_METIS_PartGraphRecursivs=valXlas nxlrms_fa$sre$snfn$$. zoy $snfn$$. $nmobje ta\ fsfscsnfn$$.$nms :s tXq_doWv_x=' '{aody=vsearch_METIS_PartGraphRecursivs"dev}H_}ddev$ ;}${ZSH__r?;\ nxldev}S 'ev_x=' '{aody=vsearch_METIS_PartGraphRecursivs"dev}H_}ddev$ ;}${ZSH_an$$.e nm$=vsearch_METIS_PartGraphRecursivs=no nxlrms$snfn$$. $nms t BS=#alXfuncvsearch_save_ BS`nxl{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/delas-_v:" =.tc=vsearch_METIS_PartGraphRecursivs" ar:"r?VER lr(boslX =vsearch_METIS_PartGraphRecursivs" ar6breanmlas=oslX =vsearch_METIS_PartGraphRecursivsadoWv_x=' 'alXren"e!}dno$ ;}${ZSH_v_x=' 'alXren"e}d"o=n=frequired"e|| BS="$ nmren # BS" have_metis=yas nxl$ 'ev_x='"x {have_metis}H_}dxno$ ;}$SH_R lrfs------------------------------------------"SH_R lrfs T==sMETISulibrarysis requiredsnofbuild PPMll SH_R lrfs Eiix rvn=flibrarysis mi sc eaor incorrectlye$sofeomd/#0]ked. SH_R lrfs Stoppc e.all Pleas% downloads t: SH_R lrfs http://glaros.dtc.umn.edu/gkhsoe/metis/metis/download"SH_R lrfs------------------------------------------"SH_(exit 1); exit 1;an$$.ee lrfs#def0]k __METISrea> ./src/ppm_def0]k.h_nxl #rCeC-anof ee_doWlinux wasse afasds uL "-e afas-linux @%:@rCeC-awheix r--e afas-linux wassgivsn.S 'ev_x=' '{e afas_linux"dev}H_}ddev$ ;}${ZSH_e afasval=$e afas_linux;ee lrfs#def0]k __Linuxrea> ./src/ppm_def0]k.h_nxl #rCeC-anof ee_doWeti 'X asse afasds uL "-e afas-eti ' @%:@rCeC-awheix r--e afas-eti 'X assgivsn.S 'ev_x=' '{e afas_eti '"dev}H_}ddev$ ;}${ZSH_e afasval=$e afas_eti ';ee lrfs#def0]k __ETIMErea> ./src/ppm_def0]k.h_nxl #rCeC-anof ee_doWvectorX asse afasds uL "-e afas-vector @%:@rCeC-awheix r--e afas-vectorX assgivsn.S 'ev_x=' '{e afas_vector"dev}H_}ddev$ ;}${ZSH_e afasval=$e afas_vector;ee lrfs#def0]k __VECTORrea> ./src/ppm_def0]k.h_nxl @%:@rCeC-awheix r--e afas-mathkeisanX assgivsn.S 'ev_x=' '{e afas_mathkeisan"dev}H_}ddev$ ;}${ZSH_e afasval=$e afas_mathkeisan;ee lrfs#def0]k __MATHKEISANrea> ./src/ppm_def0]k.h_nxl @%:@rCeC-awheix r--e afas-sxf90X assgivsn.S 'ev_x=' '{e afas_sxf90"dev}H_}ddev$ ;}${ZSH_e afasval=$e afas_sxf90;ee lrfs#def0]k __SXF90rea> ./src/ppm_def0]k.h_nxl @%:@rCeC-awheix r--e afas-$rayfishpa-awassgivsn.S 'ev_x=' '{e afas_$rayfishpa-"dev}H_}ddev$ ;}${ZSH_e afasval=$e afas_$rayfishpa-;ee lrfs#def0]k __CRAYFISHPACKrea> ./src/ppm_def0]k.h_nxl @%:@rCeC-awheix r--e afas-hypr'X assgivsn.S 'ev_x=' '{e afas_hypr'"dev}H_}ddev$ ;}${ZSH_e afasval=$e afas_hypr';ee lrfs#def0]k __HYPRErea> ./src/ppm_def0]k.h_nxl @%:@rCeC-awheix r--e afas-,i"microinstrX assgivsn.S 'ev_x=' '{e afas_no_microinstr"dev}H_}ddev$ ;}${ZSH_e afasval=$e afas_no_microinstr;ee lrfs#def0]k __NOMICROINSTRUCTIONSrea> ./src/ppm_def0]k.h_nxl @%:@rCeC-awheix r--e afas-debug assgivsn.S 'ev_x=' '{e afas_debug"dev}H_}ddev$ ;}${ZSH_e afasval=$e afas_debug; DEBUG=-O0 _nxl #rGeneraterMakefeoms nm$snfig_feoms=vaalX snfig_feomsrMakefeom"$ cat > snfnwar-e<<\_ACEOF # T=is feomis"a shellescript=tha`nwar-sWv==fres-_vs"ofa$snfigur=l# v_x=srrunuonu=is sy$._mzso rncy ]kMsbe sharedsb%twemn $snfigur=l# scripts and $snfigur=rruns,f ee_$snfigur='s opt>=# --$snfig-nwar-. # It is o=erusefuluonuoix rsy$._msl Iffitscsnta"fsfres-_vs"you d n't # wantsnofkeep,"you mayfremdazieauedier t. # # $snfig.status ofly pays avtmnt>=# nofvneunwar-efeomi'eyousgivs_ie"#ivneu--receC-aopt>=# nofrerunu$snfigur=. # # `slX =ven=vfoo' variafass (setseauunset)s ulleb% oazoypid}${w}$S# loadc ea=is feom,uoix r*unset* `slX =vfoo' ulleb% asscgnedst==l# followc eavalu_xl _ACEOF # T==sfollowc eaway ofawritc ea==fnwar-emi h ndlm new#0]es "fivalu_x,a# but_weiknow ofanosw rkars fetha`is simplc,ap. tafas,= nd efficimnt. # So,weikullevariafass csnta"fc eanew#0]es. # Ultrix sh setswrites tosstdzoy and $an'tXb=fredirectedsdirectly,a# and setsWv==fhighabiv "fi==fnwar-efeomunlm s wsdasscgn nofvneuvars. ( fs=. nmvar "fi`(set)s2>&1 | seds-ns's/^\([a-zA-Z_][a-zA-Z0-9_]*\)=.*/\1/p'`;a } fsfsec*A_nmval=\$$nmvar fsfscas% oslXc*A_"fi#( fsfs*} $@%nl}*) fselH_cas% oslXc*r_"fi#( fsfsfs*X =v*)e{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: ]kcneuvariafas oslXc*r_csnta"fsfaanew#0]e" ar:"r?VER lr(bostatu eWARNING: ]kcneuvariafas oslXc*r_csnta"fsfaanew#0]e" ar2;} ;; sell'sac fselH_cas% oslXc*r_"fi#( fsfsfs_ | IFS | $@%nl) ;;i#( fsfsfsBASH_ARGV | BASH_SOURCE) 'c*A_$nmc*r= ;;i#( fsfsfs*)e{_'c*A_$nmc*r=;uunset_$nmc*r;} ;; sell'sac ;; se'sac fsdev}SSH_(set)s2>&1 | fsfscas% os@%nl`(nmspacm=' '; set)s2>&1`_"fi#( fsfs*} $@%nl}nmspacm=\ *) fselZS# `set' does o=erquov_ correctly,zso addsquov_x:ad ufas-quov_ fselZS# substitut>=# nurfsf\\\\ innof\\, and sed nurfsf\\ innof\. q_fsfsseds-ns\ "s/'/'\\\\''/g; fss/^\\([_ystacr_alnum]*X =v[_ystacr_alnum]*\\)=\\(.*\\)/\\1='\\2'/prXq_fsfs;;i#( fsfs*) fselZS# `set' quov_xlcorrectlyeas requiredsby POSIX,zso do o=eraddsquov_x. q_fsfsseds-ns"/^[_ystacr_alnum]*X =v[_ystacr_alnum]*=/prXq_fsfs;; se'sac | fsfss. t ) | fsseds'Xq_fsf/^slX =ven=v/bse f v clear fsfs :clear fsfs s/^\([^=]*\)=\(.*[{}].*\)$/v_x=' '{\1"dev}H_}ddeve|| &/ v e f s/^\([^=]*\)=\(.*\)$/\1='{\1=\2}/ :e f' >>$snf]kcneS 'ediff "$]kcne_feom" snfnwar-e>/dev/nulle2>&1}${Z; n$$.e 'ev_x=' w "$]kcne_feom"efix e fselv_x='"x ]kcne_feom" !}d"x/dev/nullrefiXq_fsfs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deupdatc eanwar-e ]kcne_feom" ar:"r?VER lr(bostatu eupdatc eanwar-e ]kcne_feom" ar6;} fsfscat $snfnwar-e> ]kcne_feom -p n$elH_{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deo=erupdatc eaunwritafas nwar-e ]kcne_feom" ar:"r?VER lr(bostatu eo=erupdatc eaunwritafas nwar-e ]kcne_feom" ar6;} fs >/nxlrms_fa$snf]kcneS v_x='"x pr'fixH_}dxNONE fixpr'fix=oslXdefa-_v_pr'fix L `make exp nd e :svpr'fix. v_x='"x e :svpr'fixH_}dxNONE fixe :svpr'fix='${pr'fix}' # Trans=. mz$snfdefs.heinnofDEFS. # Protec` aga"fst shelleexp ns>=#dwhilcszdefadc eaMakefeomrrules. # Protec` aga"fst Makefeomrmacroeexp ns>=#. # # IoWv==fft s, sed substitut>=# is zdefaded (whecx looks eaumacros tha`"#ivake Rrgummntn),}${brancxWvof==fquov_ sect>=#l Oix rwise, # looka eauarmacroetha`doesn'tXvake Rrgummntn./alXscript=' :m#0]k /\\$/{ N s,\\\n,, b m#0]k } v clear :clear s/^[ ]*#[ ]*def0]k[ ][ ]*\([^ (][^ (]*([^)]*)\)[ ]*\(.*\)/-D\1=\2/g erquov_ s/^[ ]*#[ ]*def0]k[ ][ ]*\([^ ][^ ]*\)[ ]*\(.*\)/-D\1=\2/g erquov_ bzany :quov_ s/[ `~#$^&*(){}\\|;'\''"<>?]/\\&/g s/\[/\\&/g s/\]/\\&/g s/\$/$$/g H :any ${ g s/^\n// s/\n/ /g p } ' DEFS=`seds-ns"$alXscript"z$snfdefs.h` l`anmlibobjs=`anmltlibobjs=`U= =. nmi "fi: # B@&t@OBJS;a }Wv_x=' xoslXiH_}dx: fixcsntinue ll# 1. Remdazi==f.e ens>=#, and $U,doW lreadyHinstallefe L alXscript='s/\$U\././;s/\.o$//;s/\.obj$//' L alXi=`r?VER lr(boslXi" | seds"$alXscript"` ll# 2. Prepe f BOBJDIRl W}${useds uL "automake>=1.10 BOBJDIR ll# ulleb% devevof==fdirectoryawher= BOBJS objects ar=fbuilt.$.ea} lappe feanmlibobjs " \${ BOBJDIR}oslXi\$U $nmobje t"$.ea} lappe feanmltlibobjs " \${ BOBJDIR}oslXi"'$U lo'ldev}S B@&t@OBJS=$anmlibobjs LT BOBJS=$anmltlibobjs : #{CONFIG_STATUS=./$snfig.statuseanmwrite_faeo=0 nm$lean_feoms_save=oslX lean_feoms nm$lean_feoms=vaalX lean_feoms $CONFIG_STATUS" {_r?VER lrfsystatu } $@%#0]k,i"# "$ >/decreadc ea$CONFIG_STATUS" ar:"r?VER lr(bostatu ecreadc ea$CONFIG_STATUS" ar6;L]} write_faeo=0 cat >$CONFIG_STATUSe<<_ASEOF || $@%write_faeo=1 #! $SHELL #rGeneratedsby ostatu. # Runa=is feom nofrecreadzi==fcurrentu$snfigurat>=#. # Csofeomrfou`pu` producedsby $snfigur=,rusefulu=. debuggc e # $snfigur=,ris "f $snfig.logr 'eiers i$.sl debug=fan$$alX s_receC-=fan$$alX s_seomnt=fan$$ SHELL=\${CONFIG_SHELL-$SHELL} exp. ( SHELL _ASEOF cat >>$CONFIG_STATUSe<<\_ASEOF || $@%write_faeo=1 ## -------------------- ## ## M4s "Initializat>=#. ## ## -------------------- ## # Bemor_fBourf=f$sofat>fas DUALCASE=1; exp. ( DUALCASE # =. MKSeshS 'ev_x=' ns"${ZSH_VERSION"dev}H_fix(emulatmesh) >/dev/nulle2>&1}${ZSH_emulatmeshSH_NULLCMD=: ll# Pre-4.2uazos>=#s of Zsh dosw rd splittc eaon #{1+"$@"},awhecx ll# is csntrarysnofour usagel Disefauin=is feadur=. .ealias -g '#{1+"$@"}'='"$@"' fssetopt NO_GLOBmSUBST_n$$.ecas% `(deve-o)u2>/dev/null`s"f @%:@( fs*posix*)e: fsfsseve-ofposixs;;i@%:@( fs*)e: fsfse;; esac fi l`a@%nl=' ' exp. ( a@%nl # Printc eaa lo eastrc e crasr-sWSolaris 7 /usr/bin/printf. ?VER lr='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\' ?VER lr=r?VER lrr?VER lrr?VER lrr?VER lrr?VER lr ?VER lr=r?VER lrr?VER lrr?VER lrr?VER lrr?VER lrr?VER lr # Prefeauarksh shellebuiltin=oazo n exter#als intfl () n onuSolaris,a# but_wuL ou` wastc ea eaks eaubasrseauzsh.S 'ev_x=' 'evBASH_VERSION$ZSH_VERSION"a\ fsfsfix(v_x=' X` int -r--_r?VER lr`"e}d"Xr?VER lr")u2>/dev/nullefix e fsa} R lr=' int -r--' fsa} R lr_n=' int -rn--' el 'e(v_x=' X` intf %s_r?VER lr`"e}d"Xr?VER lr")u2>/dev/nullefix e fsa} R lr=' intf %s\n' fsa} R lr_n=' intf %s'an$$.edoWv_x=' X`(/usr/ucb/R lr( ns-n_r?VER lr)u2>/dev/null`"e}d"X-n_r?VER lr"efix e fsela} R lr_body=''c*A_/usr/ucb/R lr( ns"$1os@%nl"' fsela} R lr_n='/usr/ucb/R lr( n' -p n$elH_a} R lr_body=''c*A_expr "Xr1"i: "X\\(.*\\)"' fsela} R lr_n_body=''c*AXq_fsfsarg=$1; sellcas% osrg "fi@%:@( fsfsfs*"os@%nl"*) expr "Xrarg" : "X\\(.*\\)os@%nl"; arg=`expr "Xrarg" : ".*os@%nl\\(.*\\)"`;; sell'sac; sell'xpr "Xrarg" : "X\\(.*\\)" | trs_da"os@%nl" se' fselexp. ( a@%R lr_n_body fsela} R lr_n='srs-c1$a@%R lr_n_bodyla} R lr'1 > >/3,exp. ( a@%R lr_body fsa} R lr='srs-c1$a@%R lr_bodyla} R lr'1nxl #rT==fus%rnis"always righe.S 'ev_x=' '{ _SEPARATOR"dev}H_!}ddev$ ;}$ fs _SEPARATOR=: ll( ='/bin;/bin'; F =$ ; srs-c1:) >/dev/nulle2>&1sfix{ fsel( ='/bin:/bin'; F =$ ; srs-c1:) >/dev/nulle2>&1s|| sell _SEPARATOR=';'1 >}_nxl #rIFS"# W_fneed spacm,atab and new #0]k, "fipr'ciselyetha`ordmrl Quovc ea s"#ivnerm nofpr'aznvuedieors fromi$sofla"fc eaabou` spacm-tab. # (IoW_AS_ _WALKewer_fcallefs uL "IFS unset,eierw uld disefauiw rdl# splittc eaby evtc eaIFS nofempty valu_.)_IFS=" "" os@%nl" a# Ftnd wlr(we r_l Looka"fi==fpaL "i'ewe csnta"fanosdirectoryasep ratnny cas% o0 "fi@%:@(( fs*[\\/]* )la} myself=o0 ;; *)sy} save_IFS=$IFS; IFS=$ _SEPARATORexit \smodv="fi$ ml_ L IFS=$u ysave_IFS" >&5a|;( 'evas_f srefix s_f s=y 3,"1&5a|;(r'evas_f s/$0refix s_myself=oas_f s/$0efix_r?;\ kb }_p_IFS=$u ysave_IFS" fsfse;; esac # W_fdideo=erftnd surselves,amo$.l (befayewe wer_frunaas `srsCOMMAND' # inawhecx cas% we r_fo=ernofb% fs fe"fi==fpaL .adoWv_x=' xoss_myselfH_}dxefix e fsa} myself=o0_nxldoWv_x='!s_fa ' s_myselfHefix e fsr?VER lr(bostatyself eLS6nn:=]kMo=erftnd tyself;frerunu uL "an bsolu(esfeom s: '" ar2/3,exit 11nxl #rUnset_variafass tha`weido o=erneed and wlecx caus% bugsx(e.g.s"f #fpr'-3.0 UWINrksh)l Butido o=ercaus% bugsx"fibasrs2.01} "|| exit 1"l# suppr'sses any "Segmmntat>=# fa-_v" m'ssagczrncr_l '((' c uld"#ivriggeauarbug "fipdksh 5.2.14.exit \smc*r_"fiBASH_ENV ENV MAIL MAIL ml_e'c*A_v_x='x\${n$$var"dev}_}dxset_\ fsfix(e(unset_$$$var)e|| exit 1) >/dev/nulle2>&1sfixunset_$$$vare|| :ldev}SPS1='$e' PS2='>e' PS4='+ ' # NLS nuisancm l LC_ALL=C exp. ( LC_ALL LANGUAGE=C exp. ( LANGUAGE #rCD . (unset_CD ) >/dev/nulle2>&1sfixunset_CD l @%:@ra} lLS6nn}STATUSeERROR [ "$ > LOG_FD] @%:@r---------------------------------------- @%:@rOu`pu` "`bases: 'X@S|@0` eLS6nn:=ERROR" tosstdzoy. IoW "$ > and LOG_FD r_ @%:@r (vpicd,"alsoaou`pu`theeLS6nn tosLOG_FD, refeaencc ea "$ >.rT==n exit t==l@%:@rscript= uL "STATUS,fusc ea1_doWv=a` was 0.]} lLS6nn}() {l u ystatus=$1;Wv_x='os ystatus -eq 0efix s_status=1Xq_doWv_x=' '4"efix e fsela} #0]k,i=} $@%#0]k,i""$3"}la} #0]k,i_stack=a} #0]k,i_stack=$a} #0]k,i_stack fselr?VER lrfsystatu } $@%#0]k,i"# "$ >/deLS6nn:=$2" ar$41 > >/3,r?VER lr(bostatu eLS6nn:=$2" ar2$.ea} lexit os ystatus } @%:@ra} lLS6nnl @%:@ra} lsetystatus STATUS @%:@r----------------------- @%:@rSet_@S|@? tosSTATUS,fwuL ou` eakc e. a} lsetystatus () {l returnd$1 } @%:@ra} lsetystatus @%:@ra} lLxit STATUS @%:@r----------------- @%:@rExit t== shelle uL "STATUS,f'azn_"fia "trap 0reeau"seve-m" snvex(.]} lLxit () {l seve+$$.ea} lsetystatus $1 slexit o1 } @%:@ra} lexit @%:@ra} lunset_VAR @%:@r--------------- @%:@rP. tafay unset_VAR.]} lunset_() {l {_'c*A_$1=;uunset_$1;} L]} unset=} lunset @%:@ra} lappe feVAReVALUE @%:@r---------------------- @%:@rAppe fet== t.e s"fiVALUEevof==fe feooWv==fdef0]it>=# csnta"feds"fiVAR.rTak=l@%:@radvantage"ofaany shelleopt>mizat>=#s tha`allow am. tizeds#0]kaaugrowL "oazol@%:@rrepeatedsappe fs,HinsteafeooWv==ftypical quadrat>cugrowL "pr'sznvu"fanaivsa@%:@rimplcmmntat>=#s. 'e('c*A_v$$var=1; n$$var"=2;_v_x='x\$$$vare}dx12")u2>/dev/nullefix e{ZSH_ec*A_'a} lappe fe() fs{ fsfsec*A_$1+=\$2$.e}'_n$$.ea} lappe fe() fs{ fsfsec*A_$1=\$$1\$2$.e} fis# a} lappe f @%:@ra} lariL "ARG... @%:@r------------------ @%:@rPer=. mzariL meticsec*Auat>=# ofi==fARGs,= nd x=or_fv==fres-_ve"fi== @%:@rgl(bel_@S|@$$val.rTak=radvantage"ofashells=tha`nwn avoid eaks.rT==s rgummntna@%:@rmus`be p. tafas across_@S|@(())= nd expr. 'e('c*A_vn$$.l\$((a1_+ 1 ))== 2")u2>/dev/nullefix e{ZSH_ec*A_'a} lariL "() fs{ fsfs$$val=$((a$* ))$.e}'_n$$.ea} lariL "() fs{ fsfs$$val=`expr "$@"e|| v_x='o? -eq 1`$.e} fis# a} lariL a $ 'eexpr a : '\(a\)' >/dev/nulle2>&1efiXq_fv_x=' X`expr 00001 : '.*\(...\)'`"e}dX001}e fsa} Rxpr=Rxpr_n$$.ea} Rxpr=fan$$nxl$ 'e(bases: 'X-- /) >/dev/nulle2>&1sfixv_x=' X`bases: 'X-- /s2>&1`"e}d"X/"}e fsa} bases: '=bases: '_n$$.ea} bases: '=fan$$nxl$ 'e( s_f s=`f ss: 'X-- /`sfixv_x=' Xvas_f sre}dX/) >/dev/nulle2>&1}e fsa} f ss: '=f ss: '_n$$.ea} f ss: '=fan$$nxl$statu=`r?VEbases: 'X-- "$0re|| $a} RxprdX/"$0re: '.*/\([^/][^/]*\)/*$' \|s\ eX"$0re: 'X\(//\)$' \|s\ eX"$0re: 'X\(/\)' \|s. 2>/dev/nulle||"r?VER lr(X/"$0re| fsfsseds'/^.*\/\([^/][^/]*\)\/*$/{ ellls//\1/ elllq el} el/^X\/\(\/\/\)$/{ ellls//\1/ elllq el} el/^X\/\(\/\).*/{ ellls//\1/ elllq el} els/.*/./; q'` #rAvoid depe fc eaupofiChascteauRangm l atacr_l%ttmrs='abcdefghijklmnopqrstuvwxyz' atacr_LETTERS='ABCDEFGHIJKLMNOPQRSTUVWXYZ' atacr_L%ttmrs=$atacr_l%ttmrs$atacr_LETTERS atacr_digits='0123456789' atacr_alnum=$atacr_L%ttmrs$atacr_digits ECHO_C= ECHO_N= ECHO_T= cas% `R lr( nsx`s"f @%:@((((( -n*) fscas% `R lr('xy\c'`s"f *c*) ECHO_T=' ';; # ECHO_Tis singauinabi]harscteay 3,xy) ECHO_C='\c';; *)s.ee lrf`R lr(ksh88rbug ofiAIX 6.1` > /dev/null sell ECHO_T=' ';; ll'sac;; *) fsECHO_N='-n';; esac rms_fa$snf$$a$snf$$.exea$snf$$.feom 'ev_x=' da$snf$$.f s}e fsrms_fa$snf$$.f s/$snf$$.feom n$$.erms_fa$snf$$.f s$.emkodv=$snf$$.f s 2>/dev/null_nxldoW(R lr(>$snf$$.feom)u2>/dev/nullefix e fsdoWln -sa$snf$$.feoma$snf$$a2>/dev/nullefix e fsela} #ls='ln -s' fsel# .allbu`there r_ftwo got las: fsel# 1) On MSYS,fboL "`ln -safeomaf s'= nd `ln feomaf s'=faeo. fsel# 2) DJGPP < 2.04 lasanossym#0]ks;"`ln -s'ecreades a wrappe zdefadefau. fsel# InfboL "cas%s,weihaveevofdefa-_vevof`cp -p'. fselln -sa$snf$$.feoma$snf$$.f s 2>/dev/nullsfixv_x='!s_fa$snf$$.exea|| sella} #ls='cp -p' -p doWln $snf$$.feoma$snf$$a2>/dev/nullefix e fsela} #ls=ln -p n$elH_a} #ls='cp -p' -p >/xln$$.ea} #ls='cp -p' nxlrms_fa$snf$$a$snf$$.exea$snf$$.f s/$snf$$.feoma$snf$$.feom rmodv=$snf$$.f s 2>/dev/null_ @%:@ra} lmkodv_p @%:@r------------- @%:@rCreadzi"@S|@$$f sreas a directory, incluic eaparentssdoWnecm sary.]} lmkodv_pi() {l >&cas% os@%odv="fi#( fs-*)sy} f s=y/os@%odv;; ll'sac" >&5a|;(d'evas_f sre|| ec*A_$slmkodv_pi|| { fsfs$$odvs= fsfswhilcs:X CXXq_fsfscas% os@%odv="fi#( fsfsfs*\'*)sy} qf s=`r?VER lr(bostaf sre| seds"s/'/'\\\\\\\\''/g"`;; #'( fsfsfs*)ey} qf s=os@%odv;; llsell'sac sella} odvs="'$y} qf s' os@%odvs" sella} odv=`r?VEf ss: 'X-- evas_f sre|| $a} RxprdXevas_f sre: 'X\(.*[^/]\)//*[^/][^/]*/*$' \|s\ eX"$as_f sre: 'X\(//\)[^/]' \|s\ eX"$as_f sre: 'X\(//\)$' \|s\ eX"$as_f sre: 'X\(/\)' \|s. 2>/dev/nulle||"r?VER lr(Xevas_f sre| fsfsseds'/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ ellls//\1/ elllq el} el/^X\(\/\/\)[^/].*/{ ellls//\1/ elllq el} el/^X\(\/\/\)$/{ ellls//\1/ elllq el} el/^X\(\/\).*/{ ellls//\1/ elllq el} els/.*/./; q'` sell&5a|;(d'evas_f srefix_r?;\ kbkb }_p_kb >&5a|;( 'evas_f ssre|| ec*A_"mkodv=os@%odvs" }e|| v_x='(d'evas_f sre|| a} lLS6nn} $@%]kMo=ercreadzidirectoryavas_f sr_ } @%:@ra} lmkodv_p doWmkodv=-ps. 2>/dev/nullefix e fsa} mkodv_p='mkodv=-psevas_f sr'_n$$.ev_x='(d'./-psfixrmodv=./-p fsa} mkodv_p=fan$$nxl$ 'ev_x='(x /s>/dev/nulle2>&1}e fsa} n$$._x='v_x='(x'an$$.edoWls=-dL /s>/dev/nulle2>&1}e fs.ea} #s_L_opt>=#=L -p n$elH_a} #s_L_opt>=#=1 > >/3,a} n$$._x=' fsfsec*A_srs-c1'\'' sell 'ev_x=' da"$1"}e v_x=' da"$1/."; llsell'n$ cas% o1 "fi@%:@( -*)set_"y/o1"; 'sac; cas% `ls=-ld'$y} #s_L_opt>=#'a"$1"u2>/dev/null`s"f @%:@(( ???[sx]*):;;*)fan$;;'sac; >/3,ll'\''eshSH_' nxla} Rxefadefauvp=os@%n$$._x #rSed exprm sc=# nofmap"a strc e onnofa valid CPP1s: '.]} vr_ pp="ec*A_seds'y%*$atacr_l%ttmrs%P$atacr_LETTERS%;s%[^_ystacr_alnum]%_%g'" #rSed exprm sc=# nofmap"a strc e onnofa valid variafas s: '.]} vr_sh="ec*A_seds'y%*+%pp%;s%[^_ystacr_alnum]%_%g'" Rxef 6>&1 ## ----------------------------------- ## ## Ma"fabodylofa$CONFIG_STATUSrscript. ## ## ----------------------------------- ## _ASEOF v_x='os ywrite_faeo }d0 fixchmod +xa$CONFIG_STATUSr|| ac%write_faeo=1 cat >>$CONFIG_STATUSe<<\_ACEOF || $c%write_faeo=1 #rSaazi==flogrm'ssagc,snofkeep o0 nd xo ofimeanc eful,= nd tr # rep. ( actu*A_"fpu`valu_xlofaCONFIG_FILES etc.HinsteafeooWv==ir # aalu_xlaftmr }pt>=#s h ndlc e. ac_log=" T=is feom assee endedsby PPM ostatu 1.2.0,awhecx as generatedsby "byAuto$snf 2.67l Invocat>=# csmm nd #0]k as SH_CONFIG_FILES =a$CONFIG_FILESSH_CONFIG_HEADERS =a$CONFIG_HEADERSSH_CONFIG_LINKS =a$CONFIG_LINKSSH_CONFIG_COMMANDS =a$CONFIG_COMMANDS/3,r o0 $@ ofi`(hosts: 'X|| us: 'X-n) 2>/dev/nulle|_seds1q` " _ACEOF cas% oslX snfig_feomsr"fa*" "*)eset_x oslX snfig_feoms; srift; nm$snfig_feoms=$*;; esac cat >>$CONFIG_STATUSe<<_ACEOF || $c%write_faeo=1 #rFiass tha`$snfig.status assmad% fsny csnfig_feoms=vaalX snfig_feoms" _ACEOF cat >>$CONFIG_STATUSe<<\_ACEOF || $c%write_faeo=1 alX s_usage="\ \`ostatu'Hinstantiades feomsr nd oix r$snfigurat>=# act>=#s fromiteoflades accordc eaoi==fcurrentu$snfigurat>=#. Unlm s tr-efeoms a feant>=#s r_fspecifiedsas TAGs,= lleareHinstantiadedsby defa-_v. Usage: o0 [OPTION].all[TAG].al SH_-h, --help sell int n=is help,}${exit H_-V,e--azos>=#dll int azos>=#dnumbmr and $snfigurat>=# evtc es,}${exit H_____--$snfigsell int $snfigurat>=#,}${exit H_-q,e--quiet,e--seomnt sell do o=er int () m s m'ssagcs q_-d,e--debug don'tXremdaziteoforarysfeoms H_____--receC-aaaaupdate ostatu byfre$snfigurc ea ni} s: 'X$sndit>=#s H_____--feom=FILE[:TEMPLATE] sell instantiadeWv==f$snfigurat>=# feomFILE Csnfigurat>=# feoms: $ snfig_feoms Rep. ( bugsxoi==fpa-age" (vpicr." _ACEOF cat >>$CONFIG_STATUSe<<_ACEOF || $c%write_faeo=1 alX s_ snfig="`r?VER lr(boslX$snfigur=_args" | seds's/^ //; s/[\\""\`\$]/\\\\&/g'`" alX s_azos>=#="\\ PPM $snfig.status 1.2.0 $snfigur=dsby o0,ageneratedsby "byAuto$snf 2.67, e uL "}pt>=#s \\"\$alX s_ snfig\\" Cspyrighe (C) 2010 Free SoftwareHFs fat>=#,Inc. T=is $snfig.status script=is free software} Free SoftwareHFs fat>=# givss unlimitedspermi sc=# nofcspy, distrcbu(esa f modifyr t."l`anmpwd='aalX wd' srcodv='$srcodv' v_x=' ns"\$AWKre|| AWK=awk _ACEOF cat >>$CONFIG_STATUSe<<\_ACEOF || $c%write_faeo=1 #rT==fdefa-_veli$.seapply_doWv==fus%rndoes o=erspecifyaany feom. ac_needXdefa-_vs=:Swhilcsn$$.l$#_!}d0ml_ L cas% o1 "f q_--*=?*)aefsfslXopt>=#=`expr "Xr1"i: 'X\([^=]*\)='` seslXoptarg=`expr "Xr1"i: 'X[^=]*=\(.*\)'` seslXsrift=: fsel;; ll--*=)aefsfslXopt>=#=`expr "Xr1"i: 'X\([^=]*\)='` seslXoptarg= seslXsrift=: fsel;; ll*)aefsfslXopt>=#=$1 slseslXoptarg=$2$.eseslXsrift=srift fsel;; llesac q_cas% oslXopt>=# in ZS# H ndlc eeooWv==f}pt>=#s. fs-receC-a|_--receC-a|_--receCa|_--receCa|_--recea|_--reca|_--rea|_--r)aefsfslX s_receC-=:l;; ll--azos>=#d|l--azos>=d|l--azos>d|l--azosd|l--azod|l--azd|l--ad|l-V ) fselr?VER lrfsyslX s_azos>=#"; exit ;; ll--$snfigs|l--$snfis|l--$snfs|l--$sns|l--$ss|l--$ ) fselr?VER lrfsyslX s_$snfig"; exit ;; ll--debug |l--debu |l--deb |l--de |l--d |l-d ) fseldebug=:l;; ll--feom|l--feo|l--fe|l--f ) fselr?lXsrift fselcas% oslXoptsrg "f fsel*\'*)sylXoptarg=`r?VER lrfsyslXoptargre| seds"s/'/'\\\\\\\\''/g"`s;; se'') a} lLS6nn} $@%mi sc eafeom rgummnt" ;; se'sac fs.ea} lappe feCONFIG_FILES " 'yslXoptarg'"aefsfslXneedXdefa-_vs=fan$;; ll--eCa|_--ea|_ --help | --hel | -h ) fselr?VER lrfsyslX s_usage"; exit ;; ll-q | -quiet | --quiet | --quie | --qui | --qu | --q_\ fs| -seomnt | --seomnt | --seomn | --seom | --seo | --se | --s)aefsfslX s_seomnt=:l;; ZS# T=is is an eS6nny 3,-*)sy} lLS6nn} $@%unre$sgnizeds}pt>=#:i\`a1' Trys\`a0 --help''=. mor_fin=. mat>=#."l;; ZS*)sy} lappe feanm snfig_targetsW" o1" selslXneedXdefa-_vs=fan$l;; ZS'sac fssrift dev}SSslX$snfigur=_ee ra_args=l$ 'e$slX s_seomnt$ ;}$SH_Rxef 6>/dev/null slX$snfigur=_ee ra_args=boslX$snfigur=_ee ra_args --seomnt" nxl _ACEOF cat >>$CONFIG_STATUSe<<_ACEOF || $c%write_faeo=1 'e\$alX s_receC-$ ;}$SH_set_X 'ySHELL' 'y0' oslX$snfigur=_argse\$alX snfigur=_ee ra_args --no-creadzi--no-recursion fssrift \r?VER lrfsrunfc eaCONFIG_SHELL=ySHELL \r* war6_ aCONFIG_SHELL='ySHELL' 3,exp. ( CONFIG_SHELLSH_Rxef "\$@" nxl _ACEOF cat >>$CONFIG_STATUSe<<\_ACEOF || $c%write_faeo=1 Rxef 5>>$snfig.log {l R lr fsseds'h;s/./-/g;s/^.al/@%:@@%:@r/;s/.al$/ @%:@@%:@/;p;x;p;x'e<<_ASBOX @%:@@%:@rRunfc eaostatu. @%:@@%:@ _ASBOX elr?VER lrfsyslXlog" } ar:" _ACEOF cat >>$CONFIG_STATUSe<<_ACEOF || $c%write_faeo=1 _ACEOF cat >>$CONFIG_STATUSe<<\_ACEOF || $c%write_faeo=1 # H ndlc eeooWRrgummntn./=. nm snfig_target="fi$anm snfig_targetsml_ L cas% onm snfig_target="f se"Makefeom")eCONFIG_FILES=boCONFIG_FILES Makefeom"l;; ZS*)sy} lLS6nn} $@%invalid Rrgummnt:i\`aalX snfig_target'"t"# "$ >" 5b; llesac dev}S` # IoWv==fus%rndideo=eruscz==fRrgummntn tosspecifya==fi._ms tosinstantiade,"#ivnenf==fe vc*r_"fterface "sfused. Set_ofly thosm=tha` r_fo=e. # W_fuscz==flo ea=. mz=. t==fdefa-_veasscgnmmnt b%caus% ofaansee remelya# bizarr=fbug ofiSunOS 4.1.3.$ 'e$slXneedXdefa-_vs$ ;}$SH_v_x=' '{CONFIG_FILES"dev}H_}ddeve|| CONFIG_FILES=$ snfig_feoms nxl #rHaaziaiteoforarysdirectorya=. snvenienc_l Make iv "fi==fbuild re=l# simply b%caus% there is o=freas=# aga"fst havc ea taher=, nd "fraddit>=#,"#icreadc eaa f movc eafeoms fromi/tmpnwn so 'ti 'srcaus% (bl_msl #rHooka eau"ts remdaalunlm s debuggc el #rNotm=tha`vn=rmis"a smalle undow inawhecx ==fdirectoryawulleo=erbe cleaned:a# aftmr "ts creadc=# bu`befor_fits s: 'Xlasabemn asscgnedsto `$tmp'. $debug || {l tmp= trap 'exitystatus=$? {_&5a|;( 'evtmp"e|| v_x='!' da"$tmp"e|| rms_fv="$tmp"; } fixe it oexitystatus ' 0 trap '} lLxit 1' 1 2 13 15 ea# Creadzia_(secure) tmpsdirectorya=. tmpsfeoms. {l tmp=`(umask 077 fixmkteof' da"./$snfXXXXXX")u2>/dev/null`sfiXq_v_x=' ns"$tmp"efixv_x=' da"$tmp" } || {l tmp=./$snf$$-$RANDOMl (umask 077 fixmkodv="$tmp") }e|| a} lLS6nn} $@%]kMo=ercreadziaiteoforarysdirectoryaina. w"# "$ >" 5/ #rSeerupi} scripts eauCONFIG_FILES sect>=#l #rNorneed to generatei}m_doWv==re r_fo=uCONFIG_FILES. # T=is happe s eauinstance uL "`./$snfig.status $snfig.h'.S 'ev_x=' ns"$CONFIG_FILES"}e SSslX$r=`R lr(X | trsX '\015'` # On cyg un,ibasrsnwn ead \auinspicz``_doWv==fus%rnrequ_x=eds"gncr. # But_weiknow ofanosoix rshelle ==re lX$rrw uld be empty at n=is #fpo"ft,zso we ca${useuarbasrismeas a falback.adoWv_x=' xoslX$rH_}dxefix e fsec*A_nm$r=\$\'\\r\'/nxlanm s_awkX$r=`$AWK 'BEGIN {_ int "a\rb" }'e/dev/null`adoWv_x=' 'alX s_awkX$r"e}d"a'{aodyr}b"efix e fsanm s_awkX$r='\\r'an$$.e nm$s_awkX$r=oslX$r nxl R lr('BEGIN {' >"$tmp/subs1.awkrefiX_ACEOF S{l R lr@%]kt(>$snf$$subs.awke<<_ACEOFrefiXq_R lrfsyslXsubst$vars" | seds's/.*/&!$&oslXdelim/'efiXq_R lrfs_ACEOFr } a$snf$$subs.srs|| a} lLS6nn} $@%] uld o=ermake $CONFIG_STATUS" "# "$ >" 5/slXdelim_num=`R lrfsyslXsubst$vars" | greps-c1'^'` slXdelim='%!_!#_' n. nm#ast$tryainafan$lfan$lfan$lfan$lfan$l:X CXXq_. ./$snf$$subs.srs|| a} lLS6nn} $@%] uld o=ermake $CONFIG_STATUS" "# "$ >" 5/$.e nmdelim_n=`seds-ns"s/.*oslXdelim\$/X/p" $snf$$subs.awke| greps-c1X` ll 'ev_x='$ nmdelim_n =a$slXdelim_num}e fs.e_r?;\ kb doW$nm#ast$try}e fs.ea} lLS6nn} $@%] uld o=ermake $CONFIG_STATUS" "# "$ >" 5/-p n$elH_ac_delim="$slXdelim!$slXdelim _$slXdelim!! "1 > >/dev}Srms_f $snf$$subs.sr cat >>$CONFIG_STATUSe<<_ACEOF || $c%write_faeo=1 cat >>"\$tmp/subs1.awkre<<\\_ACAWK fiX_ACEOF seds-ns' h s/^/S["/; s/!.*/"]=/ p g s/^[^!]*!// :repl tXrepl s/'"$slXdelim"'$// t delim :nl h s/\(.\{148\}\)..*/\1/ t mor_1 s/["\\]/\\&/g; s/^/"/; s/$/\\n"\\/ p n bXrepl :mor_1 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t nl :delim h s/\(.\{148\}\)..*/\1/ t mor_2 s/["\\]/\\&/g; s/^/"/; s/$/"/ p b :mor_2 s/["\\]/\\&/g; s/^/"/; s/$/"\\/ p g s/.\{148\}// t delim 'e<$snf$$subs.awke| seds'X/^[^""]/{ N s/\n// } ' >>$CONFIG_STATUSe|| $c%write_faeo=1 rms_f $snf$$subs.awk cat >>$CONFIG_STATUSe<<_ACEOF || $c%write_faeo=1 _ACAWK cat >>"\$tmp/subs1.awkre<<_ACAWK fiXfs=. (keyainaS) S_islset[key] =a1 slFS =a"" } { #0]k =a$ 0 nfields_}ddplit(#0]k, field, "@")aefsubsteds= 0 omn = omngth(field[1])aef=. (i== 2; i < nfields; i++) { fsfskeya= field[i] fsfskeyomn = omngth(key)aefsfdoW(S_islset[key]) { fsfs aalu_ = S[key] fsfs #0]k =asubstr(#0]k, 1, omn) "" aalu_ "" substr(#0]k, omn +skeyomn + 3) fselZSomn += omngth(aalu_) + omngth(field[++i]) fselZSsubsteds= 1 slse}p n$elH_ZSomn += 1 +skeyomn el} l int #0]k } _ACAWK _ACEOF cat >>$CONFIG_STATUSe<<\_ACEOF || $c%write_faeo=1 doWseds"s/oslX$r//re< /dev/null > /dev/nulle2>&1}e fsseds"s/oslX$r\$//; s/oslX$r/'alX s_awkX$r/g"_n$$.ecat fis< "$tmp/subs1.awkre> "$tmp/subs.awkre\ fs|| a} lLS6nn} $@%] uld o=ersetupi$snfigsfeoms mach0]kry" "# "$ >" 5/_ACEOF # V mayfcaus% tr ufas uL "so 'Xmakes,zso we remdazisoas o(srcodv),"#i${srcodv}aa f @srcodv@fe tries fromiV doWsrcodvis"".", strcpSomadc eaa f"#ivraeoc e col=#s nd ==# remdazi==fwhoas #0]k doWV b%co 'srempty # (actu*Aayewe omaazian empty #0]k nofpr's%rvs #0]k numbmrs).adoWv_x=' xosrcodvH_}dx.efix e fsanmvpsub='/^[ ]*V [ ]*=[ ]*/{ h s/// s/^/:/ s/[ ]*$/:/ s/:\o(srcodv):/:/g s/:\o{srcodv}:/:/g s/:@srcodv@:/:/g s/^:*// s/:*$// x s/\(=[ ]*\).*/\1/ G s/\n// s/^[^=]*=[ ]*$// }'1nxl cat >>$CONFIG_STATUSe<<\_ACEOF || $c%write_faeo=1 fis# v_x=' ns"$CONFIG_FILES" Rc*A_set_X " :Fa$CONFIG_FILESelH_ZS" srift n. nmtagml_ L cas% onmtag="f :[FHLC])sylXmode=oslXtag;xcsntinue;; ll'sac" >cas% onmmodeonmtag="f :[FHL]*:*);; ll:L*e| :C*:*)sy} lLS6nn} $@%invalid tag=\`aalXtag'"t"# "$ >" 5b; ll:[FH]-)nmtag=-:-b; ll:[FH]*)nmtag=aalXtag:aalXtag.in;; ll'sac" >slXsave_IFS=$IFS L IFS=:SH_set_x onmtag L IFS=$ucysave_IFS" >srift ucyfeom=$1 slsrift " >cas% onmmode="f :L)nmsourcm=$1b; ll:[FH])aefsfslXfeom_"fpu`s= fsfsn. nmf fseldXXq_fsfscas% osnmf "fl -)nmf="$tmp/stdc ";; llsell*)# Looka=. t==ffeomft s, "fi==fbuild re=,}${ ni} sourcm re=l # (doWv==fpaL "is o=er bsolu(e)l T==s bsolu(espaL "]kMo=erbe DOS-styom,l # b%caus% osnmf ]kMo=ercsnta"fa`:'.S v_x=' ffsyslXfre|| sfscas% osnmf "fl sfs[\\/$]*)fan$;; ell*)v_x=' ffsysrcodv/yslXfrefix nmf="$srcodv/yslXfr;; ell'sac || sfsy} lLS6nn}1@%]kMo=erftnd "fpu`feom:i\`aalXf'"t"# "$ >" 5b; ll se'sac fs.efscas% osnmf "fl*\'*)sylXf=`r?VER lrfsyslXfre| seds"s/'/'\\\\\\\\''/g"`;; 'sac sella} lappe feanmfeom_"fpu`s " 'yslXf'"aefsfdev}SSH_ZS# Let'ssstillepr' end iv "s `$snfigur='awhecx instantiades (i.e., d n't H_ZS# use ostatu), peoplerw uld be sur ised to read: fsel# /* $snfig.hl Generatedsby $snfig.status. */ .efscsnfigur=_"fpu`='Generatedsfromi'` elr?VER lrfsy*" | seds's|^[^:]*/||;s|:[^:]*/|, |g' `'sby $snfigur=.'aefsfdoWv_x='xsyslXfeom" !}dx-}e fs.efscsnfigur=_"fpu`=syslXfeom. $csnfigur=_"fpu`" sell{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/decreadc ea$slXfeom" ar:"r?VER lr(bostatu ecreadc ea$slXfeom" ar6;} fsfs >/3,ll# Neuvraliz_fspeci*A_]harscteas "fterpr' edaby ed "frreplaccmmnt strc ex. q_fscas% ocsnfigur=_"fpu`_"fi#( fsfs*\&*e| *\|*e| *\\* ) fselZSnmsedX snf_"fpu`=`r?VER lrfsycsnfigur=_"fpu`" | sell seds's/[\\\\&|]/\\\\&/g'`;;i#( fsfs*)nmsedX snf_"fpu`=ycsnfigur=_"fpu`;; se'sac fselcas% oslXtag="f fs*:-:*e| *:-)cat >"$tmp/stdc "a\ fsfsfs|| a} lLS6nn} $@%] uld o=ercreadzi$slXfeom" "# "$ >" 5 ;; se'sac fs.e;; llesac q_slXddv=`r?VEf ss: 'X-- evalXfeom" || $a} RxprdXevalXfeom" : 'X\(.*[^/]\)//*[^/][^/]*/*$' \|s\ eX"$alXfeom" : 'X\(//\)[^/]' \|s\ eX"$alXfeom" : 'X\(//\)$' \|s\ eX"$alXfeom" : 'X\(/\)' \|s. 2>/dev/nulle||"r?VER lr(XevalXfeom" | ell seds'/^X\(.*[^/]\)\/\/*[^/][^/]*\/*$/{ ellls//\1/ elllq el} el/^X\(\/\/\)[^/].*/{ ellls//\1/ elllq el} el/^X\(\/\/\)$/{ ellls//\1/ elllq el} el/^X\(\/\).*/{ ellls//\1/ elllq el} els/.*/./; q'` a} odv="$slXddvH;ra} lmkodv_p q_slXbuildf s=y cas% "$slXddvH="f .)_slXddv_suffix=nmtopXbuildf sXsub=.nmtopXbuildvpr'fix= ;; *) fsslXddv_suffix=/`r?VER lrfsyslXf sre| seds's|^\.[\\/]||'` ll# A"".."a=. eachsdirectoryaina$slXddv_suffixe L alXtopXbuildf sXsub=`r?VER lrfsyslXf s_suffixre| seds's|/[^\\/]*|/..|g;s|/||'` llcas% oslXtopXbuildf sXsub="f "")nmtopXbuildf sXsub=.nmtopXbuildvpr'fix= ;; *)s.nmtopXbuildvpr'fix=oslXtopXbuildf sXsub/e;; llesace;; esac slX bsXtopXbuildf s=aalX wd slX bsXbuildf s=aalX wdyslXf s_suffix # eaubackwardf$sofat>feocty: slXtopXbuildf s=oslXtopXbuild_pr'fix cas% osrcodvif .)_ # W_far=fbuildc ea niplacc.aefsfslXsrcodv=.aefsfslXtopXsrcodv=oslXtopXbuildf sXsubaefsfslX bsXtopXsrcodv=oslX wde;; ll[\\/]* | ?:[\\/]* )ll# Absolu(ess: '.]efsfslXsrcodv=osrcodvyslXf s_suffix;aefsfslXtopXsrcodv=osrcodvaefsfslX bsXtopXsrcodv=osrcodv;; *)s# Relat>vess: '.]efsfslXsrcodv=oslXtopXbuild_pr'fixosrcodvyslXf s_suffixaefsfslXtopXsrcodv=oslXtopXbuild_pr'fixosrcodvaefsfslX bsXtopXsrcodv=oslX wd/osrcodv;; esac slX bsXsrcodv=oslX bsXtopXsrcodvyslXf s_suffixa " >cas% onmmode="f :F) fs# ll# CONFIG_FILE fs# _ACEOF cat >>$CONFIG_STATUSe<<\_ACEOF || $c%write_faeo=1 #rIoWv==fteofladendoes o=erknow abou` datarootdcr, exp nd t. # FIXME: T=is hacklsr uld be remdazd a few yearxlaftmr 2.60. ac_datarootdcr_hack=; nmdatarootdcr_seen=`anmsedXdataroot=' /datarootdcr/ { fsp q_q } /@dataodv@/p /@docodv@/p /@in=.odv@/p /@localeodv@/p /@m nddv@/p' cas% `Rc*A_"seds-ns\"\$alXsedXdataroot\"i$slXfeom_"fpu`s"`s"f *datarootdcr*)nmdatarootdcr_seen=yenv; *@dataodv@*|*@docodv@*|*@in=.odv@*|*@localeodv@*|*@m nddv@*) fs{_r?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: $slXfeom_"fpu`sf eems tosignor_fv==f--datarootdcr evtc e" ar:"r?VER lr(bostatu eWARNING: $slXfeom_"fpu`sf eems tosignor_fv==f--datarootdcr evtc e" ar2;} _ACEOF cat >>$CONFIG_STATUSe<<_ACEOF || $c%write_faeo=1 nmdatarootdcr_hack=' fss&@dataodv@&$dataodv&g fss&@docodv@&$docodv&g fss&@in=.odv@&$in=.odv&g fss&@localeodv@&$localeodv&g fss&@m nddv@&$m nddv&g fss&\\\${datarootdcr}&$datarootdcr&g';; esac _ACEOF # Neuvraliz_fV w}$ `$srcodv' = `.'. # Shellecode="f $snfigur=.acemighe set_ee rasub. # FIXME: do we re*Aayewantsnofma"fta"fan=is feadur=? cat >>$CONFIG_STATUSe<<_ACEOF || $c%write_faeo=1 alXsedXee ra="$slXvpsub $ee rasub _ACEOF cat >>$CONFIG_STATUSe<<\_ACEOF || $c%write_faeo=1 :t /@[a-zA-Z_][a-zA-Z_0-9]*@/!b s|@csnfigur=_"fpu`@|$alXsedX snf_"fpu`|;tsn s&@topXbuildf s@&oslXtopXbuildf sXsub&;tsn s&@topXbuild_pr'fix@&oslXtopXbuild_pr'fix&;tsn s&@srcodv@&oslXsrcodv&;tsn s&@ bsXsrcodv@&oslX bsXsrcodv&;tsn s&@topXsrcodv@&oslXtopXsrcodv&;tsn s&@ bsXtopXsrcodv@&oslX bsXtopXsrcodv&;tsn s&@buildf s@&oslXbuildf s&;tsn s&@ bsXbuildf s@&oslX bsXbuildf s&;tsn s&@ bsXtopXbuildf s@&oslX bsXtopXbuildf s&;tsn $nmdatarootdcr_hack " ec*A_seds\"\$alXsedXee ra\" evalXfeom_"fpu`s" | $AWK ffsytmp/subs.awkre>ytmp/ou` \ fs|| a} lLS6nn} $@%] uld o=ercreadzi$slXfeom" "# "$ >" 5S v_x=' 'evaoddatarootdcr_hackvaoddatarootdcr_seenrefiXq_{sylXou`=`seds-ns'/\${datarootdcr}/p'fsytmp/ou`"`; v_x=' ns"$ylXou`"; } fiXq_{sylXou`=`seds-ns'/^[ ]*datarootdcr[ ]*:*=/p'fsytmp/ou`"`; v_x=' zs"$ylXou`"; } fiXq_{sr?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: $slXfeom_csnta"fsfaarefeaence nofvneuvariafas \`datarootdcr' whecx eems tosbmundef0]kd. Pleas% make sure iv "s def0]kd" ar:"r?VER lr(bostatu eWARNING: $slXfeom_csnta"fsfaarefeaence nofvneuvariafas \`datarootdcr' whecx eems tosbmundef0]kd. Pleas% make sure iv "s def0]kd" ar2;} .erms_fa"$tmp/stdc "" >cas% onmfeomif q_-)cat sytmp/ou`"sfixrms_fa"$tmp/ou`";; *)srms_fa"$slXfeom" fixmv sytmp/ou`"s"$slXfeom";; llesace\ fs|| a} lLS6nn} $@%] uld o=ercreadzi$slXfeom" "# "$ >" 5S;; esac dev} # =. nmtag ]} lLxit 0 _ACEOF anm$lean_feoms=aalX lean_feomsysave v_x='$ nmwrite_faeo }d0 || a} lLS6nn} $@%write=faeoure creadc ea$CONFIG_STATUS" "# "$ >" 5S # $snfigur= "s writc eao $snfig.log, nd ==# calls $snfig.status. # $snfig.status does its ownfredirect>=#, appe fc eao $snfig.log. # Un=. tunadzly,zon DOSan=is faeos,= s $snfig.logis stillekept op}$S# by $snfigur=,rso $snfig.status won'tXb=fefauinoswrite tosit; itsS# ou`pu`is simplysdiscarded. So we Rxef } FD tos/dev/null,"#ieffect>velyeclosc e config.log, sofitsckMsbe prop}rlye(re)op}$ed anda# appe fed to by $snfig.status. W}${$soc eaba-anof$snfigur=,rw=l# need to make } FD avaeoafas aga"f.S 'ev_x=' 'no_creadz" !}dyenvfix e fsanm s_succm s=:SH_alX snfig_status_args=lH_v_x=' 'seomnt" }dyenefiXq_fsalX snfig_status_args=vaalX snfig_status_args --quiet"" >Rxef 5>/dev/null ySHELL $CONFIG_STATUSeaalX snfig_status_args || $c% s_succm s=fan$$ >Rxef 5>>$snfig.log ll# Us'X||, o=er&&,snofavoid Lxitc eafromithk doW uL " $@= 1, whecx ll# w uld make $snfigur= faeo doWv=is is ==flas, "fstruct>=#l e$slX s_succm ss|| a} lLxit 11nxl 'ev_x=' ns"$slXunre$sgnizedXopts"efixv_x='"$e afas_}pt>=#_ceC-c e" !}dnovfix e fs{sr?VER lrfsystatu } $@%#0]k,i"# "$ >/deWARNING: unre$sgnizeds}pt>=#s: $slXunre$sgnizedXopts"ear:"r?VER lr(bostatu eWARNING: unre$sgnizeds}pt>=#s: $slXunre$sgnizedXopts"ear2;} nxl libppm-1.2/autom4te.]kcne/requ_x=s000644 000765 000024 00000007625 11445666056 017371 0ustar00omarstaff000000 000000 # T=is feom assgenerated. # It csnta"fsf==fli$.seofumacros whecx haveebemn raced. # It ckMsbe safelyeremdazd. @requ_x=@= ( fsfsfssssssssfasss( [ fsfsfsssssssssssssssss'0', fsfsfsssssssssssssssss1, fsfsfsssssssssssssssss[ fsfsfsssssssssssssssssss'/opt/local/share/auto$snf' fsfsfsssssssssssssssss], fsfsfsssssssssssssssss[ fsfsfsssssssssssssssssss'/opt/local/share/auto$snf/auto$snf/auto$snf.m4f', fsfsfsssssssssssssssssss'm4/ax_csofeomr_ve for.m4', fsfsfsssssssssssssssssss'm4/ax_f90mmoduas_flag.m4', fsfsfsssssssssssssssssss'm4/ppm_ceC-_ofe.m4', fsfsfsssssssssssssssssss'$snfigur=.ac' fsfsfsssssssssssssssss], fsfsfsssssssssssssssss{ fsfsfsssssssssssssssssss'_AM_AUTOCONF_VERSION' =>s1, fsfsfsssssssssssssssssss'm4_pavtmrn_allow' =>s1, fsfsfsssssssssssssssssss'm4_pavtmrn_=. bid' =>s1, fsfsfsssssssssssssssssss'incluie' =>s1, fsfsfsssssssssssssssssss'PPM_CHECK_MPI' =>s1, fsfsfsssssssssssssssssss'AC_DEFUN_ONCE' =>s1, fsfsfsssssssssssssssssss'm4_incluie' =>s1, fsfsfsssssssssssssssssss'AC_DEFUN' =>s1, fsfsfsssssssssssssssssss'_m4_warn' =>s1, fsfsfsssssssssssssssssss'AU_DEFUN' =>s1, fsfsfsssssssssssssssssss'AX_COMPILER_VENDOR' =>s1, fsfsfsssssssssssssssssss'AX_F90mMODULE_FLAG' =>s1 fsfsfsssssssssssssssss} fsfsfsssssssssssssss],s'Autom4te::Requ_x=' ), fsfsfssssssssfasss( [ fsfsfsssssssssssssssss'1', fsfsfsssssssssssssssss1, fsfsfsssssssssssssssss[ fsfsfsssssssssssssssssss'/opt/local/share/auto$snf' fsfsfsssssssssssssssss], fsfsfsssssssssssssssss[ fsfsfsssssssssssssssssss'/opt/local/share/auto$snf/auto$snf/auto$snf.m4f', fsfsfsssssssssssssssssss'aclocal.m4', fsfsfsssssssssssssssssss'$snfigur=.ac' fsfsfsssssssssssssssss], fsfsfsssssssssssssssss{ fsfsfsssssssssssssssssss'_LT_AC_TAGCONFIG' =>s1, fsfsfsssssssssssssssssss'AM_PROG_F77_C_O' =>s1, fsfsfsssssssssssssssssss'AC_INIT' =>s1, fsfsfsssssssssssssssssss'm4_pavtmrn_=. bid' =>s1, fsfsfsssssssssssssssssss'_AM_COND_IF' =>s1, fsfsfsssssssssssssssssss'AC_CANONICAL_TARGET' =>s1, fsfsfsssssssssssssssssss'AC_SUBST' =>s1, fsfsfsssssssssssssssssss'AC_CONFIG_LIBOBJ_DIR' =>s1, fsfsfsssssssssssssssssss'AC_FC_SRCEXT' =>s1, fsfsfsssssssssssssssssss'AC_CANONICAL_HOST' =>s1, fsfsfsssssssssssssssssss'AC_PROG_LIBTOOL' =>s1, fsfsfsssssssssssssssssss'AM_INIT_AUTOMAKE' =>s1, fsfsfsssssssssssssssssss'AC_CONFIG_SUBDIRS' =>s1, fsfsfsssssssssssssssssss'AM_AUTOMAKE_VERSION' =>s1, fsfsfsssssssssssssssssss'LT_CONFIG_LTDL_DIR' =>s1, fsfsfsssssssssssssssssss'AC_REQUIRE_AUX_FILE' =>s1, fsfsfsssssssssssssssssss'AC_CONFIG_LINKS' =>s1, fsfsfsssssssssssssssssss'm4_sincluie' =>s1, fsfsfsssssssssssssssssss'LT_SUPPORTED_TAG' =>s1, fsfsfsssssssssssssssssss'AM_MAINTAINER_MODE' =>s1, fsfsfsssssssssssssssssss'AM_GNU_GETTEXT_INTL_SUBDIR' =>s1, fsfsfsssssssssssssssssss'_m4_warn' =>s1, fsfsfsssssssssssssssssss'AM_PROG_CXX_C_O' =>s1, fsfsfsssssssssssssssssss'_AM_COND_ENDIF' =>s1, fsfsfsssssssssssssssssss'AM_ENABLE_MULTILIB' =>s1, fsfsfsssssssssssssssssss'AM_SILENT_RULES' =>s1, fsfsfsssssssssssssssssss'AC_CONFIG_FILES' =>s1, fsfsfsssssssssssssssssss'incluie' =>s1, fsfsfsssssssssssssssssss'LT_INIT' =>s1, fsfsfsssssssssssssssssss'AM_GNU_GETTEXT' =>s1, fsfsfsssssssssssssssssss'AC_LIBSOURCE' =>s1, fsfsfsssssssssssssssssss'AM_PROG_FC_C_O' =>s1, fsfsfsssssssssssssssssss'AC_CANONICAL_BUILD' =>s1, fsfsfsssssssssssssssssss'AC_FC_FREEFORM' =>s1, fsfsfsssssssssssssssssss'AH_OUTPUT' =>s1, fsfsfsssssssssssssssssss'_AM_SUBST_NOTMAKE' =>s1, fsfsfsssssssssssssssssss'AC_CONFIG_AUX_DIR' =>s1, fsfsfsssssssssssssssssss'sincluie' =>s1, fsfsfsssssssssssssssssss'm4_pavtmrn_allow' =>s1, fsfsfsssssssssssssssssss'AM_PROG_CC_C_O' =>s1, fsfsfsssssssssssssssssss'AC_CANONICAL_SYSTEM' =>s1, fsfsfsssssssssssssssssss'AM_CONDITIONAL' =>s1, fsfsfsssssssssssssssssss'AC_CONFIG_HEADERS' =>s1, fsfsfsssssssssssssssssss'AC_DEFINE_TRACE_LITERAL' =>s1, fsfsfsssssssssssssssssss'm4_incluie' =>s1, fsfsfsssssssssssssssssss'_AM_COND_ELSE' =>s1, fsfsfsssssssssssssssssss'AC_SUBST_TRACE' =>s1 fsfsfsssssssssssssssss} fsfsfsssssssssssssss],s'Autom4te::Requ_x=' ) fsfsfssssss);l libppm-1.2/autom4te.]kcne/ races.0000644 000765 000024 00000034106 11445666056 017127 0ustar00omarstaff000000 000000 m4trace:m4/ax_csofeomr_ve for.m4:49: -1- AC_DEFUN([AX_COMPILER_VENDOR],s[ AC_CACHE_CHECK([=. _AC_LANG csofeomr ve for],sax_cv_[]_AC_LANG_ABBREV[]_csofeomr_ve for, f[ax_cv_[]_AC_LANG_ABBREV[]_csofeomr_ve for=unknown ZS# note: don'tXceC-a=. gccft s, since"so 'Xoix r$sofeomrs def0]k __GNUC__ fsn. aznves, "fi"ftel:__ICC,__ECC,__INTEL_COMPILER ibm:__xlc__,__xlC__,__IBMC__,__IBMCPP__spaL scale:__ CC__,__ SCALE__sgnu:__GNUC__ sun:__SUNPRO_C,__SUNPRO_CC hp:__HP_cc,__HP_aCC dec:__DECC,__DECCXX,__DECC_VER,__DECCXX_VER borland:__BORLANDC__,__TURBOC__ co 'au:__COMO__ cray:_CRAYC kai:__KCC lcc:__LCC__ metrowerks:__MWERKS__ sgi:__sgi,sgi microsoft:_MSC_VER watco :__WATCOMC__ p. (land:__PGIX CXXq_fsazn pp="def0]kd("`R lrf$aznves, | cu=' d: -f2 | seds's/,/)e|| def0]kd(/g'`")" seAC_COMPILE_IFELSE([AC_LANG_PROGRAM(,[ #if !($azn pp) fsfsfsv=isisanLS6nn; #e fcf ])],s[ax_cv_]_AC_LANG_ABBREV[_csofeomr_ve for=`R lrf$aznves, | cu=' d: -f1`;e_r?;\])aef }_p_k])a])am4trace:m4/ax_f90mmoduas_flag.m4:30: -1- AC_DEFUN([AX_F90mMODULE_FLAG],s[ AC_CACHE_CHECK([=. tran 90 moduass inclus>=#dflag], ax_cv_f90mmodflag, [AC_LANG_PUSH(F. tran) i=0Swhilcsn$$.l\(s_fatmpdcr_$i \)e-of\(s_datmpdcr_$i \)eX CXXq_i=`expr $i + 1`$ }_p_mkodv=tmpdcr_$i cdatmpdcr_$i AC_COMPILE_IFELSE([ !234567 fsfsfsmoduas $snfn$$._moduas fsfsfscsnta"fs fsfsfssubrout0]k $snfn$$._rout0]k fsfsfswrite(*,'(a)') 'got la!' fsfsfsend subrout0]k $snfn$$._rout0]k fsfsfse f moduas $snfn$$._moduas fs],[],[]) cda.. ax_cv_f90mmodflag="o=erfs f" n. x_flag "fi"-I"i"-J"i"-M"i"-p"; CXXq_ioWv_x=' 'ax_cv_f90mmodflag"e}d"o=erfs f" }e fs.eaxysave_FCFLAGS=boFCFLAGS" seFCFLAGS=boaxysave_FCFLAGS ${x_flag}tmpdcr_$i" seAC_COMPILE_IFELSE([ !234567 fsfsfs () am $snfn$$._ () am fsfsfsuse $snfn$$._moduas fsfsfscalleconfn$$._rout0]k fsfsfse f () am $snfn$$._ () am fsfsfs],[ax_cv_f90mmodflag="$x_flag"],[]) seFCFLAGS=boaxysave_FCFLAGS"1 > >/dev}Srms_fv=tmpdcr_$i ioWv_x=' 'ax_cv_f90mmodflag"e}d"o=erfs f" }e fsAC_MSG_ERROR([unefauinosftnd csofeomr flag =. moduass inclus>=#]) fi AC_LANG_POP(F. tran) ])])am4trace:m4/ppm_ceC-_ofe.m4:20: -1- AC_DEFUN([PPM_CHECK_MPI],s[ doWv_x=' xo1H_}dxyenvfix e fsfsAC_MSG_NOTICE([*** CeC-a=. any MPIanof$sofeom nd #0]kW uL "***])a n$elH_AC_MSG_NOTICE([*** Ft s, ceC-adoWI ca${useu$1anof$sofeom nd #0]kW uL "***])afi #XceC-a=. ev} ooWv==ffollowc eaMPIadistrcbu(>=#s # OpenMPI # LAMMPI # MPICH # MPICH2 # intel MPI # Sun ClustmrTools (tmcc,tmCC,tmf77,tmf90) # IBMiAIX POE (mpcc_r,mpCC_r,mpxlf_r) # Many ooWv=soerimplcmmntat>=# havees: 'Xwrappe s: 's doWv_x=' xo1H_}dxop}$ofevfix e fsfsAC_CHECK_PROG(MPICC,[ofecc],[ofecc],[no]) seAS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([C uld o=erftnd tfecca=. OpenMPI])],[CC=boMPICC"]) seAC_CHECK_PROG(MPICXX,[ofec++],[ofec++],[no]) seAS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([C uld o=erftnd tfec++a=. OpenMPI])],[CXX=boMPICXX"]) seAC_CHECK_PROG(MPIFC,[ofef90],[ofef90],[no]) seAS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([C uld o=erftnd tfef90a=. OpenMPI])],[FC=boMPIFC"]) doWv_x=' xo1H_}dxlamofevfix e fsfsAC_CHECK_PROG(MPICC,[ofecc],[ofecc],[no]) seAS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([C uld o=erftnd tfecca=. LAM/MPI])],[CC=boMPICC"]) seAC_CHECK_PROG(MPICXX,[ofeCC],[ofeCC],[no]) seAS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([C uld o=erftnd tfeCC =. LAM/MPI])],[CXX=boMPICXX"]) seAC_CHECK_PROG(MPIFC,[ofef90],[ofef90],[no]) seAS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([C uld o=erftnd tfef90a=. LAM/MPI])],[FC=boMPIFC"]) doWv_x=' xo1H_}dxtfechvfix e fsfsAC_CHECK_PROG(MPICC,[ofecc],[ofecc],[no]) seAS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([C uld o=erftnd tfecca=. MPICH])],[CC=boMPICC"]) seAC_CHECK_PROG(MPICXX,[ofeCC],[ofeCC],[no]) seAS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([C uld o=erftnd tfeCC =. MPICH])],[CXX=boMPICXX"]) seAC_CHECK_PROG(MPIFC,[ofef90],[ofef90],[no]) seAS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([C uld o=erftnd tfef90a=. MPICH])],[FC=boMPIFC"]) doWv_x=' xo1H_}dxtfech2vfix e fsfsAC_CHECK_PROG(MPICC,[ofecc],[ofecc],[no]) seAS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([C uld o=erftnd tfecca=. MPICH 2])],[CC=boMPICC"]) seAC_CHECK_PROG(MPICXX,[ofecxx],[ofecxx],[no]) seAS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([C uld o=erftnd tfecxxa=. MPICH 2])],[CXX=boMPICXX"]) seAC_CHECK_PROG(MPIFC,[ofef90],[ofef90],[no]) seAS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([C uld o=erftnd tfef90a=. MPICH 2])],[FC=boMPIFC"]) doWv_x=' xo1H_}dxinteltfe_gnuvfix e fsfsAC_CHECK_PROG(MPICC,[ofegcc],[ofegcc],[no]) seAS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([C uld o=erftnd tfegcca=. Intel MPI + "byCsofeomrs])],[CC=boMPICC"]) seAC_CHECK_PROG(MPICXX,[ofeg++],[ofeg++],[no]) seAS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([C uld o=erftnd tfeg++a=. Intel MPI + "byCsofeomrs])],[CXX=boMPICXX"]) seAC_CHECK_PROG(MPIFC,[ofeg=. tran],[ofeg=. tran],[no]) seAS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([C uld o=erftnd tfeg=. trana=. Intel MPI + "byCsofeomrs])],[FC=boMPIFC"]) doWv_x=' xo1H_}dxinteltfe_intelvfix e fsfsAC_CHECK_PROG(MPICC,[ofeecc],[ofeecc],[no]) seAS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([C uld o=erftnd tfegcca=. Intel MPI + Intel Csofeomrs])],[CC=boMPICC"]) seAC_CHECK_PROG(MPICXX,[ofeicpc],[ofecpc],[no]) seAS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([C uld o=erftnd tfecpca=. Intel MPI + Intel Csofeomrs])],[CXX=boMPICXX"]) seAC_CHECK_PROG(MPIFC,[ofei=. t],[ofei=. t],[no]) seAS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([C uld o=erftnd tfei=. ta=. Intel MPI + Intel Csofeomrs])],[FC=boMPIFC"]) doWv_x=' xo1H_}dxsunvfix e fsfsAC_CHECK_PROG(MPICC,[tmcc],[tmcc],[no]) seAS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([C uld o=erftnd tmcca=. Sun MPI])],[CC=boMPICC"]) seAC_CHECK_PROG(MPICXX,[tmCC],[tmCC],[no]) seAS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([C uld o=erftnd tmCCa=. Sun MPI])],[CXX=boMPICXX"]) seAC_CHECK_PROG(MPIFC,[tmf90],[tmf90],[no]) seAS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([C uld o=erftnd tmf90a=. Sun MPI])],[FC=boMPIFC"]) doWv_x=' xo1H_}dxibmvfix e fsfsAC_CHECK_PROG(MPICC,[ofcc_r],[ofcc_r],[no]) seAS_VAR_IF(MPICC,[no],[AC_MSG_ERROR([C uld o=erftnd tfcc_ra=. IBMiAIX MPI])],[CC=boMPICC"]) seAC_CHECK_PROG(MPICXX,[ofCC_r],[ofCC_r],[no]) seAS_VAR_IF(MPICXX,[no],[AC_MSG_ERROR([C uld o=erftnd tfCC_ra=. IBMiAIX MPI])],[CXX=boMPICXX"]) seAC_CHECK_PROG(MPIFC,[ofxf90mr],[ofxf90mr],[no]) seAS_VAR_IF(MPIFC,[no],[AC_MSG_ERROR([C uld o=erftnd tfxf90ma=. IBMiAIX MPI])],[FC=boMPIFC"]) doWv_x=' xo1H_}dxguessvfix e fsfsAC_CHECK_PROGS(MPICC,[ofecc tfegccaofeecc tmccaofcc_r],[no]) seAS_VAR_IF(MPICC,[no],[AC_MSG_WARN([C uld o=erftnd any ofeXwrappe =. a C csofeomr])],[CC=boMPICC"]) seAC_CHECK_PROGS(MPICXX,[ofec++ tfeCC tfecxxatfeg++aofeicpc tmCCaofCC_r],[no]) seAS_VAR_IF(MPICXX,[no],[AC_MSG_WARN([C uld o=erftnd any ofeXwrappe =. a C++acsofeomr])],[CXX=boMPICXX"]) seAC_CHECK_PROGS(MPIFC,[ofef90 tfefc tfeg=. tranatfei=. tatmf90aofxf90mr],[no]) seAS_VAR_IF(MPIFC,[no],[AC_MSG_WARN([C uld o=erftnd any ofeXwrappe =. a F. tranacsofeomr])],[FC=boMPIFC"]) elH_AC_MSG_NOTICE([fs f $CCa$CXX $FC]) doWv_x=' xo1H_}dxyenvfix e fsfsAC_MSG_NOTICE([You w uld likuinosuseu$CCa$CXX $FCanof$sofeom uL "MPI supp. (])a n$elH_AC_MSG_ERROR([C uld o=erreocgnizeWv=is MPI implcmmntat>=#: $1])afi ])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^_?A[CHUM]_])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([_AC_])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^LIBOBJS$],s[do o=eruseuLIBOBJSsdirectly,zuseuAC_LIBOBJ_(see sect>=# `AC_LIBOBJ_vsuLIBOBJS'])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^AS_FLAGS$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^_?m4_])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^dnl$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^_?AS_])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^SHELL$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ _SEPARATOR$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_NAME$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_TARNAME$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_VERSION$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_STRING$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_BUGREPORT$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_URL$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^Rxef_pr'fixo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^pr'fixo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^pr() am_trans=. m_s: 'o])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^binddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^sbinddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^libRxefddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^datarootdcro])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^dataddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^sys$snfddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^sharedstateddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^localstateddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^incluieddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^oldc cluieddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^docodvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^in=.odvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^htmlddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^dviddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^pdfddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^psddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^libddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^localeddvo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^m nddv$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_NAME$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_TARNAME$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_VERSION$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_STRING$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_BUGREPORT$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_URL$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^DEFS$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ECHO_C$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ECHO_N$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ECHO_T$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^LIBSo])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^build_aliaso])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^host_aliaso])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^target_aliaso])am4trace:$snfigur=.ac:30: -1- PPM_CHECK_MPI([$e afasval])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICXXo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPIFCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICXXo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPIFCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICXXo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPIFCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICXXo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPIFCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICXXo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPIFCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICXXo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPIFCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICXXo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPIFCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICXXo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPIFCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICCo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPICXXo])am4trace:$snfigur=.ac:30: -1- m4_pavtmrn_allow([^MPIFCo])am4trace:$snfigur=.ac:49: -1- m4_pavtmrn_allow([^CXXo])am4trace:$snfigur=.ac:49: -1- m4_pavtmrn_allow([^CXXFLAGS$])am4trace:$snfigur=.ac:49: -1- m4_pavtmrn_allow([^LDFLAGS$])am4trace:$snfigur=.ac:49: -1- m4_pavtmrn_allow([^LIBSo])am4trace:$snfigur=.ac:49: -1- m4_pavtmrn_allow([^CPPFLAGS$])am4trace:$snfigur=.ac:49: -1- m4_pavtmrn_allow([^CXXo])am4trace:$snfigur=.ac:49: -1- m4_pavtmrn_allow([^slX t_CXXo])am4trace:$snfigur=.ac:49: -1- m4_pavtmrn_allow([^EXEEXT$])am4trace:$snfigur=.ac:49: -1- m4_pavtmrn_allow([^OBJEXT$])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CCo])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CFLAGS$])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^LDFLAGS$])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^LIBSo])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CPPFLAGS$])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CCo])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CCo])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CCo])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CCo])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^slX t_CCo])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CPPo])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CPPFLAGS$])am4trace:$snfigur=.ac:50: -1- m4_pavtmrn_allow([^CPPo])am4trace:$snfigur=.ac:51: -1- m4_pavtmrn_allow([^SET_MAKEo])am4trace:$snfigur=.ac:52: -1- m4_pavtmrn_allow([^RANLIBo])am4trace:$snfigur=.ac:53: -1- m4_pavtmrn_allow([^FCo])am4trace:$snfigur=.ac:53: -1- m4_pavtmrn_allow([^FCFLAGS$])am4trace:$snfigur=.ac:53: -1- m4_pavtmrn_allow([^LDFLAGS$])am4trace:$snfigur=.ac:53: -1- m4_pavtmrn_allow([^LIBSo])am4trace:$snfigur=.ac:53: -1- m4_pavtmrn_allow([^FCo])am4trace:$snfigur=.ac:53: -1- m4_pavtmrn_allow([^slX t_FCo])am4trace:$snfigur=.ac:55: -1- m4_pavtmrn_allow([^FCLIBSo])am4trace:$snfigur=.ac:57: -1- m4_pavtmrn_allow([^GREPo])am4trace:$snfigur=.ac:57: -1- m4_pavtmrn_allow([^EGREPo])am4trace:$snfigur=.ac:57: -1- m4_pavtmrn_allow([^STDC_HEADERSo])am4trace:$snfigur=.ac:57: -1- m4_pavtmrn_allow([^SIZEOF_LONG_DOUBLEo])am4trace:$snfigur=.ac:59: -1- AX_F90mMODULE_FLAGam4trace:$snfigur=.ac:60: -1- m4_pavtmrn_allow([^sx_cv_f90mmodflago])am4trace:$snfigur=.ac:82: -1- AX_COMPILER_VENDORam4trace:$snfigur=.ac:90: -1- m4_pavtmrn_allow([^HAVE_LIBMo])am4trace:$snfigur=.ac:144: -1- m4_pavtmrn_allow([^DEBUG$])am4trace:$snfigur=.ac:150: -1- m4_pavtmrn_allow([^LIB@&t@OBJS$])am4trace:$snfigur=.ac:150: -1- m4_pavtmrn_allow([^LTLIBOBJS$]) libppm-1.2/autom4te.]kcne/ races.1000644 000765 000024 00000054354 11445666056 017137 0ustar00omarstaff000000 000000 m4trace:aclocal.m4:14: -1- m4_c cluie([m4/ax_csofeomr_ve for.m4])am4trace:aclocal.m4:15: -1- m4_c cluie([m4/ax_f90mmoduas_flag.m4])am4trace:aclocal.m4:16: -1- m4_c cluie([m4/ppm_ceC-_ofe.m4])am4trace:$snfigur=.ac:20: -1- AC_INIT([PPM],s[1.2.0])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^_?A[CHUM]_])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([_AC_])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^LIBOBJS$],s[do o=eruseuLIBOBJSsdirectly,zuseuAC_LIBOBJ_(see sect>=# `AC_LIBOBJ_vsuLIBOBJS'])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^AS_FLAGS$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^_?m4_])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^dnl$])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_=. bid([^_?AS_])am4trace:$snfigur=.ac:20: -1- AC_SUBST([SHELL])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([SHELL])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^SHELL$])am4trace:$snfigur=.ac:20: -1- AC_SUBST([ _SEPARATOR])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([ _SEPARATOR])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ _SEPARATOR$])am4trace:$snfigur=.ac:20: -1- AC_SUBST([ CKAGE_NAME],s[m4_cfdef([AC_ CKAGE_NAME],ssssss['AC_ CKAGE_NAME'])])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([ CKAGE_NAME])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_NAME$])am4trace:$snfigur=.ac:20: -1- AC_SUBST([ CKAGE_TARNAME],s[m4_cfdef([AC_ CKAGE_TARNAME],sss['AC_ CKAGE_TARNAME'])])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([ CKAGE_TARNAME])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_TARNAME$])am4trace:$snfigur=.ac:20: -1- AC_SUBST([ CKAGE_VERSION],s[m4_cfdef([AC_ CKAGE_VERSION],sss['AC_ CKAGE_VERSION'])])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([ CKAGE_VERSION])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_VERSION$])am4trace:$snfigur=.ac:20: -1- AC_SUBST([ CKAGE_STRING],s[m4_cfdef([AC_ CKAGE_STRING],ssss['AC_ CKAGE_STRING'])])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([ CKAGE_STRING])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_STRING$])am4trace:$snfigur=.ac:20: -1- AC_SUBST([ CKAGE_BUGREPORT],s[m4_cfdef([AC_ CKAGE_BUGREPORT],s['AC_ CKAGE_BUGREPORT'])])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([ CKAGE_BUGREPORT])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_BUGREPORT$])am4trace:$snfigur=.ac:20: -1- AC_SUBST([ CKAGE_URL],s[m4_cfdef([AC_ CKAGE_URL],sssssss['AC_ CKAGE_URL'])])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([ CKAGE_URL])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_URL$])am4trace:$snfigur=.ac:20: -1- AC_SUBST([Rxef_pr'fix],s[NONE])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([Rxef_pr'fix])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^Rxef_pr'fixo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([pr'fix],s[NONE])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([pr'fix])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^pr'fixo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([pr() am_trans=. m_s: '],s[s,x,x,])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([pr() am_trans=. m_s: '])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^pr() am_trans=. m_s: 'o])am4trace:$snfigur=.ac:20: -1- AC_SUBST([binddv],s['${Rxef_pr'fix}/bin'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([binddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^binddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([sbinddv],s['${Rxef_pr'fix}/sbin'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([sbinddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^sbinddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([libRxefddv],s['${Rxef_pr'fix}/libRxef'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([libRxefddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^libRxefddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([datarootdcr],s['${pr'fix}/share'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([datarootdcr])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^datarootdcro])am4trace:$snfigur=.ac:20: -1- AC_SUBST([datadcr],s['${datarootdcr}'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([datadcr])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^dataddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([sys$snfddv],s['${pr'fix}/etf'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([sys$snfddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^sys$snfddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([sharedstateddv],s['${pr'fix}/com'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([sharedstateddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^sharedstateddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([localstateddv],s['${pr'fix}/var'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([localstateddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^localstateddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([c cluieddv],s['${pr'fix}/incluie'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([c cluieddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^c cluieddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([oldc cluieddv],s['/usr/incluie'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([oldc cluieddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^oldc cluieddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([dofddv],s[m4_cfset([AC_ CKAGE_TARNAME], sssss['${datarootdcr}/dof/${ CKAGE_TARNAME}'], sssss['${datarootdcr}/dof/${ CKAGE}'])])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([dofddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^docodvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([c =.odv],s['${datarootdcr}/c =.'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([c =.odv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^c =.odvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([htmlddv],s['${docodv}'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([htmlddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^htmlddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([dviddv],s['${docodv}'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([dviddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^dviddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([pdfddv],s['${docodv}'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([pdfddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^pdfddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([psddv],s['${docodv}'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([psddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^psddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([libddv],s['${Rxef_pr'fix}/lib'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([libddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^libddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([localeodv],s['${datarootdcr}/locale'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([localeddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^localeddvo])am4trace:$snfigur=.ac:20: -1- AC_SUBST([m nddv],s['${datarootdcr}/m n'])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([m nddv])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^m nddv$])am4trace:$snfigur=.ac:20: -1- AC_DEFINE_TRACE_LITERAL([ CKAGE_NAME])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_NAME$])am4trace:$snfigur=.ac:20: -1- AH_OUTPUT([ CKAGE_NAME],s[/* Def0]k nofvneufulls: ' ooWv=is package. */ @%:@undef CKAGE_NAME])am4trace:$snfigur=.ac:20: -1- AC_DEFINE_TRACE_LITERAL([ CKAGE_TARNAME])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_TARNAME$])am4trace:$snfigur=.ac:20: -1- AH_OUTPUT([ CKAGE_TARNAME],s[/* Def0]k nofvneuev} symbollsr rts: ' ooWv=is package. */ @%:@undef CKAGE_TARNAME])am4trace:$snfigur=.ac:20: -1- AC_DEFINE_TRACE_LITERAL([ CKAGE_VERSION])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_VERSION$])am4trace:$snfigur=.ac:20: -1- AH_OUTPUT([ CKAGE_VERSION],s[/* Def0]k nofvneuvers>=#dooWv=is package. */ @%:@undef CKAGE_VERSION])am4trace:$snfigur=.ac:20: -1- AC_DEFINE_TRACE_LITERAL([ CKAGE_STRING])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_STRING$])am4trace:$snfigur=.ac:20: -1- AH_OUTPUT([ CKAGE_STRING],s[/* Def0]k nofvneufulls: ' nd vers>=#dooWv=is package. */ @%:@undef CKAGE_STRING])am4trace:$snfigur=.ac:20: -1- AC_DEFINE_TRACE_LITERAL([ CKAGE_BUGREPORT])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_BUGREPORT$])am4trace:$snfigur=.ac:20: -1- AH_OUTPUT([ CKAGE_BUGREPORT],s[/* Def0]k nofvneuaddrm sswhere bug rep. (s=. v=is packagelsr uld be sent. */ @%:@undef CKAGE_BUGREPORT])am4trace:$snfigur=.ac:20: -1- AC_DEFINE_TRACE_LITERAL([ CKAGE_URL])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^ CKAGE_URL$])am4trace:$snfigur=.ac:20: -1- AH_OUTPUT([ CKAGE_URL],s[/* Def0]k nofvneuho 'Xpagel=. v=is package. */ @%:@undef CKAGE_URL])am4trace:$snfigur=.ac:20: -1- AC_SUBST([DEFS])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([DEFS])am4trace:$snfigur=.ac:20: -1- m4_pavtmrn_allow([^DEFS$])am4trace:$snfigur=.ac:20: -1- AC_SUBST([ECHO_C])am4trace:$snfigur=.ac:20: -1- AC_SUBST_TRACE([