I haven't written much FORTRAN since ~1975, the language is a lot more free-format than the language I used at that time, and I find your indentation hard to follow; but if I am reading your code correctly, you are allocating space for the zper(), zpcr(), and qvibr() arrays before the start of the temp loop and deallocating space for those arrays inside the temp loop. So, my guess would be that your program is dying on the line:
the 2nd time through your temp loop because you are referencing an unallocated array.
If I were writing this code, I think I would also read the reac-X files once shortly after reading r and save the file sizes in an array so I wouldn't need to recalculate these values each time through your temp loop.
This User Gave Thanks to Don Cragun For This Post:
I am trying to process error files in selected directories. I can count the files that are there and export the contents to a file for either emailing or printing. The next step is to move the files to a processed directory with the name changed to .fixed as the last extension.
for file in... (2 Replies)
Hi All ,
I am having confusion in a shell script. Please guide me.
I need to get multiple files (number of files vary time to time, file names are separated by '|') using FTP get from the remote server.
Actually, i call the FTP function in a loop. At the last step, i need to move all the get... (3 Replies)
Hello,
I have a question regarding file naming under a loop in tcsh. I have the following code:
#!/bin/tcsh
foreach file (test/ProteinDirectory/*) # The * is a bunch of ProteinFile1, ProteinFile2, ProteinFile3, etc.
sh /bioinfo/home/dgendoo/THREADER/pGenThreader.sh $file $file
... (4 Replies)
Simple enough problem I think, I just can't seem to get it right.
The below doesn't work as intended, it's just a function defined in a much larger script:
CheckValues() {
for field in \
Group_ID \
Group_Title \
Rule_ID \
Rule_Severity \
... (2 Replies)
i=0
while
do
sizesfor0=`cat 16 | grep 'pickSize' -A 1 | grep '_sz' | cut -d'_' -f1`
sizesfor0=${sizesfor0//id=\"lll/:}
IFS=: array0=( $sizesfor0 )
echo ${array0}
i=$(( $i + 1 ))
done
So, right now I have two variables in the while statement above
sizesfor0 and array0
The... (1 Reply)
OS : RHEL 6.1
Shell : Bash
I have lots of files in /tmp/stage directory as show below.
Using a loop, I need to print all the filenames in this directory except those ending with a number. How can I do this ?
# pwd
/tmp/stage
#
#
# ls -l *
-rw-r--r--. 1 root root 0 Oct 7 18:38 stmt1... (2 Replies)
Hi Fellows,
I was wondering how I can remove first few characters from multiple file names without do loop in unix?
e.g.
water123.xyz
water456.xyz
to
123.xyz
456.xyz
Thanks
Paul
Thanks. (3 Replies)
I'm trying to grab a list of file names from a directory, then process those files 5 at a time. In the link below. Instead of using files I'm using the files array which contains 15 strings starting with AAA.
So I'm trying to assign $fileset 5 of the strings at a time to pass to a command. So... (4 Replies)
Hi, I have a control file which will contain all filenames(300) files. Loop through all the file names in the control files and check the existence of this file in another directory(same server). I need to infinitely(2 hrs) run this while loop until all the files are found. Once a file is found,... (5 Replies)
As part of a bash the below line strips off a numerical prefix from directory 1 to search for in directory 2.
for file in /home/cmccabe/Desktop/comparison/missing/*.txt
do
file1=${file##*/} # Strip off directory
getprefix=${file1%%_*.txt}
... (5 Replies)
Discussion started by: cmccabe
5 Replies
LEARN ABOUT DEBIAN
io::async::loop::poll
IO::Async::Loop::Poll(3pm) User Contributed Perl Documentation IO::Async::Loop::Poll(3pm)NAME
"IO::Async::Loop::Poll" - use "IO::Async" with "poll(2)"
SYNOPSIS
Normally an instance of this class would not be directly constructed by a program. It may however, be useful for runinng IO::Async with an
existing program already using an "IO::Poll" object.
use IO::Poll;
use IO::Async::Loop::Poll;
my $poll = IO::Poll->new;
my $loop = IO::Async::Loop::Poll->new( poll => $poll );
$loop->add( ... );
while(1) {
my $timeout = ...
my $ret = $poll->poll( $timeout );
$loop->post_poll;
}
DESCRIPTION
This subclass of "IO::Async::Loop" uses an "IO::Poll" object to perform read-ready and write-ready tests.
To integrate with existing code that uses an "IO::Poll", a "post_poll" can be called immediately after the "poll" method on the contained
"IO::Poll" object. The appropriate mask bits are maintained on the "IO::Poll" object when notifiers are added or removed from the set, or
when they change their "want_writeready" status. The "post_poll" method inspects the result bits and invokes the "on_read_ready" or
"on_write_ready" methods on the notifiers.
CONSTRUCTOR
$loop = IO::Async::Loop::Poll->new( %args )
This function returns a new instance of a "IO::Async::Loop::Poll" object. It takes the following named arguments:
"poll" The "IO::Poll" object to use for notification. Optional; if a value is not given, a new "IO::Poll" object will be constructed.
METHODS
$count = $loop->post_poll( $poll )
This method checks the returned event list from a "IO::Poll::poll" call, and calls any of the notification methods or callbacks that are
appropriate. It returns the total number of callbacks that were invoked; that is, the total number of "on_read_ready" and "on_write_ready"
callbacks for "watch_io", and "watch_time" event callbacks.
$poll Reference to the "IO::Poll" object
$count = $loop->loop_once( $timeout )
This method calls the "poll" method on the stored "IO::Poll" object, passing in the value of $timeout, and then runs the "post_poll" method
on itself. It returns the total number of callbacks invoked by the "post_poll" method, or "undef" if the underlying "poll" method returned
an error.
AUTHOR
Paul Evans <leonerd@leonerd.org.uk>
perl v5.14.2 2012-10-24 IO::Async::Loop::Poll(3pm)