Example #1
0
 public static void ConsoleReadLine(Characters destination, int length)
 {
     string s = Console.ReadLine();
     if (s.Length > length) s = s.Substring(0, length);
     destination.ToBlanks(length);
     FortranLib.Copy(destination, s);
 }
Example #2
0
 public static void Date_And_Time(Characters date, Characters time)
 {
     DateTime _dateTime = DateTime.Now;
     date.ToBlanks(8);
     time.ToBlanks(10);
     FortranLib.Copy(date, _dateTime.ToString("yyyyMMdd"));
     FortranLib.Copy(time, _dateTime.ToString("hhmmss.fff"));
 }
Example #3
0
        public static bool ReadFloat(Characters source, int width, int d, out float destination)
        {
            string numberStg = source.Substring(1, width).ToString();
            float internalValue;
            bool isOK = float.TryParse(numberStg, out internalValue);

            destination = internalValue;

            if (numberStg.Contains(".") == false)
            {
                destination *= (float)Math.Pow(10, -d);
            }
            return isOK;
        }
Example #4
0
        public static void WriteFloat(Characters destination, float number, int width, int d)
        {
            //The term w must be large enough to include:
            //• a minus sign for a negative value or a plus sign (when SP is in effect) for a positive value
            //• the decimal point
            //• d digits to the right of the decimal
            //If w is insufficiently large, the entire field width is filled with asterisks.
            //Therefore, w must be > d + 2.

            destination.ToBlanks(width);

            string s = "";
            if (width <= d + 2)
            {
                s = new string('*', width);
            }
            else
            {
                char[] formatCharArray = new char[width];
                for (int i = 0; i < formatCharArray.Length; i++) formatCharArray[i] = '#';
                for (int i = 0; i < d; i++) formatCharArray[i] = '0';
                formatCharArray[d] = '.';
                Array.Reverse(formatCharArray);
                string format = new string(formatCharArray);
                s = number.ToString(format);
            }
            if (s.Length > width)
            {
                s = new string('*', width);
            }
            else
            {
                s = new string(' ', width - s.Length) + s;
            }
            FortranLib.Copy(destination, s);
        }
Example #5
0
 public static int INDEX(Characters chars, Characters value)
 {
     return FortranLib.INDEX(chars.ToString(), value.ToString());
 }
Example #6
0
 public static int INDEX(Characters chars, string value)
 {
     return FortranLib.INDEX(chars.ToString(), value, false);
 }
Example #7
0
 public static int INDEX(Characters chars, string value, bool back)
 {
     return FortranLib.INDEX(chars.ToString(), value, back);
 }
Example #8
0
 public static void Copy(Characters destination, string source)
 {
     FortranLib.Copy(destination.CharArray, 1, source.ToCharArray());
 }
Example #9
0
 public static void Copy(Characters destination, int startIndex, int lastIndex, string source)
 {
     FortranLib.Copy(destination.CharArray, startIndex, lastIndex, source.ToCharArray());
 }
Example #10
0
 public static void Copy(Characters destination, Characters source)
 {
     FortranLib.Copy(destination.CharArray, 1, source.CharArray);
 }
Example #11
0
        public Characters Substring(int startIndex, int lastIndex)
        {
            int length = lastIndex - startIndex + 1;
            Characters sub = new Characters(length);

            startIndex--; //C# index
            Array.Copy(this._CharArray, startIndex, sub.CharArray, 0, length);

            return sub;
        }
Example #12
0
 public void Replace(Characters source)
 {
     this.Replace(source.CharArray);
 }
Example #13
0
        public static Characters Add(char[] c1, char[] c2)
        {
            Characters newCharacters = new Characters(c1.Length + c2.Length);

            Array.Copy(c1, newCharacters.CharArray, c1.Length);

            Array.Copy(c2, 0, newCharacters.CharArray, c1.Length, c2.Length);

            return newCharacters;
        }
Example #14
0
        public static void WriteInt(Characters destination, int number, int width, int m)
        {
            //w is a nonzero, unsigned integer constant denoting the size of
            //the external field, including blanks and a sign, if necessary.
            //A minus sign (-) is always printed on output if the number
            //is negative. If the number is positive, a plus sign (+) is
            //printed only if SP is in effect.
            //m is an unsigned integer constant denoting the minimum
            //number of digits required on output. m is ignored on input.
            //The value of m must not exceed w; if m is omitted, a value of
            //1 is assumed.

            //Examples of I Editing on Output
            //Value      Format      Output
            //-12        I7.6         -000012
            //12345      I5         12345

            destination.ToBlanks(width);

            char[] formatCharArray = new char[width];
            for (int i = 0; i < formatCharArray.Length; i++) formatCharArray[i] = '#';
            for (int i = 0; i < m; i++) formatCharArray[i] = '0';
            Array.Reverse(formatCharArray);
            string format = new string(formatCharArray);
            string s = number.ToString(format);

            if (s.Length > width)
            {
                s = new string('*', width);
            }
            else
            {
                s = new string(' ', width - s.Length) + s;
            }
            FortranLib.Copy(destination, s);
        }
Example #15
0
 public static int LEN_TRIM(Characters chars)
 {
     return chars.LenTrim();
 }
Example #16
0
 public static int SCAN(Characters charArray, string set)
 {
     return FortranLib.SCAN(charArray.ToString(), set);
 }
Example #17
0
 public static void Copy(Characters destination, int startIndex, Characters source)
 {
     FortranLib.Copy(destination.CharArray, startIndex, source.CharArray);
 }