Question

fortran怎么调用scilib里面的特殊函数？能不能讲一讲详细过程，谢谢！

Answer 1

#include <stdio.h>
void main()
{
int a[3][4],i,j,t,m,x;
printf("输入一3×4二维整型数组：\n");
for(i=0;i<3;i++)
for(j=0;j<4;j++)
scanf("%d",*(a+i)+j);
for(x=1;x<5;x++)
for(i=0;i<3;i++)
{
for(t=0;t<3;t++)
if(*(*(a+i)+t+1)<*(*(a+i)+t))
{
m=*(*(a+i)+t+1);
*(*(a+i)+t+1)=*(*(a+i)+t);
*(*(a+i)+t)=m;
}
}
printf("每行按从小到大的排序后为：\n");
for(i=0;i<3;i++)
{
for(j=0;j<4;j++)
printf("%6d",*(*(a+i)+j));
printf("\n");
}
}