#!/bin/bash
# Copyright (C) 1998-2005 ABINIT group (XG)
# This file is distributed under the terms of the
# GNU General Public License, see ~ABINIT/Infos/copyright
# or http://www.gnu.org/copyleft/gpl.txt .
# For the initials of contributors, see ~ABINIT/Infos/contributors .
# 
# The purpose of this script is to create a new routine
# routinename.F90, from the Utilities/template.F90 file, 
# where "routinename" is the argument of the script.
# Suppose that one is in a source directory, and that
# Utility/template.F90 is accessible as ../Utilities/template.F90

echo "working on $1.F90"
rm -f $1.F90
sed -e "s&routinename&$1&" ../Utilities/template.F90 > $1.F90
echo "routine $1.F90 created "

