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 -