Fortran编程之我的第一个大坑

在我看来确实是一个大坑,很简单的问题浪费了自己两天时间!

我的科研需要使用abaqus的自定义子程序umat来完成,所以需要用到这个些许古老的语言Fortran。个人感觉它是一个比较易懂的语言,我的第一个大坑是umat编写完成之后运行,一个参数的输出和理论解差别太大故返回一个个参数输出检验,最终锁定在一个矩阵乘法的子程序,在调用的时候计算错误!!我检查了逻辑没有问题,把子程序的内容单拎出来测试也是正确的答案,但是直接在主程序里call子程序就是错误,我看了一天没有找到原因,甚至换了电脑测试还是错误的,实在想不出来为啥这样,在我看来这就是一个很不可思议的bug,完全无法理解。最后还是找了个外挂,周五的一个晚上邀请了一个师弟帮我看看,在师弟的一番尝试之下终于知道是哪里出问题了!!!

首先是我怕为了保证程序的通用性,因为当时不确定每层神经元的个数,所以在主程序里面制订了权重的数组为(60*60)的维度,但是子程序中计算的时候只用了(10*10)的数组,在调用的时候可能只有3,4个数据,由于维度的不同意它不知道该怎么计算只能出来一个错误的结果,得不到自己想要的了,最后统一了数组的维度可以得到正确答案了。

另外,在使用数组的时候最好在前面加上temp,因为直接使用数组的时候你也不知道数组里面都是啥数,做一个归零的处理,养成一个良好的编程习惯。

这次“事故”的主要原因就是因为直接复制了人家的程序拿来用,自己没有亲自编写,再加上写程序的习惯不好,很多东西都是随便给一个数字,后面又忘记了赋予了多少,还是要标准化,规范化,要不然坑可太多了啊。

1. Two Sum 2. Add Two Numbers 3. Longest Substring Without Repeating Characters 4. Median of Two Sorted Arrays 5. Longest Palindromic Substring 6. ZigZag Conversion 7. Reverse Integer 8. String to Integer (atoi) 9. Palindrome Number 10. Regular Expression Matching 11. Container With Most Water 12. Integer to Roman 13. Roman to Integer 14. Longest Common Prefix 15. 3Sum 16. 3Sum Closest 17. Letter Combinations of a Phone Number 18. 4Sum 19. Remove Nth Node From End of List 20. Valid Parentheses 21. Merge Two Sorted Lists 22. Generate Parentheses 23. Swap Nodes in Pairs 24. Reverse Nodes in k-Group 25. Remove Duplicates from Sorted Array 26. Remove Element 27. Implement strStr() 28. Divide Two Integers 29. Substring with Concatenation of All Words 30. Next Permutation 31. Longest Valid Parentheses 32. Search in Rotated Sorted Array 33. Search for a Range 34. Find First and Last Position of Element in Sorted Array 35. Valid Sudoku 36. Sudoku Solver 37. Count and Say 38. Combination Sum 39. Combination Sum II 40. First Missing Positive 41. Trapping Rain Water 42. Jump Game 43. Merge Intervals 44. Insert Interval 45. Unique Paths 46. Minimum Path Sum 47. Climbing Stairs 48. Permutations 49. Permutations II 50. Rotate Image 51. Group Anagrams 52. Pow(x, n) 53. Maximum Subarray 54. Spiral Matrix 55. Jump Game II 56. Merge k Sorted Lists 57. Insertion Sort List 58. Sort List 59. Largest Rectangle in Histogram 60. Valid Number 61. Word Search 62. Minimum Window Substring 63. Unique Binary Search Trees 64. Unique Binary Search Trees II 65. Interleaving String 66. Maximum Product Subarray 67. Binary Tree Inorder Traversal 68. Binary Tree Preorder Traversal 69. Binary Tree Postorder Traversal 70. Flatten Binary Tree to Linked List 71. Construct Binary Tree from Preorder and Inorder Traversal 72. Construct Binary Tree from Inorder and Postorder Traversal 73. Binary Tree Level Order Traversal 74. Binary Tree Zigzag Level Order Traversal 75. Convert Sorted Array to Binary Search Tree 76. Convert Sorted List to Binary Search Tree 77. Recover Binary Search Tree 78. Sum Root to Leaf Numbers 79. Path Sum 80. Path Sum II 81. Binary Tree Maximum Path Sum 82. Populating Next Right Pointers in Each Node 83. Populating Next Right Pointers in Each Node II 84. Reverse Linked List 85. Reverse Linked List II 86. Partition List 87. Rotate List 88. Remove Duplicates from Sorted List 89. Remove Duplicates from Sorted List II 90. Intersection of Two Linked Lists 91. Linked List Cycle 92. Linked List Cycle II 93. Reorder List 94. Binary Tree Upside Down 95. Binary Tree Right Side View 96. Palindrome Linked List 97. Convert Binary Search Tree to Sorted Doubly Linked List 98. Lowest Common Ancestor of a Binary Tree 99. Lowest Common Ancestor of a Binary Search Tree 100. Binary Tree Level Order Traversal II
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值