fortran高手帮帮忙编写一个冒泡排序的子程序，如果主程序中所
编写一个冒泡排序的子，如果主程序中所给数据已经是由小到大的顺序，那么怎么判断它，以节省程序的运算时间
多加个判断就行了 譬如主程序中所给数据是存放在一个一维数组的a[]，从小到大排列，数据个数是x int s=1; //设置一个状态判断变量，s=1无需排序，s=0需要排序 for(i=0;i<=x;i++) {if(a[i]>=a[i+1]) s=0;} if(s==0) 调用冒泡排序的子程序，进行排序 else 主程序的数据直接进行下一步处理