Since 4/14/2012 3:14:45 AM, ssragunath has written 7 articles and participated in 21 conversations. ssragunath signature: ssragunath
ssragunath's articles:
Items(7) /1
record length of a formatted file347 (2/10/2010 8:13:58 PM) comp.lang.fortran I am printing results to a formatted file. open(unit = funit, file = trim(filename), form = 'FORMATTED', status = 'REPLACE', iostat = istat) if(istat /= 0) write(funit,'(2000F16.4)') (values(ii), ii = 1, nvalu... Ragu
reading complex data using implied do loops10372 (1/27/2010 11:13:50 PM) comp.lang.fortran ! reading complex data using implied do loops
program cread
use iso_fortran_env, only: output_unit
implicit none
integer, parameter :: sp_k = kind(1.0) ! Default Type of Real
integer, parameter :: dp_k = s... Ragu
inquire in windows - special folder / file status1261 (6/28/2009 3:27:13 PM) comp.lang.fortran I came across an interesting situation. I check the existence of a file in my program before executing some code. Here's the snippet of the code that does the check: ! ! do adjustl() for all elements of strarr... Ragu
EOF during Internal List-Directed Read1042 (5/6/2009 2:32:09 PM) comp.lang.fortran I am using a parsing (lexing) module to split the input into different string tokens (CSV). Then I use internal read to get the real, integer or character value of a token. When the string token is blank or em... Ragu
How to return a variable length substring from a function ?5464 (1/27/2009 9:33:56 PM) comp.lang.fortran Hello, I have a function that returns a variable length character substring. Depending on the input, the output is either 1 to 3 characters long. How can I return a character(len = 1) or character (len = 2) or... Ragu
Returning a dynamic character array based on input length1943 (9/10/2008 8:20:43 PM) comp.lang.fortran I have a simple question regarding allocating a character array that can represent a line in an input file. I am writing a small function that can read a line from an input file, strip the Fortran 90 style comm... Ragu
Interpreting read statement in FORTRAN IV code1637 (8/19/2007 10:01:09 PM) comp.lang.fortran I am trying to understand a code that had its origin since FORTRAN IV days (1970's I guess). A particular line tries to read values from a binary tape. In loop 100, "L" values are skipped. Note that there are ... ssragunath
speed up calculation suggestions5151 (11/14/2007 12:17:52 AM) comp.lang.fortran I am an actuary and not a system professional and so please bear with me. We use Fortran for some or our calculations and are being hampered by long calculation times. There is nothing fancy in the code... I pr... rleavitt(16)
Source code beautifier for f90 and f77663 (9/11/2008 5:15:25 PM) comp.lang.fortran Hi! I have loads of legacy code in f77 and written lots of f90 code myself. To make the code easier to read and to give all sources a uniform look, I would like to pass my code through a program that tidies up... arjan.van.dijk(248)
how to declare doubles in f954055 (1/29/2009 1:18:44 AM) comp.lang.fortran I have this fortran program that's kind of a hash-mash of 77 and 90/95. The original author used real*8 to declare his floats (I'm guessing the intent was for them to be double precision floats). Gfortran, us... einazaki668(40)
EOF during Internal List-Directed Read1042 (5/6/2009 2:32:09 PM) comp.lang.fortran I am using a parsing (lexing) module to split the input into different string tokens (CSV). Then I use internal read to get the real, integer or character value of a token. When the string token is blank or em... ssragunath(28)
Hard-coding compile date/options846 (6/3/2009 5:04:12 PM) comp.lang.fortran Hello, In developmental versions of my programs I sometimes find it useful to include in the executable the compile date and the compiler options used. I'm trying to find the neatest way of doing this. What I... lorents(12)
inquire in windows - special folder / file status1261 (6/28/2009 3:27:13 PM) comp.lang.fortran I came across an interesting situation. I check the existence of a file in my program before executing some code. Here's the snippet of the code that does the check: ! ! do adjustl() for all elements of strarr... ssragunath(28)
record length of a formatted file347 (2/10/2010 8:13:58 PM) comp.lang.fortran I am printing results to a formatted file. open(unit = funit, file = trim(filename), form = 'FORMATTED', status = 'REPLACE', iostat = istat) if(istat /= 0) write(funit,'(2000F16.4)') (values(ii), ii = 1, nvalu... ssragunath(28)