From 235410a4d84d5c7d6ef2833c294e7ce49f37de70 Mon Sep 17 00:00:00 2001 From: caes Date: Thu, 3 Aug 2017 13:44:04 -0400 Subject: [PATCH] removed conversion scripts, not needed --- scripts/convert/continuum_rydberg_to_eV.pl | 30 ---------------------- scripts/convert/continuum_rydberg_to_eV.sh | 16 ------------ 2 files changed, 46 deletions(-) delete mode 100755 scripts/convert/continuum_rydberg_to_eV.pl delete mode 100755 scripts/convert/continuum_rydberg_to_eV.sh diff --git a/scripts/convert/continuum_rydberg_to_eV.pl b/scripts/convert/continuum_rydberg_to_eV.pl deleted file mode 100755 index b05218e..0000000 --- a/scripts/convert/continuum_rydberg_to_eV.pl +++ /dev/null @@ -1,30 +0,0 @@ -#!/usr/bin/env perl - -use utf8; -use Encode qw(encode decode); - -use feature 'say'; -use locale; - -use constant PI => 4 * atan2(1, 1); - -if (!${^UTF8LOCALE}) { - say encode($charset,"You are not using UTF-8 encoding. :("); -} -my $charset=$ENV{LANG}; - -my $table_input_filename=$ARGV[0]; -#my $table_output_filename=$argv[1] or die $!; - -open $ryd_file,'<',$table_input_filename or die $!; - -while( my $line = <$ryd_file>) { - my ($rydbergs, $sed1, $sed2) = split ' ', $line; - say encode($charset, - sprintf("%e %e %e", - $rydbergs*13.60569253, - $sed1, - $sed2)); -} - -close $ryd_file; diff --git a/scripts/convert/continuum_rydberg_to_eV.sh b/scripts/convert/continuum_rydberg_to_eV.sh deleted file mode 100755 index 4bebb61..0000000 --- a/scripts/convert/continuum_rydberg_to_eV.sh +++ /dev/null @@ -1,16 +0,0 @@ -#!/bin/bash - -# This script converts a cloudy incident continuum's photon -# energy unit from Rydberg to eV. Best if continuum is -# parsed to a raw table, first. Photon energy needs to be -# in the first column. The bash program bc is required. - - - -while read -r rydbergs sed1 sed2 -do - # 1 Ryd = 13.60569253 eV - eV=$(bc <<< "$rydbergs * 13.60569253") - echo "$eV $sed1 $sed2" -done -