413236-3158 / 3079-5158
Subaru, Honda, Suzuki, Toyota, Mitsubishi, Nissan

포트란 서브루틴 예제

식에서 나중에 사용할 수 있거나 사용하지 않을 수 있는 결과가 하나만 있는 복잡한 계산을 수행해야 하는 경우 함수를 사용할 수 있습니다. 평균이 호출된 다음 한 줄로 제곱된 외부 함수 예제 프로그램을 기억합니다. 반면 서브루틴은 여러 결과를 반환할 수 있습니다. 그러나 서브루틴에 대한 호출은 식에 배치할 수 없습니다. intent(inout)는 변수가 값과 함께 들어오고 값(기본값)으로 나간다는 것을 의미합니다. 함수의 목적은 여러 값이나 인수를 취하고, 이러한 인수로 일부 계산을 수행한 다음 단일 결과를 반환하는 것입니다. FORTRAN에 기록된 몇 가지 기능이 있으며 프로그래머인 귀하가 특별한 노력 없이 사용할 수 있습니다. 이를 본질적인 함수라고 합니다. FORTRAN에는 40개 이상의 본질적인 함수가 있으며 주로 수학적 함수에 관심이 있습니다. 이 예제에서 M및 N은 기본 프로그램에서 값을 할당하고 서브루틴 ADD에 전달됩니다. 서브루틴은 두 값을 추가하고 목록의 두 번째 인수에서 합계를 반환합니다. 따라서 서브루틴 호출 전에 M = 5 및 N =20이 있지만 서브루틴 호출 후 N은 숫자 25로 변경되었습니다. 이 서브루틴에서는 오류가 발생하면 서브루틴이 일찍 종료됩니다.

그렇지 않으면 END 문에 도달하면 실행이 호출 프로그램으로 돌아갑니다. 때로는 배열이 얼마나 큰지 미리 알 수 없습니다. 배열의 최대 크기를 프로시저에 전달할 수 있거나 더미 인수 목록에 나타나는 배열을 가정된 크기 배열로 선언할 수 있습니다. 이 경우 배열의 마지막 차원의 상한은 별표로 선언 될 수 있습니다 * 경우 f(x) = x2 함수 SerieSum() 계산됩니다: 더미 인수 FNAME은 문자 형식이며 길이 11이며 해당 실제 argum과 동일한 크기입니다. character 상수 모델01.dat. 기본 프로그램에서 서브루틴 CONFUS는 A, B, C 및 세 개의 문 레이블의 여섯 개의 인수로 호출되며 각 인수 *가 앞에 옵니다. 서브루틴에는 호출 프로그램의 세 레이블 인수에 해당하는 6개의 인수( X, Y, Z 및 세 개의 별표*)도 포함되어 있습니다. 서브루틴에서 X < 0인 경우 컨트롤이 기본 프로그램으로 다시 전달되고 인수 목록의 두 번째 레이블과 연결된 문에서 실행이 다시 시작됩니다.

Comments are closed.