Login or Register to Ask a Question and Join Our Community


Programming

FORTRAN -Returning index fir which values fall in a region

 
Thread Tools Search this Thread
Top Forums Programming FORTRAN -Returning index fir which values fall in a region
Prev   Next
# 1  
Old 11-30-2010
FORTRAN -Returning index fir which values fall in a region
I have an 10 element array containing numbers, I want the start and end index in the array for which the values lie between DIST1 and DIST2. It is not working quite right. I also might want a value of 0 if I cannot find an index.


Code:
    V=(/10.0,20.0,30.0,40.0,50.0,60.0,70.0,80.0,90.0,100.0/)

    PRINT *, V
    PRINT *, DIST1, DIST2
    I = 1
    ISTART = 0
    DO WHILE ((V(I) < DIST1).AND.(I <= 10))
      ISTART = ISTART + 1
      I = I + 1
    END DO

    I = 0
    IEND = 0
    DO WHILE ((V(I) <= DIST2).AND.(I <= 10))
      IEND = IEND + 1
      I = I + 1
    END DO
    IEND = IEND - 1

 
Login or Register to Ask a Question

Previous Thread | Next Thread

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Returning multiple values in Shell

Hi I have a code as the following #!/usr/bin/ksh set -x row() { a=$1 b=$2 c=$(($a + $b)) d=$(($a * $b)) echo $a $b } e=`row 2 3` set $e echo "The value of c is $c" echo "The value of d is $d" My requirement is I need to pass two arguments to a function and return two values... (5 Replies)
Discussion started by: Priya Amaresh
5 Replies

2. Shell Programming and Scripting

Output breaking when returning multiple values

I've been trying to write a command-line function to grab a website's MX records and their ip addresses. The code below works with domains that only have one MX record: function kmx { mx=`host -t MX $1 | awk '{ print $7 }'`; ip=`host $mx | sed '/IPv6/d;/handled/d' | awk '{ print $4 }'`; ... (8 Replies)
Discussion started by: Azrael
8 Replies

3. UNIX for Dummies Questions & Answers

For loop returning more values

Hi All, Thanks all of you for the help you provide to me. Well, I have one more problem, where I am trying to pull file system information in the loop and display the filesystem percentege. I am using following code to achive this, nut it's giving the weired output. My file system is ... (1 Reply)
Discussion started by: alok.behria
1 Replies

4. Shell Programming and Scripting

Finding index values

I have an array XOFFS of size N. I have VDISTMIN and VDISTMAX. I want to find the beginning and and index in XOFFS such that values are within Example Let XOFFS = (10 20 30 40 50) If VDISTMIN = -20 and VDISTMAX = 20 Then ISTR = 1 and IEND = 2 as XOFFS through XOFFS fall within the... (2 Replies)
Discussion started by: kristinu
2 Replies

5. Programming

FORTRAN: Getting Consecutive DIST Values

I have this code and I want to get the first two consecutive distances (obtained by calling GET_TH(IT, 'DIST', DIST) at index IT, the result stored in DIST) for which (ITFLG(IT) .NE. 1). L_FIRST get the first DIST for which ITFLG(IT) .NE. 1. Getting a bit confused on how to achieve this. ... (0 Replies)
Discussion started by: kristinu
0 Replies

6. Programming

returning multiple values from a function in C

hi how can I return multiple values from a C function. I tried the following: #include <stdio.h> void foo(int id, char *first_name, char *last_name) { /* this is just an example to illustrate my problem... real code makes use of the "id" parameter. */ first_name = (char... (8 Replies)
Discussion started by: Andrewkl
8 Replies

7. Programming

random array index returning values not contained

For kicks I wrote up a Password generator after lunch. Let me start with the code: unsigned int x,y,z,c; unsigned int KISS(); unsigned int devrand(); int main( int argc, char** argv ) { int i, j = 1; char pwd = "abcdefghijklmnopqrstuvwxyz" ... (5 Replies)
Discussion started by: VRoemer
5 Replies

8. Solaris

awk/nawk returning decimal values?

Hi Running a specific nawk statement over a 17m lines files returns the following: /bin/nawk: not enough args in ..... input record number 1,25955e+06, file test.1 source line number 1 I'd like to report the line number (in bold above) in decimal not floating so that i can spot it out. ... (1 Reply)
Discussion started by: moutaye
1 Replies

9. Shell Programming and Scripting

Returning values from child to parent shell

I need to send the status from child shell failure to parent shell. I would like to know how could we accomplish this. My parent.sh is as below: #!/bin/ksh set -x echo "I am in parent shell now..." child.sh ret_stat=$? echo "rest_stat=$ret_stat" echo "I am below parent shell end..." ... (4 Replies)
Discussion started by: acheepi
4 Replies

10. Shell Programming and Scripting

Returning Values (shell Script)

I have an application on Informix 4GL, and I am invoking the shell script from the program, but I need to know if the shell script work fine or not, in order to continue the process. I know that we can use $? to get the final status but this is on unix command. How can I return a value from the... (3 Replies)
Discussion started by: jennifer01
3 Replies
Login or Register to Ask a Question

LEARN ABOUT LINUX

chdist

CHDIST(1)                                                                                                                                CHDIST(1)

NAME

       chdist - script to easily play with several distributions

SYNOPSIS

       chdist [options] [command] [command parameters]

DESCRIPTION

       chdist is a rewrite of what used to be known as 'MultiDistroTools' (or mdt). Its use is to create 'APT trees' for several distributions,
       making it easy to query the status of packages in other distribution without using chroots, for instance.

OPTIONS

       -h, --help
           Provide a usage message.

       -d, --data-dir DIR
           Choose data directory (default: $HOME/.chdist/).

       -a, --arch ARCH
           Choose architecture (default: `dpkg --print-architecture`).

       --version
           Display version information.

COMMANDS

       create DIST [URL RELEASE SECTIONS]
           Prepare a new tree named DIST

       apt-get DIST <update|source|...>
           Run apt-get inside DIST

       apt-cache DIST <show|showsrc|...>
           Run apt-cache inside DIST

       apt-rdepends DIST [...]
           Run apt-rdepends inside DIST

       src2bin DIST SRCPKG
           List binary packages for SRCPKG in DIST

       bin2src DIST BINPKG
           List source package for BINPKG in DIST

       compare-packages DIST1 DIST2 [DIST3, ...]
       compare-bin-packages DIST1 DIST2 [DIST3, ...]
           List versions of packages in several DISTributions

       compare-versions DIST1 DIST2
       compare-bin-versions DIST1 DIST2
           Same as compare-packages/compare-bin-packages, but also runs dpkg --compare-versions and display where the package is newer.

       compare-src-bin-packages DIST
           Compare sources and binaries for DIST

       compare-src-bin-versions DIST
           Same as compare-src-bin-packages, but also run dpkg --compare-versions and display where the package is newer

       grep-dctrl-packages DIST [...]
           Run grep-dctrl on *_Packages inside DIST

       grep-dctrl-sources DIST [...]
           Run grep-dctrl on *_Sources inside DIST

       list
           List available DISTs

COPYRIGHT

       This program is copyright 2007 by Lucas Nussbaum and Luk Claes. This program comes with ABSOLUTELY NO WARRANTY.

       It is licensed under the terms of the GPL, either version 2 of the License, or (at your option) any later version.

Debian Utilities                                                    2013-12-23                                                           CHDIST(1)