Dear Perl11
If ASINH is not in your Fortran library (which it is probably not), then you can use this:
!-
DOUBLE PRECISION X
DOUBLE PRECISION ASINH
ASINH(X)=LOG(X+SQRT(X**2+1.))
Hi NTC0394
Made some modifications a now it works up to 9.
10 gives XXXXXXXXXX and it crashes for 11 and above..
!
PROGRAM ROMAN
IMPLICIT NONE
INTEGER :: CHOICE
CHARACTER(LEN=10) :: ROMN
INTEGER :: ARABIC
LOGICAL :: VALID
PRINT *, " Enter Arabic numeral: "
READ *, ARABIC
CALL...
Hi again
I have Compacq Visual Fortran, and when I compiled your program i got the following "warnings" only !
But it is at least clear that the variable JJREP that appears in the following statement (in line 372), should be JJREB:
subroutine newpar(jjrel, jjchl, jjrep, jjchb, jjgmg)...
Hi Tony1984
I tryed to compile the program with a F77 compiler and got the following errors (and also found most of them):
bay.for(80) : warning F4980: integer expected in format ("i,f" instead of "i10,f12.3" for instance)
bay.for(83) : warning F4980: integer expected in format (only "f"...
Hi wellnis20
Do you mean that you want to find the first p so that 3**P >= n (equal or grater than n) ?
Then it might be something like this that you need:
program test_next_power_three
integer next_power_three
print *,'02 ->', next_power_three(2)
print *,'03 ->', next_power_three(3)
print...
Hi ya0037
I don't think that the TIFF format is the same as BMP, but you can convert the TIFF file to a BMP file with some image converter, and then work on the BMP file.
Hi ya0037
Here is program that reads a BMP-file and writes the result into three files (111.txt, 333.txt and 444.txt).
You are welcome to use it or some parts of it.
Program BMP
implicit none
character*4000 str
character*24 skra,skraL,skraR
integer*4 lskra,lskraL,lskraR
integer*4...
Hi miki2012
There is a missing comma after gg(150) in the first line of the common statement. It should be:
common /vdc/ aa(150),bb(150),cc(150),dd(150),gg(150),
That explains the syntax error.
The code compiles fine in my Microsoft Fortran Optimizing Compiler Version 5.10
Hi again
Well, what I said above only applies to programs that I have already compiled, but got "divide by zoro" during runtime ...
but I see now that you got this during compilation ...
Hi alcantara20
In a case like this I usually put in a number of write statements in the program (here and there):
write (*,*) '01'
write (*,*) '02'
write (*,*) '03'
....
and continue to do so until I have located the statement where the error is.
Hi gmcke1
If you are building a Windows program, it is enough to put this into the resouce file (xxxx.RC), if I remember correctly:
Icon1 ICON Icon1.ICO
Icon2 ICON Icon2.ICO
Icon3 ICON Icon3.ICO
Icon4 ICON Icon4.ICO
Then all these icons will be displayed under Properties ... Change Icon ...
I also have this problem on my laptop computer running Windos XP with IE version 8.
The lines are OK for one second or so, but then become one line (and long programs unreadable).
Hi both
Once upon a time in the past it was simply done like this (with the '+' line control):
program pp
do i = 1,100
write(*,'(a,a11,i3)') '+','Values are ', i
enddo
end
Hi jpcgandre
Note that the "kmom" variable (with "m") in the Common is undefined (integer then), while you reclare "knom" (with "n") as real. That might be the reason why some of the "krot" values are lost.
Try:
real kmom, krot
Hi all
I compiled the program above and the format(I2,2(2X,E12.15)) did not work properly on the data in the file. So I changed the format somewhat and added a write to an output file to check this. Now the input seems to work for N >= 100 also.
PROGRAM nodes1
Integer N(200),i,j,No
double...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.