Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Problem with IF ELSEIF and GOTO statements in FORTRAN
Top Forums Programming Problem with IF ELSEIF and GOTO statements in FORTRAN Post 302881483 by Akshay Hegde on Sunday 29th of December 2013 03:59:45 PM
Old 12-29-2013
Quote:
Originally Posted by faizlo
Hi

I am reading a book about Fortran 90 and I write the following code, to test my understanding of the first chapter. I have a problem with the last section of the code with deals with an IF, ELSEIF, and GOTO statements. Here is my Code

Code:
PROGRAM sim 
! This code is used to solve two simultaneous 
! equations in two variables with real coefficients: 
! 
!   DATE:        DEVELOPER:              CHANGES: 
!  ------       -----------             ---------- 
!  12/28/13     Faiz Lo                 Original Code 
! 
IMPLICIT NONE  
! Dictionary Data: Declare variables 
REAL :: x, y, a1, b1, a2, b2, c1, c2 
CHARACTER :: Ans  
! Salut message 
WRITE (*,*) '**************************************'

Hai Faizlo, everything is alright except variable declaration for char

make like this and run it should work

Code:
CHARACTER(LEN=3) Ans

This User Gave Thanks to Akshay Hegde For This Post:
faizlo
 

9 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Problem with my case statements

Hi there, Im having some problems with this function, I pass two arguments to the function $1 $2 (Arguments are month and date inputted by the user) for some reason the case always fails... however in the cases defined below where it shouldnt fail the result is: if it fails with input... (6 Replies)
Discussion started by: Darklight
6 Replies

2. Shell Programming and Scripting

elseif in csh

I have been using the if statement in csh like this if ( $opt1 == 1 ) then ..... elseif ( $opt2 == 1 ) then ...... endif Seems to work, but got Badly placed ()'s. When I used a space in the elseif, a space between the 'else' and the 'if' it worked (0 Replies)
Discussion started by: kristinu
0 Replies

3. Linux

if elseif fi

Hi all, This is my first post in this forum, can i request you to guide, where i am going wrong with the error below. 34: Syntax error: "fi" unexpected (expecting "then") #!/bin/sh argCount=0 mysql_path=$USER_INSTALL_DIR$ for i in $*; do /A argCount+=1 done if ;then echo... (2 Replies)
Discussion started by: oracle_coorgi
2 Replies

4. Shell Programming and Scripting

if elseif fi

Hi, Ihave shifted this thread which i posted in linux forum to here if i am fault please correct me. When i excute this below script i am getting the follwing error can any one please look into it for persual. ./sample_oracle_tradescope.sh: 25: showDEFAULTUsage: not found ... (6 Replies)
Discussion started by: oracle_coorgi
6 Replies

5. Shell Programming and Scripting

Multiple If statements in bash problem

Hi everyone, May you help me with the correct syntax of the follow bash statements please X=10 if ]; then echo "The value is between 1 and 5" for ((i=1;i<=${X})); do echo $i done else if ]; then echo "The value is between 6 and 10" for ((i=1;i<=${X})); do ... (5 Replies)
Discussion started by: Ophiuchus
5 Replies

6. Linux

Fortran compile problem

Hello everyone, I am trying to compile a code under fedora14.Kernel Linux 2.6.35.6-45fc14.i686-GNOME 2.32.0. I use f77,g77 and gfortran to compile but I get the same error all ways. Unsupported OPEN control item at (^) -- ACTION=, ASSOCIATEVARIABLE=, BLOCKSIZE=, BUFFERCOUNT=,... (1 Reply)
Discussion started by: miriammiriam
1 Replies

7. Programming

Removing goto statements in FORTRAN code

I have the code below and I want to remove the "go to" statements. Any idea how I can do it? if (iorder == 0) then tmincurrent = 1.0e11 if(ireverse == 0 .or. istop /= 1) then do i = 1, 6 if ((side(i) /= sidelimit(i)) .and. (tminside(i) < tmincurrent)) then ... (1 Reply)
Discussion started by: kristinu
1 Replies

8. Programming

FORTRAN:Algortihmic Problem

Hi guys I am faced with this problem that I couldn't figure out yet, if you can point me to some direction that'll be of great help. So here's what I want to do. I have let's say 10000 files which contains same number of Z coordinates in each file. I have to find the distance of those... (6 Replies)
Discussion started by: saleheen
6 Replies

9. Shell Programming and Scripting

A dash to GOTO or a dash from GOTO, that is the question...

Well, guys I saw a question about GOTO for Python. So this gave me the inspiration to attempt a GOTO function for 'dash', (bash and ksh too). Machine: MBP OSX 10.14.3, default bash terminal, calling '#!/usr/local/bin/dash'... This is purely a fun project to see if it is possible in PURE... (3 Replies)
Discussion started by: wisecracker
3 Replies

LEARN ABOUT DEBIAN

binfmtf95-interpreter

binfmtf(1)							     binfmt_C								binfmtf(1)

NAME

       binfmtf-interpreter - binfmt_misc fortran handler

SYNOPSIS

       binfmtf-interpreter fortran-source-file-name [command-line opions ...]

DESCRIPTION

       binfmtf95-interpreter  compiles a fortran source file specified on the command-line using the gfortran compiler, and executes the resulting
       file.

       It is designed to be used as a handler for binfmt_misc handler, which is a system used in Linux for handling arbitrary  files  as  executa-
       bles.

       The command-line options are passed on to the compiled binary.

FILE MAGIC

       There is a requirement for Fortran source files to have the magic characters ! BINFMTF95: at the beginning of the file.

       That line also is used to specify the additional command-line options for Fortran compiler.

ENVIRONMENT

       GFORTRAN
	      The compiler used.  The default is to use gfortran

       BINFMTCTMPDIR

	      Temporary directory used for binary and execution.

	      Falls back to $TMPDIR $TEMPDIR or /tmp

       BINFMTC_DEBUG
	      enables debug output if set.

       BINFMTC_GFORTRAN_OPTS
	      Additional Gfortran options.  Use BINFMTC_DEBUG to verify the options being passed on to gfortran.

	      The default is  -O2 -Wall

AUTHOR

       Junichi Uekawa (dancer@debian.org)

       Upstream page is available at http://www.netfort.gr.jp/~dancer/software/

SEE ALSO

       binfmtasm-interpreter(1), binfmtc-interpreter(1), binfmtcxx-interpreter(1), binfmtf-interpreter(1), binfmtgcj-interpreter(1)

binfmt_misc Dancer						    2005 Jun 4								binfmtf(1)
All times are GMT -4. The time now is 07:38 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy