FORTRAN Program: Centigrade to Fahrenheit conversion and vice-versa

 c Centigrade to Fahrenheit conversion and vice-versa

c Designed by anonymous.

real c,f

33 write(*,*)'Please select the conversion type'

write(*,*)'a) Centrigrade==>Fahrenheit {Press 1}'

write(*,*)'b) Fahrenheit==>Centrigrade {Press 2}'

read(*,*)i

if(i.EQ.1) then

goto 11

endif

if(i.EQ.2) then

goto 22

endif

stop

11 write(*,*)'Give the temperature value in Centigrade scale'

read(*,*)c

f=c*9.0/5.0+32.0

write(*,*)'The temperature value in Fahrenheit scale is',f

44 write(*,88)

88 format(3x,//,'Would you like to calculate again?',/)

write(*,*)'YES  => PRESS 1'

Write(*,*)'NO  => PRESS ANYTHING BUT 1'

read(*,*)j

if(j.EQ.1) then

goto 33

endif

stop

22 write(*,*)'Give the temperature value in Fahrenheit scale'

read(*,*)f

c=(f-32.0)*5.0/9.0

write(*,*)'The temperature value in Centigrade scale is',c

goto 44

end

FORTRAN PROGRAM FOR PRODUCT OF TWO MATRICES

Program 01 

C PROGRAM FOR PRODUCT OF TWO MATRICES

DIMENSION MAT1(5,5),MAT2(5,5),C(5,5)

INTEGER MAT1,MAT2,C,R1,C1,R2,C2

WRITE(*,*)'ENTER THE ORDER OF FIRST MATRIX'

READ(*,*)R1,C1

WRITE(*,*)'ENTER THE ORDER OF SECOND MATRIX'

READ(*,*)R2,C2

IF(C1.NE.R2)THEN

WRITE(*,*)'PRODUCT NOT POSSIBLE,ENTER ORDERS ONCE AGAIN'

GOTO 11

ENDIF

WRITE(*,*)'ENTER THE ELEMENTS OF FIRST MATRIX'

READ(*,*)((MAT1(I,J),J=1,C1),I=1,R1)

WRITE(*,*)'ENTER THE ELEMENTS OF SECOND MATRIX'

READ(*,*)((MAT2(I,J),J=1,C2),I=1,R2)

DO 10 I=1,R1

DO 10 J=1,C2

C(I,J)=0

DO 10 K=1,C1

C(I,J)=C(I,J)+MAT1(I,K)*MAT2(K,J)

10 CONTINUE

WRITE(*,*)'PRODUCT OF ABOVE MATRICES IS'

DO 20 I=1,R1

WRITE(*,*)(C(I,J),J=1,C2)

20 CONTINUE

11 STOP

End

-----------------------------------------------------------------------------------

Program 02

c A FORTRAN program to find out the product of two matrices

c Designed by ...

dimension mat1(5,5),mat2(5,5),c(5,5)

integer mat1,mat2,c,r1,c1,r2,c2

99 write(*,*)'This is program to find out the product of two given ma

     +trices'

write(*,15)

15 format(/)

write(*,*)'Enter the order of first matrix'

read(*,*)r1,c1

write(*,*)'Enter the order of second matrix'

read(*,*)r2,c2

if(c1.ne.r2)then

write(*,*)'Product is not possible'

write(*,*)'Reason=> column number of the first matrix is not equal

     +to the row number of second'

goto 11

endif

write(*,*)'Enter the element of first matrix'

read(*,*)((mat1(i,j),j=1,c1),i=1,r1)

write(*,*)'Enter the elements of second matrix'

read(*,*)((mat2(i,j),j=1,c2),i=1,r2)

do 10 i=1,r1

do 10 j=1,c2

c(i,j)=0

do 10 k=1,c1

c(i,j)=c(i,j)+mat1(i,k)*mat2(k,j)

10 continue

write(*,*)'Product is'

do 20 i=1,r1

write(*,*)(c(i,j),j=1,c2)

20 continue

11 write(*,*)'Would you like to multiply another pair of matrices?'

write(*,*)'1) YES   ....PRESS 1'

write(*,*)'2) NO    ....PRESS 2'

read(*,*)n

if(n.eq.1) then

goto 99

endif

End

Focus Area Science Technology Summer Fellowship 2023

Instructions to Applicants 

 Please do not send hard copies of marks sheets or applications.

A. General

1) This programme is open for all Students and Teachers studying/teaching in the North-Eastern states of India. VIZ. Arunachal Pradesh, Assam, Manipur, Meghalaya, Nagaland, Mizoram, Sikkim, Tripura, Bihar, Chhattisgarh, Jharkhand, Madhya Pradesh, and union territories of Jammu & Kashmir and Ladakh only.

2) Application should be submitted online in the prescribed format. This link is available in the websites of the three Academies (www.ias.ac.in;www.insaindia.res.in;www.nasi.org.in).

3) Its mandatory to upload the marks sheets from class X till the last examination. Please have the scanned versions of mark sheets (in JPEG format - the size of each marks sheet should not exceed 700 kb), before starting to fill up the application.

  

4) Only one application per candidate will be considered. If more than one application is submitted, none of the applications will be considered.

5) Answers to columns indicated by an asterisk (*) are mandatory and must be filled.

6) The last date for receipt of applications online is 15 November 2022.

B. Eligibility criteria

Students

7a) Applicants should be studying in one of the following:

BS / BSc (II year only)

BPharm (III and IV years only)

BE / BTech / BCA (II and III years only)

BArch (II, III and IV years only)

MS / MSc / MVSc / MPharm (I year only)

ME / MTech / MCA / MArch (I year only)/li>

(5-year integrated) MS / MSc /MTech / MBBS / BVSc (II, III, IV years only)

PharmD (III, IV years only)

(dual degree) BTech + MTech (II, III, IV years only)

(dual degree) BE + MSc (II, III, IV years only)

(dual degree) BS + MS (II, III, IV years only)

Integrated PhD (I, II years only)

MSc Tech (I, II years only)

Teachers

7b) Teachers working in North-Eastern states of India, Bihar, Chhattisgarh, Jharkhand, Madhya Pradesh, and union territories of Jammu & Kashmir and Ladakh only need apply.

8) The minimum percentage of average marks in core subjects only (i.e. excluding languages) from X std. up to post-graduation (whichever years completed) should be 65% or above. The minimum percentage of average marks does not apply for teachers.

9) PhD students are not eligible.

Visit official site to apply: https://webjapps.ias.ac.in/fastsf2023/application_instructions.jsp

and https://www.ias.ac.in/

Summer Research Fellowship Program 2023

  

Summer Research Fellowship Program 2023

Instructions to Applicants 

No hard copies of marks sheets or applications should be sent.

The application portal for the Summer Research Fellowship Program 2023 is now open. Please read the Instructions below or visit the official site.

A. General

1) Application should be submitted online in the prescribed format. This link is available in the websites of the three Academies. (www.ias.ac.in; www.insaindia.res.in; www.nasi.org.in).

2) Its mandatory to upload the marks sheets from class X till the last examination. Please have the scanned versions of mark sheets (in JPEG format - the size of each marks sheet should not exceed 700 kb), before starting to fill up the application.

  

3) Only one application per candidate will be considered. If more than one application is submitted, none of the applications will be considered.

4) Responses to columns marked with an asterisk (*) are mandatory and must be completed.

5) The last date for receipt of applications online is 15 November 2022.

B. Eligibility criteria

Students

6a) Applicants should be studying in one of the following:

BS / BSc (II year only)

BPharm (III and IV years only)

BE / BTech / BCA (II and III years only)

BArch (II, III and IV years only

MS / MSc / MVSc / MPharm (I year only)

ME / MTech / MCA / MArch (I year only)

5-year integrated) MS / MSc /MTech / MBBS / BVSc (II, III, IV years only)

PharmD (III, IV years only)

(dual degree) BTech + MTech (II, III, IV years only)

(dual degree) BE + MSc (II, III, IV years only)

dual degree) BS + MS (II, III, IV years only)

Integrated PhD (I, II years only)

MSc Tech (I, II years only)

Teachers

6b) Teachers must be teaching in a College/University.

7) The minimum percentage of average marks in core subjects (i.e. excluding languages) from X std. up to post-graduation (whichever years completed) should be 65% or above for students. The minimum percentage of average marks does not apply for teachers.

8) PhD students are not eligible.

9) Applicants who have availed of the Academies fellowship twice before are not eligible to apply

Visit the official site for more details: https://www.ias.ac.in/

ACSIR invites application for PhD programmes

ACSIR invites application for PhD programmes 

Last date to Apply - 23 May 2022

Link - https://acsir.res.in/admissions/

SNBNC Summer Research Programme 2022

Satyendra Nath Bose National Centre for Basic Sciences Summer Research Programme 2022

Last date to Apply - 20 April 2022

Multiplication of two 3 x 3 matrices using Scilab (Advanced Mathematical Physics, B.Sc. CBCS)

Scilab based simulations experiments based on 

Mathematical Physics problems

1. Linear algebra:

• Multiplication of two 3 x 3 matrices

Source code:

//Lab exp 01

//Define the matrices at first

a=[1 2 3;4 5 6;7 8 9];

b=[2 3 1;5 3 2;4 1 4];

disp(a,"Matrix a is =>")

disp(b,"Matrix b is =>")

disp(a*b,"Product of a and b is =>")

c=[0 8*(%i) 1;2 5 2*(%i);7 1*(%i) 5];

disp(c,"Matrix c is =>")

d=[2 -6 3*(%i) ;%i 2 7;-2*%i 3 -1];

disp(d,"Matrix d is => ")

disp(c*d,"Product of c and d is =>")