نقل قول:
سلام به همه ی دوستان عزیز
بنده با PLATO FORTRAN 95 یک پروژه نوشتم که شامل چندین SUbroutine هست. استادم از بنده میخواد که این subroutine ها در فایل های جداگانه ای نباشن. یعنی ایشان در نهایت از بنده فقط یک فایل می خواهند. حال آنکه الان بنده هر کدام از subroutine ها را در فایلی جداگانه ذخیره کرده ام و درون یک Project به هم متصل هستند.
چگونه می توانم تمامی suroutine ها را درون یک فایل بگذارم و یک project بسازم؟؟؟
ممنون میشم اگر بنده را راهنمایی کنید،
با تشکر
سلام
کد زیر نمونه ای از روش قرار دادن تمامی subroutine ها زیر همدیگر و به صورت یکجاست:
PROGRAM EXAMPLE
IMPLICIT NONE
REAL X, Y
REAL RADIUS
EXTERNAL DISTANCE
PRINT *, ' Input X, Y'
READ *, X, Y
CALL DISTANCE( X, Y, RADIUS )
PRINT *, ' Distance = ' , RADIUS
END PROGRAM EXAMPLE
! =========================
SUBROUTINE DISTANCE( A, B, R )
IMPLICIT NONE
REAL A, B, R
R = SQRT( A ** 2 + B ** 2 )
END SUBROUTINE DISTANCE
