#!/usr/bin/env bash

# @(#) s1	Demonstrate Fortran-90 preprocessor, pretty-print, f90pp4.
# For pre-processor and pretty-printer Fortran-90, see:
# http://www.ifremer.fr/ditigo/molagnon/fortran90/

pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C f90ppr

FILE=${1-check.f90}

pl " Input code, $FILE:"
head $FILE

pl " Results from f90ppr:"
rm -f new.txt
f90ppr < $FILE > new.txt
head new.txt

exit 0

$ ./s1

Environment: LC_ALL = , LANG = en_US.UTF-8
(Versions displayed with local utility "version")
OS, ker|rel, machine: Linux, 2.6.26-2-amd64, x86_64
Distribution        : Debian 5.0.8 (lenny, workstation) 
bash GNU bash 3.2.39
f90ppr - ( local: ~/executable/f90ppr, 2011-01-30 )

-----
 Input code, check.f90:
$define FPPR_STP_INDENT 2
program check
implicit none


! Setting up parameters and necessary conversion factors
real,parameter::h=4.135667516e-15;            		    ! planck's constant in eVs
real,parameter::c=3.0e10;                           	            ! velocity of light in cm/s
real,parameter::kb=8.6173324e-5;                            ! boltzmann's constant in eV/K


-----
 Results from f90ppr:
This is f90ppr: @(#) fppridnt.f90	V-1.3 00/05/09 Michel Olagnon
( usage: f90ppr < file.F90  > file.f90 )
Program check
    Implicit None
!
!
! Setting up parameters and necessary conversion factors
    Real, Parameter :: h = 4.135667516e-15
! planck's constant in eVs
    Real, Parameter :: c = 3.0e10
! velocity of light in cm/s
    Real, Parameter :: kb = 8.6173324e-5