1
2
3
4
5
6
7
8
9
program abc
implicit none 
integer::a(3,3)
 
a=(/i,i=1,9/)
print*,a 
print*,
print*,
end program abc

1
2
3
4
5
6
7
8
PROGRAM CIRCLE
 
REAL R, AREA
WRITE (*,*) ‘Radius R: ‘
READ (*,*) R
AREA = 3.14159*R*R
WRITE (*,*) ‘Area = ‘, AREA
END

1
2
3
4
5
6
7
8
9
PROGRAM CIRCLE
C
C THIS PROGRAM READS A REAL NUMBER R AND PRINTS
C THE AREA OF A CIRCLE WITH RADIUS R.
C
REAL R, AREA
WRITE (*,*) ‘Radius R: ‘
READ (*,*) R
AREA = 3.14159*R*R
 ...

1
2
3
4
5
6
7
8
9
/***********************Start Client
program************************************/
 
/*This is the client for the MultiThreadedChatServer program thatI 
wrote
basically it
gives u a good understanding of how sockets work in java
Author: Mohammed Alfaaz
email:alfaaz@gmail.com
 ...

1
2
3
4
5
6
7
8
9
#include <stdio.h> 
#include <math.h>
 
int main() 
{
int     biggest_number ; 
int     result ; 
int x; int y;
/* Print a header */
 ...

1
2
3
4
5
6
7
8
9
#include <stdio.h> #include <math.h>
int main() {
int     biggest_number ; int    result ; int x; int y;
/* Print a header */ printf ("\n The Multiplication table\n\n");
biggest_number = 12; printf ( " Multiplication Table of %i \n\n", biggest_number );
for( x=0; x <= biggest_number; x++) { for ( y=0; y <= biggest_number; y++) {
result= x*y; // print your table or fill your // array here using x and y printf ( " %i * %i = %i\n ", x, y, result );
} }
}

1
2
3
4
5
6
7
program Mult INTEGER    biggest_number , result , x, y
print *,'The Multiplication table'
biggest_number = 12; print *,'Multiplication Table until',biggest_number
DO x=0,biggest_number DO y=0,biggest_number
result= x*y; ! print your table print *,x,'X',y,'=',result
ENDDO ENDDO
end Program Mult

1
2
3
4
5
6
7
8
9
      program CA_test
      implicit none
      integer nstep
      integer cell_size
      integer cell_size_x,cell_size_y
      real w1,w2
      real r1,r2
      real status1,status2
      integer,allocatable :: cell_result(:,:,:)
 ...

1
2
3
4
5
6
7
8
9
*234567890
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c     Bi-CGSTAB法
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
      parameter(n=10,itrmax=100)
      implicit real*8(a-h,o-z)
c
c     r0 : 初期残差ベクトル
 ...

1
2
3
4
5
6
7
8
9
C234567890----+----0----+----0----+----0----+----0----+----0----+----012
C**** SINCE JANUARY 02,2009
C****
C****
      PROGRAM CYLIND_NONLIN_NEW04
      IMPLICIT REAL*8(A-H,O-Z)
      EXTERNAL ALP0003,ALP0B33,ALP0011,ALP0021,ALP0031,
     &         ALP0022,ALP0032,ALP0033,ALP0331,ALP0332,ALP0333,ALP3333,
     &         psy,crnd,r1,r2,ri1,ri2,ri3
 ...

1
2
3
4
5
6
7
8
9
C               PROGRAM TO EVALUATE EXPRESSION WITH ONE OPERATOR
                PROGRAM EVAL
                IFIRST
                ISECOND
                IRESULT
                CHARACTER OP*1
                CHARACTER STRING*13
        5       READ(5, 100) STRING
        100     FORMAT(13H)
 ...

1
2
3
4
5
6
7
8
9
PROGRAM Arithmetic
!-------------------------------------------------------------------------------
!Karl Harris                                ENGR225                  January-20-2012
!                                      ASSIGNMENT #1
!
!Program to add two real numbers. Variables used are:
! X,Y  : the two real numbers
!  Sum : the sum of X and Y
!
 ...

1
2
3
4
5
6
7
8
9
DO WHILE I < 1
LET I = I + 1
LOOP
 
DO WHILE N < 2
LET N = N + 1
LOOP
 
DO WHILE D < 3
 ...

1
2
3
4
5
6
7
8
9
PROGRAM SUM.for
!
!this program adds integers
!
IMPLICIT NONE
REAL::N1,N2,SUM=0.0
PRINT*,'SELECT 2 NUMBERS'
READ*,'N1,N2'
SUM=N1+N2
 ...

1
2
3
4
5
6
7
8
9
PROGRAM sum.for
!
this program adds integers
!
IMPLICIT NONE
REAL::N1,N2,SUM=0.0
PRINT*,'SELECT 2 NUMBERS'
READ*,'N1,N2'
SUM=N1+N2
 ...

1
2
3
4
5
6
7
8
9
PROGRAM SUM.for
!
!adds integers
!
IMPLICIT NONE
REAL::N1,N2,SUM=0.0
PRINT*,'SELECT 2 NUMBERS'
READ*,'N1,N2'
SUM=N1+N2
 ...

1
2
3
4
5
6
7
8
9
        program TEST 
                integer ans 
                do 
                        read (*,*) ans 
                        if (ans.eq.42) stop 
                        write (*,*) ans 
                enddo 
                stop 
        end

1
2
3
4
5
6
7
8
9
     
      SUBROUTINE CCCCC(A,Z,T,U,N,MM)
      DIMENSION A(MM,MM),Z(MM,MM),T(MM,MM),U(MM,MM),                    
     *EN(150)
      REAL *8 TIK,TIM,UIM,UIK
      REAL ND,NC                                                        
      EPS=.000000001                                                    
      NM1=N-1                                                           
       MARK=0                                                           
 ...

1
2
3
4
5
6
7
8
9
Program Cooper's_Testicles
! In this program we will neuter cooper
REAL :: Testicles, Neuter, Remaining testicles
Write (*,*) " State the number of testicles you would like to remove "
Read (*,*) neuter
 
Testicles = 2
 
Remaing testicles = Testicles - neuter
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...

1
2
3
4
5
6
7
8
9
program Mult 
       
INTEGER    biggest_number , result , x, y
        
                                                     
 print *,'The Multiplication table'
 
                                        
    biggest_number = 12;
 ...